xref: /openbsd/usr.bin/telnet/utilities.c (revision 73471bf0) 
1 /*	$OpenBSD: utilities.c,v 1.22 2017/08/22 15:04:18 bluhm Exp $	*/
2 /*	$NetBSD: utilities.c,v 1.5 1996/02/28 21:04:21 thorpej Exp $	*/
3 
4 /*
5  * Copyright (c) 1988, 1993
6  *	The Regents of the University of California.  All rights reserved.
7  *
8  * Redistribution and use in source and binary forms, with or without
9  * modification, are permitted provided that the following conditions
10  * are met:
11  * 1. Redistributions of source code must retain the above copyright
12  *    notice, this list of conditions and the following disclaimer.
13  * 2. Redistributions in binary form must reproduce the above copyright
14  *    notice, this list of conditions and the following disclaimer in the
15  *    documentation and/or other materials provided with the distribution.
16  * 3. Neither the name of the University nor the names of its contributors
17  *    may be used to endorse or promote products derived from this software
18  *    without specific prior written permission.
19  *
20  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
21  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
22  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
23  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
24  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
25  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
26  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
27  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
28  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
29  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
30  * SUCH DAMAGE.
31  */
32 
33 /* these three defines affect the behavior of <arpa/telnet.h> */
34 #define	TELOPTS
35 #define	TELCMDS
36 #define	SLC_NAMES
37 
38 #include "telnet_locl.h"
39 
40 #include <arpa/telnet.h>
41 #include <ctype.h>
42 #include <limits.h>
43 #include <poll.h>
44 #include <stdlib.h>
45 #include <string.h>
46 
47 static FILE	*NetTrace = NULL;
48 int	prettydump;
49 
50 /*
51  * upcase()
52  *
53  *	Upcase (in place) the argument.
54  */
55 
56 void
57 upcase(char *argument)
58 {
59 	int c;
60 
61 	while ((c = *argument) != '\0')
62 		*argument++ = toupper((unsigned char)c);
63 }
64 
65 /*
66  * The following are routines used to print out debugging information.
67  */
68 
69 char NetTraceFile[PATH_MAX] = "(standard output)";
70 
71 void
72 SetNetTrace(const char *file)
73 {
74     if (NetTrace && NetTrace != stdout)
75 	fclose(NetTrace);
76     if (file && (strcmp(file, "-") != 0)) {
77 	NetTrace = fopen(file, "we");
78 	if (NetTrace) {
79 	    strlcpy(NetTraceFile, file, sizeof(NetTraceFile));
80 	    return;
81 	}
82 	fprintf(stderr, "Cannot open %s.\n", file);
83     }
84     NetTrace = stdout;
85     strlcpy(NetTraceFile, "(standard output)", sizeof(NetTraceFile));
86 }
87 
88 void
89 Dump(char direction, unsigned char *buffer, int length)
90 {
91 #   define BYTES_PER_LINE	32
92 #   define min(x,y)	((x<y)? x:y)
93     unsigned char *pThis;
94     int offset;
95 
96     offset = 0;
97 
98     while (length) {
99 	/* print one line */
100 	fprintf(NetTrace, "%c 0x%x\t", direction, offset);
101 	pThis = buffer;
102 	if (prettydump) {
103 	    buffer = buffer + min(length, BYTES_PER_LINE/2);
104 	    while (pThis < buffer) {
105 		fprintf(NetTrace, "%c%.2x",
106 		    (((*pThis)&0xff) == 0xff) ? '*' : ' ',
107 		    (*pThis)&0xff);
108 		pThis++;
109 	    }
110 	    length -= BYTES_PER_LINE/2;
111 	    offset += BYTES_PER_LINE/2;
112 	} else {
113 	    buffer = buffer + min(length, BYTES_PER_LINE);
114 	    while (pThis < buffer) {
115 		fprintf(NetTrace, "%.2x", (*pThis)&0xff);
116 		pThis++;
117 	    }
118 	    length -= BYTES_PER_LINE;
119 	    offset += BYTES_PER_LINE;
120 	}
121 	if (NetTrace == stdout) {
122 	    fprintf(NetTrace, "\r\n");
123 	} else {
124 	    fprintf(NetTrace, "\n");
125 	}
126 	if (length < 0) {
127 	    fflush(NetTrace);
128 	    return;
129 	}
130 	/* find next unique line */
131     }
132     fflush(NetTrace);
133 }
134 
135 void
136 printoption(char *direction, int cmd, int option)
137 {
138 	if (!showoptions)
139 		return;
140 	if (cmd == IAC) {
141 		if (TELCMD_OK(option))
142 		    fprintf(NetTrace, "%s IAC %s", direction, TELCMD(option));
143 		else
144 		    fprintf(NetTrace, "%s IAC %d", direction, option);
145 	} else {
146 		char *fmt;
147 		fmt = (cmd == WILL) ? "WILL" : (cmd == WONT) ? "WONT" :
148 			(cmd == DO) ? "DO" : (cmd == DONT) ? "DONT" : 0;
149 		if (fmt) {
150 		    fprintf(NetTrace, "%s %s ", direction, fmt);
151 		    if (TELOPT_OK(option))
152 			fprintf(NetTrace, "%s", TELOPT(option));
153 		    else if (option == TELOPT_EXOPL)
154 			fprintf(NetTrace, "EXOPL");
155 		    else
156 			fprintf(NetTrace, "%d", option);
157 		} else
158 		    fprintf(NetTrace, "%s %d %d", direction, cmd, option);
159 	}
160 	if (NetTrace == stdout) {
161 	    fprintf(NetTrace, "\r\n");
162 	    fflush(NetTrace);
163 	} else {
164 	    fprintf(NetTrace, "\n");
165 	}
166 	return;
167 }
168 
169 void
170 optionstatus(void)
171 {
172     int i;
173 
174     for (i = 0; i < 256; i++) {
175 	if (do_dont_resp[i]) {
176 	    if (TELOPT_OK(i))
177 		printf("resp DO_DONT %s: %d\n", TELOPT(i), do_dont_resp[i]);
178 	    else if (TELCMD_OK(i))
179 		printf("resp DO_DONT %s: %d\n", TELCMD(i), do_dont_resp[i]);
180 	    else
181 		printf("resp DO_DONT %d: %d\n", i,
182 				do_dont_resp[i]);
183 	    if (my_want_state_is_do(i)) {
184 		if (TELOPT_OK(i))
185 		    printf("want DO   %s\n", TELOPT(i));
186 		else if (TELCMD_OK(i))
187 		    printf("want DO   %s\n", TELCMD(i));
188 		else
189 		    printf("want DO   %d\n", i);
190 	    } else {
191 		if (TELOPT_OK(i))
192 		    printf("want DONT %s\n", TELOPT(i));
193 		else if (TELCMD_OK(i))
194 		    printf("want DONT %s\n", TELCMD(i));
195 		else
196 		    printf("want DONT %d\n", i);
197 	    }
198 	} else {
199 	    if (my_state_is_do(i)) {
200 		if (TELOPT_OK(i))
201 		    printf("     DO   %s\n", TELOPT(i));
202 		else if (TELCMD_OK(i))
203 		    printf("     DO   %s\n", TELCMD(i));
204 		else
205 		    printf("     DO   %d\n", i);
206 	    }
207 	}
208 	if (will_wont_resp[i]) {
209 	    if (TELOPT_OK(i))
210 		printf("resp WILL_WONT %s: %d\n", TELOPT(i), will_wont_resp[i]);
211 	    else if (TELCMD_OK(i))
212 		printf("resp WILL_WONT %s: %d\n", TELCMD(i), will_wont_resp[i]);
213 	    else
214 		printf("resp WILL_WONT %d: %d\n",
215 				i, will_wont_resp[i]);
216 	    if (my_want_state_is_will(i)) {
217 		if (TELOPT_OK(i))
218 		    printf("want WILL %s\n", TELOPT(i));
219 		else if (TELCMD_OK(i))
220 		    printf("want WILL %s\n", TELCMD(i));
221 		else
222 		    printf("want WILL %d\n", i);
223 	    } else {
224 		if (TELOPT_OK(i))
225 		    printf("want WONT %s\n", TELOPT(i));
226 		else if (TELCMD_OK(i))
227 		    printf("want WONT %s\n", TELCMD(i));
228 		else
229 		    printf("want WONT %d\n", i);
230 	    }
231 	} else {
232 	    if (my_state_is_will(i)) {
233 		if (TELOPT_OK(i))
234 		    printf("     WILL %s\n", TELOPT(i));
235 		else if (TELCMD_OK(i))
236 		    printf("     WILL %s\n", TELCMD(i));
237 		else
238 		    printf("     WILL %d\n", i);
239 	    }
240 	}
241     }
242 
243 }
244 
245 void
246 printsub(char direction,	/* '<' or '>' */
247     unsigned char *pointer,	/* where suboption data sits */
248     int length)			/* length of suboption data */
249 {
250     int i;
251 
252     if (showoptions || direction == 0 ||
253 	(want_status_response && (pointer[0] == TELOPT_STATUS))) {
254 	if (direction) {
255 	    fprintf(NetTrace, "%s IAC SB ",
256 				(direction == '<')? "RCVD":"SENT");
257 	    if (length >= 3) {
258 		int j;
259 
260 		i = pointer[length-2];
261 		j = pointer[length-1];
262 
263 		if (i != IAC || j != SE) {
264 		    fprintf(NetTrace, "(terminated by ");
265 		    if (TELOPT_OK(i))
266 			fprintf(NetTrace, "%s ", TELOPT(i));
267 		    else if (TELCMD_OK(i))
268 			fprintf(NetTrace, "%s ", TELCMD(i));
269 		    else
270 			fprintf(NetTrace, "%d ", i);
271 		    if (TELOPT_OK(j))
272 			fprintf(NetTrace, "%s", TELOPT(j));
273 		    else if (TELCMD_OK(j))
274 			fprintf(NetTrace, "%s", TELCMD(j));
275 		    else
276 			fprintf(NetTrace, "%d", j);
277 		    fprintf(NetTrace, ", not IAC SE!) ");
278 		}
279 	    }
280 	    length -= 2;
281 	}
282 	if (length < 1) {
283 	    fprintf(NetTrace, "(Empty suboption??\?)");
284 	    if (NetTrace == stdout)
285 		fflush(NetTrace);
286 	    return;
287 	}
288 	switch (pointer[0]) {
289 	case TELOPT_TTYPE:
290 	    fprintf(NetTrace, "TERMINAL-TYPE ");
291 	    switch (pointer[1]) {
292 	    case TELQUAL_IS:
293 		fprintf(NetTrace, "IS \"%.*s\"", length-2, (char *)pointer+2);
294 		break;
295 	    case TELQUAL_SEND:
296 		fprintf(NetTrace, "SEND");
297 		break;
298 	    default:
299 		fprintf(NetTrace,
300 				"- unknown qualifier %d (0x%x).",
301 				pointer[1], pointer[1]);
302 	    }
303 	    break;
304 	case TELOPT_TSPEED:
305 	    fprintf(NetTrace, "TERMINAL-SPEED");
306 	    if (length < 2) {
307 		fprintf(NetTrace, " (empty suboption??\?)");
308 		break;
309 	    }
310 	    switch (pointer[1]) {
311 	    case TELQUAL_IS:
312 		fprintf(NetTrace, " IS ");
313 		fprintf(NetTrace, "%.*s", length-2, (char *)pointer+2);
314 		break;
315 	    default:
316 		if (pointer[1] == 1)
317 		    fprintf(NetTrace, " SEND");
318 		else
319 		    fprintf(NetTrace, " %d (unknown)", pointer[1]);
320 		for (i = 2; i < length; i++)
321 		    fprintf(NetTrace, " ?%d?", pointer[i]);
322 		break;
323 	    }
324 	    break;
325 
326 	case TELOPT_LFLOW:
327 	    fprintf(NetTrace, "TOGGLE-FLOW-CONTROL");
328 	    if (length < 2) {
329 		fprintf(NetTrace, " (empty suboption??\?)");
330 		break;
331 	    }
332 	    switch (pointer[1]) {
333 	    case LFLOW_OFF:
334 		fprintf(NetTrace, " OFF"); break;
335 	    case LFLOW_ON:
336 		fprintf(NetTrace, " ON"); break;
337 	    case LFLOW_RESTART_ANY:
338 		fprintf(NetTrace, " RESTART-ANY"); break;
339 	    case LFLOW_RESTART_XON:
340 		fprintf(NetTrace, " RESTART-XON"); break;
341 	    default:
342 		fprintf(NetTrace, " %d (unknown)", pointer[1]);
343 	    }
344 	    for (i = 2; i < length; i++)
345 		fprintf(NetTrace, " ?%d?", pointer[i]);
346 	    break;
347 
348 	case TELOPT_NAWS:
349 	    fprintf(NetTrace, "NAWS");
350 	    if (length < 2) {
351 		fprintf(NetTrace, " (empty suboption??\?)");
352 		break;
353 	    }
354 	    if (length == 2) {
355 		fprintf(NetTrace, " ?%d?", pointer[1]);
356 		break;
357 	    }
358 	    fprintf(NetTrace, " %d %d (%d)",
359 		pointer[1], pointer[2], (pointer[1]<<8) | pointer[2]);
360 	    if (length == 4) {
361 		fprintf(NetTrace, " ?%d?", pointer[3]);
362 		break;
363 	    }
364 	    fprintf(NetTrace, " %d %d (%d)",
365 		pointer[3], pointer[4], (pointer[3]<<8) | pointer[4]);
366 	    for (i = 5; i < length; i++)
367 		fprintf(NetTrace, " ?%d?", pointer[i]);
368 	    break;
369 
370 	case TELOPT_LINEMODE:
371 	    fprintf(NetTrace, "LINEMODE ");
372 	    if (length < 2) {
373 		fprintf(NetTrace, " (empty suboption??\?)");
374 		break;
375 	    }
376 	    switch (pointer[1]) {
377 	    case WILL:
378 		fprintf(NetTrace, "WILL ");
379 		goto common;
380 	    case WONT:
381 		fprintf(NetTrace, "WONT ");
382 		goto common;
383 	    case DO:
384 		fprintf(NetTrace, "DO ");
385 		goto common;
386 	    case DONT:
387 		fprintf(NetTrace, "DONT ");
388 	    common:
389 		if (length < 3) {
390 		    fprintf(NetTrace, "(no option??\?)");
391 		    break;
392 		}
393 		switch (pointer[2]) {
394 		case LM_FORWARDMASK:
395 		    fprintf(NetTrace, "Forward Mask");
396 		    for (i = 3; i < length; i++)
397 			fprintf(NetTrace, " %x", pointer[i]);
398 		    break;
399 		default:
400 		    fprintf(NetTrace, "%d (unknown)", pointer[2]);
401 		    for (i = 3; i < length; i++)
402 			fprintf(NetTrace, " %d", pointer[i]);
403 		    break;
404 		}
405 		break;
406 
407 	    case LM_SLC:
408 		fprintf(NetTrace, "SLC");
409 		for (i = 2; i < length - 2; i += 3) {
410 		    if (SLC_NAME_OK(pointer[i+SLC_FUNC]))
411 			fprintf(NetTrace, " %s", SLC_NAME(pointer[i+SLC_FUNC]));
412 		    else
413 			fprintf(NetTrace, " %d", pointer[i+SLC_FUNC]);
414 		    switch (pointer[i+SLC_FLAGS]&SLC_LEVELBITS) {
415 		    case SLC_NOSUPPORT:
416 			fprintf(NetTrace, " NOSUPPORT"); break;
417 		    case SLC_CANTCHANGE:
418 			fprintf(NetTrace, " CANTCHANGE"); break;
419 		    case SLC_VARIABLE:
420 			fprintf(NetTrace, " VARIABLE"); break;
421 		    case SLC_DEFAULT:
422 			fprintf(NetTrace, " DEFAULT"); break;
423 		    }
424 		    fprintf(NetTrace, "%s%s%s",
425 			pointer[i+SLC_FLAGS]&SLC_ACK ? "|ACK" : "",
426 			pointer[i+SLC_FLAGS]&SLC_FLUSHIN ? "|FLUSHIN" : "",
427 			pointer[i+SLC_FLAGS]&SLC_FLUSHOUT ? "|FLUSHOUT" : "");
428 		    if (pointer[i+SLC_FLAGS]& ~(SLC_ACK|SLC_FLUSHIN|
429 						SLC_FLUSHOUT| SLC_LEVELBITS))
430 			fprintf(NetTrace, "(0x%x)", pointer[i+SLC_FLAGS]);
431 		    fprintf(NetTrace, " %d;", pointer[i+SLC_VALUE]);
432 		    if ((pointer[i+SLC_VALUE] == IAC) &&
433 			(pointer[i+SLC_VALUE+1] == IAC))
434 				i++;
435 		}
436 		for (; i < length; i++)
437 		    fprintf(NetTrace, " ?%d?", pointer[i]);
438 		break;
439 
440 	    case LM_MODE:
441 		fprintf(NetTrace, "MODE ");
442 		if (length < 3) {
443 		    fprintf(NetTrace, "(no mode??\?)");
444 		    break;
445 		}
446 		{
447 		    char tbuf[64];
448 		    snprintf(tbuf, sizeof(tbuf),
449 			     "%s%s%s%s%s",
450 			     pointer[2]&MODE_EDIT ? "|EDIT" : "",
451 			     pointer[2]&MODE_TRAPSIG ? "|TRAPSIG" : "",
452 			     pointer[2]&MODE_SOFT_TAB ? "|SOFT_TAB" : "",
453 			     pointer[2]&MODE_LIT_ECHO ? "|LIT_ECHO" : "",
454 			     pointer[2]&MODE_ACK ? "|ACK" : "");
455 		    fprintf(NetTrace, "%s", tbuf[1] ? &tbuf[1] : "0");
456 		}
457 		if (pointer[2]&~(MODE_MASK))
458 		    fprintf(NetTrace, " (0x%x)", pointer[2]);
459 		for (i = 3; i < length; i++)
460 		    fprintf(NetTrace, " ?0x%x?", pointer[i]);
461 		break;
462 	    default:
463 		fprintf(NetTrace, "%d (unknown)", pointer[1]);
464 		for (i = 2; i < length; i++)
465 		    fprintf(NetTrace, " %d", pointer[i]);
466 	    }
467 	    break;
468 
469 	case TELOPT_STATUS: {
470 	    char *cp;
471 	    int j, k;
472 
473 	    fprintf(NetTrace, "STATUS");
474 
475 	    switch (pointer[1]) {
476 	    default:
477 		if (pointer[1] == TELQUAL_SEND)
478 		    fprintf(NetTrace, " SEND");
479 		else
480 		    fprintf(NetTrace, " %d (unknown)", pointer[1]);
481 		for (i = 2; i < length; i++)
482 		    fprintf(NetTrace, " ?%d?", pointer[i]);
483 		break;
484 	    case TELQUAL_IS:
485 		if (--want_status_response < 0)
486 		    want_status_response = 0;
487 		if (NetTrace == stdout)
488 		    fprintf(NetTrace, " IS\r\n");
489 		else
490 		    fprintf(NetTrace, " IS\n");
491 
492 		for (i = 2; i < length; i++) {
493 		    switch(pointer[i]) {
494 		    case DO:	cp = "DO"; goto common2;
495 		    case DONT:	cp = "DONT"; goto common2;
496 		    case WILL:	cp = "WILL"; goto common2;
497 		    case WONT:	cp = "WONT"; goto common2;
498 		    common2:
499 			i++;
500 			if (TELOPT_OK(pointer[i]))
501 			    fprintf(NetTrace, " %s %s", cp, TELOPT(pointer[i]));
502 			else
503 			    fprintf(NetTrace, " %s %d", cp, pointer[i]);
504 
505 			if (NetTrace == stdout)
506 			    fprintf(NetTrace, "\r\n");
507 			else
508 			    fprintf(NetTrace, "\n");
509 			break;
510 
511 		    case SB:
512 			fprintf(NetTrace, " SB ");
513 			i++;
514 			j = k = i;
515 			while (j < length) {
516 			    if (pointer[j] == SE) {
517 				if (j+1 == length)
518 				    break;
519 				if (pointer[j+1] == SE)
520 				    j++;
521 				else
522 				    break;
523 			    }
524 			    pointer[k++] = pointer[j++];
525 			}
526 			printsub(0, &pointer[i], k - i);
527 			if (i < length) {
528 			    fprintf(NetTrace, " SE");
529 			    i = j;
530 			} else
531 			    i = j - 1;
532 
533 			if (NetTrace == stdout)
534 			    fprintf(NetTrace, "\r\n");
535 			else
536 			    fprintf(NetTrace, "\n");
537 
538 			break;
539 
540 		    default:
541 			fprintf(NetTrace, " %d", pointer[i]);
542 			break;
543 		    }
544 		}
545 		break;
546 	    }
547 	    break;
548 	  }
549 
550 	case TELOPT_XDISPLOC:
551 	    fprintf(NetTrace, "X-DISPLAY-LOCATION ");
552 	    switch (pointer[1]) {
553 	    case TELQUAL_IS:
554 		fprintf(NetTrace, "IS \"%.*s\"", length-2, (char *)pointer+2);
555 		break;
556 	    case TELQUAL_SEND:
557 		fprintf(NetTrace, "SEND");
558 		break;
559 	    default:
560 		fprintf(NetTrace, "- unknown qualifier %d (0x%x).",
561 				pointer[1], pointer[1]);
562 	    }
563 	    break;
564 
565 	case TELOPT_NEW_ENVIRON:
566 	    fprintf(NetTrace, "NEW-ENVIRON ");
567 	    switch (pointer[1]) {
568 	    case TELQUAL_IS:
569 		fprintf(NetTrace, "IS ");
570 		goto env_common;
571 	    case TELQUAL_SEND:
572 		fprintf(NetTrace, "SEND ");
573 		goto env_common;
574 	    case TELQUAL_INFO:
575 		fprintf(NetTrace, "INFO ");
576 	    env_common:
577 		{
578 		    int quote = 0;
579 		    for (i = 2; i < length; i++ ) {
580 			switch (pointer[i]) {
581 			case NEW_ENV_VALUE:
582 			    fprintf(NetTrace, "%sVALUE ", quote ? "\" " : "");
583 			    quote = 0;
584 			    break;
585 
586 			case NEW_ENV_VAR:
587 			    fprintf(NetTrace, "%sVAR ", quote ? "\" " : "");
588 			    quote = 0;
589 			    break;
590 
591 			case ENV_ESC:
592 			    fprintf(NetTrace, "%sESC ", quote ? "\" " : "");
593 			    quote = 0;
594 			    break;
595 
596 			case ENV_USERVAR:
597 			    fprintf(NetTrace, "%sUSERVAR ", quote ? "\" " : "");
598 			    quote = 0;
599 			    break;
600 
601 			default:
602 			    if (isprint((unsigned char)pointer[i]) &&
603 				pointer[i] != '"') {
604 				    fprintf(NetTrace, "%s%c",
605 					quote ? "" : "\"", pointer[i]);
606 				    quote = 1;
607 			    } else {
608 				    fprintf(NetTrace, "%s%03o ",
609 					quote ? "\" " : "", pointer[i]);
610 				    quote = 0;
611 			    }
612 			    break;
613 			}
614 		    }
615 		    if (quote)
616 			putc('"', NetTrace);
617 		    break;
618 		}
619 	    }
620 	    break;
621 
622 	default:
623 	    if (TELOPT_OK(pointer[0]))
624 		fprintf(NetTrace, "%s (unknown)", TELOPT(pointer[0]));
625 	    else
626 		fprintf(NetTrace, "%d (unknown)", pointer[0]);
627 	    for (i = 1; i < length; i++)
628 		fprintf(NetTrace, " %d", pointer[i]);
629 	    break;
630 	}
631 	if (direction) {
632 	    if (NetTrace == stdout)
633 		fprintf(NetTrace, "\r\n");
634 	    else
635 		fprintf(NetTrace, "\n");
636 	}
637 	if (NetTrace == stdout)
638 	    fflush(NetTrace);
639     }
640 }
641 
642 /* EmptyTerminal - called to make sure that the terminal buffer is empty.
643  *			Note that we consider the buffer to run all the
644  *			way to the kernel (thus the poll).
645  */
646 
647 void
648 EmptyTerminal(void)
649 {
650     struct pollfd pfd[1];
651 
652     pfd[0].fd = tout;
653     pfd[0].events = POLLOUT;
654 
655     if (TTYBYTES() == 0) {
656 	(void) poll(pfd, 1, INFTIM); /* wait for TTLOWAT */
657     } else {
658 	while (TTYBYTES()) {
659 	    (void) ttyflush(0);
660 	    (void) poll(pfd, 1, INFTIM); /* wait for TTLOWAT */
661 	}
662     }
663 }
664 
665 void
666 SetForExit(void)
667 {
668     setconnmode(0);
669     do {
670 	(void)telrcv();			/* Process any incoming data */
671 	EmptyTerminal();
672     } while (ring_full_count(&netiring));	/* While there is any */
673     setcommandmode();
674     fflush(stdout);
675     fflush(stderr);
676     setconnmode(0);
677     EmptyTerminal();			/* Flush the path to the tty */
678     setcommandmode();
679 }
680 
681 void
682 Exit(int returnCode)
683 {
684     SetForExit();
685     exit(returnCode);
686 }
687 
688 void
689 ExitString(char *string, int returnCode)
690 {
691     SetForExit();
692     fwrite(string, 1, strlen(string), stderr);
693     exit(returnCode);
694 }
695