text: /*	$NetBSD: utilities.c,v 1.7 1998/03/04 13:51:58 christos Exp $	*/
  
  /*
   * Copyright (c) 1988, 1993
   *	The Regents of the University of California.  All rights reserved.
   *
   * Redistribution and use in source and binary forms, with or without
   * modification, are permitted provided that the following conditions
   * are met:
   * 1. Redistributions of source code must retain the above copyright
   *    notice, this list of conditions and the following disclaimer.
   * 2. Redistributions in binary form must reproduce the above copyright
   *    notice, this list of conditions and the following disclaimer in the
   *    documentation and/or other materials provided with the distribution.
   * 3. All advertising materials mentioning features or use of this software
   *    must display the following acknowledgement:
   *	This product includes software developed by the University of
   *	California, Berkeley and its contributors.
   * 4. Neither the name of the University nor the names of its contributors
   *    may be used to endorse or promote products derived from this software
   *    without specific prior written permission.
   *
   * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
   * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
   * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
   * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
   * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
   * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
   * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
   * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
   * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
   * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
   * SUCH DAMAGE.
   */
  
  #include <sys/cdefs.h>
  #ifndef lint
  #if 0
  static char sccsid[] = "@(#)utilities.c	8.3 (Berkeley) 5/30/95";
  #else
  __RCSID("$NetBSD: utilities.c,v 1.7 1998/03/04 13:51:58 christos Exp $");
  #endif
  #endif /* not lint */
  
  #define	TELOPTS
  #define	TELCMDS
  #define	SLC_NAMES
  #include <arpa/telnet.h>
  #include <sys/types.h>
  #include <sys/time.h>
  #ifndef	NOT43
  #include <sys/socket.h>
  #endif
  #include <unistd.h>
  
  #include <ctype.h>
  
  #include "general.h"
  
  #include "fdset.h"
  
  #include "ring.h"
  
  #include "defines.h"
  
  #include "externs.h"
  
  #if defined(TN3270)
  #include "../sys_curses/telextrn.h"
  #endif
  
  FILE	*NetTrace = 0;		/* Not in bss, since needs to stay */
  int	prettydump;
  
  /*
   * upcase()
   *
   *	Upcase (in place) the argument.
   */
  
      void
  upcase(argument)
      register char *argument;
  {
      register int c;
  
      while ((c = *argument) != 0) {
  	if (islower(c)) {
  	    *argument = toupper(c);
  	}
  	argument++;
      }
  }
  
  /*
   * SetSockOpt()
   *
   * Compensate for differences in 4.2 and 4.3 systems.
   */
  
      int
  SetSockOpt(fd, level, option, yesno)
      int fd, level, option, yesno;
  {
  #ifndef	NOT43
      return setsockopt(fd, level, option,
  				(char *)&yesno, sizeof yesno);
  #else	/* NOT43 */
      if (yesno == 0) {		/* Can't do that in 4.2! */
  	fprintf(stderr, "Error: attempt to turn off an option 0x%x.\n",
  				option);
  	return -1;
      }
      return setsockopt(fd, level, option, 0, 0);
  #endif	/* NOT43 */
  }
  
  /*
   * The following are routines used to print out debugging information.
   */
  
  unsigned char NetTraceFile[256] = "(standard output)";
  
      void
  SetNetTrace(file)
      register char *file;
  {
      if (NetTrace && NetTrace != stdout)
  	fclose(NetTrace);
      if (file  && (strcmp(file, "-") != 0)) {
  	NetTrace = fopen(file, "w");
  	if (NetTrace) {
  	    strcpy((char *)NetTraceFile, file);
  	    return;
  	}
  	fprintf(stderr, "Cannot open %s.\n", file);
      }
      NetTrace = stdout;
      strcpy((char *)NetTraceFile, "(standard output)");
  }
  
      void
  Dump(direction, buffer, length)
      char direction;
      unsigned char *buffer;
      int length;
  {
  #   define BYTES_PER_LINE	32
  #   define min(x,y)	((x<y)? x:y)
      unsigned char *pThis;
      int offset;
  
      offset = 0;
  
      while (length) {
  	/* print one line */
  	fprintf(NetTrace, "%c 0x%x\t", direction, offset);
  	pThis = buffer;
  	if (prettydump) {
  	    buffer = buffer + min(length, BYTES_PER_LINE/2);
  	    while (pThis < buffer) {
  		fprintf(NetTrace, "%c%.2x",
  		    (((*pThis)&0xff) == 0xff) ? '*' : ' ',
  		    (*pThis)&0xff);
  		pThis++;
  	    }
  	    length -= BYTES_PER_LINE/2;
  	    offset += BYTES_PER_LINE/2;
  	} else {
  	    buffer = buffer + min(length, BYTES_PER_LINE);
  	    while (pThis < buffer) {
  		fprintf(NetTrace, "%.2x", (*pThis)&0xff);
  		pThis++;
  	    }
  	    length -= BYTES_PER_LINE;
  	    offset += BYTES_PER_LINE;
  	}
  	if (NetTrace == stdout) {
  	    fprintf(NetTrace, "\r\n");
  	} else {
  	    fprintf(NetTrace, "\n");
  	}
  	if (length < 0) {
  	    fflush(NetTrace);
  	    return;
  	}
  	/* find next unique line */
      }
      fflush(NetTrace);
  }
  
  
  	void
  printoption(direction, cmd, option)
  	char *direction;
  	int cmd, option;
  {
  	if (!showoptions)
  		return;
  	if (cmd == IAC) {
  		if (TELCMD_OK(option))
  		    fprintf(NetTrace, "%s IAC %s", direction, TELCMD(option));
  		else
  		    fprintf(NetTrace, "%s IAC %d", direction, option);
  	} else {
  		register char *fmt;
  		fmt = (cmd == WILL) ? "WILL" : (cmd == WONT) ? "WONT" :
  			(cmd == DO) ? "DO" : (cmd == DONT) ? "DONT" : 0;
  		if (fmt) {
  		    fprintf(NetTrace, "%s %s ", direction, fmt);
  		    if (TELOPT_OK(option))
  			fprintf(NetTrace, "%s", TELOPT(option));
  		    else if (option == TELOPT_EXOPL)
  			fprintf(NetTrace, "EXOPL");
  		    else
  			fprintf(NetTrace, "%d", option);
  		} else
  		    fprintf(NetTrace, "%s %d %d", direction, cmd, option);
  	}
  	if (NetTrace == stdout) {
  	    fprintf(NetTrace, "\r\n");
  	    fflush(NetTrace);
  	} else {
  	    fprintf(NetTrace, "\n");
  	}
  	return;
  }
  
      void
  optionstatus()
  {
      register int i;
      extern char will_wont_resp[], do_dont_resp[];
  
      for (i = 0; i < 256; i++) {
  	if (do_dont_resp[i]) {
  	    if (TELOPT_OK(i))
  		printf("resp DO_DONT %s: %d\n", TELOPT(i), do_dont_resp[i]);
  	    else if (TELCMD_OK(i))
  		printf("resp DO_DONT %s: %d\n", TELCMD(i), do_dont_resp[i]);
  	    else
  		printf("resp DO_DONT %d: %d\n", i,
  				do_dont_resp[i]);
  	    if (my_want_state_is_do(i)) {
  		if (TELOPT_OK(i))
  		    printf("want DO   %s\n", TELOPT(i));
  		else if (TELCMD_OK(i))
  		    printf("want DO   %s\n", TELCMD(i));
  		else
  		    printf("want DO   %d\n", i);
  	    } else {
  		if (TELOPT_OK(i))
  		    printf("want DONT %s\n", TELOPT(i));
  		else if (TELCMD_OK(i))
  		    printf("want DONT %s\n", TELCMD(i));
  		else
  		    printf("want DONT %d\n", i);
  	    }
  	} else {
  	    if (my_state_is_do(i)) {
  		if (TELOPT_OK(i))
  		    printf("     DO   %s\n", TELOPT(i));
  		else if (TELCMD_OK(i))
  		    printf("     DO   %s\n", TELCMD(i));
  		else
  		    printf("     DO   %d\n", i);
  	    }
  	}
  	if (will_wont_resp[i]) {
  	    if (TELOPT_OK(i))
  		printf("resp WILL_WONT %s: %d\n", TELOPT(i), will_wont_resp[i]);
  	    else if (TELCMD_OK(i))
  		printf("resp WILL_WONT %s: %d\n", TELCMD(i), will_wont_resp[i]);
  	    else
  		printf("resp WILL_WONT %d: %d\n",
  				i, will_wont_resp[i]);
  	    if (my_want_state_is_will(i)) {
  		if (TELOPT_OK(i))
  		    printf("want WILL %s\n", TELOPT(i));
  		else if (TELCMD_OK(i))
  		    printf("want WILL %s\n", TELCMD(i));
  		else
  		    printf("want WILL %d\n", i);
  	    } else {
  		if (TELOPT_OK(i))
  		    printf("want WONT %s\n", TELOPT(i));
  		else if (TELCMD_OK(i))
  		    printf("want WONT %s\n", TELCMD(i));
  		else
  		    printf("want WONT %d\n", i);
  	    }
  	} else {
  	    if (my_state_is_will(i)) {
  		if (TELOPT_OK(i))
  		    printf("     WILL %s\n", TELOPT(i));
  		else if (TELCMD_OK(i))
  		    printf("     WILL %s\n", TELCMD(i));
  		else
  		    printf("     WILL %d\n", i);
  	    }
  	}
      }
  
  }
  
      void
  printsub(direction, pointer, length)
      char direction;	/* '<' or '>' */
      unsigned char *pointer;	/* where suboption data sits */
      int		  length;	/* length of suboption data */
  {
      register int i;
      extern int want_status_response;
  
      if (showoptions || direction == 0 ||
  	(want_status_response && (pointer[0] == TELOPT_STATUS))) {
  	if (direction) {
  	    fprintf(NetTrace, "%s IAC SB ",
  				(direction == '<')? "RCVD":"SENT");
  	    if (length >= 3) {
  		register int j;
  
  		i = pointer[length-2];
  		j = pointer[length-1];
  
  		if (i != IAC || j != SE) {
  		    fprintf(NetTrace, "(terminated by ");
  		    if (TELOPT_OK(i))
  			fprintf(NetTrace, "%s ", TELOPT(i));
  		    else if (TELCMD_OK(i))
  			fprintf(NetTrace, "%s ", TELCMD(i));
  		    else
  			fprintf(NetTrace, "%d ", i);
  		    if (TELOPT_OK(j))
  			fprintf(NetTrace, "%s", TELOPT(j));
  		    else if (TELCMD_OK(j))
  			fprintf(NetTrace, "%s", TELCMD(j));
  		    else
  			fprintf(NetTrace, "%d", j);
  		    fprintf(NetTrace, ", not IAC SE!) ");
  		}
  	    }
  	    length -= 2;
  	}
  	if (length < 1) {
  	    fprintf(NetTrace, "(Empty suboption??\?)");
  	    if (NetTrace == stdout)
  		fflush(NetTrace);
  	    return;
  	}
  	switch (pointer[0]) {
  	case TELOPT_TTYPE:
  	    fprintf(NetTrace, "TERMINAL-TYPE ");
  	    switch (pointer[1]) {
  	    case TELQUAL_IS:
  		fprintf(NetTrace, "IS \"%.*s\"", length-2, (char *)pointer+2);
  		break;
  	    case TELQUAL_SEND:
  		fprintf(NetTrace, "SEND");
  		break;
  	    default:
  		fprintf(NetTrace,
  				"- unknown qualifier %d (0x%x).",
  				pointer[1], pointer[1]);
  	    }
  	    break;
  	case TELOPT_TSPEED:
  	    fprintf(NetTrace, "TERMINAL-SPEED");
  	    if (length < 2) {
  		fprintf(NetTrace, " (empty suboption??\?)");
  		break;
  	    }
  	    switch (pointer[1]) {
  	    case TELQUAL_IS:
  		fprintf(NetTrace, " IS ");
  		fprintf(NetTrace, "%.*s", length-2, (char *)pointer+2);
  		break;
  	    default:
  		if (pointer[1] == 1)
  		    fprintf(NetTrace, " SEND");
  		else
  		    fprintf(NetTrace, " %d (unknown)", pointer[1]);
  		for (i = 2; i < length; i++)
  		    fprintf(NetTrace, " ?%d?", pointer[i]);
  		break;
  	    }
  	    break;
  
  	case TELOPT_LFLOW:
  	    fprintf(NetTrace, "TOGGLE-FLOW-CONTROL");
  	    if (length < 2) {
  		fprintf(NetTrace, " (empty suboption??\?)");
  		break;
  	    }
  	    switch (pointer[1]) {
  	    case LFLOW_OFF:
  		fprintf(NetTrace, " OFF"); break;
  	    case LFLOW_ON:
  		fprintf(NetTrace, " ON"); break;
  	    case LFLOW_RESTART_ANY:
  		fprintf(NetTrace, " RESTART-ANY"); break;
  	    case LFLOW_RESTART_XON:
  		fprintf(NetTrace, " RESTART-XON"); break;
  	    default:
  		fprintf(NetTrace, " %d (unknown)", pointer[1]);
  	    }
  	    for (i = 2; i < length; i++)
  		fprintf(NetTrace, " ?%d?", pointer[i]);
  	    break;
  
  	case TELOPT_NAWS:
  	    fprintf(NetTrace, "NAWS");
  	    if (length < 2) {
  		fprintf(NetTrace, " (empty suboption??\?)");
  		break;
  	    }
  	    if (length == 2) {
  		fprintf(NetTrace, " ?%d?", pointer[1]);
  		break;
  	    }
  	    fprintf(NetTrace, " %d %d (%d)",
  		pointer[1], pointer[2],
  		(int)((((unsigned int)pointer[1])<<8)|((unsigned int)pointer[2])));
  	    if (length == 4) {
  		fprintf(NetTrace, " ?%d?", pointer[3]);
  		break;
  	    }
  	    fprintf(NetTrace, " %d %d (%d)",
  		pointer[3], pointer[4],
  		(int)((((unsigned int)pointer[3])<<8)|((unsigned int)pointer[4])));
  	    for (i = 5; i < length; i++)
  		fprintf(NetTrace, " ?%d?", pointer[i]);
  	    break;
  
  #if	defined(AUTHENTICATION)
  	case TELOPT_AUTHENTICATION:
  	    fprintf(NetTrace, "AUTHENTICATION");
  	    if (length < 2) {
  		fprintf(NetTrace, " (empty suboption??\?)");
  		break;
  	    }
  	    switch (pointer[1]) {
  	    case TELQUAL_REPLY:
  	    case TELQUAL_IS:
  		fprintf(NetTrace, " %s ", (pointer[1] == TELQUAL_IS) ?
  							"IS" : "REPLY");
  		if (AUTHTYPE_NAME_OK(pointer[2]))
  		    fprintf(NetTrace, "%s ", AUTHTYPE_NAME(pointer[2]));
  		else
  		    fprintf(NetTrace, "%d ", pointer[2]);
  		if (length < 3) {
  		    fprintf(NetTrace, "(partial suboption??\?)");
  		    break;
  		}
  		fprintf(NetTrace, "%s|%s",
  			((pointer[3] & AUTH_WHO_MASK) == AUTH_WHO_CLIENT) ?
  			"CLIENT" : "SERVER",
  			((pointer[3] & AUTH_HOW_MASK) == AUTH_HOW_MUTUAL) ?
  			"MUTUAL" : "ONE-WAY");
  
  		auth_printsub(&pointer[1], length - 1, buf, sizeof(buf));
  		fprintf(NetTrace, "%s", buf);
  		break;
  
  	    case TELQUAL_SEND:
  		i = 2;
  		fprintf(NetTrace, " SEND ");
  		while (i < length) {
  		    if (AUTHTYPE_NAME_OK(pointer[i]))
  			fprintf(NetTrace, "%s ", AUTHTYPE_NAME(pointer[i]));
  		    else
  			fprintf(NetTrace, "%d ", pointer[i]);
  		    if (++i >= length) {
  			fprintf(NetTrace, "(partial suboption??\?)");
  			break;
  		    }
  		    fprintf(NetTrace, "%s|%s ",
  			((pointer[i] & AUTH_WHO_MASK) == AUTH_WHO_CLIENT) ?
  							"CLIENT" : "SERVER",
  			((pointer[i] & AUTH_HOW_MASK) == AUTH_HOW_MUTUAL) ?
  							"MUTUAL" : "ONE-WAY");
  		    ++i;
  		}
  		break;
  
  	    case TELQUAL_NAME:
  		i = 2;
  		fprintf(NetTrace, " NAME \"");
  		while (i < length)
  		    putc(pointer[i++], NetTrace);
  		putc('"', NetTrace);
  		break;
  
  	    default:
  		    for (i = 2; i < length; i++)
  			fprintf(NetTrace, " ?%d?", pointer[i]);
  		    break;
  	    }
  	    break;
  #endif
  
  
  	case TELOPT_LINEMODE:
  	    fprintf(NetTrace, "LINEMODE ");
  	    if (length < 2) {
  		fprintf(NetTrace, " (empty suboption??\?)");
  		break;
  	    }
  	    switch (pointer[1]) {
  	    case WILL:
  		fprintf(NetTrace, "WILL ");
  		goto common;
  	    case WONT:
  		fprintf(NetTrace, "WONT ");
  		goto common;
  	    case DO:
  		fprintf(NetTrace, "DO ");
  		goto common;
  	    case DONT:
  		fprintf(NetTrace, "DONT ");
  	    common:
  		if (length < 3) {
  		    fprintf(NetTrace, "(no option??\?)");
  		    break;
  		}
  		switch (pointer[2]) {
  		case LM_FORWARDMASK:
  		    fprintf(NetTrace, "Forward Mask");
  		    for (i = 3; i < length; i++)
  			fprintf(NetTrace, " %x", pointer[i]);
  		    break;
  		default:
  		    fprintf(NetTrace, "%d (unknown)", pointer[2]);
  		    for (i = 3; i < length; i++)
  			fprintf(NetTrace, " %d", pointer[i]);
  		    break;
  		}
  		break;
  
  	    case LM_SLC:
  		fprintf(NetTrace, "SLC");
  		for (i = 2; i < length - 2; i += 3) {
  		    if (SLC_NAME_OK(pointer[i+SLC_FUNC]))
  			fprintf(NetTrace, " %s", SLC_NAME(pointer[i+SLC_FUNC]));
  		    else
  			fprintf(NetTrace, " %d", pointer[i+SLC_FUNC]);
  		    switch (pointer[i+SLC_FLAGS]&SLC_LEVELBITS) {
  		    case SLC_NOSUPPORT:
  			fprintf(NetTrace, " NOSUPPORT"); break;
  		    case SLC_CANTCHANGE:
  			fprintf(NetTrace, " CANTCHANGE"); break;
  		    case SLC_VARIABLE:
  			fprintf(NetTrace, " VARIABLE"); break;
  		    case SLC_DEFAULT:
  			fprintf(NetTrace, " DEFAULT"); break;
  		    }
  		    fprintf(NetTrace, "%s%s%s",
  			pointer[i+SLC_FLAGS]&SLC_ACK ? "|ACK" : "",
  			pointer[i+SLC_FLAGS]&SLC_FLUSHIN ? "|FLUSHIN" : "",
  			pointer[i+SLC_FLAGS]&SLC_FLUSHOUT ? "|FLUSHOUT" : "");
  		    if (pointer[i+SLC_FLAGS]& ~(SLC_ACK|SLC_FLUSHIN|
  						SLC_FLUSHOUT| SLC_LEVELBITS))
  			fprintf(NetTrace, "(0x%x)", pointer[i+SLC_FLAGS]);
  		    fprintf(NetTrace, " %d;", pointer[i+SLC_VALUE]);
  		    if ((pointer[i+SLC_VALUE] == IAC) &&
  			(pointer[i+SLC_VALUE+1] == IAC))
  				i++;
  		}
  		for (; i < length; i++)
  		    fprintf(NetTrace, " ?%d?", pointer[i]);
  		break;
  
  	    case LM_MODE:
  		fprintf(NetTrace, "MODE ");
  		if (length < 3) {
  		    fprintf(NetTrace, "(no mode??\?)");
  		    break;
  		}
  		{
  		    char tbuf[64];
  		    sprintf(tbuf, "%s%s%s%s%s",
  			pointer[2]&MODE_EDIT ? "|EDIT" : "",
  			pointer[2]&MODE_TRAPSIG ? "|TRAPSIG" : "",
  			pointer[2]&MODE_SOFT_TAB ? "|SOFT_TAB" : "",
  			pointer[2]&MODE_LIT_ECHO ? "|LIT_ECHO" : "",
  			pointer[2]&MODE_ACK ? "|ACK" : "");
  		    fprintf(NetTrace, "%s", tbuf[1] ? &tbuf[1] : "0");
  		}
  		if (pointer[2]&~(MODE_MASK))
  		    fprintf(NetTrace, " (0x%x)", pointer[2]);
  		for (i = 3; i < length; i++)
  		    fprintf(NetTrace, " ?0x%x?", pointer[i]);
  		break;
  	    default:
  		fprintf(NetTrace, "%d (unknown)", pointer[1]);
  		for (i = 2; i < length; i++)
  		    fprintf(NetTrace, " %d", pointer[i]);
  	    }
  	    break;
  
  	case TELOPT_STATUS: {
  	    register char *cp;
  	    register int j, k;
  
  	    fprintf(NetTrace, "STATUS");
  
  	    switch (pointer[1]) {
  	    default:
  		if (pointer[1] == TELQUAL_SEND)
  		    fprintf(NetTrace, " SEND");
  		else
  		    fprintf(NetTrace, " %d (unknown)", pointer[1]);
  		for (i = 2; i < length; i++)
  		    fprintf(NetTrace, " ?%d?", pointer[i]);
  		break;
  	    case TELQUAL_IS:
  		if (--want_status_response < 0)
  		    want_status_response = 0;
  		if (NetTrace == stdout)
  		    fprintf(NetTrace, " IS\r\n");
  		else
  		    fprintf(NetTrace, " IS\n");
  
  		for (i = 2; i < length; i++) {
  		    switch(pointer[i]) {
  		    case DO:	cp = "DO"; goto common2;
  		    case DONT:	cp = "DONT"; goto common2;
  		    case WILL:	cp = "WILL"; goto common2;
  		    case WONT:	cp = "WONT"; goto common2;
  		    common2:
  			i++;
  			if (TELOPT_OK((int)pointer[i]))
  			    fprintf(NetTrace, " %s %s", cp, TELOPT(pointer[i]));
  			else
  			    fprintf(NetTrace, " %s %d", cp, pointer[i]);
  
  			if (NetTrace == stdout)
  			    fprintf(NetTrace, "\r\n");
  			else
  			    fprintf(NetTrace, "\n");
  			break;
  
  		    case SB:
  			fprintf(NetTrace, " SB ");
  			i++;
  			j = k = i;
  			while (j < length) {
  			    if (pointer[j] == SE) {
  				if (j+1 == length)
  				    break;
  				if (pointer[j+1] == SE)
  				    j++;
  				else
  				    break;
  			    }
  			    pointer[k++] = pointer[j++];
  			}
  			printsub(0, &pointer[i], k - i);
  			if (i < length) {
  			    fprintf(NetTrace, " SE");
  			    i = j;
  			} else
  			    i = j - 1;
  
  			if (NetTrace == stdout)
  			    fprintf(NetTrace, "\r\n");
  			else
  			    fprintf(NetTrace, "\n");
  
  			break;
  
  		    default:
  			fprintf(NetTrace, " %d", pointer[i]);
  			break;
  		    }
  		}
  		break;
  	    }
  	    break;
  	  }
  
  	case TELOPT_XDISPLOC:
  	    fprintf(NetTrace, "X-DISPLAY-LOCATION ");
  	    switch (pointer[1]) {
  	    case TELQUAL_IS:
  		fprintf(NetTrace, "IS \"%.*s\"", length-2, (char *)pointer+2);
  		break;
  	    case TELQUAL_SEND:
  		fprintf(NetTrace, "SEND");
  		break;
  	    default:
  		fprintf(NetTrace, "- unknown qualifier %d (0x%x).",
  				pointer[1], pointer[1]);
  	    }
  	    break;
  
  	case TELOPT_NEW_ENVIRON:
  	    fprintf(NetTrace, "NEW-ENVIRON ");
  #ifdef	OLD_ENVIRON
  	    goto env_common1;
  	case TELOPT_OLD_ENVIRON:
  	    fprintf(NetTrace, "OLD-ENVIRON");
  	env_common1:
  #endif
  	    switch (pointer[1]) {
  	    case TELQUAL_IS:
  		fprintf(NetTrace, "IS ");
  		goto env_common;
  	    case TELQUAL_SEND:
  		fprintf(NetTrace, "SEND ");
  		goto env_common;
  	    case TELQUAL_INFO:
  		fprintf(NetTrace, "INFO ");
  	    env_common:
  		{
  		    register int noquote = 2;
  #if defined(ENV_HACK) && defined(OLD_ENVIRON)
  		    extern int old_env_var, old_env_value;
  #endif
  		    for (i = 2; i < length; i++ ) {
  			switch (pointer[i]) {
  			case NEW_ENV_VALUE:
  #ifdef OLD_ENVIRON
  		     /*	case NEW_ENV_OVAR: */
  			    if (pointer[0] == TELOPT_OLD_ENVIRON) {
  # ifdef	ENV_HACK
  				if (old_env_var == OLD_ENV_VALUE)
  				    fprintf(NetTrace, "\" (VALUE) " + noquote);
  				else
  # endif
  				    fprintf(NetTrace, "\" VAR " + noquote);
  			    } else
  #endif /* OLD_ENVIRON */
  				fprintf(NetTrace, "\" VALUE " + noquote);
  			    noquote = 2;
  			    break;
  
  			case NEW_ENV_VAR:
  #ifdef OLD_ENVIRON
  		     /* case OLD_ENV_VALUE: */
  			    if (pointer[0] == TELOPT_OLD_ENVIRON) {
  # ifdef	ENV_HACK
  				if (old_env_value == OLD_ENV_VAR)
  				    fprintf(NetTrace, "\" (VAR) " + noquote);
  				else
  # endif
  				    fprintf(NetTrace, "\" VALUE " + noquote);
  			    } else
  #endif /* OLD_ENVIRON */
  				fprintf(NetTrace, "\" VAR " + noquote);
  			    noquote = 2;
  			    break;
  
  			case ENV_ESC:
  			    fprintf(NetTrace, "\" ESC " + noquote);
  			    noquote = 2;
  			    break;
  
  			case ENV_USERVAR:
  			    fprintf(NetTrace, "\" USERVAR " + noquote);
  			    noquote = 2;
  			    break;
  
  			default:
  			    if (isprint(pointer[i]) && pointer[i] != '"') {
  				if (noquote) {
  				    putc('"', NetTrace);
  				    noquote = 0;
  				}
  				putc(pointer[i], NetTrace);
  			    } else {
  				fprintf(NetTrace, "\" %03o " + noquote,
  							pointer[i]);
  				noquote = 2;
  			    }
  			    break;
  			}
  		    }
  		    if (!noquote)
  			putc('"', NetTrace);
  		    break;
  		}
  	    }
  	    break;
  
  	default:
  	    if (TELOPT_OK(pointer[0]))
  		fprintf(NetTrace, "%s (unknown)", TELOPT(pointer[0]));
  	    else
  		fprintf(NetTrace, "%d (unknown)", pointer[0]);
  	    for (i = 1; i < length; i++)
  		fprintf(NetTrace, " %d", pointer[i]);
  	    break;
  	}
  	if (direction) {
  	    if (NetTrace == stdout)
  		fprintf(NetTrace, "\r\n");
  	    else
  		fprintf(NetTrace, "\n");
  	}
  	if (NetTrace == stdout)
  	    fflush(NetTrace);
      }
  }
  
  /* EmptyTerminal - called to make sure that the terminal buffer is empty.
   *			Note that we consider the buffer to run all the
   *			way to the kernel (thus the select).
   */
  
      void
  EmptyTerminal()
  {
  #if	defined(unix)
      fd_set	o;
  
      FD_ZERO(&o);
  #endif	/* defined(unix) */
  
      if (TTYBYTES() == 0) {
  #if	defined(unix)
  	FD_SET(tout, &o);
  	(void) select(tout+1, (fd_set *) 0, &o, (fd_set *) 0,
  			(struct timeval *) 0);	/* wait for TTLOWAT */
  #endif	/* defined(unix) */
      } else {
  	while (TTYBYTES()) {
  	    (void) ttyflush(0);
  #if	defined(unix)
  	    FD_SET(tout, &o);
  	    (void) select(tout+1, (fd_set *) 0, &o, (fd_set *) 0,
  				(struct timeval *) 0);	/* wait for TTLOWAT */
  #endif	/* defined(unix) */
  	}
      }
  }
  
      void
  SetForExit()
  {
      setconnmode(0);
  #if	defined(TN3270)
      if (In3270) {
  	Finish3270();
      }
  #else	/* defined(TN3270) */
      do {
  	(void)telrcv();			/* Process any incoming data */
  	EmptyTerminal();
      } while (ring_full_count(&netiring));	/* While there is any */
  #endif	/* defined(TN3270) */
      setcommandmode();
      fflush(stdout);
      fflush(stderr);
  #if	defined(TN3270)
      if (In3270) {
  	StopScreen(1);
      }
  #endif	/* defined(TN3270) */
      setconnmode(0);
      EmptyTerminal();			/* Flush the path to the tty */
      setcommandmode();
  }
  
      void
  Exit(returnCode)
      int returnCode;
  {
      SetForExit();
      exit(returnCode);
  }
  
      void
  ExitString(string, returnCode)
      char *string;
      int returnCode;
  {
      SetForExit();
      fwrite(string, 1, strlen(string), stderr);
      exit(returnCode);
  }
  