set re $regexp
}
-proc readable {whatfor conn} {
- while {[gets $conn l]>=0} { $whatfor-inputline $conn $l }
- if {[eof $conn]} { $whatfor-eof $conn }
+proc readable {whatfor conn args} {
+ while {[gets $conn l]>=0} { eval [list $whatfor-inputline $conn $l] $args }
+ if {[eof $conn]} { eval [list $whatfor-eof $conn] $args }
}
proc parse-argv {formalargs} {