开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Internet/网络编程 > 代理服务器 > 查看源码
utilities.c
资源名称：socks5.zip　[点击查看]
上传用户：sddyfurun
上传日期：2007-01-04
资源大小：525k
文件大小：19k
源码类别：

代理服务器

开发平台：

Unix_Linux

utilities.c：源码内容
  1. /*
  2.  * Copyright (c) 1988, 1993
  3.  * The Regents of the University of California.  All rights reserved.
  4.  *
  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.
  20.  *
  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.
  32.  */
  34. #ifdef SHOW_SCCIDS
  35. static char sccsid[] = "@(#)utilities.c 8.3 (Berkeley) 5/30/95";
  36. #endif
  38. #define TELOPTS
  39. #define TELCMDS
  40. #define SLC_NAMES
  41. #include <arpa/telnet.h>
  42. #include <sys/types.h>
  43. #include <sys/time.h>
  45. #include <ctype.h>
  47. #include "general.h"
  48. #include "ring.h"
  49. #include "defines.h"
  50. #include "externs.h"
  51. #include "fdset.h"
  54. FILE *NetTrace = 0; /* Not in bss, since needs to stay */
  55. int prettydump;
  57. /* upcase():  Upcase (in place) the argument.                                */
  58. void upcase(register char *argument) {
  59.     register int c;
  61.     while ((c = *argument) != 0) {
  62. if (islower(c)) {
  63.     *argument = toupper(c);
  64. }
  65. argument++;
  66.     }
  67. }
  69. /* SetSockOpt(): Compensate for differences in 4.2 and 4.3 systems.          */
  70. int SetSockOpt(int fd, int level, int option, int yesno) {
  71. #ifndef NOT43
  72.     return setsockopt(fd, level, option, (char *)&yesno, sizeof yesno);
  73. #else /* NOT43 */
  74.     if (yesno == 0) { /* Can't do that in 4.2! */
  75. fprintf(stderr, "Error: attempt to turn off an option 0x%x.n", option);
  76. return -1;
  77.     }
  79.     return setsockopt(fd, level, option, 0, 0);
  80. #endif /* NOT43 */
  81. }
  84. /*  * The following are routines used to print out debugging information.    */
  85. unsigned char NetTraceFile[256] = "(standard output)";
  87. void SetNetTrace(register char *file) {
  88.     if (NetTrace && NetTrace != stdout)
  89. fclose(NetTrace);
  90.     if (file  && (strcmp(file, "-") != 0)) {
  91. NetTrace = fopen(file, "w");
  92. if (NetTrace) {
  93.     strcpy((char *)NetTraceFile, file);
  94.     return;
  95. }
  96. fprintf(stderr, "Cannot open %s.n", file);
  97.     }
  98.     NetTrace = stdout;
  99.     strcpy((char *)NetTraceFile, "(standard output)");
  100. }
  102. void Dump(char direction, unsigned char *buffer, int length) {
  103. #   define BYTES_PER_LINE 32
  104. #   define min(x,y) ((x<y)? x:y)
  105.     unsigned char *pThis;
  106.     int offset;
  108.     offset = 0;
  110.     while (length) {
  111. /* print one line */
  112. fprintf(NetTrace, "%c 0x%xt", direction, offset);
  113. pThis = buffer;
  114. if (prettydump) {
  115.     buffer = buffer + min(length, BYTES_PER_LINE/2);
  116.     while (pThis < buffer) {
  117. fprintf(NetTrace, "%c%.2x",
  118.     (((*pThis)&0xff) == 0xff) ? '*' : ' ',
  119.     (*pThis)&0xff);
  120. pThis++;
  121.     }
  122.     length -= BYTES_PER_LINE/2;
  123.     offset += BYTES_PER_LINE/2;
  124. } else {
  125.     buffer = buffer + min(length, BYTES_PER_LINE);
  126.     while (pThis < buffer) {
  127. fprintf(NetTrace, "%.2x", (*pThis)&0xff);
  128. pThis++;
  129.     }
  130.     length -= BYTES_PER_LINE;
  131.     offset += BYTES_PER_LINE;
  132. }
  133. if (NetTrace == stdout) {
  134.     fprintf(NetTrace, "rn");
  135. } else {
  136.     fprintf(NetTrace, "n");
  137. }
  138. if (length < 0) {
  139.     fflush(NetTrace);
  140.     return;
  141. }
  142. /* find next unique line */
  143.     }
  144.     fflush(NetTrace);
  145. }
  148. void printoption(char *direction, int cmd, int option) {
  149.     if (!showoptions) return;
  151.     if (cmd == IAC) {
  152. if (TELCMD_OK(option))
  153.     fprintf(NetTrace, "%s IAC %s", direction, TELCMD(option));
  154. else
  155.     fprintf(NetTrace, "%s IAC %d", direction, option);
  156.     } else {
  157. register char *fmt;
  158. fmt = (cmd == WILL) ? "WILL" : (cmd == WONT) ? "WONT" :
  159.     (cmd == DO) ? "DO" : (cmd == DONT) ? "DONT" : 0;
  160. if (fmt) {
  161.     fprintf(NetTrace, "%s %s ", direction, fmt);
  162.     if (TELOPT_OK(option))
  163. fprintf(NetTrace, "%s", TELOPT(option));
  164.     else if (option == TELOPT_EXOPL)
  165. fprintf(NetTrace, "EXOPL");
  166.     else
  167. fprintf(NetTrace, "%d", option);
  168. } else
  169.     fprintf(NetTrace, "%s %d %d", direction, cmd, option);
  170.     }
  172.     if (NetTrace == stdout) {
  173. fprintf(NetTrace, "rn");
  174. fflush(NetTrace);
  175.     } else {
  176. fprintf(NetTrace, "n");
  177.     }
  179.     return;
  180. }
  182. void optionstatus() {
  183.     register int i;
  184.     extern char will_wont_resp[], do_dont_resp[];
  186.     for (i = 0; i < 256; i++) {
  187. if (do_dont_resp[i]) {
  188.     if (TELOPT_OK(i))
  189. printf("resp DO_DONT %s: %dn", TELOPT(i), do_dont_resp[i]);
  190.     else if (TELCMD_OK(i))
  191. printf("resp DO_DONT %s: %dn", TELCMD(i), do_dont_resp[i]);
  192.     else
  193. printf("resp DO_DONT %d: %dn", i,
  194. do_dont_resp[i]);
  195.     if (my_want_state_is_do(i)) {
  196. if (TELOPT_OK(i))
  197.     printf("want DO   %sn", TELOPT(i));
  198. else if (TELCMD_OK(i))
  199.     printf("want DO   %sn", TELCMD(i));
  200. else
  201.     printf("want DO   %dn", i);
  202.     } else {
  203. if (TELOPT_OK(i))
  204.     printf("want DONT %sn", TELOPT(i));
  205. else if (TELCMD_OK(i))
  206.     printf("want DONT %sn", TELCMD(i));
  207. else
  208.     printf("want DONT %dn", i);
  209.     }
  210. } else {
  211.     if (my_state_is_do(i)) {
  212. if (TELOPT_OK(i))
  213.     printf("     DO   %sn", TELOPT(i));
  214. else if (TELCMD_OK(i))
  215.     printf("     DO   %sn", TELCMD(i));
  216. else
  217.     printf("     DO   %dn", i);
  218.     }
  219. }
  220. if (will_wont_resp[i]) {
  221.     if (TELOPT_OK(i))
  222. printf("resp WILL_WONT %s: %dn", TELOPT(i), will_wont_resp[i]);
  223.     else if (TELCMD_OK(i))
  224. printf("resp WILL_WONT %s: %dn", TELCMD(i), will_wont_resp[i]);
  225.     else
  226. printf("resp WILL_WONT %d: %dn",
  227. i, will_wont_resp[i]);
  228.     if (my_want_state_is_will(i)) {
  229. if (TELOPT_OK(i))
  230.     printf("want WILL %sn", TELOPT(i));
  231. else if (TELCMD_OK(i))
  232.     printf("want WILL %sn", TELCMD(i));
  233. else
  234.     printf("want WILL %dn", i);
  235.     } else {
  236. if (TELOPT_OK(i))
  237.     printf("want WONT %sn", TELOPT(i));
  238. else if (TELCMD_OK(i))
  239.     printf("want WONT %sn", TELCMD(i));
  240. else
  241.     printf("want WONT %dn", i);
  242.     }
  243. } else {
  244.     if (my_state_is_will(i)) {
  245. if (TELOPT_OK(i))
  246.     printf("     WILL %sn", TELOPT(i));
  247. else if (TELCMD_OK(i))
  248.     printf("     WILL %sn", TELCMD(i));
  249. else
  250.     printf("     WILL %dn", i);
  251.     }
  252. }
  253.     }
  255. }
  257. void printsub(char direction, unsigned char *pointer, int length) {
  258.     register int i;
  259.     extern int want_status_response;
  261.     if (showoptions || direction == 0 ||
  262. (want_status_response && (pointer[0] == TELOPT_STATUS))) {
  263. if (direction) {
  264.     fprintf(NetTrace, "%s IAC SB ",
  265. (direction == '<')? "RCVD":"SENT");
  266.     if (length >= 3) {
  267. register int j;
  269. i = pointer[length-2];
  270. j = pointer[length-1];
  272. if (i != IAC || j != SE) {
  273.     fprintf(NetTrace, "(terminated by ");
  274.     if (TELOPT_OK(i))
  275. fprintf(NetTrace, "%s ", TELOPT(i));
  276.     else if (TELCMD_OK(i))
  277. fprintf(NetTrace, "%s ", TELCMD(i));
  278.     else
  279. fprintf(NetTrace, "%d ", i);
  280.     if (TELOPT_OK(j))
  281. fprintf(NetTrace, "%s", TELOPT(j));
  282.     else if (TELCMD_OK(j))
  283. fprintf(NetTrace, "%s", TELCMD(j));
  284.     else
  285. fprintf(NetTrace, "%d", j);
  286.     fprintf(NetTrace, ", not IAC SE!) ");
  287. }
  288.     }
  289.     length -= 2;
  290. }
  291. if (length < 1) {
  292.     fprintf(NetTrace, "(Empty suboption???)");
  293.     if (NetTrace == stdout)
  294. fflush(NetTrace);
  295.     return;
  296. }
  297. switch (pointer[0]) {
  298. case TELOPT_TTYPE:
  299.     fprintf(NetTrace, "TERMINAL-TYPE ");
  300.     switch (pointer[1]) {
  301.     case TELQUAL_IS:
  302. fprintf(NetTrace, "IS "%.*s"", length-2, (char *)pointer+2);
  303. break;
  304.     case TELQUAL_SEND:
  305. fprintf(NetTrace, "SEND");
  306. break;
  307.     default:
  308. fprintf(NetTrace,
  309. "- unknown qualifier %d (0x%x).",
  310. pointer[1], pointer[1]);
  311.     }
  312.     break;
  313. case TELOPT_TSPEED:
  314.     fprintf(NetTrace, "TERMINAL-SPEED");
  315.     if (length < 2) {
  316. fprintf(NetTrace, " (empty suboption???)");
  317. break;
  318.     }
  319.     switch (pointer[1]) {
  320.     case TELQUAL_IS:
  321. fprintf(NetTrace, " IS ");
  322. fprintf(NetTrace, "%.*s", length-2, (char *)pointer+2);
  323. break;
  324.     default:
  325. if (pointer[1] == 1)
  326.     fprintf(NetTrace, " SEND");
  327. else
  328.     fprintf(NetTrace, " %d (unknown)", pointer[1]);
  329. for (i = 2; i < length; i++)
  330.     fprintf(NetTrace, " ?%d?", pointer[i]);
  331. break;
  332.     }
  333.     break;
  335. case TELOPT_LFLOW:
  336.     fprintf(NetTrace, "TOGGLE-FLOW-CONTROL");
  337.     if (length < 2) {
  338. fprintf(NetTrace, " (empty suboption???)");
  339. break;
  340.     }
  341.     switch (pointer[1]) {
  342.     case LFLOW_OFF:
  343. fprintf(NetTrace, " OFF"); break;
  344.     case LFLOW_ON:
  345. fprintf(NetTrace, " ON"); break;
  346.     case LFLOW_RESTART_ANY:
  347. fprintf(NetTrace, " RESTART-ANY"); break;
  348.     case LFLOW_RESTART_XON:
  349. fprintf(NetTrace, " RESTART-XON"); break;
  350.     default:
  351. fprintf(NetTrace, " %d (unknown)", pointer[1]);
  352.     }
  353.     for (i = 2; i < length; i++)
  354. fprintf(NetTrace, " ?%d?", pointer[i]);
  355.     break;
  357. case TELOPT_NAWS:
  358.     fprintf(NetTrace, "NAWS");
  359.     if (length < 2) {
  360. fprintf(NetTrace, " (empty suboption???)");
  361. break;
  362.     }
  363.     if (length == 2) {
  364. fprintf(NetTrace, " ?%d?", pointer[1]);
  365. break;
  366.     }
  367.     fprintf(NetTrace, " %d %d (%d)",
  368. pointer[1], pointer[2],
  369. (int)((((unsigned int)pointer[1])<<8)|((unsigned int)pointer[2])));
  370.     if (length == 4) {
  371. fprintf(NetTrace, " ?%d?", pointer[3]);
  372. break;
  373.     }
  374.     fprintf(NetTrace, " %d %d (%d)",
  375. pointer[3], pointer[4],
  376. (int)((((unsigned int)pointer[3])<<8)|((unsigned int)pointer[4])));
  377.     for (i = 5; i < length; i++)
  378. fprintf(NetTrace, " ?%d?", pointer[i]);
  379.     break;
  383. case TELOPT_LINEMODE:
  384.     fprintf(NetTrace, "LINEMODE ");
  385.     if (length < 2) {
  386. fprintf(NetTrace, " (empty suboption???)");
  387. break;
  388.     }
  389.     switch (pointer[1]) {
  390.     case WILL:
  391. fprintf(NetTrace, "WILL ");
  392. goto common;
  393.     case WONT:
  394. fprintf(NetTrace, "WONT ");
  395. goto common;
  396.     case DO:
  397. fprintf(NetTrace, "DO ");
  398. goto common;
  399.     case DONT:
  400. fprintf(NetTrace, "DONT ");
  401.     common:
  402. if (length < 3) {
  403.     fprintf(NetTrace, "(no option???)");
  404.     break;
  405. }
  406. switch (pointer[2]) {
  407. case LM_FORWARDMASK:
  408.     fprintf(NetTrace, "Forward Mask");
  409.     for (i = 3; i < length; i++)
  410. fprintf(NetTrace, " %x", pointer[i]);
  411.     break;
  412. default:
  413.     fprintf(NetTrace, "%d (unknown)", pointer[2]);
  414.     for (i = 3; i < length; i++)
  415. fprintf(NetTrace, " %d", pointer[i]);
  416.     break;
  417. }
  418. break;
  420.     case LM_SLC:
  421. fprintf(NetTrace, "SLC");
  422. for (i = 2; i < length - 2; i += 3) {
  423.     if (SLC_NAME_OK(pointer[i+SLC_FUNC]))
  424. fprintf(NetTrace, " %s", SLC_NAME(pointer[i+SLC_FUNC]));
  425.     else
  426. fprintf(NetTrace, " %d", pointer[i+SLC_FUNC]);
  427.     switch (pointer[i+SLC_FLAGS]&SLC_LEVELBITS) {
  428.     case SLC_NOSUPPORT:
  429. fprintf(NetTrace, " NOSUPPORT"); break;
  430.     case SLC_CANTCHANGE:
  431. fprintf(NetTrace, " CANTCHANGE"); break;
  432.     case SLC_VARIABLE:
  433. fprintf(NetTrace, " VARIABLE"); break;
  434.     case SLC_DEFAULT:
  435. fprintf(NetTrace, " DEFAULT"); break;
  436.     }
  437.     fprintf(NetTrace, "%s%s%s",
  438. pointer[i+SLC_FLAGS]&SLC_ACK ? "|ACK" : "",
  439. pointer[i+SLC_FLAGS]&SLC_FLUSHIN ? "|FLUSHIN" : "",
  440. pointer[i+SLC_FLAGS]&SLC_FLUSHOUT ? "|FLUSHOUT" : "");
  441.     if (pointer[i+SLC_FLAGS]& ~(SLC_ACK|SLC_FLUSHIN|
  442. SLC_FLUSHOUT| SLC_LEVELBITS))
  443. fprintf(NetTrace, "(0x%x)", pointer[i+SLC_FLAGS]);
  444.     fprintf(NetTrace, " %d;", pointer[i+SLC_VALUE]);
  445.     if ((pointer[i+SLC_VALUE] == IAC) &&
  446. (pointer[i+SLC_VALUE+1] == IAC))
  447. i++;
  448. }
  449. for (; i < length; i++)
  450.     fprintf(NetTrace, " ?%d?", pointer[i]);
  451. break;
  453.     case LM_MODE:
  454. fprintf(NetTrace, "MODE ");
  455. if (length < 3) {
  456.     fprintf(NetTrace, "(no mode???)");
  457.     break;
  458. }
  459. {
  460.     char tbuf[64];
  461.     sprintf(tbuf, "%s%s%s%s%s",
  462. pointer[2]&MODE_EDIT ? "|EDIT" : "",
  463. pointer[2]&MODE_TRAPSIG ? "|TRAPSIG" : "",
  464. pointer[2]&MODE_SOFT_TAB ? "|SOFT_TAB" : "",
  465. pointer[2]&MODE_LIT_ECHO ? "|LIT_ECHO" : "",
  466. pointer[2]&MODE_ACK ? "|ACK" : "");
  467.     fprintf(NetTrace, "%s", tbuf[1] ? &tbuf[1] : "0");
  468. }
  469. if (pointer[2]&~(MODE_MASK))
  470.     fprintf(NetTrace, " (0x%x)", pointer[2]);
  471. for (i = 3; i < length; i++)
  472.     fprintf(NetTrace, " ?0x%x?", pointer[i]);
  473. break;
  474.     default:
  475. fprintf(NetTrace, "%d (unknown)", pointer[1]);
  476. for (i = 2; i < length; i++)
  477.     fprintf(NetTrace, " %d", pointer[i]);
  478.     }
  479.     break;
  481. case TELOPT_STATUS: {
  482.     register char *cp;
  483.     register int j, k;
  485.     fprintf(NetTrace, "STATUS");
  487.     switch (pointer[1]) {
  488.     default:
  489. if (pointer[1] == TELQUAL_SEND)
  490.     fprintf(NetTrace, " SEND");
  491. else
  492.     fprintf(NetTrace, " %d (unknown)", pointer[1]);
  493. for (i = 2; i < length; i++)
  494.     fprintf(NetTrace, " ?%d?", pointer[i]);
  495. break;
  496.     case TELQUAL_IS:
  497. if (--want_status_response < 0)
  498.     want_status_response = 0;
  499. if (NetTrace == stdout)
  500.     fprintf(NetTrace, " ISrn");
  501. else
  502.     fprintf(NetTrace, " ISn");
  504. for (i = 2; i < length; i++) {
  505.     switch(pointer[i]) {
  506.     case DO: cp = "DO"; goto common2;
  507.     case DONT: cp = "DONT"; goto common2;
  508.     case WILL: cp = "WILL"; goto common2;
  509.     case WONT: cp = "WONT"; goto common2;
  510.     common2:
  511. i++;
  512. if (TELOPT_OK((int)pointer[i]))
  513.     fprintf(NetTrace, " %s %s", cp, TELOPT(pointer[i]));
  514. else
  515.     fprintf(NetTrace, " %s %d", cp, pointer[i]);
  517. if (NetTrace == stdout)
  518.     fprintf(NetTrace, "rn");
  519. else
  520.     fprintf(NetTrace, "n");
  521. break;
  523.     case SB:
  524. fprintf(NetTrace, " SB ");
  525. i++;
  526. j = k = i;
  527. while (j < length) {
  528.     if (pointer[j] == SE) {
  529. if (j+1 == length)
  530.     break;
  531. if (pointer[j+1] == SE)
  532.     j++;
  533. else
  534.     break;
  535.     }
  536.     pointer[k++] = pointer[j++];
  537. }
  538. printsub(0, &pointer[i], k - i);
  539. if (i < length) {
  540.     fprintf(NetTrace, " SE");
  541.     i = j;
  542. } else
  543.     i = j - 1;
  545. if (NetTrace == stdout)
  546.     fprintf(NetTrace, "rn");
  547. else
  548.     fprintf(NetTrace, "n");
  550. break;
  552.     default:
  553. fprintf(NetTrace, " %d", pointer[i]);
  554. break;
  555.     }
  556. }
  557. break;
  558.     }
  559.     break;
  560.   }
  562. case TELOPT_XDISPLOC:
  563.     fprintf(NetTrace, "X-DISPLAY-LOCATION ");
  564.     switch (pointer[1]) {
  565.     case TELQUAL_IS:
  566. fprintf(NetTrace, "IS "%.*s"", length-2, (char *)pointer+2);
  567. break;
  568.     case TELQUAL_SEND:
  569. fprintf(NetTrace, "SEND");
  570. break;
  571.     default:
  572. fprintf(NetTrace, "- unknown qualifier %d (0x%x).",
  573. pointer[1], pointer[1]);
  574.     }
  575.     break;
  577. case TELOPT_NEW_ENVIRON:
  578.     fprintf(NetTrace, "NEW-ENVIRON ");
  579. #ifdef OLD_ENVIRON
  580.     goto env_common1;
  581. case TELOPT_OLD_ENVIRON:
  582.     fprintf(NetTrace, "OLD-ENVIRON");
  583. env_common1:
  584. #endif
  585.     switch (pointer[1]) {
  586.     case TELQUAL_IS:
  587. fprintf(NetTrace, "IS ");
  588. goto env_common;
  589.     case TELQUAL_SEND:
  590. fprintf(NetTrace, "SEND ");
  591. goto env_common;
  592.     case TELQUAL_INFO:
  593. fprintf(NetTrace, "INFO ");
  594.     env_common:
  595. {
  596.     register int noquote = 2;
  597. #if defined(ENV_HACK) && defined(OLD_ENVIRON)
  598.     extern int old_env_var, old_env_value;
  599. #endif
  600.     for (i = 2; i < length; i++ ) {
  601. switch (pointer[i]) {
  602. case NEW_ENV_VALUE:
  603. #ifdef OLD_ENVIRON
  604.      /* case NEW_ENV_OVAR: */
  605.     if (pointer[0] == TELOPT_OLD_ENVIRON) {
  606. # ifdef ENV_HACK
  607. if (old_env_var == OLD_ENV_VALUE)
  608.     fprintf(NetTrace, "" (VALUE) " + noquote);
  609. else
  610. # endif
  611.     fprintf(NetTrace, "" VAR " + noquote);
  612.     } else
  613. #endif /* OLD_ENVIRON */
  614. fprintf(NetTrace, "" VALUE " + noquote);
  615.     noquote = 2;
  616.     break;
  618. case NEW_ENV_VAR:
  619. #ifdef OLD_ENVIRON
  620.      /* case OLD_ENV_VALUE: */
  621.     if (pointer[0] == TELOPT_OLD_ENVIRON) {
  622. # ifdef ENV_HACK
  623. if (old_env_value == OLD_ENV_VAR)
  624.     fprintf(NetTrace, "" (VAR) " + noquote);
  625. else
  626. # endif
  627.     fprintf(NetTrace, "" VALUE " + noquote);
  628.     } else
  629. #endif /* OLD_ENVIRON */
  630. fprintf(NetTrace, "" VAR " + noquote);
  631.     noquote = 2;
  632.     break;
  634. case ENV_ESC:
  635.     fprintf(NetTrace, "" ESC " + noquote);
  636.     noquote = 2;
  637.     break;
  639. case ENV_USERVAR:
  640.     fprintf(NetTrace, "" USERVAR " + noquote);
  641.     noquote = 2;
  642.     break;
  644. default:
  645.     if (isprint(pointer[i]) && pointer[i] != '"') {
  646. if (noquote) {
  647.     putc('"', NetTrace);
  648.     noquote = 0;
  649. }
  650. putc(pointer[i], NetTrace);
  651.     } else {
  652. fprintf(NetTrace, "" %03o " + noquote,
  653. pointer[i]);
  654. noquote = 2;
  655.     }
  656.     break;
  657. }
  658.     }
  659.     if (!noquote)
  660. putc('"', NetTrace);
  661.     break;
  662. }
  663.     }
  664.     break;
  666. default:
  667.     if (TELOPT_OK(pointer[0]))
  668. fprintf(NetTrace, "%s (unknown)", TELOPT(pointer[0]));
  669.     else
  670. fprintf(NetTrace, "%d (unknown)", pointer[0]);
  671.     for (i = 1; i < length; i++)
  672. fprintf(NetTrace, " %d", pointer[i]);
  673.     break;
  674. }
  675. if (direction) {
  676.     if (NetTrace == stdout)
  677. fprintf(NetTrace, "rn");
  678.     else
  679. fprintf(NetTrace, "n");
  680. }
  681. if (NetTrace == stdout)
  682.     fflush(NetTrace);
  683.     }
  684. }
  686. /* EmptyTerminal - called to make sure that the terminal buffer is empty.
  687.  * Note that we consider the buffer to run all the
  688.  * way to the kernel (thus the select).
  689.  */
  691. void EmptyTerminal() {
  692.     fd_set o;
  694.     FD_ZERO(&o);
  696.     if (TTYBYTES() == 0) {
  697. FD_SET(tout, &o);
  698. (void) select(tout+1, (fd_set *) 0, &o, (fd_set *) 0,
  699. (struct timeval *) 0); /* wait for TTLOWAT */
  700.     } else {
  701. while (TTYBYTES()) {
  702.     (void) ttyflush(0);
  703.     FD_SET(tout, &o);
  704.     (void) select(tout+1, (fd_set *) 0, &o, (fd_set *) 0,
  705. (struct timeval *) 0); /* wait for TTLOWAT */
  706. }
  707.     }
  708. }
  710. void SetForExit() {
  711.     setconnmode(0);
  712. #ifdef TN3270
  713.     if (In3270) {
  714. Finish3270();
  715.     }
  716. #else /* defined(TN3270) */
  717.     do {
  718. (void)telrcv(); /* Process any incoming data */
  719. EmptyTerminal();
  720.     } while (ring_full_count(&netiring)); /* While there is any */
  721. #endif /* defined(TN3270) */
  722.     setcommandmode();
  723.     fflush(stdout);
  724.     fflush(stderr);
  725. #ifdef TN3270
  726.     if (In3270) {
  727. StopScreen(1);
  728.     }
  729. #endif /* defined(TN3270) */
  730.     setconnmode(0);
  731.     EmptyTerminal(); /* Flush the path to the tty */
  732.     setcommandmode();
  733. }
  735. void Exit(int returnCode) {
  736.     SetForExit();
  737.     exit(returnCode);
  738. }
  740. void ExitString(char *string, int returnCode) {
  741.     SetForExit();
  742.     fwrite(string, 1, strlen(string), stderr);
  743.     exit(returnCode);
  744. }