home *** CD-ROM | disk | FTP | other *** search
/ kermit.columbia.edu / kermit.columbia.edu.tar / kermit.columbia.edu / archives / ckc192.zip / CKUCMD.C < prev    next >
C/C++ Source or Header  |  1996-11-24  |  119KB  |  3,976 lines
  1. #include "ckcsym.h"
  2.  
  3. char *cmdv = "Command package 6.0.088, 6 Sep 96";
  4.  
  5. #ifdef OS2
  6. int cmdmsk = 255; /* Command-terminal-to-C-Kermit character mask */
  7. #else
  8. int cmdmsk = 127; /* Command-terminal-to-C-Kermit character mask */
  9. #endif /* OS2 */
  10.  
  11. #ifdef BS_DIRSEP            /* Directory separator is backslash */
  12. #undef BS_DIRSEP
  13. #endif /* BS_DIRSEP */
  14.  
  15. #ifdef OS2
  16. #define BS_DIRSEP
  17. #endif /* BS_DIRSEP */
  18.  
  19. #include "ckcdeb.h"                     /* Formats for debug(), etc. */
  20. #include "ckcker.h"            /* Needed for BIGBUFOK definition */
  21. #include "ckucmd.h"            /* Needed for xx_strp prototype */
  22. #include "ckuusr.h"                     /* Needed for prompt length */
  23.  
  24. _PROTOTYP( int unhex, (char) );
  25. _PROTOTYP( static int filhelp, (int, char *, char *, int) );
  26. _PROTOTYP( VOID sh_sort, (char **, int) );
  27. _PROTOTYP( static VOID cmdclrscn, (void) );
  28.  
  29. #ifndef NOICP     /* The rest only if interactive command parsing selected */
  30.  
  31. #ifndef NOSPL
  32. _PROTOTYP( int chkvar, (char *) );
  33. #endif /* NOSPL */
  34.  
  35. static int blocklvl = 0;              /* "Block" level */
  36. static int linebegin = 0;             /* Flag for at start of a line */
  37. static int quoting = 1;
  38.  
  39. #ifdef BS_DIRSEP
  40. static int cmdirflg = 0;
  41. #endif /* BS_DIRSEP */
  42.  
  43. /*  C K U C M D  --  Interactive command package for Unix  */
  44.  
  45. /*
  46.   Author: Frank da Cruz (fdc@columbia.edu),
  47.   Columbia University Academic Information Systems, New York City.
  48.  
  49.   Copyright (C) 1985, 1996, Trustees of Columbia University in the City of New
  50.   York.  The C-Kermit software may not be, in whole or in part, licensed or
  51.   sold for profit as a software product itself, nor may it be included in or
  52.   distributed with commercial products or otherwise distributed by commercial
  53.   concerns to their clients or customers without written permission of the
  54.   Office of Kermit Development and Distribution, Columbia University.  This
  55.   copyright notice must not be removed, altered, or obscured.
  56. */
  57.  
  58. /*
  59. Modeled after the DECSYSTEM-20 command parser (the COMND JSYS), RIP. Features:
  60.  
  61. . parses and verifies keywords, filenames, text strings, numbers, other data
  62. . displays appropriate menu or help message when user types "?"
  63. . does keyword and filename completion when user types ESC or TAB
  64. . does partial filename completion
  65. . accepts any unique abbreviation for a keyword
  66. . allows keywords to have attributes, like "invisible" and "abbreviation"
  67. . can supply defaults for fields omitted by user
  68. . provides command retry and recall
  69. . provides command line editing (character, word, and line deletion)
  70. . accepts input from keyboard, command files, macros, or redirected stdin
  71. . allows for full or half duplex operation, character or line input
  72. . allows \-escapes for hard-to-type characters
  73. . allows specification of a user exit to expand variables, etc.
  74. . settable prompt, protected from deletion, dynamically re-evaluated each time.
  75.  
  76. Functions:
  77.  cmsetp - Set prompt (cmprom is prompt string)
  78.  cmsavp - Save current prompt
  79.  prompt - Issue prompt
  80.  cmini - Clear the command buffer (before parsing a new command)
  81.  cmres - Reset command buffer pointers (before reparsing)
  82.  cmkey - Parse a keyword or token
  83.  cmnum - Parse a number
  84.  cmifi - Parse an input file name
  85.  cmofi - Parse an output file name
  86.  cmdir - Parse a directory name
  87.  cmfld - Parse an arbitrary field
  88.  cmtxt - Parse a text string
  89.  cmcfm - Parse command confirmation (end of line)
  90.  
  91. Return codes:
  92.  -9: like -2 except this module already printed the error message
  93.  -3: no input provided when required
  94.  -2: input was invalid (e.g. not a number when a number was required)
  95.  -1: reparse required (user deleted into a preceding field)
  96.   0 or greater: success
  97. See individual functions for greater detail.
  98.  
  99. Before using these routines, the caller should #include ckucmd.h, and set the
  100. program's prompt by calling cmsetp().  If the file parsing functions cmifi,
  101. cmofi, or cmdir are to be used, this module must be linked with a ck?fio file
  102. system support module for the appropriate system, e.g. ckufio for Unix.  If
  103. the caller puts the terminal in character wakeup ("cbreak") mode with no echo,
  104. then these functions will provide line editing -- character, word, and line
  105. deletion, as well as keyword and filename completion upon ESC and help
  106. strings, keyword, or file menus upon '?'.  If the caller puts the terminal
  107. into character wakeup/noecho mode, care should be taken to restore it before
  108. exit from or interruption of the program.  If the character wakeup mode is not
  109. set, the system's own line editor may be used.
  110.  
  111. NOTE: Contrary to expectations, many #ifdef's have been added to this module.
  112. Any operation requiring an #ifdef (like clear screen, get character from
  113. keyboard, erase character from screen, etc) should eventually be turned into a
  114. call to a function that is defined in ck?tio.c, but then all the ck?tio.c
  115. modules would have to be changed...
  116. */
  117.  
  118. /* Includes */
  119.  
  120. #include "ckcker.h"
  121. #include "ckcasc.h"            /* ASCII character symbols */
  122. #include "ckucmd.h"                     /* Command parsing definitions */
  123. #include <errno.h>            /* Error number symbols */
  124.  
  125. #ifdef OS2
  126. #ifndef NT
  127. #define INCL_NOPM
  128. #define INCL_VIO            /* Needed for ckocon.h */
  129. #include <os2.h> 
  130. #undef COMMENT
  131. #else 
  132. #define APIRET ULONG
  133. #include <windows.h>
  134. #endif /* NT */
  135. #include "ckocon.h"
  136. #include <io.h>
  137. #endif /* OS2 */
  138.  
  139. #ifdef NT
  140. #define stricmp _stricmp 
  141. #endif /* NT */
  142.  
  143. #ifdef OSK
  144. #define cc ccount            /* OS-9/68K compiler bug */
  145. #endif /* OSK */
  146.  
  147. #ifdef GEMDOS                /* Atari ST */
  148. #ifdef putchar
  149. #undef putchar
  150. #endif /* putchar */
  151. #define putchar(x) conoc(x)
  152. #endif /* GEMDOS */
  153.  
  154. /* Local variables */
  155.  
  156. static
  157. int psetf = 0,                          /* Flag that prompt has been set */
  158.     cc = 0,                             /* Character count */
  159.     dpx = 0,                            /* Duplex (0 = full) */
  160.     inword = 0;                /* In the middle of getting a word */
  161.  
  162. static
  163. int hw = HLPLW,                         /* Help line width */
  164.     hc = HLPCW,                         /* Help line column width */
  165.     hh,                                 /* Current help column number */
  166.     hx;                                 /* Current help line position */
  167.  
  168. char *dfprom = "Command? ";             /* Default prompt */
  169.  
  170. int cmflgs;                             /* Command flags */
  171. int cmfsav;                /* A saved version of them */
  172.  
  173. #ifdef DCMDBUF
  174. char *cmdbuf;                /* Command buffer */
  175. char *savbuf;                /* Buffer to save copy of command */
  176. char *atmbuf;                /* Atom buffer - for current field */
  177. char *atxbuf;                /* For expanding the atom buffer */
  178. #ifdef OLDHELP
  179. static char *hlpbuf;            /* Help string buffer */
  180. #endif /* OLDHELP */
  181. static char *atybuf;            /* For copying atom buffer */
  182. static char *filbuf;            /* File name buffer */
  183. static char *cmprom;            /* Program's prompt */
  184. static char *cmprxx;            /* Program's prompt, unevaluated */
  185.  
  186. #ifdef CK_RECALL
  187. /*
  188.   Command recall is available only if we can make profligate use of malloc().
  189. */
  190. #define R_MAX 10            /* Max number of commands to save */
  191. int cm_recall = R_MAX;            /* Size of command recall buffer */
  192. int on_recall = 1;            /* Recall feature is ON */
  193. int in_recall = 0;            /* Recall buffers are init'd */
  194. static int
  195.   current = -1,                /* Pointer to current command */
  196.   rlast = -1;                /* Index of last command in buffer */
  197. static char **recall = NULL;        /* Array of recall buffer pointers */
  198. #endif /* CK_RECALL */
  199. #else
  200. char cmdbuf[CMDBL+4];                   /* Command buffer */
  201. char savbuf[CMDBL+4];                   /* Buffer to save copy of command */
  202. char atmbuf[ATMBL+4];                   /* Atom buffer */
  203. char atxbuf[CMDBL+4];                   /* For expanding the atom buffer */
  204. #ifdef OLDHELP
  205. static char hlpbuf[HLPBL+4];        /* Help string buffer */
  206. #endif /* OLDHELP */
  207. static char atybuf[ATMBL+4];        /* For copying atom buffer */
  208. static char filbuf[ATMBL+4];        /* File name buffer */
  209. static char cmprom[PROMPTL+1];        /* Program's prompt */
  210. static char cmprxx[PROMPTL+1];        /* Program's prompt, unevaluated */
  211. #endif /* DCMDBUF */
  212.  
  213. /* Command buffer pointers */
  214.  
  215. static char *bp,                        /* Current command buffer position */
  216.     *pp,                                /* Start of current field */
  217.     *np;                                /* Start of next field */
  218.  
  219. static int ungw,            /* For ungetting words */
  220.     atxn;                /* Expansion buffer (atxbuf) length */
  221.  
  222. #ifdef OS2
  223. extern int wideresult;
  224. #endif /* OS2 */
  225.  
  226. extern int cmd_cols, cmd_rows;
  227.  
  228. #ifdef OLDHELP
  229. _PROTOTYP( static VOID addhlp, (char *) );
  230. _PROTOTYP( static VOID clrhlp, (void) );
  231. _PROTOTYP( static VOID dmphlp, (void) );
  232. #endif /* OLDHELP */
  233. _PROTOTYP( static int gtword, (void) );
  234. _PROTOTYP( static int addbuf, (char *) );
  235. _PROTOTYP( static int setatm, (char *, int) );
  236. _PROTOTYP( static int cmdgetc, (void) );
  237. _PROTOTYP( static VOID cmdnewl, (char) );
  238. _PROTOTYP( static VOID cmdchardel, (void) );
  239. _PROTOTYP( static VOID cmdecho, (char, int) );
  240. _PROTOTYP( static int test, (int, int) );
  241. #ifdef GEMDOS
  242. _PROTOTYP( extern char *strchr, (char *, int) );
  243. #endif /* GEMDOS */
  244.  
  245. /*  T E S T  --  Bit test  */
  246.  
  247. static int
  248. test(x,m) int x, m; { /*  Returns 1 if any bits from m are on in x, else 0  */
  249.     return((x & m) ? 1 : 0);
  250. }
  251.  
  252. /*  K W D H E L P  --  Given a keyword table, print keywords in columns.  */
  253. /*
  254.   Call with:
  255.     s     - keyword table
  256.     n     - number of entries
  257.     pat   - pattern (left substring) that must match for each keyword
  258.     pre   - prefix to add to each keyword
  259.     post  - suffix to add to each keyword
  260.     off   - offset on first screenful, allowing room for introductory text
  261.  
  262.   Arranges keywords in columns with width based on longest keyword.
  263.   Does "more?" prompting at end of screen.  
  264.   Uses global cmd_rows and cmd_cols for screen size.
  265. */
  266. VOID
  267. kwdhelp(s,n,pat,pre,post,off)
  268.     struct keytab s[]; int n, off; char *pat, *pre, *post;
  269. /* kwdhelp */ {
  270.  
  271.     int width = 0;
  272.     int cc;
  273.     int cols, height, i, j, k, lc, n2 = 0;
  274.     char *b = NULL, *p, *q;
  275.     char *pa, *px;
  276.     char **s2 = NULL;
  277.     
  278.     cc = strlen(pat);
  279.  
  280.     if (!s) return;            /* Nothing to do */
  281.     if (n < 1) return;            /* Ditto */
  282.     if (off < 0) off = 0;        /* Offset for first page */
  283.     if (!pre) pre = "";            /* Handle null string pointers */
  284.     if (!post) post = "";
  285.     lc = off;                /* Screen-line counter */
  286.  
  287.     if (s2 = (char **) malloc(n * sizeof(char *))) {
  288.     for (i = 0; i < n; i++) {    /* Find longest keyword */
  289.         s2[i] = NULL;
  290.         if (/* (cc > 0) && */
  291.         (xxstrcmp(s[i].kwd,pat,cc)) || (s[i].flgs & CM_INV)
  292.         )
  293.           continue;
  294.         s2[n2++] = s[i].kwd;    /* Copy pointers to visible ones */
  295.         j = strlen(s[i].kwd);
  296.         if (j > width)
  297.           width = j;
  298.     }
  299.     /* Column width */
  300.     n = n2;
  301.     }
  302.     if (s2 && (b = (char *) malloc(cmd_cols + 1))) { /* Make a line buffer   */
  303.     char * bx;
  304.     bx = b + cmd_cols;
  305.     width += (int)strlen(pre) + (int)strlen(post) + 2; 
  306.     cols = cmd_cols / width;    /* How many columns? */
  307.     if (cols < 1) cols = 1;
  308.     height = n / cols;        /* How long is each column? */
  309.     if (n % cols) height++;        /* Add one for remainder, if any */
  310.  
  311.     for (i = 0; i < height; i++) {        /* Loop for each row */
  312.         for (j = 0; j < cmd_cols; j++)  /* First fill row with blanks */
  313.           b[j] = SP;
  314.         for (j = 0; j < cols; j++) {    /* Loop for each column in row */
  315.         k = i + (j * height);       /* Index of next keyword */
  316.         if (k < n) {            /* In range? */
  317.             pa = pre;
  318.             px = post;
  319.             p = s2[k];            /* Point to verb name */
  320.             q = b + (j * width) + 1; /* Where to copy it to */
  321.             while ((q < bx) && (*q++ = *pa++)) ; /* Copy prefix */
  322.             q--;                         /* Back up over NUL */
  323.             while ((q < bx) && (*q++ = *p++)) ;     /* Copy filename */
  324.             q--;                         /* Back up over NUL */
  325.             while ((q < bx) && (*q++ = *px++)) ; /* Copy suffix */
  326.             if (j < cols - 1) {
  327.             q--;
  328.             *q = SP;    /* Replace the space */
  329.             }
  330.         }
  331.         }
  332.         p = b + cmd_cols - 1;    /* Last char in line */
  333.         while (*p-- == SP) ;    /* Trim */
  334.         *(p+2) = NUL;
  335.         printf("%s\n",b);        /* Print the line */
  336.         if (++lc > (cmd_rows - 2)) { /* Screen full? */
  337.         if (!askmore())        /* Do more-prompting... */
  338.           goto xkwdhelp;
  339.         else
  340.           lc = 0;
  341.         }
  342.     } 
  343.     /* printf("\n"); */        /* Blank line at end of report */
  344.     } else {                /* Malloc failure, no columns */
  345.     for (i = 0; i < n; i++) {
  346.         if (s[i].flgs & CM_INV)    /* Use original keyword table */
  347.           continue;            /* skipping invisible entries */
  348.         printf("%s%s%s\n",pre,s[i].kwd,post);
  349.         if (++lc > (cmd_rows - 2)) { /* Screen full? */
  350.         if (!askmore())        /* Do more-prompting... */
  351.           goto xkwdhelp;
  352.         else
  353.           lc = 0;
  354.         }        
  355.     }
  356.     }
  357.   xkwdhelp:
  358.     if (s2) free(s2);            /* Free array copy */
  359.     if (b) free(b);            /* Free line buffer */
  360.     return;
  361. }
  362.  
  363. VOID
  364. sh_sort(s,n) char **s; int n; {        /* Shell sort */
  365.     int m, i, j;            /* Much faster than bubble sort */
  366.     char *t;                /* Not as fast as Quicksort */
  367.     if (n < 2)                /* but less code, and fast enough */
  368.       return;
  369.     m = n;                /* Initial group size is whole array */
  370.     while (1) {
  371.     m = m / 2;            /* Divide group size in half */
  372.     if (m < 1)            /* Small as can be, so done */
  373.       break;
  374.     for (j = 0; j < n-m; j++) {    /* Sort each group */
  375.         t = s[j+m];
  376.         for (i = j; i >= 0; i -= m) {
  377.         if (strcmp(s[i],t) < 0)
  378.           break;
  379.         s[i+m] = s[i];
  380.         }
  381.         s[i+m] = t;
  382.     }
  383.     }
  384. }
  385.  
  386. /*  F I L H E L P  --  Given a file list, print names in columns.  */
  387. /*
  388.   Call with:
  389.     s     - file list
  390.     n     - number of entries
  391.     pat   - pattern (left substring) that must match for each filename
  392.     pre   - prefix to add to each filename
  393.     post  - suffix to add to each filename
  394.     off   - offset on first screenful, allowing room for introductory text
  395.  
  396.   Arranges filenames in columns with width based on longest filename.
  397.   Does "more?" prompting at end of screen.  
  398.   Uses global cmd_rows and cmd_cols for screen size.
  399. */
  400. #ifndef MAXPATHLEN
  401. #define MAXPATHLEN 1024
  402. #endif /* MAXPATHLEN */
  403.  
  404. static int
  405. filhelp(n,pre,post,off) int n, off; char *pre, *post; {
  406.     char filbuf[MAXPATHLEN + 1];    /* Temp buffer for one filename */
  407.     int width = 0;
  408.     int cols, height, i, j, k, lc, n2 = 0, rc = 0;
  409.     char *b = NULL, *p, *q;
  410.     char *pa, *px;
  411.     char **s2 = NULL;
  412.  
  413.     if (n < 1) return(0);
  414.     if (off < 0) off = 0;        /* Offset for first page */
  415.     if (!pre) pre = "";            /* Handle null string pointers */
  416.     if (!post) post = "";
  417.     lc = off;                /* Screen-line counter */
  418.  
  419.     if (s2 = (char **) malloc(n * sizeof(char *))) {
  420.     for (i = 0; i < n; i++) {    /* Loop through filenames */
  421.         s2[i] = NULL;        /* Initialize each pointer to NULL */
  422.         znext(filbuf);        /* Get next filename */
  423.         if (!filbuf[0])        /* Shouldn't happen */
  424.           break;
  425.         if (!(s2[n2] = malloc((j = (int) strlen(filbuf)) + 1))) {
  426.         printf("?Memory allocation failure\n");
  427.         rc = -9;
  428.         goto xfilhelp;
  429.         }
  430.         if (j <= MAXPATHLEN) {
  431.         strcpy(s2[n2],filbuf);
  432.         n2++;
  433.         } else {
  434.         printf("?Name too long - %s\n", filbuf);
  435.         rc = -9;
  436.         goto xfilhelp;
  437.         }        
  438.         if (j > width)        /* Get width of widest one */
  439.           width = j;
  440.     }
  441.     n = n2;                /* How many we actually got */
  442.     }
  443.     sh_sort(s2,n);            /* Alphabetize the list */
  444.  
  445.     if (s2 && (b = (char *) malloc(cmd_cols + 1))) { /* Make a line buffer */
  446.     char * bx;
  447.     bx = b + cmd_cols;
  448.     width += (int)strlen(pre) + (int)strlen(post) + 2; 
  449.     cols = cmd_cols / width;    /* How many columns? */
  450.     if (cols < 1) cols = 1;
  451.     height = n / cols;        /* How long is each column? */
  452.     if (n % cols) height++;        /* Add one for remainder, if any */
  453.  
  454.     for (i = 0; i < height; i++) {        /* Loop for each row */
  455.         for (j = 0; j < cmd_cols; j++)  /* First fill row with blanks */
  456.           b[j] = SP;
  457.         for (j = 0; j < cols; j++) {    /* Loop for each column in row */
  458.         k = i + (j * height);       /* Index of next filename */
  459.         if (k < n) {            /* In range? */
  460.             pa = pre;
  461.             px = post;
  462.             p = s2[k];                       /* Point to filename */
  463.             q = b + (j * width) + 1;             /* and destination */
  464.             while ((q < bx) && (*q++ = *pa++)) ; /* Copy prefix */
  465.             q--;                         /* Back up over NUL */
  466.             while ((q < bx) && (*q++ = *p++)) ;     /* Copy filename */
  467.             q--;                         /* Back up over NUL */
  468.             while ((q < bx) && (*q++ = *px++)) ; /* Copy suffix */
  469.             if (j < cols - 1) {
  470.             q--;
  471.             *q = SP;    /* Replace the space */
  472.             }
  473.         }
  474.         }
  475.         p = b + cmd_cols - 1;    /* Last char in line */
  476.         while (*p-- == SP) ;    /* Trim */
  477.         *(p+2) = NUL;
  478.         printf("%s\n",b);        /* Print the line */
  479.         if (++lc > (cmd_rows - 2)) { /* Screen full? */
  480.         if (!askmore()) {    /* Do more-prompting... */
  481.             rc = 0;
  482.             goto xfilhelp;
  483.         } else
  484.           lc = 0;
  485.         }
  486.     } 
  487.     printf("\n");            /* Blank line at end of report */
  488.     rc = 0;
  489.     goto xfilhelp;
  490.     } else {                /* Malloc failure, no columns */
  491.     for (i = 0; i < n; i++) {
  492.         znext(filbuf);
  493.         printf("%s%s%s\n",pre,filbuf,post);
  494.         if (++lc > (cmd_rows - 2)) { /* Screen full? */
  495.         if (!askmore()) {     /* Do more-prompting... */
  496.             rc = 0;
  497.             goto xfilhelp;
  498.         } else lc = 0;
  499.         }        
  500.     }
  501. xfilhelp:
  502.     if (b) free(b);
  503.     for (i = 0; i < n2; i++)
  504.       if (s2[i]) free(s2[i]);
  505.     if (s2) free(s2);
  506.     return(rc);
  507.     }
  508. }
  509.  
  510. /*  C M S E T U P  --  Set up command buffers  */
  511.  
  512. #ifdef DCMDBUF
  513. int
  514. cmsetup() {
  515.     if (!(cmdbuf = malloc(CMDBL + 4))) return(-1);
  516.     if (!(savbuf = malloc(CMDBL + 4))) return(-1);
  517.     savbuf[0] = '\0';
  518. #ifdef OLDHELP
  519.     if (!(hlpbuf = malloc(HLPBL + 4))) return(-1);
  520. #endif /* OLDHELP */
  521.     if (!(atmbuf = malloc(ATMBL + 4))) return(-1);
  522.     if (!(atxbuf = malloc(CMDBL + 4))) return(-1);
  523.     if (!(atybuf = malloc(ATMBL + 4))) return(-1);
  524.     if (!(filbuf = malloc(ATMBL + 4))) return(-1);
  525.     if (!(cmprom = malloc(PROMPTL + 4))) return(-1);
  526.     if (!(cmprxx = malloc(PROMPTL + 4))) return(-1);
  527. #ifdef CK_RECALL
  528.     cmrini(cm_recall);
  529. #endif /* CK_RECALL */
  530.     return(0);
  531. }
  532.  
  533. #ifdef CK_RECALL
  534. /* Initialize or change size of command recall buffer */
  535. int
  536. cmrini(n) int n; {
  537.     int i;
  538.     if (recall && in_recall) {        /* Free old storage, if any */
  539.     for (i = 0; i < cm_recall; i++) {
  540.         if (recall[i]) {
  541.         free(recall[i]);
  542.         recall[i] = NULL;
  543.         }
  544.     }
  545.     free(recall);
  546.     recall = NULL;
  547.     }
  548.     cm_recall = n;            /* Set new size */
  549.     rlast = current = -1;        /* Initialize pointers */
  550.     if (n > 0) {
  551.     recall = (char **)malloc((cm_recall + 1) * sizeof(char *));
  552.     if (!recall)
  553.       return(1);
  554.     for (i = 0; i < cm_recall; i++) {
  555.         recall[i] = NULL;
  556.     }
  557.     in_recall = 1;            /* Recall buffers init'd */
  558.     }
  559.     return(0);
  560. }
  561. #endif /* CK_RECALL */
  562. #endif /* DCMDBUF */
  563.  
  564. /*  C M S E T P  --  Set the program prompt.  */
  565.  
  566. VOID
  567. cmsetp(s) char *s; {
  568.     strncpy(cmprxx,s,PROMPTL - 1);
  569.     cmprxx[PROMPTL] = NUL;
  570.     psetf = 1;                          /* Flag that prompt has been set. */
  571. }
  572.  
  573. /*  C M S A V P  --  Save a copy of the current prompt.  */
  574.  
  575. VOID
  576. #ifdef CK_ANSIC
  577. cmsavp(char s[], int n)
  578. #else
  579. cmsavp(s,n) char s[]; int n;
  580. #endif /* CK_ANSIC */
  581. /* cmsavp */ {
  582.     strncpy(s,cmprxx,n-1);
  583.     s[n-1] = NUL;
  584. }
  585.  
  586. /*  P R O M P T  --  Issue the program prompt.  */
  587.  
  588. VOID
  589. prompt(f) xx_strp f; {
  590.     char *sx, *sy; int n;
  591.  
  592.     if (psetf == 0) cmsetp(dfprom);     /* If no prompt set, set default. */
  593.  
  594.     sx = cmprxx;            /* Unevaluated copy */
  595.     if (f) {                /* If conversion function given */
  596.     sy = cmprom;            /* Evaluate it */
  597.     debug(F101,"PROMPT sx","",sx);
  598.     debug(F101,"PROMPT sy","",sy);
  599.     n = PROMPTL;
  600.     if ((*f)(sx,&sy,&n) < 0)    /* If evaluation failed */
  601.       sx = cmprxx;            /* revert to unevaluated copy */
  602.     else
  603.       sx = cmprom;
  604.     } else strcpy(cmprom,sx);
  605. #ifdef OSK
  606.     fputs(sx, stdout);
  607. #else
  608. #ifdef MAC
  609.     printf("%s", sx);
  610. #else
  611.     printf("\r%s",sx);            /* Print the prompt. */
  612.     fflush(stdout);            /* Now! */
  613. #endif /* MAC */
  614. #endif /* OSK */
  615. }
  616.  
  617. #ifndef NOSPL
  618. VOID
  619. pushcmd() {                /* For use with IF command. */
  620.     strncpy(savbuf,np,CMDBL);        /* Save the dependent clause,  */
  621.     cmres();                /* and clear the command buffer. */
  622.     debug(F110, "pushcmd: savbuf:", savbuf, 0);
  623. }
  624. #endif /* NOSPL */
  625.  
  626. #ifdef COMMENT
  627. /* no longer used... */
  628. VOID
  629. popcmd() {
  630.     strncpy(cmdbuf,savbuf,CMDBL);    /* Put back the saved material */
  631.     *savbuf = '\0';            /* and clear the save buffer */
  632.     cmres();
  633. }
  634. #endif /* COMMENT */
  635.  
  636. /*  C M R E S  --  Reset pointers to beginning of command buffer.  */
  637.  
  638. VOID
  639. cmres() {
  640.     inword = 0;                /* We're not in a word */
  641.     cc = 0;                /* Character count is zero */
  642.  
  643. /* Initialize pointers */
  644.  
  645.     pp = cmdbuf;            /* Beginning of current field */
  646.     bp = cmdbuf;            /* Current position within buffer */
  647.     np = cmdbuf;            /* Where to start next field */
  648.  
  649.     cmflgs = -5;                        /* Parse not yet started. */
  650.     ungw = 0;                /* Don't need to unget a word. */
  651. }
  652.  
  653. /*  C M I N I  --  Clear the command and atom buffers, reset pointers.  */
  654.  
  655. /*
  656. The argument specifies who is to echo the user's typein --
  657.   1 means the cmd package echoes
  658.   0 somebody else (system, front end, terminal) echoes
  659. */
  660. VOID
  661. cmini(d) int d; {
  662.     for (bp = cmdbuf; bp < cmdbuf+CMDBL; bp++) *bp = NUL;
  663.     *atmbuf = *savbuf = *atxbuf = *atybuf = *filbuf = NUL;
  664. #ifdef OLDHELP
  665.     *hlpbuf = NUL;
  666. #endif /* OLDHELP */
  667.     blocklvl = 0;        /* Block level is 0 */
  668.     linebegin = 1;        /* And we're at the beginning of a line */
  669.     dpx = d;            /* Make a global copy of the echo flag */
  670.     cmres();
  671. }
  672.  
  673. #ifndef NOSPL
  674. /* The following bits are to allow the command package to call itself */
  675. /* in the middle of a parse.  To do this, begin by calling cmpush, and */
  676. /* end by calling cmpop. */
  677.  
  678. #ifdef DCMDBUF
  679. struct cmp {
  680.     int i[5];                /* stack for integers */
  681.     char *c[3];                /* stack for pointers */
  682.     char *b[8];                /* stack for buffer contents */
  683. };
  684. struct cmp *cmp = 0;
  685. #else
  686. int cmp_i[CMDDEP+1][5];            /* Stack for integers */
  687. char *cmp_c[CMDDEP+1][5];        /* for misc pointers */
  688. char *cmp_b[CMDDEP+1][7];        /* for buffer contents pointers */
  689. #endif /* DCMDBUF */
  690.  
  691. int cmddep = -1;            /* Current stack depth */
  692.  
  693. int
  694. cmpush() {                /* Save the command environment */
  695.     char *cp;                /* Character pointer */
  696.  
  697.     if (cmddep >= CMDDEP)        /* Enter a new command depth */
  698.       return(-1);
  699.     cmddep++;
  700.     debug(F101,"&cmpush","",cmddep);
  701.  
  702. #ifdef DCMDBUF
  703.     /* allocate memory for cmp if not already done */
  704.     if (!cmp && !(cmp = (struct cmp *) malloc(sizeof(struct cmp)*(CMDDEP+1))))
  705.       fatal("cmpush: no memory for cmp");
  706.     cmp[cmddep].i[0] = cmflgs;        /* First do the global ints */
  707.     cmp[cmddep].i[1] = cmfsav;
  708.     cmp[cmddep].i[2] = atxn;
  709.     cmp[cmddep].i[3] = ungw;
  710.  
  711.     cmp[cmddep].c[0] = bp;        /* Then the global pointers */
  712.     cmp[cmddep].c[1] = pp;
  713.     cmp[cmddep].c[2] = np;
  714. #else
  715.     cmp_i[cmddep][0] = cmflgs;        /* First do the global ints */
  716.     cmp_i[cmddep][1] = cmfsav;
  717.     cmp_i[cmddep][2] = atxn;
  718.     cmp_i[cmddep][3] = ungw;
  719.  
  720.     cmp_c[cmddep][0] = bp;        /* Then the global pointers */
  721.     cmp_c[cmddep][1] = pp;
  722.     cmp_c[cmddep][2] = np;
  723. #endif /* DCMDBUF */
  724.  
  725.     /* Now the buffers themselves.  A lot of repititious code... */
  726.  
  727. #ifdef DCMDBUF
  728.     cp = malloc((int)strlen(cmdbuf)+1);    /* 0: Command buffer */
  729.     if (cp) strcpy(cp,cmdbuf);
  730.     cmp[cmddep].b[0] = cp;
  731.     if (cp == NULL) return(-1);
  732.  
  733.     cp = malloc((int)strlen(savbuf)+1);    /* 1: Save buffer */
  734.     if (cp) strcpy(cp,savbuf);
  735.     cmp[cmddep].b[1] = cp;
  736.     if (cp == NULL) return(-1);
  737.  
  738. #ifdef OLDHELP
  739.     cp = malloc((int)strlen(hlpbuf)+1);    /* 2: Help string buffer */
  740.     if (cp) strcpy(cp,hlpbuf);
  741.     cmp[cmddep].b[2] = cp;
  742.     if (cp == NULL) return(-1);
  743. #else
  744.     cmp[cmddep].b[2] = NULL;
  745. #endif /* OLDHELP */
  746.  
  747.     cp = malloc((int)strlen(atmbuf)+1);    /* 3: Atom buffer */
  748.     if (cp) strcpy(cp,atmbuf);
  749.     cmp[cmddep].b[3] = cp;
  750.     if (cp == NULL) return(-1);
  751.  
  752.     cp = malloc((int)strlen(atxbuf)+1);    /* 4: Expansion buffer */
  753.     if (cp) strcpy(cp,atxbuf);
  754.     cmp[cmddep].b[4] = cp;
  755.     if (cp == NULL) return(-1);
  756.  
  757.     cp = malloc((int)strlen(atybuf)+1);    /* 5: Atom buffer copy */
  758.     if (cp) strcpy(cp,atybuf);
  759.     cmp[cmddep].b[5] = cp;
  760.     if (cp == NULL) return(-1);
  761.  
  762.     cp = malloc((int)strlen(filbuf)+1);    /* 6: File name buffer */
  763.     if (cp) strcpy(cp,filbuf);
  764.     cmp[cmddep].b[6] = cp;
  765.     if (cp == NULL) return(-1);
  766. #else
  767.     cp = malloc((int)strlen(cmdbuf)+1);    /* 0: Command buffer */
  768.     if (cp) strcpy(cp,cmdbuf);
  769.     cmp_b[cmddep][0] = cp;
  770.     if (cp == NULL) return(-1);
  771.  
  772.     cp = malloc((int)strlen(savbuf)+1);    /* 1: Save buffer */
  773.     if (cp) strcpy(cp,savbuf);
  774.     cmp_b[cmddep][1] = cp;
  775.     if (cp == NULL) return(-1);
  776.  
  777. #ifdef OLDHELP
  778.     cp = malloc((int)strlen(hlpbuf)+1);    /* 2: Help string buffer */
  779.     if (cp) strcpy(cp,hlpbuf);
  780.     cmp_b[cmddep][2] = cp;
  781.     if (cp == NULL) return(-1);
  782. #else
  783.     cmp_b[cmddep][2] = NULL;    
  784. #endif /* OLDHELP */
  785.  
  786.     cp = malloc((int)strlen(atmbuf)+1);    /* 3: Atom buffer */
  787.     if (cp) strcpy(cp,atmbuf);
  788.     cmp_b[cmddep][3] = cp;
  789.     if (cp == NULL) return(-1);
  790.  
  791.     cp = malloc((int)strlen(atxbuf)+1);    /* 4: Expansion buffer */
  792.     if (cp) strcpy(cp,atxbuf);
  793.     cmp_b[cmddep][4] = cp;
  794.     if (cp == NULL) return(-1);
  795.  
  796.     cp = malloc((int)strlen(atybuf)+1);    /* 5: Atom buffer copy */
  797.     if (cp) strcpy(cp,atybuf);
  798.     cmp_b[cmddep][5] = cp;
  799.     if (cp == NULL) return(-1);
  800.  
  801.     cp = malloc((int)strlen(filbuf)+1);    /* 6: File name buffer */
  802.     if (cp) strcpy(cp,filbuf);
  803.     cmp_b[cmddep][6] = cp;
  804.     if (cp == NULL) return(-1);
  805. #endif /* DCMDBUF */
  806.  
  807.     cmini(dpx);                /* Initize the command parser */
  808.     return(0);
  809. }
  810.  
  811. int
  812. cmpop() {                /* Restore the command environment */
  813.     debug(F101,"&cmpop","",cmddep);
  814.     if (cmddep < 0) return(-1);        /* Don't pop too much! */
  815.  
  816. #ifdef DCMDBUF
  817.     cmflgs = cmp[cmddep].i[0];        /* First do the global ints */
  818.     cmfsav = cmp[cmddep].i[1];
  819.     atxn = cmp[cmddep].i[2];
  820.     ungw = cmp[cmddep].i[3];
  821.  
  822.     bp = cmp[cmddep].c[0];        /* Then the global pointers */
  823.     pp = cmp[cmddep].c[1];
  824.     np = cmp[cmddep].c[2];
  825. #else
  826.     cmflgs = cmp_i[cmddep][0];        /* First do the global ints */
  827.     cmfsav = cmp_i[cmddep][1];
  828.     atxn = cmp_i[cmddep][2];
  829.     ungw = cmp_i[cmddep][3];
  830.  
  831.     bp = cmp_c[cmddep][0];        /* Then the global pointers */
  832.     pp = cmp_c[cmddep][1];
  833.     np = cmp_c[cmddep][2];
  834. #endif /* DCMDBUF */
  835.  
  836.     /* Now the buffers themselves. */
  837.  
  838. #ifdef DCMDBUF
  839.     if (cmp[cmddep].b[0]) {
  840.     strncpy(cmdbuf,cmp[cmddep].b[0],CMDBL); /* 0: Command buffer */
  841.     free(cmp[cmddep].b[0]);
  842.     cmp[cmddep].b[0] = NULL;
  843.     }
  844.     if (cmp[cmddep].b[1]) {
  845.     strncpy(savbuf,cmp[cmddep].b[1],CMDBL); /* 1: Save buffer */
  846.     free(cmp[cmddep].b[1]);
  847.     cmp[cmddep].b[1] = NULL;
  848.     }
  849. #ifdef OLDHELP
  850.     if (cmp[cmddep].b[2]) {
  851.     strncpy(hlpbuf,cmp[cmddep].b[2],HLPBL); /* 2: Help buffer */
  852.     free(cmp[cmddep].b[2]);
  853.     cmp[cmddep].b[2] = NULL;
  854.     }
  855. #endif /* OLDHELP */
  856.     if (cmp[cmddep].b[3]) {
  857.     strncpy(atmbuf,cmp[cmddep].b[3],ATMBL); /* 3: Atomic buffer! */
  858.     free(cmp[cmddep].b[3]);
  859.     cmp[cmddep].b[3] = NULL;
  860.     }
  861.     if (cmp[cmddep].b[4]) {
  862.     strncpy(atxbuf,cmp[cmddep].b[4],ATMBL); /* 4: eXpansion buffer */
  863.     free(cmp[cmddep].b[4]);
  864.     cmp[cmddep].b[4] = NULL;
  865.     }
  866.     if (cmp[cmddep].b[5]) {
  867.     strncpy(atybuf,cmp[cmddep].b[5],ATMBL); /* 5: Atom buffer copY */
  868.     free(cmp[cmddep].b[5]);
  869.     cmp[cmddep].b[5] = NULL;
  870.     }
  871.     if (cmp[cmddep].b[6]) {
  872.     strncpy(filbuf,cmp[cmddep].b[6],ATMBL); /* 6: Filename buffer */
  873.     free(cmp[cmddep].b[6]);
  874.     cmp[cmddep].b[6] = NULL;
  875.     }
  876. #else
  877.     if (cmp_b[cmddep][0]) {
  878.     strncpy(cmdbuf,cmp_b[cmddep][0],CMDBL); /* 0: Command buffer */
  879.     free(cmp_b[cmddep][0]);
  880.     cmp_b[cmddep][0] = NULL;
  881.     }
  882.     if (cmp_b[cmddep][1]) {
  883.     strncpy(savbuf,cmp_b[cmddep][1],CMDBL); /* 1: Save buffer */
  884.     free(cmp_b[cmddep][1]);
  885.     cmp_b[cmddep][1] = NULL;
  886.     }
  887. #ifdef OLDHELP
  888.     if (cmp_b[cmddep][2]) {
  889.     strncpy(hlpbuf,cmp_b[cmddep][2],HLPBL); /* 2: Help buffer */
  890.     free(cmp_b[cmddep][2]);
  891.     cmp_b[cmddep][2] = NULL;
  892.     }
  893. #endif /* OLDHELP */
  894.     if (cmp_b[cmddep][3]) {
  895.     strncpy(atmbuf,cmp_b[cmddep][3],ATMBL); /* 3: Atomic buffer! */
  896.     free(cmp_b[cmddep][3]);
  897.     cmp_b[cmddep][3] = NULL;
  898.     }
  899.     if (cmp_b[cmddep][4]) {
  900.     strncpy(atxbuf,cmp_b[cmddep][4],ATMBL); /* 4: eXpansion buffer */
  901.     free(cmp_b[cmddep][4]);
  902.     cmp_b[cmddep][4] = NULL;
  903.     }
  904.     if (cmp_b[cmddep][5]) {
  905.     strncpy(atybuf,cmp_b[cmddep][5],ATMBL); /* 5: Atom buffer copY */
  906.     free(cmp_b[cmddep][5]);
  907.     cmp_b[cmddep][5] = NULL;
  908.     }
  909.     if (cmp_b[cmddep][6]) {
  910.     strncpy(filbuf,cmp_b[cmddep][6],ATMBL); /* 6: Filename buffer */
  911.     free(cmp_b[cmddep][6]);
  912.     cmp_b[cmddep][6] = NULL;
  913.     }
  914. #endif /* DCMDBUF */
  915.  
  916.     cmddep--;                /* Rise, rise */
  917.     debug(F101,"&cmpop","",cmddep);
  918.     return(cmddep);
  919. }
  920. #endif /* NOSPL */
  921.  
  922. #ifdef COMMENT
  923. VOID
  924. stripq(s) char *s; {                    /* Function to strip '\' quotes */
  925.     char *t;
  926.     while (*s) {
  927.         if (*s == CMDQ) {
  928.             for (t = s; *t != '\0'; t++) *t = *(t+1);
  929.         }
  930.         s++;
  931.     }
  932. }
  933. #endif /* COMMENT */
  934.  
  935. /* Convert tabs to spaces, one for one */
  936. VOID
  937. untab(s) char *s; {
  938.     while (*s) {
  939.     if (*s == HT) *s = SP;
  940.     s++;
  941.     }
  942. }
  943.  
  944. /*  C M N U M  --  Parse a number in the indicated radix  */
  945.  
  946. /*
  947.  The only radix allowed in unquoted numbers is 10.
  948.  Parses unquoted numeric strings in base 10.
  949.  Parses backslash-quoted numbers in the radix indicated by the quote:
  950.    \nnn = \dnnn = decimal, \onnn = octal, \xnn = Hexadecimal.
  951.  If these fail, then if a preprocessing function is supplied, that is applied
  952.  and then a second attempt is made to parse an unquoted decimal string.
  953.  And if that fails, the preprocessed string is passed to an arithmetic
  954.  expression evaluator. 
  955.  
  956.  Returns:
  957.    -3 if no input present when required,
  958.    -2 if user typed an illegal number,
  959.    -1 if reparse needed,
  960.     0 otherwise, with argument n set to the number that was parsed
  961. */
  962. int
  963. cmnum(xhlp,xdef,radix,n,f) char *xhlp, *xdef; int radix, *n; xx_strp f; {
  964.     int x; char *s, *zp, *zq;
  965.  
  966.     if (radix != 10) {                  /* Just do base 10 */
  967.         printf("cmnum: illegal radix - %d\n",radix);
  968.         return(-1);
  969.     } /* Easy to add others but there has never been a need for it. */
  970.     x = cmfld(xhlp,xdef,&s,(xx_strp)0);
  971.     debug(F101,"cmnum: cmfld","",x);
  972.     if (x < 0) return(x);        /* Parse a field */
  973.     zp = atmbuf;
  974. /*    
  975.   Edit 192 - Allow any number field to be braced.  This lets us included
  976.   spaces in expressions, but perhaps more important lets us have user-defined
  977.   functions in numeric fields, since these always have spaces in them.
  978. */
  979.     if (*zp == '{') {            /* Braced field, strip braces */
  980.     x = (int) strlen(atmbuf);
  981.     if (x > 0) {            /* The "if" is to shut up optimizers */
  982.         *(atmbuf+x-1) = NUL;    /* that complain about a possible */
  983.         zp++;            /* reference to atbmbuf[-1] even */
  984.     }                /* though we know that x > 0. */
  985.     }
  986.  
  987.     if (chknum(zp)) {            /* Check for decimal number */
  988.         *n = atoi(zp);            /* Got one, we're done. */
  989.     debug(F101,"cmnum 1st chknum ok","",*n);
  990.         return(0);
  991.     } else if ((x = xxesc(&zp)) > -1) {    /* Check for backslash escape */
  992.  
  993. #ifndef OS2
  994.     *n = x;
  995. #else
  996.     *n = wideresult;
  997. #endif /* OS2 */
  998.  
  999.     debug(F101,"cmnum xxesc ok","",*n);
  1000.     return(*zp ? -2 : 0);
  1001.     } else if (f) {            /* If conversion function given */
  1002.     zq = atxbuf;            /* Try that */
  1003.     atxn = CMDBL;
  1004.     (*f)(zp,&zq,&atxn);        /* Convert */
  1005.     zp = atxbuf;
  1006.     }
  1007.     debug(F110,"cmnum zp",zp,0);
  1008.     if (chknum(zp)) {            /* Check again for decimal number */
  1009.         *n = atoi(zp);            /* Got one, we're done. */
  1010.     debug(F101,"cmnum 2nd chknum ok","",*n);
  1011.         return(0);
  1012. #ifndef NOSPL
  1013.     }  else if ((x = xxesc(&zp)) > -1) { /* Check for backslash escape */
  1014. #ifndef OS2
  1015.     *n = x;
  1016. #else
  1017.     *n = wideresult;
  1018. #endif /* OS2 */
  1019.     debug(F101,"cmnum xxesc 2 ok","",*n);
  1020.     return(*zp ? -2 : 0);
  1021.     } else if (f) {            /* Not numeric, maybe an expression */
  1022.     char *p; _PROTOTYP(char * evala, (char *));
  1023.     p = evala(zp);
  1024.     if (chknum(p)) {
  1025.         *n = atoi(p);
  1026.         debug(F101,"cmnum exp eval ok","",*n);
  1027.         return(0);
  1028.     } else return(-2);
  1029. #endif /* NOSPL */
  1030.     } else {                /* Not numeric */
  1031.     return(-2);
  1032.     }
  1033. }
  1034.  
  1035. /*  C M O F I  --  Parse the name of an output file  */
  1036.  
  1037. /*
  1038.  Depends on the external function zchko(); if zchko() not available, use
  1039.  cmfld() to parse output file names.
  1040.  
  1041.  Returns:
  1042.    -9 like -2, except message already printed,
  1043.    -3 if no input present when required,
  1044.    -2 if permission would be denied to create the file,
  1045.    -1 if reparse needed,
  1046.     0 or 1 if file can be created, with xp pointing to name.
  1047.     2 if given the name of an existing directory.
  1048. */
  1049. int
  1050. cmofi(xhlp,xdef,xp,f) char *xhlp, *xdef, **xp; xx_strp f; {
  1051.     int x; char *s, *zq;
  1052. #ifdef OS2
  1053.     int tries;
  1054. #endif /* OS2 */
  1055. #ifdef DTILDE
  1056.     _PROTOTYP( char * tilde_expand, (char *) );
  1057.     char *dirp;
  1058. #endif /* DTILDE */
  1059.  
  1060.     if (*xhlp == NUL) xhlp = "Output file";
  1061.     *xp = "";
  1062.  
  1063.     if ((x = cmfld(xhlp,xdef,&s,(xx_strp)0)) < 0) return(x);
  1064.     debug(F111,"cmofi 1",s,x);
  1065.  
  1066.     if (*s == '{') {            /* Strip enclosing braces */
  1067.     int n;
  1068.     n = strlen(s);
  1069.     if (s[n-1] == '}') {
  1070.         s[n-1] = NUL;
  1071.         s++;
  1072.     }
  1073.     }
  1074.     debug(F110,"cmofi 1.5",s,0);
  1075.  
  1076. #ifdef OS2
  1077.     tries = 0;
  1078.     {
  1079.     char *p = s, q;
  1080.     /*
  1081.       This is really ugly.  If we skip conversion the first time through,
  1082.       then variable names like \%a will be used as filenames (e.g. creating
  1083.       a file called %A in the root directory).  If we DON'T skip conversion
  1084.       the first time through, then single backslashes used as directory
  1085.       separators in filenames will be misinterpreted as variable lead-ins.
  1086.       So we prescan to see if it has any variable references.  But this
  1087.       module is not supposed to know anything about variables, functions,
  1088.       etc, so this code does not really belong here, but rather it should
  1089.       be at the same level as zzstring().
  1090.     */
  1091.     while ( (tries == 0) && (p = strchr(p,CMDQ)) ) {
  1092.         q = *(p+1);            /* Char after backslash */
  1093.         if (!q)            /* None, quit */
  1094.           break;
  1095.         if (isupper(q))        /* If letter, convert to lowercase */
  1096.           q = tolower(q);
  1097.         if (isdigit(q)) {        /* If it's a digit, */
  1098.         tries = 1;        /* assume it's a backslash code  */
  1099.         break;
  1100.         }
  1101.         switch (q) {
  1102.           case CMDQ:        /* Double backslash */
  1103.         tries = 1;        /* so call the conversion function */
  1104.         break;
  1105.           case '%':            /* Variable or array reference */
  1106.           case '&':            /* must be followed by letter */
  1107.         if (isalpha(*(p+2)) || (*(p+2) >= '0' && *(p+2) <= '9'))
  1108.           tries = 1;
  1109.         break;
  1110.           case 'm': case 'v': case '$': /* \m(), \v(), \$() */
  1111.         if (*(p+2) == '(')
  1112.           if (strchr(p+2,')'))
  1113.             tries = 1;
  1114.         break;
  1115.           case 'f':            /* \Fname() */
  1116.         if (strchr(p+2,'('))
  1117.           if (strchr(p+2,')'))
  1118.               tries = 1;
  1119.         break;
  1120.           case '{':            /* \{...} */
  1121.         if (strchr(p+2,'}'))
  1122.           tries = 1;
  1123.         break;
  1124.           case 'd': case 'o':    /* Decimal or Octal number */
  1125.             if (isdigit(*(p+2)))
  1126.           tries = 1;
  1127.         break;
  1128.           case 'x':            /* Hex number */
  1129.         if (isdigit(*(p+2)) ||
  1130.             ((*(p+2) >= 'a' && *(p+2) <= 'f') ||
  1131.              ((*(p+2) >= 'A' && *(p+2) <= 'F'))))
  1132.           tries = 1;
  1133.           default:
  1134.         break;
  1135.         }
  1136.         p++;
  1137.     }
  1138.     }
  1139. o_again:
  1140.     if (tries == 1)
  1141. #endif /* OS2 */
  1142.     if (f) {                /* If a conversion function is given */
  1143.     zq = atxbuf;            /* do the conversion. */
  1144.     atxn = CMDBL;
  1145.     if ((x = (*f)(s,&zq,&atxn)) < 0)
  1146.       return(-2);
  1147.     s = atxbuf;
  1148.     }
  1149.     debug(F111,"cmofi 2",s,x);
  1150.  
  1151. #ifdef DTILDE
  1152.     dirp = tilde_expand(s);        /* Expand tilde, if any, */
  1153.     if (*dirp != '\0') {        /* right in the atom buffer. */
  1154.     if (setatm(dirp,1) < 0) {
  1155.         printf("?Name too long\n");
  1156.         return(-9);
  1157.     }
  1158.     }
  1159.     s = atmbuf;
  1160.     debug(F110,"cmofi 3",s,0);
  1161. #endif /* DTILDE */
  1162.  
  1163.     if (iswild(s)) {
  1164.         printf("?Wildcards not allowed - %s\n",s);
  1165.         return(-2);
  1166.     }
  1167.     debug(F110,"cmofi 4",s,0);
  1168.  
  1169. #ifdef CK_TMPDIR
  1170.     /* isdir() function required for this! */
  1171.     if (isdir(s)) {
  1172.     debug(F110,"cmofi 5: is directory",s,0);
  1173.         *xp = s;
  1174.     return(2);
  1175.     }
  1176. #endif /* CK_TMPDIR */
  1177.  
  1178.     if (strcmp(s,CTTNAM) && (zchko(s) < 0)) { /* OK to write to console */
  1179. #ifdef COMMENT
  1180. #ifdef OS2
  1181. /*
  1182.   We don't try again because we already prescanned the string to see if
  1183.   if contained anything that could be used by zzstring().
  1184. */
  1185.     if (tries++ < 1)
  1186.       goto o_again;
  1187. #endif /* OS2 */
  1188. #endif /* COMMENT */
  1189.     debug(F110,"cmofi 6: failure",s,0);
  1190.         printf("?Write permission denied - %s\n",s);
  1191.         return(-9);
  1192.     } else {
  1193.     debug(F110,"cmofi 7: ok",s,0);
  1194.         *xp = s;
  1195.         return(x);
  1196.     }
  1197. }
  1198.  
  1199. /*  C M I F I  --  Parse the name of an existing file  */
  1200.  
  1201. /*
  1202.  This function depends on the external functions:
  1203.    zchki()  - Check if input file exists and is readable.
  1204.    zxpand() - Expand a wild file specification into a list.
  1205.    znext()  - Return next file name from list.
  1206.  If these functions aren't available, then use cmfld() to parse filenames.
  1207. */
  1208. /*
  1209.  Returns
  1210.    -4 EOF
  1211.    -3 if no input present when required,
  1212.    -2 if file does not exist or is not readable,
  1213.    -1 if reparse needed,
  1214.     0 or 1 otherwise, with:
  1215.         xp pointing to name,
  1216.         wild = 1 if name contains '*' or '?', 0 otherwise.
  1217. */
  1218. int
  1219. cmifi(xhlp,xdef,xp,wild,f) char *xhlp, *xdef, **xp; int *wild; xx_strp f; {
  1220.     return(cmifi2(xhlp,xdef,xp,wild,0,NULL,f));
  1221. }
  1222. /*
  1223.   cmifip() is called when we want to supply a path or path list to search
  1224.   in case the filename that the user gives is (a) not absolute, and (b) can't
  1225.   be found as given.  The path string can be the name of a single directory,
  1226.   or a list of directories separated by the PATHSEP character, defined in
  1227.   ckucmd.h.  Look in ckuusr.c and ckuus3.c for examples of usage.
  1228. */
  1229. int
  1230. cmifip(xhlp,xdef,xp,wild,d,path,f)
  1231.     char *xhlp,*xdef,**xp; int *wild, d; char * path; xx_strp f; {
  1232.     return(cmifi2(xhlp,xdef,xp,wild,0,path,f));
  1233. }
  1234.  
  1235. /*
  1236.   cmifi2() is for use when you also want to parse a directory or device
  1237.   name as an input file, as in the DIRECTORY command.
  1238. */
  1239. int
  1240. cmifi2(xhlp,xdef,xp,wild,d,path,f)
  1241.     char *xhlp,*xdef,**xp; int *wild, d; char * path; xx_strp f; {
  1242. #define NEWCMIFI
  1243. #ifdef NEWCMIFI
  1244.     /* New version... */
  1245.     int i, x, xc; long y; char *sp, *zq;
  1246.     char *sv = NULL;
  1247. #ifdef DTILDE
  1248.     char *tilde_expand(), *dirp;
  1249. #endif /* DTILDE */
  1250.  
  1251. #ifndef NOPARTIAL
  1252. #ifndef OS2
  1253. #ifdef OSK
  1254.     /* This large array is dynamic for OS-9 -- should do for others too... */
  1255.     extern char **mtchs;
  1256. #else
  1257. #ifdef UNIX
  1258.     /* OK, for UNIX too */
  1259.     extern char **mtchs;
  1260. #else
  1261.     extern char *mtchs[];
  1262. #endif /* UNIX */
  1263. #endif /* OSK */
  1264. #endif /* OS2 */
  1265. #endif /* NOPARTIAL */
  1266.  
  1267.     inword = 0;                /* Initialize counts & pointers */
  1268.     cc = 0;
  1269.     xc = 0;
  1270.     *xp = "";
  1271.     if ((x = cmflgs) != 1) {            /* Already confirmed? */
  1272. #ifdef BS_DIRSEP
  1273.     cmdirflg = 1;
  1274.         x = gtword();                   /* No, get a word */
  1275.     cmdirflg = 0;
  1276. #else
  1277.         x = gtword();                   /* No, get a word */
  1278. #endif /* BS_DIRSEP */
  1279.     } else {                /* If so, use default, if any. */
  1280.         if (setatm(xdef,0) < 0) {
  1281.         printf("?Default input filename too long\n");
  1282.         return(-9);
  1283.     }
  1284.     }
  1285.   i_path:
  1286.     *xp = atmbuf;                       /* Point to result. */
  1287.  
  1288.     while (1) {
  1289.         xc += cc;                       /* Count this character. */
  1290.         debug(F111,"cmifi gtword",atmbuf,xc);
  1291.     debug(F101,"cmifi switch x","",x);
  1292.         switch (x) {
  1293.         case -9:
  1294.            printf("Command or field too long\n");
  1295.             case -4:                    /* EOF */
  1296.             case -2:                    /* Out of space. */
  1297.             case -1:                    /* Reparse needed */
  1298.                 return(x);
  1299.             case 0:                     /* SP or NL */
  1300.             case 1:
  1301.                 if (xc == 0) *xp = xdef;     /* If no input, return default. */
  1302.                 if (**xp == NUL) return(-3); /* If field empty, return -3. */
  1303.  
  1304.         if (**xp == '{') {    /* Strip enclosing braces first  */
  1305.             char *s = *xp;    /* which might have been used if */
  1306.             int n;        /* a filespec included spaces... */
  1307.             n = strlen(s);
  1308.             if (s[n-1] == '}') {
  1309.             s[n-1] = NUL;
  1310.             s++;
  1311.             *xp = s;
  1312.             }
  1313.         }
  1314. #ifdef OS2
  1315. /* In OS/2 and Windows, if we're parsing directory name, allow a disk name */
  1316.  
  1317.         if (d && ((int)strlen(*xp) == 2))
  1318.           if (isalpha(**xp) && *(*xp + 1) == ':')
  1319.             return(x);
  1320. #endif /* OS2 */
  1321. #ifndef NOSPL
  1322.         if (f) {        /* If a conversion function is given */
  1323.             char *s = *xp;    /* See if there are any variables in */
  1324.             while (*s) {    /* the string and if so, expand them */
  1325.             if (chkvar(s)) {
  1326.                 zq = atxbuf;
  1327.                 atxn = CMDBL;
  1328.                 if ((y = (*f)(*xp,&zq,&atxn)) < 0)
  1329.                   return(-2);
  1330.                 if ((int) strlen(atxbuf) > 0) {
  1331.                 *xp = atxbuf;
  1332.                 break;
  1333.                 }
  1334.             }
  1335.             s++;
  1336.             }
  1337.         }
  1338. #endif /* NOSPL */
  1339.         debug(F110,"cmifi atxbuf",atxbuf,0);
  1340.         if (!sv) {                 /* Only do this once */
  1341.             sv = malloc((int)strlen(*xp)+1); /* Make a safe copy */
  1342.             if (!sv) {
  1343.             printf("?malloc error 73, cmifi\n");
  1344.             return(-9);
  1345.             }
  1346.             strcpy(sv,*xp);
  1347.             debug(F110,"cmifi sv",sv,0);
  1348.         }
  1349.         y = zxpand(*xp);
  1350.         *wild = (y > 1);
  1351.         debug(F111,"cmifi sv wild",sv,*wild);
  1352.         if (y == 0) {
  1353.             if (path && !isabsolute(sv)) {
  1354.             char * ptr = path;
  1355.             char c;
  1356.             while (1) {
  1357.                 c = *ptr;
  1358.                 if (c == PATHSEP || c == NUL) {
  1359.                 if (!*path) {
  1360.                     path = NULL;
  1361.                     break;
  1362.                 }
  1363.                 *ptr = NUL;
  1364.                 strcpy(atmbuf,path);
  1365.                 strcat(atmbuf,sv);
  1366.                 debug(F110,"cmifip add path",atmbuf,0);
  1367.                 if (c == PATHSEP) ptr++;
  1368.                 path = ptr;
  1369.                 break;
  1370.                 }
  1371.                 ptr++;
  1372.             }
  1373.             x = 1;
  1374.             inword = 0;
  1375.             cc = 0;
  1376.             xc = (int) strlen(atmbuf);
  1377.             *xp = "";
  1378.             goto i_path;
  1379.             }
  1380.                    if (d) {
  1381.                       if (sv) free(sv);
  1382.                       return(-2);
  1383.             } else {
  1384.                        printf("?No files match - %s\n",sv);
  1385.                        if (sv) free(sv);
  1386.                        return(-9);
  1387.             }
  1388.         } else if (y < 0) {
  1389.             printf("?Too many files match - %s\n",sv);
  1390.             if (sv) free(sv);
  1391.             return(-9);
  1392.         } else if (y > 1) {
  1393.             if (sv) free(sv);
  1394.             return(x);
  1395.         }
  1396.  
  1397.                 /* If not wild, see if it exists and is readable. */
  1398.  
  1399.         debug(F111,"cmifi sv not wild",sv,*wild);
  1400.  
  1401.         znext(*xp);        /* Get first (only?) matching file */
  1402.                 y = zchki(*xp);        /* Check its accessibility */
  1403.         zxpand(sv);        /* Rewind so next znext() gets 1st */
  1404.         free(sv);        /* done with this */
  1405.         sv = NULL;
  1406.                 if (y == -3) {
  1407.                     printf("?Read permission denied - %s\n",*xp);
  1408.                     return(-9);
  1409.                 } else if (y == -2) {
  1410.             if (d) return(0);
  1411.                     printf("?File not readable - %s\n",*xp);
  1412.                     return(-9);
  1413.                 } else if (y < 0) {
  1414.                     printf("?File not found - %s\n",*xp);
  1415.                     return(-9);
  1416.                 }
  1417.                 return(x);
  1418.  
  1419. #ifndef MAC
  1420.             case 2:                     /* ESC */
  1421.         debug(F101,"cmifi esc, xc","",xc);
  1422.                 if (xc == 0) {
  1423.                     if (*xdef != '\0') {
  1424.                         printf("%s ",xdef); /* If at beginning of field, */
  1425. #ifdef GEMDOS
  1426.             fflush(stdout);
  1427. #endif /* GEMDOS */
  1428.             inword = cmflgs = 0;
  1429.                         addbuf(xdef);   /* Supply default. */
  1430.                         if (setatm(xdef,0) < 0) {
  1431.                 printf("Default input filename too long\n");
  1432.                 return(-9);
  1433.             }
  1434.                     } else {            /* No default */
  1435.                         bleep(BP_WARN);
  1436.                     }
  1437.                     break;
  1438.                 }
  1439. #ifndef NOSPL
  1440.         if (f) {        /* If a conversion function is given */
  1441.             char *s = *xp;    /* See if there are any variables in */
  1442.             while (*s) {    /* the string and if so, expand it.  */
  1443.             if (chkvar(s)) {
  1444.                 zq = atxbuf;
  1445.                 atxn = CMDBL;
  1446.                 if ((x = (*f)(*xp,&zq,&atxn)) < 0)
  1447.                   return(-2);
  1448.                     /* reduce cc by number of \\ consumed by conversion */
  1449.             /* function (needed for OS/2, where \ is path separator) */
  1450.                 if ((int) strlen(atxbuf) > 0) {
  1451.                 cc -= (strlen(*xp) - strlen(atxbuf));
  1452.                 *xp = atxbuf;
  1453.                 break;
  1454.                 }
  1455.             }
  1456.             s++;
  1457.             }
  1458.         }
  1459. #endif /* NOSPL */
  1460. #ifdef DTILDE
  1461.         dirp = tilde_expand(*xp); /* Expand tilde, if any, */
  1462.         if (*dirp != '\0') {    /* in the atom buffer. */
  1463.             if (setatm(dirp,0) < 0) {
  1464.             printf("Expanded input filename too long\n");
  1465.             return(-9);
  1466.             }
  1467.         }
  1468.                 *xp = atmbuf;
  1469. #endif /* DTILDE */
  1470.                 sp = *xp + cc;
  1471. #ifdef datageneral
  1472.                 *sp++ = '+';        /* Data General AOS wildcard */
  1473. #else
  1474.                 *sp++ = '*';        /* Others */
  1475. #endif /* datageneral */
  1476.                 *sp-- = '\0';
  1477. #ifdef GEMDOS
  1478.         if (! strchr(*xp, '.'))    /* abde.e -> abcde.e* */
  1479.           strcat(*xp, ".*");    /* abc -> abc*.* */
  1480. #endif /* GEMDOS */
  1481.                 y = zxpand(*xp);    /* Add wildcard and expand list. */
  1482.         if (y > 0) {
  1483. #ifdef OS2
  1484.             znext(filbuf);
  1485.             zxpand(*xp);    /* Must "rewind" */
  1486. #else
  1487.             strcpy(filbuf,mtchs[0]);
  1488. #endif /* OS2 */
  1489.         } else
  1490.           *filbuf = '\0';
  1491.                 *sp = '\0';             /* Remove wildcard. */
  1492.         *wild = (y > 1);
  1493.                 if (y == 0) {
  1494.             printf("?No files match - %s\n",atmbuf);
  1495.                     return(-9);
  1496.                 } else if (y < 0) {
  1497.                     printf("?Too many files match - %s\n",atmbuf);
  1498.                     return(-9);
  1499.                 } else if (y > 1) {     /* Not unique. */
  1500. #ifndef NOPARTIAL
  1501. /* Partial filename completion */
  1502.             int i, j, k; char c;
  1503.             k = 0;
  1504.             debug(F111,"cmifi partial",filbuf,cc);
  1505. #ifdef OS2
  1506.                     {
  1507.                         int cur = 0,
  1508.                           len = 0,
  1509.                           len2 = 0,
  1510.                           min = strlen(filbuf);
  1511.                         char localfn[257];
  1512.  
  1513.                         len = min;
  1514.                         for (j = 1; j < y; j++) {
  1515.                             znext(localfn);
  1516.                             len2 = strlen(localfn);
  1517.                             for (cur = cc;
  1518.                  cur < len && cur < len2 && cur <= min; 
  1519.                  cur++
  1520.                  ) {
  1521.                                 if (tolower(filbuf[cur]) != 
  1522.                                     tolower(localfn[cur])
  1523.                     )
  1524.                                   break;
  1525.                             }
  1526.                             if (cur < min)
  1527.                               min = cur;
  1528.                         }
  1529.                         filbuf[min] = NUL;
  1530.                         if (min > cc)
  1531.               k++;
  1532.                     }
  1533. #else /* OS2 */
  1534.             for (i = cc; (c = filbuf[i]); i++) {
  1535.             for (j = 1; j < y; j++)
  1536.               if (mtchs[j][i] != c) break;
  1537.             if (j == y) k++;
  1538.             else filbuf[i] = filbuf[i+1] = NUL;
  1539.             }
  1540. #endif /* OS2 */
  1541.             debug(F111,"cmifi partial k",filbuf,k);
  1542.             if (k > 0) {    /* Got more characters */
  1543.             sp = filbuf + cc; /* Point to new ones */
  1544. #ifdef VMS
  1545.             for (i = 0; i < cc; i++) {
  1546.                 cmdchardel(); /* Back up over old partial spec */
  1547.                 bp--;
  1548.             }
  1549.             sp = filbuf;    /* Point to new word start */
  1550.             debug(F100,"cmifi vms erase ok","",0);
  1551. #endif /* VMS */
  1552.             cc = k;        /* How many new ones we just got */
  1553.             printf("%s",sp);        /* Print them */
  1554.             while (*bp++ = *sp++) ;    /* Copy to command buffer */
  1555.             bp--;                    /* Back up over NUL */
  1556.             debug(F110,"cmifi partial cmdbuf",cmdbuf,0);
  1557.             if (setatm(filbuf,0) < 0) {
  1558.                 printf("?Partial filename too long\n");
  1559.                 return(-9);
  1560.             }
  1561.             debug(F111,"cmifi partial atmbuf",atmbuf,cc);
  1562.             *xp = atmbuf;
  1563.             }
  1564. #endif /* NOPARTIAL */
  1565.             bleep(BP_WARN); 
  1566.                 } else {                /* Unique, complete it.  */
  1567. #ifndef VMS
  1568. #ifdef CK_TMPDIR    
  1569.             /* isdir() function required for this! */
  1570.             if (isdir(filbuf)) {
  1571. #ifdef UNIX
  1572.             strcat(filbuf,"/");
  1573. #endif
  1574. #ifdef OS2
  1575.             strcat(filbuf,"/");
  1576. #endif
  1577. #ifdef AMIGA
  1578.             strcat(filbuf,"/");
  1579. #endif
  1580. #ifdef OSK
  1581.             strcat(filbuf,"/");
  1582. #endif
  1583. #ifdef datageneral
  1584.             strcat(filbuf,":");
  1585. #endif
  1586. #ifdef MAC
  1587.             strcat(filbuf,":");
  1588. #endif
  1589. #ifdef STRATUS
  1590.             strcat(filbuf,">");
  1591. #endif
  1592. #ifdef GEMDOS
  1593.             strcat(filbuf,"\\");
  1594. #endif
  1595.             sp = filbuf + cc;
  1596.             bleep(BP_WARN);
  1597.             printf("%s",sp);
  1598.             cc++;
  1599.             while (*bp++ = *sp++) ;
  1600.             bp--;
  1601.             if (setatm(filbuf,0) < 0) {
  1602.                 printf("?Directory name too long\n");
  1603.                 return(-9);
  1604.             }
  1605.             debug(F111,"cmifi directory atmbuf",atmbuf,cc);
  1606.             *xp = atmbuf;
  1607.             } else { /* Not a directory... */
  1608. #endif /* CK_TMPDIR */
  1609. #endif /* VMS */
  1610.             sp = filbuf + cc; /* Point past what user typed. */
  1611. #ifdef VMS
  1612.             for (i = 0; i < cc; i++) {
  1613.                 cmdchardel(); /* Back up over old partial spec */
  1614.                 bp--;
  1615.             }
  1616.             sp = filbuf;    /* Point to new word start */
  1617. #endif /* VMS */
  1618.             printf("%s ",sp); /* Complete the name. */
  1619. #ifdef GEMDOS
  1620.             fflush(stdout);
  1621. #endif /* GEMDOS */
  1622.             addbuf(sp);    /* Add the characters to cmdbuf. */
  1623.             if (setatm(filbuf,0) < 0) { /* And to atmbuf. */
  1624.                 printf("?Completed filename too long\n");
  1625.                 return(-9);
  1626.             }
  1627.             inword = cmflgs = 0;
  1628.             *xp = atmbuf;    /* Return pointer to atmbuf. */
  1629.             return(0);
  1630. #ifndef VMS
  1631. #ifdef CK_TMPDIR
  1632.             }
  1633. #endif /* CK_TMPDIR */
  1634. #endif /* VMS */
  1635.                 }
  1636.                 break;
  1637.  
  1638.             case 3:                     /* Question mark - file menu wanted */
  1639.                 if (*xhlp == NUL)
  1640.           printf(" Input file specification");
  1641.                 else
  1642.           printf(" %s",xhlp);
  1643. #ifdef GEMDOS
  1644.         fflush(stdout);
  1645. #endif /* GEMDOS */
  1646. #ifdef OLDHELP
  1647.                 if (xc > 0) {
  1648. #endif /* OLDHELP */
  1649. #ifndef NOSPL
  1650.             if (f) {        /* If a conversion function is given */
  1651.             char *s = *xp;    /* See if there are any variables in */
  1652.             while (*s) {    /* the string and if so, expand them */
  1653.                 if (chkvar(s)) {
  1654.                 zq = atxbuf;
  1655.                 atxn = CMDBL;
  1656.                 if ((x = (*f)(*xp,&zq,&atxn)) < 0)
  1657.                   return(-2);
  1658.                 if ((int) strlen(atxbuf) > 0) {
  1659.                     *xp = atxbuf;
  1660.                     break;
  1661.                 }
  1662.                 }
  1663.                 s++;
  1664.             }
  1665.             }
  1666. #endif /* NOSPL */
  1667. #ifdef DTILDE
  1668.             dirp = tilde_expand(*xp);    /* Expand tilde, if any */
  1669.             if (*dirp != '\0') {
  1670.             if (setatm(dirp,0) < 0) {
  1671.                 printf("?Expanded filename too long\n");
  1672.                 return(-9);
  1673.             }
  1674.             }
  1675.             *xp = atmbuf;
  1676. #endif /* DTILDE */
  1677.             debug(F111,"cmifi ? *xp, cc",*xp,cc);
  1678.                     sp = *xp + cc;    /* Insert "*" at end */
  1679. #ifdef datageneral
  1680.                     *sp++ = '+';        /* Insert +, the DG wild card */
  1681. #else
  1682.                     *sp++ = '*';
  1683. #endif /* datageneral */
  1684.                     *sp-- = '\0';
  1685. #ifdef GEMDOS
  1686.             if (! strchr(*xp, '.'))    /* abde.e -> abcde.e* */
  1687.               strcat(*xp, ".*");    /* abc -> abc*.* */
  1688. #endif /* GEMDOS */
  1689.             debug(F110,"cmifi ? wild",*xp,0);
  1690.                     y = zxpand(*xp);
  1691.                     *sp = '\0';
  1692.                     if (y == 0) {
  1693.             printf("?No files match - %s\n",atmbuf);
  1694.                         return(-9);
  1695.                     } else if (y < 0) {
  1696.                         printf("?Too many files match - %s\n",atmbuf);
  1697.                         return(-9);
  1698.                     } else {
  1699.                         printf(", one of the following:\n");
  1700. #ifdef OLDHELP
  1701.                         clrhlp();
  1702.                         for (i = 0; i < y; i++) {
  1703.                             znext(filbuf);
  1704. #ifdef VMS
  1705.                 printf(" %s\n",filbuf); /* VMS names can be long */
  1706. #else
  1707.                             addhlp(filbuf);
  1708. #endif /* VMS */
  1709.                         }
  1710.                         dmphlp();
  1711. #else  /* New way... */
  1712.             if (filhelp(y,"","",1) < 0)
  1713.               return(-9);
  1714. #endif /* OLDHELP */
  1715.                     }
  1716. #ifdef OLDHELP
  1717.                 } else 
  1718.           printf("\n");
  1719. #endif /* OLDHELP */
  1720.                 printf("%s%s",cmprom,cmdbuf);
  1721.         fflush(stdout);
  1722.                 break;
  1723. #endif /* MAC */
  1724.         }
  1725. #ifdef BS_DIRSEP
  1726.     cmdirflg = 1;
  1727.         x = gtword();                   /* No, get a word */
  1728.     cmdirflg = 0;
  1729. #else
  1730.         x = gtword();                   /* No, get a word */
  1731. #endif /* BS_DIRSEP */
  1732.     *xp = atmbuf;
  1733.     }
  1734.  
  1735. #else /* Not NEWCMIFI ... */
  1736.  
  1737.     int i, x, xc; long y; char *sp, *zq;
  1738.     char *sv = NULL;
  1739. #ifdef DTILDE
  1740.     char *tilde_expand(), *dirp;
  1741. #endif /* DTILDE */
  1742. #ifdef OS2
  1743.     int tries;
  1744. #endif /* OS2 */
  1745.  
  1746. #ifndef NOPARTIAL
  1747. #ifndef OS2
  1748. #ifdef OSK
  1749.     extern char **mtchs; /* This large array is dynamic for OS-9 */
  1750. #else
  1751.     extern char *mtchs[];
  1752. #endif /* OSK */
  1753. #endif /* OS2 */
  1754. #endif /* NOPARTIAL */
  1755.  
  1756.     inword = 0;                /* Initialize counts & pointers */
  1757.     cc = 0;
  1758.     xc = 0;    
  1759.     *xp = "";
  1760.     if ((x = cmflgs) != 1) {            /* Already confirmed? */
  1761. #ifdef BS_DIRSEP
  1762.     cmdirflg = 1;
  1763.         x = gtword();                   /* No, get a word */
  1764.     cmdirflg = 0;
  1765. #else
  1766.         x = gtword();                   /* No, get a word */
  1767. #endif /* BS_DIRSEP */
  1768.     } else {                /* If so, use default, if any. */
  1769.         if (setatm(xdef,0) < 0) {
  1770.         printf("?Default input filename too long\n");
  1771.         return(-9);
  1772.     }
  1773.     }
  1774.   i_path:
  1775.     *xp = atmbuf;                       /* Point to result. */
  1776.  
  1777.     while (1) {
  1778.         xc += cc;                       /* Count the characters. */
  1779.         debug(F111,"cmifi gtword",atmbuf,xc);
  1780.     debug(F101,"cmifi switch x","",x);
  1781.         switch (x) {
  1782.         case -9:
  1783.            printf("Command or field too long\n");
  1784.             case -4:                    /* EOF */
  1785.             case -2:                    /* Out of space. */
  1786.             case -1:                    /* Reparse needed */
  1787.                 return(x);
  1788.             case 0:                     /* SP or NL */
  1789.             case 1:
  1790.                 if (xc == 0) *xp = xdef;     /* If no input, return default. */
  1791.                 if (**xp == NUL) return(-3); /* If field empty, return -3. */
  1792.  
  1793.         if (**xp == '{') {    /* Strip enclosing braces first */
  1794.             char *s = *xp;
  1795.             int n;
  1796.             n = strlen(s);
  1797.             if (s[n-1] == '}') {
  1798.             s[n-1] = NUL;
  1799.             s++;
  1800.             *xp = s;
  1801.             }
  1802.         }
  1803. #ifdef OS2
  1804.         if (d && ((int)strlen(*xp) == 2))
  1805.           if (isalpha(**xp) && *(*xp + 1) == ':')
  1806.             return(x);
  1807.         tries = 0;
  1808. i_again:
  1809.         if (tries > 0)
  1810. #endif /* OS2 */
  1811.         if (f) {        /* If a conversion function is given */
  1812.             zq = atxbuf;    /* ... */
  1813.             atxn = CMDBL;
  1814.             if ((y = (*f)(*xp,&zq,&atxn)) < 0) return(-2);
  1815.             *xp = atxbuf;
  1816.         }
  1817.         debug(F110,"cmifi atxbuf",atxbuf,0);
  1818.         if (!sv) {                 /* Only do this once */
  1819.             sv = malloc((int)strlen(*xp)+1); /* Make a safe copy */
  1820.             if (!sv) {
  1821.             printf("?malloc error 73, cmifi\n");
  1822.             return(-9);
  1823.             }
  1824.             strcpy(sv,*xp);
  1825.             debug(F110,"cmifi sv",sv,0);
  1826.         }
  1827.         y = zxpand(*xp);
  1828.         *wild = (y > 1);
  1829.         debug(F111,"cmifi sv wild",sv,*wild);
  1830.         if (y == 0) {
  1831.             if (path && !isabsolute(sv)) {
  1832.             char * ptr = path;
  1833.             char c;
  1834.             while (1) {
  1835.                 c = *ptr;
  1836.                 if (c == PATHSEP || c == NUL) {
  1837.                 if (!*path) {
  1838.                     path = NULL;
  1839.                     break;
  1840.                 }
  1841.                 *ptr = NUL;
  1842.                 strcpy(atmbuf,path);
  1843.                 strcat(atmbuf,sv);
  1844.                 debug(F110,"cmifip add path",atmbuf,0);
  1845.                 if (c == PATHSEP) ptr++;
  1846.                 path = ptr;
  1847.                 break;
  1848.                 }
  1849.                 ptr++;
  1850.             }
  1851.             x = 1;
  1852.             inword = 0;
  1853.             cc = 0;
  1854.             xc = (int) strlen(atmbuf);
  1855.             *xp = "";
  1856.             goto i_path;
  1857.             }
  1858. #ifdef OS2
  1859.             if (tries++ < 1)
  1860.               goto i_again;
  1861. #endif /* OS2 */
  1862.             if (sv) free(sv);
  1863.             if (d) {
  1864.             return(-2);
  1865.             } else {
  1866.             printf("?No files match - %s\n",*xp);
  1867.             return(-9);
  1868.             }
  1869.         } else if (y < 0) {
  1870.             printf("?Too many files match - %s\n",*xp);
  1871.             if (sv) free(sv);
  1872.             return(-9);
  1873.         } else if (y > 1) {
  1874.             if (sv) free(sv);
  1875.             return(x);
  1876.         }
  1877.  
  1878.                 /* If not wild, see if it exists and is readable. */
  1879.  
  1880.         debug(F111,"cmifi sv not wild",sv,*wild);
  1881.  
  1882.         znext(*xp);        /* Get first (only?) matching file */
  1883.                 y = zchki(*xp);        /* Check its accessibility */
  1884.         zxpand(sv);        /* Rewind so next znext() gets 1st */
  1885.         free(sv);        /* done with this */
  1886.         sv = NULL;
  1887.                 if (y == -3) {
  1888.                     printf("?Read permission denied - %s\n",*xp);
  1889.                     return(-9);
  1890.                 } else if (y == -2) {
  1891.             if (d) return(0);
  1892.                     printf("?File not readable - %s\n",*xp);
  1893.                     return(-9);
  1894.                 } else if (y < 0) {
  1895.                     printf("?File not found - %s\n",*xp);
  1896.                     return(-9);
  1897.                 }
  1898.                 return(x);
  1899.  
  1900. #ifndef MAC
  1901.             case 2:                     /* ESC */
  1902.         debug(F101,"cmifi esc, xc","",xc);
  1903. #ifdef OS2
  1904.         tries = 0;
  1905. #endif /* OS2 */
  1906.                 if (xc == 0) {
  1907.                     if (*xdef != '\0') {
  1908.                         printf("%s ",xdef); /* If at beginning of field, */
  1909. #ifdef GEMDOS
  1910.             fflush(stdout);
  1911. #endif /* GEMDOS */
  1912.             inword = cmflgs = 0;
  1913.                         addbuf(xdef);   /* Supply default. */
  1914.                         if (setatm(xdef,0) < 0) {
  1915.                 printf("Default input filename too long\n");
  1916.                 return(-9);
  1917.             }
  1918.                     } else {            /* No default */
  1919.                         bleep(BP_WARN);
  1920.                     }
  1921.                     break;
  1922.                 }
  1923. #ifdef OS2
  1924. e_again:
  1925.         if (tries > 0)
  1926. #endif /* OS2 */
  1927.         if (f) {        /* If a conversion function is given */
  1928.             zq = atxbuf;    /* ... */
  1929.             atxn = CMDBL;
  1930.             if ((x = (*f)(*xp,&zq,&atxn)) < 0) return(-2);
  1931.                     /* reduce cc by number of \\ consumed by conversion */
  1932.             /* function (needed for OS/2, where \ is path separator) */
  1933.                     cc -= (strlen(*xp) - strlen(atxbuf));
  1934.             *xp = atxbuf;
  1935.         }
  1936. #ifdef DTILDE
  1937.         dirp = tilde_expand(*xp); /* Expand tilde, if any, */
  1938.         if (*dirp != '\0') {    /* in the atom buffer. */
  1939.             if (setatm(dirp,0) < 0) {
  1940.             printf("Expanded input filename too long\n");
  1941.             return(-9);
  1942.             }
  1943.         }
  1944.                 *xp = atmbuf;
  1945. #endif /* DTILDE */
  1946.                 sp = *xp + cc;
  1947. #ifdef datageneral
  1948.                 *sp++ = '+';        /* Data General AOS wildcard */
  1949. #else
  1950.                 *sp++ = '*';        /* Others */
  1951. #endif /* datageneral */
  1952.                 *sp-- = '\0';
  1953. #ifdef GEMDOS
  1954.         if (! strchr(*xp, '.'))    /* abde.e -> abcde.e* */
  1955.           strcat(*xp, ".*");    /* abc -> abc*.* */
  1956. #endif /* GEMDOS */
  1957.                 y = zxpand(*xp);    /* Add wildcard and expand list. */
  1958.         if (y > 0)
  1959. #ifdef OS2
  1960.           znext(filbuf);
  1961. else
  1962.           strcpy(filbuf,mtchs[0]);
  1963. #endif /* OS2 */
  1964.         else
  1965.           *filbuf = NUL;
  1966.                 *sp = '\0';             /* Remove wildcard. */
  1967.         *wild = (y > 1);
  1968.                 if (y == 0) {
  1969. #ifdef OS2
  1970.             if (tries++ < 1)
  1971.               goto e_again;
  1972.             else
  1973. #endif /* OS2 */
  1974.               printf("?No files match - %s\n",atmbuf);
  1975.                     return(-9);
  1976.                 } else if (y < 0) {
  1977.                     printf("?Too many files match - %s\n",atmbuf);
  1978.                     return(-9);
  1979.                 } else if (y > 1) {     /* Not unique. */
  1980. #ifndef NOPARTIAL
  1981. /* Partial filename completion */
  1982.             int i, j, k; char c;
  1983.             k = 0;
  1984.             debug(F111,"cmifi partial",filbuf,cc);
  1985. #ifdef OS2
  1986.                     {
  1987.                         int cur = 0,
  1988.             len = 0,
  1989.             len2 = 0,
  1990.             min = strlen(filbuf);
  1991.                         char localfn[257];
  1992.  
  1993.                         len = min;
  1994.                         for (j = 1; j < y; j++) {
  1995.                             znext(localfn);
  1996.                             len2 = strlen(localfn);
  1997.                             for (cur=cc; 
  1998.                                  cur < len && cur < len2 && cur <= min; 
  1999.                                  cur++
  2000.                  ) {
  2001.                                 if (tolower(filbuf[cur]) != 
  2002.                                     tolower(localfn[cur])
  2003.                     )
  2004.                                   break;
  2005.                             }
  2006.                             if (cur < min)
  2007.                               min = cur;
  2008.                         }
  2009.                         filbuf[min] = NUL;
  2010.                         if (min > cc)
  2011.               k++;
  2012.                     }
  2013. #else /* OS2 */
  2014.             for (i = cc; (c = filbuf[i]); i++) {
  2015.             for (j = 1; j < y; j++)
  2016.               if (mtchs[j][i] != c) break;
  2017.             if (j == y) k++;
  2018.             else filbuf[i] = filbuf[i+1] = NUL;
  2019.             }
  2020. #endif /* OS2 */
  2021.             debug(F111,"cmifi partial k",filbuf,k);
  2022.             if (k > 0) {    /* Got more characters */
  2023.             sp = filbuf + cc; /* Point to new ones */
  2024. #ifdef VMS
  2025.             for (i = 0; i < cc; i++) {
  2026.                 cmdchardel(); /* Back up over old partial spec */
  2027.                 bp--;
  2028.             }
  2029.             sp = filbuf;    /* Point to new word start */
  2030.             debug(F100,"cmifi vms erase ok","",0);
  2031. #endif /* VMS */
  2032.             cc = k;        /* How many new ones we just got */
  2033.             printf("%s",sp);        /* Print them */
  2034.             while (*bp++ = *sp++) ;    /* Copy to command buffer */
  2035.             bp--;                    /* Back up over NUL */
  2036.             debug(F110,"cmifi partial cmdbuf",cmdbuf,0);
  2037.             if (setatm(filbuf,0) < 0) {
  2038.                 printf("?Partial filename too long\n");
  2039.                 return(-9);
  2040.             }
  2041.             debug(F111,"cmifi partial atmbuf",atmbuf,cc);
  2042.             *xp = atmbuf;
  2043.             }
  2044. #endif /* NOPARTIAL */
  2045.             bleep(BP_WARN); 
  2046.                 } else {                /* Unique, complete it.  */
  2047. #ifndef VMS
  2048. #ifdef CK_TMPDIR    
  2049.             /* isdir() function required for this! */
  2050.             if (isdir(filbuf)) {
  2051. #ifdef UNIX
  2052.             strcat(filbuf,"/");
  2053. #endif
  2054. #ifdef OS2
  2055.             strcat(filbuf,"/");
  2056. #endif
  2057. #ifdef AMIGA
  2058.             strcat(filbuf,"/");
  2059. #endif
  2060. #ifdef OSK
  2061.             strcat(filbuf,"/");
  2062. #endif
  2063. #ifdef datageneral
  2064.             strcat(filbuf,":");
  2065. #endif
  2066. #ifdef MAC
  2067.             strcat(filbuf,":");
  2068. #endif
  2069. #ifdef STRATUS
  2070.             strcat(filbuf,">");
  2071. #endif
  2072. #ifdef GEMDOS
  2073.             strcat(filbuf,"\\");
  2074. #endif
  2075.             sp = filbuf + cc;
  2076.             bleep(BP_WARN);
  2077.             printf("%s",sp);
  2078.             cc++;
  2079.             while (*bp++ = *sp++) ;
  2080.             bp--;
  2081.             if (setatm(filbuf,0) < 0) {
  2082.                 printf("?Directory name too long\n");
  2083.                 return(-9);
  2084.             }
  2085.             debug(F111,"cmifi directory atmbuf",atmbuf,cc);
  2086.             *xp = atmbuf;
  2087.             } else { /* Not a directory... */
  2088. #endif /* CK_TMPDIR */
  2089. #endif /* VMS */
  2090.             sp = filbuf + cc; /* Point past what user typed. */
  2091. #ifdef VMS
  2092.             for (i = 0; i < cc; i++) {
  2093.                 cmdchardel(); /* Back up over old partial spec */
  2094.                 bp--;
  2095.             }
  2096.             sp = filbuf;    /* Point to new word start */
  2097. #endif /* VMS */
  2098.             printf("%s ",sp); /* Complete the name. */
  2099. #ifdef GEMDOS
  2100.             fflush(stdout);
  2101. #endif /* GEMDOS */
  2102.             addbuf(sp);    /* Add the characters to cmdbuf. */
  2103.             if (setatm(filbuf,0) < 0) { /* And to atmbuf. */
  2104.                 printf("?Completed filename too long\n");
  2105.                 return(-9);
  2106.             }
  2107.             inword = cmflgs = 0;
  2108.             *xp = atmbuf;    /* Return pointer to atmbuf. */
  2109.             return(0);
  2110. #ifndef VMS
  2111. #ifdef CK_TMPDIR
  2112.             }
  2113. #endif /* CK_TMPDIR */
  2114. #endif /* VMS */
  2115.                 }
  2116.                 break;
  2117.  
  2118.             case 3:                     /* Question mark */
  2119. #ifdef OS2
  2120.         tries = 0;
  2121. #endif /* OS2 */
  2122.                 if (*xhlp == NUL)
  2123.           printf(" Input file specification");
  2124.                 else
  2125.           printf(" %s",xhlp);
  2126. #ifdef GEMDOS
  2127.         fflush(stdout);
  2128. #endif /* GEMDOS */
  2129.                 if (xc > 0) {
  2130. #ifdef OS2
  2131. q_again:
  2132.             if (tries > 0)
  2133. #endif /* OS2 */
  2134.             if (f) {        /* If a conversion function is given */
  2135.             zq = atxbuf;    /* ... */
  2136.             atxn = CMDBL;
  2137.             if ((x = (*f)(*xp,&zq,&atxn)) < 0) return(-2);
  2138.             *xp = atxbuf;
  2139.             }
  2140. #ifdef DTILDE
  2141.             dirp = tilde_expand(*xp);    /* Expand tilde, if any */
  2142.             if (*dirp != '\0') {
  2143.             if (setatm(dirp,0) < 0) {
  2144.                 printf("?Expanded filename too long\n");
  2145.                 return(-9);
  2146.             }
  2147.             }
  2148.             *xp = atmbuf;
  2149. #endif /* DTILDE */
  2150.             debug(F111,"cmifi ? *xp, cc",*xp,cc);
  2151.                     sp = *xp + cc;    /* Insert "*" at end */
  2152. #ifdef datageneral
  2153.                     *sp++ = '+';        /* Insert +, the DG wild card */
  2154. #else
  2155.                     *sp++ = '*';
  2156. #endif /* datageneral */
  2157.                     *sp-- = '\0';
  2158. #ifdef GEMDOS
  2159.             if (! strchr(*xp, '.'))    /* abde.e -> abcde.e* */
  2160.               strcat(*xp, ".*");    /* abc -> abc*.* */
  2161. #endif /* GEMDOS */
  2162.             debug(F110,"cmifi ? wild",*xp,0);
  2163.                     y = zxpand(*xp);
  2164.                     *sp = '\0';
  2165.                     if (y == 0) {
  2166. #ifdef OS2
  2167.             if (tries++ < 1)
  2168.               goto q_again;
  2169.             else
  2170. #endif /* OS2 */
  2171.               printf("?No files match - %s\n",atmbuf);
  2172.                         return(-9);
  2173.                     } else if (y < 0) {
  2174.                         printf("?Too many files match - %s\n",atmbuf);
  2175.                         return(-9);
  2176.                     } else {
  2177.                         printf(", one of the following:\n");
  2178.                         clrhlp();
  2179.                         for (i = 0; i < y; i++) {
  2180.                             znext(filbuf);
  2181. #ifdef VMS
  2182.                 printf(" %s\n",filbuf); /* VMS names can be long */
  2183. #else
  2184.                             addhlp(filbuf);
  2185. #endif /* VMS */
  2186.                         }
  2187.                         dmphlp();
  2188.                     }
  2189.                 } else printf("\n");
  2190.                 printf("%s%s",cmprom,cmdbuf);
  2191.         fflush(stdout);
  2192.                 break;
  2193. #endif /* MAC */
  2194.         }
  2195. #ifdef BS_DIRSEP
  2196.     cmdirflg = 1;
  2197.         x = gtword();                   /* No, get a word */
  2198.     cmdirflg = 0;
  2199. #else
  2200.         x = gtword();                   /* No, get a word */
  2201. #endif /* BS_DIRSEP */
  2202.     *xp = atmbuf;
  2203.     }
  2204. #endif /* NEWCMIFI */
  2205. }
  2206.  
  2207. /*  C M D I R  --  Parse a directory specification  */
  2208.  
  2209. /*
  2210.  This function depends on the external functions:
  2211.    zchki()  - Check if input file exists and is readable.
  2212.  If these functions aren't available, then use cmfld() to parse dir names.
  2213.  Note: this function quickly cobbled together, mainly by deleting lots of
  2214.  lines from cmifi().  It seems to work, but various services are missing,
  2215.  like completion, lists of matching directories on "?", etc.
  2216. */
  2217. /*
  2218.  Returns
  2219.    -4 EOF
  2220.    -3 if no input present when required,
  2221.    -2 if out of space or other internal error,
  2222.    -1 if reparse needed,
  2223.     0 or 1, with xp pointing to name, if directory specified,
  2224.     2 if a wildcard was included.
  2225. */
  2226. int
  2227. cmdir(xhlp,xdef,xp,f) char *xhlp, *xdef, **xp; xx_strp f; {
  2228.     int x, xc; char *zq;
  2229. #ifdef DTILDE
  2230.     char *tilde_expand(), *dirp;
  2231. #endif /* DTILDE */
  2232.  
  2233.     inword = 0;                /* Initialize counts & pointers */
  2234.     cc = 0;
  2235.     xc = 0;
  2236.     *xp = "";
  2237.     if ((x = cmflgs) != 1) {            /* Already confirmed? */
  2238. #ifdef BS_DIRSEP
  2239.     cmdirflg = 1;
  2240.         x = gtword();                   /* No, get a word */
  2241.     cmdirflg = 0;
  2242. #else
  2243.         x = gtword();                   /* No, get a word */
  2244. #endif /* BS_DIRSEP */
  2245.     } else {
  2246.         if (setatm(xdef,0) < 0) {    /* If so, use default, if any. */
  2247.         printf("?Default directory name too long\n");
  2248.         return(-9);
  2249.     }
  2250.     }
  2251.     *xp = atmbuf;                       /* Point to result. */
  2252.     while (1) {
  2253.         xc += cc;                       /* Count the characters. */
  2254.         debug(F111,"cmdir gtword",atmbuf,xc);
  2255.         switch (x) {
  2256.         case -9:
  2257.            printf("Command or field too long\n");
  2258.             case -4:                    /* EOF */
  2259.             case -2:                    /* Out of space. */
  2260.             case -1:                    /* Reparse needed */
  2261.                 return(x);
  2262.             case 0:                     /* SP or NL */
  2263.         case 1:
  2264.                 if (xc == 0) *xp = xdef;     /* If no input, return default. */
  2265.         else *xp = atmbuf;
  2266.                 if (**xp == NUL) return(-3); /* If field empty, return -3. */
  2267.  
  2268.         if (**xp == '{') {    /* Strip enclosing braces first */
  2269.             char *s = *xp;
  2270.             int n;
  2271.             n = strlen(s);
  2272.             if (s[n-1] == '}') {
  2273.             s[n-1] = NUL;
  2274.             s++;
  2275.             *xp = s;
  2276.             }
  2277.         }
  2278. #ifndef OS2
  2279.         if (f) {        /* If a conversion function is given */
  2280.             zq = atxbuf;    /* ... */
  2281.             atxn = CMDBL;
  2282.             if ((x = (*f)(*xp,&zq,&atxn)) < 0) return(-2);
  2283.             *xp = atxbuf;
  2284.             cc = (int)strlen(atxbuf);
  2285.         }
  2286.             if (cc == 0) {
  2287.             xc = 0;
  2288.             continue;
  2289.         }
  2290. #ifdef DTILDE
  2291.         dirp = tilde_expand(*xp); /* Expand tilde, if any, */
  2292.         if (*dirp == '~') {    /* Still starts with tilde? */
  2293.             char *tp;        /* Yes, convert to lowercase */
  2294.             tp = *xp;        /* and try again. */
  2295.             while (*tp) {
  2296.             if (isupper(*tp)) *tp = (char) tolower(*tp);
  2297.             tp++;
  2298.             }
  2299.         }
  2300.         dirp = tilde_expand(*xp); /* Expand tilde, if any, */
  2301. #ifdef COMMENT
  2302.         if (*dirp != '\0') {    /* in the atom buffer. */
  2303.             if (setatm(dirp,0) < 0) {
  2304.             printf("Expanded name too long\n");
  2305.             return(-9);
  2306.             }
  2307.         }
  2308. #else
  2309.         /* This allows for directory names that contain spaces. */
  2310.         if (*dirp != '\0')
  2311.           strcpy(atmbuf,dirp);
  2312.         *xp = atmbuf;
  2313. #endif /* COMMENT */
  2314. #endif /* DTILDE */
  2315. #else  /* OS2 */
  2316.         if (isdir(*xp)) {    /* OS/2 version has this function */
  2317.             return(x);
  2318.         } else {
  2319.             if (f) {        /* If a conversion function is given */
  2320.             zq = atxbuf;    /* ... */
  2321.             atxn = CMDBL;
  2322.             if ((x = (*f)(*xp,&zq,&atxn)) < 0) return(-2);
  2323.             *xp = atxbuf;
  2324.             cc = (int)strlen(atxbuf);
  2325.             }
  2326.         }
  2327.             if (cc == 0) {
  2328.             xc = 0;
  2329.             continue;
  2330.         }
  2331. #endif /* OS2 */
  2332.         if (iswild(*xp)) return(2);
  2333.         else return(x);
  2334.  
  2335.             case 2:                     /* ESC */
  2336.                 bleep(BP_WARN);
  2337.         break;
  2338.  
  2339.             case 3:                     /* Question mark */
  2340.                 if (*xhlp == NUL)
  2341.           printf(" Directory name");
  2342.                 else
  2343.           printf(" %s",xhlp);
  2344.                 printf("\n%s%s",cmprom,cmdbuf);
  2345.         fflush(stdout);
  2346.                 break;
  2347.         }
  2348. #ifdef BS_DIRSEP
  2349.     cmdirflg = 1;
  2350.     x = gtword();
  2351.     cmdirflg = 0;
  2352. #else
  2353.     x = gtword();
  2354. #endif /* BS_DIRSEP */
  2355.  
  2356.     }
  2357. }
  2358.  
  2359. /*  C M F L D  --  Parse an arbitrary field  */
  2360. /*
  2361.  Returns
  2362.    -3 if no input present when required,
  2363.    -2 if field too big for buffer,
  2364.    -1 if reparse needed,
  2365.     0 otherwise, xp pointing to string result.
  2366. */
  2367. int
  2368. cmfld(xhlp,xdef,xp,f) char *xhlp, *xdef, **xp; xx_strp f; {
  2369.     int x, xc;
  2370.     char *zq;
  2371.  
  2372.     inword = 0;                /* Initialize counts & pointers */
  2373.     cc = 0;
  2374.     xc = 0;    
  2375.     *xp = "";
  2376.     if ((x = cmflgs) != 1) {            /* Already confirmed? */
  2377.         x = gtword();                   /* No, get a word */
  2378.     } else {
  2379.     if (setatm(xdef,0) < 0) {    /* If so, use default, if any. */
  2380.         printf("?Default too long\n");
  2381.         return(-9);
  2382.     }
  2383.     }
  2384.     *xp = atmbuf;                       /* Point to result. */
  2385.  
  2386.     while (1) {
  2387.         xc += cc;                       /* Count the characters. */
  2388.         debug(F111,"cmfld: gtword",atmbuf,xc);
  2389.         debug(F101,"cmfld x","",x);
  2390.         switch (x) {
  2391.         case -9:
  2392.            printf("Command or field too long\n");
  2393.             case -4:                    /* EOF */
  2394.             case -2:                    /* Out of space. */
  2395.             case -1:                    /* Reparse needed */
  2396.                 return(x);
  2397.             case 0:                     /* SP or NL */
  2398.             case 1:
  2399.                 if (xc == 0) {         /* If no input, return default. */
  2400.             if (setatm(xdef,0) < 0) {
  2401.             printf("?Default too long\n");
  2402.             return(-9);
  2403.             }
  2404.         }
  2405.         *xp = atmbuf;
  2406.         if (f) {        /* If a conversion function is given */
  2407.             zq = atxbuf;    /* employ it now. */
  2408.             atxn = CMDBL;
  2409.             if ((*f)(*xp,&zq,&atxn) < 0)
  2410.               return(-2);
  2411.             if (setatm(atxbuf,0) < 0) {
  2412.             printf("Value too long\n");
  2413.             return(-9);
  2414.             }
  2415.             *xp = atmbuf;
  2416.         }
  2417.                 if (**xp == NUL) {    /* If variable evaluates to null */
  2418.             if (setatm(xdef,0) < 0) {
  2419.             printf("?Default too long\n");
  2420.             return(-9);
  2421.             }
  2422.             if (**xp == NUL) x = -3; /* If still empty, return -3. */
  2423.         }
  2424. #ifdef COMMENT
  2425. /* The following is apparently not necessary. */
  2426. /* Remove it if nothing is broken, esp. TAKE file with trailing comments */
  2427.         xx = *xp;
  2428.         debug(F111,"cmfld before trim",*xp,x);
  2429.         for (i = (int)strlen(xx) - 1; i > 0; i--)
  2430.           if (xx[i] != SP)    /* Trim trailing blanks */
  2431.             break;
  2432.           else
  2433.             xx[i] = NUL;
  2434. #endif /* COMMENT */
  2435.         debug(F111,"cmfld returns",*xp,x);
  2436.                 return(x);
  2437.             case 2:                     /* ESC */
  2438.                 if (xc == 0 && *xdef != NUL) {
  2439.                     printf("%s ",xdef); /* If at beginning of field, */
  2440. #ifdef GEMDOS
  2441.             fflush(stdout);
  2442. #endif /* GEMDOS */
  2443.                     addbuf(xdef);       /* supply default. */
  2444.             inword = cmflgs = 0;
  2445.             if (setatm(xdef,0) < 0) {
  2446.             printf("?Default too long\n");
  2447.             return(-9);
  2448.             } else        /* Return as if whole field */
  2449.               return(0);    /* typed, followed by space. */
  2450.                 } else {
  2451.             bleep(BP_WARN);
  2452.                 }
  2453.                 break;
  2454.             case 3:                     /* Question mark */
  2455.                 if (*xhlp == NUL)
  2456.                     printf(" Please complete this field");
  2457.                 else
  2458.                     printf(" %s",xhlp);
  2459.                 printf("\n%s%s",cmprom,cmdbuf);
  2460.         fflush(stdout);
  2461.                 break;
  2462.         }
  2463.     x = gtword();
  2464. /*  *xp = atmbuf; */
  2465.     }
  2466. }
  2467.  
  2468.  
  2469. /*  C M T X T  --  Get a text string, including confirmation  */
  2470.  
  2471. /*
  2472.   Print help message 'xhlp' if ? typed, supply default 'xdef' if null
  2473.   string typed.  Returns
  2474.  
  2475.    -1 if reparse needed or buffer overflows.
  2476.     1 otherwise.
  2477.  
  2478.   with cmflgs set to return code, and xp pointing to result string.
  2479. */
  2480. int
  2481. cmtxt(xhlp,xdef,xp,f) char *xhlp; char *xdef; char **xp; xx_strp f; {
  2482.  
  2483.     int x, i;
  2484.     char *xx, *zq;
  2485.     static int xc;
  2486.  
  2487.     debug(F101,"cmtxt, cmflgs","",cmflgs);
  2488.     inword = 0;                /* Start atmbuf counter off at 0 */
  2489.     cc = 0;        
  2490.     if (cmflgs == -1) {                 /* If reparsing, */
  2491.         xc = (int)strlen(*xp);        /* get back the total text length, */
  2492.     bp = *xp;            /* and back up the pointers. */
  2493.     np = *xp;
  2494.     pp = *xp;
  2495.     } else {                            /* otherwise, */
  2496.     debug(F100,"cmtxt: fresh start","",0);
  2497.         *xp = "";                       /* start fresh. */
  2498.         xc = 0;
  2499.     }
  2500.     *atmbuf = NUL;                      /* And empty the atom buffer. */
  2501.     if ((x = cmflgs) != 1) {
  2502.         x = gtword();                   /* Get first word. */
  2503.         *xp = pp;                       /* Save pointer to it. */
  2504.     debug(F111,"cmtxt:",*xp,cc);
  2505.     }
  2506.     debug(F101,"cmtxt (*f)","", f);
  2507.     while (1) {                /* Loop for each word in text. */
  2508.         xc += cc;                       /* Char count for all words. */
  2509.         debug(F111,"cmtxt: gtword",atmbuf,xc);
  2510.         debug(F101," x","",x);
  2511.         switch (x) {
  2512.       case -9:            /* Buffer overflow */
  2513.         printf("Command or field too long\n");
  2514.       case -4:            /* EOF */
  2515. #ifdef MAC
  2516.       case -3:            /* Quit/Timeout */
  2517. #endif /* MAC */
  2518.       case -2:            /* Overflow */
  2519.       case -1:            /* Deletion */
  2520.         return(x);
  2521.       case 0:            /* Space */
  2522.         xc++;            /* Just count it */
  2523.         break;
  2524.       case 1:            /* CR or LF */
  2525.         if (xc == 0) *xp = xdef;
  2526.         if (f) {            /* If a conversion function is given */
  2527.         zq = atxbuf;        /* Point to the expansion buffer */
  2528.         atxn = CMDBL;        /* specify its length */
  2529.         debug(F110,"cmtxt calling (*f)",*xp,0);
  2530.         if ((x = (*f)(*xp,&zq,&atxn)) < 0) return(-2);
  2531.         cc = (int)strlen(atxbuf);
  2532.         *xp = atxbuf;        /* and return pointer to it. */
  2533.         debug(F111,"cmtxt (*f) returns",*xp,cc);
  2534.         }
  2535.         xx = *xp;
  2536.         for (i = (int)strlen(xx) - 1; i > 0; i--)
  2537.           if (xx[i] != SP)        /* Trim trailing blanks */
  2538.         break;
  2539.           else
  2540.         xx[i] = NUL;
  2541.         return(x);
  2542.       case 2:            /* ESC */
  2543.         if (xc == 0) {        /* Nothing typed yet */
  2544.         if (*xdef) {        /* Have a default for this field? */
  2545.             printf("%s ",xdef);    /* Yes, supply it */
  2546.             inword = cmflgs = 0;
  2547. #ifdef GEMDOS
  2548.             fflush(stdout);
  2549. #endif /* GEMDOS */
  2550.             cc = addbuf(xdef);
  2551.         } else bleep(BP_WARN);    /* No default */
  2552.         } else {            /* Already in field */
  2553.         int x; char *p;
  2554.         x = strlen(atmbuf);
  2555.         if (xxstrcmp(atmbuf,xdef,x)) /* Matches default? */
  2556.           bleep(BP_WARN);    /* No */
  2557.         else {            /* Yes */
  2558.             p = xdef + x;
  2559.             printf("%s ", p);
  2560. #ifdef GEMDOS
  2561.             fflush(stdout);
  2562. #endif /* GEMDOS */
  2563.             addbuf(p);
  2564.             inword = cmflgs = 0;
  2565.             debug(F110,"cmtxt: addbuf",cmdbuf,0);
  2566.         }
  2567.         }
  2568.         break;
  2569.       case 3:            /* Question Mark */
  2570.         if (*xhlp == NUL)
  2571.           printf(" Text string");
  2572.         else
  2573.           printf(" %s",xhlp);
  2574.         printf("\n%s%s",cmprom,cmdbuf);
  2575.         fflush(stdout);
  2576.         break;
  2577.       default:
  2578.         printf("?Unexpected return code from gtword() - %d\n",x);
  2579.         return(-2);
  2580.         }
  2581.         x = gtword();
  2582.     }
  2583. }
  2584.  
  2585. /*  C M K E Y  --  Parse a keyword  */
  2586.  
  2587. /*
  2588.  Call with:
  2589.    table    --  keyword table, in 'struct keytab' format;
  2590.    n        --  number of entries in table;
  2591.    xhlp     --  pointer to help string;
  2592.    xdef     --  pointer to default keyword;
  2593.  
  2594.  Returns:
  2595.    -3       --  no input supplied and no default available
  2596.    -2       --  input doesn't uniquely match a keyword in the table
  2597.    -1       --  user deleted too much, command reparse required
  2598.     n >= 0  --  value associated with keyword
  2599. */
  2600. int
  2601. cmkey(table,n,xhlp,xdef,f)
  2602. /* cmkey */  struct keytab table[]; int n; char *xhlp, *xdef; xx_strp f; {
  2603.     return(cmkey2(table,n,xhlp,xdef,"",f,1));
  2604. }
  2605. int
  2606. cmkeyx(table,n,xhlp,xdef,f)
  2607. /* cmkey */  struct keytab table[]; int n; char *xhlp, *xdef; xx_strp f; {
  2608.     return(cmkey2(table,n,xhlp,xdef,"",f,0));
  2609. }
  2610. int
  2611. cmkey2(table,n,xhlp,xdef,tok,f,pmsg)
  2612.     struct keytab table[];
  2613.     int n;
  2614.     char *xhlp,
  2615.     *xdef;
  2616.     char *tok;
  2617.     xx_strp f;
  2618.     int pmsg;
  2619. { /* cmkey2 */
  2620.     int i, tl, y, z, zz, xc;
  2621.     char *xp, *zq;
  2622.  
  2623.     tl = (int)strlen(tok);
  2624.     inword = xc = cc = 0;        /* Clear character counters. */
  2625.  
  2626.     debug(F101,"cmkey: cmflgs","",cmflgs);
  2627.     debug(F101,"cmkey: cmdbuf","",cmdbuf);
  2628.  
  2629.     if ((zz = cmflgs) == 1) {        /* Command already entered? */
  2630.     if (setatm(xdef,0) < 0) {    /* Yes, copy default into atom buf */
  2631.         printf("?Default too long\n");
  2632.         return(-9);
  2633.     }
  2634.     } else
  2635.       zz = gtword();            /* Otherwise get a command word */
  2636.  
  2637.     debug(F101,"cmkey: table length","",n);
  2638.     debug(F101," cmflgs","",cmflgs);
  2639.     debug(F101," zz","",zz);
  2640.     while (1) {
  2641.     xc += cc;
  2642.     debug(F111,"cmkey: gtword",atmbuf,xc);
  2643.  
  2644.     switch(zz) {
  2645.       case -9:
  2646.         printf("Command or field too long\n");
  2647.       case -4:            /* EOF */
  2648.       case -3:            /* Null Command/Quit/Timeout */
  2649.       case -2:            /* Buffer overflow */
  2650.       case -1:            /* Or user did some deleting. */
  2651.         return(cmflgs = zz);
  2652.  
  2653.       case 0:            /* User terminated word with space */
  2654.       case 1:            /* or newline */
  2655.         if (cc == 0) {        /* Supply default if we got nothing */
  2656.         if (setatm(xdef,0) < 0) {
  2657.             printf("?Default too long\n");
  2658.             return(-9);
  2659.         }
  2660.         }
  2661.         if (f) {            /* If a conversion function is given */
  2662.         zq = atxbuf;        /* apply it */
  2663.         atxn = CMDBL;
  2664.         if ((*f)(atmbuf,&zq,&atxn) < 0) return(-2);
  2665.         debug(F110,"cmkey atxbuf after *f",atxbuf,0);
  2666.         if (setatm(atxbuf,0) < 0) {
  2667.             printf("Evaluated keyword too long\n");
  2668.             return(-9);
  2669.         }
  2670.         }
  2671.         y = lookup(table,atmbuf,n,&z); /* Look up the word in the table */
  2672.         switch (y) {
  2673.           case -2:            /* Ambiguous */
  2674.         if (pmsg) {
  2675.             bleep(BP_FAIL);
  2676.                     printf("?Ambiguous - %s\n",atmbuf);
  2677.         }
  2678.         cmflgs = -2;
  2679.         return(-9);
  2680.           case -1:            /* Not found at all */
  2681.         if (tl) {
  2682.             for (i = 0; i < tl; i++) /* Check for token */
  2683.               if (tok[i] == *atmbuf) { /* Got one */
  2684.               ungword();  /* Put back the following word */
  2685.               return(-5); /* Special return code for token */
  2686.               }
  2687.         }
  2688.         /* Kludge alert... only print error if */
  2689.         /* we were called as cmkey2, but not cmkey... */
  2690.         /* This doesn't seem to always work. */
  2691.         if (tl == 0) {
  2692. #ifdef OS2
  2693.             if (isalpha(*atmbuf) && *(atmbuf+1) == ':')
  2694.               return(-7);
  2695. #endif /* OS2 */
  2696.             if (pmsg) {
  2697.             bleep(BP_FAIL);
  2698.             printf("?No keywords match - %s\n",atmbuf); /* cmkey */
  2699.             }
  2700.             return(cmflgs = -9);
  2701.         } else {
  2702.             if (cmflgs == 1)    /* cmkey2 */
  2703.               return(cmflgs = -6);
  2704.             else
  2705.               return(cmflgs = -2);
  2706.             /* The -6 code is to let caller try another table */
  2707.         }
  2708.           default:
  2709.         break;
  2710.         }
  2711.         return(y);
  2712.  
  2713.       case 2:            /* User terminated word with ESC */
  2714.             if (cc == 0) {
  2715.         if (*xdef != NUL) {     /* Nothing in atmbuf */
  2716.             printf("%s ",xdef); /* Supply default if any */
  2717. #ifdef GEMDOS   
  2718.             fflush(stdout);
  2719. #endif /* GEMDOS */
  2720.             addbuf(xdef);
  2721.             if (setatm(xdef,0) < 0) {
  2722.             printf("?Default too long\n");
  2723.             return(-9);
  2724.             }   
  2725.             inword = cmflgs = 0;
  2726.             debug(F111,"cmkey: default",atmbuf,cc);
  2727.         } else {
  2728.             if (pmsg) bleep(BP_WARN);
  2729.             break;
  2730.         }
  2731.             }
  2732.         if (f) {            /* If a conversion function is given */
  2733.         zq = atxbuf;        /* apply it */
  2734.         atxn = CMDBL;
  2735.         if ((*f)(atmbuf,&zq,&atxn) < 0)
  2736.           return(-2);
  2737.         if (setatm(atxbuf,0) < 0) {
  2738.             printf("Evaluated keyword too long\n");
  2739.             return(-9);
  2740.         }
  2741.         }
  2742.         y = lookup(table,atmbuf,n,&z); /* Something in atmbuf */
  2743.         debug(F111,"cmkey: esc",atmbuf,y);
  2744.         if (y == -2 || y == -3) {    /* Ambiguous */
  2745.         bleep(BP_WARN);
  2746.         break;
  2747.         }
  2748.         if (y == -1) {        /* Not found */
  2749.         if (pmsg) {
  2750.             bleep(BP_FAIL);
  2751.             printf("?No keywords match - %s\n",atmbuf);
  2752.         }
  2753.         cmflgs = -2;
  2754.         return(-9);
  2755.         }
  2756. /*      
  2757.   See if the keyword just found has the CM_ABR bit set in its flgs field, and
  2758.   if so, search forwards in the table for a keyword that has the same kwval
  2759.   but does not have CM_ABR (or CM_INV?) set, and then expand using the full
  2760.   keyword.  WARNING: This assumes that (a) keywords are in alphabetical order,
  2761.   and (b) the CM_ABR bit is set only if the the abbreviated keyword is a true
  2762.   abbreviation (left substring) of the full keyword.
  2763. */
  2764.         if (test(table[z].flgs,CM_ABR)) {
  2765.         int zz;
  2766.         for (zz = z+1; zz < n; zz++)
  2767.           if ((table[zz].kwval == table[z].kwval) &&
  2768.               (!test(table[zz].flgs,CM_ABR))) {
  2769.               z = zz;
  2770.               break;
  2771.           }
  2772.         }
  2773.         xp = table[z].kwd + cc;
  2774.         printf("%s ",xp);
  2775. #ifdef GEMDOS
  2776.         fflush(stdout);
  2777. #endif /* GEMDOS */
  2778.         addbuf(xp);
  2779.         inword = cmflgs = 0;
  2780.         debug(F110,"cmkey: addbuf",cmdbuf,0);
  2781.         return(y);
  2782.  
  2783.       case 3:            /* User typed "?" */
  2784.         if (f) {            /* If a conversion function is given */
  2785.         zq = atxbuf;        /* do the conversion now. */
  2786.         atxn = CMDBL;
  2787.         if ((*f)(atmbuf,&zq,&atxn) < 0) return(-2);
  2788.         if (setatm(atxbuf,0) < 0) {
  2789.             printf("?Evaluated keyword too long\n");
  2790.             return(-9);
  2791.         }
  2792.         }
  2793.         y = lookup(table,atmbuf,n,&z); /* Look up what we have so far. */
  2794.  
  2795.         if (y == -1) {
  2796.         if (pmsg) {
  2797.             bleep( BP_FAIL ) ;
  2798.             printf(" No keywords match\n");
  2799.         }
  2800.         cmflgs = -2;
  2801.         return(-9);
  2802.         }
  2803.         if (*xhlp == NUL)
  2804.           printf(" One of the following:\n");
  2805.         else
  2806.           printf(" %s, one of the following:\n",xhlp);
  2807.           
  2808. #ifdef OLDHELP
  2809.         if ((y > -1) &&
  2810.         !test(table[z].flgs,CM_ABR) &&
  2811.         ((z >= n-1) || xxstrcmp(table[z].kwd,table[z+1].kwd,cc))
  2812.         ) {
  2813.         printf(" %s\n",table[z].kwd);
  2814.         } else {
  2815.         clrhlp();
  2816.         for (i = 0; i < n; i++) {
  2817.             if (!xxstrcmp(table[i].kwd,atmbuf,cc)
  2818.             && !test(table[i].flgs,CM_INV)
  2819.             )
  2820.               addhlp(table[i].kwd);
  2821.         }       
  2822.         dmphlp();
  2823.         }
  2824. #else  /* New way ... */
  2825.         kwdhelp(table,n,atmbuf,"","",1);
  2826. #endif /* OLDHELP */
  2827.         if (*atmbuf == NUL) {
  2828.         if (tl == 1)
  2829.           printf("or the token %c\n",*tok);
  2830.         else if (tl > 1)
  2831.           printf("or one of the tokens: %s\n",tok);
  2832.         }
  2833.         printf("%s%s", cmprom, cmdbuf);
  2834.         fflush(stdout);
  2835.         break;
  2836.  
  2837.       default:
  2838.         printf("\n%d - Unexpected return code from gtword\n",zz);
  2839.         return(cmflgs = -2);
  2840.     }
  2841.     zz = gtword();
  2842.     }
  2843. }
  2844.  
  2845. int
  2846. chktok(tlist) char *tlist; {
  2847.     char *p;
  2848.     p = tlist;
  2849.     while (*p != NUL && *p != *atmbuf) p++;
  2850.     return((*p) ? (int) *p : 0);
  2851. }
  2852.  
  2853. /*  C M C F M  --  Parse command confirmation (end of line)  */
  2854.  
  2855. /*
  2856.  Returns
  2857.    -2: User typed anything but whitespace or newline
  2858.    -1: Reparse needed
  2859.     0: Confirmation was received
  2860. */
  2861. int
  2862. cmcfm() {
  2863.     int x, xc;
  2864.  
  2865.     debug(F101,"cmcfm: cmflgs","",cmflgs);
  2866.     debug(F110,"cmcfm: atmbuf",atmbuf,0);
  2867.     inword = xc = cc = 0;
  2868.     if (cmflgs == 1) return(0);
  2869.  
  2870.     setatm("",0);            /* (Probably unnecessary) */
  2871.  
  2872.     while (1) {
  2873.         x = gtword();
  2874.         xc += cc;
  2875.         switch (x) {
  2876.         case -9:
  2877.           printf("Command or field too long\n");
  2878.             case -4:                    /* EOF */
  2879.             case -2:
  2880.             case -1:
  2881.                 return(x);
  2882.  
  2883.             case 1:                     /* End of line */
  2884.                 if (xc > 0) {
  2885.                     printf("?Not confirmed - %s\n",atmbuf);
  2886.                     return(-9);
  2887.                 } else return(0);
  2888.             case 2:            /* ESC */
  2889.         if (xc == 0) {
  2890.                 bleep(BP_WARN);
  2891.             continue;        /* or fall thru. */
  2892.         }
  2893.             case 0:                     /* Space */
  2894.         if (xc == 0)        /* If no chars typed, continue, */
  2895.           continue;        /* else fall thru. */
  2896.             case 3:            /* Question mark */
  2897.                 if (xc > 0) {
  2898.                     printf("?Not confirmed - %s\n",atmbuf);
  2899.                     return(-9);
  2900.                 }
  2901.                 printf("\n Type a carriage return to confirm the command\n");
  2902.                 printf("%s%s",cmprom,cmdbuf);
  2903.         fflush(stdout);
  2904.                 continue;
  2905.         }
  2906.     }
  2907. }
  2908.  
  2909. #ifdef OLDHELP
  2910. /* Keyword help routines */
  2911.  
  2912. /*  C L R H L P -- Initialize/Clear the help line buffer  */
  2913.  
  2914. static VOID
  2915. clrhlp() {                              /* Clear the help buffer */
  2916.     hlpbuf[0] = NUL;
  2917.     hh = hx = 0;
  2918. }
  2919.  
  2920.  
  2921. /*  A D D H L P  --  Add a string to the help line buffer  */
  2922.  
  2923. static VOID
  2924. addhlp(s) char *s; {                    /* Add a word to the help buffer */
  2925.     int j;
  2926.  
  2927.     hh++;                               /* Count this column */
  2928.  
  2929.     for (j = 0; (j < hc) && (*s != NUL); j++) { /* Fill the column */
  2930.         hlpbuf[hx++] = *s++;
  2931.     }
  2932.     if (*s != NUL)                      /* Still some chars left in string? */
  2933.         hlpbuf[hx-1] = '+';             /* Mark as too long for column. */
  2934.  
  2935.     if (hh < (hw / hc)) {               /* Pad col with spaces if necessary */
  2936.         for (; j < hc; j++) {
  2937.             hlpbuf[hx++] = SP;
  2938.         }
  2939.     } else {                            /* If last column, */
  2940.         hlpbuf[hx++] = NUL;             /* no spaces. */
  2941.         dmphlp();                       /* Print it. */
  2942.         return;
  2943.     }
  2944. }
  2945.  
  2946. /*  D M P H L P  --  Dump the help line buffer  */
  2947.  
  2948. static VOID
  2949. dmphlp() {                              /* Print the help buffer */
  2950.     hlpbuf[hx++] = NUL;
  2951.     if ( hlpbuf[0] )
  2952.        printf(" %s\n",hlpbuf);
  2953.     clrhlp();
  2954. }
  2955. #endif /* OLDHELP */
  2956.  
  2957. /*  G T W O R D  --  Gets a "word" from the command input stream  */
  2958.  
  2959. /*
  2960. Usage: retcode = gtword();
  2961.  
  2962. Returns:
  2963.  -9 if input was too long
  2964.  -4 if end of file (e.g. pipe broken)
  2965.  -3 if null command
  2966.  -2 if command buffer overflows
  2967.  -1 if user did some deleting
  2968.   0 if word terminates with SP or tab
  2969.   1 if ... CR
  2970.   2 if ... ESC
  2971.   3 if ... ? (question mark)
  2972.  
  2973. With:
  2974.   pp pointing to beginning of word in buffer
  2975.   bp pointing to after current position
  2976.   atmbuf containing a copy of the word
  2977.   cc containing the number of characters in the word copied to atmbuf
  2978. */
  2979.  
  2980. int
  2981. ungword() {                /* Unget a word */
  2982.     if (ungw) return(0);
  2983.     cmfsav = cmflgs;
  2984.     debug(F101,"ungword cmflgs","",cmflgs);
  2985.     ungw = 1;
  2986.     cmflgs = 0;
  2987.     return(0);
  2988. }
  2989.  
  2990. static int
  2991. gtword() {
  2992.     int c;                              /* Current char */
  2993.     int quote = 0;                      /* Flag for quote character */
  2994.     int echof = 0;                      /* Flag for whether to echo */
  2995.     int chsrc = 0;            /* Source of character, 1 = tty */
  2996.     int comment = 0;            /* Flag for in comment */
  2997.     char *cp = NULL;            /* Comment pointer */
  2998.     int eintr = 0;
  2999.     int bracelvl = 0;            /* nested brace counter [jrs]        */
  3000.  
  3001. #ifdef RTU
  3002.     extern int rtu_bug;
  3003. #endif /* RTU */
  3004.  
  3005. #ifdef datageneral
  3006.     extern int termtype;                /* DG terminal type flag */
  3007.     extern int con_reads_mt;            /* Console read asynch is active */
  3008.     if (con_reads_mt) connoi_mt();      /* Task would interfere w/cons read */
  3009. #endif /* datageneral */
  3010.  
  3011.     if (ungw) {                /* Have a word saved? */
  3012.     debug(F110,"gtword ungetting from pp",pp,0);
  3013.     while (*pp++ == SP) ;
  3014.     if (setatm(pp,0) < 0) {
  3015.         printf("?Saved word too long\n");
  3016.         return(-9);
  3017.     }
  3018.     strncpy(atmbuf,pp,ATMBL);
  3019.     ungw = 0;
  3020.     cmflgs = cmfsav;
  3021.     debug(F111,"gtword returning atmbuf",atmbuf,cmflgs);
  3022.     return(cmflgs);
  3023.     }
  3024.     pp = np;                            /* Start of current field */
  3025.  
  3026.     debug(F111,"gtword: cmdbuf",cmdbuf,cmdbuf);
  3027.     debug(F111," bp",bp,bp);
  3028.     debug(F111," pp",pp,pp);
  3029.  
  3030.     while (bp < cmdbuf+CMDBL) {         /* Big get-a-character loop */
  3031.     echof = 0;            /* Assume we don't echo because */
  3032.     chsrc = 0;            /* character came from reparse buf. */
  3033. #ifdef BS_DIRSEP
  3034. CMDIRPARSE:
  3035. #endif /* BS_DIRSEP */
  3036.         if ((c = *bp) == NUL) {         /* If no char waiting in reparse buf */
  3037.            if (dpx) echof = 1;        /* must get from tty, set echo flag. */
  3038.            c = cmdgetc();        /* Read a character from the tty. */
  3039.            chsrc = 1;            /* Remember character source is tty. */
  3040. #ifdef OS2
  3041.            if ( c < 0 ) {
  3042.            if ( c == -3 ) {
  3043.            if (blocklvl > 0)
  3044.              continue;
  3045.            else
  3046.              return(-3);    /* Empty command */
  3047.            } else {
  3048.            return -4;        /* Something went wrong */
  3049.            }
  3050.            }
  3051. #else
  3052. #ifdef MAC
  3053.        if (c == -3)            /* If null command... */
  3054.          if (blocklvl > 0)
  3055.            continue;
  3056.          else
  3057.            return(-3);
  3058. #endif /* MAC */
  3059. #endif /* OS2 */
  3060.        if (c == EOF) {        /* This can happen if stdin not tty. */
  3061. #ifdef EINTR
  3062. /*
  3063.   Some operating and/or C runtime systems return EINTR for no good reason,
  3064.   when the end of the standard input "file" is encountered.  In cases like
  3065.   this, we get into an infinite loop; hence the eintr counter, which is reset
  3066.   to 0 upon each call to this routine.
  3067. */
  3068.         debug(F101,"gtword EOF","",errno);
  3069.         if (errno == EINTR && ++eintr < 4) /* When bg'd process is */
  3070.           continue;        /* fg'd again. */
  3071. #endif /* EINTR */
  3072.         return(-4);
  3073.         }
  3074.         c &= cmdmsk;        /* Strip any parity bit */
  3075.     }                /* if desired. */
  3076.  
  3077. /* Now we have the next character */
  3078.  
  3079.     if (quote && (c == CR || c == NL)) { /* Enter following quote */
  3080.         *bp++ = CMDQ;        /* Double it */
  3081.         *bp = NUL;
  3082.         quote = 0;
  3083.     }
  3084.         if (quote == 0) {        /* If this is not a quoted character */
  3085.             if (c == CMDQ) {        /* Got the quote character itself */
  3086.         if (!comment && quoting)
  3087.           quote = 1;        /* Flag it if not in a comment */
  3088.             }
  3089.         if (c == FF) {        /* Formfeed. */
  3090.                 c = NL;                 /* Replace with newline */
  3091. #ifdef OS2
  3092.         cmdclrscn();        /* Clear the screen */
  3093. #endif /* OS2 */
  3094.             }
  3095.         if (c == HT) {        /* Tab */
  3096.         if (comment)        /* If in comment, */
  3097.           c = SP;        /* substitute space */
  3098.         else            /* otherwise */
  3099.           c = ESC;        /* substitute ESC (for completion) */
  3100.         }
  3101.         if (c == ';' || c == '#') { /* Trailing comment */
  3102.         if (inword == 0 && quoting) { /* If not in a word */
  3103.             comment = 1;    /* start a comment. */
  3104.             cp = bp;        /* remember where it starts. */
  3105.         }
  3106.         }
  3107.         if (!comment && c == SP) {    /* Space */
  3108.                 *bp++ = (char) c;    /* deposit in buffer if not already */
  3109. #ifdef BEBOX
  3110.                 if (echof) {
  3111.                     putchar(c);        /* echo it. */
  3112.                     fflush (stdout);
  3113.                     fflush(stderr);
  3114.                 }
  3115. #else
  3116.                 if (echof) putchar(c);  /* echo it. */
  3117. #endif /* BEBOX */
  3118.                 if (inword == 0) {      /* If leading, gobble it. */
  3119.                     pp++;
  3120.                     continue;
  3121.                 } else {                /* If terminating, return. */
  3122. #ifdef COMMENT
  3123.                     np = bp;
  3124.                     setatm(pp,0);
  3125.                     inword = cmflgs = 0;
  3126.             return(0);
  3127. #else
  3128. /* This allows { ... } grouping */
  3129.             if ((*pp != '{') || (bracelvl == 0)) {
  3130.             np = bp;
  3131.             if (setatm(pp,0) < 0) {
  3132.                 printf("?Field too long error 1\n");
  3133.                 debug(F111,"gtword too long #1",pp,strlen(pp));
  3134.                 return(-9);
  3135.             }
  3136.             inword = cmflgs = 0;
  3137.             return(0);
  3138.             }
  3139.                     continue;
  3140. #endif /* COMMENT */
  3141.                 }
  3142.             }
  3143.             if (c == '{')
  3144.               bracelvl++;
  3145.             if (c == '}') {
  3146.                 bracelvl--;
  3147.                 if (linebegin)
  3148.           blocklvl--;
  3149.             }
  3150.             if (c == NL || c == CR) {    /* CR or LF. */
  3151. #ifdef BEBOX
  3152.         if (echof) {
  3153.                     cmdnewl((char)c);    /* echo it. */
  3154.                     fflush (stdout);
  3155.                     fflush(stderr);
  3156.                 }
  3157. #else
  3158.                 if (echof) cmdnewl((char)c); /* echo it. */
  3159. #endif /* BEBOX */
  3160.         while (bp > pp && (*(bp-1) == SP || *(bp-1) == HT)) /* Trim */
  3161.           bp--;            /* trailing */
  3162.         *bp = NUL;        /* whitespace. */
  3163.  
  3164.         if (linebegin && blocklvl > 0) /* Blank line in {...} block */
  3165.           continue;
  3166.  
  3167.         linebegin = 1;        /* At beginning of next line */
  3168.  
  3169.                 if ((bp > pp) &&
  3170.             (*(bp-1) == '-' || *(bp-1) == '{')) { /* Line continued? */
  3171.                     if (chsrc) {    /* If reading from tty, */
  3172.                         if (*(bp-1) == '{') { /* Check for "begin block" */
  3173.                             *bp++ = SP;    /* Insert a space for neatness */
  3174.                             blocklvl++;    /* Count block nesting level */
  3175.                         } else {    /* Or hyphen */
  3176.                 bp--;    /* Overwrite the hyphen */
  3177.                         }
  3178.                         *bp = NUL;    /* erase the dash, */
  3179.                         continue;    /* and go back for next char now. */
  3180.                     }
  3181.         } else if (blocklvl > 0) { /* No continuation character */
  3182.                      if (chsrc) {    /* But we're in a "block" */
  3183.                          *bp++ = ',';    /* Add comma */
  3184.                          *bp = NUL;
  3185.                          continue;
  3186.                      }
  3187.                  } else {        /* No continuation, end of command. */
  3188.                      *bp = NUL;        /* Terminate the command string. */
  3189.                      if (comment) {    /* If we're in a comment, */
  3190.                          comment = 0;    /* Say we're not any more, */
  3191.                          *cp = NUL;    /* cut it off. */
  3192.                      }
  3193.                      np = bp;        /* Where to start next field. */
  3194.                      if (setatm(pp,0) < 0) { /* Copy field to atom buffer */
  3195.                          debug(F111,"gtword too long #2",pp,strlen(pp));
  3196.             printf("?Field too long error 2\n");
  3197.             return(-9);
  3198.             }
  3199.             inword = 0;        /* Not in a word any more. */
  3200. #ifdef CK_RECALL
  3201.             if (chsrc &&    /* Reading commands from keyboard? */
  3202.             (on_recall) &&           /* Recall is turned on? */
  3203.             (cm_recall > 0) &&     /* Saving commands? */
  3204.             (int)strlen(cmdbuf)) { /* Non-null command? */
  3205.             if (rlast >= cm_recall - 1) { /* Yes, buffer full? */
  3206.                 int i;       /* Yes. */
  3207.                 if (recall[0]) { /* Discard oldest command */
  3208.                 free(recall[0]);
  3209.                 recall[0] = NULL;
  3210.                 }
  3211.                 for (i = 0; i < rlast; i++) { /* The rest */
  3212.                 recall[i] = recall[i+1]; /* move back */
  3213.                 }
  3214.                 rlast--;     /* Now we have one less */
  3215.             }
  3216.             rlast++;     /* Index of last command in buffer */
  3217.             current = rlast; /* Also now the current command */
  3218.             if (current >= cm_recall) {
  3219.                 printf("Oops, command recall error\n");
  3220.             } else {
  3221.                 recall[current] = malloc((int)strlen(cmdbuf)+1);
  3222.                 if (recall[current])
  3223.                   strcpy(recall[current],cmdbuf);
  3224.             }
  3225.             }
  3226. #endif /* CK_RECALL */
  3227.             return(cmflgs = 1);
  3228.         }
  3229.             }
  3230.  
  3231.         /* Question mark */
  3232.  
  3233.             if (!comment && quoting && echof && (c == '?')) {
  3234.                 putchar(c);
  3235.                 *bp = NUL;
  3236.                 if (setatm(pp,0) < 0) {
  3237.             debug(F111,"gtword too long #3",pp,strlen(pp));
  3238.             printf("?Too long #3\n");
  3239.             return(-9);
  3240.         }
  3241.                 return(cmflgs = 3);
  3242.             }
  3243.             if (c == ESC) {        /* ESC */
  3244.         if (!comment) {
  3245.             *bp = NUL;
  3246.             if (setatm(pp,0) < 0) {
  3247.             debug(F111,"gtword too long #4",pp,strlen(pp));
  3248.             printf("?Too long #4\n");
  3249.             return(-9);
  3250.             }
  3251.             return(cmflgs = 2);
  3252.         } else {
  3253.             bleep(BP_WARN);
  3254.             continue;
  3255.         }
  3256.             }
  3257.             if (c == BS || c == RUB) {  /* Character deletion */
  3258.                 if (bp > cmdbuf) {      /* If still in buffer... */
  3259.             cmdchardel();    /* erase it. */
  3260.                     bp--;               /* point behind it, */
  3261. #ifdef COMMENT
  3262.                     if (*bp == SP) inword = 0; /* Flag if current field gone */
  3263. #else
  3264. /* fixed by Ulli Schlueter */
  3265.                     if (*bp == '{') bracelvl--; /* Adjust brace count */
  3266.                     if (*bp == '}') bracelvl++;
  3267.                     if ((*bp == SP) &&       /* Flag if current field gone */
  3268.             (*pp != '{' || bracelvl == 0))
  3269.               inword = 0;
  3270. #endif /* COMMENT */
  3271.                     *bp = NUL;          /* Erase character from buffer. */
  3272.                 } else {                /* Otherwise, */
  3273.             bleep(BP_WARN);
  3274.                     cmres();            /* and start parsing a new command. */
  3275.             *bp = *atmbuf = NUL;
  3276.                 }
  3277.                 if (pp < bp) continue;
  3278.                 else return(cmflgs = -1);
  3279.             }
  3280.             if (c == LDEL) {            /* ^U, line deletion */
  3281.                 while ((bp--) > cmdbuf) {
  3282.                     cmdchardel();
  3283.                     *bp = NUL;
  3284.                 }
  3285.                 cmres();                /* Restart the command. */
  3286.         *bp = *atmbuf = NUL;
  3287.                 inword = 0;
  3288.                 return(cmflgs = -1);
  3289.             }
  3290.             if (c == WDEL) {            /* ^W, word deletion */
  3291.                 if (bp <= cmdbuf) {     /* Beep if nothing to delete */
  3292.             bleep(BP_WARN);
  3293.                     cmres();
  3294.             *bp = *atmbuf = NUL;
  3295.                     return(cmflgs = -1);
  3296.                 }
  3297.                 bp--;
  3298.                 for ( ; (bp >= cmdbuf) && (*bp == SP) ; bp--) {
  3299.                     cmdchardel();
  3300.                     *bp = NUL;
  3301.                 }
  3302.                 for ( ; (bp >= cmdbuf) && (*bp != SP) ; bp--) {
  3303.                     cmdchardel();
  3304.                     *bp = NUL;
  3305.                 }
  3306.                 bp++;
  3307.                 inword = 0;
  3308.                 return(cmflgs = -1);
  3309.             }
  3310.             if (c == RDIS) {            /* ^R, redisplay */
  3311. #ifdef COMMENT
  3312.                 *bp = NUL;
  3313.                 printf("\n%s%s",cmprom,cmdbuf);
  3314. #else
  3315.         char *cpx; char cx;
  3316.                 *bp = NUL;
  3317.                 printf("\n%s",cmprom);
  3318.         cpx = cmdbuf;
  3319.         while (cx = *cpx++) {
  3320. #ifdef isprint
  3321.             putchar(isprint(cx) ? cx : '^');
  3322. #else
  3323.             putchar((cx >= SP && cx < DEL) ? cx : '^');
  3324. #endif /* isprint */
  3325.         }
  3326. #endif /* COMMENT */
  3327.         fflush(stdout);
  3328.                 continue;
  3329.             }
  3330. #ifdef CK_RECALL
  3331.         if (chsrc &&        /* Reading commands from keyboard? */
  3332.         (cm_recall > 0) &&    /* Saving commands? */
  3333.         (c == C_UP || c == C_UP2)) { /* Go up one */
  3334.         if (current < 0) {    /* Nowhere to go, */
  3335.             bleep(BP_WARN);
  3336.             continue;
  3337.         }    
  3338.         if (recall[current]) {
  3339.             if (!strcmp(recall[current],cmdbuf)) {
  3340.             if (current > 0) {
  3341.                 current--;              
  3342.             } else {
  3343.                 bleep(BP_WARN);
  3344.                 continue;
  3345.             }
  3346.             }
  3347.         }
  3348.         if (recall[current]) { /* We have a previous command */
  3349.             while ((bp--) > cmdbuf) { /* Erase current line */
  3350.             cmdchardel();
  3351.             *bp = NUL;
  3352.             }
  3353.             strcpy(cmdbuf,recall[current]);
  3354. #ifdef OSK
  3355.             fflush(stdout);
  3356.             write(fileno(stdout), "\r", 1);
  3357.             printf("%s%s",cmprom,cmdbuf);
  3358. #else
  3359.             printf("\r%s%s",cmprom,cmdbuf);
  3360. #endif /* OSK */
  3361.             current--;
  3362.         }
  3363.         return(cmflgs = -1);    /* Force a reparse */
  3364.         }
  3365.         if (chsrc &&        /* Reading commands from keyboard? */
  3366.         (cm_recall > 0) &&    /* Saving commands? */
  3367.         (c == C_DN)) {        /* Down one */
  3368.         if (current + 1 > rlast) { /* Already at bottom, just beep */
  3369.             bleep(BP_WARN);
  3370.             continue;
  3371.         }
  3372.         current++;        /* OK to go down */
  3373. #ifdef COMMENT
  3374.         if (recall[current])    /* It's the same as this one? */
  3375.           if (!strcmp(recall[current],cmdbuf))
  3376.             current++;
  3377. #else
  3378. /* Fix by Ulli Schlueter */
  3379.         if (recall[current]) {
  3380.             if (!strcmp(recall[current],cmdbuf)) {
  3381.             if (current + 1 > rlast) { /* At bottom, beep */
  3382.                 bleep(BP_WARN);
  3383.                 continue;
  3384.             } else
  3385.               current++;
  3386.             }
  3387.         }
  3388. #endif /* COMMENT */
  3389.         if (recall[current]) {
  3390.             while ((bp--) > cmdbuf) { /* Erase current line */
  3391.             cmdchardel();
  3392.             *bp = NUL;
  3393.             }
  3394.             strcpy(cmdbuf,recall[current]);
  3395. #ifdef OSK
  3396.             fflush(stdout);
  3397.             write(fileno(stdout), "\r", 1);
  3398.             printf("%s%s",cmprom,cmdbuf);
  3399. #else
  3400.             printf("\r%s%s",cmprom,cmdbuf);
  3401. #endif /* OSK */
  3402.             return(cmflgs = -1); /* Force reparse */
  3403.         }
  3404.         }
  3405. #endif /* CK_RECALL */
  3406.         if (c < SP && quote == 0) { /* Any other unquoted control char */
  3407.         if (!chsrc)        /* If cmd file, point past it */
  3408.           bp++;
  3409.         else
  3410.           bleep(BP_WARN);
  3411.         continue;        /* continue, don't put in buffer */
  3412.         }
  3413.         linebegin = 0;        /* Not at beginning of line */
  3414. #ifdef BEBOX
  3415.         if (echof) {
  3416.                 cmdecho((char) c, 0); /* Echo what was typed. */
  3417.                 fflush (stdout);
  3418.                 fflush(stderr);
  3419.             }
  3420. #else
  3421.             if (echof) cmdecho((char) c, 0); /* Echo what was typed. */
  3422. #endif /* BEBOX */
  3423.         } else {            /* This character was quoted. */
  3424.         int qf = 1;
  3425.         quote = 0;            /* Unset the quote flag. */
  3426.  
  3427.         /* Quote character at this level is only for SP, ?, and controls */
  3428.             /* If anything else was quoted, leave quote in, and let */
  3429.         /* the command-specific parsing routines handle it, e.g. \007 */
  3430.         if (c > 32 && c != '?' && c != RUB && chsrc != 0) {
  3431.         *bp++ = CMDQ;        /* Deposit \ if it came from tty */
  3432.         qf = 0;            /* and don't erase it from screen */
  3433.         linebegin = 0;        /* Not at beginning of line */
  3434. #ifdef BS_DIRSEP
  3435. /*
  3436.   This is a hack to handle "cd \" or "cd foo\" on OS/2 and similar systems.
  3437.   If we were called from cmdir() and the previous character was the quote
  3438.   character, i.e. backslash, and this character is the command terminator,
  3439.   then we stuff an extra backslash into the buffer without echoing, then
  3440.   we stuff the carriage return back in again, and go back and process it,
  3441.   this time with the quote flag off.
  3442. */
  3443.         } else if (cmdirflg && (c == CR || c == LF || c == SP)) {
  3444.         *bp++ = CMDQ;
  3445.         linebegin = 0;        /* Not at beginning of line */
  3446.         *bp = (c == SP ? SP : CR);
  3447.         goto CMDIRPARSE ;
  3448. #endif /* BS_DIRSEP */
  3449.         }
  3450. #ifdef BEBOX
  3451.         if (echof) {
  3452.                 cmdecho((char) c, qf);    /* Echo what was typed. */
  3453.                 fflush (stdout);
  3454.                 fflush(stderr);
  3455.             }
  3456. #else
  3457.         if (echof) cmdecho((char) c, qf); /* Now echo quoted character */
  3458. #endif /* BEBOX */
  3459.         debug(F111,"gtword quote",cmdbuf,c);
  3460.     }
  3461. #ifdef COMMENT
  3462.         if (echof) cmdecho((char) c,quote); /* Echo what was typed. */
  3463. #endif /* COMMENT */
  3464.         if (!comment) inword = 1;    /* Flag we're in a word. */
  3465.     if (quote) continue;        /* Don't deposit quote character. */
  3466.         if (c != NL) *bp++ = (char) c;    /* Deposit command character. */
  3467.     }                                   /* End of big while */
  3468.     bleep(BP_WARN);
  3469.     printf("?Command too long, maximum length: %d.\n",CMDBL);
  3470.     cmflgs = -2;
  3471.     return(-9);
  3472. }
  3473.  
  3474. /* Utility functions */
  3475.  
  3476. /* A D D B U F  -- Add the string pointed to by cp to the command buffer  */
  3477.  
  3478. static int
  3479. addbuf(cp) char *cp; {
  3480.     int len = 0;
  3481.     while ((*cp != NUL) && (bp < cmdbuf+CMDBL)) {
  3482.         *bp++ = *cp++;                  /* Copy and */
  3483.         len++;                          /* count the characters. */
  3484.     }
  3485.     *bp++ = SP;                         /* Put a space at the end */
  3486.     *bp = NUL;                          /* Terminate with a null */
  3487.     np = bp;                            /* Update the next-field pointer */
  3488.     return(len);                        /* Return the length */
  3489. }
  3490.  
  3491. /*  S E T A T M  --  Deposit a token in the atom buffer.  */
  3492. /*
  3493.   Break on space, newline, carriage return, or NUL.
  3494.   Except flag != 0 means to allow imbedded spaces in selected fields.
  3495.   Null-terminate the result.
  3496.   If the source pointer is the atom buffer itself, do nothing.
  3497.   Return length of token, and also set global "cc" to this length.
  3498.   Return -1 if token was too long.
  3499. */
  3500. static int
  3501. setatm(cp,flag) char *cp; int flag; {
  3502.     char *ap, *xp;
  3503.     int  bracelvl, n;
  3504.  
  3505.     cc = 0;                /* Character counter */
  3506.     ap = atmbuf;            /* Address of atom buffer */
  3507.  
  3508.     if ((int) strlen(cp) > ATMBL)
  3509.       return(-1);
  3510.  
  3511.     if (cp == ap) {            /* In case source is atom buffer */
  3512.     xp = atybuf;            /* make a copy */
  3513.     strcpy(xp,ap);            /* so we can copy it back, edited. */
  3514.     cp = xp;
  3515.     }
  3516.     *ap = NUL;                /* Zero the atom buffer */
  3517.     if (flag) {                /* Trim trailing blanks */
  3518.     n = strlen(cp);
  3519.     while (--n >= 0)
  3520.       if (cp[n] != SP) break;
  3521.     cp[n+1] = NUL;
  3522.     }
  3523.     while (*cp == SP) cp++;        /* Trim leading spaces */
  3524. #ifdef COMMENT
  3525. /* This one doesn't work for items like "input 20 {\13\10$ }" */
  3526.     bracelvl = (*cp == '{');        /* jrs */
  3527.     while ( /* (*cp != SP) && */ (*cp != NL) && (*cp != NUL) && (*cp != CR)) {
  3528.         if ((*cp == SP) && (flag == 0) && (bracelvl == 0)) break; /* jrs */
  3529.         *ap++ = *cp++;            /* Copy up to SP, NL, CR, or end */
  3530.         if (*cp == '{') bracelvl++;    /* jrs */
  3531.         if (*cp == '}') bracelvl--;    /* jrs */
  3532.         cc++;                /* and count */
  3533.     }
  3534. #else
  3535.     bracelvl = 0;
  3536.     while (*cp) {
  3537.         if (*cp == '{') bracelvl++;
  3538.         if (*cp == '}') bracelvl--;
  3539.     if (bracelvl < 0) bracelvl = 0;
  3540.     if (bracelvl == 0) {
  3541.         if ((*cp == SP || *cp == HT) && (flag == 0)) break;
  3542.         if (*cp == LF || *cp == CR) break;
  3543.     }
  3544.         *ap++ = *cp++;
  3545.         cc++;
  3546.     }
  3547. #endif /* COMMENT */
  3548.     *ap = NUL;                /* Terminate the string. */
  3549.     return(cc);                         /* Return length. */
  3550. }
  3551.  
  3552. /*  R D I G I T S  -- Verify that all the characters in line ARE DIGITS  */
  3553.  
  3554. int
  3555. rdigits(s) char *s; {
  3556.     while (*s) {
  3557.         if (!isdigit(*s)) return(0);
  3558.         s++;
  3559.     }
  3560.     return(1);
  3561. }
  3562.  
  3563. /* These functions attempt to hide system dependencies from the mainline */
  3564. /* code in gtword().  Ultimately they should be moved to ck?tio.c, where */
  3565. /* ? = each and every system supported by C-Kermit. */
  3566.  
  3567. static int
  3568. cmdgetc() {                /* Get a character from the tty. */
  3569.     int c;
  3570.  
  3571. #ifdef datageneral
  3572.     {
  3573.     char ch;
  3574.     c = dgncinb(0,&ch,1);        /* -1 is EOF, -2 TO,
  3575.                                          * -c is AOS/VS error */
  3576.     if (c == -2) {            /* timeout was enabled? */
  3577.         resto(channel(0));        /* reset timeouts */
  3578.         c = dgncinb(0,&ch,1);    /* retry this now! */
  3579.     }
  3580.     if (c < 0) return(-4);        /* EOF or some error */
  3581.     else c = (int) ch & 0177;    /* Get char without parity */
  3582. /*    echof = 1; */
  3583.     }
  3584. #else /* Not datageneral */
  3585. #ifdef OS2
  3586.     c = is_a_tty(0) ? coninc(0) : getchar();
  3587.     if (c < 0) return(c); /* was (-4); */
  3588. #else /* Not OS2 */
  3589.     c = getchar();            /* or from tty. */
  3590. #ifdef RTU
  3591.     if (rtu_bug) {
  3592.     c = getchar();            /* RTU doesn't discard the ^Z */
  3593.     rtu_bug = 0;
  3594.     }
  3595. #endif /* RTU */
  3596. #endif /* OS2 */
  3597. #endif /* datageneral */
  3598.     return(c);                /* Return what we got */
  3599. }
  3600.  
  3601.  
  3602. /*
  3603.   No more screen clearing.  If you wanna clear the screen, define a macro
  3604.   to do it, like "define cls write screen \27[;H\27[2J".
  3605. */
  3606. static VOID
  3607. cmdclrscn() {                /* Clear the screen */
  3608.  
  3609. #ifdef OS2
  3610.     clear();
  3611. #else /* OS2 */
  3612. #ifdef COMMENT
  3613. #ifdef aegis
  3614.     putchar(FF);
  3615. #else
  3616. #ifdef AMIGA
  3617.     putchar(FF);
  3618. #else
  3619. #ifdef OSK
  3620.     putchar(FF);
  3621. #else
  3622. #ifdef datageneral
  3623.     putchar(FF);
  3624. #endif /* datageneral */
  3625. #endif /* OSK */
  3626. #endif /* AMIGA */
  3627. #endif /* aegis */
  3628. #endif /* COMMENT */
  3629. #endif /* OS2 */
  3630. }
  3631.  
  3632. static VOID                /* What to echo at end of command */
  3633. #ifdef CK_ANSIC
  3634. cmdnewl(char c)
  3635. #else
  3636. cmdnewl(c) char c;
  3637. #endif /* CK_ANSIC */
  3638. /* cmdnewl */ {
  3639.     putchar(c);                /* c is the terminating character */
  3640.  
  3641. #ifdef WINTCP                /* what is this doing here? */
  3642.     if (c == CR) putchar(NL);
  3643. #endif /* WINTCP */
  3644.  
  3645. /*
  3646.   A.A. Chernov, who sent in changes for FreeBSD, said we also needed this
  3647.   for SVORPOSIX because "setup terminal by termios and curses does
  3648.   not convert \r to \n, so additional \n needed in newline function.  But
  3649.   it is also very likely to result in unwanted blank lines.
  3650. */
  3651.  
  3652. #ifdef OS2
  3653.     if (c == CR) putchar(NL);
  3654. #endif /* OS2 */
  3655. #ifdef aegis
  3656.     if (c == CR) putchar(NL);
  3657. #endif /* aegis */
  3658. #ifdef AMIGA
  3659.     if (c == CR) putchar(NL);
  3660. #endif /* AMIGA */
  3661. #ifdef datageneral
  3662.     if (c == CR) putchar(NL);
  3663. #endif /* datageneral */
  3664. #ifdef GEMDOS
  3665.     if (c == CR) putchar(NL);
  3666. #endif /* GEMDOS */
  3667. #ifdef STRATUS
  3668.     if (c == CR) putchar(NL);
  3669. #endif /* STRATUS */
  3670. }
  3671.  
  3672. static VOID
  3673. cmdchardel() {                /* Erase a character from the screen */
  3674.     if (!dpx) return;
  3675. #ifdef datageneral
  3676.     /* DG '\b' is EM (^y or \031) */
  3677.     if (termtype == 1)
  3678.       /* Erase a character from non-DG screen, */
  3679.       dgncoub(1,"\010 \010",3);
  3680.     else
  3681. #endif
  3682.       printf("\b \b");
  3683. #ifdef GEMDOS
  3684.     fflush(stdout);
  3685. #endif /* GEMDOS */
  3686. #ifdef BEBOX
  3687.     fflush(stdout);
  3688. #endif /* BEBOX */
  3689. }
  3690.  
  3691. static VOID
  3692. #ifdef CK_ANSIC
  3693. cmdecho(char c, int quote)
  3694. #else
  3695. cmdecho(c,quote) char c; int quote;
  3696. #endif /* CK_ANSIC */
  3697. { /* cmdecho */
  3698.     if (!dpx) return;
  3699.     /* Echo tty input character c */
  3700.     if (quote) {
  3701.     putchar(BS); putchar(SP); putchar(BS);
  3702. #ifdef isprint
  3703.     putchar( isprint(c) ? c : '^' );
  3704. #else
  3705.     putchar((c >= SP && c < DEL) ? c : '^');
  3706. #endif /* isprint */
  3707.     } else putchar(c);
  3708. #ifdef OS2
  3709.     if (quote==1 && c==CR) putchar(NL);
  3710. #endif /* OS2 */
  3711. }
  3712.  
  3713. #endif /* NOICP */
  3714.  
  3715. #ifdef NOICP
  3716. #include "ckcdeb.h"
  3717. #include "ckucmd.h"
  3718. #include "ckcasc.h"
  3719. /*** #include <ctype.h> (ckcdeb.h already includes this) ***/
  3720. #endif /* NOICP */
  3721.  
  3722. /*  X X E S C  --  Interprets backslash codes  */
  3723. /*  Returns the int value of the backslash code if it is > -1 and < 256 */
  3724. /*  and updates the string pointer to first character after backslash code. */
  3725. /*  If the argument is invalid, leaves pointer unchanged and returns -1. */
  3726.  
  3727. int
  3728. xxesc(s) char **s; {            /* Expand backslash escapes */
  3729.     int x, y, brace, radix;        /* Returns the int value */
  3730.     char hd = '9';            /* Highest digit in radix */
  3731.     char *p;
  3732.  
  3733.     p = *s;                /* pointer to beginning */
  3734.     if (!p) return(-1);            /* watch out for null pointer */
  3735.     x = *p++;                /* character at beginning */
  3736.     if (x != CMDQ) return(-1);        /* make sure it's a backslash code */
  3737.  
  3738.     x = *p;                /* it is, get the next character */
  3739.     if (x == '{') {            /* bracketed quantity? */
  3740.     p++;                /* begin past bracket */
  3741.     x = *p;
  3742.     brace = 1;
  3743.     } else brace = 0;
  3744.     switch (x) {            /* Start interpreting */
  3745.       case 'd':                /* Decimal radix indicator */
  3746.       case 'D':
  3747.     p++;                /* Just point past it and fall thru */
  3748.       case '0':                /* Starts with digit */
  3749.       case '1':
  3750.       case '2':  case '3':  case '4':  case '5':
  3751.       case '6':  case '7':  case '8':  case '9':
  3752.     radix = 10;            /* Decimal */
  3753.     hd = '9';            /* highest valid digit */
  3754.     break;
  3755.       case 'o':                /* Starts with o or O */
  3756.       case 'O':
  3757.     radix = 8;            /* Octal */
  3758.     hd = '7';            /* highest valid digit */
  3759.     p++;                /* point past radix indicator */
  3760.     break;
  3761.       case 'x':                /* Starts with x or X */
  3762.       case 'X':
  3763.     radix = 16;            /* Hexadecimal */
  3764.     p++;                /* point past radix indicator */
  3765.     break;
  3766.       default:                /* All others */
  3767. #ifdef COMMENT
  3768.     *s = p+1;            /* Treat as quote of next char */
  3769.     return(*p);
  3770. #else
  3771.     return(-1);
  3772. #endif /* COMMENT */
  3773.     }
  3774.     /* For OS/2, there are "wide" characters required for the keyboard
  3775.      * binding, i.e \644 and similar codes larger than 255 (byte).
  3776.      * For this purpose, give up checking for < 256. If someone means
  3777.      * \266 should result in \26 followed by a "6" character, he should
  3778.      * always write \{26}6 anyway.  Now, return only the lower byte of
  3779.      * the result, i.e. 10, but eat up the whole \266 sequence and
  3780.      * put the wide result 266 into a global variable.  Yes, that's not
  3781.      * the most beautiful programming style but requires the least
  3782.      * amount of changes to other routines.
  3783.      */
  3784.     if (radix <= 10) {            /* Number in radix 8 or 10 */
  3785.     for ( x = y = 0;
  3786.            (*p) && (*p >= '0') && (*p <= hd)
  3787. #ifdef OS2
  3788.                    && (y < 5) && (x*radix < KMSIZE);
  3789.               /* the maximum needed value \8196 is 4 digits long */
  3790.               /* while as octal it requires \1377, i.e. 5 digits */
  3791. #else
  3792.                    && (y < 3) && (x*radix < 256);
  3793. #endif /* OS2 */
  3794.           p++,y++) {
  3795.         x = x * radix + (int) *p - 48;
  3796.     }
  3797. #ifdef OS2
  3798.         wideresult = x;            /* Remember wide result */
  3799.         x &= 255;
  3800. #endif /* OS2 */
  3801.     if (y == 0 || x > 255) {    /* No valid digits? */
  3802.         *s = p;            /* point after it */
  3803.         return(-1);            /* return failure. */
  3804.     }
  3805.     } else if (radix == 16) {        /* Special case for hex */
  3806.     if ((x = unhex(*p++)) < 0) { *s = p - 1; return(-1); }
  3807.     if ((y = unhex(*p++)) < 0) { *s = p - 2; return(-1); }
  3808.     x = ((x << 4) & 0xF0) | (y & 0x0F);
  3809. #ifdef OS2
  3810.         wideresult = x;
  3811.         if ((y = unhex(*p)) >= 0) {
  3812.            p++;
  3813.        wideresult = ((x << 4) & 0xFF0) | (y & 0x0F);
  3814.            x = wideresult & 255;
  3815.         }
  3816. #endif /* OS2 */
  3817.     } else x = -1;
  3818.     if (brace && *p == '}' && x > -1)    /* Point past closing brace, if any */
  3819.       p++;
  3820.     *s = p;                /* Point to next char after sequence */
  3821.     return(x);                /* Return value of sequence */
  3822. }
  3823.  
  3824. int                    /* Convert hex string to int */
  3825. #ifdef CK_ANSIC
  3826. unhex(char x)
  3827. #else
  3828. unhex(x) char x;
  3829. #endif /* CK_ANSIC */
  3830. /* unhex */ {
  3831.  
  3832.     if (x >= '0' && x <= '9')        /* 0-9 is offset by hex 30 */
  3833.       return(x - 0x30);
  3834.     else if (x >= 'A' && x <= 'F')    /* A-F offset by hex 37 */
  3835.       return(x - 0x37);
  3836.     else if (x >= 'a' && x <= 'f')    /* a-f offset by hex 57 */
  3837.       return(x - 0x57);            /* (obviously ASCII dependent) */
  3838.     else return(-1);
  3839. }
  3840.  
  3841. /* See if argument string is numeric */
  3842. /* Returns 1 if OK, zero if not OK */
  3843. /* If OK, string should be acceptable to atoi() */
  3844. /* Allows leading space, sign */
  3845.  
  3846. int
  3847. chknum(s) char *s; {            /* Check Numeric String */
  3848.     int x = 0;                /* Flag for past leading space */
  3849.     int y = 0;                /* Flag for digit seen */
  3850.     char c;
  3851.     debug(F110,"chknum",s,0);
  3852.     while (c = *s++) {            /* For each character in the string */
  3853.     switch (c) {
  3854.       case SP:            /* Allow leading spaces */
  3855.       case HT:
  3856.         if (x == 0) continue;
  3857.         else return(0);
  3858.       case '+':            /* Allow leading sign */
  3859.       case '-':
  3860.         if (x == 0) x = 1;
  3861.         else return(0);
  3862.         break;
  3863.       default:            /* After that, only decimal digits */
  3864.         if (c >= '0' && c <= '9') {
  3865.         x = y = 1;
  3866.         continue;
  3867.         } else return(0);
  3868.     }
  3869.     }
  3870.     return(y);
  3871. }
  3872.  
  3873. /*  L O W E R  --  Lowercase a string  */
  3874.  
  3875. int
  3876. lower(s) char *s; {
  3877.     int n = 0;
  3878.     while (*s) {
  3879.         if (isupper(*s)) *s = (char) tolower(*s);
  3880.         s++, n++;
  3881.     }
  3882.     return(n);
  3883. }
  3884.  
  3885. /*  L O O K U P  --  Lookup the string in the given array of strings  */
  3886.  
  3887. /*
  3888.  Call this way:  v = lookup(table,word,n,&x);
  3889.  
  3890.    table - a 'struct keytab' table.
  3891.    word  - the target string to look up in the table.
  3892.    n     - the number of elements in the table.
  3893.    x     - address of an integer for returning the table array index,
  3894.            or NULL if you don't need a table index.
  3895.  
  3896.  The keyword table must be arranged in ascending alphabetical order.
  3897.  Alphabetic case doesn't matter.
  3898.  
  3899.  Returns the keyword's associated value (zero or greater) if found,
  3900.  with the variable x set to the keyword-table index, or:
  3901.  
  3902.   -3 if nothing to look up (target was null),
  3903.   -2 if ambiguous,
  3904.   -1 if not found.
  3905.  
  3906.  A match is successful if the target matches a keyword exactly, or if
  3907.  the target is a prefix of exactly one keyword.  It is ambiguous if the
  3908.  target matches two or more keywords from the table.
  3909. */
  3910. int
  3911. lookup(table,cmd,n,x) char *cmd; struct keytab table[]; int n, *x; {
  3912.  
  3913.     int i, v, len, cmdlen;
  3914.  
  3915. /* Get length of search object, if it's null return code -3. */
  3916.  
  3917.     if (!cmd)
  3918.       return(-3);
  3919.     if (((cmdlen = (int) strlen(cmd)) == 0) || (n < 1))
  3920.       return(-3);
  3921.  
  3922. /* Not null, look it up */
  3923.  
  3924.     for (i = 0; i < n-1; i++) {
  3925.     len = strlen(table[i].kwd);
  3926.         if ((len == cmdlen && !xxstrcmp(table[i].kwd,cmd,len)) ||
  3927.         ((v = !xxstrcmp(table[i].kwd,cmd,cmdlen)) &&
  3928.          xxstrcmp(table[i+1].kwd,cmd,cmdlen))) {
  3929.         if (x) *x = i;
  3930.         return(table[i].kwval);
  3931.     }
  3932.         if (v) return(-2);
  3933.     }
  3934.  
  3935. /* Last (or only) element */
  3936.  
  3937.     if (!xxstrcmp(table[n-1].kwd,cmd,cmdlen)) {
  3938.         if (x) *x = n-1;
  3939.         return(table[n-1].kwval);
  3940.     } else return(-1);
  3941. }
  3942.  
  3943. /* Like lookup, but requires a full (but case-independent) match */
  3944.  
  3945. int
  3946. xlookup(table,cmd,n,x) struct keytab table[]; char *cmd; int n, *x; {
  3947.     int i, cmdlen;
  3948.  
  3949.     if (!cmd)
  3950.       return(-3);
  3951.     if (((cmdlen = (int) strlen(cmd)) == 0) || (n < 1))
  3952.       return(-3);
  3953.  
  3954.     for (i = 0; i < n; i++) {
  3955.     if (((int)strlen(table[i].kwd) == cmdlen) &&
  3956.         (!xxstrcmp(table[i].kwd,cmd,cmdlen))) {
  3957.         if (x) *x = i;
  3958.         return(table[i].kwval);
  3959.     }
  3960.     }
  3961.     return(-1);
  3962. }
  3963.  
  3964. #ifndef NOICP
  3965. int
  3966. cmdsquo(x) int x; {
  3967.     quoting = x;
  3968.     return(1);
  3969. }
  3970.  
  3971. int
  3972. cmdgquo() {
  3973.     return(quoting);
  3974. }
  3975. #endif /* NOICP */
  3976.