/*  xcho.c  --  kludged on top of 4.2 BSD "echo.c" by W. F. Hammond  */
/*
    Syntax:    xcho [-n] string [,...]

      The '-n' switch suppresses an automatic terminating linefeed.
*/

#include <stdio.h>
char *getenv();

main(argc, argv)
int argc;
char *argv[];
{
register int i;
register int j;
int nflg, eflg, xflg, jflg;
int k;
unsigned int val;
static char hexmsg[] = "\n *** xcho: Illegal hex escape ***\n";
char cont[3];
char xchesc, *envxch;

nflg = 0;
cont[2] = '\0';
xchesc = '#';
envxch = getenv("XchoEscape");
if(envxch)
   {
   xchesc = envxch[0];
   }
if(argc > 1 && argv[1][0] == '-' && argv[1][1] == 'n' && !argv[1][2])
   {
   nflg++;
   argc--;
   argv++;
   }
for(i=1; i<argc; i++)
   {
   /*  fputs(argv[i], stdout);  */
   j = 0;
   eflg = 0;
   xflg = 0;
   jflg = 0;
   while (argv[i][j])
      {
      if (xflg)
         {
         xflg --;
         cont[1-xflg] = argv[i][j];
         if (!xflg)
            {
            sscanf(cont, "%x", &val);
            /*  return code from sscanf should be 1?  */
            putchar(val);
            }
         }
      else if (eflg)
         {
         xflg = 0;
         switch (argv[i][j])
            {
            case '#':
               {
               putchar('#');
               break;
               }
            case '1':
               {
               putchar('!');
               break;
               }
            case '2':
               {
               putchar('@');
               break;
               }
            case '3':
               {
               putchar('#');
               break;
               }
            case '4':
               {
               putchar('$');
               break;
               }
            case '5':
               {
               putchar('%');
               break;
               }
            case '6':
               {
               putchar('^');
               break;
               }
            case '7':
               {
               putchar('&');
               break;
               }
            case '8':
               {
               putchar('*');
               break;
               }
            case '9':
               {
               putchar('(');
               break;
               }
            case '0':
               {
               putchar(')');
               break;
               }
            case 'a':
            case 'A':
               {
               putchar('`');
               break;
               }
            case 'b':
            case 'B':
               {
               putchar(0x08);     /*  ascii backspace  */
               break;
               }
            case 'c':
            case 'C':
               {
               putchar(',');
               break;
               }
            case 'd':
            case 'D':
               {
               putchar('.');
               break;
               }
            case 'e':
            case 'E':
               {
               putchar(0x1b);     /*  ascii escape code  */
               break;
               }
            case 'f':
            case 'F':
               {
               putchar(0x0c);     /*  ascii formfeed  */
               break;
               }
            case 'g':
            case 'G':
               {
               putchar('=');
               break;
               }
            case 'h':
            case 'H':
               {
               putchar('-');
               break;
               }
            case 'i':
            case 'I':
               {
               putchar('<');
               break;
               }
            case 'j':
            case 'J':
               {
               jflg = 1;     /*  join this word (arg) to the next  */
               break;
               }
            case 'k':
            case 'K':
               {
               putchar(';');
               break;
               }
            case 'l':
            case 'L':
               {
               putchar('[');
               break;
               }
            case 'm':
            case 'M':
               {
               putchar(']');
               break;
               }
            case 'n':
            case 'N':
               {
               putchar(0x0A);     /*  ascii linefeed  */
               break;
               }
            case 'o':
            case 'O':
               {
               putchar('>');
               break;
               }
            case 'p':
            case 'P':
               {
               putchar('|');
               break;
               }
            case 'q':
            case 'Q':
               {
               putchar('"');
               break;
               }
            case 'r':
            case 'R':
               {
               putchar(0x0d);     /*  ascii carriage return  */
               break;
               }
            case 's':
            case 'S':
               {
               putchar('\'');     /*  i.e., "'"  */
               break;
               }
            case 't':
            case 'T':
               {
               putchar(0x09);     /*  ascii horizontal tab  */
               break;
               }
            case 'u':
            case 'U':
               {
               putchar('\\');     /*  i.e., "\"  */
               break;
               }
            case 'v':
            case 'V':
               {
               putchar(0x0b);     /*  ascii vertical tab  */
               break;
               }
            case 'w':
            case 'W':
               {
               putchar('~');
               break;
               }
            case 'x':
            case 'X':
               {
               xflg = 2;          /*  two character hex code follows  */
               break;
               }
            case 'y':
            case 'Y':
               {
               putchar('?');
               break;
               }
            case 'z':
            case 'Z':
               {
               putchar('/');
               break;
               }
            default:
               {
               putchar(argv[i][j]);
               break;
               }
            }
         eflg = 0;
         }
      else   /*  xflg == 0 && eflg == 0  */
         {
         if(argv[i][j]==xchesc)
            {
            eflg = 1;
            }
         else
            {
            putchar(argv[i][j]);
            }
         }
      j ++;
      }  /*  end of while(argv[i][j]) loop  */
   
   if ( (!jflg) && (i < argc-1) ) putchar(' ');
   }  /*  end of loop on i  */
if(nflg == 0) putchar('\n');
exit(0);
}