home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / old / ckermit4f / ckuusr.c < prev    next >
C/C++ Source or Header  |  2020-01-01  |  41KB  |  1,496 lines
  1. char *userv = "User Interface 4F(065), 20 Jul 89";
  2.  
  3. /*  C K U U S R --  "User Interface" for Unix Kermit (Part 1)  */
  4.  
  5. /*
  6.  Author: Frank da Cruz (fdc@columbia.edu, FDCCU@CUVMA.BITNET),
  7.  Columbia University Center for Computing Activities.
  8.  First released January 1985.
  9.  Copyright (C) 1985, 1989, Trustees of Columbia University in the City of New
  10.  York.  Permission is granted to any individual or institution to use, copy, or
  11.  redistribute this software so long as it is not sold for profit, provided this
  12.  copyright notice is retained.
  13. */
  14.  
  15. /*
  16.  The ckuusr module contains the terminal input and output functions for Unix
  17.  Kermit.  It includes a simple Unix-style command line parser as well as
  18.  an interactive prompting keyword command parser.  It depends on the existence
  19.  of Unix facilities like fopen, fgets, feof, (f)printf, argv/argc, etc.  Other
  20.  functions that are likely to vary among Unix implementations -- like setting
  21.  terminal modes or interrupts -- are invoked via calls to functions that are
  22.  defined in the system-dependent modules, ck?[ft]io.c.
  23.  
  24.  The command line parser processes any arguments found on the command line,
  25.  as passed to main() via argv/argc.  The interactive parser uses the facilities
  26.  of the cmd package (developed for this program, but usable by any program).
  27.  
  28.  Any command parser may be substituted for this one.  The only requirements
  29.  for the Kermit command parser are these:
  30.  
  31.  1. Set parameters via global variables like duplex, speed, ttname, etc.
  32.     See ckmain.c for the declarations and descriptions of these variables.
  33.  
  34.  2. If a command can be executed without the use of Kermit protocol, then
  35.     execute the command directly and set the variable sstate to 0. Examples
  36.     include 'set' commands, local directory listings, the 'connect' command.
  37.  
  38.  3. If a command requires the Kermit protocol, set the following variables:
  39.  
  40.     sstate                             string data
  41.       'x' (enter server mode)            (none)
  42.       'r' (send a 'get' command)         cmarg, cmarg2
  43.       'v' (enter receive mode)           cmarg2
  44.       'g' (send a generic command)       cmarg
  45.       's' (send files)                   nfils, cmarg & cmarg2 OR cmlist
  46.       'c' (send a remote host command)   cmarg
  47.  
  48.     cmlist is an array of pointers to strings.
  49.     cmarg, cmarg2 are pointers to strings.
  50.     nfils is an integer.
  51.  
  52.     cmarg can be a filename string (possibly wild), or
  53.        a pointer to a prefabricated generic command string, or
  54.        a pointer to a host command string.
  55.     cmarg2 is the name to send a single file under, or
  56.        the name under which to store an incoming file; must not be wild.
  57.     cmlist is a list of nonwild filenames, such as passed via argv.
  58.     nfils is an integer, interpreted as follows:
  59.       -1: argument string is in cmarg, and should be expanded internally.
  60.        0: stdin.
  61.       >0: number of files to send, from cmlist.
  62.  
  63.  The screen() function is used to update the screen during file transfer.
  64.  The tlog() function maintains a transaction log.
  65.  The debug() function maintains a debugging log.
  66.  The intmsg() and chkint() functions provide the user i/o for interrupting
  67.    file transfers.
  68. */
  69.  
  70. /* Includes */
  71.  
  72. #include "ckcdeb.h"
  73. #include <stdio.h>
  74. #include <ctype.h>
  75. #ifndef AMIGA
  76. /* Apparently these should be included for OS/2 C-Kermit after all... */
  77. /* #ifndef OS2 */
  78. #include <signal.h>
  79. #include <setjmp.h>
  80. /* #endif */
  81. #endif
  82.  
  83. #include "ckcker.h"
  84. #include "ckucmd.h"
  85. #include "ckuusr.h"
  86.  
  87. #ifdef datageneral
  88. #define fgets(stringbuf,max,fd) dg_fgets(stringbuf,max,fd)
  89. #define fork() vfork()
  90. /* DG version 3.21 of C has bugs in the following routines, since they
  91.  * depend on /etc/passwd.  In the context where the routines are used,
  92.  * we don't need them anyway.
  93.  */
  94. #define getgid() -1
  95. #define getuid() -1
  96. #define geteuid() -1
  97. #endif
  98.  
  99. /* External Kermit Variables, see ckmain.c for description. */
  100.  
  101. extern int size, rpsiz, urpsiz, speed, local,
  102.   server, displa, binary, parity, deblog, escape, xargc, flow,
  103.   turn, duplex, nfils, ckxech, pktlog, seslog, tralog, stdouf,
  104.   turnch, dfloc, keep, maxrps, warn, quiet, cnflg, tlevel,
  105.   mdmtyp, zincnt;
  106.  
  107. extern char *versio, *protv, *ckxv, *ckzv, *fnsv, *connv, *dftty, *cmdv;
  108. extern char *dialv, *loginv;
  109. extern char *ckxsys, *ckzsys, *cmarg, *cmarg2, **xargv, **cmlist;
  110. extern char *DIRCMD, *PWDCMD, cmerrp[];
  111. extern CHAR sstate, ttname[];
  112. extern CHAR *zinptr;
  113. char *strcpy(), *getenv();
  114. #ifdef AMIGA
  115. char *getcwd();
  116. #endif
  117. #ifdef OS2
  118. char *getcwd();
  119. #endif
  120.  
  121. /* Declarations from cmd package */
  122.  
  123. extern char cmdbuf[];            /* Command buffer */
  124.  
  125. /* Declarations from ck?fio.c module */
  126.  
  127. extern char *SPACMD, *zhome();        /* Space command, home directory. */
  128. extern int backgrd;            /* Kermit executing in background */
  129. #ifdef OS2
  130. extern char *zfindfile();
  131. #endif
  132.  
  133. /* The background flag is set by ckutio.c (via conint() ) to note whether */
  134. /* this kermit is executing in background ('&' on shell command line).    */
  135.  
  136.  
  137. /* Variables and symbols local to this module */
  138.  
  139. char line[CMDBL+10], *lp;        /* Character buffer for anything */
  140. char debfil[50];            /* Debugging log file name */
  141. char pktfil[50];            /* Packet log file name */
  142. char sesfil[50];            /* Session log file name */
  143. char trafil[50];            /* Transaction log file name */
  144.  
  145. int n,                    /* General purpose int */
  146.     cflg,                /* Command-line connect cmd given */
  147.     action,                /* Action selected on command line*/
  148.     repars,                /* Reparse needed */
  149.     cwdf = 0;                /* CWD has been done */
  150.  
  151. #define MAXTAKE 20            /* Maximum nesting of TAKE files */
  152. FILE *tfile[MAXTAKE];            /* File pointers for TAKE command */
  153.  
  154. char *homdir;                /* Pointer to home directory string */
  155. char cmdstr[100];            /* Place to build generic command */
  156.  
  157. /*  C M D L I N  --  Get arguments from command line  */
  158. /*
  159.  Simple Unix-style command line parser, conforming with 'A Proposed Command
  160.  Syntax Standard for Unix Systems', Hemenway & Armitage, Unix/World, Vol.1,
  161.  No.3, 1984.
  162. */
  163. cmdlin() {
  164.     char x;                /* Local general-purpose int */
  165.     cmarg = "";                /* Initialize globals */
  166.     cmarg2 = "";
  167.     action = cflg = 0;
  168.  
  169.     while (--xargc > 0) {        /* Go through command line words */
  170.     xargv++;
  171.     debug(F111,"xargv",*xargv,xargc);
  172.         if (**xargv == '-') {        /* Got an option (begins with dash) */
  173.         x = *(*xargv+1);        /* Get the option letter */
  174.         if (doarg(x) < 0) doexit(BAD_EXIT);    /* Go handle the option */
  175.         } else {            /* No dash where expected */
  176.         usage();
  177.         doexit(BAD_EXIT);
  178.     }
  179.     }
  180.     debug(F101,"action","",action);
  181.     if (!local) {
  182.     if ((action == 'g') || (action == 'r') ||
  183.         (action == 'c') || (cflg != 0))
  184.         fatal("-l and -b required");
  185.     }
  186.     if (*cmarg2 != 0) {
  187.     if ((action != 's') && (action != 'r') &&
  188.         (action != 'v'))
  189.         fatal("-a without -s, -r, or -g");
  190.     }
  191.     if ((action == 'v') && (stdouf) && (!local)) {
  192.         if (isatty(1))
  193.         fatal("unredirected -k can only be used in local mode");
  194.     }
  195.     if ((action == 's') || (action == 'v') ||
  196.         (action == 'r') || (action == 'x')) {
  197.     if (local) displa = 1;
  198.     if (stdouf) { displa = 0; quiet = 1; }
  199.     }
  200.  
  201.     if (quiet) displa = 0;        /* No display if quiet requested */
  202.  
  203.     if (cflg) {
  204.     conect();            /* Connect if requested */
  205.     if (action == 0) {
  206.         if (cnflg) conect();    /* And again if requested */
  207.         doexit(GOOD_EXIT);        /* Then exit indicating success */
  208.     }
  209.     }
  210.     if (displa) concb(escape);        /* (for console "interrupts") */
  211.     return(action);            /* Then do any requested protocol */
  212. }
  213.  
  214. /*  D O A R G  --  Do a command-line argument.  */
  215.  
  216. doarg(x) char x; {
  217.     int z; char *xp;
  218.  
  219.     xp = *xargv+1;            /* Pointer for bundled args */
  220.     while (x) {
  221.     switch (x) {
  222.  
  223. case 'x':                /* server */
  224.     if (action) fatal("conflicting actions");
  225.     action = 'x';
  226.     break;
  227.  
  228. case 'f':
  229.     if (action) fatal("conflicting actions");
  230.     action = setgen('F',"","","");
  231.     break;
  232.  
  233. case 'r':                /* receive */
  234.     if (action) fatal("conflicting actions");
  235.     action = 'v';
  236.     break;
  237.  
  238. case 'k':                /* receive to stdout */
  239.     if (action) fatal("conflicting actions");
  240.     stdouf = 1;
  241.     action = 'v';
  242.     break;
  243.  
  244. case 's':                 /* send */
  245.     if (action) fatal("conflicting actions");
  246.     if (*(xp+1)) fatal("invalid argument bundling after -s");
  247.     z = nfils = 0;            /* Initialize file counter, flag */
  248.     cmlist = xargv+1;            /* Remember this pointer */
  249.     while (--xargc > 0) {        /* Traverse the list */
  250.     xargv++;
  251.     if (**xargv == '-') {        /* Check for sending stdin */
  252.         if (strcmp(*xargv,"-") != 0) break;
  253.         z++;
  254.         }
  255.     nfils++;            /* Bump file counter */
  256.     }
  257.     xargc++, xargv--;            /* Adjust argv/argc */
  258.     if (nfils < 1) fatal("missing filename for -s");
  259.     if (z > 1) fatal("-s: too many -'s");
  260.     if (z == 1) {
  261.     if (nfils == 1) nfils = 0;
  262.     else fatal("invalid mixture of filenames and '-' in -s");
  263.     }
  264.     if (nfils == 0) {
  265.     if (isatty(0)) fatal("sending from terminal not allowed");
  266.     }
  267.     debug(F101,*xargv,"",nfils);
  268.     action = 's';
  269.     break;
  270.  
  271. /* cont'd... */
  272.  
  273. /* ...doarg(), cont'd */
  274.  
  275. case 'g':                /* get */
  276.     if (action) fatal("conflicting actions");
  277.     if (*(xp+1)) fatal("invalid argument bundling after -g");
  278.     xargv++, xargc--;
  279.     if ((xargc == 0) || (**xargv == '-'))
  280.         fatal("missing filename for -g");
  281.     cmarg = *xargv;
  282.     action = 'r';
  283.     break;
  284.  
  285. case 'c':                /* connect before */
  286.     cflg = 1;
  287.     break;
  288.  
  289. case 'n':                /* connect after */
  290.     cnflg = 1;
  291.     break;
  292.  
  293. case 'h':                /* help */
  294.     usage();
  295.     doexit(GOOD_EXIT);
  296.  
  297. case 'a':                /* "as" */
  298.     if (*(xp+1)) fatal("invalid argument bundling after -a");
  299.     xargv++, xargc--;
  300.     if ((xargc < 1) || (**xargv == '-'))
  301.         fatal("missing name in -a");
  302.     cmarg2 = *xargv;
  303.     break;
  304.  
  305. case 'l':                /* set line */
  306.     if (*(xp+1)) fatal("invalid argument bundling after -l");
  307.     xargv++, xargc--;
  308.     if ((xargc < 1) || (**xargv == '-'))
  309.         fatal("communication line device name missing");
  310.     strcpy(ttname,*xargv);
  311. /*  if (strcmp(ttname,dftty) == 0) local = dfloc; else local = 1;  */
  312.     local = (strcmp(ttname,CTTNAM) != 0); /* (better than old way) */
  313.     debug(F101,"local","",local);
  314.     ttopen(ttname,&local,0);
  315.     break;
  316.  
  317. case 'b':                       /* set baud */
  318.     if (*(xp+1)) fatal("invalid argument bundling");
  319.     xargv++, xargc--;
  320.     if ((xargc < 1) || (**xargv == '-'))
  321.         fatal("missing baud");
  322.     z = atoi(*xargv);            /* Convert to number */
  323.     if (chkspd(z) > -1) speed = z;    /* Check it */
  324.         else fatal("unsupported baud rate");
  325.     break;
  326.  
  327. case 'e':                /* Extended packet length */
  328.     if (*(xp+1)) fatal("invalid argument bundling");
  329.     xargv++, xargc--;
  330.     if ((xargc < 1) || (**xargv == '-'))
  331.         fatal("missing length");
  332.     z = atoi(*xargv);            /* Convert to number */
  333.     if (z > 10 && z < maxrps) {
  334.         rpsiz = urpsiz = z;
  335.     if (z > 94) rpsiz = 94;        /* Fallback if other Kermit can't */
  336.     } else fatal("Unsupported packet length");
  337.     break;
  338.  
  339. case 'i':                /* Treat files as binary */
  340.     binary = 1;
  341.     break;
  342.  
  343. /* cont'd... */
  344.  
  345. /* ...doarg(), cont'd */
  346.  
  347.  
  348. case 'w':                /* File warning */
  349.     warn = 1;
  350.     break;
  351.  
  352. case 'q':                /* Quiet */
  353.     quiet = 1;
  354.     break;
  355.  
  356. case 'd':                /* debug */
  357.     debopn("debug.log");
  358.     break;
  359.  
  360. case 'p':                /* set parity */
  361.     if (*(xp+1)) fatal("invalid argument bundling");
  362.     xargv++, xargc--;
  363.     if ((xargc < 1) || (**xargv == '-'))
  364.         fatal("missing parity");
  365.     switch(x = **xargv) {
  366.     case 'e':
  367.     case 'o':
  368.     case 'm':
  369.     case 's': parity = x; break;
  370.     case 'n': parity = 0; break;
  371.     default:  fatal("invalid parity");
  372.         }
  373.     break;
  374.  
  375. case 't':
  376.     turn = 1;                /* Line turnaround handshake */
  377.     turnch = XON;            /* XON is turnaround character */
  378.     duplex = 1;                /* Half duplex */
  379.     flow = 0;                /* No flow control */
  380.     break;
  381.  
  382. #ifdef OS2
  383. case 'u':
  384.     /* get numeric argument */
  385.     if (*(xp+1)) fatal("invalid argument bundling");
  386.     *xargv++, xargc--;
  387.     if ((xargc < 1) || (**xargv == '-'))
  388.         fatal("missing handle");
  389.     z = atoi(*xargv);            /* Convert to number */
  390.     ttclos();
  391.     if (!ttiscom(z)) fatal("invalid handle");
  392.     speed = ttspeed();
  393.     break;
  394. #endif /* OS2 */
  395.  
  396. default:
  397.     fatal("invalid argument, type 'kermit -h' for help");
  398.         }
  399.  
  400.     x = *++xp;                /* See if options are bundled */
  401.     }
  402.     return(0);
  403. }
  404.  
  405. /* Misc */
  406.  
  407. fatal(msg) char *msg; {            /* Fatal error message */
  408. #ifdef OSK
  409.     fprintf(stderr,"\nFatal: %s\n",msg);
  410. #else
  411.     fprintf(stderr,"\r\nFatal: %s\n",msg);
  412. #endif /* OSK */
  413.     tlog(F110,"Fatal:",msg,0l);
  414.     doexit(BAD_EXIT);            /* Exit indicating failure */
  415. }
  416.  
  417.  
  418. ermsg(msg) char *msg; {            /* Print error message */
  419. #ifdef OSK
  420.     if (!quiet) fprintf(stderr,"\n%s - %s\n",cmerrp,msg);
  421. #else
  422.     if (!quiet) fprintf(stderr,"\r\n%s - %s\n",cmerrp,msg);
  423. #endif /* OSK */
  424.     tlog(F110,"Error -",msg,0l);
  425. }
  426.  
  427. /* Interactive command parser */
  428.  
  429.  
  430. /* Top-Level Keyword Table */
  431.  
  432. struct keytab cmdtab[] = {
  433.     "!",       XXSHE, 0,
  434.     "%",           XXCOM, CM_INV,
  435.     "bye",         XXBYE, 0,
  436.     "c",           XXCON, CM_INV,
  437.     "cd",          XXCWD, 0,
  438.     "close",       XXCLO, 0,
  439.     "connect",     XXCON, 0,
  440.     "cwd",       XXCWD, 0,
  441.     "dial",       XXDIAL, 0,
  442.     "directory",   XXDIR, 0,
  443.     "echo",        XXECH, 0,
  444.     "exit",       XXEXI, 0,
  445.     "finish",       XXFIN, 0,
  446.     "get",       XXGET, 0,
  447.     "hangup",      XXHAN, 0,
  448.     "help",       XXHLP, 0,
  449.     "log",         XXLOG, 0,
  450.     "quit",       XXQUI, 0,
  451.     "r",           XXREC, CM_INV,
  452.     "receive",       XXREC, 0,
  453.     "remote",       XXREM, 0,
  454.     "s",           XXSEN, CM_INV,
  455.     "script",       XXLOGI, 0,
  456.     "send",       XXSEN, 0,
  457.     "server",       XXSER, 0,
  458.     "set",       XXSET, 0,
  459.     "show",        XXSHO, 0,
  460.     "space",       XXSPA, 0,
  461.     "statistics",  XXSTA, 0,
  462.     "take",       XXTAK, 0,
  463.     "transmit",    XXTRA, 0
  464. };
  465. int ncmd = (sizeof(cmdtab) / sizeof(struct keytab));
  466.  
  467. /* Parameter keyword table */
  468.  
  469. struct keytab prmtab[] = {
  470.     "attributes",       XYATTR,  0,
  471.     "baud",            XYSPEE,  CM_INV,
  472.     "block-check",      XYCHKT,  0,
  473.     "delay",            XYDELA,  0,
  474.     "duplex",            XYDUPL,  0,
  475.     "end-of-packet",    XYEOL,   CM_INV,    /* moved to send/receive */
  476.     "escape-character", XYESC,   0,
  477.     "file",           XYFILE,  0,
  478.     "flow-control",     XYFLOW,  0,
  479.     "handshake",        XYHAND,  0,
  480.     "incomplete",       XYIFD,   0,
  481.     "line",             XYLINE,  0,
  482.     "modem-dialer",    XYMODM,     0,
  483.     "packet-length",    XYLEN,   CM_INV,    /* moved to send/receive */
  484.     "pad-character",    XYPADC,  CM_INV,    /* moved to send/receive */
  485.     "padding",          XYNPAD,  CM_INV,    /* moved to send/receive */
  486.     "parity",            XYPARI,  0,
  487.     "prompt",            XYPROM,  0,
  488.     "receive",          XYRECV,  0,
  489.     "retry",            XYRETR,  0,
  490.     "send",             XYSEND,  0,
  491.     "server",           XYSERV,  0,
  492.     "speed",            XYSPEE,  0,
  493.     "start-of-packet",  XYMARK,  CM_INV,    /* moved to send/receive */
  494.     "terminal",         XYTERM,  0,
  495.     "timeout",            XYTIMO,  CM_INV     /* moved to send/receive */
  496. };
  497. int nprm = (sizeof(prmtab) / sizeof(struct keytab)); /* How many parameters */
  498.  
  499.  
  500. /* Remote Command Table */
  501.  
  502. struct keytab remcmd[] = {
  503.     "cd",        XZCWD, CM_INV,
  504.     "cwd",       XZCWD, 0,
  505.     "delete",    XZDEL, 0,
  506.     "directory", XZDIR, 0,
  507.     "help",      XZHLP, 0,
  508.     "host",      XZHOS, 0,
  509.     "space",     XZSPA, 0,
  510.     "type",      XZTYP, 0,
  511.     "who",       XZWHO, 0
  512. };
  513. int nrmt = (sizeof(remcmd) / sizeof(struct keytab));
  514.  
  515. struct keytab logtab[] = {
  516.     "debugging",    LOGD, 0,
  517.     "packets",        LOGP, 0,
  518.     "session",      LOGS, 0,
  519.     "transactions", LOGT, 0
  520. };
  521. int nlog = (sizeof(logtab) / sizeof(struct keytab));
  522.  
  523. /* Show command arguments */
  524.  
  525. #define SHPAR 0                /* Parameters */
  526. #define SHVER 1                /* Versions */
  527.  
  528. struct keytab shotab[] = {
  529.     "parameters", SHPAR, 0,
  530.     "versions",   SHVER, 0
  531. };
  532.  
  533. /*  C M D I N I  --  Initialize the interactive command parser  */
  534.  
  535. cmdini() {
  536.  
  537. #ifdef AMIGA
  538.     congm();
  539.     concb(escape);
  540. #endif
  541.     tlevel = -1;            /* Take file level */
  542.     cmsetp("C-Kermit>");        /* Set default prompt */
  543.  
  544. /* Look for init file in home or current directory. */
  545. #ifdef OS2
  546.     lp = zfindfile(KERMRC);
  547.     strcpy(line,lp);
  548.     if ((tfile[0] = fopen(line,"r")) != NULL) {
  549.         tlevel = 0;
  550.         debug(F110,"init file",line,0);
  551.     } else {
  552.         debug(F100,"no init file","",0);
  553.     }
  554. #else
  555.     homdir = zhome();
  556.     lp = line;
  557.     lp[0] = '\0';
  558. #ifdef vms
  559.     zkermini(line,sizeof(line),KERMRC);
  560. #else
  561.     if (homdir) {
  562.     strcpy(lp,homdir);
  563.     if (lp[0] == '/') strcat(lp,"/");
  564.     }
  565.     strcat(lp,KERMRC);
  566. #endif
  567. #ifdef AMIGA
  568.     reqoff();            /* disable requestors */
  569. #endif
  570.     if ((tfile[0] = fopen(line,"r")) != NULL) {
  571.     tlevel = 0;
  572.     debug(F110,"init file",line,0);
  573.     }
  574.     if (homdir && (tlevel < 0)) {
  575.         strcpy(lp,KERMRC);
  576.     if ((tfile[0] = fopen(line,"r")) != NULL) tlevel = 0;
  577.     }
  578. #endif
  579. #ifdef AMIGA
  580.     reqpop();                /* restore requestors */
  581. #else
  582.     congm();                /* Get console tty modes */
  583. #endif
  584. }
  585.  
  586. /* Display version herald and initial prompt */
  587.  
  588. herald() {
  589.     if (!backgrd) printf("%s,%s\nType ? for help\n",versio,ckxsys);
  590. }
  591.  
  592.  
  593. /*  T R A P  --  Terminal interrupt handler */
  594.  
  595. trap(sig,code) int sig, code; {
  596.     fprintf(stderr,"^C...\n");
  597.     debug(F101,"trap() caught signal","",sig);
  598.     debug(F101," code","",code);
  599.     doexit(GOOD_EXIT);            /* Exit indicating success */
  600. }
  601.  
  602. /*  S T P T R A P -- Handle SIGTSTP signals */
  603.  
  604. #ifdef RTU
  605.     extern int rtu_bug;
  606. #endif
  607.  
  608. stptrap(sig,code) int sig, code; {
  609.     debug(F101,"stptrap() caught signal","",sig);
  610.     debug(F101," code","",code);
  611.     conres();                /* Reset the console */
  612. #ifdef SIGTSTP
  613. #ifdef RTU
  614.     rtu_bug = 1;
  615. #endif
  616.     kill(0, SIGSTOP);            /* If job control, suspend the job */
  617. #else
  618.     doexit(GOOD_EXIT);            /* Probably won't happen otherwise */
  619. #endif
  620.     concb(escape);            /* Put console back in Kermit mode */
  621.     if (!backgrd) prompt();        /* Reissue prompt when fg'd */
  622. }
  623.  
  624. /*  P A R S E R  --  Top-level interactive command parser.  */
  625.  
  626. parser() {
  627.     int xx, cbn;
  628.     char *cbp;
  629.  
  630. #ifdef AMIGA
  631.     reqres();            /* restore AmigaDOS requestors */
  632. #endif
  633.     concb(escape);        /* Put console in cbreak mode. */
  634.     conint(trap);        /* Turn on console terminal interrupts. */
  635. /*
  636.  sstate becomes nonzero when a command has been parsed that requires some
  637.  action from the protocol module.  Any non-protocol actions, such as local
  638.  directory listing or terminal emulation, are invoked directly from below.
  639. */
  640.     if (local && !backgrd) printf("\n"); /*** Temporary kludge ***/
  641.     sstate = 0;                /* Start with no start state. */
  642.     while (sstate == 0) {        /* Parse cmds until action requested */
  643.     while ((tlevel > -1) && feof(tfile[tlevel])) { /* If end of take */
  644.         fclose(tfile[tlevel--]); /* file, close it. */
  645.         cmini(ckxech);        /* and clear the cmd buffer. */
  646.         if (tlevel < 0) {    /* Just popped out of cmd files? */
  647.             conint(trap);    /* Check background stuff again. */
  648.             return(0);        /* End of init file or whatever. */
  649.         }
  650.      }
  651. debug(F101,"tlevel","",tlevel);
  652.     if (tlevel > -1) {        /* If in take file */
  653.         cbp = cmdbuf;        /* Get the next line. */
  654.         cbn = CMDBL;
  655.  
  656. /* Loop to get next command line and all continuation lines from take file. */
  657.  
  658. again:        if (fgets(line,cbn,tfile[tlevel]) == NULL) continue;
  659.         lp = line;            /* Got one, copy it. */
  660.         while (*cbp++ = *lp++)
  661.             if (--cbn < 1) fatal("Command too long for internal buffer");
  662.         if (*(cbp - 3) == '\\') {    /* Continued on next line? */
  663.         cbp -= 3;        /* If so, back up pointer, */
  664.         goto again;        /* go back, get next line. */
  665.         }
  666.         stripq(cmdbuf);        /* Strip any quotes from cmd buffer. */
  667.  
  668.     } else {            /* No take file, get typein. */
  669.  
  670.         if (!backgrd) prompt();    /* Issue interactive prompt. */
  671.         cmini(ckxech);
  672.         }
  673.     repars = 1;
  674.     displa = 0;
  675.     while (repars) {
  676.         cmres();            /* Reset buffer pointers. */
  677.         xx = cmkey(cmdtab,ncmd,"Command","");
  678.         debug(F101,"top-level cmkey","",xx);
  679.         switch (docmd(xx)) {
  680.         case -4:        /* EOF */
  681.             doexit(GOOD_EXIT);    /* ...exit successfully */
  682.             case -1:        /* Reparse needed */
  683.             repars = 1;
  684.             continue;
  685.             case -2:        /* Invalid command given */
  686.             if (backgrd)     /* if in background, terminate */
  687.             fatal("Kermit command error in background execution");
  688.             if (tlevel > -1) {    /* If in take file, quit */
  689.             ermsg("Kermit command error: take file terminated.");
  690.             fclose(tfile[tlevel]);
  691.             tlevel--;
  692.             }
  693.             cmini(ckxech);    /* (fall thru) */
  694.              case -3:        /* Empty command OK at top level */
  695.         default:        /* Anything else (fall thru) */
  696.             repars = 0;        /* No reparse, get new command. */
  697.             continue;
  698.             }
  699.         }
  700.     }
  701. /* Got an action command; disable terminal interrupts and return start state */
  702.  
  703.     if (!local) connoi();        /* Interrupts off only if remote */
  704.     return(sstate);
  705. }
  706.  
  707. /*  D O E X I T  --  Exit from the program.  */
  708.  
  709. doexit(exitstat) int exitstat; {
  710.  
  711.     ttclos();                /* Close external line, if any */
  712.     if (local) {
  713.     strcpy(ttname,dftty);        /* Restore default tty */
  714.     local = dfloc;            /* And default remote/local status */
  715.     }
  716.     if (!quiet) conres();        /* Restore console terminal. */
  717.     if (!quiet) connoi();        /* Turn off console interrupt traps. */
  718.  
  719.     if (deblog) {            /* Close any open logs. */
  720.     debug(F100,"Debug Log Closed","",0);
  721.     *debfil = '\0';
  722.     deblog = 0;
  723.     zclose(ZDFILE);
  724.     }
  725.     if (pktlog) {
  726.     *pktfil = '\0';
  727.     pktlog = 0;
  728.     zclose(ZPFILE);
  729.     }
  730.     if (seslog) {
  731.         *sesfil = '\0';
  732.     seslog = 0;
  733.     zclose(ZSFILE);
  734.     }
  735.     if (tralog) {
  736.     tlog(F100,"Transaction Log Closed","",0l);
  737.     *trafil = '\0';
  738.     tralog = 0;
  739.     zclose(ZTFILE);
  740.     }
  741.     syscleanup();
  742.     exit(exitstat);                /* Exit from the program. */
  743. }
  744.  
  745. /*  B L D L E N  --  Make length-encoded copy of string  */
  746.  
  747. char *
  748. bldlen(str,dest) char *str, *dest; {
  749.     int len;
  750.     len = strlen(str);
  751.     *dest = tochar(len);
  752.     strcpy(dest+1,str);
  753.     return(dest+len+1);
  754. }
  755.  
  756.  
  757. /*  S E T G E N  --  Construct a generic command  */
  758.  
  759. setgen(type,arg1,arg2,arg3) char type, *arg1, *arg2, *arg3; {
  760.     char *upstr, *cp;
  761.  
  762.     cp = cmdstr;
  763.     *cp++ = type;
  764.     *cp = NUL;
  765.     if (*arg1 != NUL) {
  766.     upstr = bldlen(arg1,cp);
  767.     if (*arg2 != NUL) {
  768.         upstr = bldlen(arg2,upstr);
  769.         if (*arg3 != NUL) bldlen(arg3,upstr);
  770.     }
  771.     }
  772.     cmarg = cmdstr;
  773.     debug(F110,"setgen",cmarg,0);
  774.  
  775.     return('g');
  776. }
  777.  
  778. /*  D O C M D  --  Do a command  */
  779.  
  780. /*
  781.  Returns:
  782.    -2: user typed an illegal command
  783.    -1: reparse needed
  784.     0: parse was successful (even tho command may have failed).
  785. */
  786.  
  787. docmd(cx) int cx; {
  788.     int x, y;
  789.     char *s;
  790.  
  791.     switch (cx) {
  792.  
  793. case -4:                /* EOF */
  794. #ifdef OSK
  795.     if (!quiet && !backgrd) printf("\n");
  796. #else
  797.     if (!quiet && !backgrd) printf("\r\n");
  798. #endif /* OSK */
  799.     doexit(GOOD_EXIT);
  800. case -3:                /* Null command */
  801.     return(0);
  802. case -2:                /* Error */
  803. case -1:                /* Reparse needed */
  804.     return(cx);
  805.  
  806. case XXBYE:                /* bye */
  807.     if ((x = cmcfm()) < 0) return(x);
  808.     if (!local) {
  809.     printf("You have to 'set line' first\n");
  810.     return(0);
  811.     }
  812.     sstate = setgen('L',"","","");
  813.     return(0);
  814.  
  815. case XXCOM:                /* comment */
  816.     if ((x = cmtxt("Text of comment line","",&s)) < 0) return(x);
  817.     return(0);
  818.  
  819. case XXCON:                         /* connect */
  820.     if ((x = cmcfm()) < 0) return(x);
  821.     return(doconect());
  822.  
  823. case XXCWD:
  824. #ifdef AMIGA
  825.     if (cmtxt("Name of local directory, or carriage return","",&s) < 0)
  826.         return(-1);
  827.     /* if no name, just print directory name */
  828.     if (*s) {
  829.     if (chdir(s)) perror(s);
  830.     cwdf = 1;
  831.     }
  832.     if (getcwd(line, sizeof(line)) == NULL)
  833.     printf("Current directory name not available.\n");
  834.     else
  835.     if (!backgrd) printf("%s\n", line);
  836. #else
  837. /*    if (cmtxt("Name of local directory, or carriage return",homdir,&s) < 0)
  838. /*        return(-1);     <-- this replaced by new cmdir() function, below.
  839. */
  840.     if ((x = cmdir("Name of local directory, or carriage return",homdir,&s))
  841.      < 0 ) return(x);
  842.     if (x == 2) {
  843.     printf("\n?Wildcards not allowed in directory name\n");
  844.     return(-2);
  845.     }
  846. #ifdef OS2
  847.     if ( s!=NUL ) {
  848.     if (strlen(s)>=2 && s[1]==':') {    /* Disk specifier */
  849.         if (zchdsk(*s)) {            /* Change disk successful */
  850.             if ( strlen(s)>=3 & ( s[2]=='\\' || isalnum(s[2]) ) ) {
  851.                 if (chdir(s)) perror(s);
  852.             }
  853.         } else perror(s);
  854.     } else if (chdir(s)) perror(s);
  855.     }
  856.     cwdf = 1;
  857.     concooked();
  858.     system(PWDCMD);
  859.     conraw();
  860. #else
  861.     if (! zchdir(s)) perror(s);
  862.     cwdf = 1;
  863.     system(PWDCMD);
  864. #endif
  865. #endif
  866.     return(0);
  867.  
  868. case XXCLO:
  869.     x = cmkey(logtab,nlog,"Which log to close","");
  870.     if (x == -3) {
  871.     printf("?You must tell which log\n");
  872.     return(-2);
  873.     }
  874.     if (x < 0) return(x);
  875.     if ((y = cmcfm()) < 0) return(y);
  876.     switch (x) {
  877.  
  878.     case LOGD:
  879.         if (deblog == 0) {
  880.         printf("?Debugging log wasn't open\n");
  881.         return(0);
  882.         }
  883.         *debfil = '\0';
  884.         deblog = 0;
  885.         return(zclose(ZDFILE));
  886.  
  887.     case LOGP:
  888.         if (pktlog == 0) {
  889.         printf("?Packet log wasn't open\n");
  890.         return(0);
  891.         }
  892.         *pktfil = '\0';
  893.         pktlog = 0;
  894.         return(zclose(ZPFILE));
  895.  
  896.     case LOGS:
  897.         if (seslog == 0) {
  898.         printf("?Session log wasn't open\n");
  899.         return(0);
  900.         }
  901.         *sesfil = '\0';
  902.         seslog = 0;
  903.         return(zclose(ZSFILE));
  904.  
  905.         case LOGT:
  906.         if (tralog == 0) {
  907.         printf("?Transaction log wasn't open\n");
  908.         return(0);
  909.         }
  910.         *trafil = '\0';
  911.         tralog = 0;
  912.         return(zclose(ZTFILE));
  913.  
  914.     default:
  915.         printf("\n?Unexpected log designator - %ld\n", x);
  916.         return(0);
  917.     }
  918.  
  919. case XXDIAL:                /* dial number */
  920.     if ((x = cmtxt("Number to be dialed","",&s)) < 0) return(x);
  921. /***/ debug(F110,"ckuusr calling ckdial",s,0);
  922.     return(ckdial(s));
  923.  
  924. case XXDIR:                /* directory */
  925. #ifdef vms
  926.     if ((x = cmtxt("Directory/file specification","",&s)) < 0) return(x);
  927.     /* now do this the same as a shell command - helps with LAT  */
  928.     conres();           /* make console normal */
  929.     lp = line;
  930.     sprintf(lp,"%s %s",DIRCMD,s);
  931.     debug(F110,"Directory string: ", line, 0);
  932.     concb(escape);
  933.     return(0);
  934. #else
  935. #ifdef AMIGA
  936.     if ((x = cmtxt("Directory/file specification","",&s)) < 0) return(x);
  937. #else
  938. #ifdef datageneral
  939.     if ((x = cmtxt("Directory/file specification","+",&s)) < 0) return(x);
  940. #else
  941.     if ((x = cmdir("Directory/file specification","*",&s)) < 0) return(x);
  942. #endif
  943. #endif
  944.     lp = line;
  945.     sprintf(lp,"%s %s",DIRCMD,s);
  946. #ifdef OS2
  947.     concooked();
  948.     system(line);
  949.     conraw();
  950. #else
  951.     system(line);
  952. #endif
  953.     return(0);
  954. #endif
  955.  
  956. case XXECH:                 /* echo */
  957.     if ((x = cmtxt("Material to be echoed","",&s)) < 0) return(x);
  958.     for ( ; *s; s++) {
  959.     if ((x = *s) == 0134) {        /* Convert octal escapes */
  960.         s++;            /* up to 3 digits */
  961.         for (x = y = 0; *s >= '0' && *s <= '7' && y < 3; s++,y++) {
  962.             x = x * 8 + (int) *s - 48;
  963.         }
  964.         s--;
  965.         }
  966.     putchar(x);
  967.     }
  968.     printf("\n");
  969.     return(0);
  970.  
  971. case XXQUI:                /* quit, exit */
  972. case XXEXI:
  973.     if ((x = cmcfm()) > -1) doexit(GOOD_EXIT);
  974.     else return(x);
  975.  
  976. case XXFIN:                /* finish */
  977.     if ((x = cmcfm()) < 0) return(x);
  978.     if (!local) {
  979.     printf("You have to 'set line' first\n");
  980.     return(0);
  981.     }
  982.     sstate = setgen('F',"","","");
  983.     return(0);
  984.  
  985. case XXGET:                /* get */
  986.     if (!local) {
  987.     printf("\nYou have to 'set line' first\n");
  988.     return(0);
  989.     }
  990.     x = cmtxt("Name of remote file(s), or carriage return","",&cmarg);
  991.     if ((x == -2) || (x == -1)) return(x);
  992.  
  993. /* If foreign file name omitted, get foreign and local names separately */
  994.  
  995.     x = 0;                /* For some reason cmtxt returns 1 */
  996.     if (*cmarg == NUL) {
  997.  
  998.     if (tlevel > -1) {        /* Input is from take file */
  999.  
  1000.         if (fgets(line,100,tfile[tlevel]) == NULL)
  1001.             fatal("take file ends prematurely in 'get'");
  1002.         debug(F110,"take-get 2nd line",line,0);
  1003.         stripq(line);
  1004.         for (x = strlen(line);
  1005.               x > 0 && (line[x-1] == LF || line[x-1] == CR);
  1006.          x--)
  1007.         line[x-1] = '\0';
  1008.         cmarg = line;
  1009.         if (fgets(cmdbuf,CMDBL,tfile[tlevel]) == NULL)
  1010.             fatal("take file ends prematurely in 'get'");
  1011.         stripq(cmdbuf);
  1012.         for (x = strlen(cmdbuf);
  1013.               x > 0 && (cmdbuf[x-1] == LF || cmdbuf[x-1] == CR);
  1014.          x--)
  1015.         cmdbuf[x-1] = '\0';
  1016.         if (*cmdbuf == NUL) cmarg2 = line; else cmarg2 = cmdbuf;
  1017.             x = 0;            /* Return code */
  1018.  
  1019.         } else {            /* Input is from terminal */
  1020.  
  1021.         char psave[40];        /* Save old prompt */
  1022.         cmsavp(psave,40);
  1023.         cmsetp(" Remote file specification: "); /* Make new one */
  1024.         cmini(ckxech);
  1025.         x = -1;
  1026.         if (!backgrd) prompt();
  1027.         while (x == -1) {        /* Prompt till they answer */
  1028.             x = cmtxt("Name of remote file(s)","",&cmarg);
  1029.         debug(F111," cmtxt",cmarg,x);
  1030.         }
  1031.         if (x < 0) {
  1032.         cmsetp(psave);
  1033.         return(x);
  1034.         }
  1035.         if (*cmarg == NUL) {     /* If user types a bare CR, */
  1036.         printf("(cancelled)\n"); /* Forget about this. */
  1037.             cmsetp(psave);        /* Restore old prompt, */
  1038.         return(0);        /* and return. */
  1039.         }
  1040.         strcpy(line,cmarg);        /* Make a safe copy */
  1041.         cmarg = line;
  1042.         cmsetp(" Local name to store it under: ");    /* New prompt */
  1043.         cmini(ckxech);
  1044.         x = -1;
  1045.         if (!backgrd) prompt();
  1046.         while (x == -1) {        /* Again, parse till answered */
  1047.             x = cmofi("Local file name","",&cmarg2);
  1048.         }
  1049.         if (x == -3) {                    /* If bare CR, */
  1050.         printf("(cancelled)\n");    /* escape from this... */
  1051.             cmsetp(psave);                /* Restore old prompt, */
  1052.         return(0);                /* and return. */
  1053.         } else if (x < 0) return(x);        /* Handle parse errors. */
  1054.  
  1055.         x = -1;            /* Get confirmation. */
  1056.         while (x == -1) x = cmcfm();
  1057.         cmsetp(psave);        /* Restore old prompt. */
  1058.         }
  1059.     }
  1060.     if (x == 0) {            /* Good return from cmtxt or cmcfm, */
  1061.     sstate = 'r';            /* set start state. */
  1062.     if (local) displa = 1;
  1063.     }
  1064.     return(x);
  1065.  
  1066. case XXHLP:                /* Help */
  1067.     x = cmkey(cmdtab,ncmd,"C-Kermit command","help");
  1068.     return(dohlp(x));
  1069.  
  1070. case XXHAN:                /* Hangup */
  1071.     if ((x = cmcfm()) > -1) return(tthang());
  1072.  
  1073. case XXLOG:                /* Log */
  1074.     x = cmkey(logtab,nlog,"What to log","");
  1075.     if (x == -3) {
  1076.     printf("?You must specify what is to be logged\n");
  1077.     return(-2);
  1078.     }
  1079.     if (x < 0) return(x);
  1080.     return(dolog(x));
  1081.  
  1082. case XXLOGI:                /* Send script remote system */
  1083.     if ((x = cmtxt("Text of login script","",&s)) < 0) return(x);
  1084.     return( login(s) );            /* Return 0=completed, -2=failed */
  1085.  
  1086. case XXREC:                /* Receive */
  1087.     cmarg2 = "";
  1088.     x = cmofi("Name under which to store the file, or CR","",&cmarg2);
  1089.     if ((x == -1) || (x == -2)) return(x);
  1090.     debug(F111,"cmofi cmarg2",cmarg2,x);
  1091.     if ((x = cmcfm()) < 0) return(x);
  1092.     sstate = 'v';
  1093.     if (local) displa = 1;
  1094.     return(0);
  1095.  
  1096. case XXREM:                /* Remote */
  1097.     if (!local) {
  1098.     printf("\nYou have to 'set line' first\n");
  1099.     return(-2);
  1100.     }
  1101.     x = cmkey(remcmd,nrmt,"Remote Kermit server command","");
  1102.     if (x == -3) {
  1103.     printf("?You must specify a command for the remote server\n");
  1104.     return(-2);
  1105.     }
  1106.     return(dormt(x));
  1107.  
  1108. case XXSEN:                /* Send */
  1109.     cmarg = cmarg2 = "";
  1110.     if ((x = cmifi("File(s) to send","",&s,&y)) < 0) {
  1111.     if (x == -3) {
  1112.         printf("?A file specification is required\n");
  1113.         return(-2);
  1114.     }
  1115.     return(x);
  1116.     }
  1117.     nfils = -1;                /* Files come from internal list. */
  1118.     strcpy(line,s);            /* Save copy of string just parsed. */
  1119.     debug(F101,"Send: wild","",y);
  1120.     if (y == 0) {
  1121.     if ((x = cmtxt("Name to send it with","",&cmarg2)) < 0) return(x);
  1122.     } else {
  1123.     if ((x = cmcfm()) < 0) return(x);
  1124.     }
  1125.     cmarg = line;            /* File to send */
  1126.     debug(F110,"Sending:",cmarg,0);
  1127.     if (*cmarg2 != '\0') debug(F110," as:",cmarg2,0);
  1128.     sstate = 's';            /* Set start state */
  1129.     if (local) displa = 1;
  1130.     return(0);
  1131.  
  1132. case XXSER:                /* Server */
  1133.     if ((x = cmcfm()) < 0) return(x);
  1134.     sstate = 'x';
  1135.     if (local) displa = 1;
  1136. #ifdef AMIGA
  1137.     reqoff();                /* no DOS requestors while server */
  1138. #endif
  1139.     return(0);
  1140.  
  1141. case XXSET:                /* Set */
  1142.     x = cmkey(prmtab,nprm,"Parameter","");
  1143.     if (x == -3) {
  1144.     printf("?You must specify a parameter to set\n");
  1145.     return(-2);
  1146.     }
  1147.     if (x < 0) return(x);
  1148.     return(doprm(x));
  1149.  
  1150. /* XXSHE code by H. Fischer; copyright rights assigned to Columbia Univ */
  1151. /*
  1152.  Adapted to use getpwuid to find login shell because many systems do not
  1153.  have SHELL in environment, and to use direct calling of shell rather
  1154.  than intermediate system() call. -- H. Fischer
  1155. */
  1156. case XXSHE:                /* Local shell command */
  1157.     {
  1158.     int pid;
  1159. #ifdef AMIGA
  1160.     if (cmtxt("Command to execute","",&s) < 0) return(-1);
  1161. #else
  1162. #ifdef OS2
  1163.     if (cmtxt("OS2 command to execute","",&s) < 0) return(-1);
  1164. #else
  1165.     if (cmtxt("Unix shell command to execute","",&s) < 0) return(-1);
  1166. #endif /* Amiga */
  1167. #endif /* OS2 */
  1168.  
  1169.     conres();                /* Make console normal  */
  1170.  
  1171. #ifdef OS2
  1172.     if (*s == '\0') sprintf(s,"%s","CMD"); /* Command processor */
  1173.     concooked();
  1174.     system(s);
  1175.     conraw();
  1176. #else
  1177. #ifdef OSK
  1178.     system(s);
  1179. #else
  1180. #ifdef AMIGA
  1181.     system(s);
  1182. #else
  1183. #ifdef MSDOS
  1184.     zxcmd(s);
  1185. #else
  1186. #ifdef vms
  1187.     system(s);                /* Best we can do for VMS? */
  1188. #else
  1189. #ifdef datageneral
  1190.     if (*s == NUL)            /* Interactive shell requested? */
  1191. #ifdef mvux
  1192.     system("/bin/sh ");
  1193. #else
  1194.         system("x :cli prefix Kermit_Baby:");
  1195. #endif
  1196.     else                /* Otherwise, */
  1197.         system(s);            /* Best for aos/vs?? */
  1198.  
  1199. #else
  1200. #ifdef aegis
  1201.     if ((pid = vfork()) == 0) {        /* Make child quickly */
  1202.     char *shpath, *shname, *shptr;    /* For finding desired shell */
  1203.  
  1204.         if ((shpath = getenv("SHELL")) == NULL) shpath = "/com/sh";
  1205.  
  1206. #else                    /* All Unix systems */
  1207.     if ((pid = fork()) == 0) {        /* Make child */
  1208.     char *shpath, *shname, *shptr;    /* For finding desired shell */
  1209.     struct passwd *p;
  1210.     extern struct passwd * getpwuid();
  1211.     extern int getuid();
  1212.     char *defShel = "/bin/sh";    /* Default */
  1213.  
  1214.     p = getpwuid( getuid() );    /* Get login data */
  1215.     if ( p == (struct passwd *) NULL || !*(p->pw_shell) )
  1216.         shpath = defShel;
  1217.     else
  1218.         shpath = p->pw_shell;
  1219. #endif
  1220.     shptr = shname = shpath;
  1221.     while (*shptr != '\0')
  1222.         if (*shptr++ == '/') shname = shptr;
  1223.  
  1224. /* Remove following uid calls if they cause trouble */
  1225. #ifdef BSD4
  1226. #ifndef BSD41
  1227.     setegid(getgid());        /* Override 4.3BSD csh security */
  1228.     seteuid(getuid());        /*  checks. */
  1229. #endif
  1230. #endif
  1231.     if (*s == NUL)            /* Interactive shell requested? */
  1232.         execl(shpath,shname,"-i",NULL);    /* Yes, do that */
  1233.     else                /* Otherwise, */
  1234.         execl(shpath,shname,"-c",s,NULL); /* exec the given command */
  1235.     exit(BAD_EXIT); }        /* Just punt if it didn't work */
  1236.  
  1237.     else {                /* Parent */
  1238.  
  1239.         int wstat;            /* Kermit must wait for child */
  1240.     SIGTYP (*istat)(), (*qstat)();
  1241.  
  1242.     istat = signal(SIGINT,SIG_IGN);    /* Let the fork handle keyboard */
  1243.     qstat = signal(SIGQUIT,SIG_IGN); /* interrupts itself... */
  1244.  
  1245.         while (((wstat = wait((int *)0)) != pid) && (wstat != -1)) ;
  1246.                                     /* Wait for fork */
  1247.     signal(SIGINT,istat);        /* Restore interrupts */
  1248.     signal(SIGQUIT,qstat);
  1249.     }
  1250. #endif
  1251. #endif
  1252. #endif
  1253. #endif
  1254. #endif
  1255. #endif
  1256.     concb(escape);            /* Console back in cbreak mode */
  1257.     return(0);
  1258. }
  1259.  
  1260. case XXSHO:                /* Show */
  1261.     x = cmkey(shotab,2,"","parameters");
  1262.     if (x < 0) return(x);
  1263.     if ((y = cmcfm()) < 0) return(y);
  1264.     switch (x) {
  1265.  
  1266.     case SHPAR:
  1267.         shopar();
  1268.         break;
  1269.  
  1270.     case SHVER:
  1271.         printf("\nVersions:\n %s\n %s\n",versio,protv);
  1272.         printf(" %s\n",fnsv);
  1273.         printf(" %s\n %s\n",cmdv,userv);
  1274.         printf(" %s for%s\n",ckxv,ckxsys);
  1275.         printf(" %s for%s\n",ckzv,ckzsys);
  1276.         printf(" %s\n",connv);
  1277.         printf(" %s\n %s\n\n",dialv,loginv);
  1278.         break;
  1279.  
  1280.     default:
  1281.         printf("\nNothing to show...\n");
  1282.         break;
  1283.     }
  1284.     return(0);
  1285.  
  1286. case XXSPA:                /* space */
  1287. #ifdef datageneral
  1288.     /* The DG can take an argument after its "space" command. */
  1289.     if ((x = cmtxt("Confirm, or local directory name","",&s)) < 0) return(x);
  1290.     if (*s == NULL) system(SPACMD);
  1291.     else {
  1292.         char *cp;
  1293.         cp = alloc(strlen(s) + 7);      /* For "space *s" */
  1294.         strcpy(cp,"space "), strcat(cp,s);
  1295.         system(cp);
  1296.         free(cp);
  1297.     }
  1298. #else
  1299.     if ((x = cmcfm()) < 0) return(x);
  1300. #ifdef OS2
  1301.     concooked();
  1302.     system(SPACMD);
  1303.     conraw();
  1304. #else
  1305.     system(SPACMD);
  1306. #endif
  1307. #endif
  1308.     return(0);
  1309.  
  1310. case XXSTA:                /* statistics */
  1311.     if ((x = cmcfm()) < 0) return(x);
  1312.     return(dostat());
  1313.  
  1314. case XXTAK:                /* take */
  1315.     if (tlevel > MAXTAKE-1) {
  1316.     printf("?Take files nested too deeply\n");
  1317.     return(-2);
  1318.     }
  1319.     if ((y = cmifi("C-Kermit command file","",&s,&x)) < 0) {
  1320.     if (y == -3) {
  1321.         printf("?A file specification is required\n");
  1322.         return(-2);
  1323.     } else return(y);
  1324.     }
  1325.     if (x != 0) {
  1326.     printf("?Wildcards not allowed in command file name\n");
  1327.     return(-2);
  1328.     }
  1329.     strcpy(line,s);            /* Make a safe copy of the string */
  1330.     if ((y = cmcfm()) < 0) return(y);
  1331.     if ((tfile[++tlevel] = fopen(line,"r")) == NULL) {
  1332.     perror(line);
  1333.     debug(F110,"Failure to open",line,0);
  1334.     tlevel--;
  1335.     }
  1336.     return(0);
  1337.  
  1338. case XXTRA:                /* transmit */
  1339.     if ((x = cmifi("File to transmit","",&s,&y)) < 0) {
  1340.     if (x == -3) {
  1341.         printf("?Name of an existing file\n");
  1342.         return(-2);
  1343.     }
  1344.     return(x);
  1345.     }
  1346.     if (y != 0) {
  1347.     printf("?Only a single file may be transmitted\n");
  1348.     return(-2);
  1349.     }
  1350.     strcpy(line,s);            /* Save copy of string just parsed. */
  1351.     y = cmnum("Decimal ASCII value of line turnaround character","10",10,&x);
  1352.     debug(F101,"transmit parse turnaround","",x);
  1353.     if (y < 0) return(y);
  1354.     if (x < 0 || x > 127) {
  1355.     printf("?Decimal number between 0 and 127\n");
  1356.     return(-2);
  1357.     }
  1358.     if ((y = cmcfm()) < 0) return(y);    /* Confirm the command */
  1359. /*
  1360.     if (!local) {
  1361.     printf("?Transmit requires prior SET LINE\n");
  1362.     return(-2);
  1363.     }
  1364. */
  1365.     debug(F110,"calling transmit",line,0);
  1366.     return(transmit(line,x));        /* Do the command */
  1367.  
  1368. default:
  1369.     printf("Not available - %s\n",cmdbuf);
  1370.     return(-2);
  1371.     }
  1372. }
  1373.  
  1374. /*  D O C O N E C T  --  Do the connect command  */
  1375.  
  1376. /*  Note, we don't call this directly from dial, because we need to give */
  1377. /*  the user a chance to change parameters (e.g. parity) after the */
  1378. /*  connection is made. */
  1379.  
  1380. doconect() {
  1381.     int x;
  1382.     conres();                /* Put console back to normal */
  1383.     x = conect();            /* Connect */
  1384.     concb(escape);            /* Put console into cbreak mode, */
  1385.     return(x);                /* for more command parsing. */
  1386. }
  1387.  
  1388. /*  T R A N S M I T  --  Raw upload  */
  1389.  
  1390. /*  Obey current line, duplex, parity, flow, text/binary settings. */
  1391. /*  Returns 0 upon apparent success, 1 on obvious failure.  */
  1392.  
  1393. /***
  1394.  Things to add:
  1395.  . Make both text and binary mode obey set file bytesize.
  1396.  . Maybe allow user to specify terminators other than CR?
  1397.  . Maybe allow user to specify prompts other than single characters?
  1398. ***/
  1399.  
  1400. int tr_int;                /* Flag if TRANSMIT interrupted */
  1401.  
  1402. trtrap() {                /* TRANSMIT interrupt trap */
  1403.     tr_int = 1;
  1404.     return(0);
  1405. }
  1406.  
  1407. transmit(s,t) char *s; char t; {
  1408. #define LINBUFSIZ 150
  1409.     char linbuf[LINBUFSIZ+2];        /* Line buffer */
  1410.  
  1411. #ifndef OS2
  1412.     SIGTYP (* oldsig)();        /* For saving old interrupt trap. */
  1413. #endif
  1414.     int z = 0;                /* Return code. */
  1415.     int x, c, i, n;            /* Workers... */
  1416.     CHAR tt;
  1417.  
  1418.     tt = dopar(t);            /* Turnaround char, with parity */
  1419.     debug(F101,"transmit turnaround","",t);
  1420.  
  1421.     if (zopeni(ZIFILE,s) == 0) {    /* Open the file to be transmitted */
  1422.     printf("?Can't open %s\n",s);
  1423.     return(1);
  1424.     }
  1425.     x = -1;                /* Open the communication line */
  1426.     if (ttopen(ttname,&x,mdmtyp) < 0) {    /* (does no harm if already open) */
  1427.     printf("Can't open %s\n",ttname);
  1428.     return(1);
  1429.     }
  1430.     x = x ? speed : -1;            /* Put the line in "packet mode" */
  1431.     if (ttpkt(x,flow,parity) < 0) {
  1432.     printf("Can't condition line\n");
  1433.     return(1);
  1434.     }
  1435.     i = 0;                /* Beginning of buffer. */
  1436. #ifndef OS2
  1437.     oldsig = signal(SIGINT, trtrap);    /* Save current interrupt trap. */
  1438. #endif
  1439.     tr_int = 0;                /* Have not been interrupted (yet). */
  1440.     z = 0;                /* Return code presumed good. */
  1441.  
  1442.     while ((c = zminchar()) != -1) {    /* Loop for all characters in file */
  1443.     if (tr_int) {            /* Interrupted? */
  1444.         fprintf(stderr,"^C...\n");    /* Print message */
  1445.         z = 1;
  1446.         break;
  1447.     }
  1448.     if (duplex) conoc(c);        /* Echo character on screen */
  1449.     if (binary) {            /* If binary file */
  1450.         if (ttoc(dopar(c)) < 0) {    /* just try to send the character */
  1451.         printf("?Can't transmit character\n");
  1452.         z = 1;
  1453.         break;
  1454.         }
  1455.         if (! duplex) {
  1456.         x = ttinc(1);        /* Try to read back echo */
  1457.         if (x > -1) conoc(x);
  1458.         }
  1459.     } else {            /* Line at a time for text files... */
  1460.         if (c == '\n') {        /* Got a line */
  1461.         if (linbuf[i-1] != dopar('\r'))
  1462.           linbuf[i++] = dopar('\r'); /* Terminate it with CR */
  1463.         if (ttol(linbuf,i) < 0) { /* try to send it */
  1464.             printf("?Can't transmit line\n");
  1465.             z = 1;
  1466.             break;
  1467.         }
  1468.         i = 0;            /* Reset the buffer pointer */
  1469.         if (t) {        /* If we want a turnaround character */
  1470.             x = 0;        /* wait for it */
  1471.             while ((x != -1) && (x != t)) {
  1472.             x = ttinc(1);
  1473.             if (! duplex) conoc(x);    /* also echo any echoes */
  1474.             }
  1475.         }
  1476.         } else {            /* Not a newline, regular character */
  1477.         linbuf[i++] = dopar(c); /* Put it in line buffer. */
  1478.         if (i == LINBUFSIZ) {    /* If buffer full, */
  1479.             if (ttol(linbuf,i) < 0) { /* try to send it. */
  1480.             printf("Can't send buffer\n");
  1481.             z = 1;
  1482.             break;
  1483.             }            /* Don't wait for turnaround */
  1484.             i = 0;        /* Reset buffer pointer */
  1485.         }
  1486.         }
  1487.     }
  1488.     }
  1489. #ifndef OS2
  1490.     signal(SIGINT,oldsig);        /* put old signal action back. */
  1491. #endif /* OS2 */
  1492.     ttres();                /* Done, restore tty, */
  1493.     zclose(ZIFILE);            /* close file, */
  1494.     return(z);                /* and return successfully. */
  1495. }
  1496.