Tcl Source Code

Artifact a91f6b0a8a0dee6239c5cfee5be2d66ea8d37a4a5ef71d460cc689faad4e1f06:

Attachment "server-torncrlf.tcl" to ticket [b3977d199b] added by apnadkarni 2022-07-03 06:27:15.

---

proc accept {so args} {
    fconfigure $so -translation binary
    puts -nonewline $so "abc\r"
    puts -nonewline $so "\ndef"
    flush $so
    #Now force separate packets
    puts -nonewline $so "ghi\r"
    flush $so
    after 1000
    puts -nonewline $so "\njkl"
    flush $so
    close $so
    set ::done 1
}

set so [socket -server accept 10000]

vwait done