home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / old / misc / ck4e / ckmpro.c < prev    next >
C/C++ Source or Header  |  2020-01-01  |  16KB  |  433 lines
  1.  
  2. /* WARNING -- This C source program generated by Wart preprocessor. */
  3. /* Do not edit this file; edit the Wart-format source file instead, */
  4. /* and then run it through Wart to produce a new C source file.     */
  5.  
  6. /* Wart Version Info: */
  7. char *wartv = "Wart Version 1A(005) 4 Jul 87";
  8.  
  9. char *protv = "C-Kermit Protocol Module 4E(031), 31 Jul 87"; /* -*-C-*- */
  10.  
  11. /* C K C P R O  -- C-Kermit Protocol Module, in Wart preprocessor notation. */
  12. /*
  13.  Authors: Frank da Cruz (SY.FDC@CU20B), Bill Catchings, Jeff Damens;
  14.  Columbia University Center for Computing Activities, January 1985.
  15.  Copyright (C) 1985, Trustees of Columbia University in the City of New York.
  16.  Permission is granted to any individual or institution to use, copy, or
  17.  redistribute this software so long as it is not sold for profit, provided this
  18.  copyright notice is retained.
  19. */
  20. #include "ckcdeb.h"
  21. #include "ckcker.h"
  22. /*
  23.  Note -- This file may also be preprocessed by the Unix Lex program, but
  24.  you must indent the above #include statements before using Lex, and then
  25.  restore them to the left margin in the resulting C program before compilation.
  26.  Also, the invocation of the "wart()" function below must be replaced by an
  27.  invocation  of the "yylex()" function.  It might also be necessary to remove
  28.  comments in the %%...%% section.
  29. */
  30.  
  31. /* State definitions for Wart (or Lex) */
  32. #define ipkt 1
  33. #define rfile 2
  34. #define rdata 3
  35. #define ssinit 4
  36. #define ssfile 5
  37. #define ssdata 6
  38. #define sseof 7
  39. #define sseot 8
  40. #define serve 9
  41. #define generic 10
  42. #define get 11
  43. #define rgen 12
  44.  
  45. /* External C-Kermit variable declarations */
  46.   extern char sstate, *versio, *srvtxt, *cmarg, *cmarg2, *rpar();
  47.   extern char data[], filnam[], srvcmd[], ttname[], *srvptr;
  48.   extern int pktnum, timint, nfils, hcflg, xflg, speed, flow, mdmtyp;
  49.   extern int prvpkt, cxseen, czseen, server, local, displa, bctu, bctr, quiet;
  50. #ifdef MAC
  51.   extern int tsecs, parity;
  52. #else
  53.   extern int tsecs, parity, backgrd;
  54. #endif
  55.   extern int putsrv(), puttrm(), putfil(), errpkt();
  56.   extern char *DIRCMD, *DELCMD, *TYPCMD, *SPACMD, *SPACM2, *WHOCMD;
  57.   extern char *rdatap;
  58.  
  59. /* Local variables */
  60.   static char vstate = 0;          /* Saved State   */
  61.   static char vcmd = 0;            /* Saved Command */
  62.   int x;                /* General-purpose integer */
  63.   char *s;                /* General-purpose string pointer */
  64.  
  65. /* Macros - Note, BEGIN is predefined by Wart (and Lex) */
  66. #define SERVE  tinit(); BEGIN serve
  67. #define RESUME if (server) { SERVE; } else { sleep(2); return; }
  68.  
  69.  
  70. #define BEGIN state =
  71.  
  72. int state = 0;
  73.  
  74. wart()
  75. {
  76.   int c,actno;
  77.   extern char tbl[];
  78.   while (1) {
  79.     c = input();
  80.     if ((actno = tbl[c + state*128]) != -1)
  81.       switch(actno) {
  82. case 1:
  83.     { tinit();                            /* Do Send command */
  84.     if (sinit()) BEGIN ssinit;
  85.        else RESUME; }
  86.     break;
  87. case 2:
  88.     { tinit(); BEGIN get; }
  89.     break;
  90. case 3:
  91.     { tinit(); vstate = get;  vcmd = 0;   sipkt('I'); BEGIN ipkt; }
  92.     break;
  93. case 4:
  94.     { tinit(); vstate = rgen; vcmd = 'C'; sipkt('I'); BEGIN ipkt; }
  95.     break;
  96. case 5:
  97.     { tinit(); vstate = rgen; vcmd = 'G'; sipkt('I'); BEGIN ipkt; }
  98.     break;
  99. case 6:
  100.     { sleep(1); SERVE; }
  101.     break;
  102. case 7:
  103.     { errpkt("User cancelled transaction"); /* "Abort" -- Tell other side. */
  104.     x = quiet; quiet = 1;         /* Close files silently. */
  105.     clsif(); clsof(1);
  106.     quiet = x; return(0); }
  107.     break;
  108. case 8:
  109.     { rinit(rdatap); bctu = bctr; /* Get Send-Init */
  110.        resetc();            /* Reset counters */
  111.            rtimer();            /* Reset timer */
  112.        BEGIN rfile; }
  113.     break;
  114. case 9:
  115.     { spar(rdatap);        /* Get ack for I-packet */
  116.            if (vcmd) { scmd(vcmd,cmarg); vcmd = 0; }
  117.            if (vstate == get) srinit();
  118.        BEGIN vstate; }
  119.     break;
  120. case 10:
  121.     { if (vcmd) scmd(vcmd,cmarg);    /* Get E for I-packet (ignore) */
  122.            vcmd = 0; if (vstate == get) srinit();
  123.        BEGIN vstate; }
  124.     break;
  125. case 11:
  126.     { srvptr = srvcmd; decode(rdatap,putsrv); /* Get Receive-Init */
  127.        cmarg = srvcmd;  nfils = -1;
  128.            if (sinit()) BEGIN ssinit; else { SERVE; } }
  129.     break;
  130. case 12:
  131.     { spar(rdatap); ack1(rpar());               /* Get Init Parameters */
  132.        pktnum = 0; prvpkt = -1; }
  133.     break;
  134. case 13:
  135.     { srvptr = srvcmd; decode(rdatap,putsrv); /* Get & decode command. */
  136.        putsrv('\0'); putsrv('\0');
  137.        sstate = srvcmd[0]; BEGIN generic; }
  138.     break;
  139. case 14:
  140.     { srvptr = srvcmd;                 /* Get command for shell */
  141.        decode(rdatap,putsrv); putsrv('\0');
  142.        if (syscmd(srvcmd,"")) BEGIN ssinit;
  143.        else { errpkt("Can't do system command"); SERVE; } }
  144.     break;
  145. case 15:
  146.     { errpkt("Unimplemented server function"); SERVE; }
  147.     break;
  148. case 16:
  149.     { if (!cwd(srvcmd+1)) errpkt("Can't change directory"); /* CWD */
  150.              SERVE; }
  151.     break;
  152. case 17:
  153.     { if (syscmd(DIRCMD,srvcmd+2)) BEGIN ssinit;    /* Directory */
  154.              else { errpkt("Can't list directory"); SERVE; } }
  155.     break;
  156. case 18:
  157.     { if (syscmd(DELCMD,srvcmd+2)) BEGIN ssinit;    /* Erase */
  158.              else { errpkt("Can't remove file"); SERVE; } }
  159.     break;
  160. case 19:
  161.     { ack(); screen(SCR_TC,0,0l,""); return(0); }
  162.     break;
  163. case 20:
  164.     { ack(); ttres(); screen(SCR_TC,0,0l,""); return(zkself()); }
  165.     break;
  166. case 21:
  167.     { if (sndhlp()) BEGIN ssinit;
  168.              else { errpkt("Can't send help"); SERVE; } }
  169.     break;
  170. case 22:
  171.     { if (syscmd(TYPCMD,srvcmd+2)) BEGIN ssinit;
  172.              else { errpkt("Can't type file"); SERVE; } }
  173.     break;
  174. case 23:
  175.     { x = *(srvcmd+1);            /* Disk Usage query */
  176.              x = ((x == '\0') || (x == SP));
  177.          x = (x ? syscmd(SPACMD,"") : syscmd(SPACM2,srvcmd+2));
  178.              if (x) BEGIN ssinit; else { errpkt("Can't check space"); SERVE; }}
  179.     break;
  180. case 24:
  181.     { if (syscmd(WHOCMD,srvcmd+2)) BEGIN ssinit;
  182.              else { errpkt("Can't do who command"); SERVE; } }
  183.     break;
  184. case 25:
  185.     { errpkt("Unimplemented generic server function"); SERVE; }
  186.     break;
  187. case 26:
  188.     { decode(rdatap,puttrm); RESUME; }
  189.     break;
  190. case 27:
  191.     { if (rcvfil()) { ack1(filnam); BEGIN rdata; } /* File header */
  192.         else { errpkt("Can't open file"); RESUME; } }
  193.     break;
  194. case 28:
  195.     { opent(); ack(); BEGIN rdata; }
  196.     break;
  197. case 29:
  198.     { ack(); tsecs = gtimer(); reot(); RESUME; }
  199.     break;
  200. case 30:
  201.     { if (cxseen) ack1("X");    /* Got data. */
  202.                else if (czseen) ack1("Z");
  203.            else ack();
  204.        decode(rdatap,putfil); }
  205.     break;
  206. case 31:
  207.     { if (reof() < 0) {            /* Got End Of File */
  208.               errpkt("Can't close file"); RESUME;
  209.             } else { ack(); BEGIN rfile; } }
  210.     break;
  211. case 32:
  212.     { spar(rdatap); bctu = bctr;    /* Got ACK to Send-Init */
  213.             x = sfile(xflg);        /* Send X or F header packet */
  214.         if (x) { resetc(); rtimer(); BEGIN ssfile; }
  215.            else { s = xflg ? "Can't execute command" : "Can't open file";
  216.             errpkt(s); RESUME; }
  217.           }
  218.     break;
  219. case 33:
  220.     { srvptr = srvcmd;                 /* Got ACK to F */
  221.         decode(rdatap,putsrv); putsrv('\0');
  222.         if (*srvcmd) tlog(F110," stored as",srvcmd,0);
  223.         if (sdata() < 0) { clsif(); seof(""); BEGIN sseof; }
  224.                 else BEGIN ssdata; }
  225.     break;
  226. case 34:
  227.     { if (canned(rdatap)) { clsif(); seof("D"); BEGIN sseof; }
  228.             else if (sdata() < 0) { clsif(); seof(""); BEGIN sseof; } }
  229.     break;
  230. case 35:
  231.     { if (gnfile() > 0) {        /* Got ACK to EOF, get next file */
  232.         if (sfile(xflg)) BEGIN ssdata;
  233.         else { errpkt("Can't open file") ; RESUME; }
  234.         } else {            /* If no next file, EOT */
  235.         tsecs = gtimer();
  236.         seot();
  237.         BEGIN sseot; }
  238.       }
  239.     break;
  240. case 36:
  241.     { RESUME; }
  242.     break;
  243. case 37:
  244.     { ermsg(rdatap);            /* Error packet, issue message. */
  245.     x = quiet; quiet = 1;        /* Close files silently, */
  246.     clsif(); clsof(1);            /* discarding any output file. */
  247.     tsecs = gtimer();
  248.     quiet = x;
  249. #ifndef MAC
  250.     if (backgrd && !server) fatal("Protocol error");
  251. #endif
  252.     RESUME; }
  253.     break;
  254. case 38:
  255.     { errpkt("Unknown packet type"); RESUME; }
  256.     break;
  257.  
  258.         }
  259.     }
  260. }
  261.  
  262. char tbl[] = {
  263. -1, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38,
  264. 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38,
  265. 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38,
  266. 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38,
  267. 38, 38, 38, 38, 38, 37, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38,
  268. 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38,
  269. 38,  7, 38,  4, 38, 38, 38,  5, 38, 38, 38, 38, 38, 38, 38, 38,
  270. 38, 38,  3,  1, 38, 38,  2, 38,  6, 38, 38, 38, 38, 38, 38, 38,
  271. -1, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38,
  272. 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38,
  273. 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38,
  274. 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38,
  275. 38, 38, 38, 38, 38, 10, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38,
  276. 38, 38, 38, 38, 38, 38, 38, 38, 38,  9, 38, 38, 38, 38, 38, 38,
  277. 38,  7, 38,  4, 38, 38, 38,  5, 38, 38, 38, 38, 38, 38, 38, 38,
  278. 38, 38,  3,  1, 38, 38,  2, 38,  6, 38, 38, 38, 38, 38, 38, 38,
  279. -1, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38,
  280. 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38,
  281. 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38,
  282. 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38,
  283. 38, 38, 29, 38, 38, 37, 27, 38, 38, 38, 38, 38, 38, 38, 38, 38,
  284. 38, 38, 38, 38, 38, 38, 38, 38, 28, 38, 38, 38, 38, 38, 38, 38,
  285. 38,  7, 38,  4, 38, 38, 38,  5, 38, 38, 38, 38, 38, 38, 38, 38,
  286. 38, 38,  3,  1, 38, 38,  2, 38,  6, 38, 38, 38, 38, 38, 38, 38,
  287. -1, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38,
  288. 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38,
  289. 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38,
  290. 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38,
  291. 38, 38, 38, 38, 30, 37, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38,
  292. 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 31, 38, 38, 38, 38, 38,
  293. 38,  7, 38,  4, 38, 38, 38,  5, 38, 38, 38, 38, 38, 38, 38, 38,
  294. 38, 38,  3,  1, 38, 38,  2, 38,  6, 38, 38, 38, 38, 38, 38, 38,
  295. -1, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38,
  296. 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38,
  297. 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38,
  298. 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38,
  299. 38, 38, 38, 38, 38, 37, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38,
  300. 38, 38, 38, 38, 38, 38, 38, 38, 38, 32, 38, 38, 38, 38, 38, 38,
  301. 38,  7, 38,  4, 38, 38, 38,  5, 38, 38, 38, 38, 38, 38, 38, 38,
  302. 38, 38,  3,  1, 38, 38,  2, 38,  6, 38, 38, 38, 38, 38, 38, 38,
  303. -1, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38,
  304. 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38,
  305. 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38,
  306. 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38,
  307. 38, 38, 38, 38, 38, 37, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38,
  308. 38, 38, 38, 38, 38, 38, 38, 38, 38, 33, 38, 38, 38, 38, 38, 38,
  309. 38,  7, 38,  4, 38, 38, 38,  5, 38, 38, 38, 38, 38, 38, 38, 38,
  310. 38, 38,  3,  1, 38, 38,  2, 38,  6, 38, 38, 38, 38, 38, 38, 38,
  311. -1, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38,
  312. 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38,
  313. 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38,
  314. 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38,
  315. 38, 38, 38, 38, 38, 37, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38,
  316. 38, 38, 38, 38, 38, 38, 38, 38, 38, 34, 38, 38, 38, 38, 38, 38,
  317. 38,  7, 38,  4, 38, 38, 38,  5, 38, 38, 38, 38, 38, 38, 38, 38,
  318. 38, 38,  3,  1, 38, 38,  2, 38,  6, 38, 38, 38, 38, 38, 38, 38,
  319. -1, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38,
  320. 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38,
  321. 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38,
  322. 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38,
  323. 38, 38, 38, 38, 38, 37, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38,
  324. 38, 38, 38, 38, 38, 38, 38, 38, 38, 35, 38, 38, 38, 38, 38, 38,
  325. 38,  7, 38,  4, 38, 38, 38,  5, 38, 38, 38, 38, 38, 38, 38, 38,
  326. 38, 38,  3,  1, 38, 38,  2, 38,  6, 38, 38, 38, 38, 38, 38, 38,
  327. -1, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38,
  328. 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38,
  329. 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38,
  330. 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38,
  331. 38, 38, 38, 38, 38, 37, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38,
  332. 38, 38, 38, 38, 38, 38, 38, 38, 38, 36, 38, 38, 38, 38, 38, 38,
  333. 38,  7, 38,  4, 38, 38, 38,  5, 38, 38, 38, 38, 38, 38, 38, 38,
  334. 38, 38,  3,  1, 38, 38,  2, 38,  6, 38, 38, 38, 38, 38, 38, 38,
  335. -1, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15,
  336. 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15,
  337. 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15,
  338. 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15,
  339. 15, 15, 15, 14, 15, 15, 15, 13, 15, 12, 15, 15, 15, 15, 15, 15,
  340. 15, 15, 11,  8, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15,
  341. 15,  7, 15,  4, 15, 15, 15,  5, 15, 15, 15, 15, 15, 15, 15, 15,
  342. 15, 15,  3,  1, 15, 15,  2, 15,  6, 15, 15, 15, 15, 15, 15, 15,
  343. -1, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25,
  344. 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25,
  345. 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25,
  346. 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25, 25,
  347. 25, 25, 25, 16, 17, 18, 19, 25, 21, 25, 25, 25, 20, 25, 25, 25,
  348. 25, 25, 25, 25, 22, 23, 25, 24, 25, 25, 25, 25, 25, 25, 25, 25,
  349. 25,  7, 25,  4, 25, 25, 25,  5, 25, 25, 25, 25, 25, 25, 25, 25,
  350. 25, 25,  3,  1, 25, 25,  2, 25,  6, 25, 25, 25, 25, 25, 25, 25,
  351. -1, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38,
  352. 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38,
  353. 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38,
  354. 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38,
  355. 38, 38, 38, 38, 38, 37, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38,
  356. 38, 38, 38,  8, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38,
  357. 38,  7, 38,  4, 38, 38, 38,  5, 38, 38, 38, 38, 38, 38, 38, 38,
  358. 38, 38,  3,  1, 38, 38,  2, 38,  6, 38, 38, 38, 38, 38, 38, 38,
  359.  0, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38,
  360. 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38,
  361. 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38,
  362. 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38, 38,
  363. 38, 38, 38, 38, 38, 37, 27, 38, 38, 38, 38, 38, 38, 38, 38, 38,
  364. 38, 38, 38,  8, 38, 38, 38, 38, 28, 26, 38, 38, 38, 38, 38, 38,
  365. 38,  7, 38,  4, 38, 38, 38,  5, 38, 38, 38, 38, 38, 38, 38, 38,
  366. 38, 38,  3,  1, 38, 38,  2, 38,  6, 38, 38, 38, 38, 38, 38, 38,
  367. };
  368.  
  369.  
  370. /*  P R O T O  --  Protocol entry function  */
  371.  
  372. proto() {
  373.  
  374.     extern int sigint();
  375.     int x;
  376.  
  377.     conint(sigint);            /* Enable console interrupts */
  378.  
  379. /* Set up the communication line for file transfer. */
  380.  
  381.     if (local && (speed < 0)) {
  382.     screen(SCR_EM,0,0l,"Sorry, you must 'set speed' first");
  383.     return;
  384.     }
  385.  
  386.     x = -1;
  387.     if (ttopen(ttname,&x,mdmtyp) < 0) {
  388.     debug(F111,"failed: proto ttopen local",ttname,local);
  389.     screen(SCR_EM,0,0l,"Can't open line");
  390.     return;
  391.     }
  392.     if (x > -1) local = x;
  393.     debug(F111,"proto ttopen local",ttname,local);
  394.  
  395.     x = (local) ? speed : -1;
  396.     if (ttpkt(x,flow,parity) < 0) {    /* Put line in packet mode, */
  397.     screen(SCR_EM,0,0l,"Can't condition line");
  398.     return;
  399.     }
  400.     if (sstate == 'x') {        /* If entering server mode, */
  401.     server = 1;            /* set flag, */
  402.     if (!quiet) {
  403.         if (!local)            /* and issue appropriate message. */
  404.             conol(srvtxt);
  405.         else {
  406.             conol("Entering server mode on ");
  407.         conoll(ttname);
  408.         }
  409.     }
  410.     } else server = 0;
  411.     if (sstate == 'v' && !local && !quiet)
  412.       conoll("Escape back to your local system and give a SEND command...");
  413.     if (sstate == 's' && !local && !quiet)
  414.       conoll("Escape back to your local system and give a RECEIVE command...");
  415.     sleep(1);
  416. /*
  417.  The 'wart()' function is generated by the wart program.  It gets a
  418.  character from the input() routine and then based on that character and
  419.  the current state, selects the appropriate action, according to the state
  420.  table above, which is transformed by the wart program into a big case
  421.  statement.  The function is active for one transaction.
  422. */
  423.     wart();                /* Enter the state table switcher. */
  424.  
  425.     if (server) {            /* Back from packet protocol. */
  426.     server = 0;
  427.         if (!quiet)              /* Give appropriate message */
  428.         conoll("C-Kermit server done");
  429.     }
  430.     ttres();
  431.     screen(SCR_TC,0,0l,"");        /* Transaction complete */
  432. }
  433.