btrfs: Attempt to fix GCC2 build.
[haiku.git] / src / bin / network / telnet / utilities.c
blobd5fa43a9d9fbdd2589a8e88c392c82de82312942
1 /*
2 * Copyright (c) 1988, 1993
3 * The Regents of the University of California. All rights reserved.
5 * Redistribution and use in source and binary forms, with or without
6 * modification, are permitted provided that the following conditions
7 * are met:
8 * 1. Redistributions of source code must retain the above copyright
9 * notice, this list of conditions and the following disclaimer.
10 * 2. Redistributions in binary form must reproduce the above copyright
11 * notice, this list of conditions and the following disclaimer in the
12 * documentation and/or other materials provided with the distribution.
13 * 3. All advertising materials mentioning features or use of this software
14 * must display the following acknowledgement:
15 * This product includes software developed by the University of
16 * California, Berkeley and its contributors.
17 * 4. Neither the name of the University nor the names of its contributors
18 * may be used to endorse or promote products derived from this software
19 * without specific prior written permission.
21 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
22 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
23 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
24 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
25 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
26 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
27 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
28 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
29 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
30 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
31 * SUCH DAMAGE.
34 #if 0
35 #ifndef lint
36 static const char sccsid[] = "@(#)utilities.c 8.3 (Berkeley) 5/30/95";
37 #endif
38 #endif
39 #include <sys/cdefs.h>
40 __FBSDID("$FreeBSD: src/contrib/telnet/telnet/utilities.c,v 1.8 2003/05/04 02:54:48 obrien Exp $");
42 #define TELOPTS
43 #define TELCMDS
44 #define SLC_NAMES
45 #include <arpa/telnet.h>
46 #include <sys/types.h>
47 #include <sys/socket.h>
48 #include <sys/time.h>
49 #include <ctype.h>
50 #include <stdlib.h>
51 #include <unistd.h>
53 #include "general.h"
55 #include "fdset.h"
57 #include "ring.h"
59 #include "defines.h"
61 #include "externs.h"
63 #ifdef AUTHENTICATION
64 #include <libtelnet/auth.h>
65 #endif
66 #ifdef ENCRYPTION
67 #include <libtelnet/encrypt.h>
68 #endif
70 FILE *NetTrace = 0; /* Not in bss, since needs to stay */
71 int prettydump;
74 * upcase()
76 * Upcase (in place) the argument.
79 void
80 upcase(char *argument)
82 int c;
84 while ((c = *argument) != 0) {
85 if (islower(c)) {
86 *argument = toupper(c);
88 argument++;
93 * SetSockOpt()
95 * Compensate for differences in 4.2 and 4.3 systems.
98 int
99 SetSockOpt(int fd, int level, int option, int yesno)
101 return setsockopt(fd, level, option,
102 (char *)&yesno, sizeof yesno);
106 * The following are routines used to print out debugging information.
109 unsigned char NetTraceFile[256] = "(standard output)";
111 void
112 SetNetTrace(char *file)
114 if (NetTrace && NetTrace != stdout)
115 fclose(NetTrace);
116 if (file && (strcmp(file, "-") != 0)) {
117 NetTrace = fopen(file, "w");
118 if (NetTrace) {
119 strcpy((char *)NetTraceFile, file);
120 return;
122 fprintf(stderr, "Cannot open %s.\n", file);
124 NetTrace = stdout;
125 strcpy((char *)NetTraceFile, "(standard output)");
128 void
129 Dump(char direction, unsigned char *buffer, int length)
131 # define BYTES_PER_LINE 32
132 # define min(x,y) ((x<y)? x:y)
133 unsigned char *pThis;
134 int offset;
136 offset = 0;
138 while (length) {
139 /* print one line */
140 fprintf(NetTrace, "%c 0x%x\t", direction, offset);
141 pThis = buffer;
142 if (prettydump) {
143 buffer = buffer + min(length, BYTES_PER_LINE/2);
144 while (pThis < buffer) {
145 fprintf(NetTrace, "%c%.2x",
146 (((*pThis)&0xff) == 0xff) ? '*' : ' ',
147 (*pThis)&0xff);
148 pThis++;
150 length -= BYTES_PER_LINE/2;
151 offset += BYTES_PER_LINE/2;
152 } else {
153 buffer = buffer + min(length, BYTES_PER_LINE);
154 while (pThis < buffer) {
155 fprintf(NetTrace, "%.2x", (*pThis)&0xff);
156 pThis++;
158 length -= BYTES_PER_LINE;
159 offset += BYTES_PER_LINE;
161 if (NetTrace == stdout) {
162 fprintf(NetTrace, "\r\n");
163 } else {
164 fprintf(NetTrace, "\n");
166 if (length < 0) {
167 fflush(NetTrace);
168 return;
170 /* find next unique line */
172 fflush(NetTrace);
176 void
177 printoption(const char *direction, int cmd, int option)
179 if (!showoptions)
180 return;
181 if (cmd == IAC) {
182 if (TELCMD_OK(option))
183 fprintf(NetTrace, "%s IAC %s", direction, TELCMD(option));
184 else
185 fprintf(NetTrace, "%s IAC %d", direction, option);
186 } else {
187 const char *fmt;
188 fmt = (cmd == WILL) ? "WILL" : (cmd == WONT) ? "WONT" :
189 (cmd == DO) ? "DO" : (cmd == DONT) ? "DONT" : 0;
190 if (fmt) {
191 fprintf(NetTrace, "%s %s ", direction, fmt);
192 if (TELOPT_OK(option))
193 fprintf(NetTrace, "%s", TELOPT(option));
194 else if (option == TELOPT_EXOPL)
195 fprintf(NetTrace, "EXOPL");
196 else
197 fprintf(NetTrace, "%d", option);
198 } else
199 fprintf(NetTrace, "%s %d %d", direction, cmd, option);
201 if (NetTrace == stdout) {
202 fprintf(NetTrace, "\r\n");
203 fflush(NetTrace);
204 } else {
205 fprintf(NetTrace, "\n");
207 return;
210 void
211 optionstatus(void)
213 int i;
214 extern char will_wont_resp[], do_dont_resp[];
216 for (i = 0; i < 256; i++) {
217 if (do_dont_resp[i]) {
218 if (TELOPT_OK(i))
219 printf("resp DO_DONT %s: %d\n", TELOPT(i), do_dont_resp[i]);
220 else if (TELCMD_OK(i))
221 printf("resp DO_DONT %s: %d\n", TELCMD(i), do_dont_resp[i]);
222 else
223 printf("resp DO_DONT %d: %d\n", i,
224 do_dont_resp[i]);
225 if (my_want_state_is_do(i)) {
226 if (TELOPT_OK(i))
227 printf("want DO %s\n", TELOPT(i));
228 else if (TELCMD_OK(i))
229 printf("want DO %s\n", TELCMD(i));
230 else
231 printf("want DO %d\n", i);
232 } else {
233 if (TELOPT_OK(i))
234 printf("want DONT %s\n", TELOPT(i));
235 else if (TELCMD_OK(i))
236 printf("want DONT %s\n", TELCMD(i));
237 else
238 printf("want DONT %d\n", i);
240 } else {
241 if (my_state_is_do(i)) {
242 if (TELOPT_OK(i))
243 printf(" DO %s\n", TELOPT(i));
244 else if (TELCMD_OK(i))
245 printf(" DO %s\n", TELCMD(i));
246 else
247 printf(" DO %d\n", i);
250 if (will_wont_resp[i]) {
251 if (TELOPT_OK(i))
252 printf("resp WILL_WONT %s: %d\n", TELOPT(i), will_wont_resp[i]);
253 else if (TELCMD_OK(i))
254 printf("resp WILL_WONT %s: %d\n", TELCMD(i), will_wont_resp[i]);
255 else
256 printf("resp WILL_WONT %d: %d\n",
257 i, will_wont_resp[i]);
258 if (my_want_state_is_will(i)) {
259 if (TELOPT_OK(i))
260 printf("want WILL %s\n", TELOPT(i));
261 else if (TELCMD_OK(i))
262 printf("want WILL %s\n", TELCMD(i));
263 else
264 printf("want WILL %d\n", i);
265 } else {
266 if (TELOPT_OK(i))
267 printf("want WONT %s\n", TELOPT(i));
268 else if (TELCMD_OK(i))
269 printf("want WONT %s\n", TELCMD(i));
270 else
271 printf("want WONT %d\n", i);
273 } else {
274 if (my_state_is_will(i)) {
275 if (TELOPT_OK(i))
276 printf(" WILL %s\n", TELOPT(i));
277 else if (TELCMD_OK(i))
278 printf(" WILL %s\n", TELCMD(i));
279 else
280 printf(" WILL %d\n", i);
287 void
288 printsub(char direction, unsigned char *pointer, int length)
290 int i;
291 #ifdef AUTHENTICATION
292 char buf[512];
293 #endif
294 extern int want_status_response;
296 if (showoptions || direction == 0 ||
297 (want_status_response && (pointer[0] == TELOPT_STATUS))) {
298 if (direction) {
299 fprintf(NetTrace, "%s IAC SB ",
300 (direction == '<')? "RCVD":"SENT");
301 if (length >= 3) {
302 int j;
304 i = pointer[length-2];
305 j = pointer[length-1];
307 if (i != IAC || j != SE) {
308 fprintf(NetTrace, "(terminated by ");
309 if (TELOPT_OK(i))
310 fprintf(NetTrace, "%s ", TELOPT(i));
311 else if (TELCMD_OK(i))
312 fprintf(NetTrace, "%s ", TELCMD(i));
313 else
314 fprintf(NetTrace, "%d ", i);
315 if (TELOPT_OK(j))
316 fprintf(NetTrace, "%s", TELOPT(j));
317 else if (TELCMD_OK(j))
318 fprintf(NetTrace, "%s", TELCMD(j));
319 else
320 fprintf(NetTrace, "%d", j);
321 fprintf(NetTrace, ", not IAC SE!) ");
324 length -= 2;
326 if (length < 1) {
327 fprintf(NetTrace, "(Empty suboption??\?)");
328 if (NetTrace == stdout)
329 fflush(NetTrace);
330 return;
332 switch (pointer[0]) {
333 case TELOPT_TTYPE:
334 fprintf(NetTrace, "TERMINAL-TYPE ");
335 switch (pointer[1]) {
336 case TELQUAL_IS:
337 fprintf(NetTrace, "IS \"%.*s\"", length-2, (char *)pointer+2);
338 break;
339 case TELQUAL_SEND:
340 fprintf(NetTrace, "SEND");
341 break;
342 default:
343 fprintf(NetTrace,
344 "- unknown qualifier %d (0x%x).",
345 pointer[1], pointer[1]);
347 break;
348 case TELOPT_TSPEED:
349 fprintf(NetTrace, "TERMINAL-SPEED");
350 if (length < 2) {
351 fprintf(NetTrace, " (empty suboption??\?)");
352 break;
354 switch (pointer[1]) {
355 case TELQUAL_IS:
356 fprintf(NetTrace, " IS ");
357 fprintf(NetTrace, "%.*s", length-2, (char *)pointer+2);
358 break;
359 default:
360 if (pointer[1] == 1)
361 fprintf(NetTrace, " SEND");
362 else
363 fprintf(NetTrace, " %d (unknown)", pointer[1]);
364 for (i = 2; i < length; i++)
365 fprintf(NetTrace, " ?%d?", pointer[i]);
366 break;
368 break;
370 case TELOPT_LFLOW:
371 fprintf(NetTrace, "TOGGLE-FLOW-CONTROL");
372 if (length < 2) {
373 fprintf(NetTrace, " (empty suboption??\?)");
374 break;
376 switch (pointer[1]) {
377 case LFLOW_OFF:
378 fprintf(NetTrace, " OFF"); break;
379 case LFLOW_ON:
380 fprintf(NetTrace, " ON"); break;
381 case LFLOW_RESTART_ANY:
382 fprintf(NetTrace, " RESTART-ANY"); break;
383 case LFLOW_RESTART_XON:
384 fprintf(NetTrace, " RESTART-XON"); break;
385 default:
386 fprintf(NetTrace, " %d (unknown)", pointer[1]);
388 for (i = 2; i < length; i++)
389 fprintf(NetTrace, " ?%d?", pointer[i]);
390 break;
392 case TELOPT_NAWS:
393 fprintf(NetTrace, "NAWS");
394 if (length < 2) {
395 fprintf(NetTrace, " (empty suboption??\?)");
396 break;
398 if (length == 2) {
399 fprintf(NetTrace, " ?%d?", pointer[1]);
400 break;
402 fprintf(NetTrace, " %d %d (%d)",
403 pointer[1], pointer[2],
404 (int)((((unsigned int)pointer[1])<<8)|((unsigned int)pointer[2])));
405 if (length == 4) {
406 fprintf(NetTrace, " ?%d?", pointer[3]);
407 break;
409 fprintf(NetTrace, " %d %d (%d)",
410 pointer[3], pointer[4],
411 (int)((((unsigned int)pointer[3])<<8)|((unsigned int)pointer[4])));
412 for (i = 5; i < length; i++)
413 fprintf(NetTrace, " ?%d?", pointer[i]);
414 break;
416 #ifdef AUTHENTICATION
417 case TELOPT_AUTHENTICATION:
418 fprintf(NetTrace, "AUTHENTICATION");
419 if (length < 2) {
420 fprintf(NetTrace, " (empty suboption??\?)");
421 break;
423 switch (pointer[1]) {
424 case TELQUAL_REPLY:
425 case TELQUAL_IS:
426 fprintf(NetTrace, " %s ", (pointer[1] == TELQUAL_IS) ?
427 "IS" : "REPLY");
428 if (AUTHTYPE_NAME_OK(pointer[2]))
429 fprintf(NetTrace, "%s ", AUTHTYPE_NAME(pointer[2]));
430 else
431 fprintf(NetTrace, "%d ", pointer[2]);
432 if (length < 3) {
433 fprintf(NetTrace, "(partial suboption??\?)");
434 break;
436 fprintf(NetTrace, "%s|%s",
437 ((pointer[3] & AUTH_WHO_MASK) == AUTH_WHO_CLIENT) ?
438 "CLIENT" : "SERVER",
439 ((pointer[3] & AUTH_HOW_MASK) == AUTH_HOW_MUTUAL) ?
440 "MUTUAL" : "ONE-WAY");
442 auth_printsub(&pointer[1], length - 1, buf, sizeof(buf));
443 fprintf(NetTrace, "%s", buf);
444 break;
446 case TELQUAL_SEND:
447 i = 2;
448 fprintf(NetTrace, " SEND ");
449 while (i < length) {
450 if (AUTHTYPE_NAME_OK(pointer[i]))
451 fprintf(NetTrace, "%s ", AUTHTYPE_NAME(pointer[i]));
452 else
453 fprintf(NetTrace, "%d ", pointer[i]);
454 if (++i >= length) {
455 fprintf(NetTrace, "(partial suboption??\?)");
456 break;
458 fprintf(NetTrace, "%s|%s ",
459 ((pointer[i] & AUTH_WHO_MASK) == AUTH_WHO_CLIENT) ?
460 "CLIENT" : "SERVER",
461 ((pointer[i] & AUTH_HOW_MASK) == AUTH_HOW_MUTUAL) ?
462 "MUTUAL" : "ONE-WAY");
463 ++i;
465 break;
467 case TELQUAL_NAME:
468 i = 2;
469 fprintf(NetTrace, " NAME \"");
470 while (i < length)
471 putc(pointer[i++], NetTrace);
472 putc('"', NetTrace);
473 break;
475 default:
476 for (i = 2; i < length; i++)
477 fprintf(NetTrace, " ?%d?", pointer[i]);
478 break;
480 break;
481 #endif
483 #ifdef ENCRYPTION
484 case TELOPT_ENCRYPT:
485 fprintf(NetTrace, "ENCRYPT");
486 if (length < 2) {
487 fprintf(NetTrace, " (empty suboption??\?)");
488 break;
490 switch (pointer[1]) {
491 case ENCRYPT_START:
492 fprintf(NetTrace, " START");
493 break;
495 case ENCRYPT_END:
496 fprintf(NetTrace, " END");
497 break;
499 case ENCRYPT_REQSTART:
500 fprintf(NetTrace, " REQUEST-START");
501 break;
503 case ENCRYPT_REQEND:
504 fprintf(NetTrace, " REQUEST-END");
505 break;
507 case ENCRYPT_IS:
508 case ENCRYPT_REPLY:
509 fprintf(NetTrace, " %s ", (pointer[1] == ENCRYPT_IS) ?
510 "IS" : "REPLY");
511 if (length < 3) {
512 fprintf(NetTrace, " (partial suboption??\?)");
513 break;
515 if (ENCTYPE_NAME_OK(pointer[2]))
516 fprintf(NetTrace, "%s ", ENCTYPE_NAME(pointer[2]));
517 else
518 fprintf(NetTrace, " %d (unknown)", pointer[2]);
520 encrypt_printsub(&pointer[1], length - 1, buf, sizeof(buf));
521 fprintf(NetTrace, "%s", buf);
522 break;
524 case ENCRYPT_SUPPORT:
525 i = 2;
526 fprintf(NetTrace, " SUPPORT ");
527 while (i < length) {
528 if (ENCTYPE_NAME_OK(pointer[i]))
529 fprintf(NetTrace, "%s ", ENCTYPE_NAME(pointer[i]));
530 else
531 fprintf(NetTrace, "%d ", pointer[i]);
532 i++;
534 break;
536 case ENCRYPT_ENC_KEYID:
537 fprintf(NetTrace, " ENC_KEYID ");
538 goto encommon;
540 case ENCRYPT_DEC_KEYID:
541 fprintf(NetTrace, " DEC_KEYID ");
542 goto encommon;
544 default:
545 fprintf(NetTrace, " %d (unknown)", pointer[1]);
546 encommon:
547 for (i = 2; i < length; i++)
548 fprintf(NetTrace, " %d", pointer[i]);
549 break;
551 break;
552 #endif /* ENCRYPTION */
554 case TELOPT_LINEMODE:
555 fprintf(NetTrace, "LINEMODE ");
556 if (length < 2) {
557 fprintf(NetTrace, " (empty suboption??\?)");
558 break;
560 switch (pointer[1]) {
561 case WILL:
562 fprintf(NetTrace, "WILL ");
563 goto common;
564 case WONT:
565 fprintf(NetTrace, "WONT ");
566 goto common;
567 case DO:
568 fprintf(NetTrace, "DO ");
569 goto common;
570 case DONT:
571 fprintf(NetTrace, "DONT ");
572 common:
573 if (length < 3) {
574 fprintf(NetTrace, "(no option??\?)");
575 break;
577 switch (pointer[2]) {
578 case LM_FORWARDMASK:
579 fprintf(NetTrace, "Forward Mask");
580 for (i = 3; i < length; i++)
581 fprintf(NetTrace, " %x", pointer[i]);
582 break;
583 default:
584 fprintf(NetTrace, "%d (unknown)", pointer[2]);
585 for (i = 3; i < length; i++)
586 fprintf(NetTrace, " %d", pointer[i]);
587 break;
589 break;
591 case LM_SLC:
592 fprintf(NetTrace, "SLC");
593 for (i = 2; i < length - 2; i += 3) {
594 if (SLC_NAME_OK(pointer[i+SLC_FUNC]))
595 fprintf(NetTrace, " %s", SLC_NAME(pointer[i+SLC_FUNC]));
596 else
597 fprintf(NetTrace, " %d", pointer[i+SLC_FUNC]);
598 switch (pointer[i+SLC_FLAGS]&SLC_LEVELBITS) {
599 case SLC_NOSUPPORT:
600 fprintf(NetTrace, " NOSUPPORT"); break;
601 case SLC_CANTCHANGE:
602 fprintf(NetTrace, " CANTCHANGE"); break;
603 case SLC_VARIABLE:
604 fprintf(NetTrace, " VARIABLE"); break;
605 case SLC_DEFAULT:
606 fprintf(NetTrace, " DEFAULT"); break;
608 fprintf(NetTrace, "%s%s%s",
609 pointer[i+SLC_FLAGS]&SLC_ACK ? "|ACK" : "",
610 pointer[i+SLC_FLAGS]&SLC_FLUSHIN ? "|FLUSHIN" : "",
611 pointer[i+SLC_FLAGS]&SLC_FLUSHOUT ? "|FLUSHOUT" : "");
612 if (pointer[i+SLC_FLAGS]& ~(SLC_ACK|SLC_FLUSHIN|
613 SLC_FLUSHOUT| SLC_LEVELBITS))
614 fprintf(NetTrace, "(0x%x)", pointer[i+SLC_FLAGS]);
615 fprintf(NetTrace, " %d;", pointer[i+SLC_VALUE]);
616 if ((pointer[i+SLC_VALUE] == IAC) &&
617 (pointer[i+SLC_VALUE+1] == IAC))
618 i++;
620 for (; i < length; i++)
621 fprintf(NetTrace, " ?%d?", pointer[i]);
622 break;
624 case LM_MODE:
625 fprintf(NetTrace, "MODE ");
626 if (length < 3) {
627 fprintf(NetTrace, "(no mode??\?)");
628 break;
631 char tbuf[64];
632 sprintf(tbuf, "%s%s%s%s%s",
633 pointer[2]&MODE_EDIT ? "|EDIT" : "",
634 pointer[2]&MODE_TRAPSIG ? "|TRAPSIG" : "",
635 pointer[2]&MODE_SOFT_TAB ? "|SOFT_TAB" : "",
636 pointer[2]&MODE_LIT_ECHO ? "|LIT_ECHO" : "",
637 pointer[2]&MODE_ACK ? "|ACK" : "");
638 fprintf(NetTrace, "%s", tbuf[1] ? &tbuf[1] : "0");
640 if (pointer[2]&~(MODE_MASK))
641 fprintf(NetTrace, " (0x%x)", pointer[2]);
642 for (i = 3; i < length; i++)
643 fprintf(NetTrace, " ?0x%x?", pointer[i]);
644 break;
645 default:
646 fprintf(NetTrace, "%d (unknown)", pointer[1]);
647 for (i = 2; i < length; i++)
648 fprintf(NetTrace, " %d", pointer[i]);
650 break;
652 case TELOPT_STATUS: {
653 const char *cp;
654 int j, k;
656 fprintf(NetTrace, "STATUS");
658 switch (pointer[1]) {
659 default:
660 if (pointer[1] == TELQUAL_SEND)
661 fprintf(NetTrace, " SEND");
662 else
663 fprintf(NetTrace, " %d (unknown)", pointer[1]);
664 for (i = 2; i < length; i++)
665 fprintf(NetTrace, " ?%d?", pointer[i]);
666 break;
667 case TELQUAL_IS:
668 if (--want_status_response < 0)
669 want_status_response = 0;
670 if (NetTrace == stdout)
671 fprintf(NetTrace, " IS\r\n");
672 else
673 fprintf(NetTrace, " IS\n");
675 for (i = 2; i < length; i++) {
676 switch(pointer[i]) {
677 case DO: cp = "DO"; goto common2;
678 case DONT: cp = "DONT"; goto common2;
679 case WILL: cp = "WILL"; goto common2;
680 case WONT: cp = "WONT"; goto common2;
681 common2:
682 i++;
683 if (TELOPT_OK((int)pointer[i]))
684 fprintf(NetTrace, " %s %s", cp, TELOPT(pointer[i]));
685 else
686 fprintf(NetTrace, " %s %d", cp, pointer[i]);
688 if (NetTrace == stdout)
689 fprintf(NetTrace, "\r\n");
690 else
691 fprintf(NetTrace, "\n");
692 break;
694 case SB:
695 fprintf(NetTrace, " SB ");
696 i++;
697 j = k = i;
698 while (j < length) {
699 if (pointer[j] == SE) {
700 if (j+1 == length)
701 break;
702 if (pointer[j+1] == SE)
703 j++;
704 else
705 break;
707 pointer[k++] = pointer[j++];
709 printsub(0, &pointer[i], k - i);
710 if (i < length) {
711 fprintf(NetTrace, " SE");
712 i = j;
713 } else
714 i = j - 1;
716 if (NetTrace == stdout)
717 fprintf(NetTrace, "\r\n");
718 else
719 fprintf(NetTrace, "\n");
721 break;
723 default:
724 fprintf(NetTrace, " %d", pointer[i]);
725 break;
728 break;
730 break;
733 case TELOPT_XDISPLOC:
734 fprintf(NetTrace, "X-DISPLAY-LOCATION ");
735 switch (pointer[1]) {
736 case TELQUAL_IS:
737 fprintf(NetTrace, "IS \"%.*s\"", length-2, (char *)pointer+2);
738 break;
739 case TELQUAL_SEND:
740 fprintf(NetTrace, "SEND");
741 break;
742 default:
743 fprintf(NetTrace, "- unknown qualifier %d (0x%x).",
744 pointer[1], pointer[1]);
746 break;
748 case TELOPT_NEW_ENVIRON:
749 fprintf(NetTrace, "NEW-ENVIRON ");
750 #ifdef OLD_ENVIRON
751 goto env_common1;
752 case TELOPT_OLD_ENVIRON:
753 fprintf(NetTrace, "OLD-ENVIRON");
754 env_common1:
755 #endif
756 switch (pointer[1]) {
757 case TELQUAL_IS:
758 fprintf(NetTrace, "IS ");
759 goto env_common;
760 case TELQUAL_SEND:
761 fprintf(NetTrace, "SEND ");
762 goto env_common;
763 case TELQUAL_INFO:
764 fprintf(NetTrace, "INFO ");
765 env_common:
767 int noquote = 2;
768 #if defined(ENV_HACK) && defined(OLD_ENVIRON)
769 extern int old_env_var, old_env_value;
770 #endif
771 for (i = 2; i < length; i++ ) {
772 switch (pointer[i]) {
773 case NEW_ENV_VALUE:
774 #ifdef OLD_ENVIRON
775 /* case NEW_ENV_OVAR: */
776 if (pointer[0] == TELOPT_OLD_ENVIRON) {
777 # ifdef ENV_HACK
778 if (old_env_var == OLD_ENV_VALUE)
779 fprintf(NetTrace, "\" (VALUE) " + noquote);
780 else
781 # endif
782 fprintf(NetTrace, "\" VAR " + noquote);
783 } else
784 #endif /* OLD_ENVIRON */
785 fprintf(NetTrace, "\" VALUE " + noquote);
786 noquote = 2;
787 break;
789 case NEW_ENV_VAR:
790 #ifdef OLD_ENVIRON
791 /* case OLD_ENV_VALUE: */
792 if (pointer[0] == TELOPT_OLD_ENVIRON) {
793 # ifdef ENV_HACK
794 if (old_env_value == OLD_ENV_VAR)
795 fprintf(NetTrace, "\" (VAR) " + noquote);
796 else
797 # endif
798 fprintf(NetTrace, "\" VALUE " + noquote);
799 } else
800 #endif /* OLD_ENVIRON */
801 fprintf(NetTrace, "\" VAR " + noquote);
802 noquote = 2;
803 break;
805 case ENV_ESC:
806 fprintf(NetTrace, "\" ESC " + noquote);
807 noquote = 2;
808 break;
810 case ENV_USERVAR:
811 fprintf(NetTrace, "\" USERVAR " + noquote);
812 noquote = 2;
813 break;
815 default:
816 if (isprint(pointer[i]) && pointer[i] != '"') {
817 if (noquote) {
818 putc('"', NetTrace);
819 noquote = 0;
821 putc(pointer[i], NetTrace);
822 } else {
823 fprintf(NetTrace, "\" %03o " + noquote,
824 pointer[i]);
825 noquote = 2;
827 break;
830 if (!noquote)
831 putc('"', NetTrace);
832 break;
835 break;
837 default:
838 if (TELOPT_OK(pointer[0]))
839 fprintf(NetTrace, "%s (unknown)", TELOPT(pointer[0]));
840 else
841 fprintf(NetTrace, "%d (unknown)", pointer[0]);
842 for (i = 1; i < length; i++)
843 fprintf(NetTrace, " %d", pointer[i]);
844 break;
846 if (direction) {
847 if (NetTrace == stdout)
848 fprintf(NetTrace, "\r\n");
849 else
850 fprintf(NetTrace, "\n");
852 if (NetTrace == stdout)
853 fflush(NetTrace);
857 /* EmptyTerminal - called to make sure that the terminal buffer is empty.
858 * Note that we consider the buffer to run all the
859 * way to the kernel (thus the select).
862 static void
863 EmptyTerminal(void)
865 fd_set o;
867 FD_ZERO(&o);
869 if (TTYBYTES() == 0) {
870 FD_SET(tout, &o);
871 (void) select(tout+1, (fd_set *) 0, &o, (fd_set *) 0,
872 (struct timeval *) 0); /* wait for TTLOWAT */
873 } else {
874 while (TTYBYTES()) {
875 (void) ttyflush(0);
876 FD_SET(tout, &o);
877 (void) select(tout+1, (fd_set *) 0, &o, (fd_set *) 0,
878 (struct timeval *) 0); /* wait for TTLOWAT */
883 static void
884 SetForExit(void)
886 setconnmode(0);
887 do {
888 (void)telrcv(); /* Process any incoming data */
889 EmptyTerminal();
890 } while (ring_full_count(&netiring)); /* While there is any */
891 setcommandmode();
892 fflush(stdout);
893 fflush(stderr);
894 setconnmode(0);
895 EmptyTerminal(); /* Flush the path to the tty */
896 setcommandmode();
899 void
900 Exit(int returnCode)
902 SetForExit();
903 exit(returnCode);
906 void
907 ExitString(const char *string, int returnCode)
909 SetForExit();
910 fwrite(string, 1, strlen(string), stderr);
911 exit(returnCode);