home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / old / ckermit60 / ckuus6.c < prev    next >
C/C++ Source or Header  |  2020-01-01  |  112KB  |  4,193 lines
  1. #include "ckcsym.h"
  2. #ifndef NOICP
  3.  
  4. /*  C K U U S 6 --  "User Interface" for Unix Kermit (Part 6)  */
  5.  
  6. /*
  7.   Author: Frank da Cruz (fdc@columbia.edu),
  8.   Columbia University Academic Information Systems, New York City.
  9.  
  10.   Copyright (C) 1985, 1996, Trustees of Columbia University in the City of New
  11.   York.  The C-Kermit software may not be, in whole or in part, licensed or
  12.   sold for profit as a software product itself, nor may it be included in or
  13.   distributed with commercial products or otherwise distributed by commercial
  14.   concerns to their clients or customers without written permission of the
  15.   Office of Kermit Development and Distribution, Columbia University.  This
  16.   copyright notice must not be removed, altered, or obscured.
  17. */
  18.  
  19. /* Includes */
  20.  
  21. #include "ckcdeb.h"
  22. #include "ckcasc.h"
  23. #include "ckcker.h"
  24. #include "ckuusr.h"
  25. #include "ckcxla.h"
  26. #include "ckcnet.h"            /* Network symbols */
  27. #include <signal.h>
  28.  
  29. #ifdef datageneral
  30. #define fgets(stringbuf,max,fd) dg_fgets(stringbuf,max,fd)
  31. #endif /* datageneral */
  32.  
  33. /* External Kermit Variables, see ckmain.c for description. */
  34.  
  35. extern xx_strp xxstring;
  36.  
  37. extern int size, rpsiz, urpsiz, local, stdinf, sndsrc, xitsta,
  38.   displa, binary, parity, escape, flow, cmd_rows,
  39.   turn, duplex, nfils, ckxech, pktlog, seslog, tralog, stdouf,
  40.   turnch, dfloc, keep, maxrps, warn, cnflg, tlevel, pflag, msgflg,
  41.   mdmtyp, zincnt, fblksiz, frecl, frecfm, atcapr, atdiso, verwho, quiet;
  42. extern int repars, techo, network;
  43.  
  44. #ifdef CK_IFRO
  45. extern int remonly;
  46. #endif /* CK_IFRO */
  47.  
  48. #ifdef OS2
  49. extern int StartedFromDialer ;
  50. #ifndef NT
  51. #define INCL_NOPM
  52. #define INCL_VIO            /* Needed for ckocon.h */
  53. #include <os2.h> 
  54. #undef COMMENT
  55. #else 
  56. #define APIRET ULONG
  57. #include <windows.h>
  58. #endif /* NT */
  59. #include "ckocon.h"
  60. #endif /* OS2 */
  61.  
  62. extern long vernum, speed;
  63. extern char *versio, *protv, *ckxv, *ckzv, *fnsv, *connv, *dftty, *cmdv;
  64. extern char *dialv, *loginv, *for_def[], *whil_def[], *xif_def[], *sw_def[];
  65. extern char *ckxsys, *ckzsys, *cmarg, *cmarg2;
  66. extern char *DIRCMD, *PWDCMD, *DELCMD, *WHOCMD, ttname[], filnam[];
  67. extern CHAR sstate;
  68. extern char *zinptr;
  69.  
  70. #ifndef NOMSEND                /* Multiple SEND */
  71. extern char *msfiles[];
  72. #endif /* NOMSEND */
  73. extern char fspec[];            /* Most recent filespec */
  74.  
  75. #ifdef CK_TMPDIR
  76. extern int f_tmpdir;            /* Directory changed temporarily */
  77. extern char savdir[];            /* For saving current directory */
  78. extern char * dldir;
  79. #endif /* CK_TMPDIR */
  80.  
  81. /* Declarations from cmd package */
  82.  
  83. #ifdef DCMDBUF
  84. extern char *cmdbuf, *atmbuf;        /* Command buffers */
  85. #else
  86. extern char cmdbuf[], atmbuf[];        /* Command buffers */
  87. #endif /* DCMDBUF */
  88.  
  89. #ifndef NOPUSH
  90. extern int nopush ;
  91. #endif /* NOPUSH */
  92.  
  93. #ifndef NOSPL
  94. extern struct mtab *mactab;
  95. extern int nmac;
  96. extern long ck_alarm;
  97. extern char alrm_date[], alrm_time[];
  98. extern int x_ifnum;
  99. #endif /* NOSPL */
  100.  
  101. /* Declarations from ck?fio.c module */
  102.  
  103. extern int backgrd;            /* Kermit executing in background */
  104.  
  105. #ifdef COMMENT
  106. /*
  107.   These must be on stack!
  108. */
  109. #ifndef NOSPL
  110. extern char vnambuf[];            /* Buffer for variable names */
  111. extern char *vnp;            /* Pointer to same */
  112. #endif /* NOSPL */
  113. #endif /* COMMENT */
  114.  
  115. extern char psave[];            /* For saving & restoring prompt */
  116. extern char *tp;            /* Temporary buffer */
  117.  
  118. int readblock = 4096;            /* READ buffer size */
  119. CHAR * readbuf = NULL;            /* Pointer to read buffer */
  120. int readsize = 0;            /* Number of chars actually read */
  121.  
  122. /* Keyword tables specific to this module */
  123.  
  124. /* Modem signal table */
  125.  
  126. struct keytab mstab[] = {
  127. #ifdef COMMENT
  128. /* The forms preceded by backslash are for MS-DOS Kermit compatibility. */
  129. /* But... \dsr doesn't work because \d = decimal constant introducer */
  130.     "\\cd",  BM_DCD, CM_INV,        /* Carrier Detect */
  131.     "\\cts", BM_CTS, CM_INV,        /* Clear To Send  */
  132.     "\\dsr", BM_DSR, CM_INV,        /* Data Set Ready */
  133.     "\\ri",  BM_RNG, CM_INV,        /* Ring Indicator */
  134. #endif /* COMMENT */
  135.     "cd",    BM_DCD, 0,            /* Carrier Detect */
  136.     "cts",   BM_CTS, 0,            /* Clear To Send  */
  137.     "dsr",   BM_DSR, 0,            /* Data Set Ready */
  138.     "ri",    BM_RNG, 0            /* Ring Indicator */
  139. };
  140. int nms = (sizeof(mstab) / sizeof(struct keytab));
  141.  
  142. #ifndef NOSPL
  143. struct keytab opntab[] = {
  144. #ifndef NOPUSH
  145.     "!read",  XYFZ_Y, 0,
  146.     "!write", XYFZ_X, 0,
  147. #endif /* NOPUSH */
  148.     "append", XYFZ_A, 0,
  149.     "read",   XYFZ_O, 0,
  150.     "write",  XYFZ_N, 0
  151. };
  152. int nopn = (sizeof(opntab) / sizeof(struct keytab));
  153.  
  154. struct keytab iftab[] = {        /* IF commands */
  155.     "<",          XXIFLT, 0,
  156.     "=",          XXIFAE, 0,
  157.     ">",          XXIFGT, 0,
  158.     "alarm",      XXIFAL, 0,
  159.     "background", XXIFBG, 0,
  160.     "count",      XXIFCO, 0,
  161.     "defined",    XXIFDE, 0,
  162. #ifdef CK_TMPDIR
  163.     "directory",  XXIFDI, 0,
  164. #endif /* CK_TMPDIR */
  165. #ifdef COMMENT
  166.     "eof",        XXIFEO, 0,
  167. #endif /* COMMENT */
  168.     "emulation",  XXIFEM, 0,
  169.     "equal",      XXIFEQ, 0,
  170.     "error",      XXIFFA, CM_INV,
  171.     "exist",      XXIFEX, 0,
  172.     "failure",    XXIFFA, 0,
  173.     "false",      XXIFNT, 0,
  174.     "foreground", XXIFFG, 0,
  175.     "llt",        XXIFLL, 0,
  176.     "lgt",        XXIFLG, 0,
  177. #ifdef OS2
  178.     "terminal-macro", XXIFTM, CM_INV,
  179. #endif /* OS2 */
  180. #ifdef ZFCDAT
  181.     "newer",      XXIFNE, 0,
  182. #endif /* ZFCDAT */
  183.     "not",        XXIFNO, 0,
  184.     "ok",         XXIFSU, CM_INV,
  185.     "numeric",    XXIFNU, 0,
  186.     "remote-only",XXIFRO, 0,
  187.     "started-from-dialer",XXIFSD, CM_INV,
  188.     "success",    XXIFSU, 0,
  189.     "true",       XXIFTR, 0
  190. };
  191. int nif = (sizeof(iftab) / sizeof(struct keytab));
  192. #endif /* NOSPL */
  193.  
  194. /* Variables and symbols local to this module */
  195.  
  196. #ifndef NODIAL 
  197. _PROTOTYP(static int ddcvt, (char *, FILE *, int) );
  198. _PROTOTYP(static int dncvt, (int, int) );
  199. _PROTOTYP(char * getdname, (void) );
  200.  
  201. char *dialnum = (char *)0;        /* Remember DIAL number for REDIAL */
  202. int dirline = 0;            /* Dial directory line number */
  203. extern char * dialdir[];        /* Dial directory file names */
  204. extern int dialdpy;            /* DIAL DISPLAY on/off */
  205. extern int ndialdir;            /* How many dial directories */
  206. #ifdef NETCONN
  207. extern int nnetdir;            /* How many network directories */
  208. #endif /* NETCONN */
  209. extern int ntollfree;            /* Toll-free call info */
  210. extern char *dialtfc[];
  211. extern int tttapi;
  212. extern int dialatmo;
  213. extern char * dialnpr, * dialsfx;
  214. extern char * diallcc;            /* Dial local country code */
  215. extern char * diallac;            /* Dial local area code */
  216. extern char * dialixp, * dialixs;
  217. extern char * dialldp, * diallds, * dialtfp;
  218. extern char * dialpxx, * dialpxi, * dialpxo;
  219. extern int dialcnf;            /* DIAL CONFIRMATION */
  220. int dialsrt = 1;            /* DIAL SORT ON */
  221. int dialrstr = 6;            /* DIAL RESTRICTION */
  222.  
  223. extern int dialsta;            /* Dial status */
  224. int dialrtr = 0,            /* Dial retries */
  225.     dialint = 10;            /* Dial retry interval */
  226. extern long dialcapas;            /* Modem capabilities */
  227. extern int dialcvt;            /* DIAL CONVERT-DIRECTORY */
  228. #endif /* NODIAL */
  229.  
  230. #ifndef NOSPL
  231. int ifc,                /* IF case */
  232.     not = 0,                /* Flag for IF NOT */
  233.     ifargs;                /* Count of IF condition words */
  234. char ifcond[100];            /* IF condition text */
  235. char *ifcp;                /* Pointer to IF condition text */
  236. #ifdef DCMDBUF
  237. extern int *ifcmd, *count, *iftest, *intime, *inpcas, *takerr, *merror;
  238. #else
  239. extern int ifcmd[];            /* Last command was IF */
  240. extern int iftest[];            /* Last IF was true */
  241. extern int count[];            /* For IF COUNT, one for each cmdlvl */
  242. extern int intime[];
  243. extern int inpcas[];
  244. extern int takerr[];
  245. extern int merror[];
  246. #endif /* DCMDBUF */
  247. #else
  248. extern int takerr[];
  249. #endif /* NOSPL */
  250.  
  251. #ifdef DCMDBUF
  252. extern char *line;            /* Character buffer for anything */
  253. extern char *tmpbuf;
  254. #else
  255. extern char line[], tmpbuf[];
  256. #endif /* DCMDBUF */
  257. extern char *lp;            /* Pointer to line buffer */
  258.  
  259. int cwdf = 0;                /* CWD has been done */
  260.  
  261. #ifndef NOSERVER
  262. /* Flags for ENABLE/DISABLE */
  263. extern int en_cwd, en_cpy, en_del, en_dir, en_fin, 
  264.    en_get, en_hos, en_ren, en_sen, en_set, en_spa, en_typ, en_who, en_bye,
  265.    en_asg, en_que, en_ret, en_mai, en_pri;
  266. #endif /* NOSERVER */
  267.  
  268. extern FILE *tfile[];            /* File pointers for TAKE command */
  269. extern char *tfnam[];            /* Names of TAKE files */
  270. extern int tfline[];            /* TAKE-file line number */
  271.  
  272. extern int success;            /* Command success/failure flag */
  273.  
  274. #ifndef NOSPL
  275. extern int maclvl;            /* Macro to execute */
  276. extern char *macx[];            /* Index of current macro */
  277. extern char *mrval[];            /* Macro return value */
  278. extern char *macp[];            /* Pointer to macro */
  279. extern int macargc[];            /* ARGC from macro invocation */
  280.  
  281. extern char *m_arg[MACLEVEL][NARGS];    /* Stack of macro arguments */
  282. extern char *g_var[];            /* Global variables %a, %b, etc */
  283.  
  284. #ifdef DCMDBUF
  285. extern struct cmdptr *cmdstk;        /* The command stack itself */
  286. #else
  287. extern struct cmdptr cmdstk[];        /* The command stack itself */
  288. #endif /* DCMDBUF */
  289. extern int cmdlvl;            /* Current position in command stack */
  290. #endif /* NOSPL */
  291.  
  292. #define xsystem(s) zsyscmd(s)
  293.  
  294. static int x, y, z = 0;
  295. static char *s, *p;
  296.  
  297. #ifdef OS2
  298. _PROTOTYP( int os2settitle, (char *, int) );
  299. #endif /* OS2 */
  300.  
  301. extern struct keytab yesno[];
  302. extern int nyesno;
  303.  
  304. #ifndef NOSPL
  305.  
  306. /* Do the ASK, ASKQ, GETOK, and READ commands */
  307.  
  308. int
  309. doask(cx) int cx; {
  310.     extern int cmflgs;
  311. #ifdef CK_RECALL
  312.     int sv_recall;
  313.     extern int on_recall;
  314. #endif /* CK_RECALL */
  315.  
  316.     char vnambuf[VNAML];        /* Buffer for variable names */
  317.     char *vnp = NULL;            /* Pointer to same */
  318.     if (cx != XXGOK && cx != XXRDBL) {    /* Get variable name */
  319.     if ((y = cmfld("Variable name","",&s,NULL)) < 0) {
  320.         if (y == -3) {
  321.         printf("?Variable name required\n");
  322.         return(-9);
  323.         } else return(y);
  324.     }
  325.     strcpy(vnambuf,s);        /* Make a copy. */
  326.     vnp = vnambuf;
  327.     if (vnambuf[0] == CMDQ &&
  328.         (vnambuf[1] == '%' || vnambuf[1] == '&'))
  329.       vnp++;
  330.     y = 0;
  331.     if (*vnp == '%' || *vnp == '&') {
  332.         if ((y = parsevar(vnp,&x,&z)) < 0)
  333.           return(y);
  334.     }
  335.     }
  336.     if (cx == XXREA || cx == XXRDBL) {    /* READ or READBLOCK command */
  337.     if ((y = cmcfm()) < 0)        /* Get confirmation */
  338.       return(y);
  339.     if (chkfn(ZRFILE) < 1) {    /* File open? */
  340.         printf("?Read file not open\n");
  341.         return(0);
  342.     }
  343.     if (!(s = (char *)readbuf)) {        /* Where to read into. */
  344.         printf("?Oops, no READ buffer!\n");
  345.         return(0);
  346.     }
  347. #ifdef BINREAD
  348.     if (cx == XXRDBL) {        /* READBLOCK */
  349.         y = zxin(ZRFILE, s, readblock);
  350.         if (y < 1) {
  351.         zclose(ZRFILE);        /* close the file, */
  352.         return(success = 0);
  353.         }
  354.         readsize = y;
  355.         printf("READBLOCK %d\n",y);
  356.     } else
  357. #endif /* BINREAD */
  358.       {
  359.         y = zsinl(ZRFILE, s, readblock); /* Read a line. */
  360.         debug(F111,"read zsinl",s,y);
  361.         if (y < 0) {        /* On EOF or other error, */
  362.         zclose(ZRFILE);        /* close the file, */
  363.         delmac(vnp);        /* delete the variable, */
  364.         return(success = 0);    /* and return failure. */
  365.         } else {            /* Read was OK. */
  366.         readsize = (int) strlen(s);
  367.         success = (addmac(vnp,s) < 0 ? 0 : 1); /* Define variable */
  368.         debug(F111,"read addmac",vnp,success);
  369.         return(success);    /* Return success. */
  370.         }
  371.     }
  372.     }
  373.  
  374.     /* ASK, ASKQ, or GETOK */
  375.  
  376.     if ((y = cmtxt("Prompt, enclose in { braces } to preserve\n\
  377. leading and trailing spaces, precede question mark with backslash (\\).",
  378.            cx == XXGOK ? "{ Yes or no? }" : "",
  379.            &p,NULL)) < 0) {
  380.     return(y);
  381.     }
  382. #ifdef VMS
  383. /*
  384.   In VMS, whenever a TAKE file or macro is active, we had to restore the 
  385.   original console modes or else Ctrl-C/Ctrl-Y would not work.  But here we
  386.   go interactive again, so we have to temporarily put them back.
  387. */
  388.     if (cmdlvl > 0)
  389.       concb((char)escape);
  390. #endif /* VMS */
  391.       
  392.     cmsavp(psave,PROMPTL);        /* Save old prompt */
  393.     cmsetp(brstrip(p));            /* Make new prompt */
  394. reprompt:
  395.     if (cx == XXASKQ) {            /* For ASKQ, */
  396.     concb((char)escape);        /* put console in cbreak mode */
  397.     cmini(0);            /* and no-echo mode. */
  398.     } else {                /* For others, regular echoing. */
  399.     cmini(ckxech);
  400.     }
  401.     x = -1;                /* This means to reparse. */
  402.     cmflgs = 0;
  403.     if (pflag) prompt(xxstring);    /* Issue prompt. */
  404. reparse:
  405.     cmres();
  406.     if (cx == XXGOK) {
  407. #ifdef CK_RECALL
  408.     sv_recall = on_recall;
  409.     on_recall = 0;
  410. #endif /* CK_RECALL */
  411.     x = cmkey(yesno,nyesno,"","",xxstring);    /* GETOK uses keyword table */
  412.     if (x < 0) {            /* Parse error */
  413.         if (x == -3) {        /* No answer? */
  414.         printf("Please respond Yes or No\n"); /* Make them answer */
  415.         cmini(ckxech);
  416.         goto reprompt;
  417.         } else if (x == -1) {
  418.         goto reparse;
  419.         } else
  420.           goto reprompt;
  421.     }
  422.     if (cmcfm() < 0)        /* Get confirmation */
  423.       goto reparse;
  424.     cmsetp(psave);            /* Restore prompt */
  425. #ifdef VMS
  426.     if (cmdlvl > 0)            /* In VMS and not at top level, */
  427.       conres();            /*  restore console again. */
  428. #endif /* VMS */
  429. #ifdef CK_RECALL
  430.     on_recall = sv_recall;
  431. #endif /* CK_RECALL */
  432.     return(x);            /* Return success or failure */
  433.     } else if (cx == XXGETC) {        /* GETC */
  434.     char tmp[2];
  435.     x = coninc(0);            /* Just read one character */
  436.     if (x > -1) {
  437.         printf("\r\n");
  438.         tmp[0] = (char) (x & 0xff);
  439.         tmp[1] = NUL;
  440.         y = addmac(vnp,tmp);    /* Add it to the macro table. */
  441.         debug(F111,"getc addmac",vnp,y);
  442.         cmsetp(psave);        /* Restore old prompt. */
  443.     } else y = -1;
  444.     return(success = y < 0 ? 0 : 1);
  445.     } else {                /* ASK or ASKQ */
  446. #ifdef CK_RECALL
  447.     sv_recall = on_recall;
  448.     on_recall = 0;
  449. #endif /* CK_RECALL */
  450.     y = cmdgquo();            /* Get current quoting */
  451.     cmdsquo(0);            /* Turn off quoting */
  452.     while (x == -1) {        /* Prompt till they answer */
  453.         x = cmtxt("Please respond.","",&s,NULL);
  454.         debug(F111,"ASK cmtxt",s,x);
  455.         cmres();
  456.     }
  457.     cmdsquo(y);            /* Restore previous quoting */
  458. #ifdef CK_RECALL
  459.     on_recall = sv_recall;
  460. #endif /* CK_RECALL */
  461.     if (cx == XXASKQ)        /* ASKQ must echo CRLF here */
  462.       printf("\r\n");
  463.     if (x < 0) {            /* If cmtxt parse error, */
  464.         cmsetp(psave);        /* restore original prompt */
  465. #ifdef VMS
  466.         if (cmdlvl > 0)        /* In VMS and not at top level, */
  467.           conres();            /*  restore console again. */
  468. #endif /* VMS */
  469.         return(x);            /* and return cmtxt's error code. */
  470.     }
  471.     if (*s == NUL) {        /* If user typed a bare CR, */
  472.         cmsetp(psave);        /* Restore old prompt, */
  473.         delmac(vnp);        /* delete variable if it exists, */
  474. #ifdef VMS
  475.         if (cmdlvl > 0)        /* In VMS and not at top level, */
  476.           conres();            /*  restore console again. */
  477. #endif /* VMS */
  478.         return(success = 1);    /* and return. */
  479.     }
  480.     y = addmac(vnp,s);        /* Add it to the macro table. */
  481.     debug(F111,"ask addmac",vnp,y);
  482.     cmsetp(psave);            /* Restore old prompt. */
  483. #ifdef VMS
  484.     if (cmdlvl > 0)            /* In VMS and not at top level, */
  485.       conres();            /*  restore console again. */
  486. #endif /* VMS */
  487.     return(success = y < 0 ? 0 : 1);
  488.     }
  489. }
  490. #endif /* NOSPL */
  491.  
  492. #ifndef NOSPL
  493. int
  494. doincr(cx) int cx; {            /* INCREMENT, DECREMENT */
  495.     char vnambuf[VNAML+1];        /* Buffer for variable names */
  496.  
  497.     if ((y = cmfld("Variable name","",&s,NULL)) < 0) {
  498.     if (y == -3) {
  499.         printf("?Variable name required\n");
  500.         return(-9);
  501.     } else return(y);
  502.     }
  503.     strncpy(vnambuf,s,VNAML);
  504.     if ((y = cmnum("by amount","1",10,&x,xxstring)) < 0)
  505.       return(y);
  506.     if ((y = cmcfm()) < 0)
  507.       return(y);
  508.  
  509.     z = (cx == XXINC ? 1 : 0);        /* Increment or decrement? */
  510.  
  511.     if (incvar(vnambuf,x,z) < 0) {
  512.     printf("?Variable %s not defined or not numeric\n",vnambuf);
  513.     return(success = 0);
  514.     }
  515.     return(success = 1);
  516. }
  517. #endif /* NOSPL */
  518.  
  519.  
  520. /* Do the (_)DEFINE, (_)ASSIGN, and UNDEFINE commands */
  521.  
  522. #ifndef NOSPL
  523. int
  524. dodef(cx) int cx; {
  525.     char vnambuf[VNAML];        /* Buffer for variable names */
  526.     char *vnp;                /* Pointer to same */
  527.     if (cx == XXDFX || cx == XXASX) 
  528.       y = cmfld("Macro or variable name","",&s,xxstring); /* eval var name */
  529.     else 
  530.       y = cmfld("Macro or variable name","",&s,NULL);     /* don't evaluate */
  531.     if (y < 0) {
  532.     if (y == -3) {
  533.         printf("?Variable name required\n");
  534.         return(-9);
  535.     } else return(y);
  536.     }
  537.     debug(F111,"dodef success",s,success);
  538.     strcpy(vnambuf,s);
  539.     vnp = vnambuf;
  540.     if (vnambuf[0] == CMDQ && (vnambuf[1] == '%' || vnambuf[1] == '&')) vnp++;
  541.     if (*vnp == '%' || *vnp == '&') {
  542.     if ((y = parsevar(vnp,&x,&z)) < 0) return(y);
  543.     if (cx == XXUNDEF) {        /* Undefine */
  544.         if ((y = cmcfm()) < 0) return(y);
  545.         delmac(vnp);
  546.         return(success = 1);
  547.     }
  548.     debug(F101,"dodef","",x);
  549.     if (y == 1) {            /* Simple variable */
  550.         if ((y = cmtxt("Definition of variable","",&s,NULL)) < 0)
  551.           return(y);
  552.         s = brstrip(s);
  553.         debug(F110,"xxdef var name",vnp,0);
  554.         debug(F110,"xxdef var def",s,0);
  555.     } else if (y == 2) {        /* Array element */
  556.         if ((y = arraynam(s,&x,&z)) < 0) return(y);
  557.         if (x == 96) {
  558.         printf("?Argument vector array is read-only\n");
  559.         return(-9);
  560.         }
  561.         if (chkarray(x,z) < 0) return(-2);
  562.         if ((y = cmtxt("Definition of array element","",&s,NULL)) < 0)
  563.           return(y);
  564.         debug(F110,"xxdef array ref",vnp,0);
  565.         debug(F110,"xxdef array def",s,0);
  566.     }
  567.     } else {                /* Macro */
  568.     if (cx == XXUNDEF) {        /* Undefine */
  569.         if ((y = cmcfm()) < 0) return(y);
  570.         delmac(vnp);
  571.         return(success = 1);
  572.     }
  573.     if ((y = cmtxt("Definition of macro","",&s,NULL)) < 0) return(y);
  574.     debug(F110,"xxdef macro name",vnp,0);
  575.     debug(F110,"xxdef macro def",s,0);
  576.     if (*s == '{') {        /* Allow macro def to be bracketed. */
  577.         s++;            /* If it is, remove the brackets. */
  578.         y = (int)strlen(s);        /* FOR command depends on this! */
  579.         if (y > 0 && s[y-1] == '}') s[y-1] = NUL;
  580.     }
  581.     }
  582.     if (*s == NUL) {            /* No arg given, undefine */
  583.     delmac(vnp);            /* silently... */
  584.     return(success = 1);        /* even if it doesn't exist... */
  585.     } 
  586.  
  587.     /* Defining a new macro or variable */
  588.  
  589.     if (cx == XXASS || cx == XXASX) {    /* ASSIGN rather than DEFINE? */
  590.     int t;
  591.     t = LINBUFSIZ-1;
  592.     lp = line;            /* If so, expand its value now */
  593.     zzstring(s,&lp,&t);
  594.     s = line;
  595.     }
  596.     debug(F111,"calling addmac",s,(int)strlen(s));
  597.  
  598.     y = addmac(vnp,s);            /* Add it to the appropriate table. */
  599.     if (y < 0) {
  600.     printf("?%s failed\n",(cx == XXASS || cx == XXASX) ?
  601.            "ASSIGN" : "DEFINE");
  602.     return(success = 0);
  603.     } else if (cx == XXASX || cx == XXDFX) /* For _ASG or _DEF, */
  604.       return(1);               /* don't change success variable */
  605.     else
  606.       return(success = 1);
  607. }
  608. #endif /* NOSPL */
  609.  
  610.  
  611. #ifndef NODIAL
  612. /*
  613.    L U D I A L  --  Lookup up dialing directory entry.
  614.   
  615.    Call with string to look up and file descriptor of open dialing directory
  616.    file.  On success, returns number of matches found, with numbers stored
  617.    in an array accessible via getdnum().
  618. */
  619. static char *dn_p[MAXDNUMS + 1];    /* Dial Number pointers */
  620. static char *dn_p2[MAXDNUMS + 1];    /* Converted dial number pointers */
  621. static int dn_x[MAXDNUMS + 1];        /* Type of call */
  622. static int dncount = 0;
  623. char * d_name = NULL;            /* Dial name pointer */
  624.  
  625. char *                    /* Get dial directory entry name */
  626. getdname() {
  627.     return(d_name ? d_name : "");
  628. }
  629.  
  630. char *
  631. getdnum(n) int n; {            /* Get dial number n from directory */
  632.     if (n < 0 || n > dncount || n > MAXDNUMS)
  633.       return("");
  634.     else
  635.       return(dn_p[n]);
  636. }
  637.  
  638. char *            /* Check area code for spurious leading digit */
  639. chk_ac(i,buf) int i; char buf[]; {
  640.     char *p;
  641.     if (!buf)
  642.       return("");
  643.     p = (char *) buf;            /* Country we are calling: */
  644.     if (i ==  44 ||            /* UK */
  645.     i ==  49 ||            /* Germany */
  646.     i ==  39 ||            /* Italy */
  647.     i ==  31 ||            /* Netherlands */
  648.     i == 351 ||            /* Portugal */
  649.     i ==  55 ||            /* Brazil */
  650.     i == 972 ||            /* Israel */
  651.     i ==  41 ||            /* Switzerland */
  652.     i ==  43 ||            /* Austria */
  653.     i ==  42 ||            /* Czech Republic */
  654.     i ==  36 ||            /* Hungary */
  655.     i ==  30 ||            /* Greece */
  656.     i == 352 ||            /* Luxembourg */
  657.     i ==  48 ||            /* Poland */
  658.     i ==  27 ||            /* South Africa */
  659.     ((i == 33) && ((int) strcmp(zzndate(),"19961017") > 0))    /* France */
  660.     ) {
  661.     if (buf[0] == '0')
  662.       p++;
  663.     } else if (i == 358) {        /* Finland */
  664.     char c = '9';
  665.     if ((int) strcmp(zzndate(),"19961011") > 0)
  666.       c = '0';
  667.     if (buf[0] == c)        /* But only until 12 Oct 96! */
  668.       p++;
  669.     }
  670.     return(p);
  671. }
  672.  
  673. static int
  674. dncvt(k,cx) int k, cx; {        /* Dial Number Convert */
  675.     int i, j, n, what;
  676.     char *ss;
  677.     char *p, *pxo;
  678.     char **pp;
  679.     char *lac;
  680.     char *npr;
  681.     char *sfx;
  682.     char ccbuf[128];
  683.     int cc;
  684.     char acbuf[24];
  685.     char *acptr;
  686.     char outbuf[256];
  687.  
  688. #define DN_INTERN 0
  689. #define DN_FREE   1
  690. #define DN_LOCAL  2
  691. #define DN_UNK    3
  692. #define DN_LONG   4
  693. #define DN_INTL   5
  694. /*
  695.   First pass for strict (punctuation-based) interpretation.
  696.   If it fails, we try the looser (length-based) one.
  697. */
  698.     what = 0;                /* Type of call */
  699.     s = dn_p[k];            /* Number to be converted. */
  700.     debug(F111,"dncvt",s,k);
  701.     if (dn_p2[k]) {
  702.     free(dn_p2[k]);
  703.     dn_p2[k] = NULL;
  704.     }
  705.     if (!s) {
  706.     printf("Error - No phone number to convert\n");
  707.     return(-1);
  708.     }
  709.     pp = &(dn_p2[k]);            /* Address for converted number */
  710.  
  711.     if (tttapi) {            /* When using TAPI */
  712.     npr = "";            /* TAPI supplies all the */
  713.     sfx = "";            /* prefixes and suffixes */
  714.     pxo = "";
  715.     } else {
  716.     npr = dialnpr ? dialnpr : "";
  717.     sfx = dialsfx ? dialsfx : "";
  718.     pxo = dialpxo ? dialpxo : "";
  719.     }
  720.     lac = diallac ? diallac : "";    /* Local area code */
  721.  
  722.     outbuf[0] = NUL;            /* Initialize conversion buffer */
  723.     ss = s;                /* Remember original string */
  724.  
  725.     if (*s != '+') {            /* Literal number */
  726.     sprintf(outbuf,            /* Sandwich it between */
  727.         "%s%s%s%s",        /* DIAL PREFIX and SUFFIX */
  728.         pxo,npr,s,sfx
  729.         );
  730.     makestr(pp, outbuf);
  731.     dn_x[k] = DN_UNK;        /* Sort key is "unknown". */
  732.     return(0);            /* Done. */
  733.     }
  734.     i = 0;                /* Portable number */
  735.     s++;                /* Tiptoe past the plus sign */
  736.     ccbuf[0] = NUL;            /* Do country code first */
  737.  
  738.     if (!diallcc) {            /* Do we know our own? */
  739.     if (cx != XXLOOK)
  740.       printf("Error - prior SET DIAL COUNTRY-CODE command required\n");
  741.     return(-1);
  742.     }
  743.  
  744.     /* Parse the number */
  745.  
  746.     while (1) {                /* Get the country code */
  747.         while (*s == HT || *s == SP)
  748.       s++;
  749.     if (!s)                /* Not in standard format */
  750.       break;
  751.         if (*s == '(') {        /* Beginning of area code  */
  752.         s++;            /* Skip past parenthesis   */
  753.         ccbuf[i] = NUL;        /* End of country code */
  754.         if (!s) {            /* Check for end of string */
  755.         printf("Error - phone number ends prematurely: \"%s\"\n",ss);
  756.         return(-1);
  757.         }
  758.         break;
  759.     } else {            /* Collect country code */
  760.         if (isdigit(*s))
  761.           ccbuf[i++] = *s;        /* copy this character */
  762.         s++;
  763.         if (!*s || i > 127)        /* watch out for memory leak */
  764.           break;
  765.     }
  766.     }
  767.     cc = atoi(ccbuf);            /* Numeric version of country code */
  768.  
  769.     i = 0;                /* Now get area code */
  770.     acbuf[0] = NUL;            /* Initialize area-code buffer */
  771.     acptr = acbuf;            /* and pointer. */
  772.     while (1) {
  773.         while (*s == HT || *s == SP)    /* Ignore whitespace */
  774.       s++;
  775.     if (!s)                /* String finished */
  776.       break;
  777.     if (*s == ')') {        /* End of area code  */
  778.         s++;            /* Skip past parenthesis   */
  779.         acbuf[i] = NUL;        /* Terminate area-code buffer */
  780.         break;
  781.     } else {            /* Part of area code */
  782.         if (isdigit(*s))        /* If it's a digit, */
  783.           acbuf[i++] = *s;        /* copy this character */
  784.         s++;            /* Point to next */
  785.         if (!*s || i > 23)        /* Watch out for overflow */
  786.           break;
  787.     }
  788.     }
  789.  
  790. /*
  791.    Here we strip any leading 0 for countries that we know have
  792.    0 as a long-distance prefix and do not have any area codes that
  793.    start with 0 (ditto for "9" in Finland...)
  794. */
  795.     i = atoi(ccbuf);
  796.     acptr = chk_ac(i,acbuf);
  797.  
  798.     while (*s == HT || *s == SP)    /* Skip whitespace */
  799.       s++;
  800.  
  801. /* printf("S=[%s], ACPTR=[%s]\n",s,acptr); */
  802.  
  803.     if (*s && *acptr) {            /* Area code was delimited */
  804.  
  805.     while (*s == '-' || *s == '.')    /* Skip past gratuitious punctuation */
  806.       s++;
  807.     if (!*s) s--;            /* But not to end of string */
  808.  
  809.     if (strcmp(diallcc,ccbuf)) {    /* Out of country? */
  810.         char * p2;
  811.         if (!dialixp) {        /* Need intl-prefix */
  812.         if (cx != XXLOOK)
  813.           printf("Error - No international dialing prefix defined\n");
  814.         return(-1);
  815.         }
  816.         what = dn_x[k] = DN_INTL;
  817.         if (tttapi) {
  818.         p  = "";        /* Intl-suffix */
  819.         p2 = "";        /* Intl-prefix */
  820.         } else {
  821.         p  = dialixp ? dialixp : ""; /* Intl-prefix */
  822.         p2 = dialixs ? dialixs : ""; /* Intl-suffix */
  823.         }
  824.         sprintf(outbuf,        /* Form the final phone number */
  825.             "%s%s%s%s%s%s%s%s",
  826.             pxo,npr,p,ccbuf,acptr,s,p2,sfx
  827.             );
  828.     } else if (strcmp(lac,acptr)) { /* In-country */
  829.         char * p2;
  830. #ifdef COMMENT
  831. /* Wrong - Sometimes it has to be null, e.g. for NANP 10-digit dialing... */
  832.         if (!dialldp) {        /* Out of area code */
  833.         if (cx != XXLOOK)    /* Need ld-prefix */
  834.           printf("Error - No long-distance prefix defined\n");
  835.         return(-1);
  836.         }
  837. #endif /* COMMENT */
  838.         if (!diallac && cx != XXLOOK) { /* Don't know my own area code */
  839.         if (cc == 1)
  840.           printf("WARNING - Prior SET DIAL AREA-CODE needed\n");
  841.         }
  842.  
  843.         what = dn_x[k] = DN_LONG;    /* Long-distance */
  844.  
  845.         for (i = 0; i < ntollfree; i++) { /* Check for toll-free call */
  846.         if (!strcmp(acptr,dialtfc[i])) {
  847.             what = dn_x[k] = DN_FREE;          
  848.             break;
  849.         }
  850.         }
  851.         if (tttapi) {        /* TAPI supplies its own */
  852.         p  = "";        /* ld-suffix */
  853.         p2 = "";        /* ld-prefix */
  854.         } else if (what == DN_FREE) { /* Toll-free call */
  855.         p = dialtfp ? dialtfp : (dialldp ? dialldp : "");
  856.         p2 = "";        /* no suffix */
  857.         } else {            /* normal long distance */
  858.         p  = dialldp ? dialldp : ""; /* ld-prefix */
  859.         p2 = diallds ? diallds : ""; /* ld-suffix */
  860.         }
  861.         sprintf(outbuf,"%s%s%s%s%s%s%s", /* Form the number to be dialed */
  862.             pxo,npr,p,acptr,s,p2,sfx
  863.             );
  864.     } else {            /* Same country, same area code */
  865.         what = dn_x[k] = DN_LOCAL;    /* So it's a local call. */
  866.         if (!dialpxo || tttapi) {    /* TAPI or not dialing out from PBX */
  867.         sprintf(outbuf,"%s%s%s",
  868.             npr,s,sfx
  869.             );
  870.         } else {            /* Dialing from a PBX and not TAPI */
  871.         if (dialpxx) {        /* Is it internal? */
  872.             i = (int) strlen(dialpxx);
  873.             j = (int) strlen(s);
  874.             x = -1;
  875.             if (j > i)
  876.               x = xxstrcmp(dialpxx,s,i);
  877.             if (!x) {
  878.             what = dn_x[k] = DN_INTERN;   /* Internal call. */
  879.             s += i;
  880.             p = (dialpxi) ? dialpxi : ""; /* Internal prefix */
  881.             sprintf(outbuf,"%s%s%s%s",    
  882.                 npr,p,s,sfx
  883.                 );
  884.             } else {    /* External local call */
  885.             sprintf(outbuf,"%s%s%s%s",
  886.                 dialpxo,npr,s,sfx
  887.                 );
  888.             }
  889.         }
  890.         }
  891.     }
  892.  
  893.     } else {                /* Area code was not delimited */
  894.  
  895.     char xbuf[256];            /* Comparison based only on length */
  896.     char ybuf[256];
  897.     s = ss;
  898.     for (i = 0; i < 255; i++) {
  899.         if (!*s)
  900.           break;
  901.         while (!isdigit(*s))    /* Only pay attention to digits */
  902.           s++;
  903.         xbuf[i] = *s++;
  904.     }
  905.     xbuf[i] = NUL;
  906.     sprintf(ybuf,"%s%s",diallcc,lac);
  907.     n = (int) strlen(ybuf);
  908.     if (n > 0 && !xxstrcmp(xbuf,ybuf,n)) { /* Local call */
  909.         dn_x[k] = DN_LOCAL;
  910.         s = xbuf + n;
  911.         sprintf(outbuf,"%s%s%s%s",pxo,npr,s,sfx);
  912.     } else {            /* Not local */
  913.         sprintf(ybuf,"%s",diallcc);
  914.         n = (int) strlen(ybuf);
  915.         if (n > 0 && !xxstrcmp(xbuf,ybuf,n)) { /* Long distance */
  916.         char * p2;
  917.         dn_x[k] = DN_LONG;
  918. #ifdef COMMENT
  919.         if (!dialldp) {
  920.             if (cx != XXLOOK && !tttapi)
  921.               printf("Error - No long-distance prefix defined\n");
  922.             return(-1);
  923.         }
  924. #endif /* COMMENT */
  925.         if (tttapi) {
  926.             p = "";
  927.             p2 = "";
  928.         } else {
  929.             p = dialldp ? dialldp : "";
  930.             p2 = diallds ? diallds : "";
  931.         }
  932.         s = xbuf + n;
  933.         while (*s == '-' || *s == '.')
  934.           s++;
  935.         sprintf(outbuf,"%s%s%s%s%s%s",pxo,npr,p,s,p2,sfx);
  936.         } else {
  937.         char * p2;        /* International */
  938.         dn_x[k] = DN_INTL;
  939.         if (!dialixp) {
  940.             if (cx != XXLOOK && !tttapi) {
  941.             printf(
  942.               "Error - No international dialing prefix defined\n"
  943.                    );
  944.             return(-1);
  945.             }
  946.         }
  947.         if (tttapi) {
  948.             p = "";
  949.             p2 = "";
  950.         } else {
  951.             p = dialixp ? dialixp : ""; 
  952.             p2 = dialixs ? dialixs : "";
  953.         }
  954.         sprintf(outbuf,"%s%s%s%s%s%s",pxo,npr,p,xbuf,p2,sfx);
  955.         }
  956.     }
  957.     }
  958.     makestr(pp, outbuf);
  959.     return(0);
  960. }
  961.  
  962. static int
  963. ddcvt(s, f, n) char * s; FILE * f; int n; { /* Dial Directory Convert */
  964.     char *line, *s2;            /* buffers */
  965. #ifdef VMS
  966.     char * temp;
  967. #endif /* VMS */
  968.     char *info[8];            /* Pointers to words from entry */
  969.     FILE * f2;
  970.     int x, rc;
  971.     rc = -1;
  972.  
  973.     if (!s || !f)            /* No filename or file */
  974.       return(-1);
  975.     if ((int) strlen(s) < 1)
  976.       return(-1);
  977.     if (!(line = malloc(1024)))        /* Allocate input buffer */
  978.       return(-1);
  979.     f2 = NULL;
  980.  
  981.     fclose(f);
  982.     znewn(s,&s2);            /* s2 = address of static buffer */
  983. #ifdef VMS
  984.     temp = s2;                /* Swap - otherwise the new */
  985.     s2 = s;                /* version has the older version */
  986.     s = temp;                /* number... */
  987.     if (temp =  (char *)malloc((int)strlen(s)+1))
  988.       strcpy(temp,s);
  989.     if (dialdir[n])            /* Replace filename in list */
  990.       free(dialdir[n]);
  991.     dialdir[n] = temp;
  992.     s = temp;
  993. #else
  994.     if (zrename(s,s2) < 0) {        /* Not VMS - rename old file */
  995.     perror(s2);            /* to new (wierd) name. */
  996.     goto ddexit;
  997.     }
  998. #endif /* VMS */
  999.     if ((f = fopen(s2,"r")) == NULL) {    /* Reopen old file with wierd name */
  1000.     dirline = 0;            /* (or in VMS, old version) */
  1001.     perror(s2);
  1002.     goto ddexit;
  1003.     }
  1004.     if ((f2 = fopen(s,"w")) == NULL) {    /* Create new file with old name */
  1005.     perror(s);            /* (or in VMS, new version) */
  1006.     goto ddexit;
  1007.     }
  1008.     printf("\nSaving old directory as %s.\nConverting %s...",s2,s);
  1009.     fprintf(f2,"; %s - Kermit dialing directory\n", s);
  1010.     fprintf(f2,"%-16s %-20s ; %5s %-6s ; %s\n",
  1011.            "; Name","Number","Speed","Parity","Comment"
  1012.            );
  1013.  
  1014.     while (1) {
  1015.     line[0] = NUL;            /* Read a line */
  1016.     if (fgets(line,1023,f) == NULL)
  1017.       break;
  1018.     if (!line[0]) {            /* Empty line */
  1019.         fprintf(f2,"\n");
  1020.         continue;
  1021.     }
  1022.     x = (int) strlen(line);        /* Strip line terminator, */
  1023.     while (x-- > 0) {        /* if any. */
  1024.         if (line[x] <= SP)
  1025.           line[x] = NUL;
  1026.         else
  1027.           break;
  1028.     }
  1029.     xwords(line,5,info,1);        /* Parse it the old way */
  1030.     for (x = 1; x < 6; x++)
  1031.       if (!info[x]) info[x] = "";
  1032.     fprintf(f2,"%-16s %-20s ; %5s %-6s %s\n",
  1033.            info[1],info[2],info[3],info[4],info[5]
  1034.            );
  1035.     }    
  1036.     printf(" OK\n\n");
  1037.     rc = 0;                /* Success */
  1038.   ddexit:
  1039.     if (f) fclose(f);
  1040.     if (f2) fclose(f2);
  1041.     if (line) free(line);
  1042.     return(rc);
  1043. }
  1044.  
  1045. int                    /* s = name to look up   */
  1046. #ifdef CK_ANSIC                /* cx = index of command */
  1047. ludial(char *s, int cx)            /* (DIAL, LOOKUP, etc)   */
  1048. #else
  1049. ludial(s, cx) char *s; int cx;
  1050. #endif /* CK_ANSIC */
  1051. /* ludial */ {
  1052.  
  1053.     int dd, n1, n2, n3, i, j, t;    /* Workers */
  1054.     int olddir, newdir, oldentry, newentry;
  1055.     int pass = 0;
  1056.     int oldflg = 0;
  1057.     int ambiguous = 0;            /* Flag for lookup was ambiguous */
  1058.     char *info[7];            /* Pointers to words from entry */
  1059.     char *pp;                /* Pointer to element of array */
  1060.     FILE * f;
  1061.     char *line;                /* File input buffer */
  1062.  
  1063. /* #define LUDEBUG */
  1064.  
  1065. #ifdef LUDEBUG
  1066. int zz = 1;
  1067. #endif /* LUDEBUG */
  1068.  
  1069.     if (!s || ndialdir < 1)        /* Validate arguments */
  1070.       return(-1);
  1071.  
  1072.     if ((n1 = (int) strlen(s)) < 1)    /* Length of string to look up */
  1073.       return(-1);
  1074.  
  1075.     if (!(line = malloc(1024)))        /* Allocate input buffer */
  1076.       return(-1);
  1077.  
  1078. #ifdef LUDEBUG
  1079. if (zz) printf("LUDIAL 1 s[%s], n1=%d\n",s,n1);
  1080. #endif /* LUDEBUG */
  1081.  
  1082.     pass = 0;
  1083.   lu_again:
  1084.     f = NULL;                /* Dial directory file descriptor */
  1085.     t = dncount = 0;            /* Dial-number match count */
  1086.     dd = 0;                /* Directory counter */
  1087.     olddir = 0;
  1088.     newdir = 0;
  1089. /*
  1090.   We need to recognize both old- and new-style directories.
  1091.   But we can't allow old-style and new-style entries in the same
  1092.   directory because there is no way to tell for sure the difference between
  1093.   and old-style entry like this:
  1094.  
  1095.     foo  5551212  9600
  1096.  
  1097.   and a new-style literal entry like this:
  1098.  
  1099.     foo  555 9600
  1100.  
  1101.   I.e. is the "9600" a speed, or part of the phone number?
  1102. */
  1103.     while (1) {                /* We make one pass */
  1104.     if (!f) {            /* Directory not open */
  1105.             if (dd >= ndialdir)        /* No directories left? */
  1106.           break;            /* Done. */
  1107.         if ((f = fopen(dialdir[dd],"r")) == NULL) { /* Open it */
  1108.         perror(dialdir[dd]);    /* Can't, print message saying why */
  1109.         if (line) {
  1110.             free(line);
  1111.             line = NULL;
  1112.         }
  1113.         dd++;            /* Go on to next one, if any... */
  1114.         continue;
  1115.         }
  1116.         dirline = 0;        /* Directory file line number */
  1117.         if (dialdpy && !pass)
  1118.           printf("Opening: %s...\n",dialdir[dd]);
  1119.             dd++;
  1120.         if (!oldflg) olddir = 0;
  1121.         newdir = 0;
  1122.     }
  1123.     oldentry = 0;
  1124.     newentry = 0;
  1125.     line[0] = NUL;
  1126.     if (getnct(line,1023,f,1) < 0) { /* Read a line */
  1127.         if (f) {            /* f can be clobbered! */
  1128.         fclose(f);        /* Close the file */
  1129.         f = NULL;        /* Indicate next one needs opening */
  1130.         oldflg = 0;
  1131.         }
  1132.         continue;
  1133.     }
  1134.     if (!line[0])            /* Empty line */
  1135.       continue;
  1136. #ifdef LUDEBUG
  1137. if (zz) printf("LUDIAL 2 s[%s]\n",s);
  1138. #endif /* LUDEBUG */
  1139.  
  1140.     /* Make a copy and parse it the old way */
  1141.     /* A copy is needed because xwords() pokes NULs into the string */
  1142.  
  1143.     if (pp = malloc((int)strlen(line) + 1)) {
  1144.         strcpy(pp,line);
  1145.         xwords(pp,5,info,0);    /* Parse it the old way */
  1146.  
  1147. #ifdef LUDEBUG
  1148. if (zz) printf("LUDIAL 3 s[%s]\n",s);
  1149. #endif /* LUDEBUG */
  1150.  
  1151.         if (!info[1])
  1152.           continue;
  1153.         if (*info[1] == ';') {    /* If full-line comment, */
  1154.         newdir = 1;        /* (only new directories have them) */
  1155.         continue;        /* keep reading. */
  1156.         }
  1157.         if (!info[2]) 
  1158.           continue;
  1159.         if (*info[2] == '+')
  1160.           newentry = 1;
  1161.         if (info[4]) {
  1162.         if ((*info[4] == '=') ||
  1163.             !xxstrcmp(info[4],"none", 4) ||
  1164.             !xxstrcmp(info[4],"even", 4) ||
  1165.             !xxstrcmp(info[4],"space",5) ||
  1166.             !xxstrcmp(info[4],"mark", 4) ||
  1167.             !xxstrcmp(info[4],"odd",  3)
  1168.             )
  1169.           oldentry = 1;
  1170.         }
  1171.     }
  1172.     if (pp) {
  1173.         free(pp);
  1174.         pp = NULL;
  1175.     }
  1176.  
  1177.     /* Check consistency */
  1178.  
  1179.     if ((oldentry || olddir) && (newentry || newdir)) {
  1180.         printf(
  1181. "\nERROR: You seem to have old- and new-format entries mixed in your\n");
  1182.         printf(
  1183. "dialing directory.  You'll have to edit it by hand to convert it to the\n");
  1184. #ifndef NOHELP
  1185.         printf("new format.  Type HELP DIAL for further information.\n\n");
  1186. #else
  1187.         printf("new format.\n\n");
  1188. #endif /* NOHELP */
  1189.         if (line) {
  1190.         free(line);
  1191.         line = NULL;
  1192.         }
  1193.         return(-1);
  1194.     }
  1195.     if (!olddir && oldentry) {
  1196.         int convert = 0;
  1197.         olddir = 1;
  1198.         if (dialcvt == 2) {        /* 2 == ASK */
  1199.         printf(
  1200. "\nWARNING: Old-style dialing directory detected:\n%s\n\n", line);
  1201.         convert = getyesno("Shall I convert it for you? ");
  1202.         } else
  1203.           convert = dialcvt;
  1204.         if (convert) {
  1205.         if (ddcvt(dialdir[dd-1],f,dd-1) < 0) {
  1206.             oldflg = 1;
  1207.             printf(
  1208. "  Sorry, can't convert.");
  1209.             printf(
  1210. "  Will ignore speed and parity fields, continuing...\n\n");
  1211.         } else {
  1212.             olddir = newdir = 0;
  1213.         }
  1214.         dd--;
  1215.         f = NULL;
  1216.         continue;
  1217.         } else {
  1218.         if (dialcvt == 2)
  1219.           printf(
  1220. "  OK, will ignore speed and parity fields, continuing...\n\n");
  1221.         olddir = 1;
  1222.         }
  1223.     }
  1224.  
  1225. #ifdef LUDEBUG
  1226. if (zz) printf("LUDIAL XX s[%s], n1=%d\n",s,n1);
  1227. #endif /* LUDEBUG */
  1228.  
  1229.     /* Now parse again for real */
  1230.  
  1231.     if (oldentry)            /* Parse it the old way */
  1232.       xwords(line,5,info,0);
  1233.     else                /* Parse it the new way */
  1234.       xwords(line,2,info,1);
  1235.  
  1236. #ifdef LUDEBUG
  1237. if (zz) printf("LUDIAL YY s[%s], n1=%d\n",s,n1);
  1238. if (zz) printf("%s [%s]\n",info[1],info[2]);
  1239. #endif /* LUDEBUG */
  1240.  
  1241.     if (info[1]) {            /* First word is entry name */
  1242.         if ((n3 = (int) strlen(info[1])) < 1) /* Its length */
  1243.           continue;            /* If no first word, keep reading. */
  1244.         if (n3 < n1)        /* Search name is longer */
  1245.           continue;            /* Can't possibly match */
  1246.         if (ambiguous && n3 != n1)
  1247.           continue;
  1248.  
  1249. #ifdef LUDEBUG
  1250. if (zz) printf("MATCHING: [%s] [%s], n1=%d\n",s,info[1],n1);
  1251. #endif /* LUDEBUG */
  1252.  
  1253.         if (xxstrcmp(s,info[1],n1)) /* Caseless string comparison */
  1254.           continue;
  1255.  
  1256. #ifdef LUDEBUG
  1257. if (zz) printf("MATCH OK: [%s] [%s], n1=%d\n",s,info[1],n1);
  1258. #endif /* LUDEBUG */
  1259.  
  1260.         if (!info[2])        /* No phone number given */
  1261.           continue;
  1262.         if ((n2 = (int) strlen(info[2])) < 1) /* Length of phone number */
  1263.           continue;            /* Ignore empty phone numbers */
  1264.  
  1265.         /* Got one */
  1266.  
  1267.         if (!(pp = (char *)malloc(n2 + 1))) { /* Allocate storage for it */
  1268.         printf("?internal error - ludial malloc 1\n");
  1269.         if (line) {
  1270.             free(line);
  1271.             line = NULL;
  1272.         }
  1273.         dncount = 0;
  1274.         return(-1);
  1275.         }
  1276.         strcpy(pp,info[2]);        /* Copy number into malloc'd storage */
  1277.  
  1278.         if (dncount > MAXDNUMS) {
  1279.         printf("Warning: %d matches found, %d max\n",
  1280.                dncount,
  1281.                MAXDNUMS
  1282.                );
  1283.         dncount = MAXDNUMS;
  1284.         break;
  1285.         }
  1286.         dn_p[dncount++] = pp;    /* Add pointer to array. */
  1287.         if (dncount == 1) {        /* First one... */
  1288.         if (d_name) free(d_name);
  1289.         if (!(d_name = (char *)malloc(n3 + 1))) { /* Save its name */
  1290.             printf("?internal error - ludial malloc 2\n");
  1291.             if (line) {
  1292.             free(line);
  1293.             line = NULL;
  1294.             }
  1295.             dncount = 0;
  1296.             return(-1);
  1297.         }
  1298.         t = n3;            /* And its length */
  1299.         strcpy(d_name,info[1]);
  1300.         } else {            /* Second or subsequent one */
  1301.  
  1302. #ifdef LUDEBUG
  1303.         if (zz)
  1304.           printf("d_name=[%s],info[1]=%s,t=[%d]\n",d_name,info[1],t);
  1305. #endif /* LUDEBUG */
  1306.  
  1307.         if ((int) strlen(info[1]) == t) /* Lengths compare */
  1308.           if (!xxstrcmp(d_name,info[1],t)) /* Caseless compare OK */
  1309.             continue;
  1310.  
  1311.         /* Name given by user matches entries with different names */
  1312.  
  1313.         if (ambiguous)        /* Been here before */
  1314.           break;
  1315.  
  1316.         ambiguous = 1;        /* Now an exact match is required */
  1317.         for (j = 0; j < dncount; j++) { /* Clean out previous list */
  1318.             if (dn_p[j]) {
  1319.             free(dn_p[j]);
  1320.             dn_p[j] = NULL;
  1321.             }
  1322.         }
  1323.         pass++;            /* Second pass... */
  1324.         goto lu_again;        /* Do it all over again. */
  1325.         }
  1326.     }
  1327.     }
  1328.     if (line) free(line);
  1329.     if (dncount == 0 && ambiguous) {
  1330.     printf(" Lookup: \"%s\" - ambiguous%s\n",
  1331.            s,
  1332.            cx == XXLOOK ? "" : " - dialing skipped"
  1333.            );
  1334.     return(-2);
  1335.     }
  1336.     return(dncount);
  1337. }
  1338.  
  1339. static char *dscopy = NULL;
  1340.  
  1341. int
  1342. dodial(cx) int cx; {            /* DIAL or REDIAL */
  1343.     int i = 0, x = 0;            /* Workers */
  1344.     int sparity = -1;            /* For saving global parity value */
  1345.     int partial  = 0;            /* For partial dial */
  1346.     int previous = 0;
  1347.     int len = 0;
  1348.     int literal = 0;
  1349.  
  1350.     char *p = NULL, *s3 = NULL, **s2 = NULL;
  1351.     int j = 0, t = 0, n = 0;
  1352.  
  1353.     if (cx == XXPDIA) {            /* Shortcut... */
  1354.     cx = XXDIAL;
  1355.     partial = 1;
  1356.     }
  1357.     previous = dialsta;            /* Status of previous call, if any */
  1358.  
  1359.     if (cx != XXLOOK) {
  1360.     if (mdmtyp < 1) {
  1361.         if (network)
  1362.           printf("Please SET HOST first, and then SET MODEM\n");
  1363.         else
  1364.           printf("Sorry, you must SET MODEM first\n");
  1365.         dialsta = DIA_NOMO;
  1366.         return(0);
  1367.     }
  1368.     if (!local) {
  1369.         printf("Sorry, you must SET LINE or SET HOST first\n");
  1370.         dialsta = DIA_NOLI;
  1371.         return(0);
  1372.     }
  1373.     if (!network &&
  1374.         (speed < 0L)
  1375. #ifdef UNIX
  1376.         && (strcmp(ttname,"/dev/null"))
  1377. #else
  1378. #ifdef OSK
  1379.         && (strcmp(ttname,"/nil"))
  1380. #endif /* OSK */
  1381. #endif /* UNIX */
  1382.         ) {
  1383.         printf("Sorry, you must SET SPEED first\n");
  1384.         dialsta = DIA_NOSP;
  1385.         return(0);
  1386.     }
  1387.     }
  1388.     s = NULL;                /* Initialize user's dial string */
  1389.     if (cx == XXRED) {            /* REDIAL or... */
  1390.     if ((y = cmcfm()) < 0)
  1391.       return(y);
  1392.     } else if (cx == XXANSW) {        /* ANSWER or ... */
  1393.     if ((y = cmnum("timeout (seconds)","0",10,&x,xxstring)) < 0)
  1394.       return(y);
  1395.     dialatmo = x;
  1396.     if ((y = cmcfm()) < 0)
  1397.       return(y);
  1398.     } else {                /* DIAL or LOOKUP */
  1399.     if (ndialdir > 0)
  1400.       s3 = "Number to dial or entry from dial directory";
  1401.     else
  1402.       s3 = "Number to dial";
  1403.     if ((x = cmtxt(s3, dialnum ? dialnum : "",&s,xxstring)) < 0)
  1404.       return(x);
  1405.     if (s) {
  1406.         len = (int) strlen(s);
  1407.         if (len > 1) {        /* Strip outer braces if given */
  1408.         if (*s == '{') {
  1409.             if (s[len-1] == '}') {
  1410.             s[len-1] = NUL;
  1411.             s++;
  1412.             len -= 2;
  1413.             }
  1414.         }
  1415.         }
  1416.     }        
  1417.     }
  1418.     if (cx != XXANSW) {
  1419.     for (j = 0; j < MAXDNUMS; j++) { /* Initialize dial-number list */
  1420.         if (!dialnum) {        /* First time dialing */
  1421.         dn_p[j] = NULL;        /* initialize all pointers. */
  1422.         dn_p2[j] = NULL;
  1423.         } else if (dn_p[j]) {    /* Not the first time, */
  1424.         free(dn_p[j]);        /* free previous, if any, */
  1425.         dn_p[j] = NULL;        /* then set to NULL. */
  1426.         if (dn_p2[j])
  1427.           free(dn_p2[j]);
  1428.         dn_p2[j] = NULL;
  1429.         } else break;        /* Already NULL */
  1430.     }
  1431.     if (len == 0)
  1432.       s = NULL;
  1433.     if (!s)
  1434.       s = dialnum;
  1435.     if (!s) {
  1436.         if (cx == XXLOOK)
  1437.           printf("?Lookup what?\n");
  1438.         else
  1439.           printf("%s\n", (cx == XXRED) ?
  1440.            "?No DIAL command given yet" :
  1441.            "?You must specify a number to dial"
  1442.            );
  1443.         return(-9);
  1444.     }
  1445.  
  1446.     /* Now we have the "raw" dial or lookup string and s is not NULL */
  1447.  
  1448.     makestr(&dscopy,s);        /* Put it in a safe place */
  1449.     s = dscopy;
  1450.     n = 0;
  1451.  
  1452.     debug(F111,"dodial",s,ndialdir);
  1453.  
  1454.     if (isalpha(*s)) {
  1455.         if (ndialdir > 0) {        /* Do we have a dialing directory? */
  1456.         n = ludial(s,cx);    /* Look up what the user typed */
  1457.         if (n == 0)
  1458.           printf(" Lookup: \"%s\" - not found%s\n",
  1459.              s,
  1460.              cx == XXLOOK ? "" : " - dialing as given\n"
  1461.              );
  1462.         }
  1463.         debug(F101,"dodial",s,n);
  1464.         if (n < 0 && cx != XXLOOK) { /* Error out if they wanted to dial */
  1465.         if (n == -1)        /* -2 means ludial already gave msg */
  1466.           printf(" Lookup: fatal error - dialing skipped\n");
  1467.         dialsta = DIA_DIR;
  1468.         return(-9);
  1469.         }    
  1470.     } else {            /* "=" forces no lookup. */
  1471.         n = 0;
  1472.         if (*s == '=') {        /* If number starts with = sign */
  1473.         s++;            /* strip it */
  1474.         literal = 1;        /* remember this */
  1475.         while (*s == SP) s++;    /* and then also any leading spaces */
  1476.         }
  1477.         if (ndialdir > 0)
  1478.           printf(" Lookup: skipped\n");
  1479.     }
  1480.  
  1481.     /* Save DIAL or successful LOOKUP string for future DIAL or REDIAL */
  1482.     /* But don't save pieces of partial dial ... */
  1483.  
  1484.     if ((cx == XXDIAL && partial == 0 && previous != DIA_PART) ||
  1485.         (cx == XXLOOK && n > 0)) {
  1486.         makestr(&dialnum,dscopy);
  1487.     }
  1488.     if (n > 0) {
  1489.         if (!quiet && !backgrd && dialdpy) {
  1490.         if (!strcmp(d_name,s))
  1491.           printf(" Lookup: \"%s\" - exact match\n",s);
  1492.         else
  1493.           printf(" Lookup: \"%s\" - uniquely matches \"%s\"\n",
  1494.              s,
  1495.              d_name
  1496.              );
  1497.         }
  1498.         if ((cx == XXLOOK) || (n > 1)  && !quiet && !backgrd && dialdpy) {
  1499.         printf(" %d telephone number%sfound for \"%s\"%s\n",
  1500.                n,
  1501.                (n == 1) ? " " : "s ",
  1502.                s,
  1503.                (n > 0) ? ":" : "."
  1504.                );
  1505.         s3 = getdname();
  1506.         }
  1507.         for (i = 0; i < n; i++) {    /* Convert */
  1508.         dn_x[i] = -1;
  1509.         if (dncvt(i,cx) < 0) {
  1510.             if (cx != XXLOOK) {
  1511.             dialsta = DIA_DIR;
  1512.             return(-9);
  1513.             }
  1514.         }
  1515.         }
  1516.         if (dialsrt && n > 1) {    /* Sort into optimal order */
  1517.         for (i = 0; i < n-1; i++) {
  1518.             for (j = i+1; j < n; j++) {
  1519.             if (dn_x[j] < dn_x[i]) {
  1520.                 t = dn_x[j];
  1521.                 dn_x[j] = dn_x[i];
  1522.                 dn_x[i] = t;
  1523.                 p = dn_p[j];
  1524.                 dn_p[j] = dn_p[i];
  1525.                 dn_p[i] = p;
  1526.                 p = dn_p2[j];
  1527.                 dn_p2[j] = dn_p2[i];
  1528.                 dn_p2[i] = p;
  1529.             }
  1530.             }
  1531.         }
  1532.         }
  1533.         if ((cx == XXLOOK) || (n > 1)  && !quiet && !backgrd && dialdpy) {
  1534.         int nn = n;
  1535.         if (cx != XXLOOK)
  1536.           if (n > 12) nn = 12;
  1537.         for (i = 0; i < nn; i++) {
  1538.             printf("%3d. %-12s  %-20s =>  %-20s  (%d)\n",i+1,
  1539.                s3, dn_p[i],
  1540.                dn_p2[i] ? dn_p2[i] : "(processing failed)",
  1541.                dn_x[i]
  1542.                );
  1543.         }
  1544.         if (cx != XXLOOK && n != nn)
  1545.           printf("And %d more...\n", n - nn);
  1546.         }
  1547.     } else if (n == 0) {        /* Not found in directory */
  1548.         makestr(&(dn_p[0]),literal ? s : dscopy);
  1549.         makestr(&d_name,literal ? s : dscopy);
  1550.         dncount = 1;
  1551.         n = 1;
  1552.         if (dncvt(0,cx) < 0) {    /* In case they typed a */
  1553.         dialsta = DIA_DIR;    /* portable-format number ... */
  1554.         return(-9);
  1555.         }
  1556.     }
  1557.  
  1558. #ifdef NETCONN
  1559.     /* It's not good that the networks directory depends on NOT-NODIAL.. */
  1560.     if (cx == XXLOOK && dscopy) {    /* Networks here too... */
  1561.         extern char *nh_p[], *nh_p2[], *n_name;
  1562.         extern char *nh_px[4][MAXDNUMS+1];
  1563.         n = 0;
  1564.         if (nnetdir > 0) {        /* Do we have a network directory? */
  1565.         dirline = 0;
  1566.         n = lunet(dscopy);    /* Look up what the user typed */
  1567.         }
  1568.         if (n > -1) {
  1569.         int k;
  1570.         if (cx == XXLOOK && n == 0)
  1571.           printf(" Lookup: \"%s\" - not found\n",dscopy);
  1572.         else
  1573.           printf("%s %d network entr%s found for \"%s\"%s\n",
  1574.              cx == XXLOOK ? " Lookup:" : "",
  1575.              n,
  1576.              (n == 1) ? "y" : "ies",
  1577.              dscopy,
  1578.              (n > 0) ? ":" : "."
  1579.              );
  1580.  
  1581.         for (i = 0; i < n; i++) {
  1582.  
  1583.             printf("%3d. %-12s => %-9s %s",
  1584.                i+1,n_name,nh_p2[i],nh_p[i]);
  1585.             for (k = 0; k < 4; k++) {
  1586.             if (nh_px[k][i])
  1587.               printf(" %s",nh_px[k][i]);
  1588.             else
  1589.               break;
  1590.             }
  1591.             printf("\n");
  1592.         }
  1593.         }
  1594.     }
  1595. #endif /* NETCONN */
  1596.     if (cx == XXLOOK)
  1597.       return(success = 1);
  1598.     } /* cx != XXANSW */
  1599.  
  1600. #ifdef VMS
  1601.     conres();            /* So Ctrl-C/Y will work */
  1602. #endif /* VMS */
  1603. /*
  1604.   Some modems do not react well to parity.  Also, if we are dialing through a
  1605.   TCP/IP TELNET modem server, parity can be fatally misinterpreted as TELNET
  1606.   negotiations.
  1607.  
  1608.   This should work even if the user interrupts the DIAL command, because the
  1609.   DIAL module has its own interrupt handler.  BUT... if, for some reason, a
  1610.   dialing device actually *requires* parity (e.g. CCITT V.25bis says that even
  1611.   parity should be used), this might prevent successful dialing.  For that
  1612.   reason, we don't do this for V.25bis modems.
  1613. */
  1614.     sparity = parity;            /* Save current parity */
  1615.     if (dialcapas & CKD_V25 == 0)    /* If not V.25bis...  */
  1616.       parity = 0;            /* Set parity to NONE */
  1617.  
  1618.     if (cx == XXANSW) {            /* ANSWER */
  1619.     success = ckdial("",0,0,1);
  1620.     goto dialfin;
  1621.     }
  1622.  
  1623. /* Edit 192 adds the ability to dial repeatedly. */
  1624.  
  1625.     i = 0;
  1626.     do {
  1627.     if (i > 0) printf("\nDial attempt %d of %d...\n", i+1, dialrtr);
  1628.     success = 0;
  1629.     /* And the ability to dial alternate numbers. */
  1630.     /* Loop to dial each in a list of numbers for the same name... */
  1631.     for (j = 0; j < n && !success; j++) { /* until one answers. */
  1632.         s = dn_p2[j];        /* Next number in list */
  1633.         if (dn_x[j] >= dialrstr) {    /* Dial restriction */
  1634.         printf("Restricted: %s, skipping...\n",dn_p[j]);
  1635.         continue;
  1636.         }
  1637.         if (!s) s = dn_p[j];
  1638.         if (i == 0 && dialcnf) {
  1639.         printf("Dialing %s\n",s);
  1640.         x = getyesno(" Is this number correct? ");
  1641.         if (!x) {
  1642.             char **p;
  1643. #ifdef CK_RECALL
  1644.             int sv_recall;
  1645.             extern int on_recall;
  1646. #endif /* CK_RECALL */
  1647.             cmsavp(psave,PROMPTL);
  1648.             cmsetp(
  1649. #ifdef OS2
  1650. " Please enter the correct number,\r\n or press Enter to skip: "
  1651. #else
  1652. " Please enter the correct number,\r\n or press Return to skip: "
  1653. #endif /* OS2 */
  1654. );
  1655.             cmini(ckxech);
  1656.             x = -1;
  1657.             if (pflag) prompt(NULL);
  1658. #ifdef CK_RECALL
  1659.             sv_recall = on_recall;
  1660.             on_recall = 0;
  1661. #endif /* CK_RECALL */
  1662.             y = cmdgquo();
  1663.             cmdsquo(0);
  1664.             while (x < 0) {
  1665.             x = cmtxt("Corrected phone number","",&s,NULL);
  1666.             cmres();
  1667.             }
  1668.             if ((int) strlen(s) < 1) {
  1669.             cmsetp(psave);
  1670.             continue;
  1671.             }
  1672.             makestr(&(dn_p2[j]), s);
  1673.             cmdsquo(y);
  1674. #ifdef CK_RECALL
  1675.             on_recall = sv_recall;
  1676. #endif /* CK_RECALL */
  1677.             cmsetp(psave);
  1678.         }
  1679.         }
  1680. #ifdef COMMENT
  1681. /* for testing without dialing ... */
  1682.         success = 0;
  1683. #else
  1684.         success = ckdial(s,i,j,partial ? 3 : 0); /* Dial it */
  1685.         if (!success)
  1686.           if (dialsta < 8 ||    /* Break out if unrecoverable error */
  1687.           dialsta == DIA_INTR ||
  1688.           dialsta == DIA_ERR ||
  1689.           previous == DIA_PART
  1690.           )
  1691.           break;
  1692. #endif /* COMMENT */
  1693.     }
  1694.     if (success)            /* Succeeded, leave the outer loop */
  1695.       break;
  1696.     if (dialsta < 8 ||        /* Break out if unrecoverable error */
  1697.         dialsta == DIA_INTR ||
  1698.         dialsta == DIA_ERR ||
  1699.         previous == DIA_PART)
  1700.       break;
  1701.     if (++i >= dialrtr)        /* Break out if too many tries */
  1702.       break;
  1703.     if (!backgrd && !quiet) {
  1704.         printf(
  1705. "\nWill redial in %d second%s- press any key to redial immediately.\n",
  1706.                dialint,
  1707.                dialint == 1 ? " " : "s "
  1708.                );
  1709.         printf("Ctrl-C to cancel...\n");
  1710.         }
  1711.         x = dialint;        /* Redial interval */
  1712.         while (x-- > 0) {
  1713.         if (y = conchk())    /* Did they type something? */
  1714.           break;        /* If so, wake up */
  1715.         sleep(1);        /* No interrupt, sleep a sec */
  1716.         }
  1717.     } while (!success);
  1718.  
  1719.   dialfin:
  1720.  
  1721.     if (cx != XXLOOK) {
  1722.     bleep(success ? BP_NOTE : BP_FAIL);
  1723. #ifdef OS2
  1724.     setint();            /* Fix OS/2 interrupts */
  1725. #endif /* OS2 */
  1726.     if (sparity > -1)
  1727.       parity = sparity;        /* Restore parity if we saved it */
  1728. #ifdef OS2
  1729.     ttres();            /* Restore DIAL device */
  1730. #endif /* OS2 */
  1731. #ifdef VMS
  1732.     concb((char)escape);        /* Restore console */
  1733. #endif /* VMS */
  1734. #ifdef OS2
  1735.     {                /* Set session title */
  1736.         char * p, name[72];        /* in window list. */
  1737.         char * q;
  1738.         if (cx == XXANSW) {
  1739.         q = "Incoming call";
  1740.         } else {
  1741.         if (d_name)
  1742.           q = d_name;
  1743.         else if (dialnum)
  1744.           q = dialnum;
  1745.         else if (ttname[0])
  1746.           q = ttname;
  1747.         else q = "";
  1748.         }
  1749.         p = name;
  1750.         if (success) {
  1751.         strncpy(name,q,48);
  1752.         while (*p) {        /* Uppercase it for emphasis. */
  1753.             if (islower(*p))
  1754.               *p = toupper(*p);
  1755.             p++;
  1756.         }
  1757.         } else 
  1758.           name[0] = '\0' ;
  1759.         os2settitle((char *) name, TRUE);
  1760.     }
  1761. #endif /* OS2 */
  1762.     }
  1763.     return(success);
  1764. }
  1765. #endif /* NODIAL */
  1766.  
  1767. /*  D O T Y P E  --  Type a file  */
  1768.  
  1769. int
  1770. dotype(file) char * file; {        /* Do the TYPE command */
  1771. #ifdef VMS
  1772.     char command[512];
  1773.     sprintf(command,"type %s",file);    /* Construct TYPE command */
  1774.     conres();                /* Let user interrupt */
  1775.     success = zshcmd((char *)command);    /* Execute it */
  1776.     concb((char)escape);        /* Back to console CBREAK mode */
  1777.     return(success);
  1778. #else
  1779.     char * p, name[257]; 
  1780. #ifdef MAC
  1781.     int count = 100;
  1782. #endif /* MAC */
  1783.     int rc = 1;
  1784.     int c;
  1785.     int save;
  1786.  
  1787.     save = binary;            /* Save file type */
  1788.  
  1789. #ifdef OS2
  1790.     if (*file) {
  1791.         strcpy( name, file );        /* Change / to \. */
  1792.         p = name;
  1793.         while (*p) {
  1794.             if (*p == '/') *p = '\\';
  1795.             p++;
  1796.         }
  1797.     } else
  1798.       return(0);
  1799. #else
  1800.     strcpy(name, file);
  1801. #endif /* OS2 */
  1802.  
  1803.     if (zchki(name) == -2)        /* It's a directory */
  1804.       return(0);
  1805.  
  1806.     binary = 0;                /* Set file type to text for zopeni */
  1807.     if (!zopeni(ZIFILE, name)) {    /* Not a directory, open it */
  1808.     binary = save;            /* Failed, restore file type */
  1809.     return(0);            /* and return */
  1810.     }
  1811.     while ((c = zminchar()) != -1) {    /* Loop for all characters in file */
  1812. #ifdef MAC
  1813.     /*
  1814.      * It is expensive to run the miniparser so don't do it for
  1815.      * every character.
  1816.      */
  1817.     if (--count < 0) {
  1818.         count = 100;
  1819.         miniparser(1);
  1820.         if (sstate == 'a') {
  1821.         sstate = '\0';
  1822.         rc = 0;
  1823.         break;
  1824.         }
  1825.     }
  1826. #else /* Not MAC */
  1827.     if (putchar(c) == EOF) {    /* Echo character on screen */
  1828.         rc = 0;
  1829.         break;
  1830.     }
  1831. #endif /* MAC */
  1832.     }
  1833.     zclose(ZIFILE);            /* Done, close the file */
  1834.     binary = save;
  1835.     return(rc);
  1836. #endif /* VMS */
  1837. }
  1838.  
  1839. int                    /* Do the DIRECTORY command */
  1840. dodir() {
  1841. #ifndef MAC
  1842.     char *dc;
  1843. #endif /* MAC */
  1844. #ifdef MAC
  1845. /*
  1846.   This is a crude, do-it-yourself directory command.  It shows all the
  1847.   files in the current directory: size and name of each file.  Only regular
  1848.   files are shown.  With a little more work, it could also show directories,
  1849.   and mark files as regular or directories, and it could also show dates.
  1850.   See sample code in zldir() routine in ckmfio.c.
  1851. */
  1852.     char mac_name[65];
  1853.     long mac_len, nfiles, nbytes;
  1854.     extern long mac_znextlen;        /* See ckmfio.c for this. */
  1855.  
  1856.     if ((y = cmcfm()) < 0)
  1857.       return(y);
  1858.  
  1859.     nfiles = nbytes = 0L;
  1860.     printf("\nDirectory of %s\n\n",zgtdir());
  1861.     x = zxpand(":");
  1862.     while (x-- > 0) {
  1863.         if (!znext(mac_name))
  1864.             break;
  1865.         mac_len = zchki(mac_name);
  1866.         if (mac_len > -1L) {
  1867.             nfiles++;
  1868.             nbytes += mac_znextlen;
  1869.             printf("%10ld %s\n", mac_znextlen, mac_name);
  1870.         }
  1871.     }
  1872.     printf("\n%ld file%s, %ld byte%s\n\n",
  1873.        nfiles,
  1874.        (nfiles == 1) ? "" : "s",
  1875.        nbytes,
  1876.        (nbytes == 1) ? "" : "s"
  1877.        );
  1878.     return(success = 1);
  1879. #else
  1880. #ifdef VMS
  1881.     if ((x = cmtxt("Directory/file specification","",&s,xxstring)) < 0)
  1882.      return(x);
  1883.     /* now do this the same as a shell command - helps with LAT  */
  1884.     conres();                /* Make console normal */
  1885.     lp = line;
  1886.     if (!(dc = getenv("CK_DIR"))) dc = DIRCMD;
  1887.     sprintf(lp,"%s %s",dc,s);
  1888.     debug(F110,"DIR string", line, 0);
  1889.     x = zshcmd(lp);
  1890.     debug(F101,"DIR return code", "", x);
  1891.     concb((char)escape);
  1892.     return(success = (x > 0) ? 1 : 0);
  1893. #else
  1894. #ifdef AMIGA
  1895.     if ((x = cmtxt("Directory/file specification","",&s,xxstring)) < 0)
  1896.       return(x);
  1897. #else
  1898. #ifdef datageneral
  1899.     if ((x = cmtxt("Directory/file specification","+",&s,xxstring)) < 0)
  1900.         return(x);
  1901. #else
  1902. #ifdef OS2
  1903. #ifdef ONETERMUPD
  1904.     {
  1905.     char name[257], *p = NULL;
  1906.     char * mstr = NULL, * dstr = NULL;
  1907.     long len, ndirs, nfiles, nbytes;
  1908.     short month, date, year, hour, minute, seconds;
  1909.  
  1910.     /* Note: cmifi2() parses a filespec OR a directory name */
  1911.  
  1912.     x = cmifi2("Device, directory, and/or file specification",
  1913.            "*",
  1914.            &s,
  1915.            &y,
  1916.            1,
  1917.            NULL,
  1918.            xxstring
  1919.            );
  1920.     if (x == -4 || x == -1)
  1921.       return(x);
  1922.     if (x == -2) {
  1923. #ifdef OS2
  1924.         if (!ckindex(".",s,1,0,0) && !ckindex("*",s,1,0,0)) {
  1925.         if (s[1] == ':' && s[2] == NUL)    /* e.g. "dir a:" */
  1926.           sprintf(line,"%s*.*",s);
  1927.         else
  1928.           sprintf(line,"%s.*",s);
  1929.         s = line;
  1930.         if (zxpand(s) < 1) {
  1931.             printf("%s - not found\n",s);
  1932.             return(-9);
  1933.         }
  1934.         } else {
  1935. #endif /* OS2 */
  1936.         printf("%s - not found\n",s);
  1937.         return(-9);
  1938. #ifdef OS2
  1939.         }
  1940. #endif /* OS2 */
  1941.     }
  1942.     if ((y = cmcfm()) < 0)
  1943.       return(y);
  1944.  
  1945.     /* Lower-level functions change / to \. */
  1946.     p = s;
  1947.     while (*p) {            /* Change them back to \ */
  1948.         if (*p == '/') *p = '\\';
  1949.         p++;
  1950.     }
  1951.     ndirs = nfiles = nbytes = 0L;
  1952.     printf("\nDirectory of %s\n\n",s);
  1953.     if (zchki(s) == -2) {
  1954.         /* Found a directory */
  1955. #ifdef OS2
  1956.         if (p != s) {
  1957.         p--;
  1958.         if (*p == '\\' || *p == '/')
  1959.           strcat(s, "*.*");
  1960.         else if (*p == ':')
  1961.           strcat(s, ".\\*.*");
  1962.         else
  1963.           strcat(s, "\\*.*");
  1964.         } else {
  1965.         strcat(s, "*.*");
  1966.         }
  1967. #else
  1968.         if (p != s) {
  1969.         p--;
  1970.         if (*p == '\\' || *p == '/')
  1971.           strcat(s, "*");
  1972.         else if (*p == ':')
  1973.           strcat(s, ".");
  1974.         else
  1975.           strcat(s, "\\*");
  1976.         } else {
  1977.         strcat(s, "*");
  1978.         }
  1979. #endif
  1980.     }
  1981. #ifdef OS2
  1982.     else if (!ckindex(".",s,1,0,0) && !ckindex("*",s,1,0,0)) {
  1983.         sprintf(line,"%s.*",s);
  1984.         s = line;
  1985.     }
  1986. #endif /* OS2 */
  1987.  
  1988.     x = zxpand(s);
  1989.     while (x-- > 0) {
  1990.         if (!znext(name))
  1991.           break;
  1992.         dstr = zfcdat(name);
  1993.         month = (dstr[4]-48)*10 + (dstr[5]-48);
  1994.         switch(month) {
  1995.           case 1:  mstr = "Jan"; break;
  1996.           case 2:  mstr = "Feb"; break;
  1997.           case 3:  mstr = "Mar"; break;
  1998.           case 4:  mstr = "Apr"; break;
  1999.           case 5:  mstr = "May"; break;
  2000.           case 6:  mstr = "Jun"; break;
  2001.           case 7:  mstr = "Jul"; break;
  2002.           case 8:  mstr = "Aug"; break;
  2003.           case 9:  mstr = "Sep"; break;
  2004.           case 10: mstr = "Oct"; break;
  2005.           case 11: mstr = "Nov"; break;
  2006.           case 12: mstr = "Dec"; break;
  2007.           default: mstr = "   ";
  2008.         }
  2009.         date   = (dstr[6]-48)*10 + (dstr[7]-48);
  2010.         year  = (((dstr[0]-48)*10 
  2011.               + (dstr[1]-48))*10
  2012.              + (dstr[2]-48))*10
  2013.                + (dstr[3]-48);
  2014.         hour  = (dstr[9]-48)*10 + (dstr[10]-48);
  2015.         minute = (dstr[12]-48)*10 + (dstr[13]-48);
  2016.         seconds = (dstr[15]-48)*10 + (dstr[16]-48);
  2017.         len = zchki(name);
  2018.         /* find just the name of the file */
  2019.         for (p = name + (int) strlen(name); 
  2020.          p != name && *p != '/' 
  2021.          && *p != '\\' && *p != ':' ;
  2022.          p--
  2023.          )
  2024.           ;
  2025.         if (*p == '/' || *p == '\\' || *p == ':')
  2026.           p++ ;
  2027.  
  2028.         if (len > -1L) {
  2029.         nfiles++;
  2030.         nbytes += len;
  2031.         printf(" %3s-%02d-%04d  %02d:%02d %10ld %s\n", 
  2032.                mstr, date, year, hour, minute, len, p
  2033.                );
  2034.         } else {
  2035.         ndirs++;
  2036.         printf(" %3s-%02d-%04d  %02d:%02d %10s %s\n", 
  2037.                mstr, date, year, hour, minute, "<DIR>", p);
  2038.         }
  2039.     }
  2040.     printf("\n%ld director%s, %ld file%s, %ld byte%s\n\n",
  2041.            ndirs,
  2042.            (ndirs == 1) ? "y" : "ies",
  2043.            nfiles,
  2044.            (nfiles == 1) ? "" : "s",
  2045.            nbytes,
  2046.            (nbytes == 1) ? "" : "s"
  2047.            );
  2048.     return(success = 1);
  2049.     }
  2050. #else /* ONETERMUPD */
  2051.     tmpbuf[0] = NUL;
  2052.     if ((x = cmifi2(
  2053. "Device, directory, and/or file specification,\n\
  2054.  or switch(es), or '> file'","*.*",
  2055.             &s,&y,1,NULL,xxstring)) < 0) {
  2056.     debug(F101,"DIR cmifi2","",x);
  2057.     if (x == -3) {            /* Done. */
  2058.         goto sw_skip;
  2059.     } else if (x == -2 && (*s == '/' || *s == '>')) {
  2060.         strncpy(tmpbuf,s,TMPBUFSIZ); /* Switch or redirect */
  2061.         if ((y = cmcfm()) < 0)
  2062.           return(y);
  2063.         else
  2064.           goto sw_skip;
  2065.     } else if (x == -2 && !strchr(s,'.')) {    /* Maybe ".*" is missing */
  2066.         goto fs_copy;
  2067.     } else if (x == -2) {
  2068.         printf("%s - not found\n",s);
  2069.         return(-9);
  2070.     } else
  2071.       return(x);
  2072.     }
  2073. #endif /* ONETERMUPD */
  2074. #else /* General Case */
  2075.     if ((x = cmdir("Directory/file specification","",&s,xxstring)) < 0)
  2076.       if (x != -3) return(x);
  2077. #endif /* OS2 */
  2078. #endif /* datageneral */
  2079. #endif /* AMIGA */
  2080.  
  2081. #ifdef OS2
  2082. fs_copy:
  2083. #endif /* OS2 */
  2084.     debug(F110,"DIR fs_copy",s,0);
  2085.     strncpy(tmpbuf,s,TMPBUFSIZ);    /* Copy the filespec */
  2086.  
  2087. #ifdef OS2
  2088.     {   /* Lower level functions change / to \, not good for CMD.EXE. */
  2089.     /* Only do this to filenames, not switches! */
  2090.     char *p = tmpbuf;
  2091.     while (*p) {            /* Change them back to \ */
  2092.         if (*p == '/') *p = '\\';
  2093.         p++;
  2094.     }
  2095.     }
  2096.     debug(F110,"DIR tmpbuf 1",tmpbuf,0);
  2097.     /* Now parse trailing switches like /P/O-D... */
  2098.     if ((x = cmtxt("Optional switches and/or redirect for OS/2 DIR command",
  2099.            "",&s,xxstring)) < 0)
  2100.       return(x);
  2101.     strcat(tmpbuf,s);            /* Append them to the filespec */
  2102.     debug(F110,"DIR tmpbuf 2",tmpbuf,0);
  2103. sw_skip:
  2104. #else
  2105.     if ((y = cmcfm()) < 0) return(y);
  2106. #endif /* OS2 */
  2107.     s = tmpbuf;
  2108.     lp = line;
  2109.     if (!(dc = getenv("CK_DIR"))) dc = DIRCMD;
  2110.     sprintf(lp,"%s %s",dc,s);
  2111.     debug(F110,"DIR",line,0);
  2112.     xsystem(line);
  2113.     return(success = 1);        /* who cares... */
  2114. #endif /* VMS */
  2115. #endif /* MAC */
  2116. }
  2117.  
  2118. #ifndef NOSERVER
  2119. #ifndef NOFRILLS
  2120. /* Do the ENABLE and DISABLE commands */
  2121.  
  2122. int
  2123. doenable(y,x) int y, x; {
  2124.     switch (x) {
  2125.       case EN_ALL:
  2126.     en_cwd = en_cpy = en_del = en_dir = en_fin = en_get = y;
  2127.     en_ren = en_sen = en_set = en_spa = en_typ = en_who = en_ret = y;
  2128.         en_mai = en_pri = y;
  2129. #ifndef datageneral
  2130.         en_bye = y;
  2131. #endif /* datageneral */
  2132. #ifndef NOPUSH
  2133.     if (!nopush)
  2134.       en_hos = y;
  2135. #endif /* NOPUSH */
  2136. #ifndef NOSPL
  2137.     en_asg = en_que = y;
  2138. #endif /* NOSPL */
  2139.     break;
  2140.       case EN_BYE:
  2141. #ifndef datageneral
  2142. /*
  2143.   In Data General AOS/VS Kermit can't log out its superior process.
  2144. */
  2145.         en_bye = y;
  2146. #endif /* datageneral */
  2147.     break;
  2148.     case EN_CPY:
  2149.         en_cpy = y;
  2150.         break;
  2151.       case EN_CWD:
  2152.     en_cwd = y;
  2153.     break;
  2154.       case EN_DEL:
  2155.     en_del = y;
  2156.     break;
  2157.       case EN_DIR:
  2158.     en_dir = y;
  2159.     break;
  2160.       case EN_FIN:
  2161.     en_fin = y;
  2162.     break;
  2163.       case EN_GET:
  2164.     en_get = y;
  2165.     break;
  2166. #ifndef NOPUSH
  2167.       case EN_HOS:
  2168.     if (!nopush)
  2169.          en_hos = y;
  2170.     break;
  2171. #endif /* NOPUSH */
  2172.     case EN_REN:
  2173.         en_ren = y;
  2174.         break;
  2175.       case EN_SEN:
  2176.     en_sen = y;
  2177.     break;
  2178.       case EN_SET:
  2179.     en_set = y;
  2180.     break;
  2181.       case EN_SPA:
  2182.     en_spa = y;
  2183.     break;
  2184.       case EN_TYP:
  2185.     en_typ = y;
  2186.     break;
  2187.       case EN_WHO:
  2188.     en_who = y;
  2189.     break;
  2190. #ifndef NOSPL
  2191.       case EN_ASG:
  2192.     en_asg = y;
  2193.     break;
  2194.       case EN_QUE:
  2195.     en_que = y;
  2196.     break;
  2197. #endif /* NOSPL */
  2198.       case EN_RET:
  2199.     en_ret = y;
  2200.     break;
  2201.       case EN_MAI:
  2202.     en_mai = y;
  2203.     break;
  2204.       case EN_PRI:
  2205.     en_pri = y;
  2206.     break;
  2207.       default:
  2208.     return(-2);
  2209.     }
  2210.     return(1);
  2211. }
  2212. #endif /* NOFRILLS */
  2213. #endif /* NOSERVER */
  2214.  
  2215. #ifndef NOFRILLS
  2216. int
  2217. dodel() {                /* DELETE */
  2218. #ifndef MAC
  2219.     long zl;
  2220. #endif /* MAC */
  2221.     if ((x = cmifi("File(s) to delete","",&s,&y,xxstring)) < 0) {
  2222.     if (x == -3) {
  2223.         printf("?A file specification is required\n");
  2224.         return(-9);
  2225.     } else return(x);
  2226.     }
  2227. #ifdef MAC
  2228.     strcpy(line,s);
  2229. #else
  2230.     strncpy(tmpbuf,s,TMPBUFSIZ);    /* Make a safe copy of the name. */
  2231. #ifdef OS2
  2232.     {   /* Lower level functions change / to \, not good for CMD.EXE. */
  2233.     char *p = tmpbuf;
  2234.     while (*p) {            /* Change them back to \ */
  2235.         if (*p == '/') *p = '\\';
  2236.         p++;
  2237.     }
  2238.     }
  2239.     debug(F110,"xxdel tmpbuf",tmpbuf,0);
  2240.     strcpy(line,tmpbuf);        /* Now copy it back */
  2241. #else /* OS2 */
  2242.    debug(F110,"xxdel tmpbuf",tmpbuf,0);
  2243.    sprintf(line,"%s %s",DELCMD,tmpbuf); /* Construct the system command. */
  2244. #endif /* OS2 */
  2245. #endif /* MAC */
  2246.     debug(F110,"xxdel line",line,0);
  2247.     if ((y = cmcfm()) < 0) return(y);    /* Confirm the user's command. */
  2248. #ifdef VMS
  2249.     conres();
  2250. #endif /* VMS */
  2251. #ifdef MAC
  2252.     s = line;
  2253.     success = (zdelet(line) == 0);
  2254. #else
  2255. #ifdef OS2
  2256.     {
  2257.         int filespace = 0;
  2258.         int len = 0;
  2259.         int count = 0;
  2260.  
  2261.         s = line;
  2262.         z = zxpand(line);
  2263.         if (z > 0) {
  2264.             int i;
  2265.             success = 1;
  2266.  
  2267.             if ( msgflg )
  2268.               printf("\n");
  2269.  
  2270.             for ( i = 0; i < z; i++) {
  2271.         znext(tmpbuf);
  2272.         len = zchki(tmpbuf);
  2273.         if (len >= 0) { 
  2274.             zdelet(tmpbuf);
  2275.             if (zchki(tmpbuf) < 0) {
  2276.             filespace += len;
  2277.             count++;
  2278.             if (msgflg)
  2279.               printf(" %s - deleted\n",tmpbuf);
  2280.             } else {
  2281.             success = 0;
  2282.             if (msgflg)
  2283.               printf(" %s - not deleted\n",tmpbuf);
  2284.             }
  2285.         }
  2286.             }
  2287.         if (msgflg)
  2288.               printf("\n%d files deleted, %d bytes freed\n",count,filespace);
  2289.         } else {
  2290.             if (msgflg)
  2291.           printf("?Can not delete file: %s\n", line );
  2292.         }
  2293.     }
  2294. #else /* OS2 */
  2295.     s = tmpbuf;
  2296.     xsystem(line);            /* Let the system do it. */
  2297.     zl = zchki(tmpbuf);
  2298.     success = (zl == -1L);
  2299. #endif /* OS2 */
  2300. #endif /* MAC */
  2301. #ifndef OS2 
  2302.     if (msgflg)
  2303.       printf("%s - %sdeleted\n",s, success ? "" : "not ");
  2304. #ifdef VMS
  2305.     concb((char)escape);
  2306. #endif /* VMS */
  2307. #endif /* OS2 */
  2308.     return(success);
  2309. }
  2310. #endif /* NOFRILLS */
  2311.  
  2312. #ifndef NOSPL                /* The ELSE command */
  2313. int
  2314. doelse() {
  2315.     if (!ifcmd[cmdlvl]) {
  2316.     printf("?ELSE doesn't follow IF\n");
  2317.     return(-2);
  2318.     }
  2319. #ifdef COMMENT
  2320. /*
  2321.   Wrong.  This prevents IF..ELSE IF...ELSE IF...ELSE IF...ELSE...
  2322.   from working.
  2323. */
  2324.     ifcmd[cmdlvl] = 0;
  2325. #endif /* COMMENT */
  2326.     if (!iftest[cmdlvl]) {        /* If IF was false do ELSE part */
  2327.     if (maclvl > -1) {        /* In macro, */
  2328.         pushcmd();            /* save rest of command. */
  2329.     } else if (tlevel > -1) {    /* In take file, */
  2330.         pushcmd();            /* save rest of command. */
  2331.     } else {            /* If interactive, */
  2332.         cmini(ckxech);        /* just start a new command */
  2333.         printf("\n");        /* (like in MS-DOS Kermit) */
  2334.         if (pflag) prompt(xxstring);
  2335.     }
  2336.     } else {                /* Condition is false */
  2337.     if ((y = cmtxt("command to be ignored","",&s,NULL)) < 0)
  2338.       return(y);            /* Gobble up rest of line */
  2339.     }
  2340.     return(0);
  2341. }
  2342. #endif /* NOSPL */
  2343.  
  2344. #ifndef NOSPL
  2345. int
  2346. doswitch() {
  2347.     char *lp, *ap;            /* macro argument pointer */
  2348.  
  2349.     /* Get variable name */
  2350.     if ((y = cmfld("Variable name","",&s,xxstring)) < 0)
  2351.       return(y);
  2352.     if (*s == CMDQ) {
  2353.     if (chkvar(s) < 1) {
  2354.         printf("?Variable name required\n");
  2355.         return(-9);
  2356.     }
  2357.     }
  2358.     lp = line;
  2359.     strcpy(lp,"_switx ");        /* _switx + space */
  2360.     lp += (int)strlen(line);
  2361.     ap = lp;
  2362.     debug(F110,"SWITCH",atmbuf,0);
  2363.     strcpy(lp,atmbuf);            /* + variable name */
  2364.     lp += (int)strlen(atmbuf);
  2365.     strcat(lp," ");            /* + space */
  2366.     lp++;
  2367.     debug(F110,"SWITCH 2",line,0);
  2368.  
  2369.     /* Get body */
  2370.  
  2371.     if ((y = cmtxt("series of cases","",&s,NULL)) < 0) return(y);
  2372.     if ((int)strlen(s) < 1) return(-2);
  2373.     
  2374.     if (litcmd(&s,&lp) < 0) {
  2375.     printf("?Unbalanced brackets\n");
  2376.     return(0);
  2377.     }
  2378.     debug(F110,"SWITCH 3",line,0);
  2379.  
  2380.     x = mlook(mactab,"_switx",nmac);    /* Look up SWITCH macro definition */
  2381.     if (x < 0) {            /* Not there? */
  2382.     addmmac("_switx",sw_def);    /* Put it back. */
  2383.     if ((x = mlook(mactab,"_switx",nmac)) < 0) { /* Look it up again. */
  2384.         printf("?SWITCH macro definition gone!\n"); /* Shouldn't happen. */
  2385.         return(success = 0);
  2386.     }
  2387.     }
  2388.     debug(F110,"SWITCH command",line,0); /* Execute the SWITCH macro. */
  2389.     return(success = dodo(x,ap,cmdstk[cmdlvl].ccflgs));
  2390. }
  2391.  
  2392. int
  2393. dofor() {                /* The FOR command. */
  2394.     int fx, fy, fz;            /* loop variables */
  2395.     char *ap;                /* macro argument pointer */
  2396.  
  2397.     if ((y = cmfld("Variable name","",&s,NULL)) < 0) { /* Get variable name */
  2398.     if (y == -3) {
  2399.         printf("?Variable name required\n");
  2400.         return(-9);
  2401.     } else return(y);
  2402.     }
  2403.     if ((y = parsevar(s,&x,&z)) < 0)    /* Check it. */
  2404.       return(y);
  2405.  
  2406.     lp = line;                /* Build a copy of the command */
  2407.     strcpy(lp,"_forx ");
  2408.     lp += (int)strlen(line);        /* "_for" macro. */
  2409.     ap = lp;                /* Save pointer to macro args. */
  2410.  
  2411.     if (*s == CMDQ) s++;        /* Skip past backslash if any. */
  2412.     while (*lp++ = *s++) ;        /* copy it */
  2413.     lp--; *lp++ = SP;            /* add a space */
  2414.  
  2415.     if ((y = cmnum("initial value","",10,&fx,xxstring)) < 0) {
  2416.     if (y == -3) return(-2);
  2417.     else return(y);
  2418.     }
  2419.     debug(F101,"dofor fx","",fx);
  2420.     s = atmbuf;                /* Copy the atom buffer */
  2421.  
  2422.     if ((int)strlen(s) < 1) goto badfor;
  2423. /*
  2424.   In edit 192, we change the loop variables to be evaluated at loop entry,
  2425.   not each time through the loop.  This was required in order to allow
  2426.   \v(argc) to be used as a loop variable, or in a loop-variable expression.
  2427.   Thus, we can't have FOR loops that modify their own exit conditions by
  2428.   changing the final value or the increment.  The problem with \v(argc) was
  2429.   that it is on the macro stack; after entry into the _forx macro, it is at
  2430.   the wrong 
  2431. */
  2432.     sprintf(tmpbuf,"%d",fx);    /* Substitute actual value */
  2433.     s = tmpbuf;
  2434.  
  2435.     while (*lp++ = *s++) ;        /* (what they actually typed) */
  2436.     lp--; *lp++ = SP;
  2437.  
  2438.     if ((y = cmnum("final value","",10,&fy,xxstring)) < 0) {
  2439.     if (y == -3) return(-2);
  2440.     else return(y);
  2441.     }
  2442.     debug(F101,"dofor fy","",fy);
  2443.     s = atmbuf;                /* Same deal */
  2444.     if ((int)strlen(s) < 1) goto badfor;
  2445.  
  2446.     sprintf(tmpbuf,"%d",fy);
  2447.     s = tmpbuf;
  2448.  
  2449.     while (*lp++ = *s++) ;
  2450.     lp--;
  2451.     *lp++ = SP;
  2452.  
  2453.     if ((y = cmnum("increment","1",10,&fz,xxstring)) < 0) {
  2454.     if (y == -3) return(-2);
  2455.     else return(y);
  2456.     }
  2457.     debug(F101,"dofor fz","",fz);
  2458.     s = atmbuf;                /* Same deal */
  2459.     if ((int)strlen(s) < 1) goto badfor;
  2460.  
  2461.     sprintf(tmpbuf,"%d",fz);
  2462.     s = tmpbuf;
  2463.  
  2464.     while (*lp++ = *s++) ;
  2465.     lp--; *lp++ = SP;
  2466.  
  2467.     /* Insert the appropriate comparison operator */
  2468.     if (fz < 0)
  2469.       *lp++ = '<';
  2470.     else
  2471.       *lp++ = '>';
  2472.     *lp++ = SP;
  2473.  
  2474.     if ((y = cmtxt("Command to execute","",&s,NULL)) < 0) return(y);
  2475.     if ((int)strlen(s) < 1) return(-2);
  2476.     
  2477.     if (litcmd(&s,&lp) < 0) {
  2478.     printf("?Unbalanced brackets\n");
  2479.     return(0);
  2480.     }
  2481. #ifdef COMMENT
  2482. /* Too strict */
  2483.     if (fz == 0) {
  2484.     printf("?Zero increment not allowed\n");
  2485.     return(0);
  2486.     }
  2487. #endif /* COMMENT */
  2488.     x = mlook(mactab,"_forx",nmac);    /* Look up FOR macro definition */
  2489.     if (x < 0) {            /* Not there? */
  2490.     addmmac("_forx",for_def);    /* Put it back. */
  2491.     if ((x = mlook(mactab,"_forx",nmac)) < 0) { /* Look it up again. */
  2492.         printf("?FOR macro definition gone!\n"); /* Shouldn't happen. */
  2493.         return(success = 0);
  2494.     }
  2495.     }
  2496.     debug(F110,"FOR command",line,0);    /* Execute the FOR macro. */
  2497.     return(success = dodo(x,ap,cmdstk[cmdlvl].ccflgs));
  2498.  
  2499. badfor: printf("?Incomplete FOR command\n");
  2500.     return(-2);
  2501. }
  2502. #endif /* NOSPL */
  2503.  
  2504. #ifndef NOFRILLS
  2505. /* Do the BUG command */
  2506.  
  2507. int
  2508. dobug() {
  2509.     int n;
  2510. #ifdef COMMENT
  2511.     printf("\n%s,%s\n Numeric: %ld",versio,ckxsys,vernum);
  2512.     if (verwho) printf("-%d",verwho);
  2513. #endif /* COMMENT */
  2514.     printf(
  2515. "\nBefore requesting technical support from Columbia U., please consult:\n\n"
  2516.        );
  2517.     n = 6;
  2518. #ifdef NT
  2519.     printf(" . Your \"Kermit 95\" user manual.\n");
  2520.     printf(" . The technical reference manual, \"Using C-Kermit\".\n");
  2521.     printf(" . The READ.ME file in Kermit 95's directory on your disk.\n");
  2522.     n += 3;
  2523. #else
  2524.     printf(" . The book \"Using C-Kermit\".\n");
  2525.     n += 1;    
  2526. #ifndef OS2
  2527.     printf(" . The CKCKER.UPD and CKCKER.BWR files.\n");
  2528.     n += 1;    
  2529. #endif /* OS2 */
  2530. #ifdef UNIX
  2531.     printf(" . The CKUKER.BWR and CKUINS.DOC files.\n");
  2532.     n += 1;    
  2533. #else
  2534. #ifdef VMS
  2535.     printf(" . The CKVKER.BWR and CKVINS.DOC files.\n");
  2536.     n += 1;    
  2537. #else
  2538. #ifdef OS2ONLY
  2539.     printf(" . The CKERMIT.INF file (use the UPDATES command).\n");
  2540.     n += 1;    
  2541. #else
  2542. #ifdef datageneral
  2543.     printf(" . The CKDKER.BWR file\n");
  2544.     n += 1;    
  2545. #else
  2546. #ifdef STRATUS
  2547.     printf(" . The CKLKER.BWR file\n");
  2548.     n += 1;    
  2549. #else
  2550. #ifdef AMIGA
  2551.     printf(" . The CKIKER.BWR file\n");
  2552.     n += 1;
  2553. #else
  2554. #ifdef GEMDOS
  2555.     printf(" . The CKSKER.BWR file\n");
  2556.     n += 1;
  2557. #else
  2558. #ifdef MAC
  2559.     printf(" . The CKMKER.BWR file\n");
  2560.     n += 1;
  2561. #else
  2562. #ifdef OSK
  2563.     printf(" . The CK9KER.BWR file\n");
  2564.     n += 1;
  2565. #else
  2566.     printf(" . The appropriate system-dependent CK?KER.BWR file\n");
  2567.     n += 1;
  2568. #endif
  2569. #endif
  2570. #endif
  2571. #endif
  2572. #endif
  2573. #endif
  2574. #endif
  2575. #endif
  2576. #endif
  2577. #endif /* NT */
  2578.  
  2579.     printf(" . Your own organization's support staff, if any.\n");
  2580.     printf(
  2581. " . The comp.protocols.kermit.* newsgroups if you have Netnews access.\n");
  2582.     printf(
  2583. " . Our FAQ, \
  2584. http://www.columbia.edu/kermit/faq.html, if you have Web access.\n");
  2585.     n += 2;
  2586.     if (++n > cmd_rows - 3) if (!askmore()) return(0); else n = 0;
  2587.     printf("\n\
  2588. If you still need help or have a bug to report after consulting these sources,"
  2589.        );
  2590.     printf("\nsend e-mail to:\n\n");
  2591.     n += 2;
  2592.     if (++n > cmd_rows - 3) if (!askmore()) return(0); else n = 0;
  2593.     printf("  kermit-support@columbia.edu\n\n");
  2594.     n += 1;
  2595.     if (++n > cmd_rows - 3) if (!askmore()) return(0); else n = 0;
  2596.     printf("Or contact us by post:\n\n");
  2597.     printf(
  2598. "  Kermit, Columbia University, 612 W 115 Street, New York NY  10025, USA\n\n"
  2599.        );
  2600.     n += 1;
  2601.     if (++n > cmd_rows - 3) if (!askmore()) return(0); else n = 0;
  2602.     printf("Or by fax at +1 (212) 663-8202.\n\n");
  2603.     n += 1;
  2604.     if (++n > cmd_rows - 3) if (!askmore()) return(0); else n = 0;
  2605.     printf("Telephone support is available too:\n\n");
  2606.     n += 1;
  2607.     if (++n > cmd_rows - 3) if (!askmore()) return(0); else n = 0;
  2608.     printf("  +1 (900) 555-5595, USA only, $2.50 per minute\n");
  2609.     if (++n > cmd_rows - 3) if (!askmore()) return(0); else n = 0;
  2610.     printf("  +1 (212) 854-5126, from anywhere, $25.00 per call, MC/Visa\n\n");
  2611.     n += 1;
  2612.     if (++n > cmd_rows - 3) if (!askmore()) return(0); else n = 0;
  2613. #ifndef NOSHOW
  2614. #ifndef NOFRILLS
  2615.     printf(
  2616. "Before reporting problems, please use the SHOW VERSION and SHOW FEATURES\n");
  2617.     if (++n > cmd_rows - 3) if (!askmore()) return(0); else n = 0;
  2618.     printf(
  2619. "commands to get detailed program version and configuration information.\n\n");
  2620. #endif /* NOFRILLS */
  2621. #endif /* NOSHOW */
  2622.     return(1);
  2623. }
  2624. #endif /* NOFRILLS */
  2625.  
  2626. #ifndef NOSPL
  2627.  
  2628. /*  T O D 2 S E C  --  Convert time of day as hh:mm:ss to secs since midnite */
  2629. /*
  2630.   Call with a string hh:mm or hh:mm:ss.
  2631.   Returns a 0 to 86400 on success, or a negative number on failure.
  2632. */
  2633. long
  2634. tod2sec(t) char * t; {
  2635.     long t2;
  2636.     long hh = 0L, mm = 0L, ss = 0L;
  2637.  
  2638.     if (!t) t = "";
  2639.     if (!*t)
  2640.       return(-3);
  2641.     debug(F110,"tod2sec",t,0);
  2642.  
  2643.     if (isdigit(*t))            /* Get hours from argument */
  2644.       hh = *t++ - '0';
  2645.     else
  2646.       return(-1L);
  2647.     if (isdigit(*t))
  2648.       hh = hh * 10 + *t++ - '0';
  2649.     if (hh > 24L)
  2650.       return(-1L);
  2651.     if (*t == ':')
  2652.       t++;
  2653.     else if (!*t)
  2654.       goto xtod2sec;
  2655.     else
  2656.       return(-1L);
  2657.             
  2658.     if (isdigit(*t))            /* Minutes */
  2659.       mm = *t++ - '0';
  2660.     else
  2661.       return(-1L);
  2662.     if (isdigit(*t))
  2663.       mm = mm * 10 + *t++ - '0';
  2664.     if (mm > 60L)
  2665.       return(-1L);
  2666.     if (*t == ':')
  2667.       t++;
  2668.     else if (!*t)
  2669.       goto xtod2sec;
  2670.     else
  2671.       return(-1L);
  2672.  
  2673.     if (isdigit(*t))            /* Seconds */
  2674.       ss = *t++ - '0';
  2675.     else
  2676.       return(-1L);
  2677.     if (isdigit(*t))
  2678.       ss = ss * 10 + *t++ - '0';
  2679.     if (ss > 60L)
  2680.       return(-1L);
  2681.  
  2682.     if (*t > 32)            /* No trailing junk allowed */
  2683.       return(-1L);
  2684.  
  2685.   xtod2sec:
  2686.  
  2687.     t2 = hh * 3600L + mm * 60L + ss;    /* Seconds since midnight from arg */
  2688.     debug(F100,"tod2sec t2","",t2);
  2689.  
  2690.     return(t2);
  2691. }
  2692.  
  2693. int
  2694. dopaus(cx) int cx; {
  2695.     long zz;
  2696.  
  2697.     zz = -1L;
  2698.     x_ifnum = 1;            /* Turn off internal complaints */
  2699.     if (cx == XXWAI)
  2700.       y = cmnum("seconds to wait, or time of day hh:mm:ss","1",10,&x,xxstring);
  2701.     else if (cx == XXPAU)
  2702.       y = cmnum("seconds to pause, or time of day hh:mm:ss",
  2703.         "1",10,&x,xxstring);
  2704.     else
  2705.       y = cmnum("milliseconds to sleep, or time of day hh:mm:ss",
  2706.         "100",10,&x,xxstring);
  2707.     x_ifnum = 0;
  2708.     if (y < 0) {
  2709.     if (y == -2) {            /* Invalid number or expression */
  2710.         zz = tod2sec(atmbuf);    /* Convert to secs since midnight */
  2711.         if (zz < 0L) {
  2712.         printf("?Number, expression, or time of day required\n");
  2713.         return(-9);
  2714.         } else {
  2715.         char now[32];        /* Current time */
  2716.         char *p;
  2717.         long tnow;
  2718.         p = now;
  2719.         ztime(&p);
  2720.         tnow = atol(p+11) * 3600L + atol(p+14) * 60L + atol(p+17);
  2721.         if (zz < tnow)        /* User's time before now */
  2722.           zz += 86400L;        /* So make it tomorrow */
  2723.         zz -= tnow;        /* Seconds from now. */
  2724.         }
  2725.     } else
  2726.       return(y);
  2727.     }
  2728.     if (x < 0) x = 0;
  2729.     switch (cx) {
  2730.       case XXPAU:            /* PAUSE */
  2731.       case XXMSL:            /* MSLEEP */
  2732.     if ((y = cmcfm()) < 0) return(y);
  2733.     break;
  2734.       case XXWAI:            /* WAIT */
  2735.     z = 0;                /* Modem signal mask */
  2736.     while (1) {            /* Read zero or more signal names */
  2737.         y = cmkey(mstab,nms,"modem signal","",xxstring);
  2738.         if (y == -3) break;        /* -3 means they typed CR */
  2739.         if (y < 0) return(y);    /* Other negatives are errors */
  2740.         z |= y;            /* OR the bit into the signal mask */
  2741.     }
  2742.     break;
  2743.  
  2744.       default:                /* Shouldn't happen */
  2745.     return(-2);
  2746.     }
  2747.  
  2748. /* Command is entered, now do it. */
  2749.  
  2750.     if (zz > -1L) {            /* Time of day given? */
  2751.     x = zz;
  2752.     if (zz != (long) x) {
  2753.         printf(
  2754. "Sorry, arithmetic overflow - hh:mm:ss not usable on this platform.\n"
  2755.            );
  2756.         return(-9);
  2757.     }
  2758.     }
  2759.     if (cx == XXMSL) {            /* Millisecond sleep */
  2760.     msleep(zz < 0 ? x : x * 1000);
  2761.     return(success = 1);
  2762.     }
  2763.     while (x--) {            /* Sleep loop */
  2764.     int mdmsig;
  2765.     if (y = conchk()) {        /* Did they type something? */
  2766. #ifdef COMMENT
  2767.         while (y--) coninc(0);    /* Yes, gobble it up */
  2768. #else
  2769.         /* There is a debate over whether PAUSE should absorb    */
  2770.         /* its cancelling character(s).  There are several       */
  2771.         /* reasons why it should gobble at least one character:  */
  2772.         /* (1) MS-DOS Kermit does it                             */
  2773.         /* (2) if not, subsequent PAUSE commands will terminate  */
  2774.         /*     immediately                                       */
  2775.         /* (3) if not, subsequent ASK commands will use it as    */
  2776.         /*     valid input.  If \13, then it will get no input   */
  2777.         /* (4) if not, then the character appears on the command */
  2778.         /*     line after all enclosing macros are complete      */
  2779.         coninc(0);            /* Gobble one up */
  2780. #endif /* COMMENT */
  2781.         break;            /* And quit PAUSing or WAITing */
  2782.     }
  2783.     if (cx == XXWAI && z != 0) {
  2784.         mdmsig = ttgmdm();
  2785.         if (mdmsig < 0) return(success = 0);
  2786.         if ((mdmsig & z) == z) return(success = 1);
  2787.     }
  2788.     sleep(1);            /* No interrupt, sleep one second */
  2789.     }
  2790.     if (cx == XXWAI) success = 0;
  2791.     else success = (x == -1);        /* Set SUCCESS/FAILURE for PAUSE. */
  2792.     return(0);
  2793. }
  2794. #endif /* NOSPL */
  2795.  
  2796.  
  2797. #ifndef NOFRILLS
  2798. #ifdef ZCOPY
  2799. int
  2800. docopy() {
  2801.     if ((x = cmifi("File to copy","",&s,&y,xxstring)) < 0) {
  2802.     if (x == -3) {
  2803.         printf("?Name of existing file required\n");
  2804.         return(-9);
  2805.     } else return(x);
  2806.     }
  2807.     if (y) {                /* No wildcards allowed */
  2808.     printf("\n?Please specify a single file\n");
  2809.     return(-9);
  2810.     }
  2811.     strcpy(line,s);            /* Make a safe copy of source name */
  2812.     p = line + (int)strlen(line) + 2;    /* Place for destination name */
  2813.     if ((x = cmofi("destination name","",&s,xxstring)) < 0) {
  2814.         /* Get destination name */
  2815.     if (x == -3) {
  2816.         printf("?Name for destination file required\n");
  2817.         return(-9);
  2818.     } else return(x);
  2819.     }
  2820.     strcpy(p,s);            /* Safe copy of destination name */
  2821.     if ((y = cmcfm()) < 0) return(y);
  2822. #ifdef VMS
  2823.     conres();                /* Let Ctrl-C work. */
  2824. #endif /* VMS */
  2825.     debug(F110,"docopy line",line,0);
  2826.     debug(F110,"docopy p",p,0);
  2827.     if (zcopy(line,p) < 0) {
  2828.     printf("?Can't copy %s to %s\n",line,p);
  2829. #ifdef VMS
  2830.     concb((char)escape);
  2831. #endif /* VMS */
  2832.     return(-9);
  2833.     } else {
  2834. #ifdef VMS
  2835.     concb((char)escape);
  2836. #endif /* VMS */
  2837.     return(success = 1);
  2838.     }
  2839. }
  2840. #endif /* ZCOPY */
  2841. #endif /* NOFRILLS */
  2842.  
  2843. #ifndef NOFRILLS
  2844. #ifdef ZRENAME
  2845. int
  2846. dorenam() {
  2847.     if ((x = cmifi("File to rename","",&s,&y,xxstring)) < 0) {
  2848.     if (x == -3) {
  2849.         printf("?Name of existing file required\n");
  2850.         return(-9);
  2851.     } else return(x);
  2852.     }
  2853.     if (y) {                /* No wildcards allowed */
  2854.     printf("\n?Please specify a single file\n");
  2855.     return(-9);
  2856.     }
  2857.     strcpy(line,s);            /* Make a safe copy of the old name */
  2858.     p = line + (int)strlen(line) + 2;    /* Place for new name */
  2859.     if ((x = cmofi("New name","",&s,xxstring)) < 0) { /* Get new name */
  2860.     if (x == -3) {
  2861.         printf("?New name for file required\n");
  2862.         return(-9);
  2863.     } else return(x);
  2864.     }
  2865.     strcpy(p,s);            /* Make a safe copy of the new name */
  2866.     if ((y = cmcfm()) < 0) return(y);
  2867. #ifdef VMS
  2868.     conres();                /* Let Ctrl-C work. */
  2869. #endif /* VMS */
  2870.     debug(F110,"dorename line",line,0);
  2871.     debug(F110,"dorename p",p,0);
  2872.     if (zrename(line,p) < 0) {
  2873.     printf("?Can't rename %s to %s\n",line,p);
  2874. #ifdef VMS
  2875.     concb((char)escape);
  2876. #endif /* VMS */
  2877.     return(-9);
  2878.     } else {
  2879. #ifdef VMS
  2880.     concb((char)escape);
  2881. #endif /* VMS */
  2882.     return(success = 1);
  2883.     }
  2884. }
  2885. #endif /* ZRENAME */
  2886. #endif /* NOFRILLS */
  2887.  
  2888. #ifndef NOSPL
  2889.  
  2890. /* Do the RETURN command */
  2891.  
  2892. int
  2893. doreturn(s) char *s; {
  2894.     int x; char *p;
  2895.     if (maclvl < 0) {
  2896.     printf("\n?Can't return from level %d\n",maclvl);
  2897.     return(success = 0);
  2898.     }
  2899.     lp = line;                /* Expand return value now */
  2900.     x = LINBUFSIZ-1;
  2901.     if (zzstring(s,&lp,&x) > -1) {
  2902.     s = line;
  2903.     debug(F110,"RETURN parse",s,0);
  2904.     }
  2905.     debug(F101,"RETURN maclvl 1","",maclvl);
  2906.     /* Pop from all FOR/WHILE/XIFs */
  2907.     while ((maclvl > 0) &&
  2908.        (m_arg[maclvl-1][0]) &&
  2909.        (cmdstk[cmdlvl].src == CMD_MD) &&
  2910.        (!strncmp(m_arg[maclvl-1][0],"_xif",4) ||
  2911.         !strncmp(m_arg[maclvl-1][0],"_for",4) ||
  2912.         !strncmp(m_arg[maclvl-1][0],"_whi",4))) {
  2913.     debug(F110,"RETURN popping",m_arg[maclvl-1][0],0);
  2914.     dogta(XXPTA);        /* Put args back */
  2915.     popclvl();        /* Pop up two levels */
  2916.     popclvl();
  2917.     debug(F101,"RETURN maclvl 2","",maclvl);
  2918.     }
  2919.     popclvl();                /* Pop from enclosing TAKE or macro */
  2920.     debug(F101,"RETURN maclvl 3","",maclvl);
  2921.  
  2922.     x = (int)strlen(s);            /* Length of return value */
  2923.     if (x > 0) {            /* Have return value? */
  2924.     p = malloc(x+2);        /* Allocate a place to keep it */
  2925.     if (mrval[maclvl+1]) {        /* Free old one, if any */
  2926.         free(mrval[maclvl+1]);
  2927.         mrval[maclvl+1] = NULL;
  2928.     }
  2929.     if (p) {            /* Did we get a place? */
  2930.         strcpy(p, s);        /* Yes, copy the string into it. */
  2931.         mrval[maclvl+1] = p;    /* Make return value point to it. */
  2932.         debug(F110,"RETURN copy",mrval[maclvl],0);
  2933.     } else {            /* No, could not get space. */
  2934.         mrval[maclvl+1] = NULL;    /* Return null pointer. */
  2935.         x = 0;            /* Set failure return code. */
  2936.     }
  2937.     } else mrval[maclvl+1] = NULL;    /* Blank return code */
  2938.     return(success = x ? 1 : 0);    /* Return status code */    
  2939. }
  2940. #endif /* NOSPL */
  2941.  
  2942. #ifndef NOSPL
  2943. /* Do the OPEN command */
  2944.  
  2945. int
  2946. doopen()  {                /* OPEN { append, read, write } */
  2947.     int x, y, z; char *s;
  2948.     static struct filinfo fcb;        /* (must be static) */
  2949.     if ((x = cmkey(opntab,nopn,"mode","",xxstring)) < 0) {
  2950.     if (x == -3) {
  2951.         printf("?Mode required\n");
  2952.         return(-9);
  2953.     } else return(x);
  2954.     }
  2955.     switch (x) {
  2956.       case XYFZ_O:            /* Old file (READ) */
  2957.     if (chkfn(ZRFILE) > 0) {
  2958.         printf("?Read file already open\n");
  2959.         return(-2);
  2960.     }
  2961.     if ((z = cmifi("File to read","",&s,&y,xxstring)) < 0) {
  2962.         if (z == -3) {
  2963.         printf("?Input filename required\n");
  2964.         return(-9);
  2965.         } else return(z);
  2966.     }
  2967.     if (y) {                /* No wildcards allowed */
  2968.         printf("\n?Please specify a single file\n");
  2969.         return(-2);
  2970.     }
  2971.     strcpy(line,s);
  2972.     if ((int)strlen(line) < 1) return(-2);
  2973.     if ((z = cmnum("buffer size","4096",10,&y,xxstring)) < 0)
  2974.       return(z);
  2975.     if (y < 1) {
  2976.         printf("?Positive number required\n");
  2977.         return(-9);
  2978.     }
  2979.     if ((z = cmcfm()) < 0) return(z);
  2980.         readblock = y;
  2981.     if (readbuf)
  2982.       free(readbuf);
  2983.     if (!(readbuf = (CHAR *) malloc(readblock+1))) {
  2984.         printf("?Can't allocate read buffer\n");
  2985.         return(-9);
  2986.     }
  2987.     return(success = zopeni(ZRFILE,line));
  2988.  
  2989. #ifndef MAC
  2990. #ifndef NOPUSH
  2991.       case XYFZ_Y:            /* Pipe/Process (READ) */
  2992.     if (nopush) {
  2993.         printf("?Read from pipe disabled\n");
  2994.         return(success=0);
  2995.     }
  2996.     if (chkfn(ZRFILE) > 0) {
  2997.         printf("?Read file already open\n");
  2998.         return(-2);
  2999.     }
  3000.         if ((y = cmtxt("System command to read from","",&s,xxstring)) < 0) {
  3001.         if (y == -3) {
  3002.         printf("?Command name required\n");
  3003.         return(-9);
  3004.         } else return(y);
  3005.     }
  3006.     strcpy(line,s);
  3007.     if ((int)strlen(line) < 1) return(-2);
  3008.     if ((y = cmcfm()) < 0) return(y);
  3009.     if (!readbuf) {
  3010.         if (!(readbuf = (CHAR *) malloc(readblock+1))) {
  3011.         printf("?Can't allocate read buffer\n");
  3012.         return(-9);
  3013.         }
  3014.     }
  3015.     return(success = zxcmd(ZRFILE,line));
  3016.  
  3017.       case XYFZ_X:            /* Write to pipe */
  3018.     if (nopush) {
  3019.         printf("?Write to pipe disabled\n");
  3020.         return(success=0);
  3021.     }
  3022.     if (chkfn(ZWFILE) > 0) {
  3023.         printf("?Write file already open\n");
  3024.         return(-2);
  3025.     }
  3026.         if ((y = cmtxt("System command to write to","",&s,xxstring)) < 0) {
  3027.         if (y == -3) {
  3028.         printf("?Command name required\n");
  3029.         return(-9);
  3030.         } else return(y);
  3031.     }
  3032.     strcpy(line,s);
  3033.     if ((int)strlen(line) < 1) return(-2);
  3034.     if ((y = cmcfm()) < 0) return(y);
  3035.     success = zxcmd(ZWFILE,line);
  3036.     if (!success && msgflg)
  3037.       printf("Can't open process for writing: %s\n",line);
  3038.     return(success);
  3039. #endif /* NOPUSH */
  3040. #endif /* MAC */
  3041.  
  3042.       case XYFZ_N:            /* New file (WRITE) */
  3043.       case XYFZ_A:            /* (APPEND) */
  3044.     if ((z = cmofi("Name of local file to create","",&s,xxstring)) < 0) {
  3045.         if (z == -3) {
  3046.         printf("?Filename required\n");
  3047.         return(-9);
  3048.         } else return(z);
  3049.     }
  3050.     if (z == 2) {
  3051.         printf("?Sorry, %s is a directory name\n",s);
  3052.         return(-9);
  3053.     }
  3054.     if (chkfn(ZWFILE) > 0) {
  3055.         printf("?Write/Append file already open\n");
  3056.         return(-2);
  3057.     }
  3058.         fcb.bs = fcb.cs = fcb.rl = fcb.fmt = fcb.org = fcb.cc = fcb.typ = 0;
  3059.     fcb.lblopts = 0;
  3060.     fcb.dsp = x;            /* Create or Append */
  3061.     strcpy(line,s);
  3062.     if ((int)strlen(line) < 1) return(-2);
  3063.     if ((y = cmcfm()) < 0) return(y);
  3064.     return(success = zopeno(ZWFILE,line,NULL,&fcb));
  3065.  
  3066.       default:
  3067.     printf("?Not implemented");
  3068.     return(-2);
  3069.     }
  3070. }
  3071. #endif /* NOSPL */
  3072.  
  3073. /* Finish parsing and do the GET or REGET command */
  3074.  
  3075. int
  3076. doget(cx) int cx; {
  3077.     int x, y, rc;
  3078.     char *cbp;
  3079.  
  3080. #ifdef CK_TMPDIR
  3081.     if (dldir && !f_tmpdir) {    /* If they have a download directory */
  3082.     if (s = zgtdir()) {        /* Get current directory, */
  3083.         if (zchdir(line)) {    /* change to download directory */
  3084.         strncpy(savdir,s,TMPDIRLEN);
  3085.         f_tmpdir = 1;    /* remember that we did this */
  3086.         }
  3087.     }
  3088.     }
  3089. #endif /* CK_TMPDIR */
  3090.  
  3091.     cmarg2 = "";            /* Initialize as-name to nothing */
  3092.     x = 0;
  3093. #ifdef NOFRILLS
  3094.     if (*cmarg == NUL) {
  3095.     printf("?Remote filespec required\n");
  3096.     rc = -3;
  3097.     goto endget;
  3098.     }
  3099. #else
  3100. /*
  3101.   If remote file name omitted, get foreign and local names separately.
  3102.   But multine GET is allowed only if NOFRILLS is not defined.
  3103. */
  3104.     if (*cmarg == NUL) {
  3105.  
  3106.     if (tlevel > -1
  3107. #ifndef NOSPL
  3108.         && cmdstk[cmdlvl].src == CMD_TF
  3109. #endif /* NOSPL */
  3110.         ) {
  3111.  
  3112. /* Input is from a command file. */
  3113.  
  3114.         /* Read 2nd line of GET command */
  3115.  
  3116.         if (getnct(cmdbuf,CMDBL,tfile[tlevel],0) < 0) {
  3117.         printf("Command file ends prematurely in multiline GET\n");
  3118.         popclvl();
  3119.         rc = -9;
  3120.         goto endget;
  3121.         }
  3122.         cmres();            /* Parse it */
  3123.         if ((x = cmtxt("Oofa","",&s,xxstring)) < 0) {
  3124.         rc = x;
  3125.         goto endget;
  3126.         }
  3127.         strcpy(line,brstrip(s));    /* Make a safe copy */
  3128.         cmarg = line;        /* Point to remote filename */
  3129.         if (*cmarg == NUL) {    /* Make sure there is one */
  3130.         printf("Remote filename missing in multiline GET\n");
  3131.         rc = -9;
  3132.         goto endget;
  3133.         }
  3134.         lp = line + strlen(line) + 1; /* Place for as-name */
  3135.  
  3136.         /* And third line... */
  3137.  
  3138.         cmarg2 = "";        /* Assume no as-name */
  3139.         if (getnct(cmdbuf,CMDBL,tfile[tlevel],0) < 0) { /* Get next line */
  3140.         popclvl();        /* There isn't one. */
  3141.         } else {            /* There is... */
  3142.         if (*cmdbuf >= ' ') {    /* Parse as output filename */
  3143.             cmres();
  3144.             if ((x = cmofi("Mupeen",cmarg,&s,xxstring)) < 0) {
  3145.             rc = x;
  3146.             goto endget;
  3147.             }
  3148.             strcpy(lp,s);    /* Make a safe copy */
  3149.             cmarg2 = lp;    /* Point as-name pointer at it */
  3150.         }
  3151.         }
  3152.             x = 0;            /* Return code OK */
  3153.  
  3154. #ifndef NOSPL
  3155. /* Reading commands from a macro definition */
  3156.  
  3157.     } else if (cmdlvl > 0 && cmdstk[cmdlvl].src == CMD_MD) {
  3158.  
  3159.         /* Read second line of GET command */
  3160.  
  3161.         cbp = cmdbuf;
  3162.         if (getncm(cbp,CMDBL) < 0) {
  3163.         printf("Macro definition ends prematurely in multiline GET\n");
  3164.         rc = -9;
  3165.         goto endget;
  3166.         }
  3167.         cmres();
  3168.         if ((x = cmtxt("Oofa","",&s,xxstring)) < 0) return(x);
  3169.         if (*s == NUL) {        /* Make sure we got something */
  3170.         printf("Remote filename missing in multiline GET\n");
  3171.         rc = -9;
  3172.         goto endget;
  3173.         }
  3174.         strcpy(line,brstrip(s));    /* Copy filename to safe place */
  3175.         cmarg = line;        /* Point to it */
  3176.         x = strlen(line);        /* Get its length */
  3177.         lp = line + x + 1;        /* Where to put the next bit */
  3178.         y = LINBUFSIZ - x - 1;    /* Room left for next bit */
  3179.  
  3180.         /* And third line... */
  3181.  
  3182.         cmarg2 = "";        /* Assume no as-name */
  3183.         if (getncm(lp,y) > -1 && *lp >= ' ') { /* Read next line */
  3184.         x = strlen(lp);
  3185.         if (lp[x-1] == CR) lp[x-1] = NUL; /* Remove CR */
  3186.         cbp = cmdbuf;        /* Interpret the line */
  3187.         *cbp = NUL;        /* ... */
  3188.         y = CMDBL;        /* into the command buffer */
  3189.         zzstring(lp,&cbp,&y);
  3190.         if (*cmdbuf) {        /* If we have something */
  3191.             cmres();        /* parse it as an output filename */
  3192.             strcat(cmdbuf," ");
  3193.             if ((x = cmofi("Mupeen","",&s,NULL)) < 0) {
  3194.             rc = x;
  3195.             goto endget;
  3196.             }
  3197.             strcpy(lp,s);    /* Copy the name to safe place */
  3198.             cmarg2 = lp;    /* and make as-name pointer */
  3199.         }
  3200.         }
  3201.             x = 0;            /* Return code OK */
  3202. #endif /* NOSPL */
  3203.         } else {            /* Input is from terminal */
  3204.  
  3205.         cmsavp(psave,PROMPTL);
  3206.         cmsetp(" Remote file specification: "); /* Make new one */
  3207.         cmini(ckxech);
  3208.         x = -1;
  3209.         if (pflag) prompt(xxstring);
  3210.         while (x == -1) {        /* Prompt till they answer */
  3211.             x = cmtxt("Name of remote file(s)","",&cmarg,xxstring);
  3212.         debug(F111," cmtxt",cmarg,x);
  3213.         }
  3214.         if (x < 0) {
  3215.         cmsetp(psave);
  3216.         rc = x;
  3217.         goto endget;
  3218.         }
  3219.         if (*cmarg == NUL) {     /* If user types a bare CR, */
  3220.         printf("(cancelled)\n"); /* Forget about this. */
  3221.             cmsetp(psave);        /* Restore old prompt, */
  3222.         rc = 0;
  3223.         goto endget;
  3224.         }
  3225.         strcpy(line,brstrip(cmarg)); /* Make a safe copy */
  3226.         cmarg = line;
  3227.         cmsetp(" Local name to store it under: "); /* New prompt */
  3228.         cmini(ckxech);
  3229.         x = -1;
  3230.         if (pflag) prompt(xxstring);
  3231.         while (x == -1) {        /* Again, parse till answered */
  3232.             x = cmofi("Local file name","",&cmarg2,xxstring);
  3233.         }
  3234.         if (x < 0) {        /* Parse error */
  3235.         if (x == -3) {        /* CR = cancel */
  3236.             printf("(cancelled)\n"); /* Print message */
  3237.             x = 0;        /* Avoid further messages */
  3238.         }
  3239.         cmsetp(psave);        /* Restore prompt */
  3240.         rc = x;
  3241.         goto endget;
  3242.         }        
  3243.         x = -1;            /* Get confirmation. */
  3244.         while (x == -1) x = cmcfm();
  3245.         cmsetp(psave);        /* Restore old prompt. */
  3246.         }
  3247.     }
  3248. #endif /* NOFRILLS */
  3249.  
  3250.     if (x == 0) {            /* Good return from cmtxt or cmcfm, */
  3251.     debug(F110,"xxget cmarg",cmarg,0);
  3252.     strncpy(fspec,cmarg,CKMAXPATH);
  3253.     debug(F111,"xxget fspec",fspec,CKMAXPATH);
  3254.     if (cx == XXRETR)
  3255.       sstate = (CHAR) 'h';
  3256.     else
  3257.       sstate = (CHAR) ((cx == XXGET) ? 'r' : 'j'); /* Set start state. */
  3258.     if (local) {
  3259.         displa = 1;
  3260.         ttflui();
  3261.     }
  3262.     }
  3263. #ifndef NOFRILLS
  3264. #ifdef CK_TMPDIR
  3265. /* cmarg2 is also allowed to be a device or directory name */
  3266.  
  3267.     y = strlen(cmarg2);
  3268.     if (
  3269. #ifdef OS2
  3270.     (isalpha(cmarg2[0]) &&
  3271.      cmarg2[1] == ':' &&
  3272.      cmarg2[2] == '\0') ||
  3273.     isdir(cmarg2)
  3274. #else
  3275. #ifdef UNIX
  3276.     (y > 0 && cmarg2[y-1] == '/') || isdir(cmarg2)
  3277. #else
  3278. #ifdef OSK
  3279.     (y > 0) && isdir(cmarg2)
  3280. #else
  3281. #ifdef VMS
  3282.     (y > 0) && isdir(cmarg2)
  3283. #else
  3284. #ifdef STRATUS
  3285.     (y > 0) && isdir(cmarg2)
  3286. #endif /* STRATUS */
  3287. #endif /* VMS */
  3288. #endif /* OSK */
  3289. #endif /* UNIX */
  3290.  
  3291. #endif /* OS2 */
  3292.     ) {
  3293.     debug(F110,"RECEIVE arg disk or dir",cmarg2,0);
  3294.     if (!f_tmpdir) {
  3295.         s = zgtdir();
  3296.         if (s) {
  3297.         strncpy(savdir,s,TMPDIRLEN); /* remember old disk/dir */
  3298.         f_tmpdir = 1;    /* and that we did this */
  3299.         cmarg2 = "";    /* and we don't have an as-name. */
  3300.         } else {
  3301.         printf("?Can't get current directory\n");
  3302.         cmarg2 = "";
  3303.         f_tmpdir = 0;
  3304.         rc = -9;
  3305.         goto endget;
  3306.         }
  3307.         if (!zchdir(cmarg2)) {    /* change to given disk/directory, */
  3308.         printf("?Can't access %s\n",cmarg2);
  3309.         cmarg2 = "";
  3310.         rc = -9;
  3311.         goto endget;
  3312.         }
  3313.     }
  3314.     }
  3315. #endif /* CK_TMPDIR */
  3316. #endif /* NOFRILLS */
  3317.  
  3318.     return(x);
  3319.  
  3320.   endget:
  3321. #ifdef CK_TMPDIR
  3322.     if (f_tmpdir) {
  3323.     zchdir(savdir);
  3324.     f_tmpdir = 0;
  3325.     }
  3326. #endif /* CK_TMPDIR */
  3327.     return(rc);
  3328. }
  3329.  
  3330. #ifndef NOSPL
  3331.  
  3332. /*
  3333.   _ G E T A R G S
  3334.  
  3335.   Used by XIF, FOR, and WHILE, each of which are implemented as 2-level
  3336.   macros; the first level defines the macro, the second runs it.
  3337.   This routine hides the fact that they are macros by importing the
  3338.   macro arguments (if any) from two levels up, to make them available
  3339.   in the XIF, FOR, and WHILE commands themselves; for example as loop
  3340.   indices, etc.
  3341. */
  3342. int
  3343. dogta(cx) int cx; {
  3344.     int i; char c; char mbuf[4]; char *p;
  3345.  
  3346.     if ((y = cmcfm()) < 0)
  3347.       return(y);
  3348.     if (cx == XXGTA)
  3349.       debug(F101,"_getargs maclvl","",maclvl);
  3350.     else if (cx == XXPTA)
  3351.       debug(F101,"_putargs maclvl","",maclvl);
  3352.     else
  3353.       return(-2);
  3354.     if (maclvl < 1)
  3355.       return(success = 0);
  3356.  
  3357.     debug(F101,"success","",success);
  3358.  
  3359.     mbuf[0] = '%'; mbuf[1] = '0'; mbuf[2] = '\0'; /* Argument name buf */
  3360.     for (i = 0; i < 10; i++) {        /* For all args */
  3361.     c = (char) (i + '0');        /* Make name */
  3362.     mbuf[1] = (char) c;        /* Insert digit */
  3363.     if (cx == XXGTA) {        /* Get arg from level-minus-2 */
  3364.         if (maclvl == 1) p = g_var[c]; /* If at level 1 use globals 0..9 */
  3365.         else p = m_arg[maclvl-2][i]; /* Otherwise they're on the stack */
  3366.         if (!p) {
  3367.         debug(F111,"_getarg p","(null pointer)",i);
  3368.         } else debug(F111,"_getarg p",p,i);
  3369.         addmac(mbuf,p);
  3370.     } else if (cx == XXPTA) {    /* Put args level+2 */
  3371. #ifndef MAC
  3372.         connoi();            /* Turn off interrupts. */
  3373. #endif /* MAC */
  3374.         maclvl -= 2;        /* This is gross.. */
  3375.         p = m_arg[maclvl+2][i];
  3376.         if (p)
  3377.           debug(F111,"_putarg m_arg[maclvl+2][i]",p,i);
  3378.         else
  3379.           debug(F111,"_putarg m_arg[maclvl+2][i]","(null pointer)",i);
  3380.         addmac(mbuf,m_arg[maclvl+2][i]);
  3381.         maclvl += 2;
  3382. #ifndef MAC
  3383.         conint(trap,stptrap);    /* Restore interrupts */
  3384. #endif /* MAC */
  3385.     } else return(success = 0);
  3386.     }
  3387.     debug(F101,"_get/putarg exit","",i);
  3388.     debug(F101,"_get/putarg exit maclvl","",maclvl);
  3389.     debug(F101,"_get/putarg exit argc maclvl","",macargc[maclvl]);
  3390.  
  3391.     if (cx == XXGTA && maclvl > 1) {
  3392.     macargc[maclvl] = macargc[maclvl - 2];
  3393.     /* macargc[maclvl - 1] = macargc[maclvl - 2]; */
  3394.     }
  3395.  
  3396. #ifdef COMMENT
  3397. /*
  3398.   Internal commands don't change success variable if they succeed.
  3399. */
  3400.     return(success = 1);
  3401. #else
  3402.     return(1);
  3403. #endif /* COMMENT */
  3404.  
  3405. }
  3406. #endif /* NOSPL */
  3407.  
  3408. #ifndef NOSPL
  3409. /*
  3410.   Do the GOTO and FORWARD commands.
  3411.   s = Label to search for, cx = function code, XXGOTO or XXFWD.
  3412. */
  3413. int
  3414. dogoto(s, cx) char *s; int cx; {
  3415.     int i, j, x, y, z, bc;
  3416.     int stopflg;
  3417.     char tmplbl[50], *lp;
  3418.  
  3419.     stopflg = (cx == XXXFWD);        /* _FORWARD (used in SWITCH) */
  3420.     bc = 0;                /* Brace counter */
  3421.  
  3422.     debug(F101,"goto cx","",cx);
  3423.     debug(F101,"goto cmdlvl","",cmdlvl);
  3424.     debug(F101,"goto maclvl","",maclvl);
  3425.     debug(F101,"goto tlevel","",tlevel);
  3426.     debug(F110,"goto before conversion",s,0);
  3427.     y = (int)strlen(s);
  3428.     if (*s != ':') {            /* If the label mentioned */
  3429.     for (i = y; i > 0; i--) {    /* does not begin with a colon, */
  3430.         s[i] = s[i-1];        /* then insert one. */
  3431.     }                /* Also, convert to lowercase. */
  3432.     s[0] = ':';
  3433.     s[++y] = '\0';
  3434.     }
  3435.     debug(F111,"goto after conversion",s,y);
  3436.     if (s[1] == '.' || s[1] == SP || s[1] == NUL) {
  3437.     printf("?Bad label syntax - '%s'\n",s);
  3438.     return(success = 0);
  3439.     }
  3440.     if (cmdlvl == 0) {
  3441.     printf("?Sorry, GOTO only works in a command file or macro\n");
  3442.     return(success = 0);
  3443.     }
  3444.     while (cmdlvl > 0) {        /* Only works inside macros & files */
  3445.     if (cmdstk[cmdlvl].src == CMD_MD) { /* GOTO inside macro */
  3446.         int i, m, flag;
  3447.         char *xp, *tp;
  3448.  
  3449.         /* GOTO: rewind the macro; FORWARD: start at current position */
  3450.  
  3451.         lp = (cx == XXGOTO) ? macx[maclvl] : macp[maclvl];
  3452.         m = (int)strlen(lp) - y + 1;
  3453.         debug(F111,"goto in macro",lp,m);
  3454.  
  3455.         flag = 1;            /* flag for valid label position */
  3456.         for (i = 0; i < m; i++,lp++) { /* search for label in macro body */
  3457.         if (*lp == '{')        /* But only at this level */
  3458.           bc++;            /* Anything inside braces is off */
  3459.         else if (*lp == '}')    /* limits. */
  3460.           bc--;
  3461.         if (stopflg && bc > 0)    /* This is good for SWITCH */
  3462.           continue;        /* but interferes with WHILE, etc. */
  3463.         if (*lp == ',') {
  3464.             flag = 1;
  3465.             continue;
  3466.         }
  3467.         if (flag) {        /* If in valid label position */
  3468.             if (*lp == SP)    /* eat leading spaces */
  3469.               continue;
  3470.             if (*lp != ':') {    /* Look for label introducer */
  3471.             flag = 0;    /* this isn't it */
  3472.             continue;    /* keep looking */
  3473.             }
  3474.         }
  3475.         if (!flag)        /* We don't have a label */
  3476.           continue;        /*  so keep looking... */
  3477.         xp = lp; tp = tmplbl;    /* Copy the label from the macro */
  3478.         j = 0;            /* to make it null-terminated */
  3479.         while (*tp = *xp) {
  3480.             if (j++ > 50) break;  /* j = length of word from macro */
  3481.             if (*tp < 33 || *tp == ',')    /* Look for end of word */
  3482.               break;
  3483.             else tp++, xp++;    /* Next character */
  3484.         }
  3485.         *tp = '\0';        /* In case we stopped early */
  3486.         /* Now do caseless string comparison, using longest length */
  3487.         debug(F111,"macro GOTO label",s,y);
  3488.         debug(F111,"macro target label",tmplbl,j);
  3489.         z = (stopflg && inpcas[cmdlvl]) ?
  3490.           strcmp(s,tmplbl) :
  3491.             xxstrcmp(s,tmplbl,(y > j) ? y : j);
  3492.         if (!z)
  3493.           break;
  3494.         else if (stopflg &&
  3495.             !xxstrcmp(":default",tmplbl,(8 > j) ? 8 : j))
  3496.           break;
  3497.         else
  3498.           flag = 0;
  3499.         }
  3500.         if (i == m) {        /* didn't find the label */
  3501.         debug(F101,"goto failed at cmdlvl","",cmdlvl);
  3502.         if (stopflg)
  3503.           return(0);
  3504.         if (!popclvl()) {    /* pop up to next higher level */
  3505.             printf("?Label '%s' not found\n",s); /* if none */
  3506.             return(0);        /* quit */
  3507.         } else continue;    /* otherwise look again */
  3508.         }
  3509.         debug(F110,"goto found macro label",lp,0);
  3510.         macp[maclvl] = lp;        /* set macro buffer pointer */
  3511.         return(1);
  3512.     } else if (cmdstk[cmdlvl].src == CMD_TF) {
  3513.         x = 0;            /* GOTO issued in take file */
  3514.         if (cx == XXGOTO) {        /* If GOTO, but not FORWARD, */
  3515.         rewind(tfile[tlevel]);    /* search file from beginning */
  3516.         tfline[tlevel] = 0;
  3517.         }
  3518.         while (! feof(tfile[tlevel])) {
  3519.         if (fgets(line,LINBUFSIZ,tfile[tlevel]) == NULL) /* Get line */
  3520.           break;        /* If no more, done, label not found */
  3521.         tfline[tlevel]++;
  3522.         lp = line;        /* Got line */
  3523.         while (*lp == SP || *lp == HT)
  3524.           lp++;            /* Strip leading whitespace */
  3525.         if (*lp != ':') continue; /* Check for label introducer */
  3526.         tp = lp;        /* Get end of word */
  3527.         j = 0;
  3528.         while (*tp) {        /* And null-terminate it */
  3529.             if (*tp < 33) {
  3530.             *tp = '\0';
  3531.             break;
  3532.             } else tp++, j++;
  3533.         }
  3534.         if (!xxstrcmp(lp,s,(y > j) ? y : j)) { /* Caseless compare */
  3535.             x = 1;        /* Got it */
  3536.             break;        /* done. */
  3537.         } else if (stopflg &&
  3538.                !xxstrcmp(":default",tmplbl,(8 > j) ? 8 : j)) {
  3539.             x = 1;
  3540.             break;
  3541.         }
  3542.         }
  3543.         if (x == 0) {        /* If not found, print message */
  3544.         debug(F101,"goto failed at cmdlvl","",cmdlvl);
  3545.         if (stopflg)
  3546.           return(0);
  3547.         if (!popclvl()) {    /* pop up to next higher level */
  3548.             printf("?Label '%s' not found\n",s); /* if none */
  3549.             return(0);        /* quit */
  3550.         } else continue;    /* otherwise look again */
  3551.         }
  3552.         return(x);            /* Send back return code */
  3553.     }
  3554.     }
  3555.     printf("?Stack problem in GOTO %s\n",s); /* Shouldn't see this */
  3556.     return(0);
  3557. }
  3558. #endif /* NOSPL */
  3559.  
  3560. /* Finish parsing and do the IF, XIF, and WHILE commands */
  3561.  
  3562. char *
  3563. brstrip(p) char *p; {
  3564.     if (!p) return("");
  3565.     if (*p == '{') {
  3566.     int x;
  3567.     x = (int)strlen(p) - 1;
  3568.     if (p[x] == '}') {
  3569.         p[x] = NUL;
  3570.         p++;
  3571.     }
  3572.     }
  3573.     return(p);
  3574. }
  3575.  
  3576. #ifndef NOSPL
  3577.  
  3578. /*  C H K V A R  --  Check (if it's a) Variable  */
  3579.   
  3580. /*
  3581.   Crude and disgusting, but needed for OS/2, DOS, and Windows, where filenames
  3582.   have backslashes in them.  How do we know if a backslash in a filename is a
  3583.   directory separator, or if it's a Kermit backslash?  This routine does a
  3584.   rough syntax check of the next few characters and if it looks like it MIGHT
  3585.   be a variable, then it tries to evaluate it, and if the result is not empty,
  3586.   we say it's a variable, although sometimes it might not be -- some cases are
  3587.   truly ambiguous.  For example there might a DOS directory called \&a, and
  3588.   we also have a variable with the same name.  This is all for the sake of not
  3589.   having to tell PC users that they have to double all backslashes in file
  3590.   and directory names.
  3591.  
  3592.   Call with a string pointer pointing at the backslash of the suspected
  3593.   variable.  Returns 1 if it seems to be a variable, 0 if not.
  3594. */
  3595. int
  3596. chkvar(s) char *s; {
  3597.     int z = 0;                /* Return code - assume failure */
  3598.     if ((int)strlen(s) < 1) return(-2);
  3599.     if (*s == CMDQ) {            /* Object begins with backslash. */
  3600.     char c;
  3601.     c = s[1];            /* Character following backslash */
  3602.     if (c) {
  3603.         int t = 0;
  3604.         c = (char) (islower(c) ? toupper(c) : c);
  3605.         if (c == '%') {        /* Simple variable */
  3606.         t = 1;
  3607.         } else if (c == '&') {    /* Array */
  3608.         if (s[3] == '[')
  3609.           t = ckindex("]",s,4,0,1);
  3610.         } else if (c == '$' ||    /* Environment variable */
  3611.                c == 'V' ||    /* Built-in variable */
  3612.                c == 'M')    /* Macro name */
  3613.             t = (s[2] == '(');
  3614.         else if (c == 'F') {    /* Function reference */
  3615.         int x;
  3616.         if (x = ckindex("(",s,3,0,1))
  3617.           if (x = ckindex(")",s,x,0,1))
  3618.             t = 1;
  3619.         }
  3620.         if (t) {
  3621.         t = LINBUFSIZ-1;    /* This lets us test \v(xxx) */
  3622.         lp = line;        /* and even \f...(xxx) */
  3623.         zzstring(s,&lp,&t);    /* Evaluate it, whatever it is. */
  3624.         t = strlen(line);    /* Get its length. */
  3625.         debug(F111,"chkvar",line,t);
  3626.         z = t > 0;        /* If length > 0, it's defined */
  3627.         }
  3628.     }
  3629.     }
  3630.     return(z);
  3631. }
  3632.  
  3633. /*  D O I F  --  Do the IF command  */
  3634.  
  3635. int
  3636. doif(cx) int cx; {
  3637.     int x, y, z; char *s, *p;
  3638.     char *q;
  3639.     _PROTOTYP(char * evala, (char *));        
  3640. #ifdef OS2
  3641.     extern int keymac;
  3642. #endif /* OS2 */
  3643.  
  3644.     not = 0;                /* Flag for whether "NOT" was seen */
  3645.     z = 0;                /* Initial IF condition */
  3646.     ifargs = 0;                /* Count of IF condition words */
  3647.  
  3648. ifagain:
  3649.     if ((ifc = cmkeyx(iftab,nif,"","",xxstring)) < 0) { /* If what?... */
  3650.     if (ifc == -3) {
  3651.         printf("?Condition required\n");
  3652.         return(-9);
  3653.     } else if (chknum(atmbuf)) {
  3654.         ifc = 9999;
  3655.     } else {
  3656.         if (ifc == -9)
  3657.           printf("?No keywords match - \"%s\"\n", atmbuf);
  3658.         return(ifc);
  3659.     }
  3660.     }
  3661.     if (ifc == 9999)
  3662.       z = !(atoi(atmbuf) == 0);
  3663.     else
  3664.     switch (ifc) {            /* set z = 1 for true, 0 for false */
  3665.       case XXIFNO:            /* IF NOT */
  3666.     not ^= 1;            /* So NOT NOT NOT ... will work */
  3667.     ifargs++;
  3668.     goto ifagain;
  3669.       case XXIFTR:            /* IF TRUE */
  3670.     z = 1;
  3671.     debug(F101,"if true","",z);
  3672.     ifargs += 1;
  3673.     break;
  3674.       case XXIFNT:            /* IF FALSE */
  3675.     z = 0;
  3676.     debug(F101,"if true","",z);
  3677.     ifargs += 1;
  3678.     break;
  3679.       case XXIFSU:            /* IF SUCCESS */
  3680.     z = ( success != 0 );
  3681.     debug(F101,"if success","",z);
  3682.     ifargs += 1;
  3683.     break;
  3684.       case XXIFFA:            /* IF FAILURE */
  3685.     z = ( success == 0 );
  3686.     debug(F101,"if failure","",z);
  3687.     ifargs += 1;
  3688.     break;
  3689.       case XXIFDE:            /* IF DEFINED */
  3690.     if ((x = cmfld("Macro or variable name","",&s,NULL)) < 0) {
  3691.         if (x == -3) return(-2);
  3692.         else return(x);
  3693.     }
  3694.     if (*s == CMDQ)
  3695.       z = chkvar(s);            /* \-thing */
  3696.     else
  3697.       z = ( mxlook(mactab,s,nmac) > -1 ); /* Look for exact match */
  3698.     debug(F111,"if defined",s,z);
  3699.     ifargs += 2;
  3700.     break;
  3701.  
  3702.       case XXIFBG:            /* IF BACKGROUND */
  3703.       case XXIFFG:            /* IF FOREGROUND */    
  3704.     bgchk();            /* Check background status */
  3705.     if (ifc == XXIFFG)        /* Foreground */
  3706.       z = pflag ? 1 : 0;
  3707.         else z = pflag ? 0 : 1;        /* Background */
  3708.     ifargs += 1;
  3709.     break;
  3710.  
  3711.       case XXIFCO:            /* IF COUNT */
  3712.     z = ( --count[cmdlvl] > 0 );
  3713.     if (cx == XXWHI) count[cmdlvl] += 2; /* Don't ask... */
  3714.     debug(F101,"if count","",z);
  3715.     ifargs += 1;
  3716.     break;
  3717.  
  3718.       case XXIFEX:            /* IF EXIST */
  3719. #ifdef CK_TMPDIR
  3720.       case XXIFDI:            /* IF DIRECTORY */
  3721. #endif /* CK_TMPDIR */
  3722.     if ((x = cmfld(
  3723.                ((ifc == XXIFEX) ? "File" : "Directory name"),
  3724.                "",&s,
  3725. #ifdef OS2
  3726.                NULL        /* This allows \'s in filenames */
  3727. #else
  3728.                xxstring
  3729. #endif /* OS2 */
  3730.                )) < 0) {
  3731.         if (x == -3) {
  3732.         extern int cmflgs;
  3733.         if (cmflgs == 1) {
  3734.             printf("?File or directory name required\n");
  3735.             return(-9);
  3736.         }
  3737.         } else return(x);
  3738.     }
  3739.     if (ifc == XXIFEX) {
  3740.         z = (zchki(s) > -1L);
  3741.         debug(F101,"if exist 1","",z);
  3742. #ifdef OS2        
  3743.         if (!z) {            /* File not found. */
  3744.         int t;            /* Try expanding variables */
  3745.         t = LINBUFSIZ-1;    /* and looking again. */
  3746.         lp = line;
  3747.         zzstring(s,&lp,&t);
  3748.         s = line;
  3749.         z = ( zchki(s) > -1L );
  3750.         debug(F101,"if exist 2","",z);
  3751.         }
  3752. #endif /* OS2 */
  3753. #ifdef CK_TMPDIR
  3754.     } else {
  3755. #ifdef VMS
  3756.         z = (zchki(s) == -2)
  3757. #else
  3758. /* Because this doesn't catch $DISK1:[FOO]BLAH.DIR;1 */
  3759.         z = isdir(s)
  3760. #ifdef OS2
  3761.           || (isalpha(cmarg2[0]) &&
  3762.           cmarg2[1] == ':' &&
  3763.           cmarg2[2] == '\0')
  3764. #endif /* OS2 */
  3765. #endif /* VMS */
  3766.           ;
  3767.         debug(F101,"if directory 1","",z);
  3768.  
  3769.         if (!z) {            /* File not found. */
  3770.         int t;            /* Try expanding variables */
  3771.         t = LINBUFSIZ-1;    /* and looking again. */
  3772.         lp = line;
  3773.         zzstring(s,&lp,&t);
  3774.         s = line;
  3775.         z = isdir(s)
  3776. #ifdef OS2
  3777.           || (isalpha(cmarg2[0]) &&
  3778.               cmarg2[1] == ':' &&
  3779.               cmarg2[2] == '\0')
  3780. #endif /* OS2 */
  3781.             ;
  3782.         debug(F101,"if directory 2","",z);
  3783.         }
  3784. #endif /* CK_TMPDIR */
  3785.     }
  3786.     ifargs += 2;
  3787.     break;
  3788.  
  3789.       case XXIFEQ:             /* IF EQUAL (string comparison) */
  3790.       case XXIFLL:            /* IF Lexically Less Than */
  3791.       case XXIFLG:            /* If Lexically Greater Than */
  3792.     if ((x = cmfld("first word or variable name","",&s,xxstring)) < 0) {
  3793.         if (x == -3) {
  3794.         printf("?Text required\n");
  3795.         return(-9);
  3796.         } else return(x);
  3797.     }
  3798.     s = brstrip(s);            /* Strip braces */
  3799.     x = (int)strlen(s);
  3800.     if (x > LINBUFSIZ-1) {
  3801.         printf("?IF: strings too long\n");
  3802.         return(-2);
  3803.     }
  3804.     lp = line;            /* lp points to first string */
  3805.     strcpy(lp,s);
  3806.     if ((y = cmfld("second word or variable name","",&s,xxstring)) < 0) {
  3807.         if (y == -3) {
  3808.         printf("?Text required\n");
  3809.         return(-9);
  3810.         } else return(y);
  3811.     }
  3812.     s = brstrip(s);
  3813.     y = (int)strlen(s);
  3814.     if (x + y + 2 > LINBUFSIZ) {
  3815.         printf("?IF: strings too long\n");
  3816.         return(-2);
  3817.     }
  3818.     tp = lp + y + 2;        /* tp points to second string */
  3819.     strcpy(tp,s);
  3820.     debug(F111,"IF EQ string 1, x",lp,x);
  3821.     debug(F111,"IF EQ string 2, y",tp,y);
  3822.     if (inpcas[cmdlvl]) {        /* INPUT CASE OBSERVE */
  3823.         x = strcmp(lp,tp);
  3824.         debug(F101,"IF EQ strcmp","",x);
  3825.     } else {                /* INPUT CASE IGNORE */
  3826.         x = xxstrcmp(lp,tp,(y > x) ? y : x); /* Use longest length */
  3827.         debug(F101,"IF EQ xxstrcmp","",x);
  3828.     }
  3829.     switch (ifc) {
  3830.       case XXIFEQ:             /* IF EQUAL (string comparison) */
  3831.         z = (x == 0);
  3832.         break;
  3833.       case XXIFLL:            /* IF Lexically Less Than */
  3834.         z = (x < 0);
  3835.         break;
  3836.       case XXIFLG:            /* If Lexically Greater Than */
  3837.         z = (x > 0);
  3838.         break;
  3839.     }
  3840.     ifargs += 3;
  3841.     break;
  3842.  
  3843.       case XXIFAE:            /* IF (arithmetically) = */
  3844.       case XXIFLT:            /* IF (arithmetically) < */
  3845.       case XXIFGT: {            /* IF (arithmetically) > */
  3846.     /* Really should use longs here... */
  3847.     /* But cmnum parses ints. */
  3848.     int n1, n2;
  3849.     x = cmfld("first number or variable name","",&s,xxstring);
  3850.     if (x == -3) {
  3851.         printf("?Quantity required\n");
  3852.         return(-9);
  3853.     }
  3854.     if (x < 0) return(x);
  3855.     debug(F101,"xxifgt cmfld","",x);
  3856.     lp = line;
  3857.     strcpy(lp,s);
  3858.     debug(F110,"xxifgt exp1",lp,0);
  3859.  
  3860. /* The following bit is for compatibility with old versions of MS-DOS Kermit */
  3861.  
  3862.     if (!xxstrcmp(lp,"count",5)) {
  3863.         n1 = count[cmdlvl];
  3864.     } else if (!xxstrcmp(lp,"version",7)) {
  3865.         n1 = (int) vernum;
  3866.     } else if (!xxstrcmp(lp,"argc",4)) {
  3867.         n1 = (int) macargc[maclvl];
  3868.     } else {
  3869.  
  3870. /* End of compatibility bit */
  3871.  
  3872.         if (chknum(lp)) {
  3873.         n1 = atoi(lp);
  3874.         } else {            /* Check for arithmetic expression */
  3875.         q = evala(lp);        /* cmnum() does this but ... */
  3876.         if (chknum(q))        /* we're not using cmnum(). */
  3877.           n1 = atoi(q);
  3878.         else
  3879.           return(-2);
  3880.         }        
  3881.     }
  3882.     y = cmfld("second number or variable name","",&s,xxstring);
  3883.     if (y == -3) {
  3884.         printf("?Quantity required\n");
  3885.         return(-9);
  3886.     }
  3887.     if (y < 0) return(y);
  3888.         if ((int)strlen(s) < 1) return(-2);
  3889.     x = (int)strlen(lp);
  3890.     tp = line + x + 2;
  3891.     strcpy(tp,s);
  3892.     debug(F110,"xxifgt exp2",tp,0);
  3893.     if (!xxstrcmp(tp,"count",5)) {
  3894.         n2 = count[cmdlvl];
  3895.     } else if (!xxstrcmp(tp,"version",7)) {
  3896.         n2 = (int) vernum;
  3897.     } else if (!xxstrcmp(tp,"argc",4)) {
  3898.         n2 = (int) macargc[maclvl];
  3899.     } else {
  3900.         if (chknum(tp)) {
  3901.         n2 = atoi(tp);
  3902.         } else {
  3903.         q = evala(tp);
  3904.         if (chknum(q))
  3905.           n2 = atoi(q);
  3906.         else
  3907.           return(-2);
  3908.         }        
  3909.     }
  3910.     debug(F101,"xxifft ifc","",ifc);
  3911.     z = ((n1 <  n2 && ifc == XXIFLT)
  3912.       || (n1 == n2 && ifc == XXIFAE)
  3913.       || (n1 >  n2 && ifc == XXIFGT));
  3914.     debug(F101,"xxifft n1","",n1);
  3915.     debug(F101,"xxifft n2","",n2);
  3916.     debug(F101,"xxifft z","",z);
  3917.     ifargs += 3;
  3918.     break; }
  3919.  
  3920.       case XXIFNU:            /* IF NUMERIC */
  3921.     x = cmfld("variable name or constant","",&s,xxstring);
  3922.     if (x == -3) {
  3923.         extern int cmflgs;
  3924.         if (cmflgs == 1) {
  3925.         printf("?Quantity required\n");
  3926.         return(-9);
  3927.         }
  3928.     } else if (x < 0)
  3929.       return(x);
  3930.     debug(F111,"xxifnu cmfld",s,x);
  3931.     lp = line;
  3932.     strcpy(lp,s);
  3933.     debug(F110,"xxifnu quantity",lp,0);
  3934.         z = chknum(lp);
  3935. #ifdef COMMENT
  3936. /*
  3937.   This works, but it's not wise -- IF NUMERIC is mostly used to see if a
  3938.   string really does contain only numeric characters.  If they want to force
  3939.   evaluation, they can use \feval().
  3940. */
  3941.     if (!z) {            /* Not a number */
  3942.         x_ifnum = 1;        /* Avoid "eval" error messages */
  3943.         q = evala(lp);        /* Maybe it's an expression */
  3944.         z = chknum(q);        /* that evaluates to a number */
  3945.         x_ifnum = 0;        /* Put eval messages back to normal */
  3946.         if (z) debug(F110,"xxifnu exp",lp,0);
  3947.     }
  3948. #endif /* COMMENT */
  3949.         debug(F101,"xxifnu chknum","",z);
  3950.     ifargs += 2;
  3951.     break;
  3952.  
  3953. #ifdef ZFCDAT
  3954.       case XXIFNE: {            /* IF NEWER */
  3955.     char d1[20], * d2;        /* Buffers for 2 rrrrrrrrrrdates */
  3956.     if ((z = cmifi("First file","",&s,&y,xxstring)) < 0)
  3957.       return(z);
  3958.     strcpy(d1,zfcdat(s));
  3959.     if ((z = cmifi("Second file","",&s,&y,xxstring)) < 0)
  3960.       return(z);
  3961.     d2 = zfcdat(s);
  3962.     if ((int)strlen(d1) != 17 || (int)strlen(d2) != 17) {
  3963.         printf("?Failure to get file date\n");
  3964.         return(-9);
  3965.     }
  3966.     debug(F110,"xxifnewer d1",d1,0);
  3967.     debug(F110,"xxifnewer d2",d2,0);
  3968.     z = (strcmp(d1,d2) > 0) ? 1 : 0;
  3969.         debug(F101,"xxifnewer","",z);
  3970.     ifargs += 2;
  3971.     break;
  3972.       }
  3973. #endif /* ZFCDAT */
  3974.  
  3975. #ifdef CK_IFRO
  3976.       case XXIFRO:            /* REMOTE-ONLY advisory */
  3977.     ifargs++;
  3978. #ifdef NOLOCAL
  3979.     z = 1;
  3980. #else
  3981.     z = remonly;
  3982. #endif /* NOLOCAL */
  3983.     break;
  3984. #endif /* CK_IFRO */
  3985.  
  3986.       case XXIFAL: {            /* ALARM */
  3987.       ifargs++;
  3988.       if (ck_alarm < 1L || alrm_date[0] < '0' || alrm_time[0] < '0') {
  3989.           z = 0;            /* ALARM not SET */
  3990.           break;            /* so IF ALARM fails */
  3991.       }
  3992.       x = 9;            /* Compare current date */
  3993.       s = tmpbuf;            /* and time with alarm time */
  3994.       zzstring("\\v(ndate)",&s,&x);
  3995.       z = (int) strncmp(tmpbuf,alrm_date,8); /* Compare dates */
  3996.       debug(F111,"IF ALARM date",alrm_date,z);
  3997.       if (z >= 0) {
  3998.           x = 6;            /* If dates equal, compare times */
  3999.           s = tmpbuf;
  4000.           zzstring("\\v(ntime)",&s,&x);
  4001.           z = strncmp(tmpbuf,alrm_time,5);
  4002.           debug(F111,"IF ALARM time",alrm_time,z);
  4003.       }    
  4004.       tmpbuf[0] = NUL;        /* z >= 0 if alarm is passed */
  4005.       z = (z>=0 ? 1 : 0);        /* z <  0 otherwise */
  4006.       debug(F101,"IF ALARM","",z);
  4007.         }
  4008.     break;
  4009.  
  4010. #ifdef OS2
  4011.       case XXIFSD:            /* Started-From-Dialer */
  4012.     ifargs++;
  4013.     z = StartedFromDialer;
  4014.     break;
  4015.  
  4016.       case XXIFTM:            /* Terminal-Macro */
  4017.     ifargs++;
  4018.     z = cmdstk[cmdlvl].ccflgs & CF_KMAC;
  4019.     break;
  4020. #endif /* OS2 */
  4021.  
  4022.       case XXIFEM:            /* Emulation is active */
  4023. #ifdef OS2    
  4024.     z = 1;
  4025. #else
  4026.     z = 0;
  4027. #endif /* OS2 */
  4028.     break;
  4029.  
  4030.       default:                /* Shouldn't happen */
  4031.     return(-2);
  4032.     }
  4033.     if (not) z = !z;            /* Handle NOT here for both IF & XIF */
  4034.  
  4035.     switch (cx) {            /* Separate handling for IF and XIF */
  4036.  
  4037.       case XXIF:            /* This is IF... */
  4038.     ifcmd[cmdlvl] = 1;        /* We just completed an IF command */
  4039.         debug(F101,"IF condition","",z);
  4040.     if (z) {            /* Condition is true */
  4041.         iftest[cmdlvl] = 1;        /* Remember that IF succeeded */
  4042.         if (maclvl > -1) {        /* In macro, */
  4043.         pushcmd();        /* save rest of command. */
  4044.         } else if (tlevel > -1) {    /* In take file, */
  4045.         debug(F100, "doif: pushing command", "", 0);
  4046.         pushcmd();        /* save rest of command. */
  4047.         } else {            /* If interactive, */
  4048.         cmini(ckxech);        /* just start a new command */
  4049.         printf("\n");        /* (like in MS-DOS Kermit) */
  4050.         if (pflag) prompt(xxstring);
  4051.         }
  4052.     } else {            /* Condition is false */
  4053.         iftest[cmdlvl] = 0;        /* Remember command failed. */
  4054.         if ((y = cmtxt("command to be ignored","",&s,NULL)) < 0)
  4055.           return(y);        /* Gobble up rest of line */
  4056.     }
  4057.     return(0);
  4058.  
  4059.       case XXIFX: {            /* This is XIF (Extended IF) */
  4060.       char *p;
  4061.       char e[5];
  4062.       int i;
  4063.       if ((y = cmtxt("Object command","",&s,NULL)) < 0)
  4064.         return(y);            /* Get object command. */
  4065.       p = s;
  4066.       lp = line;
  4067.       if (litcmd(&p,&lp) < 0) {    /* Insert quotes in THEN-part */
  4068.           return(-2);
  4069.       }
  4070.       if (!z) {            /* Use ELSE-part, if any */
  4071.           lp = line;        /* Write over THEN part. */
  4072.           *lp = NUL;
  4073.           while (*p == SP) p++;    /* Strip trailing spaces */
  4074.           if (*p) {            /* At end? */
  4075.           for (i = 0; i < 4; i++) e[i] = *p++; /* No, check for ELSE */
  4076.           if (xxstrcmp(e,"else",4)) return(-2);    /* No, syntax error */
  4077.           if (litcmd(&p,&lp) < 0) { /* Insert quotes */
  4078.               return(-2);
  4079.           }
  4080.           while (*p == SP) p++;    /* Strip trailing spaces */
  4081.           if (*p) return(-2);    /* Should be nothing here. */
  4082.           }
  4083.       }
  4084.       if (line[0]) {
  4085.           x = mlook(mactab,"_xif",nmac); /* get index of "_xif" macro. */
  4086.           if (x < 0) {            /* Not there? */
  4087.           addmmac("_xif",xif_def);    /* Put it back. */
  4088.           if (mlook(mactab,"_xif",nmac) < 0) { /* Look it up again. */
  4089.               printf("?XIF macro gone!\n");
  4090.               return(success = 0);
  4091.           }
  4092.           }
  4093.           dodo(x,line,cmdstk[cmdlvl].ccflgs); /* Do the XIF macro */
  4094.       }
  4095.       return(0);
  4096.       }
  4097.       case XXWHI: {            /* WHILE Command */
  4098.       p = cmdbuf;            /* Capture IF condition */
  4099.       ifcond[0] = NUL;        /* from command buffer */
  4100.       while (*p == SP) p++;
  4101.       while (*p != SP) p++;
  4102.       ifcp = ifcond;
  4103.       strcpy(ifcp,"{ \\flit(if not ");
  4104.       ifcp += (int)strlen(ifcp);
  4105.       while (*p != '{' && *p != NUL) *ifcp++ = *p++;
  4106.       p = " goto _..bot) } ";
  4107.       while (*ifcp++ = *p++) ;
  4108.       debug(F110,"WHILE cmd",ifcond,0);
  4109.  
  4110.       if ((y = cmtxt("Object command","",&s,NULL)) < 0)
  4111.         return(y);            /* Get object command. */
  4112.       p = s;
  4113.       lp = line;
  4114.       if (litcmd(&p,&lp) < 0) {    /* Insert quotes in object command */
  4115.           return(-2);
  4116.       }
  4117.       debug(F110,"WHILE body",line,0);
  4118.       if (line[0]) {
  4119.           char *p;
  4120.           x = mlook(mactab,"_while",nmac); /* index of "_while" macro. */
  4121.           if (x < 0) {        /* Not there? */
  4122.           addmmac("_while",whil_def); /* Put it back. */
  4123.           if (mlook(mactab,"_while",nmac) < 0) { /* Look it up again */
  4124.               printf("?WHILE macro definition gone!\n");
  4125.               return(success = 0);
  4126.           }
  4127.           }
  4128.           p = malloc((int)strlen(ifcond) + (int)strlen(line) + 2);
  4129.           if (p) {
  4130.           strcpy(p,ifcond);
  4131.           strcat(p,line);
  4132.           debug(F110,"WHILE dodo",p,0);
  4133.           dodo(x,p,cmdstk[cmdlvl].ccflgs);
  4134.           free(p);
  4135.           p = NULL;
  4136.           } else {
  4137.           printf("?Can't allocate storage for WHILE command");
  4138.           return(success = 0);
  4139.           }
  4140.       }
  4141.       return(0);
  4142.       }
  4143.       default:
  4144.     return(-2);
  4145.     }
  4146. }
  4147. #endif /* NOSPL */
  4148.  
  4149. /* Set up a TAKE command file */
  4150.  
  4151. int
  4152. dotake(s) char *s; {
  4153.     if ((tfile[++tlevel] = fopen(s,"r")) == NULL) {
  4154.     perror(s);
  4155.     debug(F110,"Failure to open",s,0);
  4156.     tlevel--;
  4157.     return(success = 0);
  4158.     } else {
  4159.     tfline[tlevel] = 0;        /* Line counter */
  4160. #ifdef VMS
  4161.     conres();            /* So Ctrl-C will work */
  4162. #endif /* VMS */
  4163. #ifndef NOSPL
  4164.     cmdlvl++;            /* Entering a new command level */
  4165.     if (cmdlvl > CMDSTKL) {
  4166.         cmdlvl--;
  4167.         printf("?TAKE files and/or DO commands nested too deeply\n");
  4168.         return(success = 0);
  4169.     }
  4170.     if (tfnam[tlevel]) {        /* Copy the filename */
  4171.         free(tfnam[tlevel]);
  4172.         tfnam[tlevel] = NULL;
  4173.     }
  4174.     if (tfnam[tlevel] = malloc(strlen(s) + 1))
  4175.       strcpy(tfnam[tlevel],s);
  4176.     ifcmd[cmdlvl] = 0;        /* Set variables for this cmd file */
  4177.     iftest[cmdlvl] = 0;
  4178.     count[cmdlvl]  = count[cmdlvl-1];  /* Inherit this */
  4179.     intime[cmdlvl] = intime[cmdlvl-1]; /* Inherit this */
  4180.     inpcas[cmdlvl] = inpcas[cmdlvl-1]; /* Inherit this */
  4181.     takerr[cmdlvl] = takerr[cmdlvl-1]; /* Inherit this */
  4182.     merror[cmdlvl] = merror[cmdlvl-1]; /* Inherit this */
  4183.     cmdstk[cmdlvl].src = CMD_TF;    /* Say we're in a TAKE file */
  4184.     cmdstk[cmdlvl].lvl = tlevel;    /* nested at this level */
  4185.     cmdstk[cmdlvl].ccflgs = cmdstk[cmdlvl-1].ccflgs;
  4186. #else
  4187.     takerr[tlevel] = takerr[tlevel-1]; /* Inherit this */
  4188. #endif /* NOSPL */
  4189.     }
  4190.     return(1);
  4191. }
  4192. #endif /* NOICP */
  4193.