36 static Tcl_DString dstr;
50 nput = Tcl_DStringLength(&dstr) - strpos;
53 memcpy(ubuf, strpos + Tcl_DStringValue(&dstr), (
size_t)n);
59 memcpy(ubuf, strpos + Tcl_DStringValue(&dstr), (
size_t)nput);
63 Tcl_DStringFree(&dstr);
64 Tcl_DStringInit(&dstr);
65 if (Tcl_Gets((Tcl_Channel)
channel, &dstr) < 0) {
72 Tcl_DStringAppend(&dstr,
"\n", 1);
73 if (Tcl_DStringLength(&dstr) > n) {
76 memcpy(ubuf, Tcl_DStringValue(&dstr), (
size_t)n);
80 nput = Tcl_DStringLength(&dstr);
81 memcpy(ubuf, Tcl_DStringValue(&dstr), (
size_t)nput);