home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / archives / ckc197.zip / PATCHES-6.0 < prev    next >
Text File  |  1998-03-10  |  115KB  |  3,584 lines
  1. C-KERMIT 6.0 PATCHES  --  Source-code patches for C-Kermit 6.0.192
  2.  
  3.   Most recent update:   Tue Mar 10 16:50:30 1998
  4.   Highest patch number: 37
  5.  
  6. You can apply these patches if you have source code and the necessary C
  7. compiler and libraries to build a new executable.  There is no need to apply
  8. any patch if it does not apply to your configuration, or if the symptom does
  9. not affect you or your users.
  10.  
  11. Each patch is self-contained and independent from the others, unless
  12. otherwise noted.  Line numbers correspond to the source-code files of
  13. the 6.0.192 release.
  14.  
  15. The patches included in this file are believed to be safe, but come with no
  16. guarantees.  In particular, those submitted by users fall into the "use at
  17. your own risk" category.  The patches appear in chronological order in
  18. email-message format separated by lines of equal signs (=).
  19.  
  20. CONTENTS:
  21.  
  22. Number Domain           Description
  23.  0001   All UNIX         C-Kermit mishandles timestamps on files before 1970
  24.  0002    Solaris 2.5++    Compilation error on Solaris 2.5 with Pro C
  25.  0003    All VMS          CKERMIT.INI Fix for VMS
  26.  0004    VMS/VAX/UCX 2.0  C-Kermit 6.0 can't TELNET on VAX/VMS with UCX 2.0
  27.  0005    All              C-Kermit Might Send Packets Outside Window
  28.  0006    All              MOVE from SEND-LIST does not delete original files
  29.  0007    Solaris 2.5++    Higher serial speeds on Solaris 2.5
  30.  0008   All              C-Kermit application file name can't contain spaces
  31.  0009   AT&T 7300 UNIXPC setuid and hardware flow-control problems
  32.  0010   Linux on Alpha   Patch to make ckutio.c compile on Linux/Alpha
  33.  0011   OS-9/68000 2.4   Patch to make ck9con.c compile on OS-9/68000 2.4
  34.  0012   MW Coherent 4.2  Patches for successful build on Coherent 4.2
  35.  0013   SINIX-Y 5.43     "delay" variable conflicts with <sys/clock.h>
  36.  0014   VMS/VAX/CMU-IP   Subject: Patches for VAX/VMS 5.x + CMU-IP
  37.  0015   All              XECHO doesn't flush its output
  38.  0016   VMS              CD and other directory operations might not work
  39.  0017   Linux 1.2.x++    Use standard POSIX interface for high serial speeds
  40.  0018   UNIX             SET WILDCARD-EXPANSION SHELL dumps core
  41.  0019   All              Hayes V.34 modem init string problem
  42.  0020   All              READ command does not fail if file not open
  43.  0021   All              Problems with long function arguments 
  44.  0022   All              Certain \function()s can misbehave
  45.  0023   All              X MOD 0 crashes program
  46.  0024   All              Internal bulletproofing for lower() function
  47.  0025   OpenBSD          Real OpenBSD support for C-Kermit 6.0
  48.  0026   All              Incorrect checks for macro/command-file nesting depth
  49.  0027   All              ANSWER doesn't automatically CONNECT
  50.  0028   All              Overzealous EXIT warning
  51.  0029   All              OUTPUT doesn't echo when DUPLEX is HALF
  52.  0030   All              Minor problems with REMOTE DIRECTORY/DELETE/etc
  53.  0031   All              CHECK command broken
  54.  0032   All              Problem with SET TRANSMIT ECHO
  55.  0033   UNIX, VMS, etc   HELP SET SERVER says too much
  56.  0034   All              READ and !READ too picky about line terminators
  57.  0035   All              END from inside SWITCH doesn't work
  58.  0036   All              Problem telnetting to multihomed hosts
  59.  0037   All              Redirection failures in REMOTE xxx > file 
  60.  
  61. Legend:
  62.  ++ means "and above"
  63.  
  64. ----------------------------------------------------------------------------
  65. PATCH-LEVEL ANNOUNCEMENT
  66.  
  67. If you install any patches, you should also install an indicator of which
  68. patches were installed.  This is done as follows:
  69.  
  70.  1. In ckcmai.c, after the line:
  71.  
  72.         char *ck_ver = "C-Kermit 6.0.192";    /* C-Kermit Version */
  73.  
  74.     add a new line such as:
  75.  
  76.         char *ck_patch = "1 2 3 4 8 10";      /* Patches */
  77.  
  78.     The string contains the patch number of each patch that has been
  79.     installed, separated by spaces.  A range of patches can be indicated
  80.     in the customary hyphenated notation:
  81.  
  82.         char *ck_patch = "1-4 8 10";         /* Patches */
  83.  
  84.  2. Make the following change to the VERSION command in ckuusr.c:
  85.  
  86. *** /w/pub/ftp/kermit/f/ckuusr.c    Sun Nov 24 19:20:51 1996
  87. --- ./ckuusr.c    Sat Jan 11 11:58:14 1997
  88. ***************
  89. *** 3677,3694 ****
  90.   #endif /* NOCSETS */
  91.   
  92.       if (cx == XXVER) {            /* VERSION */
  93. +     extern char * ck_patch;
  94.      if ((y = cmcfm()) < 0) 
  95.             return(y);
  96.   
  97.      printf("%s, for%s\n Numeric: %ld",versio,ckxsys,vernum);
  98.      if (xvernum)
  99.        printf("C-Kermit %s",ck_ver);
  100.      if (verwho) 
  101.        printf("-%d\n",verwho); 
  102.      else printf("\n");
  103. +     if (*ck_patch)
  104. +       printf(" Patches: %s\n", ck_patch);
  105.      hmsga(copyright);
  106.   #ifdef OS2
  107.      shoreg();
  108.   #endif /* OS2 */
  109.  
  110.       return(success = 1);
  111.       }
  112.  
  113.  3. And make a similar change to the shover() routine in ckuus5.c:
  114.  
  115. *** /w/pub/ftp/kermit/f/ckuus5.c    Sun Nov 24 19:20:50 1996
  116. --- ./ckuus5.c    Sat Jan 11 12:03:41 1997
  117. ***************
  118. *** 2663,2673 ****
  119. --- 2663,2675 ----
  120.   shover() {
  121.       extern long xvernum;
  122.       extern char *ck_ver;
  123. +     extern char *ck_patch;
  124.       printf("\nVersions:\n %s\n Numeric: %ld",versio,vernum);
  125.       if (verwho) printf("-%d",verwho);
  126.       printf("\n");
  127.       if (xvernum)
  128.         printf("C-Kermit %s\n",ck_ver);
  129. +     if (*ck_patch) printf(" Patches: %s\n", ck_patch);
  130.       printf(xxdiff(ckxv,ckxsys) ? " %s for%s\n" : " %s\n",ckxv,ckxsys);
  131.       printf(xxdiff(ckzv,ckzsys) ? " %s for%s\n" : " %s\n",ckzv,ckzsys);
  132.       printf(" %s\n",protv);
  133.       ...
  134.  
  135. Whenever you install a new patch, be sure to update the ck_patch string in
  136. ckcmai.c, and then the VERSION and SHOW VERSION commands will indicate the
  137. patch level.
  138.  
  139. ====================
  140. X-Patch-Number: 0001
  141. Date: Sun, 1 Dec 1996 22:16:56 -0800
  142. From: Paul Eggert <eggert@twinsun.com>
  143. To: kermit-support@columbia.edu
  144. Subject: C-Kermit mishandles timestamps on files before 1970
  145.  
  146. C-Kermit 6.0.192 rejects files whose timestamps are before 1970-01-01
  147. local time.  But every Unix can represent files with timestamps before
  148. that.  It's common, for example, in the US/Pacific time zone to have a
  149. file with timestamp 1969-12-31 16:00:00 local time, since this equals
  150. 1970-01-01 00:00:00 UTC.  And many Unixes can represent times before
  151. the epoch, e.g. on Solaris 2.5.1:
  152.  
  153.   $ uname -a
  154.   SunOS shade 5.5.1 Generic_103640-03 sun4u sparc SUNW,Ultra-1
  155.   $ echo $TZ
  156.   UTC0
  157.   $ ls -l test
  158.   -rw-rw-r--   1 eggert   eggert         0 Dec 13  1901 test
  159.  
  160. It is certainly not a requirement of the ANSI C Library, or of Posix,
  161. that timestamps before 1970 cannot be represented.  Here is a patch:
  162.  
  163. RCS file: RCS/ckufio.c,v
  164. retrieving revision 6.0.192.0
  165. retrieving revision 6.0.192.1
  166. diff -c -r6.0.192.0 -r6.0.192.1
  167. *** ckufio.c    1996/11/23 19:27:13    6.0.192.0
  168. --- ckufio.c    1996/12/02 06:07:54    6.0.192.1
  169. ***************
  170. *** 2659,2666 ****
  171.       yy = time_stamp->tm_year;        /* Year - 1900 */
  172.       yy += 1900;
  173.       debug(F101,"zdatstr year","",yy);
  174. -     if (yy < 1970)            /* By definition of C library */
  175. -       return("");
  176.   
  177.       if (time_stamp->tm_mon  < 0 || time_stamp->tm_mon  > 11)
  178.         return("");
  179. --- 2659,2664 ----
  180. [It is not known if this patch is safe on all UNIX platforms.]
  181.  
  182. ====================
  183. X-Patch-Number: 0002
  184. Date: Mon, 02 Dec 1996 13:47:13 -0500
  185. To: kermit-support@columbia.edu
  186. Subject: Compilation error on Solaris 2.5 with Pro C
  187. From: "David J. Fiander" <davidf@worf.mks.com>
  188.  
  189. I defined CK_ENVIRONMENT and found that the prototype for tn_snenv() in
  190. ckcnet.h conflicted with the function definition in ckcnet.c.  the former
  191. declared the first parameter to be a CHAR * (i.e. an unsigned char *),
  192. while the latter declared to be a char * (i.e. signed char *).  The
  193. Pro C compiler treats this as an error.  I changed the function definition
  194. in ckcnet.c to declare the parameter as a CHAR * and the problem was
  195. resolved.
  196.  
  197. - David
  198.  
  199. [Note: This problem does not occur with standard builds.
  200. Resolution: CK_ENVIRONMENT, which controls the use of TELNET
  201. NEW-ENVIRONMENT protocol, is not supported in the UNIX version of
  202. C-Kermit 6.0.192.  The type mismatch is a mistake, however.]
  203.  
  204. ====================
  205. X-Patch-Number: 0003
  206. Date: Tue, 3 Dec 96 10:56:50 EST
  207. From: Mike Freeman <freeman@WATSUN.CC.COLUMBIA.EDU>
  208. Subject: CKERMIT.INI Fix for VMS
  209.  
  210. A minor fix to CKERMIT.INI from the 6-Sep release is shown below. 
  211. Needed to get C-Kermit 6(192) to run on my Vax/VMS system with VmS
  212. V5.5-2 and VAX C V3.1.
  213.  
  214. *** $ker:ckermit.ini;-1
  215. --- $ker:ckermit.ini;
  216. **************
  217. *** 680,686
  218.   
  219.   ; In VMS and OpenVMS, allow for system-wide site customizations
  220.   
  221. ! if equal "\v(system)" "VMS" {
  222.       xif exist CKERMIT_INI:CKERMIT.SYS {
  223.       echo Executing CKERMIT_INI:CKERMIT.SYS
  224.       take CKERMIT_INI:CKERMIT.SYS
  225. --- 680,686 -----
  226.   
  227.   ; In VMS and OpenVMS, allow for system-wide site customizations
  228.   
  229. ! xif equal "\v(system)" "VMS" {
  230.       xif exist CKERMIT_INI:CKERMIT.SYS {
  231.       echo Executing CKERMIT_INI:CKERMIT.SYS
  232.       take CKERMIT_INI:CKERMIT.SYS
  233.  
  234. MIke Freeman                    | Internet: freeman@watsun.cc.columbia.edu
  235. Amateur Radio Calsign: K7UIJ    | */ PGP Public Key Available */
  236.  
  237. ====================
  238. X-Patch-Number: 0004
  239. Date: Thu, 5 Dec 1996 15:20:00 EST
  240. From: Frank da Cruz <fdc@columbia.edu>
  241. Subject: C-Kermit 6.0 can't TELNET on VAX/VMS with UCX 2.0
  242.  
  243. PROBLEM:
  244.  
  245. On VAX/VMS systems with early versions of DEC TCP/IP (UCX), "set host" and
  246. "telnet" commands might fail with "Connection refused", even though the system
  247. (UCX) TELNET program to the same host works correctly.
  248.  
  249. DIAGNOSIS:
  250.  
  251. If you don't specify a port, Kermit substitutes the service name "telnet" and
  252. then asks UCX to look it up; similary, if you specify a port by name, rather
  253. than number, Kermit asks UCX to look it up.
  254.  
  255. On VAX/VMS with DEC TCP/IP UCX 2.0, 2.0A, 2.0B, or 2.0C, the getservbyname()
  256. function fails to return the port number in network byte order as it should,
  257. and instead returns the number with its bytes swapped (e.g. 5888 instead of
  258. 23).  Then Kermit tries to connect to port 5888 on the host; most hosts will
  259. refuse the connection; if they don't, you probably didn't reach a Telnet port
  260. anyway.
  261.  
  262. This bug was fixed in UCX 2.0D and thereafter.  However, there is no way for
  263. Kermit to know which version of UCX is being used.
  264.  
  265. WORKAROUND:
  266.  
  267. Specify the port number (not name) in your SET HOST or TELNET command, e.g.:
  268.  
  269.   set host xyzcorp.com 23
  270.  
  271. CURE:
  272.  
  273. A new command:
  274.  
  275.   SET TCP UCX-PORT-BUG { ON, OFF }
  276.  
  277. It is OFF by default, so UCX versions of VMS C-Kermit will work with all
  278. latter-day versions of UCX with no special effort.  But if you have an old
  279. UCX system, and you tell C-Kermit to "set host" or "telnet" and it says
  280. "Connection refused", tell it to SET TCP UCX-PORT-BUG ON and try again.  If
  281. this works, then put this command into your (or the system-wide) CKERMIT.INI
  282. file.  The following patch adds this command to VMS versions of C-Kermit that
  283. were built for UCX support.  It has already been applied to the CKVV55-UCX20
  284. binary in the Kermit archive.
  285.  
  286. PATCH:
  287.  
  288. *** /w/pub/ftp/kermit/f/ckcnet.c    Wed Nov 27 19:54:46 1996
  289. --- ./ckcnet.c    Wed Dec  4 17:14:41 1996
  290. ***************
  291. *** 1,4 ****
  292. ! char *cknetv = "Network support, 6.0.078, 6 Sep 1996";
  293.   
  294.   /*  C K C N E T  --  Network support  */
  295.   
  296. --- 1,4 ----
  297. ! char *cknetv = "Network support, 6.0.079, 4 Dec 1996";
  298.   
  299.   /*  C K C N E T  --  Network support  */
  300.   
  301. ***************
  302. *** 960,965 ****
  303. --- 960,967 ----
  304.   extern VOID C$$SOCK_TRANSLATE();
  305.   #endif /* CK_ANSIC */
  306.   
  307. + int ucx_port_bug = 0;            /* Explained below */
  308. + 
  309.   struct servent *
  310.   my_getservbyname (service, proto) char *service, *proto; {
  311.       static struct servent sent;
  312. ***************
  313. *** 1007,1035 ****
  314.       C$$SOCK_TRANSLATE(&s.sb.st[0]);
  315.       return NULL;
  316.       }
  317. -     /* sent.s_port is returned by UCX in network byte order. */
  318. -     /* Calling htons here swaps the bytes, which ruins everything. */
  319. - 
  320. -     /* Oh yeah?  WHICH VERSION of UCX???  Let's try this... */
  321. - 
  322. - #ifndef __alpha /* Maybe it should be __DECC, or some version thereof... */
  323.   /*
  324. !   Hunter says: "In fact, the "#ifndef __alpha" isn't even needed, since
  325. !   my_getservbyname() isn't included if "__DECC" is defined, and that's
  326. !   always defined on Alpha."  But if it doesn't hurt either, better not risk
  327. !   taking it out.
  328.   */
  329. ! #ifndef TCPWARE
  330. ! #define DO_HTONS
  331. ! #endif /* TCPWARE */
  332. ! #endif /* __alpha */
  333. ! 
  334. ! #ifdef DO_HTONS
  335.       sent.s_port = htons(sent.s_port);
  336. !     debug(F111,"UCX getservbyname","port",ntohs(sent.s_port));
  337. ! #else
  338. !     debug(F111,"UCX getservbyname","port",sent.s_port);
  339. ! #endif /* DO_HTONS */
  340.       return &sent;
  341.   }
  342.   #endif /* __DECC */
  343. --- 1009,1028 ----
  344.       C$$SOCK_TRANSLATE(&s.sb.st[0]);
  345.       return NULL;
  346.       }
  347.   /*
  348. !   sent.s_port is supposed to be returned by UCX in network byte order.
  349. !   However, UCX 2.0 through 2.0C did not do this; 2.0D and later do it.
  350. !   But there is no way of knowing which UCX version, so we have a user-settable
  351. !   runtime variable.  Note: UCX 2.0 was only for the VAX.
  352.   */
  353. !     debug(F101,"UCX getservbyname port","",sent.s_port);
  354. !     debug(F101,"UCX getservbyname ntohs(port)","",ntohs(sent.s_port));
  355. !     if (ucx_port_bug) {
  356.       sent.s_port = htons(sent.s_port);
  357. !     debug(F100,"UCX-PORT-BUG ON: swapping bytes","",0);
  358. !     debug(F101,"UCX swapped port","",sent.s_port);
  359. !     debug(F101,"UCX swapped ntohs(port)","",ntohs(sent.s_port));
  360. !     }
  361.       return &sent;
  362.   }
  363.   #endif /* __DECC */
  364. *** /w/pub/ftp/kermit/f/ckuus3.c    Sun Nov 24 19:20:50 1996
  365. --- ./ckuus3.c    Wed Dec  4 16:58:49 1996
  366. ***************
  367. *** 3031,3036 ****
  368. --- 3031,3046 ----
  369.         success = recvbuf(z);
  370.         return(success);
  371.   #endif /* SO_RCVBUF */
  372. + 
  373. + #ifdef VMS
  374. + #ifdef DEC_TCPIP
  375. +     case XYTCP_UCX: {            /* UCX 2.0 port swabbing bug */
  376. +     extern int ucx_port_bug;
  377. +     return(success = seton(&ucx_port_bug));
  378. +     }
  379. + #endif /* DEC_TCPIP */
  380. + #endif /* VMS */
  381. + 
  382.      default:
  383.         return(0);
  384.      }
  385. *** /w/pub/ftp/kermit/f/ckuusr.c    Sun Nov 24 19:20:51 1996
  386. --- ./ckuusr.c    Wed Dec  4 17:12:50 1996
  387. ***************
  388. *** 1098,1103 ****
  389. --- 1098,1108 ----
  390.   #ifdef SO_SNDBUF
  391.      "sendbuf", XYTCP_SENDBUF, 0,
  392.   #endif /* SO_SNDBUF */
  393. + #ifdef VMS
  394. + #ifdef DEC_TCPIP
  395. +    "ucx-port-bug", XYTCP_UCX, 0,
  396. + #endif /* DEC_TCPIP */
  397. + #endif /* VMS */
  398.      "",0,0
  399.   };
  400.   int ntcpopt = (sizeof(tcpopt) / sizeof(struct keytab));
  401. *** /w/pub/ftp/kermit/f/ckuusr.h    Sun Nov 24 19:20:52 1996
  402. --- ./ckuusr.h    Wed Dec  4 16:59:18 1996
  403. ***************
  404. *** 803,808 ****
  405. --- 803,809 ----
  406.   #define  XYTCP_LINGER    3  /* Linger */
  407.   #define  XYTCP_RECVBUF   4  /* Receive Buffer Size */
  408.   #define  XYTCP_KEEPALIVE 5  /* Keep Alive packets */
  409. + #define  XYTCP_UCX       6  /* UCX 2.0 port swabbing bug */
  410.   
  411.   #define XYMSK  83       /* MS-DOS Kermit compatibility options */
  412.   #define  MSK_COLOR 0    /*  Terminal color handling   */
  413.  
  414. ====================
  415. X-Patch-Number: 0005
  416. Date: Mon, 9 Dec 1996 17:00:56 EST
  417. From: Frank da Cruz <fdc@columbia.edu>
  418. Subject: C-Kermit Might Send Packets Outside Window
  419.  
  420. PROBLEM:
  421.  
  422. When sending a file with a window size greater than 1 under conditions of
  423. packet loss, C-Kermit might send packets outside the current window.  This
  424. should not cause file corruption, and in many cases (depending on the Kermit
  425. implementation on the receiving end), it won't even cause a noticable problem,
  426. but in other cases it might cause the transfer to stop unnecessarily.
  427.  
  428. CURE:
  429.  
  430. In the ckcfn2.c module, replace the nxtpkt() function with this new one:
  431.  
  432. /*  N X T P K T  --  Next Packet  */
  433. /*
  434.   Get packet number of next packet to send and allocate a buffer for it.
  435.   Returns:
  436.     0 on success, with global pktnum set to the packet number;
  437.    -1 on failure to allocate buffer (fatal);
  438.    -2 if resulting packet number is outside the current window. 
  439. */
  440. int
  441. nxtpkt() {                /* Called by file sender */
  442.     int j, n, x;
  443.  
  444.     debug(F101,"nxtpkt pktnum","",pktnum);
  445.     debug(F101,"nxtpkt winlo ","",winlo);
  446.     n = (pktnum + 1) % 64;        /* Increment packet number mod 64 */
  447.     debug(F101,"nxtpkt n","",n);
  448.     x = chkwin(n,winlo,wslots);        /* Don't exceed window boundary */
  449.     debug(F101,"nxtpkt chkwin","",x);
  450.     if (x)
  451.       return(-2);
  452.  
  453.     j = getsbuf(n);            /* Get a buffer for packet n */
  454.     if (j < 0) {
  455.     debug(F101,"nxtpkt getsbuf failure","",j);
  456.     return(-1);
  457.     }
  458.     pktnum = n;          
  459.     return(0);
  460. }
  461.  
  462. ====================
  463. X-Patch-Number: 0006
  464. Date: Wed, 11 Dec 1996 12:26:00 EST
  465. From: Frank da Cruz <fdc@columbia.edu>
  466. Subject: MOVE from SEND-LIST does not delete original files
  467.  
  468. If you build up a list of files to be sent using ADD SEND-LIST and then
  469. give a SEND command with no operands, it sends the files in the send list.
  470. If you give a MOVE command with no operands, it does the same thing.  But
  471. unlike SEND, MOVE should delete each original after sending it successfully;
  472. in C-Kermit 6.0.192, it does not.
  473.  
  474. Here's the patch:
  475.  
  476. *** /w/pub/ftp/kermit/f/ckuusr.c    Sun Nov 24 19:20:51 1996
  477. --- ckuusr.c    Wed Dec 11 12:39:01 1996
  478. ***************
  479. *** 2863,2868 ****
  480. --- 2863,2870 ----
  481.               sndsrc = nfils;    /* Like MSEND */
  482.               addlist = 1;    /* But using a different list... */
  483.               filenext = filehead;
  484. +             if (cx == XXMOVE)
  485. +               moving = 1;
  486.               sstate = 's';
  487.               goto sendend;
  488.           } else {        /* Oops, no list. */
  489.  
  490. ====================
  491. X-Patch-Number: 0007
  492. Date: Thu, 12 Dec 1996 21:11:47 -0500
  493. From: "Richard L. Hamilton" <rlhamil@mindwarp.smart.net>
  494. Subject: Higher serial speeds on Solaris 2.5
  495.  
  496. Here's how I hacked up C-Kermit 6.0 for more of the speeds that
  497. Solaris >= 2.5 supports.
  498.  
  499. This was with the following make command, to get rid of references
  500. to unsupported speeds as well as to help get some of the additional
  501. speeds.  POSIX is a must, 'cause setting speeds > 38400 without
  502. the cfsetospeed() and similar functions is a pain.  The #ifndef VANILLA
  503. was just so I could turn off all my hacks real easily, and it and the
  504. corresponding #endif should probably be removed.
  505.  
  506. make solaris2xg KFLAGS="-DCK_DSYSINI -DCK_INI_B -DCK_WREFRESH -DPOSIX
  507. -DNOB_3600 -DNOB_7200 -DBPS_134 -DBPS_1800 -DBPS_57K -DBPS_76K
  508. -DBPS_115K -DBPS_230K"
  509.  
  510. diff ckutio.c.orig ckutio.c
  511. 4605c4605,4616
  512. < 
  513. ---
  514. > #ifndef VANILLA
  515. > #ifdef SOLARIS
  516. > #ifdef POSIX
  517. > #ifdef BPS_76K
  518. >       case 7680: s = B76800; break;
  519. > #endif /* BPS_76K */
  520. > #ifdef BPS_230K
  521. >       case 23040: s = B230400; break;
  522. > #endif /* BPS_230K */
  523. > #endif /* POSIX */
  524. > #endif /* SOLARIS */
  525. > #endif /* VANILLA */
  526. 4951a4963,4974
  527. > #ifndef VANILLA
  528. > #ifdef SOLARIS
  529. > #ifdef POSIX
  530. > #ifdef BPS_76K
  531. >       case B76800: ss = 76800L; break;
  532. > #endif /* BPS_76K */
  533. > #ifdef BPS_230K
  534. >       case B230400: ss = 230400L; break;
  535. > #endif /* BPS_230K */
  536. > #endif /* POSIX */
  537. > #endif /* SOLARIS */
  538. > #endif /* VANILLA */
  539. diff ckuus3.c.orig ckuus3.c
  540. 328a329,331
  541. > #ifdef BPS_1800
  542. >   "1800", 180, 0,
  543. > #endif /* BPS_1800 */
  544.  
  545. ====================
  546. X-Patch-Number: 0008
  547. Date: Wed, 18 Dec 1996 11:42:00 EST
  548. From: Frank da Cruz <fdc@columbia.edu>
  549. Subject: C-Kermit application file name can't contain spaces
  550.  
  551. When the first command-line argument to C-Kermit is a filename, C-Kermit 
  552. should execute the commands from the file, e.g.
  553.  
  554.   kermit filename
  555.  
  556. But if the filename contains spaces, this doesn't work in version 6.0, even
  557. if the filename is properly quoted to the shell:
  558.  
  559.   kermit "this is a file name"
  560.  
  561. Here is the patch:
  562.  
  563. *** /w/pub/ftp/kermit/f/ckuus4.c    Sun Nov 24 19:20:50 1996
  564. --- ckuus4.c    Wed Dec 18 11:40:46 1996
  565. ***************
  566. *** 636,642 ****
  567.   */
  568.           cmdini();            /* Allocate command buffers etc */
  569.           cmini(0);            /* Initialize them */
  570. !         strcpy(cmdbuf,yargv[1]);    /* Stuff filename into command buf */
  571.           strcat(cmdbuf,"\r\r");    /* And some carriage returns */
  572.           if ((y = cmifip("","",&s,&x,0,takepath,xxstring)) < 0)
  573.             doexit(BAD_EXIT,xitsta);
  574. --- 636,642 ----
  575.   */
  576.           cmdini();            /* Allocate command buffers etc */
  577.           cmini(0);            /* Initialize them */
  578. !         sprintf(cmdbuf,"{%s}",yargv[1]); /* Put filename in command buf */
  579.           strcat(cmdbuf,"\r\r");    /* And some carriage returns */
  580.           if ((y = cmifip("","",&s,&x,0,takepath,xxstring)) < 0)
  581.             doexit(BAD_EXIT,xitsta);
  582.  
  583. ====================
  584. X-Patch-Number: 0009
  585. Subject: cku192 on an AT&T 3B1/7300
  586. Date: Sun, 5 Jan 97 16:12:40 CST (-0600)
  587. From: "Randolph J. Herber" <rjh@yclept.chi.il.us>
  588.  
  589. I used the sys3upcx entry in the makefile.  It works.
  590.  
  591. I noticed the following problems:
  592.  
  593.     1. kermit needs to run setuid uucp if it is sharing a line with
  594.        HDB uucp.  If you set kermit setuid uucp and attempt to run
  595.        it as user root, it fails because the AT&T 3B1 UNIX operating
  596.        system is System V Release 0 and does not have save uid in
  597.        the kernel.  The following code snippet in priv_ini() of
  598.        ckutio.c shows the change I made to address this situation:
  599.  
  600.     if (realuid == UID_ROOT) {        /* If real id is root, */
  601.       privuid = (UID_T) -1;        /* stay root at all times. */
  602.       err &= ~1;            /* and remove any setuid err */
  603.     }                    /* added RJH 31DEC1996 */
  604.  
  605.     2. AT&T UNIX 3.51m does have hardware flow control which can
  606.        set but not tested for.   I added the following in tthflow()
  607.        of ckutio.c after the #ifdef ATTSV to address this situation:
  608.  
  609. #ifdef ATT7300
  610. #define RTSFLOW CTSCD
  611. #define CTSFLOW CTSCD
  612. #endif
  613.  
  614.        With these present, then cku192 can be generated with CK_RTSCTS.
  615.        I have observed that it can make a 30% difference in performance
  616.        by avoiding hangs while kermit times out when the other system
  617.        is expecting hardware flow control.
  618.  
  619.        Please note that version 3.51m was released as a patch on
  620.        fix disk 2 and not everyone has it.
  621.  
  622.     Randolph J. Herber,
  623.     (Speaking for myself and not US, USDOE, Fermilab or URA.)
  624.     (Trademarks belong to their respective owners.)
  625.  
  626. ====================
  627. X-Patch-Number: 0010
  628. Date: Sat, 11 Jan 1997 00:06:01 -0600 (CST)
  629. From: "Patrick J. Volkerding" <volkerdi@mhd1.moorhead.msus.edu>
  630. To: fdc@watsun.cc.columbia.edu
  631. Subject: C-Kermit for Linux on Alpha
  632.  
  633. ************************************************************************
  634.  
  635. NOTE: This patch (Patch 0010) and Patch 0017 are mutually exclusive.
  636.       Patch 0017 includes same fix for Linux/Alpha as Patch 0010 does.
  637.       If you wish to use the higher serial speeds available with the
  638.       standard POSIX interface, apply Patch 0017 instead of Patch 0010.
  639.       
  640. ************************************************************************      
  641.  
  642. There was one little snag in the compile, but it looks like this patch
  643. fixes it:
  644.  
  645. --- ckutio.c.orig       Fri Jan 10 23:55:38 1997
  646. +++ ckutio.c    Fri Jan 10 23:55:38 1997
  647. @@ -671,6 +671,9 @@
  648.  #ifdef LINUXHISPEED
  649.  #include <linux/serial.h>
  650.  #endif /* LINUXHISPEED */
  651. +#ifdef __alpha__ /* Linux on DEC Alpha */
  652. +#include <asm/termios.h>
  653. +#endif /* __alpha__ */
  654.  #else
  655.  #ifdef AIXRS                           /* IBM AIX */
  656.  #include <sys/time.h>
  657.  
  658. ====================
  659. X-Patch-Number: 0011
  660. Date: Sat, 11 Jan 1997 00:06:01 -0600 (CST)
  661. From: ...
  662. Subject: Patch to make ck9con.c compile on OS-9/68000 2.4
  663.  
  664. *** /w/pub/ftp/kermit/f/ck9con.c    Thu Aug 22 19:50:45 1996
  665. --- ./ck9con.c    Sat Jan 11 12:57:23 1997
  666. ***************
  667. *** 935,941 ****
  668. --- 935,945 ----
  669.               else if (n < 0) {
  670.                   debug(F101, "conect comm errno", NULL, errno);
  671.                   if (!quiet)
  672. + #ifdef OSK
  673. +                   printf("\n\012Communications disconnect ");
  674. + #else             
  675.                     printf("\n\lCommunications disconnect ");
  676. + #endif                  
  677.                   if (network) ttclos(0);
  678.                   dohangup = 1;
  679.                   active = 0;
  680.  
  681. ====================
  682. X-Patch-Number: 0012
  683. Date: Sat, 25 Jan 1997 20:46:22 -0500 (EST)
  684. From: Fred Smith <fredex@fcshome.stoneham.ma.us>
  685. Subject: Patches for Coherent 4.2
  686.  
  687. You've now got TWO new Coherent executables in your /pub/kermit/incoming
  688. directory. Both were compiled using the coherent42 target in the makefile,
  689. without any changes to the target.
  690.  
  691. In both cases, however, I needed to make some changes in the code. I'll
  692. append some patches here with the changes.  NOTE that I'll also embed
  693. some commentary in the patches (I'll add a "FRANK" to my commentary so
  694. you can easily find it) describing WHY I made that change.
  695.  
  696. One of the executables, cku192.coherent42-mw-uucp is compiled with as few
  697. changes as possible, using the default lockfile naming rules that were in
  698. effect in older revs of Coherent.
  699.  
  700. The other, cku192.coherent42-taylor-uucp was slightly modified to use a naming
  701. convention matching that used by the Taylor UUCP in use in Coherent 4.2 (and
  702. as an add-on by some people to the 4.0.x systems).
  703.  
  704. So, in theory, the cku192.coherent42-mw-uucp ought to be usable on older 4.x
  705. releases that do not use Taylor UUCP.  But who knows if it really will work.
  706. It was compiled on 4.2.10. I believe there have been numerous changes in the
  707. system internals and in the libraries across each of the (many) revs between
  708. 4.0.0 and 4.2.10, so each person who tries it has my sincere wishes for good
  709. luck!
  710.  
  711. OTOH, MWC (as far as I know) did not ship Taylor UUCP as an official part of
  712. the distribution prior to 4.2.x (though they had an update available for
  713. earlier revs), and beginning at 4.2.x shipped ONLY Taylor UUCP.  So, I believe
  714. that the cku192.coherent42-taylor-uucp executable is quite likely to work on
  715. any 4.2.x release.
  716.  
  717. Both executables were tested (on my 4.2.10 system) by uploading themselves to
  718. our ISP, so at least to the extent that that exercises the program, they do
  719. appear to work. I noticed that the old bug remains where on Coherent the
  720. full-screen display is drawn twice.
  721.  
  722. OK, here's the patches, with some additional commentary:
  723. -------------------------------------------------------------------------------
  724. *** ../src/ckufio.c    Sat Nov 23 14:27:13 1996
  725. --- ckufio.c    Sat Jan 25 20:28:18 1997
  726. ***************
  727. *** 211,216 ****
  728. --- 211,221 ----
  729.   #endif /* BSD4 */
  730.   #endif /* BSD44 */
  731.   
  732. FRANK
  733. This is needed for cku192 to avoid fatal compiler errors. I didn't track
  734. down the reason, but it must be something that changed since 190.
  735.  
  736. + /* FCS */
  737. + #ifdef COHERENT
  738. + #include <time.h>
  739. + #endif /* COHERENT */
  740. + 
  741.   /* Is `y' a leap year? */
  742.   #define leap(y) (((y) % 4 == 0 && (y) % 100 != 0) || (y) % 400 == 0)
  743.   
  744. *** ../src/ckutio.c    Mon Nov 18 12:10:44 1996
  745. --- ckutio.c    Sat Jan 25 20:28:19 1997
  746. ***************
  747. *** 993,1000 ****
  748. --- 993,1003 ----
  749.   #else
  750.   #ifdef SELECT
  751.   #ifndef BELLV10
  752.  
  753. FRANK
  754. Also needed on 192 but not on 190.
  755.  
  756. + /* FCS */
  757. + #ifndef COHERENT
  758.       static struct timeval tv;
  759.       static struct timezone tz;
  760. + #endif /* COHERENT */
  761.   #endif /* BELLV10 */
  762.   #endif /* SELECT */
  763.   #endif /* OXOS */
  764. ***************
  765. *** 2999,3004 ****
  766. --- 3002,3008 ----
  767.   #endif /* LFDEVNO */            /* ... define it here or on CC */
  768.   #endif /* SVR4 */            /* command line. */
  769.   
  770. FRANK
  771. This, if NOT commented out, builds the cku192.coherent42.MWC-uucp
  772. executable. If commented out you get the cku192.coherent42.TAYLOR-uucp.
  773.  
  774. + /* FCS
  775.   #ifdef COHERENT
  776.   #define LFDEVNO
  777.   #endif /* COHERENT */
  778. ***************
  779. *** 4272,4277 ****
  780. --- 4276,4286 ----
  781.       flow == FLO_DTRC ||
  782.       flow == FLO_DTRT) {
  783.       tthflow(flow, 1, &ttraw);
  784.  
  785. FRANK
  786. This is needed only for cku192.coherent42-taylor-uucp.
  787.  
  788. + /* FCS */
  789. + #ifdef COHERENT
  790. + #define SVORPOSIX
  791. + #endif /* COHERENT */
  792. + 
  793.   #ifndef SVORPOSIX
  794.       ttraw.sg_flags &= ~TANDEM;    /* Turn off software flow control */
  795.   #else
  796. ***************
  797. *** 4317,4322 ****
  798. --- 4326,4336 ----
  799.   #endif /* BSD44ORPOSIX */
  800.   #endif /* SVORPOSIX */
  801.       return(0);
  802.  
  803. FRANK
  804. ditto.
  805.  
  806. + 
  807. + /* FCS */
  808. + #ifdef COHERENT
  809. + #undef SYSVORPOSIX
  810. + #endif /* COHERENT */
  811.   }
  812.   
  813.   /*  T T V T -- Condition communication line for use as virtual terminal  */
  814. *** ../src/ckuus3.c    Sun Nov 24 12:51:52 1996
  815. --- ckuus3.c    Sat Jan 25 20:28:18 1997
  816. ***************
  817. *** 3334,3340 ****
  818.  
  819. FRANK
  820. without this one MWC's C compiler takes a fatal error, complaining 
  821. something like redefining a function to null.??
  822.  
  823.   #ifdef CK_ANSIC
  824.       xxstring = y ? zzstring : (xx_strp) NULL;
  825.   #else
  826. !     xxstring = y ? zzstring : NULL;
  827.   #endif /* CK_ANSIC */
  828.   #endif /* datageneral */
  829.       return(success = 1);
  830. --- 3334,3341 ----
  831.   #ifdef CK_ANSIC
  832.       xxstring = y ? zzstring : (xx_strp) NULL;
  833.   #else
  834. ! /* FCS */
  835. !     xxstring = y ? zzstring : (xx_strp)NULL;
  836.   #endif /* CK_ANSIC */
  837.   #endif /* datageneral */
  838.       return(success = 1);
  839.  
  840. ====================
  841. X-Patch-Number: 0013
  842. From: Stephan Hoffmann-Emden <HEStephan@aol.com>
  843. Date: Tue, 4 Feb 1997 06:00:49 -0500 (EST)
  844. To: fdc@watsun.cc.columbia.edu
  845. Subject: SINIX-RM BINARIES
  846.  
  847. this is the result of our porting-works for a
  848. SINIX-Y rm600 5.43 B0045 RM600 3/512 R4000
  849.  
  850. We've got problems with the declaration of variable 'delay' caused by
  851. include-file /usr/include/sys/clock.h
  852.  
  853. Therefore the variables were renamed in the following modules:
  854.  
  855. ckcfns.c
  856. ckcmai.c
  857. ckuus3.c
  858. ckuus4.c
  859. ckuusy.c
  860.  
  861. Patch:
  862.  
  863. *** /w/pub/ftp/kermit/c-kermit/ckcfns.c    Sun Nov 24 19:20:48 1996
  864. --- ./ckcfns.c    Mon Feb  3 11:46:51 1997
  865. ***************
  866. *** 44,46 ****
  867.   extern int parity, turn, network, what, whatru, fsecs, justone, slostart,
  868. !  delay, displa, xflg, mypadn, remfile, moving;
  869.   extern long filcnt, ffc, flci, flco, tlci, tlco, tfc, fsize, sendstart, rs_len;
  870. --- 44,46 ----
  871.   extern int parity, turn, network, what, whatru, fsecs, justone, slostart,
  872. !  ckdelay, displa, xflg, mypadn, remfile, moving;
  873.   extern long filcnt, ffc, flci, flco, tlci, tlco, tfc, fsize, sendstart, rs_len;
  874. ***************
  875. *** 1305,1308 ****
  876.       }
  877. !     if (!local && !server && delay > 0)    /* OS-9 sleep(0) == infinite */
  878. !       sleep(delay);            /* Delay if requested */
  879.   #ifdef datageneral
  880. --- 1305,1308 ----
  881.       }
  882. !     if (!local && !server && ckdelay > 0)    /* OS-9 sleep(0) == infinite */
  883. !       sleep(ckdelay);            /* Delay if requested */
  884.   #ifdef datageneral
  885. *** /w/pub/ftp/kermit/c-kermit/ckcmai.c    Fri Nov 29 08:52:13 1996
  886. --- ./ckcmai.c    Mon Feb  3 11:35:33 1997
  887. ***************
  888. *** 893,895 ****
  889.       escape = DFESC,            /* Escape character for connect */
  890. !     delay = DDELAY,                     /* Initial delay before sending */
  891.       tnlm = 0,                /* Terminal newline mode */
  892. --- 893,895 ----
  893.       escape = DFESC,            /* Escape character for connect */
  894. !     ckdelay = DDELAY,                     /* Initial delay before sending */
  895.       tnlm = 0,                /* Terminal newline mode */
  896. *** /w/pub/ftp/kermit/c-kermit/ckuus3.c    Sun Nov 24 19:20:50 1996
  897. --- ./ckuus3.c    Mon Feb  3 11:45:18 1997
  898. ***************
  899. *** 75,77 ****
  900.     local, server, success, dest,
  901. !   flow, autoflow, binary, xfermode, delay, parity, escape, what, srvdis,
  902.     turn, duplex, backgrd,
  903. --- 75,77 ----
  904.     local, server, success, dest,
  905. !   flow, autoflow, binary, xfermode, ckdelay, parity, escape, what, srvdis,
  906.     turn, duplex, backgrd,
  907. ***************
  908. *** 3550,3552 ****
  909.       if (x < 0) x = 0;
  910. !     return(success = setnum(&delay,x,y,999));
  911.   
  912. --- 3550,3552 ----
  913.       if (x < 0) x = 0;
  914. !     return(success = setnum(&ckdelay,x,y,999));
  915.   
  916. *** /w/pub/ftp/kermit/c-kermit/ckuus4.c    Sun Nov 24 19:20:50 1996
  917. --- ./ckuus4.c    Mon Feb  3 11:45:24 1997
  918. ***************
  919. *** 234,236 ****
  920.     atcapr, autopar, bctr, bctu, bgset, bigrbsiz, bigsbsiz, binary, carrier,
  921. !   cdtimo, cmask, crunched, delay, duplex, ebq, ebqflg, flow, fmask,
  922.     fncact, fncnv, inecho, keep, local, lscapr, lscapu, xfermode,
  923. --- 234,236 ----
  924.     atcapr, autopar, bctr, bctu, bgset, bigrbsiz, bigsbsiz, binary, carrier,
  925. !   cdtimo, cmask, crunched, ckdelay, duplex, ebq, ebqflg, flow, fmask,
  926.     fncact, fncnv, inecho, keep, local, lscapr, lscapu, xfermode,
  927. ***************
  928. *** 2487,2489 ****
  929.       printf(  " Pad Character:%11d%9d", padch,  mypadc);
  930. !     printf("        Delay:       %6d\n",delay);
  931.       printf(  " Packet Start: %11d%9d", mystch, stchr);
  932. --- 2487,2489 ----
  933.       printf(  " Pad Character:%11d%9d", padch,  mypadc);
  934. !     printf("        Delay:       %6d\n",ckdelay);
  935.       printf(  " Packet Start: %11d%9d", mystch, stchr);
  936. *** /w/pub/ftp/kermit/c-kermit/ckuusy.c    Sun Nov 10 18:37:33 1996
  937. --- ./ckuusy.c    Mon Feb  3 11:45:30 1997
  938. ***************
  939. *** 116,118 ****
  940.     urpsiz, wslotr, swcapr, binary, warn, parity, turn, turnch, duplex, flow,
  941. !   fncact, clfils, noinit, stayflg, nettype, cfilef, delay, noherald,
  942.     cmask, cmdmsk, backgrd, exitonclose;
  943. --- 116,118 ----
  944.     urpsiz, wslotr, swcapr, binary, warn, parity, turn, turnch, duplex, flow,
  945. !   fncact, clfils, noinit, stayflg, nettype, cfilef, ckdelay, noherald,
  946.     cmask, cmdmsk, backgrd, exitonclose;
  947. ***************
  948. *** 321,323 ****
  949.       if (z > -1)                /* If in range */
  950. !       delay = z;            /* set it */
  951.       else {
  952. --- 321,323 ----
  953.       if (z > -1)                /* If in range */
  954. !       ckdelay = z;            /* set it */
  955.       else {
  956.  
  957. ====================
  958. X-Patch-Number: 0014
  959. From: Wolfgang J. Moeller <moeller@decus.decus.de>
  960. Date: Tue 4 Feb 1997 09:10:11 +0100
  961. To: fdc@watsun.cc.columbia.edu
  962. Subject: Patches for VAX/VMS 5.x + CMU-IP
  963.  
  964. Note: The missing argument to ttclos() applies to all builds, not
  965. just this one.
  966.  
  967. *** /w/pub/ftp/kermit/f/ckcnet.c    Wed Nov 27 19:54:46 1996
  968. --- ./ckcnet.c    Thu Jan 23 01:02:52 1997
  969. ***************
  970. *** 2513,2519 ****
  971.       x = read(ttyfd,&dummy,0);    /* Try to read nothing */
  972.       if (x < 0) {            /* "Connection reset by peer" */
  973.           perror("TCP/IP");        /* or somesuch... */
  974. !         ttclos();            /* Close our end too. */
  975.           return(-1);
  976.       }
  977.       }
  978. --- 2513,2519 ----
  979.       x = read(ttyfd,&dummy,0);    /* Try to read nothing */
  980.       if (x < 0) {            /* "Connection reset by peer" */
  981.           perror("TCP/IP");        /* or somesuch... */
  982. !         ttclos(0);            /* Close our end too. */
  983.           return(-1);
  984.       }
  985.       }
  986. ***************
  987. *** 2663,2669 ****
  988.           x = read(ttyfd,&dummy,0);    /* Try to read nothing */
  989.           if (x < 0) {        /* "Connection reset by peer" */
  990.           perror("TCP/IP");    /* or somesuch... */
  991. !         ttclos();        /* Close our end too. */
  992.           return(-1);
  993.           }
  994.       }
  995. --- 2663,2669 ----
  996.           x = read(ttyfd,&dummy,0);    /* Try to read nothing */
  997.           if (x < 0) {        /* "Connection reset by peer" */
  998.           perror("TCP/IP");    /* or somesuch... */
  999. !         ttclos(0);        /* Close our end too. */
  1000.           return(-1);
  1001.           }
  1002.       }
  1003. *** /w/pub/ftp/kermit/f/ckvtio.c    Sun Nov 24 19:20:55 1996
  1004. --- ./ckvtio.c    Sun Feb  2 15:54:12 1997
  1005. ***************
  1006. *** 2557,2562 ****
  1007. --- 2557,2563 ----
  1008.   #ifdef CMU_TCPIP
  1009.           mask = 1;
  1010.           exceptfds = mask;
  1011. + #ifdef CMU_TCPIP_BOGUS_SELECT
  1012.           if (select(1, &mask, 0, &exceptfds, &timeout) == 1)
  1013.             if (FD_ISSET(0,&exceptfds))
  1014.               return(*c = -1);
  1015. ***************
  1016. *** 2564,2569 ****
  1017. --- 2565,2589 ----
  1018.           *c   = (unsigned)(concc & 0xff);
  1019.           *src = 0;
  1020.           return(1);
  1021. + #else    /* CMU_TCPIP_BOGUS_SELECT (wjm 02-feb-1997) */
  1022. +         /* non-blocking select() - zero timeout */
  1023. +         switch(select(1, &mask, 0, &exceptfds, &timeout)) {
  1024. +           case 1:    /* console ready */
  1025. +             netcon_queued = 0;            /* QIO completed */
  1026. +             *src = 0;
  1027. +             if (!(FD_ISSET(0,&exceptfds))) {    /* o.k. */
  1028. +             *c = (unsigned)(concc & 0xff);
  1029. +             return(1);
  1030. +             } else                /* I/O error */
  1031. +             return(*c = -1);
  1032. + 
  1033. +           case 0:    /* timeout (no console input) */
  1034. +             break;
  1035. + 
  1036. +           default:    /* select() error */
  1037. +             return(*c = -1);        /* shouldn't get here */
  1038. +         } 
  1039. + #endif    /* CMU_TCPIP_BOGUS_SELECT (wjm 02-feb-1997) */
  1040.   #else
  1041.                  (void) sys$readef(CON_EFN, &mask);
  1042.               if (mask & (1 << CON_EFN)) {
  1043. ***************
  1044. *** 2887,2892 ****
  1045. --- 2907,2913 ----
  1046.   
  1047.       net_chan = GET_SDC(ttyfd);
  1048.           if (nettty_queued) (void) sys$cancel(net_chan);
  1049. +     nettty_queued = 0;                    /*+wjm*/
  1050.   #else  /* DEC_TCPIP */
  1051.   #ifdef CMU_TCPIP
  1052.       /* not going to do this when CMU is the network transport.
  1053. ***************
  1054. *** 2896,2907 ****
  1055.        */
  1056.   #else  /* !CMU_TCPIP */
  1057.          if (nettty_queued) (void) sys$cancel(ttyfd);
  1058.   #endif /* CMU_TCPIP */
  1059.   #endif /* DEC_TCPIP */
  1060.           if (netcon_queued) (void) sys$cancel(conchn);
  1061. - 
  1062.           netcon_queued = 0;
  1063. !         nettty_queued = 0;
  1064.       return(0);
  1065.   #else /* Not TCPIPLIB */
  1066.       return(0);
  1067. --- 2917,2929 ----
  1068.        */
  1069.   #else  /* !CMU_TCPIP */
  1070.       if (nettty_queued) (void) sys$cancel(ttyfd);
  1071. +     nettty_queued = 0;                    /*+wjm*/
  1072.   #endif /* CMU_TCPIP */
  1073.   #endif /* DEC_TCPIP */
  1074.           if (netcon_queued) (void) sys$cancel(conchn);
  1075.           netcon_queued = 0;
  1076. ! 
  1077. ! /*-wjm    nettty_queued = 0; */
  1078.       return(0);
  1079.   #else /* Not TCPIPLIB */
  1080.       return(0);
  1081.  
  1082. ====================
  1083. X-Patch-Number: 0015
  1084. From: "Melissa O'Neill" <oneill@cs.sfu.ca>
  1085. Subject: XECHO doesn't flush its output...
  1086. To: kermit-support@columbia.edu
  1087. Date: Tue, 4 Feb 1997 18:20:51 -0800 (PST)
  1088.  
  1089. CKermit 6.0.192 has a small problem with the XECHO command, which doesn't
  1090. doesn't flush it's output. This means that a display from an XECHO command may
  1091. not be seen a timely way.  Enclosed is a simple patch to fix the problem.
  1092.  
  1093. --- ckuusr.c.orig    Tue Jan 28 11:55:50 1997
  1094. +++ ckuusr.c    Tue Jan 28 11:56:20 1997
  1095. @@ -2071,6 +2071,7 @@
  1096.          printf("%s\n",s);
  1097.      } else if (cx == XXXECH) {    /* XECHO */
  1098.          printf("%s",s);
  1099. +        fflush(stdout);
  1100.      } else {            /* APC */
  1101.  #ifdef CK_APC
  1102.          if (apcactive == APC_LOCAL || 
  1103.  
  1104. ====================
  1105. X-Patch-Number: 0016
  1106. Date: Mon, 17 Feb 1997 17:16:56 -0800
  1107. From: Frank da Cruz <fdc@columbia.edu>
  1108. Subject: CD and other directory operations might not work
  1109.  
  1110. In the VMS-specific file i/o module, CKVFIO.C, routine isdir(), a struct
  1111. that contained a pointer to a malloc'd buffer was being used after the
  1112. buffer was freed.  In many cases this does not cause a problem because the
  1113. material is still actually there, but in some cases the free() implementation
  1114. actually wipes the buffer clean, causing the operation to fail.  The most
  1115. common symptom was failure of CD / SET DEFAULT in OpenVMS Alpha 6.2 or later
  1116. that has been updated with ALPLIBR04_070, "Fix realloc fragmentation problem,"
  1117. LIBRTL patch (this was discovered by Lucas Hart).  The fix is to postpone the
  1118. free() call till after we are finished using the struct:
  1119.  
  1120. *** /w/pub/ftp/kermit/f/ckvfio.c    Sun Nov 24 19:20:54 1996
  1121. --- ./ckvfio.c    Mon Feb 17 17:23:23 1997
  1122. ***************
  1123. *** 18,22 ****
  1124.   #endif /* __ALPHA */
  1125.   
  1126. ! char *ckzv = "File support, 6.0.130, 6 Sep 96";
  1127.   
  1128.   char *ckzsys = CKVFIO_OS_ARCH_STRING;
  1129. --- 18,22 ----
  1130.   #endif /* __ALPHA */
  1131.   
  1132. ! char *ckzv = "File support, 6.0.131, 17 Feb 1997";
  1133.   
  1134.   char *ckzsys = CKVFIO_OS_ARCH_STRING;
  1135. ***************
  1136. *** 31,35 ****
  1137.     Columbia University Academic Information Systems, New York City.
  1138.   
  1139. !   Copyright (C) 1985, 1996, Trustees of Columbia University in the City of New
  1140.     York.  The C-Kermit software may not be, in whole or in part, licensed or
  1141.     sold for profit as a software product itself, nor may it be included in or
  1142. --- 31,35 ----
  1143.     Columbia University Academic Information Systems, New York City.
  1144.   
  1145. !   Copyright (C) 1985, 1997, Trustees of Columbia University in the City of New
  1146.     York.  The C-Kermit software may not be, in whole or in part, licensed or
  1147.     sold for profit as a software product itself, nor may it be included in or
  1148. ***************
  1149. *** 255,258 ****
  1150. --- 255,259 ----
  1151.    * 129 06-Sep-96 fdc  Fix zchki() to return -2 if blah.DIR;n is a directory.
  1152.    * 130 06-Sep-96 fdc  Fixes to isdir(), zstrip(), zchdir(). 
  1153. +  * 131 17-Feb-97 fdc  Another fix to isdir() (free() was called too early).
  1154.    */
  1155.   
  1156. ***************
  1157. *** 628,633 ****
  1158.   #endif /* COMMENT */
  1159.   
  1160. -     free(full_name);
  1161. - 
  1162.       if (new_len == 0) {
  1163.           /* Could still be a device name. */
  1164. --- 629,632 ----
  1165. ***************
  1166. *** 644,647 ****
  1167. --- 643,647 ----
  1168.              i, i, serial_num, new_len);
  1169.   #endif /* COMMENT */
  1170. +         free(full_name);
  1171.           return(((i & 1) == 1 && new_len > 0) ? 1: 0);
  1172.   
  1173. ***************
  1174. *** 657,666 ****
  1175. --- 657,669 ----
  1176.               name_buf[new_len-1] = '\0';
  1177.           }
  1178. +         free(full_name);
  1179.           return( isdir(name_buf) );
  1180.       } else {
  1181.           /* Logical name is just a random string signifying nothing */
  1182. +         free(full_name);
  1183.           return(0);
  1184.       }
  1185.       }
  1186.       return(1);
  1187.   }
  1188.  
  1189. ====================
  1190. X-Patch-Number: 0017
  1191. Date: Wed, 22 Jan 1997 18:57:18 -0500
  1192. To: kermit@columbia.edu
  1193. Subject: Patches to C-Kermit 6.0.192 for better Linux support
  1194. From: tytso@mit.edu
  1195.  
  1196. ************************************************************************
  1197.  
  1198. NOTE: This patch (Patch 0017) and Patch 0010 are mutually exclusive.
  1199.       Patch 0017 includes same fix for Linux/Alpha as Patch 0010 does.
  1200.       If do not wish to use the higher serial speeds available with the
  1201.       standard POSIX interface, apply Patch 0010 instead of Patch 0017.
  1202.  
  1203. ************************************************************************
  1204.  
  1205. I'm the tty and serial driver maintainer for Linux, and I've recently made
  1206. some changes so that kermit can better support Linux serial ports.  The
  1207. current kermit code uses a non-standard Linux specific ioctl to use the
  1208. 57600 and 115200 baud rates.  These ioctl's have not been required for two
  1209. major versions (2.0, 1.2).  Indeed, Linux at this point can support 230K bps
  1210. and 460K bps.
  1211.  
  1212. These patches do allow the use of the old ioctl's, but most Linux systems
  1213. really don't need them anymore.  I've added support for 230 or 460 kbaud,
  1214. using the standard POSIX interface.
  1215.  
  1216. I hope you find this useful, and these patches will find their way into the
  1217. next version of C-kermit.  Please let me know if you have any problems with
  1218. them.
  1219.     Thanks!!
  1220.                         - Ted
  1221.  
  1222. Patch generated: on Wed Jan 22 15:18:08 EST 1997 by tytso@rsts-11.mit.edu
  1223. against Kermit version 6.0.192 
  1224.  
  1225. ----------------------------------------------------------------
  1226. RCS file: RCS/makefile,v
  1227. retrieving revision 1.1
  1228. diff -u -r1.1 makefile
  1229. --- makefile    1996/12/07 17:12:55    1.1
  1230. +++ makefile    1996/12/07 21:49:22
  1231. @@ -2800,13 +2800,35 @@
  1232.      $(MAKE) wermit \
  1233.      "CFLAGS = -DATTSV -DNOFILEH -DCIE $(KFLAGS) -O" "LNKFLAGS ="
  1234.  
  1235. -# Linux 0.99.14 or later with gcc, dynamic libraries, curses, TCP/IP.
  1236. -# 
  1237. -# -DLINUXFSSTND (Linux File System Standard) gives UUCP lockfil /var/lock with
  1238. -# string pid.  Remove this and get /usr/spool/uucp with int pid, which was used
  1239. -# in early Linux versions.
  1240. +# Linux 1.2 and later (1.3, 2.0, 2.1) with gcc, dynamic libraries, TCP/IP
  1241. +#
  1242. +# Most modern Linux systems use ncurses (with curses.h and an ncurses 
  1243. +# shared library.   Modern Linux systems also generally use FSSTND 1.2.
  1244. +# So, you don't need most of the compatibility hair described below.
  1245. +#
  1246. +# If your Linux system does not have ncurses, remove -DCK_CURSES 
  1247. +# and the entire LIBS= clause.
  1248. +#
  1249. +# NOTE: Remove -DBIGBUFOK for small-memory or limited-resource systems.
  1250.  #
  1251. -# If you get compiler errors regarding <linux/serial.h>, add -DNOHISPEED.
  1252. +#
  1253. +# For very old (ancient) Linux systems, mainly systems with pre-1.0 and 
  1254. +# 1.0 kernel versions, and various odd-ball Linux distributions, read on....
  1255. +# 
  1256. +# -DLINUXFSSTND (Linux File System Standard 1.2) gives UUCP lockfil /var/lock
  1257. +# with string pid.  Remove this and get /usr/spool/uucp with int pid, 
  1258. +# which was used in early Linux versions.
  1259. +#
  1260. +# Add -DFSSTND10 to support the version 1.0 of the FSSTND.  In the earlier
  1261. +# version of the FSSTND, the PID string in the UUCP lock file had leading
  1262. +# zeros.  In FSSTND 1.2 this was changed to be be leading spaces instead.
  1263. +# To use the older standard, add define FSSTND10.
  1264. +#
  1265. +# Add -DOLINUXHISPEED (Old Linux High Speed support) to turn on an ugly kludge
  1266. +# which was used in Linux 1.0 systems to support speeds of 57600 and 115200.
  1267. +# Really, really, old Linux systems (pre-0.99pl15) will not support this.
  1268. +# If OLINUXHISPEED is not defined, then only the standard termios methods 
  1269. +# of setting the port speed will be used.
  1270.  #
  1271.  # -DCK_POSIX_SIG (POSIX signal handling) is good for Linux releases back to at
  1272.  # least 0.99.14; if it causes trouble for you, just remove it.
  1273. @@ -2825,23 +2847,14 @@
  1274.  # But wait, there's more.  On most Linux systems, -ltermcap must be included
  1275.  # in LIBS.  But on others, the linker complains that libtermcap can't be
  1276.  # found.  In that case, try removing -ltermcap from LIBS=.
  1277. -#
  1278. -# But wait, there's more.  The format of the PID string in the UUCP lockfile
  1279. -# changed between Linux FSSTND 1.0 and 1.2.  In the earlier standard, it had
  1280. -# leading zeros; in the second, it has leading spaces.  By default this entry
  1281. -# uses the newer standard.  To force the second one, add -DFSSTND10.
  1282. -#
  1283. -# "The nice thing about the Linux standard is there are so many to choose from"
  1284. -#
  1285. -# NOTE: Remove -DBIGBUFOK for small-memory or limited-resource systems.
  1286.  linux:
  1287.      @echo 'Making C-Kermit $(CKVER) for Linux...'
  1288.      @echo 'IMPORTANT: Read the comments in the linux section of the'
  1289.      @echo 'makefile if you get compilation or link errors.'
  1290.      $(MAKE) wermit "CC = gcc" "CC2 = gcc" \
  1291.      "CFLAGS = -O -DPOSIX -DDYNAMIC -DCK_CURSES -DCK_POSIX_SIG \
  1292. -    -DBIGBUFOK -DTCPSOCKET -DLINUXFSSTND $(KFLAGS)" \
  1293. -    "LNKFLAGS = $(LNKFLAGS)" "LIBS = -lcurses -ltermcap"
  1294. +    -DBIGBUFOK -DTCPSOCKET -DLINUXFSSTND -DCK_DSYSINI $(KFLAGS)" \
  1295. +    "LNKFLAGS = $(LNKFLAGS)" "LIBS = -lncurses -ltermcap"
  1296.  
  1297.  #This version was used for Linux prior to C-Kermit 6.0.192.
  1298.  #Now the "Linux File System Standard" is considered standard, ditto TCP/IP.
  1299. ----------------------------------------------------------------
  1300. RCS file: RCS/ckuusr.h,v
  1301. retrieving revision 1.1
  1302. diff -u -r1.1 ckuusr.h
  1303. --- ckuusr.h    1996/12/07 21:31:08    1.1
  1304. +++ ckuusr.h    1996/12/07 21:33:08
  1305. @@ -104,7 +104,11 @@
  1306.  #ifdef CU_ACIS
  1307.  #define CK_SYSINI "/usr/share/lib/kermit/ckermit.ini"
  1308.  #else
  1309. +#ifdef __linux__
  1310. +#define CK_SYSINI "/usr/share/kermit/ckermit.ini"
  1311. +#else
  1312.  #define CK_SYSINI "/usr/local/bin/ckermit.ini"
  1313. +#endif /* linux */
  1314.  #endif /* CU_ACIS */
  1315.  #endif /* HPUX10 */
  1316.  /* Fill in #else..#ifdef's here for VMS, OS/2, etc. */
  1317. ----------------------------------------------------------------
  1318. RCS file: RCS/ckcdeb.h,v
  1319. retrieving revision 1.1
  1320. diff -u -r1.1 ckcdeb.h
  1321. --- ckcdeb.h    1996/12/07 17:12:53    1.1
  1322. +++ ckcdeb.h    1996/12/07 18:33:35
  1323. @@ -1513,18 +1513,6 @@
  1324.  #define BPS_38K                /* 38400 bps */
  1325.  #endif
  1326.  
  1327. -/*
  1328. -  Speeds of 57600 and higher are supported in Linux 0.99.15 and later, but
  1329. -  it seems to do no harm to enable them for earlier releases too, in which
  1330. -  case commands like "set speed 57600" simply fail with an "Unsupported line
  1331. -  speed" message.
  1332. -*/
  1333. -#ifndef NOHISPEED
  1334. -#ifdef __linux__
  1335. -#define LINUXHISPEED
  1336. -#endif /* __linux__ */
  1337. -#endif /* NOHISPEED */
  1338. -
  1339.  #ifndef NOB_57K
  1340.  #ifdef Plan9
  1341.  #define BPS_57K
  1342. @@ -1536,9 +1524,7 @@
  1343.  #define BPS_57K
  1344.  #else
  1345.  #ifdef __linux__
  1346. -#ifdef LINUXHISPEED
  1347.  #define BPS_57K
  1348. -#endif /* LINUXHISPEED */
  1349.  #else
  1350.  #ifdef HPUX
  1351.  #define BPS_57K
  1352. @@ -1607,9 +1593,7 @@
  1353.  #define BPS_115K
  1354.  #else
  1355.  #ifdef __linux__
  1356. -#ifdef LINUXHISPEED
  1357.  #define BPS_115K
  1358. -#endif /* LINUXHISPEED */
  1359.  #else
  1360.  #ifdef __386BSD__
  1361.  #define BPS_115K
  1362. @@ -1643,11 +1627,26 @@
  1363.  #ifdef __32BIT__            
  1364.  #define BPS_230K
  1365.  #endif /* __32BIT__ */
  1366. -#else 
  1367. +#else
  1368. +#ifdef __linux__
  1369. +#define BPS_230K
  1370. +#else
  1371.  #undef BPS_230K
  1372. +#endif /* Linux */
  1373.  #endif /* OS2 */
  1374.  #endif /* NOB_230K */
  1375.  
  1376. +#ifndef NOB_460K            /* 460800 bps */
  1377. +#ifdef __linux__
  1378. +#define BPS_460K
  1379. +#else
  1380. +#undef BPS_460K
  1381. +#endif /* Linux */
  1382. +#endif /* NOB_460K */
  1383. +    
  1384. +#ifdef BPS_460K
  1385. +#define MAX_SPD 460800L            /* Maximum speed defined */
  1386. +#else
  1387.  #ifdef BPS_230K                /* Maximum speed defined */
  1388.  #define MAX_SPD 230400L
  1389.  #else
  1390. @@ -1673,6 +1672,7 @@
  1391.  #define MAX_SPD 14400L
  1392.  #else
  1393.  #define MAX_SPD 9600L
  1394. +#endif
  1395.  #endif
  1396.  #endif
  1397.  #endif
  1398. ----------------------------------------------------------------
  1399. RCS file: RCS/ckutio.c,v
  1400. retrieving revision 1.1
  1401. diff -u -r1.1 ckutio.c
  1402. --- ckutio.c    1996/12/07 17:12:53    1.1
  1403. +++ ckutio.c    1996/12/07 19:32:28
  1404. @@ -668,9 +668,9 @@
  1405.  #include <linux/fs.h>
  1406.  #include <linux/tty.h>
  1407.  #include <sys/time.h>
  1408. -#ifdef LINUXHISPEED
  1409. +#ifdef OLINUXHISPEED
  1410.  #include <linux/serial.h>
  1411. -#endif /* LINUXHISPEED */
  1412. +#endif /* OLINUXHISPEED */
  1413.  #else
  1414.  #ifdef AIXRS                /* IBM AIX */
  1415.  #include <sys/time.h>
  1416. @@ -4167,11 +4167,10 @@
  1417.      ttraw.c_iflag &= ~(IXON|IXOFF);    /* Turn off Xon/Xoff flags */
  1418.      ttraw.c_iflag |= (ttold.c_iflag & (IXON|IXOFF)); /* OR in old ones */
  1419.      /* NOTE: We should also handle hardware flow control here! */
  1420. -#ifdef __linux__
  1421. -/* In Linux case, we do this, which is unlikely to be portable */
  1422. +#ifdef POSIX_CRTSCTS
  1423.          ttraw.c_cflag &= ~CRTSCTS;    /* Turn off RTS/CTS flag */
  1424.          ttraw.c_cflag |= (ttold.c_cflag & CRTSCTS); /* OR in old one */
  1425. -#endif /* __linux__ */
  1426. +#endif /* POSIX_CRTSCTS */
  1427.      } else if (flow == FLO_RTSC ||    /* Hardware */
  1428.             flow == FLO_DTRC ||
  1429.             flow == FLO_DTRT) {
  1430. @@ -4419,10 +4418,10 @@
  1431.      tttvt.c_iflag &= ~(IXON|IXOFF);    /* Turn off Xon/Xoff flags */
  1432.      tttvt.c_iflag |= (ttold.c_iflag & (IXON|IXOFF)); /* OR in old ones */
  1433.      /* NOTE: We should also handle hardware flow control here! */
  1434. -#ifdef __linux__
  1435. +#ifdef POSIX_CRTSCTS
  1436.          tttvt.c_cflag &= ~CRTSCTS;    /* Turn off RTS/CTS flag */
  1437.          tttvt.c_cflag |= (ttold.c_cflag & CRTSCTS); /* OR in old one */
  1438. -#endif /* __linux__ */
  1439. +#endif /* POSIX_CRTSCTS */
  1440.      } else if (flow == FLO_NONE) {    /* NONE */
  1441.      tthflow(flow, 0, &tttvt);    /* Turn off hardware f/c */
  1442.      tttvt.c_iflag &= ~(IXON|IXOFF);    /* Turn off Xon/Xoff */
  1443. @@ -4524,12 +4523,10 @@
  1444.        s, s2;
  1445.      int ok = 1;                /* Speed check result, assume ok */
  1446.  
  1447. -#ifdef __linux__            /* Linux... */
  1448. -#ifdef ASYNC_SPD_MASK
  1449. +#ifdef OLINUXHISPEED            /* Linux... */
  1450.      unsigned int spd_flags = 0;
  1451.      struct serial_struct serinfo;
  1452. -#endif /* ASYNC_SPD_MASK */
  1453. -#endif /* __linux__ */
  1454. +#endif /* OLINUXHISPEED */
  1455.  
  1456.      debug(F101,"ttsspd cps","",cps);
  1457.      debug(F101,"ttsspd ttyfd","",ttyfd);
  1458. @@ -4591,11 +4588,9 @@
  1459.  #endif /* B28800 */
  1460.  #ifdef B38400
  1461.        case 3840: s = B38400;
  1462. -#ifdef __linux__
  1463. -#ifdef ASYNC_SPD_MASK
  1464. +#ifdef OLINUXHISPEED
  1465.          spd_flags = ~ASYNC_SPD_MASK;    /* Nonzero, but zero flags */
  1466. -#endif /* ASYNC_SPD_MASK */
  1467. -#endif /* __linux__ */
  1468. +#endif /* OLINUXHISPEED */
  1469.      break;
  1470.  #else /* B38400 not defined... */
  1471.  #ifdef EXTB
  1472. @@ -4611,8 +4606,7 @@
  1473.        case 11520: s = _B115200; break;
  1474.  #endif /* _B115200 */
  1475.  #else
  1476. -#ifdef __linux__
  1477. -#ifdef ASYNC_SPD_MASK
  1478. +#ifdef OLINUXHISPEED
  1479.  /*
  1480.    This bit from <carlo@sg.tn.tudelft.nl>:
  1481.    "Only note to make is maybe this: When the ASYNC_SPD_CUST flags are set then
  1482. @@ -4623,9 +4617,7 @@
  1483.  */
  1484.        case 5760: s = B38400; spd_flags = ASYNC_SPD_HI; break;
  1485.        case 11520: s = B38400; spd_flags = ASYNC_SPD_VHI; break;
  1486. -#endif /* ASYNC_SPD_MASK */
  1487.  #else
  1488. -#ifdef QNX
  1489.  #ifdef B57600
  1490.        case 5760: s = B57600; break;
  1491.  #endif /* B57600 */
  1492. @@ -4635,15 +4627,13 @@
  1493.  #ifdef B115200
  1494.        case 11520: s = B115200; break;
  1495.  #endif /* B115200 */
  1496. -#else
  1497. -#ifdef B57600
  1498. -      case 5760: s = B57600; break;
  1499. -#endif /* B57600 */
  1500. -#ifdef B115200
  1501. -      case 11520: s = B115200; break;
  1502. -#endif /* B115200 */
  1503. -#endif /* QNX */
  1504. -#endif /* __linux__ */
  1505. +#endif /* OLINUXHISPEED */
  1506. +#ifdef B230400
  1507. +      case 23040: s = B230400; break;
  1508. +#endif /* B230400 */
  1509. +#ifdef B460800
  1510. +      case 46080: s = B460800; break;
  1511. +#endif /* 460800 */           
  1512.  #endif /* HPUX */
  1513.        default:
  1514.      ok = 0;                /* Good speed not found, so not ok */
  1515. @@ -4672,8 +4662,7 @@
  1516.      debug(F101,"ttsspd tcgetattr","",x);
  1517.      if (x < 0)
  1518.        return(-1);
  1519. -#ifdef __linux__
  1520. -#ifdef ASYNC_SPD_MASK
  1521. +#ifdef OLINUXHISPEED
  1522.      debug(F101,"ttsspd spd_flags","",spd_flags);
  1523.      if (spd_flags && spd_flags != ASYNC_SPD_CUST) {
  1524.          if (ioctl(ttyfd, TIOCGSERIAL, &serinfo) < 0) {
  1525. @@ -4685,8 +4674,7 @@
  1526.          if (ioctl(ttyfd, TIOCSSERIAL, &serinfo) < 0)
  1527.            return(-1);
  1528.      }
  1529. -#endif /* ASYNC_SPD_MASK */
  1530. -#endif /* __linux__ */
  1531. +#endif /* OLINUXHISPEED */
  1532.      cfsetospeed(&ttcur,s);
  1533.      cfsetispeed(&ttcur,s2);
  1534.      cfsetospeed(&ttraw,s);
  1535. @@ -4783,12 +4771,10 @@
  1536.  #endif /* POSIX */
  1537.        s;
  1538.      long ss;
  1539. -#ifdef __linux__
  1540. -#ifdef ASYNC_SPD_MASK
  1541. +#ifdef OLINUXHISPEED
  1542.      unsigned int spd_flags = 0;
  1543.      struct serial_struct serinfo;
  1544. -#endif /* ASYNC_SPD_MASK */
  1545. -#endif /* __linux__ */
  1546. +#endif /* OLINUXHISPEED */
  1547.  
  1548.  #ifdef NETCONN
  1549.      if (netconn) return(-1);        /* -1 if network connection */
  1550. @@ -4801,13 +4787,9 @@
  1551.      else
  1552.        ss = ttylastspeed;
  1553.  #else
  1554. -#ifdef __linux__
  1555. -#ifdef ASYNC_SPD_MASK
  1556. -    debug(F100,"ttgspd Linux ASYNC_SPD_MASK defined","",0);
  1557. -#else
  1558. -    debug(F100,"ttgspd Linux ASYNC_SPD_MASK not defined","",0);
  1559. -#endif /* ASYNC_SPD_MASK */
  1560. -#endif /* __linux__ */
  1561. +#ifdef OLINUXHISPEED
  1562. +    debug(F100,"ttgspd Linux OLINUXHISPEED","",0);
  1563. +#endif /* OLINUXHISPEED */
  1564.  
  1565.      if (ttyfd < 0) {
  1566.  #ifdef BSD44ORPOSIX
  1567. @@ -4828,13 +4810,11 @@
  1568.      if (tcgetattr(ttyfd,&ttcur) < 0) return(-1);
  1569.      s = cfgetospeed(&ttcur);
  1570.      debug(F101,"ttgspd cfgetospeed 2 BSDORPOSIX","",s);
  1571. -#ifdef __linux__
  1572. -#ifdef ASYNC_SPD_MASK
  1573. +#ifdef OLINUXHISPEED
  1574.      if (ioctl(ttyfd,TIOCGSERIAL,&serinfo) > -1)
  1575.        spd_flags = serinfo.flags & ASYNC_SPD_MASK;
  1576.      debug(F101,"ttgspd spd_flags","",spd_flags);
  1577. -#endif /* ASYNC_SPD_MASK */
  1578. -#endif /* __linux__ */
  1579. +#endif /* OLINUXHISPEED */
  1580.  #else
  1581.  #ifdef ATTSV
  1582.      if (ioctl(ttyfd,TCGETA,&ttcur) < 0) return(-1);
  1583. @@ -4854,11 +4834,9 @@
  1584.  #endif /* BSD44ORPOSIX */
  1585.      }
  1586.      debug(F101,"ttgspd code","",s);
  1587. -#ifdef __linux__
  1588. -#ifdef ASYNC_SPD_MASK
  1589. +#ifdef OLINUXHISPEED
  1590.      debug(F101,"ttgspd spd_flags","",spd_flags);
  1591. -#endif /* ASYNC_SPD_MASK */
  1592. -#endif /* __linux__ */
  1593. +#endif /* OLINUXHISPEED */
  1594.      switch (s) {
  1595.  #ifdef B0
  1596.        case B0:    ss = 0L; break;
  1597. @@ -4934,14 +4912,12 @@
  1598.  #ifdef B38400
  1599.        case B38400:
  1600.          ss = 38400L;
  1601. -#ifdef __linux__
  1602. -#ifdef ASYNC_SPD_MASK
  1603. +#ifdef OLINUXHISPEED
  1604.          switch(spd_flags) {
  1605.            case ASYNC_SPD_HI:  ss =  57600L; break;
  1606.            case ASYNC_SPD_VHI: ss = 115200L; break;
  1607.      }
  1608. -#endif /* ASYNC_SPD_MASK */
  1609. -#endif /* __linux__ */
  1610. +#endif /* OLINUXHISPEED */
  1611.          break;
  1612.  #else
  1613.  #ifdef EXTB
  1614. @@ -4958,7 +4934,6 @@
  1615.        case _B115200: ss = 115200L; break;
  1616.  #endif /* _B115200 */
  1617.  #else
  1618. -#ifdef QNX
  1619.  #ifdef B57600
  1620.        case B57600: ss = 57600L; break;
  1621.  #endif /* B57600 */
  1622. @@ -4968,14 +4943,12 @@
  1623.  #ifdef B115200
  1624.        case B115200: ss = 115200L; break;
  1625.  #endif /* B115200 */
  1626. -#else
  1627. -#ifdef B57600
  1628. -      case B57600: ss = 57600L; break;
  1629. -#endif /* B57600 */
  1630. -#ifdef B115200
  1631. -      case B115200: ss = 115200L; break;
  1632. -#endif /* B115200 */
  1633. -#endif /* QNX */
  1634. +#ifdef B230400
  1635. +      case B230400: ss = 230400L; break;
  1636. +#endif /* B230400 */
  1637. +#ifdef B460800
  1638. +      case B460800: ss = 460800L; break;
  1639. +#endif /* B460800 */
  1640.  #endif /* HPUX */
  1641.  
  1642.        default:
  1643. ----------------------------------------------------------------
  1644. RCS file: RCS/ckuus3.c,v
  1645. retrieving revision 1.1
  1646. diff -u -r1.1 ckuus3.c
  1647. --- ckuus3.c    1996/12/07 17:12:54    1.1
  1648. +++ ckuus3.c    1996/12/07 18:30:44
  1649. @@ -346,6 +346,9 @@
  1650.  #ifdef BPS_38K
  1651.    "38400", 3840,  0,
  1652.  #endif /* BPS_38K */
  1653. +#ifdef BPS_460K
  1654. +  "460800", 46080,  0,
  1655. +#endif /* BPS_460K */
  1656.    "4800",   480,  0,
  1657.  #ifdef BPS_50
  1658.    "50",       5,  0,
  1659. ----------------------------------------------------------------
  1660. RCS file: RCS/ckuusx.c,v
  1661. retrieving revision 1.1
  1662. diff -u -r1.1 ckuusx.c
  1663. ------------------------------------------------------------------------
  1664. Date: Tue Feb 18 16:28:45 EST 1997
  1665. From: Jim Knoble <jmknoble@pobox.com>
  1666. Subject: linux-posix-hispeed+linux-alpha patch
  1667.  
  1668. Here's the patch that ought to be used to build ckermit for Linux/Alpha
  1669. systems *after* Ted Tso's POSIX-hispeed patch has been applied (his
  1670. patch breaks if patch #10 for Linux/Alpha is applied, and patch #10
  1671. breaks if Ted's patch is applied first).  Seems like the thing to do is
  1672. put Ted's patch in the PATCHES file, then this one right after it (or
  1673. even combine them ... it won't hurt Linux on Intel or SPARC platforms
  1674. to have this in there).
  1675.  
  1676. --- ckutio.c.orig    Wed Jan 29 00:10:16 1997
  1677. +++ ckutio.c    Wed Jan 29 00:12:17 1997
  1678. @@ -671,6 +671,9 @@
  1679.  #ifdef OLINUXHISPEED
  1680.  #include <linux/serial.h>
  1681.  #endif /* OLINUXHISPEED */
  1682. +#ifdef __alpha__ /* Linux on DEC Alpha */
  1683. +#include <asm/termios.h>
  1684. +#endif /* __alpha__ */
  1685.  #else
  1686.  #ifdef AIXRS                /* IBM AIX */
  1687.  #include <sys/time.h>
  1688.  
  1689. ====================
  1690. X-Patch-Number: 0018
  1691. Date: Thu Feb 20 12:25:11 1997
  1692. From: Frank da Cruz <fdc@columbia.edu>
  1693. Subject: SET WILDCARD-EXPANSION SHELL dumps core
  1694.  
  1695. In UNIX, SET WILDCARD-EXPANSION SHELL causes C-Kermit to dump core whenever
  1696. a command was given that had to parse the name of an existing file or file
  1697. group.  Diagnosis: storage wasn't being allocated for the file list.  Here's
  1698. the patch:
  1699.  
  1700. *** /w/pub/ftp/kermit/f/ckufio.c    Sun Nov 24 19:20:49 1996
  1701. --- ./ckufio.c    Thu Feb 20 12:22:58 1997
  1702. ***************
  1703. *** 2259,2265 ****
  1704.   #endif /* DTILDE */
  1705.   #ifndef NOPUSH
  1706.       if (!nopush && wildxpand)        /* Who is expanding wildcards? */
  1707. !       fcount = shxpand(fn,mtchs,MAXWLD); /* Shell */
  1708.       else
  1709.   #endif /* NOPUSH */
  1710.         fcount = (mtchs == NULL &&    /* Kermit */
  1711. --- 2259,2268 ----
  1712.   #endif /* DTILDE */
  1713.   #ifndef NOPUSH
  1714.       if (!nopush && wildxpand)        /* Who is expanding wildcards? */
  1715. !       fcount = (mtchs == NULL &&     /* Shell */
  1716. !         (mtchs = (char **)malloc(MAXWLD * sizeof(*mtchs))) == NULL)
  1717. !     ? 0
  1718. !       :  shxpand(fn,mtchs,MAXWLD);
  1719.       else
  1720.   #endif /* NOPUSH */
  1721.         fcount = (mtchs == NULL &&    /* Kermit */
  1722.  
  1723. ====================
  1724. X-Patch-Number: 0019
  1725. Date: Sat Mar  8 13:02:07 1997
  1726. From: Frank da Cruz <fdc@columbia.edu>
  1727. Subject: Hayes V.34 modem init string problem
  1728.  
  1729. A user writes:
  1730. > I replaced the Accura 144 with and Accura 288 on our 3B2.  I used the same 
  1731. > kermit script to configure the new modem as I had with the old one.  But I 
  1732. > can no longer use the dial command.  I get the message "Error initializing 
  1733. > modem."  What signal is kermit getting from the modem to cause this?
  1734. > 
  1735. It seems that Hayes removed an S register (S82) from the new model.  
  1736. Workaround:  In your .mykermrc file, or wherever else you are setting up
  1737. your modem, right after it says:
  1738.  
  1739.   set modem type hayes-high-speed
  1740.  
  1741. Add:
  1742.  
  1743.   set modem command init-string ATQ0X4N1Y0&S0&C1&D2S37=0\13
  1744.  
  1745. Patch:
  1746.  
  1747. *** /w/pub/ftp/kermit/f/ckudia.c    Sun Nov 24 19:20:49 1996
  1748. --- ./ckudia.c    Sat Mar  8 13:04:15 1997
  1749. ***************
  1750. *** 896,904 ****
  1751.       ",",                /* pause_chars */
  1752.       2,                    /* pause_time */
  1753.   #ifdef OS2
  1754. !     "ATQ0X4N1Y0&S0&C1&D2S37=0S82=128\015", /* wake_str */
  1755.   #else
  1756. !     "ATQ0X4N1Y0S37=0S82=128\015",    /* wake_str */
  1757.   #endif /* OS2 */
  1758.       0,                    /* wake_rate */
  1759.       "OK\015",                /* wake_prompt */
  1760. --- 896,904 ----
  1761.       ",",                /* pause_chars */
  1762.       2,                    /* pause_time */
  1763.   #ifdef OS2
  1764. !     "ATQ0X4N1Y0&S0&C1&D2S37=0\015",    /* wake_str */
  1765.   #else
  1766. !     "ATQ0X4N1Y0S37=0\015",        /* wake_str */
  1767.   #endif /* OS2 */
  1768.       0,                    /* wake_rate */
  1769.       "OK\015",                /* wake_prompt */
  1770.  
  1771. ====================
  1772. X-Patch-Number: 0020
  1773. Date: Sun Mar 23 19:25:18 1997
  1774. From: Frank da Cruz <fdc@columbia.edu>
  1775. Subject: READ command does not fail if file not open
  1776.  
  1777. IF FAILURE does not work after a READ command that is executed before
  1778. the READ file is opened.  Here's the patch:
  1779.  
  1780. *** /w/pub/ftp/kermit/f/ckuus6.c    Sun Nov 24 19:20:51 1996
  1781. --- ./ckuus6.c    Sun Mar 23 19:23:24 1997
  1782. ***************
  1783. *** 338,348 ****
  1784.         return(y);
  1785.       if (chkfn(ZRFILE) < 1) {    /* File open? */
  1786.           printf("?Read file not open\n");
  1787. !         return(0);
  1788.       }
  1789.       if (!(s = (char *)readbuf)) {        /* Where to read into. */
  1790.           printf("?Oops, no READ buffer!\n");
  1791. !         return(0);
  1792.       }
  1793.   #ifdef BINREAD
  1794.       if (cx == XXRDBL) {        /* READBLOCK */
  1795. --- 338,348 ----
  1796.         return(y);
  1797.       if (chkfn(ZRFILE) < 1) {    /* File open? */
  1798.           printf("?Read file not open\n");
  1799. !         return(success = 0);
  1800.       }
  1801.       if (!(s = (char *)readbuf)) {        /* Where to read into. */
  1802.           printf("?Oops, no READ buffer!\n");
  1803. !         return(success = 0);
  1804.       }
  1805.   #ifdef BINREAD
  1806.       if (cx == XXRDBL) {        /* READBLOCK */
  1807.  
  1808. ====================
  1809. X-Patch-Number: 0021
  1810. Date: Sun Mar 23 19:25:18 1997
  1811. From: Frank da Cruz <fdc@columbia.edu>
  1812. Subject: Problems with long function arguments 
  1813.  
  1814. The 1023-byte limit on function arguments is overly restrictive on platforms
  1815. where memory is not tight.  Patch:
  1816.  
  1817. *** /w/pub/ftp/kermit/f/ckuusr.h    Sun Nov 24 19:20:52 1996
  1818. --- ckuusr.h    Sun Mar 23 19:48:59 1997
  1819. ***************
  1820. *** 19,24 ****
  1821. --- 19,33 ----
  1822.    
  1823.   /* Sizes of things */
  1824.   
  1825. + #ifdef BIGBUFOK
  1826. + #define FNVALL 10238            /* Function return value */
  1827. + #define MAXARGLEN 8191        /* Function arg length after eval */
  1828. + #else
  1829. + #define FNVALL 1022
  1830. + #define MAXARGLEN 1023
  1831. + #endif /* BIGBUFOK */
  1832. + 
  1833.   #define FSPECL 300            /* Max length for MSEND/GET string */
  1834.   #define VNAML 64            /* Max length for variable name */
  1835.   #define ARRAYREFLEN 128        /* Max length for array reference */
  1836.  
  1837. *** /w/pub/ftp/kermit/f/ckuus4.c    Sun Nov 24 19:20:50 1996
  1838. --- ckuus4.c    Sun Mar 23 19:46:01 1997
  1839. ***************
  1840. *** 3138,3144 ****
  1841.   }
  1842.   #endif /* NOFRILLS */
  1843.   
  1844. - #define FNVALL 1024
  1845.   char fnval[FNVALL+2];            /* Return value */
  1846.   
  1847.   static char ipabuf[16] = { NUL };    /* IP address buffer */
  1848.  
  1849. ====================
  1850. X-Patch-Number: 0022
  1851. Date: Sun Mar 23 19:25:18 1997
  1852. From: Frank da Cruz <fdc@columbia.edu>
  1853. Subject: Certain \function()s can misbehave
  1854.  
  1855. Certain \f...() functions return incorrect values, or even cause crashes or
  1856. core dumps, when arguments are missing (especially the first one), or when
  1857. they are too long.  Also:
  1858.  
  1859.  . The \fverify() function did not work right when given a starting position
  1860.    as the third argument. 
  1861.  . \fbreak() did not pay attention to the SET CASE setting
  1862.  . fverify() did not pay attention to the SET CASE setting
  1863.  . fverify() would crash if given a huge number as the 3rd argument
  1864.  . \flpad() and \frpad() erroneously truncated their arguments if they
  1865.    were longer than the padding length
  1866.  . \ftrim() and \fltrim() erroneously returned "0" if given an empty argument
  1867.  . \ttrim() and \fltrim() ignored SET CASE
  1868.  
  1869. Also, some of the string functions were inconsistent as to whether they
  1870. allowed a starting position -- e.g. \fverify() did, but \fbreak() didn't.
  1871. So an optional starting position was added as the 3rd argument to \fbreak()
  1872. and \fspan().  These are not documented in manual.
  1873.  
  1874. There were numerous problems in the code.  The fixes involve a complete
  1875. replacement of the fneval() function in ckuus4.c.  Note: this patch depends
  1876. on Patch 0021.
  1877.  
  1878. static char *                /* Evaluate builtin functions */
  1879. fneval(fn,argp,argn,xp) char *fn, *argp[]; int argn; char * xp; {
  1880.     int i, j, k, len1, len2, len3, n, x, y;
  1881.     char *bp[FNARGS + 1];        /* Pointers to malloc'd strings */
  1882.     char c;
  1883.     char *p, *s;
  1884.     char *val1, *val2;            /* Pointers to numeric string values */
  1885. /*
  1886.   IMPORTANT: Note that argn is not an accurate count of the number of
  1887.   arguments.  We can't really tell if an argument is null until after we
  1888.   execute the code below.  So argn is really the maximum number of arguments
  1889.   we might have.  In particular note that argn is always at least 1, even
  1890.   if the function is called with empty parentheses (but don't count on it).
  1891. */
  1892.     if (!fn) fn = "";            /* Protect against null pointers */
  1893.     debug(F111,"fneval",fn,argn);
  1894.     debug(F110,"fneval",argp[0],0);
  1895.     if (argn > FNARGS) argn = FNARGS;    /* And too many arguments */
  1896.  
  1897.     y = lookup(fnctab,fn,nfuncs,&x);
  1898.     if (y < 0)                /* bad function name */
  1899.       return("");            /* so value is null */
  1900.  
  1901. #ifdef DEBUG
  1902.     if (deblog) {
  1903.     int j;
  1904.     for (j = 0; j < argn; j++)
  1905.       debug(F111,"fneval function arg",argp[j],j);
  1906.     }
  1907. #endif /* DEBUG */
  1908. /*
  1909.   \fliteral() and \fcontents() are special functions that do not evaluate
  1910.   their arguments, and are treated specially here.  After these come the
  1911.   functions whose arguments are evaluated in the normal way.
  1912. */
  1913.     if (y == FN_LIT) {            /* literal(arg1) */
  1914.     debug(F110,"flit",xp,0);
  1915.     return(xp ? xp : "");        /* return a pointer to arg itself */
  1916.     }
  1917.     if (y == FN_CON) {            /* Contents of variable, unexpanded. */
  1918.     char c;
  1919.     if (!(p = argp[0]) || !*p) return("");
  1920.     p = brstrip(p);
  1921.     if (*p == CMDQ) p++;
  1922.     if ((c = *p) == '%') {        /* Scalar variable. */
  1923.         c = *++p;            /* Get ID character. */
  1924.         p = "";            /* Assume definition is empty */
  1925.         if (!c) return(p);        /* Double paranoia */
  1926.         if (c >= '0' && c <= '9') { /* Digit for macro arg */
  1927.         if (maclvl < 0)        /* Digit variables are global */
  1928.           p = g_var[c];        /* if no macro is active */
  1929.         else            /* otherwise */
  1930.           p = m_arg[maclvl][c - '0']; /* they're on the stack */
  1931.         } else {
  1932.         if (isupper(c)) c -= ('a'-'A');
  1933.         p = g_var[c];        /* Letter for global variable */
  1934.         }
  1935.         return(p ? p : "");
  1936.     }
  1937.     if (c == '&') {            /* Array reference. */
  1938.         int vbi, d;
  1939.         if (arraynam(p,&vbi,&d) < 0) /* Get name and subscript */
  1940.           return("");
  1941.         if (chkarray(vbi,d) > 0) {    /* Array is declared? */
  1942.         vbi -= ARRAYBASE;    /* Convert name to index */
  1943.         if (a_dim[vbi] >= d) {    /* If subscript in range */
  1944.             char **ap;
  1945.             ap = a_ptr[vbi];    /* get data pointer */
  1946.             if (ap) {        /* and if there is one */
  1947.             return(ap[d]);    /* return what it points to */
  1948.             }
  1949.         }
  1950.         } else return("");
  1951.     }
  1952.     }
  1953.  
  1954.     for (i = 0; i < FNARGS; i++)    /* Initialize all argument pointers */
  1955.       bp[i] = NULL;
  1956.  
  1957.     for (i = 0; i < argn; i++) {    /* Loop to expand each argument */
  1958.     n = MAXARGLEN;            /* Allow plenty of space */
  1959.     bp[i] = s = malloc(n+1);    /* Allocate space for this argument */
  1960.     if (bp[i] == NULL) {        /* handle failure to get space */
  1961.         for (k = 0; k < i; k++) if (bp[k]) free(bp[k]);
  1962.         debug(F101,"fneval malloc failure, arg","",i);
  1963.         return("");
  1964.     }
  1965.     p = argp[i] ? argp[i] : "";    /* Point to this argument */
  1966.  
  1967. /*
  1968.   Trim leading and trailing spaces from the original argument, before
  1969.   evaluation.  This code new to edit 184.
  1970. */
  1971.     {
  1972.         int x, j;
  1973.         x = strlen(p);
  1974.         if (*p == '{' && *(p+x-1) == '}') {
  1975.         p[x-1] = NUL;
  1976.         p++;
  1977.         x -= 2;
  1978.         } else {
  1979.         j = x - 1;        /* Trim trailing whitespace */
  1980.         while (j > 0 && (*(p + j) == SP || *(p + j) == HT))
  1981.           *(p + j--) = NUL;
  1982.         while (*p == SP || *p == HT) /* Strip leading whitespace */
  1983.           p++;
  1984.         }
  1985.     }
  1986.  
  1987. /* Now evaluate the argument */
  1988.  
  1989.     if (zzstring(p,&s,&n) < 0) {    /* Expand arg into new space */
  1990.         debug(F101,"fneval xxstring fails, arg","",i);
  1991.         for (k = 0; k <= i; k++)    /* Free up previous space on error */
  1992.           if (bp[k]) free(bp[k]);
  1993.         return("");            /* and return null string. */
  1994.     }
  1995.     debug(F111,"fneval arg",bp[i],i);
  1996.     }
  1997.  
  1998. #ifdef DEBUG
  1999.     if (deblog) {
  2000.     int j;
  2001.     for (j = 0; j < argn; j++) {
  2002.         debug(F111,"fneval arg post eval",argp[j],j);
  2003.         debug(F111,"fneval evaluated arg",bp[j],j);
  2004.     }
  2005.     }
  2006. #endif /* DEBUG */
  2007. /*
  2008.   At this point bp[0..argn-1] are not NULL and all must be freed
  2009.   before returning.
  2010. */
  2011.     switch (y) {            /* Do function on expanded args */
  2012.  
  2013.       case FN_DEF:            /* \fdefinition(arg1) */
  2014.     if (!bp[0]) return("");
  2015.     k = mlook(mactab,bp[0],nmac);
  2016.     p = (k > -1) ? mactab[k].mval : "";
  2017.     for (k = 0; k < argn; k++) if (bp[k]) free(bp[k]);
  2018.     return(p ? p : "");
  2019.  
  2020.       case FN_EVA:            /* \fevaluate(arg1) */
  2021.     p = "";
  2022.     if (argn > 0)
  2023.       p = *(bp[0]) ? evala(bp[0]) : "";
  2024.     for (k = 0; k < argn; k++) if (bp[k]) free(bp[k]);
  2025.     return(p ? p : "");
  2026.  
  2027.       case FN_EXE:            /* \fexecute(arg1) */
  2028.     if (argn < 1) return("");
  2029.     j = (int)strlen(s = bp[0]);    /* Length of macro invocation */
  2030.     p = "";                /* Initialize return value to null */
  2031.     if (j) {            /* If there is a macro to execute */
  2032.         while (*s == SP) s++,j--;    /* strip leading spaces */
  2033.         p = s;            /* remember beginning of macro name */
  2034.         for (i = 0; i < j; i++) {    /* find end of macro name */
  2035.         if (*s == SP)
  2036.           break;
  2037.         s++;
  2038.         }
  2039.         if (*s == SP)     {    /* if there was a space after */
  2040.         *s++ = NUL;        /* terminate the macro name */
  2041.         while (*s == SP) s++;    /* skip past any extra spaces */
  2042.         } else s = "";        /* maybe there are no arguments */
  2043.         if (p && *p)
  2044.           k = mlook(mactab,p,nmac);    /* Look up the macro name */
  2045.         else k = -1;
  2046. /*
  2047.   This is just a WEE bit dangerous because we are copying up to 9 arguments
  2048.   into the space reserved for one.  It won't overrun the buffer, but if there
  2049.   are lots of long arguments we might lose some.  The other problem is that if
  2050.   the macro has more than 3 arguments, the 4th through last are all
  2051.   concatenated onto the third.  (The workaround is to use spaces rather than
  2052.   commas to separate them.)  Leaving it like this to avoid having to allocate
  2053.   tons more buffers.
  2054. */
  2055.         if (argn > 1) {        /* Commas used instead of spaces */
  2056.         int i;
  2057.         char *p = bp[0];    /* Reuse this space */
  2058.         *p = NUL;        /* Make into dodo() arg list */
  2059.         for (i = 1; i < argn; i++) {
  2060.             strncat(p,bp[i],MAXARGLEN);
  2061.             strncat(p," ",MAXARGLEN);
  2062.         }            
  2063.         s = bp[0];        /* Point to new list */
  2064.         }
  2065.         p = "";            /* Initialize return value */
  2066.         if (k >= 0) {        /* If macro found in table */
  2067.         /* Go set it up (like DO cmd) */
  2068.         if ((j = dodo(k,s,cmdstk[cmdlvl].ccflgs)) > 0) {
  2069.             if (cmpush() > -1) { /* Push command parser state */
  2070.             extern int ifc;
  2071.             int ifcsav = ifc; /* Push IF condition on stack */
  2072.             k = parser(1);    /* Call parser to execute the macro */
  2073.             cmpop();    /* Pop command parser */
  2074.             ifc = ifcsav;    /* Restore IF condition */
  2075.             if (k == 0) {    /* No errors, ignore action cmds. */
  2076.                 p = mrval[maclvl+1]; /* If OK, set return value. */
  2077.                 if (p == NULL) p = "";
  2078.             }
  2079.             } else {        /* Can't push any more */
  2080.             debug(F100,"fexec pushed too deep","",0);
  2081.                         printf("\n?\\fexec() too deeply nested\n");
  2082.             while (cmpop() > -1) ;
  2083.             p = "";
  2084.             }
  2085.         }
  2086.         }
  2087.     }
  2088.     for (k = 0; k < argn; k++) if (bp[k]) free(bp[k]);
  2089.     return(p ? p : "");
  2090.  
  2091.       case FN_FC:            /* \ffiles() - File count. */
  2092.     if (argn < 1) return("0");
  2093.     if (*(bp[0])) {
  2094.         k = zxpand(bp[0]);
  2095.         sprintf(fnval,"%d",k);
  2096.         p = fnval;
  2097.     } else p = "0";
  2098.     for (k = 0; k < argn; k++) if (bp[k]) free(bp[k]);
  2099.     return(p);
  2100.  
  2101.       case FN_FIL:            /* \fnextfile() - Next file in list. */
  2102.     p = fnval;            /* (no args) */
  2103.     *p = NUL;
  2104.     znext(p);
  2105.     for (k = 0; k < argn; k++) if (bp[k]) free(bp[k]);
  2106.     return(p ? p : "");
  2107.  
  2108.       case FN_IND:            /* \findex(arg1,arg2,arg3) */
  2109.       case FN_RIX:            /* \frindex(arg1,arg2,arg3) */
  2110.     p = "0";
  2111.     if (argn > 1) {            /* Only works if we have 2 or 3 args */
  2112.         int start;
  2113.         len1 = (int)strlen(bp[0]);    /* length of string to look for */
  2114.         len2 = (int)strlen(s = bp[1]); /* length of string to look in */
  2115.         if (len1 < 1 || len2 < 1)    /* Watch out for empty strings */
  2116.           goto indexfin;
  2117.         j = len2 - len1;        /* length difference */
  2118.         start = (y == FN_IND) ? 0 : j; /* Starting position */
  2119.         if (argn > 2) {
  2120.         val1 = *(bp[2]) ? evala(bp[2]) : "";
  2121.         if (chknum(val1)) {
  2122.             int t;
  2123.             t = atoi(val1) - 1;
  2124.             if (t < 0) t = 0;
  2125.             start = (y == FN_IND) ? t : start - t - 1;
  2126.             if (start < 0) start = 0;
  2127.         }
  2128.         }
  2129.         start = ckindex(bp[0],bp[1],start,(y==FN_IND)?0:1,inpcas[cmdlvl]);
  2130.         sprintf(fnval,"%d",start);
  2131.         p = fnval;
  2132.     }
  2133.       indexfin:
  2134.     for (k = 0; k < argn; k++) if (bp[k]) free(bp[k]);
  2135.     return(p);
  2136.  
  2137.       case FN_RPL:            /* \freplace(s1,s2,s3) */
  2138.       /*
  2139.     s = bp[0] = source string
  2140.         bp[1] = match string
  2141.         bp[2] = replacement string
  2142.     p = fnval = destination (result) string
  2143.       */
  2144.     if (argn < 1) return("");
  2145.     p = fnval;
  2146.     if (argn < 2) {            /* Only works if we have 2 or 3 args */
  2147.         strcpy(p,bp[0]);
  2148.     } else  {            
  2149.         len1 = (int)strlen(bp[0]);    /* length of string to look in */
  2150.         len2 = (int)strlen(bp[1]);    /* length of string to look for */
  2151.         len3 = (argn < 3) ? 0 : (int)strlen(bp[2]); /* Len of replacemnt */
  2152.         j = len1 - len2 + 1;
  2153.         if (j < 1 || len1 == 0 || len2 == 0) { /* Args out of whack */
  2154.         strcpy(p,bp[0]);    /* so just return original string */
  2155.         } else {
  2156.         s = bp[0];        /* Point to beginning of string */
  2157.         while (j--) {        /* For each character */
  2158.             if (inpcas[cmdlvl] ?
  2159.             !strncmp(bp[1],s,len2) :
  2160.             !xxstrcmp(bp[1],s,len2) ) { /* To be replaced? */
  2161.             if (len3) {            /* Yes, */
  2162.                 strncpy(p,bp[2],len3);  /* replace it */
  2163.                 p += len3;
  2164.             }
  2165.             s += len2;                /* and skip past it. */
  2166.             } else {        /* No, */
  2167.             *p++ = *s++;    /* just copy this character */
  2168.             }
  2169.         }
  2170.         *p = NUL;
  2171.         while (*p++ = *s++);
  2172.         }
  2173.     }
  2174.     for (k = 0; k < argn; k++) if (bp[k]) free(bp[k]);
  2175.     return(p = fnval);
  2176.  
  2177.       case FN_CHR:            /* \fcharacter(arg1) */
  2178.     if (argn < 1) return("");
  2179.     val1 = *(bp[0]) ? evala(bp[0]) : "";
  2180.     if (chknum(val1)) {        /* Must be numeric */
  2181.         i = atoi(val1);
  2182.         if (i >= 0 && i < 256) {    /* Must be an 8-bit value */
  2183.         p = fnval;
  2184.         *p++ = (char) i;
  2185.         *p = NUL;
  2186.         p = fnval;
  2187.         } else p = "";        /* Otherwise return empty string */
  2188.     } else p = "";            /* Otherwise return empty string */
  2189.     for (k = 0; k < argn; k++) if (bp[k]) free(bp[k]);
  2190.     return(p);
  2191.  
  2192.       case FN_COD:            /* \fcode(char) */
  2193.     if (argn < 1) return("");
  2194.     if ((int)strlen(bp[0]) > 0) {
  2195.         p = fnval;
  2196.         i = *bp[0];
  2197.         sprintf(p,"%d",(i & 0xff));
  2198.     } else p = "";
  2199.     for (k = 0; k < argn; k++) if (bp[k]) free(bp[k]);
  2200.     return(p);
  2201.  
  2202.       case FN_LEN:            /* \flength(arg1) */
  2203.     if (argn > 0) {
  2204.         p = fnval;
  2205.         sprintf(p,"%d",(int)strlen(bp[0]));
  2206.     } else p = "0";
  2207.     for (k = 0; k < argn; k++) if (bp[k]) free(bp[k]);
  2208.     return(p);
  2209.  
  2210.       case FN_LOW:            /* \flower(arg1) */
  2211.     if (argn < 1) return("");
  2212.     s = bp[0];
  2213.     p = fnval;
  2214.  
  2215.     while (*s) {
  2216.         if (isupper(*s))
  2217.           *p = (char) tolower(*s);
  2218.         else
  2219.           *p = *s;
  2220.         p++; s++;
  2221.     }
  2222.     *p = NUL;
  2223.     for (k = 0; k < argn; k++) if (bp[k]) free(bp[k]);
  2224.     p = fnval;
  2225.     return(p);
  2226.  
  2227.       case FN_MAX:            /* \fmax(arg1,arg2) */
  2228.       case FN_MIN:            /* \fmin(arg1,arg2) */
  2229.       case FN_MOD:            /* \fmod(arg1,arg2) */
  2230.     if (argn < 2) return("");
  2231.     val1 = *(bp[0]) ? evala(bp[0]) : "";
  2232.     free(bp[0]);            /* Copy this because evala() returns */
  2233.     bp[0] = malloc((int)strlen(val1)+1); /* pointer to same */
  2234.     strcpy(bp[0],val1);
  2235.     val1 = bp[0];            /* buffer next time. */
  2236.     val2 = *(bp[1]) ? evala(bp[1]) : "";
  2237.     if (chknum(val1) && chknum(val2)) {
  2238.         i = atoi(val1);
  2239.         j = atoi(val2);
  2240.         switch (y) {
  2241.           case FN_MAX:
  2242.         if (j < i) j = i;
  2243.         break;
  2244.           case FN_MIN:
  2245.         if (j > i) j = i;
  2246.         break;
  2247.           case FN_MOD:
  2248.         if (j == 0) { p = ""; goto modfin; }
  2249.         j = i % j;
  2250.         break;
  2251.         }
  2252.         p = fnval;
  2253.         sprintf(p,"%d",j);
  2254.     } else p = "";
  2255.       modfin:
  2256.     for (k = 0; k < argn; k++) if (bp[k]) free(bp[k]);
  2257.     return(p);
  2258.  
  2259.       case FN_SUB:            /* \fsubstr(arg1,arg2,arg3) */
  2260.       case FN_RIG:            /* \fright(arg1,arg2) */
  2261.     if (argn < 1) return("");
  2262.     val1 = "";
  2263.     if (argn > 1)
  2264.       if (*(bp[1]))
  2265.         val1 =  evala(bp[1]);
  2266.     free(bp[1]);            /* Have to copy this */
  2267.     bp[1] = malloc((int)strlen(val1)+1);
  2268.     strcpy(bp[1],val1);
  2269.     val1 = bp[1];
  2270.     val2 = "";
  2271.     if (argn > 2)
  2272.       if (*(bp[2]))
  2273.         val2 = evala(bp[2]);
  2274.     if (
  2275.         ((argn > 1) && (int)strlen(val1) && !rdigits(val1)) ||
  2276.         ((y == FN_SUB) &&
  2277.           ((argn > 2) && (int)strlen(val2) && !rdigits(val2)))
  2278.         ) {
  2279.         p = "";            /* if either, return null */
  2280.     } else {
  2281.         int lx;
  2282.         p = fnval;            /* pointer to result */
  2283.         lx = strlen(bp[0]);        /* length of arg1 */
  2284.         if (y == FN_SUB) {        /* substring */
  2285.         k = (argn > 2) ? atoi(val2) : MAXARGLEN; /* length */
  2286.         j = (argn > 1) ? atoi(val1) : 1; /* start pos for substr */
  2287.         } else {                 /* right */
  2288.         k = (argn > 1) ? atoi(val1) : lx; /* length */
  2289.         j = lx - k + 1;             /* start pos for right */
  2290.         if (j < 1) j = 1;
  2291.         }
  2292.         if (k > 0 && j <= lx) {          /* if start pos in range */
  2293.         s = bp[0]+j-1;             /* point to source string */
  2294.         for (i = 0; (i < k) && (*p++ = *s++); i++) ;  /* copy */
  2295.         }
  2296.         *p = NUL;            /* terminate the result */
  2297.         p = fnval;            /* and point to it. */
  2298.     }
  2299.     for (k = 0; k < argn; k++) if (bp[k]) free(bp[k]); /* Free temp mem */
  2300.     return(p);
  2301.  
  2302.       case FN_UPP:            /* \fupper(arg1) */
  2303.     s = bp[0] ? bp[0] : "";
  2304.     p = fnval;
  2305.     while (*s) {
  2306.         if (islower(*s))
  2307.           *p = (char) toupper(*s);
  2308.         else
  2309.           *p = *s;
  2310.         p++; s++;
  2311.     }
  2312.     *p = NUL;
  2313.     for (k = 0; k < argn; k++) if (bp[k]) free(bp[k]);
  2314.     p = fnval;
  2315.     return(p);
  2316.  
  2317.       case FN_REP:            /* \frepeat(text,number) */
  2318.     if (argn < 1) return("");
  2319.     p = fnval;            /* Return value */
  2320.     *p = NUL;
  2321.     val1 = "1";
  2322.     if (argn > 1)
  2323.       if (*(bp[1]))
  2324.         val1 = evala(bp[1]);
  2325.     if (chknum(val1)) {        /* Repeat count */
  2326.         n = atoi(val1);
  2327.         if (n > 0) {        /* Make n copies */
  2328.         p = fnval;
  2329.         *p = '\0';
  2330.         k = (int)strlen(bp[0]);    /* Make sure string has some length */
  2331.         if (k > 0) {
  2332.             for (i = 0; i < n; i++) {
  2333.             s = bp[0];
  2334.             for (j = 0; j < k; j++) {
  2335.                 if ((p - fnval) >= FNVALL) { /* Protect against */
  2336.                 p = "";                 /* core dumps... */
  2337.                 break;
  2338.                 } else *p++ = *s++;
  2339.             }
  2340.             }
  2341.             *p = NUL;
  2342.         }
  2343.         }
  2344.     }
  2345.     for (k = 0; k < argn; k++) if (bp[k]) free(bp[k]);
  2346.     p = fnval;
  2347.     return(p);
  2348.  
  2349. #ifndef NOFRILLS
  2350.       case FN_REV:            /* \freverse() */
  2351.     if (argn < 1) return("");
  2352.     p = fnval;
  2353.     yystring(bp[0],&p);
  2354.     for (k = 0; k < argn; k++) if (bp[k]) free(bp[k]);
  2355.     return(p);
  2356. #endif /* NOFRILLS */
  2357.  
  2358.       case FN_RPA:            /* \frpad() and \flpad() */
  2359.       case FN_LPA:
  2360.     if (argn < 1) return("");
  2361.     *fnval = NUL;            /* Return value */
  2362.     val1 = "";
  2363.     if (argn > 1)
  2364.       if (*(bp[1]))
  2365.         val1 = evala(bp[1]);
  2366.     if (argn == 1 || !*val1) {    /* If a number wasn't given */
  2367.         p = fnval;            /* just return the original string */
  2368.         strncpy(p,bp[0],FNVALL);
  2369.     } else if (chknum(val1)) {    /* Repeat count */
  2370.         char pc;
  2371.         n = atoi(val1);
  2372.         if (n >= 0) {
  2373.         p = fnval;
  2374.         k = (int)strlen(bp[0]);    /* Length of string to be padded */
  2375.         if (k >= n) {        /* It's already long enough */
  2376.             strncpy(p,bp[0],FNVALL);
  2377.         } else {
  2378.             if (n + k <= FNVALL) {
  2379.             pc = (char) ((argn < 3) ? SP : *bp[2]);
  2380.             if (!pc) pc = SP;
  2381.             if (y == FN_RPA) { /* RPAD */
  2382.                 strncpy(p,bp[0],k);
  2383.                 p += k;
  2384.                 for (i = k; i < n; i++)
  2385.                   *p++ = pc;
  2386.             } else {    /* LPAD */
  2387.                 n -= k;
  2388.                 for (i = 0; i < n; i++)
  2389.                   *p++ = pc;
  2390.                 strncpy(p,bp[0],k);
  2391.                 p += k;
  2392.             }
  2393.             }
  2394.             *p = NUL;
  2395.         }
  2396.         }
  2397.     }
  2398.     for (k = 0; k < argn; k++) if (bp[k]) free(bp[k]);
  2399.     p = fnval;
  2400.     return(p);
  2401.  
  2402. #ifdef ZFCDAT
  2403.       case FN_FD:            /* \fdate(filename) */
  2404.     p = fnval;
  2405.     *p = NUL;
  2406.     if (argn > 0)
  2407.       sprintf(fnval,"%s",*(bp[0]) ? zfcdat(bp[0]) : "");
  2408.     for (k = 0; k < argn; k++) if (bp[k]) free(bp[k]);
  2409.     return(p);
  2410. #endif /* ZFCDAT */
  2411.  
  2412.       case FN_FS:            /* \fsize(filename) */
  2413.     p = fnval;
  2414.     *p = NUL;
  2415.     if (argn > 0)
  2416.       sprintf(fnval,"%ld",*(bp[0]) ? zchki(bp[0]) : 0L);
  2417.     for (k = 0; k < argn; k++) if (bp[k]) free(bp[k]);
  2418.     return(p);
  2419.  
  2420.       case FN_VER:            /* \fverify() */
  2421.     p = "0";
  2422.     if (argn > 1) {            /* Only works if we have 2 or 3 args */
  2423.         int start;
  2424.         char *s2, ch1, ch2;
  2425.         start = 0;
  2426.         if (argn > 2) {        /* Starting position specified */
  2427.         val1 = *(bp[2]) ? evala(bp[2]) : "";
  2428.         if (chknum(val1)) {
  2429.             start = atoi(val1) /* - 1 */;
  2430.             if (start < 0) start = 0;
  2431.             if (start > (int)strlen(bp[1]))
  2432.               goto verfin;
  2433.         }
  2434.         }
  2435.         i = start;
  2436.         p = "0";
  2437.         for (s = bp[1] + start; *s; s++,i++) {
  2438.         ch1 = *s;
  2439.         if (!inpcas[cmdlvl]) if (islower(ch1)) ch1 = toupper(ch1);
  2440.         j = 0;
  2441.         for (s2 = bp[0]; *s2; s2++) {
  2442.             ch2 = *s2;
  2443.             if (!inpcas[cmdlvl]) if (islower(ch2)) ch2 = toupper(ch2);
  2444.             if (ch1 == ch2) {
  2445.             j = 1;
  2446.             break;
  2447.             }
  2448.         }
  2449.         if (j == 0) {
  2450.             sprintf(fnval,"%d",i+1);
  2451.             p = fnval;
  2452.             break;
  2453.         }
  2454.         }
  2455.     }
  2456.       verfin:
  2457.     for (k = 0; k < argn; k++) if (bp[k]) free(bp[k]);
  2458.     return(p);
  2459.  
  2460.       case FN_IPA:            /* Find and return IP address */
  2461.     if (argn > 0) {            /* in argument string. */
  2462.         int start;
  2463.         char *s2;
  2464.         start = 0;
  2465.         if (argn > 1) {        /* Starting position specified */
  2466.         if (chknum(bp[1])) {
  2467.             start = atoi(bp[1]) - 1;
  2468.             if (start < 0) start = 0;
  2469.         }
  2470.         }
  2471.         p = getip(bp[0]+start);
  2472.     } else p = "";
  2473.     for (k = 0; k < argn; k++) if (bp[k]) free(bp[k]);
  2474.     return(p);
  2475.  
  2476.       case FN_HEX:            /* \fhexify(arg1) */
  2477.     if (argn < 1) return("");
  2478.     p = "";
  2479.     if ((int)strlen(bp[0]) < (FNVALL / 2)) {
  2480.         s = bp[0];
  2481.         p = fnval;
  2482.         while (*s) {
  2483.         x = (*s >> 4) & 0x0f;
  2484.         *p++ = hexdigits[x];
  2485.         x = *s++ & 0x0f;
  2486.         *p++ = hexdigits[x];        
  2487.         }
  2488.         *p = NUL;
  2489.         p = fnval;
  2490.     }
  2491.     for (k = 0; k < argn; k++) if (bp[k]) free(bp[k]);
  2492.     return(p);
  2493.  
  2494.       case FN_UNH: {            /* \funhex(arg1) */
  2495.       int c[2], i;
  2496.       if (argn < 1) return("");
  2497.       p = "";
  2498.       if ((int)strlen(bp[0]) < (FNVALL * 2)) {
  2499.           s = bp[0];
  2500.           p = fnval;
  2501.           while (*s) {
  2502.           for (i = 0; i < 2; i++) {
  2503.               c[i] = *s++;
  2504.               if (!c[i]) { p = ""; goto unhexfin; }
  2505.               if (islower(c[i])) c[i] = toupper(c[i]);
  2506.               if (c[i] >= '0' && c[i] <= '9')
  2507.             c[i] -= 0x30;
  2508.               else if (c[i] >= 'A' && c[i] <= 'F')
  2509.             c[i] -= 0x37;
  2510.               else { p = ""; goto unhexfin; }
  2511.           }
  2512.           *p++ = ((c[0] << 4) & 0xf0) | (c[1] & 0x0f);
  2513.           }
  2514.           *p = NUL;
  2515.           p = fnval;
  2516.       }
  2517.   unhexfin:
  2518.       for (k = 0; k < argn; k++) if (bp[k]) free(bp[k]);
  2519.       return(p);
  2520.       }
  2521.  
  2522.       case FN_BRK: {            /* \fbreak() */
  2523.       char * c;            /* Characters to break on */
  2524.       char c2, s2;
  2525.       int start = 0;
  2526.       int done = 0;
  2527.       if (argn < 1) return("");
  2528.       p = fnval;            /* Destination pointer */
  2529.       *p = NUL;
  2530.       if (argn > 2) {
  2531.           s = bp[2] ? bp[2] : "";
  2532.           if (chknum(s)) {
  2533.           start = atoi(s);
  2534.           if (start < 0) start = 0;
  2535.           if (start > (int)strlen(bp[0]))
  2536.             goto brkfin;
  2537.           }
  2538.       }
  2539.       s = bp[0] + start;        /* Source pointer */
  2540.  
  2541.       while (*s && !done) {
  2542.           s2 = *s;
  2543.           if (!inpcas[cmdlvl] && islower(s2)) s2 = toupper(s2);
  2544.           c = bp[1] ? bp[1] : "";    /* Character to break on */
  2545.           while (*c) {
  2546.           c2 = *c;
  2547.           if (!inpcas[cmdlvl] && islower(c2)) c2 = toupper(c2);
  2548.           if (c2 == s2) {
  2549.               done = 1;
  2550.               break;
  2551.           }
  2552.           c++;
  2553.           }
  2554.           if (done) break;
  2555.           *p++ = *s++;
  2556.       }
  2557.       *p = NUL;            /* terminate the result */
  2558.       p = fnval;            /* and point to it. */
  2559.     brkfin:
  2560.       for (k = 0; k < argn; k++) if (bp[k]) free(bp[k]);
  2561.       return(p);
  2562.       }
  2563.  
  2564.       case FN_SPN: {            /* \fspan() */
  2565.       char *q;
  2566.       char c1, c2;
  2567.       int start = 0;
  2568.       if (argn < 1) return("");
  2569.       p = fnval;            /* Result pointer */
  2570.       *p = NUL;
  2571.       if (argn > 2) {        /* Starting position */
  2572.           s = bp[2] ? bp[2] : "";
  2573.           if (chknum(s)) {
  2574.           start = atoi(s);
  2575.           if (start < 0) start = 0;
  2576.           }
  2577.       }
  2578.       s = bp[0] + start;        /* Source pointer */
  2579.       if (argn > 1 &&
  2580.           (int)strlen(bp[1]) > 0 &&
  2581.           start <= (int)strlen(bp[0])) {
  2582.           while (*s) {        /* Loop thru source string */
  2583.           q = bp[1];        /* Span string */
  2584.           c1 = *s;
  2585.           if (!inpcas[cmdlvl])
  2586.             if (islower(c1)) c1 = toupper(c1);
  2587.           x = 0;
  2588.           while (c2 = *q++) {
  2589.               if (!inpcas[cmdlvl])
  2590.             if (islower(c2)) c2 = toupper(c2);
  2591.               if (c1 == c2) { x = 1; break; }
  2592.           }
  2593.           if (!x) break;
  2594.           *p++ = *s++;
  2595.           }
  2596.           *p = NUL;            /* Terminate and return the result */
  2597.           p = fnval;
  2598.       }
  2599.       for (k = 0; k < argn; k++) if (bp[k]) free(bp[k]);
  2600.       return(p);
  2601.       }
  2602.  
  2603.       case FN_TRM:            /* \ftrim(s1[,s2]) */
  2604.       case FN_LTR:            /* \fltrim(s1[,s2]) */
  2605.     if (argn < 1) return("");
  2606.     if ((len1 = (int)strlen(bp[0])) > 0) {
  2607.         if (len1 > FNVALL)
  2608.           len1 = FNVALL;
  2609.         s = " \t";
  2610.         if (argn > 1)        /* Trim list given */
  2611.           s = bp[1];
  2612.         len2 = (int)strlen(s);
  2613.         if (len2 < 1) {        /* or not... */
  2614.         s = " \t";        /* Default is to trim whitespace */
  2615.         len2 = 2;
  2616.         }
  2617.         if (y == FN_TRM) {        /* Trim from right */
  2618.         char * q, p2, q2;
  2619.         strncpy(fnval,bp[0],FNVALL); /* Copy string to output */
  2620.         p = fnval + len1 - 1;    /* Point to last character */
  2621.  
  2622.         while (p >= (char *)fnval) { /* Go backwards */
  2623.             q = s;        /* Point to trim list */
  2624.             p2 = *p;
  2625.             if (!inpcas[cmdlvl])
  2626.               if (islower(p2)) p2 = toupper(p2);
  2627.             while (*q) {    /* Is this char in trim list? */
  2628.             q2 = *q;
  2629.             if (!inpcas[cmdlvl])
  2630.               if (islower(q2)) q2 = toupper(q2);
  2631.             if (p2 == q2) {    /* Yes, null it out */
  2632.                 *p = NUL;
  2633.                 break;
  2634.             }
  2635.             q++;
  2636.             }
  2637.             if (!*q)        /* Trim list exhausted */
  2638.               break;        /* So we're done. */
  2639.             p--;        /* Else keep trimming */
  2640.         }
  2641.         } else {            /* Trim from left */
  2642.         char * q, p2, q2;
  2643.         p = bp[0];        /* Source */
  2644.         while (*p) {
  2645.             p2 = *p;
  2646.             if (!inpcas[cmdlvl])
  2647.               if (islower(p2)) p2 = toupper(p2);
  2648.             q = s;
  2649.             while (*q) {    /* Is this char in trim list? */
  2650.             q2 = *q;
  2651.             if (!inpcas[cmdlvl])
  2652.               if (islower(q2)) q2 = toupper(q2);
  2653.             if (p2 == q2) {    /* Yes, point past it */
  2654.                 p++;    /* and try next source character */
  2655.                 break;
  2656.             }
  2657.             q++;        /* No, try next trim character */
  2658.             }
  2659.             if (!*q)        /* Trim list exhausted */
  2660.               break;        /* So we're done. */
  2661.         }
  2662.         strncpy(fnval,p,FNVALL);
  2663.         }
  2664.         p = fnval;
  2665.     } else p = "";
  2666.     for (k = 0; k < argn; k++) if (bp[k]) free(bp[k]);
  2667.     return(p);
  2668.  
  2669.       case FN_CAP:            /* \fcapitalize(arg1) */
  2670.     if (argn < 1) return("");
  2671.     s = bp[0];
  2672.     p = fnval;
  2673.     x = 0;
  2674.     while (c = *s++) {
  2675.         if (isalpha(c)) {
  2676.         if (x == 0) {
  2677.             x = 1;
  2678.             if (islower(c))
  2679.               c = toupper(c);
  2680.         } else if (isupper(c))
  2681.           c = tolower(c);
  2682.         }
  2683.         *p++ = c;
  2684.     }
  2685.     *p = NUL;
  2686.     for (k = 0; k < argn; k++) if (bp[k]) free(bp[k]);
  2687.     p = fnval;
  2688.     return(p);
  2689.  
  2690.       case FN_TOD:            /* Time of day to secs since midnite */
  2691.     if (argn < 1) return("");
  2692.     p = fnval;
  2693.     sprintf(p,"%ld",tod2sec(bp[0]));
  2694.     for (k = 0; k < argn; k++) if (bp[k]) free(bp[k]);
  2695.     return(p);
  2696.  
  2697.       case FN_FFN:            /* Full pathname of file */
  2698.     p = fnval;
  2699.     *p = NUL;
  2700.     if (argn > 0)
  2701. #ifdef ZFNQFP
  2702.       zfnqfp(bp[0],FNVALL,p);
  2703. #else
  2704.       strcpy(p,bp[0]);
  2705. #endif /* ZFNQFP */
  2706.     for (k = 0; k < argn; k++) if (bp[k]) free(bp[k]);
  2707.     return(p ? p : "");
  2708.  
  2709.       case FN_CHK: {            /* \fchecksum() */
  2710.       long chk = 0;
  2711.       p = (argn > 0) ? bp[0] : "";
  2712.       while (*p) chk += *p++;
  2713.       sprintf(fnval,"%lu",chk);
  2714.       for (k = 0; k < argn; k++) if (bp[k]) free(bp[k]);
  2715.       return((char *)fnval);
  2716.       }
  2717.       case FN_CRC:            /* \fcrc16() */
  2718.     *fnval = NUL;
  2719.     if (argn > 0)
  2720.       sprintf(fnval,"%u",chk3((CHAR *)bp[0],0));
  2721.     for (k = 0; k < argn; k++) if (bp[k]) free(bp[k]);
  2722.     return((char *)fnval);
  2723.  
  2724.       case FN_BSN:            /* \fbasename() */
  2725.     if (argn > 0)
  2726.       zstrip(bp[0],&p);
  2727.     for (k = 0; k < argn; k++) if (bp[k]) free(bp[k]);
  2728.     return(p);
  2729.  
  2730.       default:
  2731.     for (k = 0; k < argn; k++) if (bp[k]) free(bp[k]);
  2732.     return("");
  2733.     }
  2734. }
  2735.  
  2736. ====================
  2737. X-Patch-Number: 0023
  2738. Date: Sun Mar 23 19:25:18 1997
  2739. From: Frank da Cruz <fdc@columbia.edu>
  2740. Subject: X MOD 0 crashes program
  2741.  
  2742. "\feval(number%0)", "\fmod(number,0)", or "EVALUATE number % 0" would
  2743. crash C-Kermit.  Also, dividing by zero would return -1 without issuing any
  2744. kind of warning.  Now both return -1 and always print a "?Divide by zero"
  2745. warning.  Patch:
  2746.  
  2747. *** /w/pub/ftp/kermit/f/ckuus5.c    Tue Feb 18 09:31:55 1997
  2748. --- ./ckuus5.c    Thu Mar 27 19:54:55 1997
  2749. ***************
  2750. *** 5532,5540 ****
  2751.       switch(op) {
  2752.         case '*': expval = oldval * expval; break;
  2753.         case '/':
  2754. !         if (expval == 0) expval = -1; /* don't divide by 0 */
  2755. !         else expval = oldval / expval; break;
  2756. !       case '%': expval = oldval % expval; break;
  2757.         case '&': expval = oldval & expval; break;
  2758.       }
  2759.       }
  2760. --- 5532,5545 ----
  2761.       switch(op) {
  2762.         case '*': expval = oldval * expval; break;
  2763.         case '/':
  2764. !       case '%':
  2765. !         if (expval == 0) {
  2766. !         if (!x_ifnum)
  2767. !           printf("?Divide by zero\n");
  2768. !         expval = -1; /* No way to return a null integer */
  2769. !         } else
  2770. !           expval = (op == '/') ? (oldval / expval) : (oldval % expval);
  2771. !         break;
  2772.         case '&': expval = oldval & expval; break;
  2773.       }
  2774.       }
  2775.  
  2776. ====================
  2777. X-Patch-Number: 0024
  2778. Date: Mon Mar 31 19:02:32 1997
  2779. From: Frank da Cruz <fdc@columbia.edu>
  2780. Subject: Internal bulletproofing for lower() function.
  2781.  
  2782. The lower() function did not check if called with a null pointer.  Patch:
  2783.  
  2784. *** /w/pub/ftp/kermit/f/ckucmd.c    Sun Nov 24 19:20:49 1996
  2785. --- ckucmd.c    Mon Mar 31 19:00:40 1997
  2786. ***************
  2787. *** 3875,3880 ****
  2788. --- 3875,3881 ----
  2789.   int
  2790.   lower(s) char *s; {
  2791.       int n = 0;
  2792. +     if (!s) return(0);
  2793.       while (*s) {
  2794.           if (isupper(*s)) *s = (char) tolower(*s);
  2795.           s++, n++;
  2796.       }
  2797.       return(n);
  2798.   }
  2799.  
  2800. ====================
  2801. X-Patch-Number: 0025
  2802. To: kermit@columbia.edu
  2803. Subject: Real OpenBSD support for C-Kermit 6.0
  2804. Date: Tue, 01 Apr 1997 11:56:01 -0700
  2805. From: "Todd C. Miller" <Todd.Miller@courtesan.com>
  2806.  
  2807. Below is a diff to add a real OpenBSD entry.  OpenBSD uses
  2808. ncurses as its curses and has terminfo so must link with
  2809. -ltermlib (-ltermcap is for termcap-compatibility).
  2810.  
  2811. --- makefile.DIST    Wed Dec 18 21:57:53 1996
  2812. +++ makefile    Tue Apr  1 11:51:23 1997
  2813. @@ -402,7 +402,7 @@
  2814.  # + for OSF/1 (vanilla, from OS/F), "make posix"
  2815.  # + for OkiStation 7300 Series, "make sys5r4sxtcp"
  2816.  # + for Olivetti LSX-3020 with X/OS R.2.3, "make xos23" or "make xos23c"
  2817. -# ? for OpenBSD, "make netbsd"?
  2818. +# + for OpenBSD, "make openbsd"
  2819.  # + for Perkin-Elmer (Concurrent) 3200 series, "make sys5".
  2820.  # + for Perkin-Elmer (Concurrent) 3200 series with <dirent.h>, "make ccop1"
  2821.  # + for Perkin-Elmer/Concurrent 3200 with Xelos R02, "make ccop1"
  2822. @@ -888,6 +888,14 @@
  2823.      $(MAKE) wermit \
  2824.      "CFLAGS= -DBSD44 -DCK_CURSES -DDYNAMIC -DTCPSOCKET $(KFLAGS) -O" \
  2825.      "LIBS= -lcurses -ltermcap"
  2826. +
  2827. +#OpenBSD
  2828. +#Note that OpenBSD uses ncurses as its curses so use -ltermlib, not -ltermcap
  2829. +openbsd:
  2830. +    @echo Making C-Kermit $(CKVER) for OpenBSD with curses...
  2831. +    $(MAKE) wermit \
  2832. +    "CFLAGS= -DBSD44 -DCK_CURSES -DDYNAMIC -DTCPSOCKET $(KFLAGS) -O" \
  2833. +    "LIBS= -lcurses -ltermlib"
  2834.  
  2835.  #NetBSD
  2836.  netbsd:
  2837.  
  2838. ====================
  2839. X-Patch-Number: 0026
  2840. Date: Tue Apr  1 18:02:15 1997
  2841. From: Frank da Cruz <fdc@columbia.edu>
  2842. Subject: Incorrect checks for macro/command-file nesting depth
  2843.  
  2844. *** /w/pub/ftp/kermit/f/ckuusr.c    Tue Feb 18 09:31:40 1997
  2845. --- ckuusr.c    Tue Apr  1 18:00:56 1997
  2846. ***************
  2847. *** 3405,3411 ****
  2848.   #endif /* OS2 */
  2849.       char takepath[1024];
  2850.   
  2851. !     if (tlevel > MAXTAKE-1) {
  2852.           printf("?Take files nested too deeply\n");
  2853.           return(-2);
  2854.       }
  2855. --- 3405,3411 ----
  2856.   #endif /* OS2 */
  2857.       char takepath[1024];
  2858.   
  2859. !     if (tlevel >= MAXTAKE-1) {
  2860.           printf("?Take files nested too deeply\n");
  2861.           return(-2);
  2862.       }
  2863.  
  2864. *** /w/pub/ftp/kermit/f/ckuus5.c    Tue Feb 18 09:31:55 1997
  2865. --- ckuus5.c    Tue Apr  1 18:08:25 1997
  2866. ***************
  2867. *** 2526,2534 ****
  2868. --- 2526,2536 ----
  2869.           debug(F111,"popclvl mac 3",macp[maclvl],maclvl);
  2870.           *cmdbuf = '\0';        /* clear the command buffer */
  2871.           debug(F111,"popclvl mac 4",mrval[maclvl+1],maclvl);
  2872. +         if (maclvl+1 < MACLEVEL) {
  2873.           if (mrval[maclvl+1]) {    /* Free any deeper return values. */
  2874.               free(mrval[maclvl+1]);
  2875.               mrval[maclvl+1] = NULL;
  2876. +         }
  2877.           }
  2878.           debug(F111,"popclvl mac 6",mrval[maclvl+1],maclvl);
  2879.           maclvl--;            /* Pop macro level */
  2880.  
  2881. ====================
  2882. X-Patch-Number: 0027
  2883. Date: Tue Apr  1 18:34:55 1997
  2884. From: Frank da Cruz <fdc@columbia.edu>
  2885. Subject: ANSWER doesn't automatically CONNECT
  2886.  
  2887. The DIAL and REDIAL commands, if given from top level with DIAL CONNECT set
  2888. to ON or AUTO, and if they succeed, cause C-Kermit to enter CONNECT mode
  2889. automatically.  ANSWER should behave the same way.  Patch:
  2890.  
  2891. *** /w/pub/ftp/kermit/f/ckuusr.c    Tue Feb 18 09:31:40 1997
  2892. --- ckuusr.c    Tue Apr  1 18:31:48 1997
  2893. ***************
  2894. *** 1928,1934 ****
  2895.       cx == XXANSW || cx == XXLOOK) { /* DIAL, REDIAL etc */
  2896.       x = dodial(cx);
  2897.       debug(F101,"dodial returns","",x);
  2898. !     if ((cx == XXDIAL || cx == XXRED) &&
  2899.           (x > 0) &&            /* If DIAL or REDIAL succeeded */
  2900.           (dialcon > 0)) {
  2901.           if ( dialcon == 1 ||    /* And DIAL CONNECT is ON, */
  2902. --- 1928,1934 ----
  2903.       cx == XXANSW || cx == XXLOOK) { /* DIAL, REDIAL etc */
  2904.       x = dodial(cx);
  2905.       debug(F101,"dodial returns","",x);
  2906. !     if ((cx == XXDIAL || cx == XXRED || cx == XXANSW) &&
  2907.           (x > 0) &&            /* If DIAL or REDIAL succeeded */
  2908.           (dialcon > 0)) {
  2909.           if ( dialcon == 1 ||    /* And DIAL CONNECT is ON, */
  2910.  
  2911. ====================
  2912. X-Patch-Number: 0028
  2913. Date: Tue Apr  1 19:39:51 1997
  2914. From: Frank da Cruz <fdc@columbia.edu>
  2915. Subject: Overzealous EXIT warning
  2916.  
  2917. When SET EXIT WARNING is ON, C-Kermit can sometimes warn you about a
  2918. connection being open when it couldn't possibly be open.  This can happen,
  2919. for example, if you SET LINE to a serial device and then HANGUP, but the
  2920. serial device is still getting the Carrier Detect signal (e.g. because it is
  2921. connected to a modem that never drops CD).  However, if C-Kermit has been
  2922. told to HANGUP, or to close the connection via SET HOST or SET LINE with no
  2923. argument, then it knows the connection is closed and so it should not warn.
  2924. Here's the patch:
  2925.  
  2926. *** /w/pub/ftp/kermit/f/ckcmai.c    Tue Feb 18 09:31:26 1997
  2927. --- ./ckcmai.c    Tue Apr  1 19:35:59 1997
  2928. ***************
  2929. *** 969,974 ****
  2930. --- 969,975 ----
  2931.   extern int ttyfd, tn_exit;
  2932.   #endif /* NETCONN */
  2933.       int exitonclose = 0;        /* Exit on close */
  2934. +     int haveline = 0;            /* SET LINE or SET HOST in effect */
  2935.   
  2936.       int tlevel = -1;            /* Take-file command level */
  2937.   #ifdef NOLOCAL
  2938. *** /w/pub/ftp/kermit/f/ckuus3.c    Sun Nov 24 19:20:50 1996
  2939. --- ./ckuus3.c    Tue Apr  1 19:35:04 1997
  2940. ***************
  2941. *** 85,90 ****
  2942. --- 85,92 ----
  2943.     xfrcan, xfrchr, xfrnum, pacing, xitwarn, xitsta,
  2944.     cmd_cols, cmd_rows, ckxech, xaskmore, xfrbel;
  2945.   
  2946. + extern int haveline;
  2947. + 
  2948.   #ifdef TCPSOCKET
  2949.     extern int tn_exit;
  2950.   #endif /* TCPSOCKET */
  2951. ***************
  2952. *** 4428,4433 ****
  2953. --- 4430,4436 ----
  2954.       debug(F101,"hupok x","",x);
  2955.       debug(F101,"hupok xitwarn","",xitwarn);
  2956.       debug(F101,"hupok network","",network);
  2957. +     debug(F101,"hupok haveline","",haveline);
  2958.   #ifdef CK_TTYFD
  2959.       debug(F101,"hupok ttyfd","",ttyfd);
  2960.   #endif /* CK_TTYFD */
  2961. ***************
  2962. *** 4450,4455 ****
  2963. --- 4453,4460 ----
  2964.           ttchk() >= 0
  2965.           )
  2966.             needwarn = 1;
  2967. +         /* A connection seems to be open but it can't possibly be */
  2968. +         if (!haveline) needwarn = 0;
  2969.           if (needwarn) {
  2970.           if (strcmp(ttname,"*"))
  2971.             printf(
  2972. ***************
  2973. *** 4474,4479 ****
  2974. --- 4479,4486 ----
  2975.             1            /* or can't check ttyfd, then warn */
  2976.   #endif /* CK_TTYFD */ 
  2977.               ;
  2978. +         /* A connection seems to be open but it can't possibly be */
  2979. +         if (!haveline) needwarn = 0;
  2980.           if (needwarn)
  2981.             printf(
  2982.                " A serial connection might still be active on %s.\n",
  2983. *** /w/pub/ftp/kermit/f/ckuus7.c    Wed Nov 27 19:54:46 1996
  2984. --- ./ckuus7.c    Tue Apr  1 19:38:36 1997
  2985. ***************
  2986. *** 129,134 ****
  2987. --- 129,135 ----
  2988.   extern int tnlm, sosi, tlevel, lf_opts, backgrd, flow, fdispla, b_save, f_save;
  2989.   extern int fnrpath, fnspath, debses, parity, pktpaus, ttnproto, ckxech;
  2990.   extern int x_ifnum;
  2991. + extern int haveline;
  2992.   extern int
  2993.     atenci, atenco, atdati, atdato, atleni, atleno, atblki, atblko,
  2994.     attypi, attypo, atsidi, atsido, atsysi, atsyso, atdisi, atdiso;
  2995. ***************
  2996. *** 5243,5248 ****
  2997. --- 5244,5250 ----
  2998.       mdmhup();
  2999.   #endif /* NODIAL */
  3000.       ttclos(0);            /* Close old connection, if any */
  3001. +     haveline = 0;
  3002.       if (oldplex > -1)        /* Restore duplex setting. */
  3003.         duplex = oldplex;
  3004.       if (*s) {            /* They gave a hostname */
  3005. ***************
  3006. *** 5273,5278 ****
  3007. --- 5275,5281 ----
  3008.           if (zz) {
  3009.           if (autoflow)        /* Maybe change flow control */
  3010.             setflow();
  3011. +         haveline = 1;
  3012.           return(success = 1);
  3013.           }
  3014.       }
  3015. *** /w/pub/ftp/kermit/f/ckuusr.c    Tue Feb 18 09:31:40 1997
  3016. --- ./ckuusr.c    Tue Apr  1 19:37:07 1997
  3017. ***************
  3018. *** 127,132 ****
  3019. --- 127,133 ----
  3020.   extern int size, local, sndsrc, xitsta, server, displa, binary, msgflg,
  3021.     escape, duplex, nfils, quiet, tlevel, pflag, zincnt, atcapr, atdiso, verwho,
  3022.     ckxech, carrier, deblog, sendmode, epktflg, what, moving, protocol;
  3023. + extern int haveline;
  3024.   extern int bye_active;
  3025.   extern long sendstart;
  3026.   #ifdef CK_TTYFD
  3027. ***************
  3028. *** 2417,2422 ****
  3029. --- 2418,2424 ----
  3030.       if (x)
  3031.         DialerSend(OPT_KERMIT_HANGUP, 0);
  3032.   #endif /* OS2 */
  3033. +     if (x) haveline = 0;
  3034.       return(success = x);
  3035.       }
  3036.  
  3037. ====================
  3038. X-Patch-Number: 0029
  3039. Date: Sat Apr  5 13:50:08 1997
  3040. From: Frank da Cruz <fdc@columbia.edu>
  3041. Subject: OUTPUT doesn't echo when DUPLEX is HALF
  3042.  
  3043. If INPUT ECHO is ON and DUPLEX is HALF, OUTPUT should echo locally.  Patch:
  3044.  
  3045. *** /w/pub/ftp/kermit/f/ckuus5.c    Tue Feb 18 09:31:55 1997
  3046. --- ckuus5.c    Sat Apr  5 13:48:46 1997
  3047. ***************
  3048. *** 1734,1739 ****
  3049. --- 1734,1740 ----
  3050.           msleep(pacing);
  3051.       }
  3052.       }
  3053. +     if (inecho && duplex && local) conxo(obsize,obuf);
  3054.       rc = 0;                /* Success */
  3055.     xxout_x:
  3056.       obn = 0;                /* Reset count */
  3057.  
  3058. ====================
  3059. X-Patch-Number: 0030
  3060. Date: Sat Apr  5 14:33:39 1997
  3061. From: Frank da Cruz <fdc@columbia.edu>
  3062. Subject: Minor problems with REMOTE DIRECTORY/DELETE/etc
  3063.  
  3064. The replies to REMOTE DIRECTORY, REMOTE DELETE, and REMOTE SPACE generated
  3065. by the C-Kermit server in UNIX and AOS/VS contained double carriage returns.
  3066. The responses generated by the OS-9 or Mac server contained double linefeeds.
  3067. Also, the REMOTE DELETE summary report counted files as being deleted when
  3068. they actually were not (e.g. if write-protected).  Patch:
  3069.  
  3070. *** /w/pub/ftp/kermit/f/ckcfns.c    Sun Nov 24 19:20:48 1996
  3071. --- ./ckcfns.c    Sat Apr  5 14:29:25 1997
  3072. ***************
  3073. *** 2631,2640 ****
  3074.   /*
  3075.     The following bunch of routines feed internally generated data to the server
  3076.     to send to the client in response to REMOTE commands like DIRECTORY, DELETE,
  3077. !   and so on.  Note that in writing this data to buffers, we do not use "\n".
  3078. !   Instead we use "\15\12", i.e. LITERAL carriage return and linefeed, because
  3079. !   that it was is required by the Kermit protocol in text mode.
  3080.   */
  3081.   static
  3082.   char funcbuf[512];
  3083.   static int
  3084. --- 2636,2663 ----
  3085.   /*
  3086.     The following bunch of routines feed internally generated data to the server
  3087.     to send to the client in response to REMOTE commands like DIRECTORY, DELETE,
  3088. !   and so on.  We have to write these lines in the format appropriate to our
  3089. !   platform, so they can be converted to generic (CRLF) text format by the
  3090. !   packetizer.
  3091.   */
  3092. + #ifdef UNIX
  3093. + char * endline = "\12";
  3094. + #else
  3095. + #ifdef datageneral
  3096. + char * endline = "\12";
  3097. + #else
  3098. + #ifdef MAC
  3099. + char * endline = "\15";
  3100. + #else
  3101. + #ifdef OSK
  3102. + char * endline = "\15";
  3103. + #else
  3104. + char * endline = "\15\12";
  3105. + #endif /* OSK */
  3106. + #endif /* MAC */
  3107. + #endif /* datageneral */
  3108. + #endif /* UNIX */
  3109. + 
  3110.   static
  3111.   char funcbuf[512];
  3112.   static int
  3113. ***************
  3114. *** 2792,2817 ****
  3115.           if (len > -1L) {
  3116.               nfiles++;
  3117.               nbytes += len;
  3118. !             sprintf(funcbuf," %04d-%02d-%02d %02d:%02d %11ld %s\15\12",
  3119. !                     year, month, date, hour, minute, len, p);
  3120.           } else {
  3121.               ndirs++;
  3122.               sprintf(funcbuf,
  3123. !             " %04d-%02d-%02d %02d:%02d %11s %s\15\12", 
  3124. !                     year, month, date, hour, minute, "(directory)", p);
  3125.           }
  3126.           funcnxt = 0;
  3127.           funclen = strlen(funcbuf);
  3128.       } else if (nxpnd == 0) {        /* Done, send summary */
  3129.       char *blankline = "";        /* At beginning of summary */
  3130. -     char *endline = "\15\12";    /* At end of summary */
  3131.   /*
  3132.     The idea is to prevent (a) unnecessary multiple blanklines, and (b)
  3133.     prompt-stomping.  Preventing (b) is practically impossible, because it
  3134.     depends on the client so for now always include that final CRLF.
  3135.   */
  3136.       if (!ndirs || !nbytes || !nfiles)
  3137. !       blankline = "\15\12";
  3138.           sprintf(funcbuf,
  3139.           "%sSummary: %ld director%s, %ld file%s, %ld byte%s%s",
  3140.           blankline,
  3141. --- 2815,2840 ----
  3142.           if (len > -1L) {
  3143.               nfiles++;
  3144.               nbytes += len;
  3145. !             sprintf(funcbuf," %04d-%02d-%02d %02d:%02d %11ld %s%s",
  3146. !                     year, month, date, hour, minute, len, p, endline);
  3147.           } else {
  3148.               ndirs++;
  3149.               sprintf(funcbuf,
  3150. !             " %04d-%02d-%02d %02d:%02d %11s %s%s", 
  3151. !                     year, month, date, hour, minute,
  3152. !             "(directory)", p, endline);
  3153.           }
  3154.           funcnxt = 0;
  3155.           funclen = strlen(funcbuf);
  3156.       } else if (nxpnd == 0) {        /* Done, send summary */
  3157.       char *blankline = "";        /* At beginning of summary */
  3158.   /*
  3159.     The idea is to prevent (a) unnecessary multiple blanklines, and (b)
  3160.     prompt-stomping.  Preventing (b) is practically impossible, because it
  3161.     depends on the client so for now always include that final CRLF.
  3162.   */
  3163.       if (!ndirs || !nbytes || !nfiles)
  3164. !       blankline = endline;
  3165.           sprintf(funcbuf,
  3166.           "%sSummary: %ld director%s, %ld file%s, %ld byte%s%s",
  3167.           blankline,
  3168. ***************
  3169. *** 2887,2893 ****
  3170.       ndirs = 0L;
  3171.       nfiles = 0L;
  3172.       nbytes = 0L;
  3173. !     sprintf(funcbuf,"Listing files: \"%s\"\15\12\15\12",name);
  3174.       funcnxt = 0;
  3175.       funclen = strlen(funcbuf);
  3176.   
  3177. --- 2910,2916 ----
  3178.       ndirs = 0L;
  3179.       nfiles = 0L;
  3180.       nbytes = 0L;
  3181. !     sprintf(funcbuf,"Listing files: \"%s\"%s%s",name,endline,endline);
  3182.       funcnxt = 0;
  3183.       funclen = strlen(funcbuf);
  3184.   
  3185. ***************
  3186. *** 2951,2965 ****
  3187.           if (*p == '/') p++;
  3188.   
  3189.           if (len > -1L) {
  3190.               nfiles++;
  3191.               nbytes += len;
  3192. !             sprintf(funcbuf,
  3193. !             " %10s: %s\15\12",
  3194. !                     zdelet(name) ? "skipping" : "deleted",
  3195. !             p
  3196. !             );
  3197.           } else
  3198. !       sprintf(funcbuf," directory: %s\15\12", p);
  3199.           funcnxt = 0;
  3200.           funclen = strlen(funcbuf);
  3201.       } else 
  3202. --- 2974,2988 ----
  3203.           if (*p == '/') p++;
  3204.   
  3205.           if (len > -1L) {
  3206. +         if (zdelet(name)) {
  3207. +         sprintf(funcbuf," %10s: %s%s","skipping",p,endline);
  3208. +         } else {
  3209.           nfiles++;
  3210.           nbytes += len;
  3211. !         sprintf(funcbuf," %10s: %s%s","deleted",p,endline);
  3212. !         }
  3213.           } else
  3214. !       sprintf(funcbuf," directory: %s%s", p, endline);
  3215.           funcnxt = 0;
  3216.           funclen = strlen(funcbuf);
  3217.       } else 
  3218. ***************
  3219. *** 2968,2978 ****
  3220.   
  3221.         if (nxpnd == 0) {
  3222.         sprintf(funcbuf,
  3223. !           "\15\12%ld file%s deleted, %ld byte%s freed\15\12",
  3224.             nfiles,
  3225.             (nfiles == 1) ? "" : "s",
  3226.             nbytes,
  3227. !           (nbytes == 1) ? "" : "s"
  3228.             );
  3229.         nxpnd--;
  3230.         funcnxt = 0;
  3231. --- 2991,3003 ----
  3232.   
  3233.         if (nxpnd == 0) {
  3234.         sprintf(funcbuf,
  3235. !           "%s%ld file%s deleted, %ld byte%s freed%s",
  3236. !           endline,
  3237.             nfiles,
  3238.             (nfiles == 1) ? "" : "s",
  3239.             nbytes,
  3240. !           (nbytes == 1) ? "" : "s",
  3241. !           endline
  3242.             );
  3243.         nxpnd--;
  3244.         funcnxt = 0;
  3245. ***************
  3246. *** 3018,3024 ****
  3247.   #endif /* OS2 */
  3248.   
  3249.       nfiles = nbytes = 0L;
  3250. !     sprintf(funcbuf,"Deleting \"%s\"\15\12",name);
  3251.       funcnxt = 0;
  3252.       funclen = strlen(funcbuf);
  3253.   
  3254. --- 3043,3049 ----
  3255.   #endif /* OS2 */
  3256.   
  3257.       nfiles = nbytes = 0L;
  3258. !     sprintf(funcbuf,"Deleting \"%s\"%s",name,endline);
  3259.       funcnxt = 0;
  3260.       funclen = strlen(funcbuf);
  3261.   
  3262. ***************
  3263. *** 3044,3053 ****
  3264.       static char spctext[64];
  3265.       if (drive)
  3266.         sprintf(spctext,
  3267. !           " Drive %c: %ldK free\15\12", drive, 
  3268. !           zdskspace(drive - 'A' + 1) / 1024L);
  3269.       else
  3270. !       sprintf(spctext, " Free space: %ldK\15\12", zdskspace(0) / 1024L);
  3271.       nfils = 0;                /* No files, no lists. */
  3272.       xflg = 1;                /* Flag we must send X packet. */
  3273.       strcpy(cmdstr,"free space");    /* Data for X packet. */
  3274. --- 3069,3081 ----
  3275.       static char spctext[64];
  3276.       if (drive)
  3277.         sprintf(spctext,
  3278. !           " Drive %c: %ldK free%s",
  3279. !           drive, 
  3280. !           zdskspace(drive - 'A' + 1) / 1024L,
  3281. !           endline
  3282. !           );
  3283.       else
  3284. !       sprintf(spctext, " Free space: %ldK%s", zdskspace(0) / 1024L, endline);
  3285.       nfils = 0;                /* No files, no lists. */
  3286.       xflg = 1;                /* Flag we must send X packet. */
  3287.       strcpy(cmdstr,"free space");    /* Data for X packet. */
  3288.  
  3289. ====================
  3290. X-Patch-Number: 0031
  3291. Date: Sat Apr  5 15:19:46 1997
  3292. From: Frank da Cruz <fdc@columbia.edu>
  3293. Subject: CHECK command broken
  3294.  
  3295. Patch:
  3296.  
  3297. *** /w/pub/ftp/kermit/f/ckuus3.c    Sun Nov 24 19:20:50 1996
  3298. --- ckuus3.c    Sat Apr  5 15:18:40 1997
  3299. ***************
  3300. *** 1465,1471 ****
  3301.       if ((y = cmcfm()) < 0)
  3302.         return(y);
  3303.   #ifndef NOPUSH
  3304. !     if (!xxstrcmp(atmbuf,"push",(int)strlen(atmbuf))) {
  3305.       if (msgflg)            /* If at top level... */
  3306.         printf(" push%s available\n", nopush ? " not" : "");
  3307.       else if (nopush && !backgrd)
  3308. --- 1465,1471 ----
  3309.       if ((y = cmcfm()) < 0)
  3310.         return(y);
  3311.   #ifndef NOPUSH
  3312. !     if (!xxstrcmp(line,"push",(int)strlen(line))) {
  3313.       if (msgflg)            /* If at top level... */
  3314.         printf(" push%s available\n", nopush ? " not" : "");
  3315.       else if (nopush && !backgrd)
  3316.  
  3317. ====================
  3318. X-Patch-Number: 0032
  3319. Date: Sat Apr  5 16:34:57 1997
  3320. From: Frank da Cruz <fdc@columbia.edu>
  3321. Subject: Problem with SET TRANSMIT ECHO
  3322.  
  3323. SET TRANSMIT ECHO ON didn't work when PARITY was NONE.  Patch:
  3324.  
  3325. *** /w/pub/ftp/kermit/f/ckuus4.c    Sun Nov 24 19:20:50 1996
  3326. --- ckuus4.c    Sat Apr  5 16:33:36 1997
  3327. ***************
  3328. *** 1285,1294 ****
  3329.                   *s &= 0x7f;
  3330.                   s++;
  3331.               }
  3332.               if (conoll(p) < 0) {
  3333.                   z = 0;
  3334.                   goto xmitexit;
  3335. -             }
  3336.               }
  3337.           }
  3338.           if (xmitw)        /* Give receiver time to digest. */
  3339. --- 1285,1294 ----
  3340.                   *s &= 0x7f;
  3341.                   s++;
  3342.               }
  3343. +             }
  3344.               if (conoll(p) < 0) {
  3345.               z = 0;
  3346.               goto xmitexit;
  3347.               }
  3348.           }
  3349.           if (xmitw)        /* Give receiver time to digest. */
  3350.  
  3351. ====================
  3352. X-Patch-Number: 0033
  3353. Date: Sun Apr  6 14:24:24 1997
  3354. From: Frank da Cruz <fdc@columbia.edu>
  3355. Subject: HELP SET SERVER says too much
  3356.  
  3357. SET SERVER IDLE-TIMEOUT is only available in Kermit 95.  Patch:
  3358.  
  3359. *** /w/pub/ftp/kermit/f/ckuus2.c    Wed Nov 27 19:54:46 1996
  3360. --- ckuus2.c    Sun Apr  6 14:23:03 1997
  3361. ***************
  3362. *** 1127,1134 ****
  3363. --- 1127,1136 ----
  3364.   "Tells the C-Kermit server where to search for files whose names it receives",
  3365.   "from client GET commands when the names are not fully specified pathnames.",
  3366.   "Default is no GET-PATH, so C-Kermit looks only in its current directory.\n",
  3367. + #ifdef OS2
  3368.   "SET SERVER IDLE-TIMEOUT seconds",
  3369.   "Idle time limit while in server mode, 0 for no limit.\n",
  3370. + #endif /* OS2 */
  3371.   "SET SERVER LOGIN [ username [ password [ account ] ] ]",
  3372.   "Sets up a username and optional password which must be supplied before",
  3373.   "the server will respond to any commands other than REMOTE LOGIN.  The",
  3374.  
  3375. ====================
  3376. X-Patch-Number: 0034
  3377. Date: Thu May 29 11:50:52 1997
  3378. From: Frank da Cruz <fdc@columbia.edu>
  3379. Subject: READ and !READ too picky about line terminators
  3380.  
  3381. The READ and !READ commands do not return the last or only line of the input
  3382. file (or command) if it does not end with a proper line terminator.  Patch:
  3383.  
  3384. *** /w/pub/ftp/kermit/f/ckuus6.c    Sun Nov 24 19:20:51 1996
  3385. --- ./ckuus6.c    Thu May 29 11:49:41 1997
  3386. ***************
  3387. *** 358,364 ****
  3388.         {
  3389.           y = zsinl(ZRFILE, s, readblock); /* Read a line. */
  3390.           debug(F111,"read zsinl",s,y);
  3391. !         if (y < 0) {        /* On EOF or other error, */
  3392.           zclose(ZRFILE);        /* close the file, */
  3393.           delmac(vnp);        /* delete the variable, */
  3394.           return(success = 0);    /* and return failure. */
  3395. --- 358,364 ----
  3396.         {
  3397.           y = zsinl(ZRFILE, s, readblock); /* Read a line. */
  3398.           debug(F111,"read zsinl",s,y);
  3399. !         if (y < 0 && !*s) {        /* On EOF or other error, */
  3400.           zclose(ZRFILE);        /* close the file, */
  3401.           delmac(vnp);        /* delete the variable, */
  3402.           return(success = 0);    /* and return failure. */
  3403.  
  3404. ====================
  3405. X-Patch-Number: 0035
  3406. Date: Thu Jul  3 13:35:08 1997
  3407. From: Frank da Cruz <fdc@columbia.edu>
  3408. Subject: END from inside SWITCH doesn't work
  3409.  
  3410. Instead of terminating the current macro or command file, the END command,
  3411. when given in a SWITCH statement, just exits from the SWITCH statement.
  3412. Patch:
  3413.  
  3414. *** /w/pub/ftp/kermit/f/ckuusr.c    Tue Feb 18 09:31:40 1997
  3415. --- ./ckuusr.c    Thu Jul  3 13:34:10 1997
  3416. ***************
  3417. *** 3372,3378 ****
  3418.              (cmdstk[cmdlvl].src == CMD_MD) &&
  3419.                (!strncmp(m_arg[maclvl-1][0],"_xif",4) ||
  3420.                 !strncmp(m_arg[maclvl-1][0],"_for",4) ||
  3421. !               !strncmp(m_arg[maclvl-1][0],"_whi",4))) {
  3422.           debug(F110,"END popping",m_arg[maclvl-1][0],0);
  3423.           dogta(XXPTA);        /* Put args back */
  3424.           popclvl();        /* Pop up two levels */
  3425. --- 3372,3379 ----
  3426.              (cmdstk[cmdlvl].src == CMD_MD) &&
  3427.                (!strncmp(m_arg[maclvl-1][0],"_xif",4) ||
  3428.                 !strncmp(m_arg[maclvl-1][0],"_for",4) ||
  3429. !               !strncmp(m_arg[maclvl-1][0],"_whi",4) ||
  3430. !               !strncmp(m_arg[maclvl-1][0],"_swi",4))) {
  3431.           debug(F110,"END popping",m_arg[maclvl-1][0],0);
  3432.           dogta(XXPTA);        /* Put args back */
  3433.           popclvl();        /* Pop up two levels */
  3434.  
  3435. ====================
  3436. X-Patch-Number: 0036
  3437. Date: Sat Sep 20 10:50:49 1997
  3438. From: Frank da Cruz <fdc@columbia.edu>
  3439. Subject: Problem telnetting to multihomed hosts
  3440.  
  3441. Problems can occur telnetting to multihomed hosts by IP number.
  3442. If the address given is an IP address (rather than a hostname),
  3443. the gethostbyname call should be skipped.  This was already done
  3444. for Windows, but it should be done everywhere.  Cure: apply this patch:
  3445.  
  3446. *** /w/pub/ftp/kermit/f/ckcnet.c    Wed Nov 27 19:54:46 1996
  3447. --- ./ckcnet.c    Sat Sep 20 11:38:57 1997
  3448. ***************
  3449. *** 1940,1958 ****
  3450.   
  3451.       bzero((char *)&saddr, sizeof(saddr));
  3452.       debug(F100,"netopen bzero ok","",0);
  3453.       if (
  3454. ! #ifdef NT
  3455. !         /* we found that Win95 tries to call the DNS  */
  3456. !         /* when a numeric IP Address is specified.    */
  3457. !         /* and of course the lookup fails resulting   */
  3458. !         /* in a long delay.  So we test for the IP    */
  3459. !         /* numeric value before calling gethostbyname */
  3460. !         /* but only in Win32 so as not to             */
  3461. !         /* alter current code that works properly     */
  3462. !         /* everywhere else.                           */
  3463. !         inet_addr(namecopy) == INADDR_NONE &&
  3464. ! #endif /* NT */
  3465. !         (host = gethostbyname(namecopy)) != NULL) {
  3466.       debug(F100,"netopen gethostbyname != NULL","",0);
  3467.   #ifdef OS2
  3468.       strncpy(name,host->h_name,80);
  3469. --- 1940,1961 ----
  3470.   
  3471.       bzero((char *)&saddr, sizeof(saddr));
  3472.       debug(F100,"netopen bzero ok","",0);
  3473. + /*
  3474. +   NOTE: Originally the inet_addr() check was #ifdef NT, but is enabled for
  3475. +   all as of 20 Sep 97, to allow people to "set host" to a specific numeric IP
  3476. +   address without going through the multihomed host sequence and winding up
  3477. +   at a different place than the one requested.
  3478. + */
  3479. +     x = inet_addr(namecopy);
  3480. +     debug(F111,"netopen inet_addr",namecopy,x);
  3481.       if (
  3482. ! #ifdef INADDR_NONE
  3483. !     x == INADDR_NONE
  3484. ! #else
  3485. !     x < 0
  3486. ! #endif /* INADDR_NONE */
  3487. ! 
  3488. !     && (host = gethostbyname(namecopy)) != NULL) {
  3489.       debug(F100,"netopen gethostbyname != NULL","",0);
  3490.   #ifdef OS2
  3491.       strncpy(name,host->h_name,80);
  3492.  
  3493. ====================
  3494. X-Patch-Number: 0037
  3495. Date: Tue Mar 10 16:50:51 1998
  3496. From: Frank da Cruz <fdc@columbia.edu>
  3497. Subject: Redirection failures in REMOTE xxx > file 
  3498.  
  3499. If the server replies to a REMOTE command with a short-form reply (i.e.
  3500. in the data field of an ACK), any redirection specified in the REMOTE command
  3501. fails to take place, but the file is left open.  Fix:
  3502.  
  3503. *** /w/pub/ftp/kermit/f/ckcpro.w    Sun Nov 10 18:37:30 1996
  3504. --- ./ckcpro.w    Tue Mar 10 14:55:14 1998
  3505. ***************
  3506. *** 1018,1033 ****
  3507.       querybuf[0] = NUL;
  3508.       }
  3509.   #endif /* NOSPL */
  3510. !     decode(rdatap,puttrm,0);        /* Text is in ACK Data field */
  3511.       if (rdatap)                /* If we had data */
  3512. !       if (*rdatap)
  3513. !      conoll("");            /* Then add a CRLF */
  3514.       if (bye_active && network) {    /* I sent a BYE command and got */
  3515.       msleep(500);            /* the ACK... */
  3516.       tthang();
  3517.       }
  3518.       success = 1;
  3519.       RESUME;
  3520.   #endif /* NOSERVER */
  3521.   }
  3522.   
  3523. --- 1018,1074 ----
  3524.       querybuf[0] = NUL;
  3525.       }
  3526.   #endif /* NOSPL */
  3527. !     rf_err = "Can't open file";
  3528. !     x = 1;
  3529. !     if (remfile) {            /* Response redirected to file */
  3530. !     if (rempipe)            /* or pipe */
  3531. !       x = zxcmd(ZOFILE,remdest);    /* Pipe: Start command */
  3532. !     else
  3533. !       x = opena(remdest,&iattr);    /* File: Open with attributes */
  3534. !     } else {    
  3535. !     x = opent(&iattr);        /* "open" the screen */
  3536. !     }
  3537. !     if (x) {                /* If file was opened ok */
  3538. !     if (decode(rdatap, 
  3539. ! #ifndef NOSPL
  3540. !            (query || !remfile) ? puttrm : 
  3541. ! #else
  3542. !            !remfile ? puttrm : 
  3543. ! #endif /* NOSPL */
  3544. !            putfil, 1) < 0) {
  3545. !         errpkt((CHAR *)"Error writing data");
  3546. !         RESUME;
  3547. !     } else {
  3548.           if (rdatap)            /* If we had data */
  3549. !           if (*rdatap)        /* add a line terminator */
  3550. !         if (remfile) {        /* Can't use zsout("") for this... */
  3551. !             extern char * zoutptr;
  3552. !             extern int zoutcnt;
  3553. ! #ifndef UNIX
  3554. ! #ifndef datageneral
  3555. !             zmchout('\015');    /* Carriage return */
  3556. ! #endif /* datageneral */
  3557. ! #endif /* UNIX */
  3558. ! #ifndef MAC
  3559. ! #ifndef OSK
  3560. !             zmchout('\012');    /* Linefeed */
  3561. ! #endif /* OSK */
  3562. ! #endif /* MAC */
  3563. !         } else {        /* To screen, easy. */
  3564. !             conoll("");
  3565. !         }
  3566.           if (bye_active && network) { /* I sent a BYE command and got */
  3567.           msleep(500);        /* the ACK... */
  3568.           tthang();
  3569.           }
  3570. +         clsof(0);
  3571.           success = 1;
  3572.           RESUME;
  3573. +     }
  3574. +     } else {                /* otherwise */
  3575. +     errpkt((CHAR *) rf_err);    /* send error message */
  3576. +     RESUME;                /* and quit. */
  3577. +     }
  3578.   #endif /* NOSERVER */
  3579.   }
  3580.   
  3581. ====================
  3582. __________________________________
  3583. (End of C-Kermit 6.0 PATCHES file)
  3584.