home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / archives / ckc072.zip / ck9ker.dif < prev    next >
Text File  |  1991-10-03  |  46KB  |  1,670 lines
  1. CK9KER.DIF
  2.  
  3. This file consists of context diffs of the C-Kermit 4E(070) system-dependent
  4. files, showing the changes that were made for OS9 support.  These changes
  5. probably will be added to mainline C-Kermit in the next release.  A formfeed
  6. separates the diff listing for each file, with the filename shown in the
  7. listing.
  8.  
  9. *** ckcdeb.h.orig
  10. --- ckcdeb.h
  11. **************
  12. *** 1,4
  13.   /*  C K C D E B . H  */
  14.   /*
  15.    For release 4E of C-Kermit, July 87.  Incorporates changes from Phil Julian 
  16.    and Jack Rouse of SAS Institute for DG, Apollo, and Amiga support, and from
  17. --- 1,6 -----
  18.   /*  C K C D E B . H  */
  19. + /* Bob Larson (blarson@ecla.usc.edu): add osk support.
  20. + */
  21.   /*
  22.    For release 4E of C-Kermit, July 87.  Incorporates changes from Phil Julian 
  23.    and Jack Rouse of SAS Institute for DG, Apollo, and Amiga support, and from
  24. **************
  25. *** 89,95
  26.   typedef int void;
  27.   #endif
  28.   
  29. ! /* Line delimiter for text files */
  30.   
  31.   /*
  32.    If the system uses a single character for text file line delimitation,
  33. --- 91,99 -----
  34.   typedef int void;
  35.   #endif
  36.   
  37. ! #ifdef OSK
  38. ! typedef int void;
  39. ! #endif
  40.   
  41.   /* Line delimiter for text files */
  42.   
  43. **************
  44. *** 91,96
  45.   
  46.   /* Line delimiter for text files */
  47.   
  48.   /*
  49.    If the system uses a single character for text file line delimitation,
  50.    define NLCHAR to the value of that character.  For text files, that
  51. --- 95,102 -----
  52.   typedef int void;
  53.   #endif
  54.   
  55. + /* Line delimiter for text files */
  56. + 
  57.   /*
  58.    If the system uses a single character for text file line delimitation,
  59.    define NLCHAR to the value of that character.  For text files, that
  60. **************
  61. *** 99,104
  62.   */
  63.   #ifdef MAC                              /* Macintosh */
  64.   #define NLCHAR 015
  65.   #else                                   /* All Unix-like systems */
  66.   #define NLCHAR 012
  67.   #endif
  68. --- 105,113 -----
  69.   */
  70.   #ifdef MAC                              /* Macintosh */
  71.   #define NLCHAR 015
  72. + #else
  73. + #ifdef OSK                /* os9/68k */
  74. + #define NLCHAR 015
  75.   #else                                   /* All Unix-like systems */
  76.   #define NLCHAR 012
  77.   #endif
  78. **************
  79. *** 102,107
  80.   #else                                   /* All Unix-like systems */
  81.   #define NLCHAR 012
  82.   #endif
  83.   /*
  84.    At this point, if there's a system that uses ordinary CRLF line
  85.    delimitation AND the C compiler actually returns both the CR and
  86. --- 111,117 -----
  87.   #else                                   /* All Unix-like systems */
  88.   #define NLCHAR 012
  89.   #endif
  90. + #endif
  91.   /*
  92.    At this point, if there's a system that uses ordinary CRLF line
  93.    delimitation AND the C compiler actually returns both the CR and
  94. **************
  95. *** 117,122
  96.   #ifdef datageneral
  97.   #define CTTNAM "@output"
  98.   #else
  99.   #define CTTNAM "/dev/tty"
  100.   #endif
  101.   #endif
  102. --- 127,136 -----
  103.   #ifdef datageneral
  104.   #define CTTNAM "@output"
  105.   #else
  106. + #ifdef OSK
  107. + extern char myttystr[];        /* initialized in sysinit */
  108. + #define CTTNAM myttystr
  109. + #else
  110.   #define CTTNAM "/dev/tty"
  111.   #endif
  112.   #endif
  113. **************
  114. *** 120,125
  115.   #define CTTNAM "/dev/tty"
  116.   #endif
  117.   #endif
  118.   
  119.   /* Some special includes for VAX/VMS */
  120.   
  121. --- 134,140 -----
  122.   #define CTTNAM "/dev/tty"
  123.   #endif
  124.   #endif
  125. + #endif
  126.   
  127.   /* Some special includes for VAX/VMS */
  128.   
  129. **************
  130. *** 157,159
  131.   #define FWRITE 0x10
  132.   #endif
  133.   
  134. --- 172,179 -----
  135.   #define FWRITE 0x10
  136.   #endif
  137.   
  138. + /* special hack for os9/68k */
  139. + #ifdef OSK
  140. + #define SIGARB    5342        /* arbitrary user signal */
  141. + #define SIGALRM 5343        /* and another */
  142. + #endif
  143.  
  144. *** ckcmai.c.orig
  145. --- ckcmai.c
  146. **************
  147. *** 111,116
  148.   \n\0";
  149.   #endif
  150.   #endif
  151.   char *srvtxt = "\r\n\
  152.   C-Kermit server starting.  Return to your local machine by typing\r\n\
  153.   its escape sequence for closing the connection, and issue further\r\n\
  154. --- 111,124 -----
  155.   \n\0";
  156.   #endif
  157.   #endif
  158. + #ifdef OSK
  159. + char *srvtxt = "\r\l\
  160. + C-Kermit server starting.  Return to your local machine by typing\r\l\
  161. + its escape sequence for closing the connection, and issue further\r\l\
  162. + commands from there.  To shut down the C-Kermit server, issue the\r\l\
  163. + FINISH or BYE command and then reconnect.\r\l\
  164. + \l\0";
  165. + #else
  166.   char *srvtxt = "\r\n\
  167.   C-Kermit server starting.  Return to your local machine by typing\r\n\
  168.   its escape sequence for closing the connection, and issue further\r\n\
  169. **************
  170. *** 117,122
  171.   commands from there.  To shut down the C-Kermit server, issue the\r\n\
  172.   FINISH or BYE command and then reconnect.\n\
  173.   \r\n\0";
  174.   
  175.   /* Declarations for Send-Init Parameters */
  176.   
  177. --- 125,131 -----
  178.   commands from there.  To shut down the C-Kermit server, issue the\r\n\
  179.   FINISH or BYE command and then reconnect.\n\
  180.   \r\n\0";
  181. + #endif
  182.   
  183.   /* Declarations for Send-Init Parameters */
  184.   
  185. **************
  186. *** 236,243
  187.       fncnv  = 1,                         /* Flag for file name conversion */
  188.       binary = 0,                         /* Flag for binary file */
  189.       savmod = 0,                         /* Saved file mode */
  190. !     cmask  = 0177;            /* Connect byte mask */
  191. !     fmask  = 0377;            /* File byte mask */
  192.       warn   = 0,                         /* Flag for file warning */
  193.       quiet  = 0,                         /* Be quiet during file transfer */
  194.       local  = 0,                         /* Flag for external tty vs stdout */
  195. --- 245,252 -----
  196.       fncnv  = 1,                         /* Flag for file name conversion */
  197.       binary = 0,                         /* Flag for binary file */
  198.       savmod = 0,                         /* Saved file mode */
  199. !     cmask  = 0177,            /* Connect byte mask */
  200. !     fmask  = 0377,            /* File byte mask */
  201.       warn   = 0,                         /* Flag for file warning */
  202.       quiet  = 0,                         /* Be quiet during file transfer */
  203.       local  = 0,                         /* Flag for external tty vs stdout */
  204.  
  205. *** ckucmd.c.orig
  206. --- ckucmd.c
  207. **************
  208. *** 1,4
  209. ! char *cmdv = "Unix cmd package V2(022), 27 Jan 88";
  210.    
  211.   /*  C K U C M D  --  Interactive command package for Unix  */
  212.   
  213. --- 1,4 -----
  214. ! char *cmdv = "Unix cmd package V2(022+blarson) 14 Feb 88";
  215.    
  216.   /*  C K U C M D  --  Interactive command package for Unix  */
  217.   
  218. **************
  219. *** 3,9
  220.   /*  C K U C M D  --  Interactive command package for Unix  */
  221.   
  222.   /*
  223. !  V2 adds support for Data General and Apollo Aegis.
  224.   */
  225.   /*
  226.    Modelled after the DECSYSTEM-20 command parser (the COMND JSYS)
  227. --- 3,9 -----
  228.   /*  C K U C M D  --  Interactive command package for Unix  */
  229.   
  230.   /*
  231. !  OSK os9/68k support added by blarson@ecla.usc.edu
  232.   */
  233.   /*
  234.    V2 adds support for Data General and Apollo Aegis.
  235. **************
  236. *** 6,11
  237.    V2 adds support for Data General and Apollo Aegis.
  238.   */
  239.   /*
  240.    Modelled after the DECSYSTEM-20 command parser (the COMND JSYS)
  241.    
  242.    Features:
  243. --- 6,14 -----
  244.    OSK os9/68k support added by blarson@ecla.usc.edu
  245.   */
  246.   /*
  247. +  V2 adds support for Data General and Apollo Aegis.
  248. + */
  249. + /*
  250.    Modelled after the DECSYSTEM-20 command parser (the COMND JSYS)
  251.    
  252.    Features:
  253. **************
  254. *** 70,75
  255.   #include "ckucmd.h"                     /* Command parsing definitions */
  256.   #include "ckcdeb.h"                     /* Formats for debug() */
  257.    
  258.   /* Local variables */
  259.    
  260.   int psetf = 0,                          /* Flag that prompt has been set */
  261. --- 73,82 -----
  262.   #include "ckucmd.h"                     /* Command parsing definitions */
  263.   #include "ckcdeb.h"                     /* Formats for debug() */
  264.    
  265. + #ifdef OSK
  266. + #define cc ccount            /* osk compiler bug */
  267. + #endif
  268. + 
  269.   /* Local variables */
  270.    
  271.   int psetf = 0,                          /* Flag that prompt has been set */
  272. **************
  273. *** 127,132
  274.    
  275.   prompt() {
  276.       if (psetf == 0) cmsetp(dfprom);     /* If no prompt set, set default. */
  277.       printf("\r%s",cmprom);              /* Print the prompt. */
  278.   }
  279.    
  280. --- 134,142 -----
  281.    
  282.   prompt() {
  283.       if (psetf == 0) cmsetp(dfprom);     /* If no prompt set, set default. */
  284. + #ifdef OSK
  285. +     fputs(cmprom, stdout);        /* Print the prompt. */
  286. + #else
  287.       printf("\r%s",cmprom);              /* Print the prompt. */
  288.   #endif
  289.   }
  290. **************
  291. *** 128,133
  292.   prompt() {
  293.       if (psetf == 0) cmsetp(dfprom);     /* If no prompt set, set default. */
  294.       printf("\r%s",cmprom);              /* Print the prompt. */
  295.   }
  296.    
  297.    
  298. --- 138,144 -----
  299.       fputs(cmprom, stdout);        /* Print the prompt. */
  300.   #else
  301.       printf("\r%s",cmprom);              /* Print the prompt. */
  302. + #endif
  303.   }
  304.    
  305.    
  306. **************
  307. *** 913,918
  308.   #ifdef datageneral
  309.                   putchar(FF);
  310.   #else
  311.                   system("clear");        /* and clear the screen. */
  312.   #endif
  313.   #endif
  314. --- 924,932 -----
  315.   #ifdef datageneral
  316.                   putchar(FF);
  317.   #else
  318. + #ifdef OSK
  319. +         putchar(FF);
  320. + #else
  321.                   system("clear");        /* and clear the screen. */
  322.   #endif
  323.   #endif
  324. **************
  325. *** 917,922
  326.   #endif
  327.   #endif
  328.   #endif
  329.               }
  330.    
  331.               if (c == HT) c = SP;        /* Substitute space for tab. */
  332. --- 931,937 -----
  333.   #endif
  334.   #endif
  335.   #endif
  336. + #endif
  337.               }
  338.    
  339.               if (c == HT) c = SP;        /* Substitute space for tab. */
  340. **************
  341. *** 942,947
  342.               if (c == NL || c == CR) {   /* CR, LF */
  343.                   *bp = NUL;              /* End the string */
  344.                   if (echof) {            /* If echoing, */
  345.                       putchar(c);         /* echo the typein */
  346.   #ifdef apollo
  347.                       if (c == CR) putchar(NL);
  348. --- 957,965 -----
  349.               if (c == NL || c == CR) {   /* CR, LF */
  350.                   *bp = NUL;              /* End the string */
  351.                   if (echof) {            /* If echoing, */
  352. + #ifdef OSK
  353. +             if (c == NL) putchar(CR);
  354. + #endif
  355.                       putchar(c);         /* echo the typein */
  356.   #ifdef apollo
  357.                       if (c == CR) putchar(NL);
  358.  
  359. *** ckudia.c.orig
  360. --- ckudia.c
  361. **************
  362. *** 1,4
  363. ! char *dialv = "Dial Command, V2.0(009) 24 Jan 88";
  364.   
  365.   /*  C K U D I A  --  Dialing program for connection to remote system */
  366.   
  367. --- 1,4 -----
  368. ! char *dialv = "Dial Command, V2.0(009)+blarson 21 Feb 88";
  369.   
  370.   /*  C K U D I A  --  Dialing program for connection to remote system */
  371.   
  372. **************
  373. *** 2,7
  374.   
  375.   /*  C K U D I A  --  Dialing program for connection to remote system */
  376.   
  377.   /*
  378.    Author: Herm Fischer (HFISCHER@USC-ECLB)
  379.    Contributed to Columbia University for inclusion in C-Kermit.
  380. --- 2,8 -----
  381.   
  382.   /*  C K U D I A  --  Dialing program for connection to remote system */
  383.   
  384. + /* Os9/68k support by Bob Larson (Blarson@ecla.usc.edu) */
  385.   /*
  386.    Author: Herm Fischer (HFISCHER@USC-ECLB)
  387.    Contributed to Columbia University for inclusion in C-Kermit.
  388. **************
  389. *** 73,78
  390.    *    16-Mar-87    Support for the ATT7300 UNIX PC internal modem was
  391.    *            added.
  392.    *                            -- Richard E. Hill
  393.    */
  394.   
  395.   /*
  396. --- 74,81 -----
  397.    *    16-Mar-87    Support for the ATT7300 UNIX PC internal modem was
  398.    *            added.
  399.    *                            -- Richard E. Hill
  400. +  *    21-Feb-88    Os9/68k and microcom modem support.
  401. +  *                            -- Bob Larson
  402.    */
  403.   
  404.   /*
  405. **************
  406. *** 172,177
  407.   #define        n_VENTEL    11
  408.   #define         n_CONCORD       12
  409.   #define        n_ATT7300    13    /* added for PC7300 */
  410.   
  411.   /*
  412.    * Declare modem "variant" numbers for any of the above for which it is
  413. --- 175,181 -----
  414.   #define        n_VENTEL    11
  415.   #define         n_CONCORD       12
  416.   #define        n_ATT7300    13    /* added for PC7300 */
  417. + #define        n_MICROCOM    14
  418.   
  419.   /*
  420.    * Declare modem "variant" numbers for any of the above for which it is
  421. **************
  422. *** 201,207
  423.       200,        /* wake_rate */
  424.       "",            /* wake_prompt */
  425.       "",            /* dmode_str */
  426. !     "",            /* dmode_prompt */
  427.       "\016D '%s'\r",    /* dial_str */
  428.       200            /* dial_rate */
  429.       };
  430. --- 205,211 -----
  431.       200,        /* wake_rate */
  432.       "",            /* wake_prompt */
  433.       "",            /* dmode_str */
  434. !     NULL,        /* dmode_prompt */
  435.       "\016D '%s'\r",    /* dial_str */
  436.       200            /* dial_rate */
  437.       };
  438. **************
  439. *** 216,222
  440.       0,            /* wake_rate */
  441.       "",            /* wake_prompt */
  442.       "",            /* dmode_str */
  443. !     "",            /* dmode_prompt */
  444.       "%s",        /* dial_str */
  445.       0            /* dial_rate */
  446.       };
  447. --- 220,226 -----
  448.       0,            /* wake_rate */
  449.       "",            /* wake_prompt */
  450.       "",            /* dmode_str */
  451. !     NULL,        /* dmode_prompt */
  452.       "%s",        /* dial_str */
  453.       0            /* dial_rate */
  454.       };
  455. **************
  456. *** 241,247
  457.       0,            /* wake_rate */
  458.       "",            /* wake_prompt */
  459.       "",            /* dmode_str */
  460. !     "",            /* dmode_prompt */
  461.       "%s#",        /* dial_str */
  462.       0            /* dial_rate */
  463.       };
  464. --- 245,251 -----
  465.       0,            /* wake_rate */
  466.       "",            /* wake_prompt */
  467.       "",            /* dmode_str */
  468. !     NULL,        /* dmode_prompt */
  469.       "%s#",        /* dial_str */
  470.       0            /* dial_rate */
  471.       };
  472. **************
  473. *** 266,272
  474.       0,            /* wake_rate */
  475.       "",            /* wake_prompt */
  476.       "",            /* dmode_str */
  477. !     "",            /* dmode_prompt */
  478.       "%s!",        /* dial_str */
  479.       0            /* dial_rate */
  480.       };
  481. --- 270,276 -----
  482.       0,            /* wake_rate */
  483.       "",            /* wake_prompt */
  484.       "",            /* dmode_str */
  485. !     NULL,        /* dmode_prompt */
  486.       "%s!",        /* dial_str */
  487.       0            /* dial_rate */
  488.       };
  489. **************
  490. *** 296,302
  491.       0,            /* wake_rate */
  492.       "",            /* wake_prompt */
  493.       "",            /* dmode_str */
  494. !     "",            /* dmode_prompt */
  495.       "AT D %s\r",    /* dial_str */
  496.       0            /* dial_rate */
  497.       };
  498. --- 300,306 -----
  499.       0,            /* wake_rate */
  500.       "",            /* wake_prompt */
  501.       "",            /* dmode_str */
  502. !     NULL,        /* dmode_prompt */
  503.       "AT D %s\r",    /* dial_str */
  504.       0            /* dial_rate */
  505.       };
  506. **************
  507. *** 341,347
  508.       0,            /* wake_rate */
  509.       "",            /* wake_prompt */
  510.       "",            /* dmode_str */
  511. !     "",            /* dmode_prompt */
  512.       "%s\r",        /* dial_str */
  513.       0            /* dial_rate */
  514.       };
  515. --- 345,351 -----
  516.       0,            /* wake_rate */
  517.       "",            /* wake_prompt */
  518.       "",            /* dmode_str */
  519. !     NULL,        /* dmode_prompt */
  520.       "%s\r",        /* dial_str */
  521.       0            /* dial_rate */
  522.       };
  523. **************
  524. *** 356,362
  525.       0,            /* wake_rate */
  526.       "OK\r",        /* wake_prompt */
  527.       "",            /* dmode_str */
  528. !     "",            /* dmode_prompt */
  529.       "ATTD%s\r",        /* dial_str */
  530.       0            /* dial_rate */
  531.       };
  532. --- 360,366 -----
  533.       0,            /* wake_rate */
  534.       "OK\r",        /* wake_prompt */
  535.       "",            /* dmode_str */
  536. !     NULL,        /* dmode_prompt */
  537.       "ATTD%s\r",        /* dial_str */
  538.       0            /* dial_rate */
  539.       };
  540. **************
  541. *** 371,377
  542.       300,        /* wake_rate */
  543.       "$",        /* wake_prompt */
  544.       "",            /* dmode_str */
  545. !     "",            /* dmode_prompt */
  546.       "<K%s\r>",        /* dial_str */
  547.       0            /* dial_rate */
  548.       };
  549. --- 375,381 -----
  550.       300,        /* wake_rate */
  551.       "$",        /* wake_prompt */
  552.       "",            /* dmode_str */
  553. !     NULL,        /* dmode_prompt */
  554.       "<K%s\r>",        /* dial_str */
  555.       0            /* dial_rate */
  556.       };
  557. **************
  558. *** 386,392
  559.       20,            /* wake_rate */
  560.       "CDS >",        /* wake_prompt */
  561.       "",            /* dmode_str */
  562. !     "",            /* dmode_prompt */
  563.       "<D M%s\r>",    /* dial_str */
  564.       0            /* dial_rate */
  565.       };
  566. --- 390,396 -----
  567.       20,            /* wake_rate */
  568.       "CDS >",        /* wake_prompt */
  569.       "",            /* dmode_str */
  570. !     NULL,        /* dmode_prompt */
  571.       "<D M%s\r>",    /* dial_str */
  572.       0            /* dial_rate */
  573.       };
  574. **************
  575. *** 401,407
  576.       0,            /* wake_rate */
  577.       "",            /* wake_prompt */
  578.       "",            /* dmode_str */
  579. !     "",            /* dmode_prompt */
  580.       "%s\r",        /* dial_str */
  581.       0            /* dial_rate */
  582.       };
  583. --- 405,411 -----
  584.       0,            /* wake_rate */
  585.       "",            /* wake_prompt */
  586.       "",            /* dmode_str */
  587. !     NULL,        /* dmode_prompt */
  588.       "%s\r",        /* dial_str */
  589.       0            /* dial_rate */
  590.       };
  591. **************
  592. *** 405,410
  593.       "%s\r",        /* dial_str */
  594.       0            /* dial_rate */
  595.       };
  596.   
  597.   /*
  598.    * Declare table for converting modem numbers to information pointers.
  599. --- 409,430 -----
  600.       "%s\r",        /* dial_str */
  601.       0            /* dial_rate */
  602.       };
  603. + 
  604. + static
  605. + MDMINF MICROCOM =    /* information for "Microcom" modems in native mode */
  606. +             /* (long answer only) */
  607. +     {
  608. +     35,            /* dial_time */
  609. +     ",!@",        /* pause_chars (! and @ arn't pure pauses) */
  610. +     3,            /* pause_time */
  611. +     "\r",        /* wake_str */
  612. +     100,        /* wake_rate */
  613. +     "!",        /* wake_prompt */
  614. +     "",            /* dmode_str */
  615. +     NULL,        /* dmode_prompt */
  616. +     "d%s\r",        /* dial_str */
  617. +     0            /* dial_rate */
  618. +     };
  619.   
  620.   /*
  621.    * Declare table for converting modem numbers to information pointers.
  622. **************
  623. *** 431,437
  624.       &USROBOT,
  625.       &VENTEL,
  626.       &CONCORD,
  627. !     &ATT7300
  628.       };
  629.   
  630.   /*
  631. --- 451,458 -----
  632.       &USROBOT,
  633.       &VENTEL,
  634.       &CONCORD,
  635. !     &ATT7300,
  636. !     &MICROCOM,
  637.       };
  638.   
  639.   /*
  640. **************
  641. *** 451,456
  642.       "direct",        0,        0,
  643.       "gendatacomm",    n_GDC,        0,
  644.       "hayes",        n_HAYES,    0,
  645.       "penril",        n_PENRIL,    0,
  646.       "racalvadic",    n_RACAL,    0,
  647.       "unknown",        n_UNKNOWN,    0,
  648. --- 472,478 -----
  649.       "direct",        0,        0,
  650.       "gendatacomm",    n_GDC,        0,
  651.       "hayes",        n_HAYES,    0,
  652. +     "microcom",        n_MICROCOM,    0,
  653.       "penril",        n_PENRIL,    0,
  654.       "racalvadic",    n_RACAL,    0,
  655.       "unknown",        n_UNKNOWN,    0,
  656. **************
  657. *** 607,615
  658.               break;
  659.               }
  660.   
  661. !      printf("Dialing thru %s, speed %d, number %s.\r\n",ttname,speed,telnbr);
  662. !      printf("The timeout for completing the call is %d seconds.\r\n",waitct);
  663. !      printf("Type the interrupt character to cancel the dialing.\r\n");
  664.   
  665.   /* Hang up the modem (in case it wasn't "on hook") */
  666.   
  667. --- 629,637 -----
  668.               break;
  669.               }
  670.   
  671. !        printf("Dialing thru %s, speed %d, number %s.\n",ttname,speed,telnbr);
  672. !        printf("The timeout for completing the call is %d seconds.\n",waitct);
  673. !        printf("Type the interrupt character to cancel the dialing.\n");
  674.   
  675.   /* Hang up the modem (in case it wasn't "on hook") */
  676.   
  677. **************
  678. *** 616,622
  679.       if ( tthang() < 0 ) {
  680.           printf("Sorry, Can't hang up tty line\n");
  681.           return(-2);
  682. !         }
  683.   
  684.   /* Condition console terminal and communication line */        
  685.                   /* place line into "clocal" dialing state */
  686. --- 638,644 -----
  687.       if ( tthang() < 0 ) {
  688.           printf("Sorry, Can't hang up tty line\n");
  689.           return(-2);
  690. !     }
  691.   
  692.   /* Condition console terminal and communication line */        
  693.                   /* place line into "clocal" dialing state */
  694. **************
  695. *** 634,640
  696.       alarm ( 0 );            /* disable timeouts */
  697.       if ( n1 = setjmp(sjbuf) )    /* failure while handling failure */
  698.           {
  699. !         printf ( "%s failure while handling failure.\r\n", F_reason[n1] );
  700.           }
  701.       else                /* first (i.e., non-nested) failure */
  702.           {
  703. --- 656,662 -----
  704.       alarm ( 0 );            /* disable timeouts */
  705.       if ( n1 = setjmp(sjbuf) )    /* failure while handling failure */
  706.           {
  707. !         printf ( "%s failure while handling failure.\n", F_reason[n1] );
  708.           }
  709.       else                /* first (i.e., non-nested) failure */
  710.           {
  711. **************
  712. *** 648,654
  713.           {
  714.           case F_time:        /* timed out */
  715.           {
  716. !         printf ( "No connection made within the allotted time.\r\n" );
  717.           break;
  718.           }
  719.           case F_int:            /* dialing interrupted */
  720. --- 670,676 -----
  721.           {
  722.           case F_time:        /* timed out */
  723.           {
  724. !         printf ( "No connection made within the allotted time.\n" );
  725.           break;
  726.           }
  727.           case F_int:            /* dialing interrupted */
  728. **************
  729. *** 653,659
  730.           }
  731.           case F_int:            /* dialing interrupted */
  732.           {
  733. !         printf ( "Dialing interrupted.\r\n" );
  734.           break;
  735.           }
  736.           case F_modem:        /* modem detected a failure */
  737. --- 675,681 -----
  738.           }
  739.           case F_int:            /* dialing interrupted */
  740.           {
  741. !         printf ( "Dialing interrupted.\n" );
  742.           break;
  743.           }
  744.           case F_modem:        /* modem detected a failure */
  745. **************
  746. *** 662,668
  747.           for ( pc=lbuf; *pc; pc++ )
  748.               if ( isprint(*pc) )
  749.               putchar(*pc);    /* display printable reason */ 
  750. !         printf ( "\").\r\n" );
  751.           break;
  752.           }
  753.           case F_minit:        /* cannot initialize modem */
  754. --- 684,690 -----
  755.           for ( pc=lbuf; *pc; pc++ )
  756.               if ( isprint(*pc) )
  757.               putchar(*pc);    /* display printable reason */ 
  758. !         printf ( "\").\n" );
  759.           break;
  760.           }
  761.           case F_minit:        /* cannot initialize modem */
  762. **************
  763. *** 667,673
  764.           }
  765.           case F_minit:        /* cannot initialize modem */
  766.           {
  767. !         printf ( "Cannot initialize modem.\r\n" );
  768.           break;
  769.           }
  770.           }
  771. --- 689,695 -----
  772.           }
  773.           case F_minit:        /* cannot initialize modem */
  774.           {
  775. !         printf ( "Cannot initialize modem.\n" );
  776.           break;
  777.           }
  778.           }
  779. **************
  780. *** 714,721
  781.               }
  782.               status = IGNORE;
  783.               break;
  784. !             case '\n':
  785. !             case '\r':
  786.               status = 0;
  787.               break;
  788.               case '0':            /* numeric result code */
  789. --- 736,743 -----
  790.               }
  791.               status = IGNORE;
  792.               break;
  793. !             case LF:
  794. !             case CR:
  795.               status = 0;
  796.               break;
  797.               case '0':            /* numeric result code */
  798. **************
  799. *** 748,753
  800.                       /* interdigit waits for tone dial */
  801.   /* ...dial, cont'd */
  802.   
  803.       default:            /* place modem into command mode */
  804.       ttolSlow(pmdminf->wake_str, pmdminf->wake_rate);
  805.       waitFor(pmdminf->wake_prompt);
  806. --- 770,796 -----
  807.                       /* interdigit waits for tone dial */
  808.   /* ...dial, cont'd */
  809.   
  810. +     case n_MICROCOM:
  811. +         {
  812. +         jmp_buf savejmp;
  813. +         alarm(0);
  814. +         memcpy((char *)savejmp, (char *)sjbuf, sizeof savejmp);
  815. +         if(setjmp(sjbuf)) {
  816. +             /* try the autobaud sequence */
  817. +         memcpy((char *)sjbuf, (char *)savejmp, sizeof savejmp);
  818. +         alarm(5);
  819. +             ttolSlow("44445", MICROCOM.wake_rate);
  820. +         waitFor(MICROCOM.wake_str);
  821. +         } else {
  822. +         alarm(2);
  823. +         ttolSlow(MICROCOM.wake_str, MICROCOM.wake_rate);
  824. +             waitFor(MICROCOM.wake_str);
  825. +         alarm(0);
  826. +         memcpy((char *)sjbuf, (char *)savejmp, sizeof savejmp);
  827. +         }
  828. +     }
  829. +     break;
  830. +     
  831.       default:            /* place modem into command mode */
  832.       ttolSlow(pmdminf->wake_str, pmdminf->wake_rate);
  833.       waitFor(pmdminf->wake_prompt);
  834. **************
  835. *** 800,806
  836.       while (status == 0) {
  837.         switch (augmdmtyp) {
  838.       default:
  839. !         for (n=0; n < LBUFL; n++) {    /* accumulate response */
  840.           lbuf[n] = (ttinc(0) & 0177); 
  841.           if ( lbuf[n] == '\r' || lbuf[n] == '\n' ) break;
  842.           }
  843. --- 843,849 -----
  844.       while (status == 0) {
  845.         switch (augmdmtyp) {
  846.       default:
  847. !         for (n=0; n < LBUFL-1; n++) {    /* accumulate response */
  848.           lbuf[n] = (ttinc(0) & 0177); 
  849.           if ( lbuf[n] == CR || lbuf[n] == LF ) break;
  850.           }
  851. **************
  852. *** 802,808
  853.       default:
  854.           for (n=0; n < LBUFL; n++) {    /* accumulate response */
  855.           lbuf[n] = (ttinc(0) & 0177); 
  856. !         if ( lbuf[n] == '\r' || lbuf[n] == '\n' ) break;
  857.           }
  858.           lbuf[n] = '\0';        /* terminate response from modem */
  859.           if (n) {            /* if one or more characters present */
  860. --- 845,851 -----
  861.       default:
  862.           for (n=0; n < LBUFL-1; n++) {    /* accumulate response */
  863.           lbuf[n] = (ttinc(0) & 0177); 
  864. !         if ( lbuf[n] == CR || lbuf[n] == LF ) break;
  865.           }
  866.           lbuf[n] = '\0';        /* terminate response from modem */
  867.           if (n) {            /* if one or more characters present */
  868. **************
  869. *** 867,872
  870.               if (didWeGet(lbuf,"BUSY")) status = FAILED;
  871.               if (didWeGet(lbuf,"CALL FAILED")) status = FAILED;
  872.               break;
  873.           }
  874.           }
  875.           break;
  876. --- 910,924 -----
  877.               if (didWeGet(lbuf,"BUSY")) status = FAILED;
  878.               if (didWeGet(lbuf,"CALL FAILED")) status = FAILED;
  879.               break;
  880. +           case n_MICROCOM:
  881. +             /* "RINGBACK" means phone line ringing, continue */
  882. +             if (didWeGet(lbuf,"NO CONNECT")) status = FAILED;
  883. +             if (didWeGet(lbuf,"CONNECT")) status = CONNECTED;
  884. +             if (didWeGet(lbuf,"BUSY")) status = FAILED;
  885. +             if (didWeGet(lbuf,"NO DIALTONE")) status = FAILED;
  886. +             if (didWeGet(lbuf,"COMMAND ERROR")) status = FAILED;
  887. +             if (didWeGet(lbuf,"IN USE")) status = FAILED;
  888. +             break;
  889.           }
  890.           }
  891.           break;
  892. **************
  893. *** 900,905
  894.       ttpkt(speed,CONNECT,parity);    /* cancel dialing state ioctl */
  895.       reset ();                /* reset alarms, etc. */
  896.       if ( ! quiet )
  897. !     printf ( "Call completed.\07\r\n" );
  898.       return ( 0 );            /* return, and presumably connect */
  899.   }
  900. --- 952,957 -----
  901.       ttpkt(speed,CONNECT,parity);    /* cancel dialing state ioctl */
  902.       reset ();                /* reset alarms, etc. */
  903.       if ( ! quiet )
  904. !     printf ( "Call completed.\07\n" );
  905.       return ( 0 );            /* return, and presumably connect */
  906.   }
  907.  
  908. *** ckuscr.c.orig
  909. --- ckuscr.c
  910. **************
  911. *** 1,4
  912. ! char *loginv = "Script Command, V2.0(007) 3 Aug 87";
  913.   
  914.   /*  C K U S C R  --  Login script for logging onto remote system */
  915.   
  916. --- 1,4 -----
  917. ! char *loginv = "Script Command, V2.0(007)+blarson 15 Feb 88";
  918.   
  919.   /*  C K U S C R  --  Login script for logging onto remote system */
  920.   
  921. **************
  922. *** 2,7
  923.   
  924.   /*  C K U S C R  --  Login script for logging onto remote system */
  925.   
  926.   /*
  927.    This module should work under all versions of Unix.  It calls externally
  928.    defined system-depended functions for i/o.
  929. --- 2,8 -----
  930.   
  931.   /*  C K U S C R  --  Login script for logging onto remote system */
  932.   
  933. + /* os9/68k support by Bob Larson (Blarson@ecla.usc.edu) */
  934.   /*
  935.    This module should work under all versions of Unix.  It calls externally
  936.    defined system-depended functions for i/o.
  937. **************
  938. *** 80,87
  939.   
  940.       if (*s == '~') {        /* escape character */
  941.           switch (c = *(++s) ) {
  942. !         case 'n':    seq_buf[i++] = '\n'; break;
  943. !         case 'r':    seq_buf[i++] = '\r'; break;
  944.           case 't':    seq_buf[i++] = '\t'; break;
  945.           case 'b':    seq_buf[i++] = '\b'; break;
  946.           case 'q':    seq_buf[i++] = '?';  break;
  947. --- 81,88 -----
  948.   
  949.       if (*s == '~') {        /* escape character */
  950.           switch (c = *(++s) ) {
  951. !         case 'n':    seq_buf[i++] = LF; break;
  952. !         case 'r':    seq_buf[i++] = CR; break;
  953.           case 't':    seq_buf[i++] = '\t'; break;
  954.           case 'b':    seq_buf[i++] = '\b'; break;
  955.           case 'q':    seq_buf[i++] = '?';  break;
  956. **************
  957. *** 248,254
  958.           return(-2);
  959.           }
  960.           if (!quiet)
  961. !       printf("Executing script thru %s, speed %d.\r\n",ttname,speed);
  962.       *seq_buf=0;
  963.       for (e=s; *e; e++) strcat(seq_buf, chstr(*e) );
  964.       if (!quiet) printf("Script string: %s\r\n",seq_buf);
  965. --- 249,255 -----
  966.           return(-2);
  967.           }
  968.           if (!quiet)
  969. !       printf("Executing script thru %s, speed %d.\n",ttname,speed);
  970.       *seq_buf=0;
  971.       for (e=s; *e; e++) strcat(seq_buf, chstr(*e) );
  972.       if (!quiet) printf("Script string: %s\n",seq_buf);
  973. **************
  974. *** 251,257
  975.         printf("Executing script thru %s, speed %d.\r\n",ttname,speed);
  976.       *seq_buf=0;
  977.       for (e=s; *e; e++) strcat(seq_buf, chstr(*e) );
  978. !     if (!quiet) printf("Script string: %s\r\n",seq_buf);
  979.       tlog(F110,"Script string: ",seq_buf, 0l);
  980.   
  981.   /* Condition console terminal and communication line */        
  982. --- 252,258 -----
  983.         printf("Executing script thru %s, speed %d.\n",ttname,speed);
  984.       *seq_buf=0;
  985.       for (e=s; *e; e++) strcat(seq_buf, chstr(*e) );
  986. !     if (!quiet) printf("Script string: %s\n",seq_buf);
  987.       tlog(F110,"Script string: ",seq_buf, 0l);
  988.   
  989.   /* Condition console terminal and communication line */        
  990. **************
  991. *** 297,303
  992.       if (*s) if (outSeq()) goto failRet; /* If any */
  993.       }
  994.       signal(SIGALRM,saveAlm);
  995. !     if (!quiet) printf("Script successful.\r\n");
  996.       tlog(F100,"Script successful.","",0l);
  997.       return(0);
  998.   
  999. --- 298,304 -----
  1000.       if (*s) if (outSeq()) goto failRet; /* If any */
  1001.       }
  1002.       signal(SIGALRM,saveAlm);
  1003. !     if (!quiet) printf("Script successful.\n");
  1004.       tlog(F100,"Script successful.","",0l);
  1005.       return(0);
  1006.   
  1007. **************
  1008. *** 303,309
  1009.   
  1010.   failRet:
  1011.       signal(SIGALRM,saveAlm);
  1012. !     printf("Sorry, script failed\r\n");
  1013.       tlog(F100,"Script failed","",0l);
  1014.       return(-2);
  1015.   }
  1016. --- 304,310 -----
  1017.   
  1018.   failRet:
  1019.       signal(SIGALRM,saveAlm);
  1020. !     printf("Sorry, script failed\n");
  1021.       tlog(F100,"Script failed","",0l);
  1022.       return(-2);
  1023.   }
  1024.  
  1025. *** ckuusr.h.orig
  1026. --- ckuusr.h
  1027. **************
  1028. *** 19,24
  1029.   #ifndef AMIGA
  1030.   #ifndef vax11c
  1031.   #ifndef datageneral
  1032.   #include <pwd.h>
  1033.   #endif
  1034.   #endif
  1035. --- 19,25 -----
  1036.   #ifndef AMIGA
  1037.   #ifndef vax11c
  1038.   #ifndef datageneral
  1039. + #ifndef OSK
  1040.   #include <pwd.h>
  1041.   #endif
  1042.   #endif
  1043. **************
  1044. *** 20,25
  1045.   #ifndef vax11c
  1046.   #ifndef datageneral
  1047.   #include <pwd.h>
  1048.   #endif
  1049.   #endif
  1050.   #endif
  1051. --- 21,27 -----
  1052.   #ifndef datageneral
  1053.   #ifndef OSK
  1054.   #include <pwd.h>
  1055. + #endif
  1056.   #endif
  1057.   #endif
  1058.   #endif
  1059.  
  1060. *** ckuusr.c.orig
  1061. --- ckuusr.c
  1062. **************
  1063. *** 1,4
  1064. ! char *userv = "User Interface 4E(059), 29 Jan 88";
  1065.    
  1066.   /*  C K U U S R --  "User Interface" for Unix Kermit (Part 1)  */
  1067.    
  1068. --- 1,4 -----
  1069. ! char *userv = "User Interface 4E(059+blarson), 14 Feb 88";
  1070.    
  1071.   /*  C K U U S R --  "User Interface" for Unix Kermit (Part 1)  */
  1072.    
  1073. **************
  1074. *** 3,9
  1075.   /*  C K U U S R --  "User Interface" for Unix Kermit (Part 1)  */
  1076.    
  1077.   /*
  1078. !  4E, support for Apollo Aegis, Data General added, July 87.
  1079.   */
  1080.   /*
  1081.    Author: Frank da Cruz (SY.FDC@CU20B),
  1082. --- 3,9 -----
  1083.   /*  C K U U S R --  "User Interface" for Unix Kermit (Part 1)  */
  1084.    
  1085.   /*
  1086. !  blarson, support for os9/68k (OSK) added
  1087.   */
  1088.   /*
  1089.    4E, support for Apollo Aegis, Data General added, July 87.
  1090. **************
  1091. *** 6,11
  1092.    4E, support for Apollo Aegis, Data General added, July 87.
  1093.   */
  1094.   /*
  1095.    Author: Frank da Cruz (SY.FDC@CU20B),
  1096.    Columbia University Center for Computing Activities, January 1985.
  1097.    Copyright (C) 1985, Trustees of Columbia University in the City of New York.
  1098. --- 6,14 -----
  1099.    blarson, support for os9/68k (OSK) added
  1100.   */
  1101.   /*
  1102. +  4E, support for Apollo Aegis, Data General added, July 87.
  1103. + */
  1104. + /*
  1105.    Author: Frank da Cruz (SY.FDC@CU20B),
  1106.    Columbia University Center for Computing Activities, January 1985.
  1107.    Copyright (C) 1985, Trustees of Columbia University in the City of New York.
  1108. **************
  1109. *** 237,243
  1110.       z = nfils = 0;            /* Initialize file counter, flag */
  1111.       cmlist = xargv+1;            /* Remember this pointer */
  1112.       while (--xargc > 0) {        /* Traverse the list */    
  1113. !     *xargv++;
  1114.       if (**xargv == '-') {        /* Check for sending stdin */
  1115.           if (strcmp(*xargv,"-") != 0) break;
  1116.           z++;
  1117. --- 240,246 -----
  1118.       z = nfils = 0;            /* Initialize file counter, flag */
  1119.       cmlist = xargv+1;            /* Remember this pointer */
  1120.       while (--xargc > 0) {        /* Traverse the list */    
  1121. !     xargv++;
  1122.       if (**xargv == '-') {        /* Check for sending stdin */
  1123.           if (strcmp(*xargv,"-") != 0) break;
  1124.           z++;
  1125. **************
  1126. *** 244,250
  1127.           }
  1128.       nfils++;            /* Bump file counter */
  1129.       }
  1130. !     xargc++, *xargv--;            /* Adjust argv/argc */
  1131.       if (nfils < 1) fatal("missing filename for -s");
  1132.       if (z > 1) fatal("-s: too many -'s");
  1133.       if (z == 1) {
  1134. --- 247,253 -----
  1135.           }
  1136.       nfils++;            /* Bump file counter */
  1137.       }
  1138. !     xargc++, xargv--;            /* Adjust argv/argc */
  1139.       if (nfils < 1) fatal("missing filename for -s");
  1140.       if (z > 1) fatal("-s: too many -'s");
  1141.       if (z == 1) {
  1142. **************
  1143. *** 265,271
  1144.   case 'g':                /* get */
  1145.       if (action) fatal("conflicting actions");
  1146.       if (*(xp+1)) fatal("invalid argument bundling after -g");
  1147. !     *xargv++, xargc--;
  1148.       if ((xargc == 0) || (**xargv == '-'))
  1149.           fatal("missing filename for -g");
  1150.       cmarg = *xargv;
  1151. --- 268,274 -----
  1152.   case 'g':                /* get */
  1153.       if (action) fatal("conflicting actions");
  1154.       if (*(xp+1)) fatal("invalid argument bundling after -g");
  1155. !     xargv++, xargc--;
  1156.       if ((xargc == 0) || (**xargv == '-'))
  1157.           fatal("missing filename for -g");
  1158.       cmarg = *xargv;
  1159. **************
  1160. *** 286,292
  1161.    
  1162.   case 'a':                /* "as" */
  1163.       if (*(xp+1)) fatal("invalid argument bundling after -a");
  1164. !     *xargv++, xargc--;
  1165.       if ((xargc < 1) || (**xargv == '-'))
  1166.           fatal("missing name in -a");
  1167.       cmarg2 = *xargv;
  1168. --- 289,295 -----
  1169.    
  1170.   case 'a':                /* "as" */
  1171.       if (*(xp+1)) fatal("invalid argument bundling after -a");
  1172. !     xargv++, xargc--;
  1173.       if ((xargc < 1) || (**xargv == '-'))
  1174.           fatal("missing name in -a");
  1175.       cmarg2 = *xargv;
  1176. **************
  1177. *** 294,300
  1178.    
  1179.   case 'l':                /* set line */
  1180.       if (*(xp+1)) fatal("invalid argument bundling after -l");
  1181. !     *xargv++, xargc--;
  1182.       if ((xargc < 1) || (**xargv == '-'))
  1183.           fatal("communication line device name missing");
  1184.       strcpy(ttname,*xargv);
  1185. --- 297,303 -----
  1186.    
  1187.   case 'l':                /* set line */
  1188.       if (*(xp+1)) fatal("invalid argument bundling after -l");
  1189. !     xargv++, xargc--;
  1190.       if ((xargc < 1) || (**xargv == '-'))
  1191.           fatal("communication line device name missing");
  1192.       strcpy(ttname,*xargv);
  1193. **************
  1194. *** 306,312
  1195.    
  1196.   case 'b':                       /* set baud */
  1197.       if (*(xp+1)) fatal("invalid argument bundling");
  1198. !     *xargv++, xargc--;
  1199.       if ((xargc < 1) || (**xargv == '-'))
  1200.           fatal("missing baud");
  1201.       z = atoi(*xargv);            /* Convert to number */
  1202. --- 309,315 -----
  1203.    
  1204.   case 'b':                       /* set baud */
  1205.       if (*(xp+1)) fatal("invalid argument bundling");
  1206. !     xargv++, xargc--;
  1207.       if ((xargc < 1) || (**xargv == '-'))
  1208.           fatal("missing baud");
  1209.       z = atoi(*xargv);            /* Convert to number */
  1210. **************
  1211. *** 316,322
  1212.    
  1213.   case 'e':                /* Extended packet length */
  1214.       if (*(xp+1)) fatal("invalid argument bundling");
  1215. !     *xargv++, xargc--;
  1216.       if ((xargc < 1) || (**xargv == '-'))
  1217.           fatal("missing length");
  1218.       z = atoi(*xargv);            /* Convert to number */
  1219. --- 319,325 -----
  1220.    
  1221.   case 'e':                /* Extended packet length */
  1222.       if (*(xp+1)) fatal("invalid argument bundling");
  1223. !     xargv++, xargc--;
  1224.       if ((xargc < 1) || (**xargv == '-'))
  1225.           fatal("missing length");
  1226.       z = atoi(*xargv);            /* Convert to number */
  1227. **************
  1228. *** 349,355
  1229.    
  1230.   case 'p':                /* set parity */
  1231.       if (*(xp+1)) fatal("invalid argument bundling");
  1232. !     *xargv++, xargc--;
  1233.       if ((xargc < 1) || (**xargv == '-'))
  1234.           fatal("missing parity");
  1235.       switch(x = **xargv) {
  1236. --- 352,358 -----
  1237.    
  1238.   case 'p':                /* set parity */
  1239.       if (*(xp+1)) fatal("invalid argument bundling");
  1240. !     xargv++, xargc--;
  1241.       if ((xargc < 1) || (**xargv == '-'))
  1242.           fatal("missing parity");
  1243.       switch(x = **xargv) {
  1244. **************
  1245. *** 381,386
  1246.   /* Misc */
  1247.    
  1248.   fatal(msg) char *msg; {            /* Fatal error message */
  1249.       fprintf(stderr,"\r\nFatal: %s\n",msg);
  1250.       tlog(F110,"Fatal:",msg,0l);
  1251.       doexit(BAD_EXIT);            /* Exit indicating failure */
  1252. --- 384,392 -----
  1253.   /* Misc */
  1254.    
  1255.   fatal(msg) char *msg; {            /* Fatal error message */
  1256. + #ifdef OSK
  1257. +     fprintf(stderr,"\nFatal: %s\n",msg);
  1258. + #else
  1259.       fprintf(stderr,"\r\nFatal: %s\n",msg);
  1260.   #endif
  1261.       tlog(F110,"Fatal:",msg,0l);
  1262. **************
  1263. *** 382,387
  1264.    
  1265.   fatal(msg) char *msg; {            /* Fatal error message */
  1266.       fprintf(stderr,"\r\nFatal: %s\n",msg);
  1267.       tlog(F110,"Fatal:",msg,0l);
  1268.       doexit(BAD_EXIT);            /* Exit indicating failure */
  1269.   }
  1270. --- 388,394 -----
  1271.       fprintf(stderr,"\nFatal: %s\n",msg);
  1272.   #else
  1273.       fprintf(stderr,"\r\nFatal: %s\n",msg);
  1274. + #endif
  1275.       tlog(F110,"Fatal:",msg,0l);
  1276.       doexit(BAD_EXIT);            /* Exit indicating failure */
  1277.   }
  1278. **************
  1279. *** 388,393
  1280.    
  1281.    
  1282.   ermsg(msg) char *msg; {            /* Print error message */
  1283.       if (!quiet) fprintf(stderr,"\r\n%s - %s\n",cmerrp,msg);
  1284.       tlog(F110,"Error -",msg,0l);
  1285.   }
  1286. --- 395,403 -----
  1287.    
  1288.    
  1289.   ermsg(msg) char *msg; {            /* Print error message */
  1290. + #ifdef OSK
  1291. +     if (!quiet) fprintf(stderr,"\n%s - %s\n",cmerrp,msg);
  1292. + #else
  1293.       if (!quiet) fprintf(stderr,"\r\n%s - %s\n",cmerrp,msg);
  1294.   #endif
  1295.       tlog(F110,"Error -",msg,0l);
  1296. **************
  1297. *** 389,394
  1298.    
  1299.   ermsg(msg) char *msg; {            /* Print error message */
  1300.       if (!quiet) fprintf(stderr,"\r\n%s - %s\n",cmerrp,msg);
  1301.       tlog(F110,"Error -",msg,0l);
  1302.   }
  1303.   
  1304. --- 399,405 -----
  1305.       if (!quiet) fprintf(stderr,"\n%s - %s\n",cmerrp,msg);
  1306.   #else
  1307.       if (!quiet) fprintf(stderr,"\r\n%s - %s\n",cmerrp,msg);
  1308. + #endif
  1309.       tlog(F110,"Error -",msg,0l);
  1310.   }
  1311.   
  1312. **************
  1313. *** 732,737
  1314.       switch (cx) {
  1315.    
  1316.   case -4:                /* EOF */
  1317.       if (!quiet && !backgrd) printf("\r\n");
  1318.       doexit(GOOD_EXIT);
  1319.   case -3:                /* Null command */
  1320. --- 743,751 -----
  1321.       switch (cx) {
  1322.    
  1323.   case -4:                /* EOF */
  1324. + #ifdef OSK
  1325. +     if (!quiet && !backgrd) printf("\n");
  1326. + #else
  1327.       if (!quiet && !backgrd) printf("\r\n");
  1328.   #endif
  1329.       doexit(GOOD_EXIT);
  1330. **************
  1331. *** 733,738
  1332.    
  1333.   case -4:                /* EOF */
  1334.       if (!quiet && !backgrd) printf("\r\n");
  1335.       doexit(GOOD_EXIT);
  1336.   case -3:                /* Null command */
  1337.       return(0);
  1338. --- 747,753 -----
  1339.       if (!quiet && !backgrd) printf("\n");
  1340.   #else
  1341.       if (!quiet && !backgrd) printf("\r\n");
  1342. + #endif
  1343.       doexit(GOOD_EXIT);
  1344.   case -3:                /* Null command */
  1345.       return(0);
  1346. **************
  1347. *** 899,905
  1348.   debug(F110,"take-get 2nd line",line,0);
  1349.           stripq(line);
  1350.           for (x = strlen(line);
  1351. !               x > 0 && (line[x-1] == '\n' || line[x-1] == '\r');
  1352.            x--)
  1353.           line[x-1] = '\0';
  1354.           cmarg = line;
  1355. --- 914,920 -----
  1356.   debug(F110,"take-get 2nd line",line,0);
  1357.           stripq(line);
  1358.           for (x = strlen(line);
  1359. !               x > 0 && (line[x-1] == LF || line[x-1] == CR);
  1360.            x--)
  1361.           line[x-1] = '\0';
  1362.           cmarg = line;
  1363. **************
  1364. *** 907,913
  1365.               fatal("take file ends prematurely in 'get'");
  1366.           stripq(cmdbuf);
  1367.           for (x = strlen(cmdbuf);
  1368. !               x > 0 && (cmdbuf[x-1] == '\n' || cmdbuf[x-1] == '\r');
  1369.            x--)
  1370.           cmdbuf[x-1] = '\0';
  1371.           if (*cmdbuf == NUL) cmarg2 = line; else cmarg2 = cmdbuf;
  1372. --- 922,928 -----
  1373.               fatal("take file ends prematurely in 'get'");
  1374.           stripq(cmdbuf);
  1375.           for (x = strlen(cmdbuf);
  1376. !               x > 0 && (cmdbuf[x-1] == LF || cmdbuf[x-1] == CR);
  1377.            x--)
  1378.           cmdbuf[x-1] = '\0';
  1379.           if (*cmdbuf == NUL) cmarg2 = line; else cmarg2 = cmdbuf;
  1380. **************
  1381. *** 1077,1082
  1382.       else                /* Otherwise, */
  1383.           system(s);            /* Best for aos/vs?? */
  1384.    
  1385.   #else                    /* All Unix systems... */
  1386.   #ifdef apollo
  1387.       if ((pid = vfork()) == 0) {        /* Make child quickly */
  1388. --- 1092,1100 -----
  1389.       else                /* Otherwise, */
  1390.           system(s);            /* Best for aos/vs?? */
  1391.    
  1392. + #else
  1393. + #ifdef OSK
  1394. +     system(s);                /* for now, do better later */
  1395.   #else                    /* All Unix systems... */
  1396.   #ifdef apollo
  1397.       if ((pid = vfork()) == 0) {        /* Make child quickly */
  1398. **************
  1399. *** 1084,1090
  1400.   
  1401.           if ((shpath = getenv("SHELL")) == NULL) shpath = "/com/sh";
  1402.   #else
  1403. !  
  1404.       if ((pid = fork()) == 0) {        /* Make child */
  1405.       char *shpath, *shname, *shptr;    /* For finding desired shell */
  1406.       struct passwd *p;
  1407. --- 1102,1108 -----
  1408.   
  1409.           if ((shpath = getenv("SHELL")) == NULL) shpath = "/com/sh";
  1410.   #else
  1411. ! 
  1412.       if ((pid = fork()) == 0) {        /* Make child */
  1413.       char *shpath, *shname, *shptr;    /* For finding desired shell */
  1414.       struct passwd *p;
  1415. **************
  1416. *** 1127,1132
  1417.       signal(SIGINT,istat);        /* Restore interrupts */
  1418.       signal(SIGQUIT,qstat);
  1419.       }
  1420.   #endif
  1421.   #endif
  1422.   #endif
  1423. --- 1145,1151 -----
  1424.       signal(SIGINT,istat);        /* Restore interrupts */
  1425.       signal(SIGQUIT,qstat);
  1426.       }
  1427. + #endif
  1428.   #endif
  1429.   #endif
  1430.   #endif
  1431.  
  1432. *** ckuus2.c.orig
  1433. --- ckuus2.c
  1434. **************
  1435. *** 1,5
  1436.   /*  C K U U S 2  --  "User Interface" STRINGS module for Unix Kermit  */
  1437.    
  1438.   /*
  1439.    Author: Frank da Cruz (SY.FDC@CU20B),
  1440.    Columbia University Center for Computing Activities, January 1985.
  1441. --- 1,6 -----
  1442.   /*  C K U U S 2  --  "User Interface" STRINGS module for Unix Kermit  */
  1443.    
  1444. + /* os9/68k support by Bob Larson (blarson@ecla.usc.edu) */
  1445.   /*
  1446.    Author: Frank da Cruz (SY.FDC@CU20B),
  1447.    Columbia University Center for Computing Activities, January 1985.
  1448. **************
  1449. *** 266,272
  1450.   case XXREM:
  1451.       if ((y = cmkey(remcmd,nrmt,"Remote command","")) == -2) return(y);
  1452.       if (y == -1) return(y);
  1453. !     if (x = (cmcfm()) < 0) return(x);
  1454.       return(dohrmt(y));
  1455.    
  1456.   case XXSEN:
  1457. --- 267,273 -----
  1458.   case XXREM:
  1459.       if ((y = cmkey(remcmd,nrmt,"Remote command","")) == -2) return(y);
  1460.       if (y == -1) return(y);
  1461. !     if ((x = cmcfm()) < 0) return(x);
  1462.       return(dohrmt(y));
  1463.    
  1464.   case XXSEN:
  1465. **************
  1466. *** 278,284
  1467.   case XXSET:
  1468.       if ((y = cmkey(prmtab,nprm,"Parameter","")) == -2) return(y);
  1469.       if (y == -2) return(y);
  1470. !     if (x = (cmcfm()) < 0) return(x);
  1471.       return(dohset(y));
  1472.    
  1473.   case XXSHE:
  1474. --- 279,285 -----
  1475.   case XXSET:
  1476.       if ((y = cmkey(prmtab,nprm,"Parameter","")) == -2) return(y);
  1477.       if (y == -2) return(y);
  1478. !     if ((x = cmcfm()) < 0) return(x);
  1479.       return(dohset(y));
  1480.    
  1481.   case XXSHE:
  1482. **************
  1483. *** 323,329
  1484.   themselves contain 'take' commands, up to a reasonable depth of nesting."));
  1485.    
  1486.   default:
  1487. !     if (x = (cmcfm()) < 0) return(x);
  1488.       printf("Not available yet - %s\n",cmdbuf);
  1489.       break;
  1490.       }
  1491. --- 324,330 -----
  1492.   themselves contain 'take' commands, up to a reasonable depth of nesting."));
  1493.    
  1494.   default:
  1495. !     if ((x = cmcfm()) < 0) return(x);
  1496.       printf("Not available yet - %s\n",cmdbuf);
  1497.       break;
  1498.       }
  1499. **************
  1500. *** 342,348
  1501.    
  1502.   hmsga(s) char *s[]; {            /* Same function, but for arrays */
  1503.       int x, i;
  1504. !     if ( x = (cmcfm()) < 0) return(x);
  1505.       for ( i = 0; *s[i] ; i++ ) fputs(s[i], stdout);
  1506.       fputc( '\n', stdout);
  1507.       return(0);
  1508. --- 343,349 -----
  1509.    
  1510.   hmsga(s) char *s[]; {            /* Same function, but for arrays */
  1511.       int x, i;
  1512. !     if (( x = cmcfm()) < 0) return(x);
  1513.       for ( i = 0; *s[i] ; i++ ) fputs(s[i], stdout);
  1514.   #ifndef OSK
  1515.       fputc( '\n', stdout);
  1516. **************
  1517. *** 344,349
  1518.       int x, i;
  1519.       if ( x = (cmcfm()) < 0) return(x);
  1520.       for ( i = 0; *s[i] ; i++ ) fputs(s[i], stdout);
  1521.       fputc( '\n', stdout);
  1522.       return(0);
  1523.   }
  1524. --- 345,351 -----
  1525.       int x, i;
  1526.       if (( x = cmcfm()) < 0) return(x);
  1527.       for ( i = 0; *s[i] ; i++ ) fputs(s[i], stdout);
  1528. + #ifndef OSK
  1529.       fputc( '\n', stdout);
  1530.   #else
  1531.       putc('\n', stdout);
  1532. **************
  1533. *** 345,350
  1534.       if ( x = (cmcfm()) < 0) return(x);
  1535.       for ( i = 0; *s[i] ; i++ ) fputs(s[i], stdout);
  1536.       fputc( '\n', stdout);
  1537.       return(0);
  1538.   }
  1539.   
  1540. --- 347,355 -----
  1541.       for ( i = 0; *s[i] ; i++ ) fputs(s[i], stdout);
  1542.   #ifndef OSK
  1543.       fputc( '\n', stdout);
  1544. + #else
  1545. +     putc('\n', stdout);
  1546. + #endif
  1547.       return(0);
  1548.   }
  1549.   
  1550. **************
  1551. *** 537,543
  1552.   about the specified user."));
  1553.    
  1554.   default:
  1555. !     if (x = (cmcfm()) < 0) return(x);
  1556.       printf("%s","not working yet - %s\n",cmdbuf);
  1557.       return(-2);
  1558.       }
  1559. --- 542,548 -----
  1560.   about the specified user."));
  1561.    
  1562.   default:
  1563. !     if ((x = cmcfm()) < 0) return(x);
  1564.       printf("%s","not working yet - %s\n",cmdbuf);
  1565.       return(-2);
  1566.       }
  1567.  
  1568. *** ckuus3.c.orig
  1569. --- ckuus3.c
  1570. **************
  1571. *** 1,5
  1572.   /*  C K U U S 3 --  "User Interface" for Unix Kermit, part 3  */
  1573.    
  1574.   /*
  1575.    Author: Frank da Cruz (SY.FDC@CU20B),
  1576.    Columbia University Center for Computing Activities, January 1985.
  1577. --- 1,6 -----
  1578.   /*  C K U U S 3 --  "User Interface" for Unix Kermit, part 3  */
  1579.    
  1580. + /* Os9/68k support by Bob Larson (Blarson@ecla.usc.edu) */
  1581.   /*
  1582.    Author: Frank da Cruz (SY.FDC@CU20B),
  1583.    Columbia University Center for Computing Activities, January 1985.
  1584. **************
  1585. *** 238,244
  1586.   case XYFILE:
  1587.       if ((y = cmkey(filtab,nfilp,"File parameter","")) < 0) return(y);
  1588.       switch (y) {
  1589. -     int z;
  1590.       case XYFILD:            /* Display */
  1591.           y = seton(&z);
  1592.           if (y < 0) return(y);
  1593. --- 239,244 -----
  1594.   case XYFILE:
  1595.       if ((y = cmkey(filtab,nfilp,"File parameter","")) < 0) return(y);
  1596.       switch (y) {
  1597.       case XYFILD:            /* Display */
  1598.           y = seton(&z);
  1599.           if (y < 0) return(y);
  1600. **************
  1601. *** 409,415
  1602.       lp = line;
  1603.       sprintf(lp,"Baud rate for %s",ttname);
  1604.       if ((y = cmnum(line,"",10,&x)) < 0) return(y);
  1605. !     if (y = (cmcfm()) < 0) return(y);
  1606.       y = chkspd(x);
  1607.       if (y < 0) 
  1608.           printf("?Unsupported line speed - %d\n",x);
  1609. --- 409,415 -----
  1610.       lp = line;
  1611.       sprintf(lp,"Baud rate for %s",ttname);
  1612.       if ((y = cmnum(line,"",10,&x)) < 0) return(y);
  1613. !     if ((y = cmcfm()) < 0) return(y);
  1614.       y = chkspd(x);
  1615.       if (y < 0) 
  1616.           printf("?Unsupported line speed - %d\n",x);
  1617. **************
  1618. *** 546,552
  1619.               fatal("take file ends prematurely in 'remote cwd'");
  1620.           debug(F110," pswd from take file",s2,0);
  1621.           for (x = strlen(sbuf);
  1622. !               x > 0 && (sbuf[x-1] == '\n' || sbuf[x-1] == '\r');
  1623.            x--)
  1624.           sbuf[x-1] = '\0';
  1625.    
  1626. --- 546,552 -----
  1627.               fatal("take file ends prematurely in 'remote cwd'");
  1628.           debug(F110," pswd from take file",s2,0);
  1629.           for (x = strlen(sbuf);
  1630. !               x > 0 && (sbuf[x-1] == NL || sbuf[x-1] == CR);
  1631.            x--)
  1632.           sbuf[x-1] = '\0';
  1633.    
  1634. **************
  1635. *** 589,595
  1636.       return(sstate = setgen('D',s,"",""));
  1637.    
  1638.   case XZHLP:                /* Help */
  1639. !     if (x = (cmcfm()) < 0) return(x);
  1640.       sstate = setgen('H',"","","");
  1641.       return(0);
  1642.    
  1643. --- 589,595 -----
  1644.       return(sstate = setgen('D',s,"",""));
  1645.    
  1646.   case XZHLP:                /* Help */
  1647. !     if ((x = cmcfm()) < 0) return(x);
  1648.       sstate = setgen('H',"","","");
  1649.       return(0);
  1650.    
  1651. **************
  1652. *** 616,622
  1653.       return(sstate = setgen('W',s,"",""));
  1654.    
  1655.   default:
  1656. !     if (x = (cmcfm()) < 0) return(x);
  1657.       printf("not working yet - %s\n",cmdbuf);
  1658.       return(-2);
  1659.       }
  1660. --- 616,622 -----
  1661.       return(sstate = setgen('W',s,"",""));
  1662.    
  1663.   default:
  1664. !     if ((x = cmcfm()) < 0) return(x);
  1665.       printf("not working yet - %s\n",cmdbuf);
  1666.       return(-2);
  1667.       }
  1668.  
  1669. (END OF CK9KER.DIF)
  1670.