home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / archives / gproto.c < prev    next >
C/C++ Source or Header  |  2020-01-01  |  12KB  |  363 lines
  1.  
  2. /* WARNING -- This C source program generated by gwart preprocessor. */
  3. /* Do not edit this file; edit the gwart-format source file instead, */
  4. /* and then run it through gwart to produce a new C source file.     */
  5.  
  6. /* G P R O T O  --  Protocol module for gkermit  */             /* -*-C-*- */
  7.  
  8. /*
  9.   Author:
  10.     Frank da Cruz
  11.     The Kermit Project
  12.     Columbia University
  13.     612 West 115th Street
  14.     New York NY 10025-7799  USA
  15.     http://www.columbia.edu/kermit/
  16.     kermit@columbia.edu
  17.  
  18.   Copyright (C) 1999,
  19.   The Trustees of Columbia University in the City of New York.
  20.  
  21.   This program is free software; you can redistribute it and/or modify
  22.   it under the terms of the GNU General Public License as published by
  23.   the Free Software Foundation; either version 2 of the License, or
  24.   (at your option) any later version.
  25.  
  26.   This program is distributed in the hope that it will be useful,
  27.   but WITHOUT ANY WARRANTY; without even the implied warranty of
  28.   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  29.   GNU General Public License for more details.
  30.  
  31.   You should have received a copy of the GNU General Public License
  32.   along with this program; if not, write to the Free Software
  33.   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  34. */
  35. #include <stdio.h>
  36. #include "gkermit.h"
  37.  
  38. _MYPROTOTYPE( int closof, (void) );    /* Close output file */
  39. _MYPROTOTYPE( VOID errpkt, (char *) );    /* Send Error packet */
  40.  
  41. extern char * xdata, *rdatap, **cmlist, *cmarg, *rpar(), strbuf[], filnam[];
  42. extern int start, bctu, bctr, delay, cx, cz, failure, attributes, datalen;
  43. extern int streamok, streaming, timint;
  44. extern FILE * db;
  45.  
  46. static int x;
  47.  
  48. static VOID
  49. streamon() {                /* Start streaming if negotiated */
  50.     x = 0;
  51.     if (streamok > 0) {
  52.     streaming = 1;
  53.     timint = 0;
  54.     }
  55. }
  56.  
  57. /* Declare gwart states (like lex) */
  58.  
  59. #define ssini 1
  60. #define ssfil 2
  61. #define ssdat 3
  62. #define ssatt 4
  63. #define sseot 5
  64. #define sseof 6
  65. #define sipkt 7
  66. #define srini 8
  67. #define srfil 9
  68. #define srdat 10
  69. #define sratt 11
  70.  
  71. /* Packets are read by the input() function, which returns the packet type */
  72. /* that serves as the input to the state machine, which follows... */
  73.  
  74.  
  75. #define BEGIN state =
  76.  
  77. int state = 0;
  78.  
  79. int
  80. gwart()
  81. {
  82.     int c,actno;
  83.     extern short tbl[];
  84.     while (1) {
  85.     c = input() - 32;
  86.     if (c < 0 || c > 95) c = 0;
  87.     if ((actno = tbl[c + state*96]) != -1)
  88.         switch(actno) {
  89. case 1:
  90.     {                    /* Start state for Send. */
  91.     tinit();                /* Initialize transaction. */
  92.     if (sinit('S') < 0) { errpkt("sinit"); } /* Build and send the S packet. */
  93.     else BEGIN ssini;
  94. }
  95.     break;
  96. case 2:
  97.     {                /* Receive ACK to I packet */
  98.     spar(rdatap);            /* Set parameters from it */
  99.     bctu = bctr;            /* Switch to negotiated block check */
  100.     if (gnfile() > 0) {            /* Is there a file to send? */
  101.         if (sfile() < 0) {        /* Yes, open it, send F packet, */
  102.         errpkt("sfile");
  103.     } else {            /* No error */
  104.         streamon();
  105.         BEGIN ssfil;
  106.     }
  107.     } else {                /* No files to send, */
  108.         if (seot() < 0) { errpkt("seot"); } /* so send EOT packet. */
  109.         else BEGIN sseot;
  110.     }
  111. }
  112.     break;
  113. case 3:
  114.     {                /* Receive ACK to File header packet */
  115.     if (attributes) {            /* If attributes negotiated */
  116.     if (sattr() < 0) {        /* Send file attributes */
  117.         errpkt("sattr");
  118.     } else
  119.       BEGIN ssatt;
  120.     } else if ((x = sdata()) == 0) {    /* Otherwise send first Data packet */
  121.     if (seof("") < 0) {        /* Empty file - send EOF */
  122.         errpkt("seof");
  123.     } else {
  124.         BEGIN sseof;
  125.     }
  126.     } else if (x < 0) {            /* Error */
  127.     errpkt("sdata");
  128.     } else {                /* OK - switch to Data state */
  129.     BEGIN ssdat;
  130.     }
  131. }
  132.     break;
  133. case 4:
  134.     {                /* Receive ACK to Attribute packet */
  135.     if (*rdatap == 'N') {        /* Check for refusal */
  136.     seof("D");
  137.     BEGIN sseof;
  138.     } else if ((x = sdata()) == 0) {    /* Otherwise send first Data packet */
  139.     if (seof("") < 0) {        /* Empty file - send EOF */
  140.         errpkt("seof");
  141.     } else {
  142.         BEGIN sseof;
  143.     }
  144.     } else if (x < 0) {            /* Error */
  145.     errpkt("sdata");
  146.     } else {                /* OK - switch to Data state */
  147.     BEGIN ssdat;
  148.     }
  149. }
  150.     break;
  151. case 5:
  152.     {                /* Receive ACK to Data packet */
  153.     if (*rdatap == 'X')            /* Check for file cancellation */
  154.       cx = 1;
  155.     else if (*rdatap == 'Z')        /* Check for batch cancellation */
  156.       cz = 1;
  157.     if ((x = sdata()) == 0) {        /* Send data packet if data left. */
  158.     if (seof((cx | cz) ? "D" : "") < 0) { /* If not, send Z packet */
  159.         errpkt("seof");
  160.     } else {
  161.         BEGIN sseof;
  162.     }
  163.     } else if (x < 0)            /* Fatal error sending data */
  164.       errpkt("sdata");
  165. }
  166.     break;
  167. case 6:
  168.     {                /* Receive ACK to EOF */
  169.     if (gnfile() > 0) {            /* Get next file from list */
  170.     if (sfile() > 0)
  171.       BEGIN ssfil;
  172.     else { errpkt("sfile"); }
  173.     } else {                /* No more files */
  174.     seot();                /* Send EOT */
  175.     BEGIN sseot;
  176.     }
  177. }
  178.     break;
  179. case 7:
  180.     { return(failure); }
  181.     break;
  182. case 8:
  183.     { tinit(); rinit(); BEGIN srini; }
  184.     break;
  185. case 9:
  186.     {                /* Receive S packet */
  187.     spar(rdatap);            /* Set parameters from it */
  188.     ack1(rpar());            /* ACK with our parameters */
  189.     bctu = bctr;            /* Switch to negotiated block check */
  190.     streamon();
  191.     BEGIN srfil;            /* Wait for file or EOT */
  192. }
  193.     break;
  194. case 10:
  195.     { ack(); return(failure); }
  196.     break;
  197. case 11:
  198.     {                /* Receive File header packet */
  199.     if (rcvfil() < 0) {
  200.     errpkt("rcvfil");
  201.     } else {
  202.     encstr(filnam);
  203.     ack1(xdata);
  204.     streamon();
  205.     BEGIN sratt;
  206.     }
  207. }
  208.     break;
  209. case 12:
  210.     {                /* Receive Attribute packet */
  211.     if (gattr(rdatap) == 0) {
  212.     ack();
  213.     } else {
  214.     ack1("\"");
  215.     }
  216. }
  217.     break;
  218. case 13:
  219.     {                /* Receive first Data packet */
  220.     if (decode(datalen) < 0) {
  221.     errpkt("Packet decoding error");
  222.     } else {
  223.     ack();
  224.     BEGIN srdat;
  225.     }
  226. }
  227.     break;
  228. case 14:
  229.     {                /* Empty file */
  230.     if (*rdatap == 'D')            /* Check for Discard directive */
  231.       cx = 1;
  232.     if (closof() < 0) {            /* Close the output file */
  233.     errpkt("closof");
  234.     } else {
  235.     ack();                /* Send ACK */
  236.     BEGIN srfil;            /* Wait for another file or EOT */
  237.     }
  238. }
  239.     break;
  240. case 15:
  241.     {                /* Receive Data packet */
  242.     if (decode(datalen) < 0)
  243.       errpkt("Packet decoding error");
  244.     else
  245.       ack();
  246. }
  247.     break;
  248. case 16:
  249.     {                /* Receive EOF packet */
  250.     if (*rdatap == 'D')            /* Check for Discard directive */
  251.       cx = 1;
  252.     if (closof() < 0) {            /* Close the output file */
  253.     errpkt("closof");
  254.     } else {
  255.     ack();                /* Send ACK */
  256.     BEGIN srfil;            /* Wait for another file or EOT */
  257.     }
  258. }
  259.     break;
  260. case 17:
  261.     {                    /* Start state for Get */
  262.     tinit();                /* Initialize transaction */
  263.     ginit();                /* Initialize Get */
  264.     sinit('I');                /* Send I packet */
  265.     BEGIN sipkt;
  266. }
  267.     break;
  268. case 18:
  269.     {                /* Receive ACK for I packet */
  270.     spar(rdatap);            /* Set parameters from it */
  271.     if (scmd('R',cmarg) < 0)        /* Send GET packet file filespec */
  272.       errpkt("scmd");
  273.     else
  274.       BEGIN srini;            /* Wait for S packet */
  275. }
  276.     break;
  277. case 19:
  278.     { return(failure = 1); }
  279.     break;
  280. case 20:
  281.     { errpkt("Unknown packet type"); }
  282.     break;
  283.  
  284.         }
  285.     }
  286. }
  287.  
  288. short tbl[] = {
  289.  -1, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20,
  290.  20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20,
  291.  20, 20, 20, 20, 20, 19, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20,
  292.  20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20,
  293.  20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20,
  294.  20, 20, 17,  1, 20, 20,  8, 20, 20, 20, 20, 20, 20, 20, 20, 20,
  295.  -1, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20,
  296.  20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20,
  297.  20, 20, 20, 20, 20, 19, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20,
  298.  20, 20, 20, 20, 20, 20, 20, 20, 20,  2, 20, 20, 20, 20, 20, 20,
  299.  20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20,
  300.  20, 20, 17,  1, 20, 20,  8, 20, 20, 20, 20, 20, 20, 20, 20, 20,
  301.  -1, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20,
  302.  20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20,
  303.  20, 20, 20, 20, 20, 19, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20,
  304.  20, 20, 20, 20, 20, 20, 20, 20, 20,  3, 20, 20, 20, 20, 20, 20,
  305.  20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20,
  306.  20, 20, 17,  1, 20, 20,  8, 20, 20, 20, 20, 20, 20, 20, 20, 20,
  307.  -1, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20,
  308.  20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20,
  309.  20, 20, 20, 20, 20, 19, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20,
  310.  20, 20, 20, 20, 20, 20, 20, 20, 20,  5, 20, 20, 20, 20, 20, 20,
  311.  20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20,
  312.  20, 20, 17,  1, 20, 20,  8, 20, 20, 20, 20, 20, 20, 20, 20, 20,
  313.  -1, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20,
  314.  20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20,
  315.  20, 20, 20, 20, 20, 19, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20,
  316.  20, 20, 20, 20, 20, 20, 20, 20, 20,  4, 20, 20, 20, 20, 20, 20,
  317.  20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20,
  318.  20, 20, 17,  1, 20, 20,  8, 20, 20, 20, 20, 20, 20, 20, 20, 20,
  319.  -1, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20,
  320.  20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20,
  321.  20, 20, 20, 20, 20, 19, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20,
  322.  20, 20, 20, 20, 20, 20, 20, 20, 20,  7, 20, 20, 20, 20, 20, 20,
  323.  20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20,
  324.  20, 20, 17,  1, 20, 20,  8, 20, 20, 20, 20, 20, 20, 20, 20, 20,
  325.  -1, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20,
  326.  20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20,
  327.  20, 20, 20, 20, 20, 19, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20,
  328.  20, 20, 20, 20, 20, 20, 20, 20, 20,  6, 20, 20, 20, 20, 20, 20,
  329.  20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20,
  330.  20, 20, 17,  1, 20, 20,  8, 20, 20, 20, 20, 20, 20, 20, 20, 20,
  331.  -1, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20,
  332.  20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20,
  333.  20, 20, 20, 20, 20, 19, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20,
  334.  20, 20, 20, 20, 20, 20, 20, 20, 20, 18, 20, 20, 20, 20, 20, 20,
  335.  20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20,
  336.  20, 20, 17,  1, 20, 20,  8, 20, 20, 20, 20, 20, 20, 20, 20, 20,
  337.  -1, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20,
  338.  20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20,
  339.  20, 20, 20, 20, 20, 19, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20,
  340.  20, 20, 20,  9, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20,
  341.  20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20,
  342.  20, 20, 17,  1, 20, 20,  8, 20, 20, 20, 20, 20, 20, 20, 20, 20,
  343.  -1, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20,
  344.  20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20,
  345.  20, 20, 10, 20, 20, 19, 11, 20, 20, 20, 20, 20, 20, 20, 20, 20,
  346.  20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20,
  347.  20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20,
  348.  20, 20, 17,  1, 20, 20,  8, 20, 20, 20, 20, 20, 20, 20, 20, 20,
  349.  -1, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20,
  350.  20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20,
  351.  20, 20, 20, 20, 15, 19, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20,
  352.  20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 16, 20, 20, 20, 20, 20,
  353.  20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20,
  354.  20, 20, 17,  1, 20, 20,  8, 20, 20, 20, 20, 20, 20, 20, 20, 20,
  355.   0, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20,
  356.  20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20,
  357.  20, 12, 20, 20, 13, 19, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20,
  358.  20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 14, 20, 20, 20, 20, 20,
  359.  20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20,
  360.  20, 20, 17,  1, 20, 20,  8, 20, 20, 20, 20, 20, 20, 20, 20,20
  361. };
  362.  
  363.