Lines Matching refs:S
128 socket(S, &PF_INET, &SOCK_STREAM, $proto)
130 if (connect(S, $sinl)) {
132 print S "quit\n";
135 close(S);
142 close(S);
157 socket(S, &PF_INET, &SOCK_STREAM, $proto)
161 if (! connect(S, $sinr)) {
165 select((select(S), $OUTPUT_AUTOFLUSH = 1)[0]); # don't buffer output to S
169 while (<S>) {
185 close(S);
194 while (<S>) {
209 while (<S>) {
221 while (<S>) {
225 close(S);
236 print S "$p\n";
267 while (($done eq "-") && ($s = <S>) && ($s =~ /^\d+([- ])/)) {