[BACK]Return to interpreter.c CVS log [TXT][DIR] Up to [local] / src / usr.bin / mg

Diff for /src/usr.bin/mg/interpreter.c between version 1.11 and 1.12

version 1.11, 2021/03/21 12:56:16 version 1.12, 2021/03/22 09:26:23
Line 64 
Line 64 
 static int       parseexp(char *);  static int       parseexp(char *);
 static void      clearexp(void);  static void      clearexp(void);
   
   TAILQ_HEAD(exphead, expentry) ehead;
 struct expentry {  struct expentry {
         SLIST_ENTRY(expentry) eentry;          TAILQ_ENTRY(expentry) eentry;
         char    *exp;           /* The string found between paraenthesis. */          char    *exp;           /* The string found between paraenthesis. */
         int      par1;          /* Parenthesis at start of string (=1     */          int      par1;          /* Parenthesis at start of string (=1     */
         int      par2;          /* Parenthesis at end of string   )=2     */          int      par2;          /* Parenthesis at end of string   )=2     */
         int      expctr;        /* An incremental counter:+1 for each exp */          int      expctr;        /* An incremental counter:+1 for each exp */
         int      blkid;         /* Which block are we in?                 */          int      blkid;         /* Which block are we in?                 */
 };  };
 SLIST_HEAD(elisthead, expentry) exphead = SLIST_HEAD_INITIALIZER(exphead);  
   
 /*  /*
  * Structure for variables during buffer evaluation.   * Structure for variables during buffer evaluation.
Line 86 
Line 86 
 SLIST_HEAD(vlisthead, varentry) varhead = SLIST_HEAD_INITIALIZER(varhead);  SLIST_HEAD(vlisthead, varentry) varhead = SLIST_HEAD_INITIALIZER(varhead);
   
 /*  /*
    * Structure for scheme keywords.
    */
   #define NUMSCHKEYS      4
   #define MAXLENSCHKEYS   17      /* 17 = longest keyword (16)  + 1 */
   
   char scharkey[NUMSCHKEYS][MAXLENSCHKEYS] =
           {
                   "define",
                   "list",
                   "if",
                   "lambda"
           };
   
   
   /*
  * Line has a '(' as the first non-white char.   * Line has a '(' as the first non-white char.
  * Do some very basic parsing of line.   * Do some very basic parsing of line.
  * Multi-line not supported at the moment, To do.   * Multi-line not supported at the moment, To do.
Line 93 
Line 108 
 int  int
 foundparen(char *funstr)  foundparen(char *funstr)
 {  {
         struct expentry *e1 = NULL;          struct expentry *e1 = NULL, *e2 = NULL;
         char            *p, *valp, *endp = NULL, *regs;          char            *p, *valp, *endp = NULL, *regs;
         char             expbuf[BUFSIZE], tmpbuf[BUFSIZE];          char             expbuf[BUFSIZE], tmpbuf[BUFSIZE];
         int              ret, pctr, fndstart, expctr, blkid, fndchr, fndend;          int              ret, pctr, fndstart, expctr, blkid, fndchr, fndend;
Line 127 
Line 142 
          * Not really live code at the moment. Just part of the process of           * Not really live code at the moment. Just part of the process of
          * working out what needs to be done.           * working out what needs to be done.
          */           */
           TAILQ_INIT(&ehead);
   
         while (*p != '\0') {          while (*p != '\0') {
                 if (*p == '(') {                  if (*p == '(') {
                         if (fndstart == 1) {                          if (fndstart == 1) {
Line 145 
Line 162 
                                 cleanup();                                  cleanup();
                                 return (dobeep_msg("malloc Error"));                                  return (dobeep_msg("malloc Error"));
                         }                          }
                         SLIST_INSERT_HEAD(&exphead, e1, eentry);                          TAILQ_INSERT_HEAD(&ehead, e1, eentry);
                         e1->exp = NULL;                          e1->exp = NULL;
                         e1->expctr = ++expctr;                          e1->expctr = ++expctr;
                         e1->blkid = blkid;                          e1->blkid = blkid;
Line 188 
Line 205 
                         *p = ' ';                          *p = ' ';
                         fndend = 1;                          fndend = 1;
                         endp = p;                          endp = p;
                 } else if (*p == '\t') /* need to check not between "" */                  } else if (*p == '\t')
                         if (inquote == 0)                          if (inquote == 0)
                                 *p = ' ';                                  *p = ' ';
                 if (pctr == 0)                  if (pctr == 0)
Line 206 
Line 223 
          * iterate in-to-out, evaluating as we go. Eventually.           * iterate in-to-out, evaluating as we go. Eventually.
          */           */
         expbuf[0] = tmpbuf[0] = '\0';          expbuf[0] = tmpbuf[0] = '\0';
         SLIST_FOREACH(e1, &exphead, eentry) {          TAILQ_FOREACH_SAFE(e1, &ehead, eentry, e2) {
                 if (strlcpy(tmpbuf, expbuf, sizeof(tmpbuf)) >= sizeof(tmpbuf))                  if (strlcpy(tmpbuf, expbuf, sizeof(tmpbuf)) >= sizeof(tmpbuf))
                         return (dobeep_msg("strlcpy error"));                          return (dobeep_msg("strlcpy error"));
                 expbuf[0] = '\0';                  expbuf[0] = '\0';
Line 248 
Line 265 
         if (doregex(regs, funstr))          if (doregex(regs, funstr))
                 return(foundvar(funstr));                  return(foundvar(funstr));
   
           /* Does the line have a variable 'define' like: */
           /* (define i (function-name j)) */
           regs = "^define[ ]+[A-Za-z-]+[ ]+[A-Za-z-]+[ ]+.*$";
           if (doregex(regs, funstr))
                   return(foundvar(funstr));
   
         /* Does the line have a incorrect variable 'define' like: */          /* Does the line have a incorrect variable 'define' like: */
         /* (define i y z) */          /* (define i y z) */
         regs = "^define[ ]+[A-Za-z-]+[ ]+.*[ ]+.*$";          regs = "^define[ ]+[A-Za-z-]+[ ]+.*[ ]+.*$";
Line 517 
Line 540 
 {  {
         struct expentry *e1 = NULL;          struct expentry *e1 = NULL;
   
         while (!SLIST_EMPTY(&exphead)) {          while (!TAILQ_EMPTY(&ehead)) {
                 e1 = SLIST_FIRST(&exphead);                  e1 = TAILQ_FIRST(&ehead);
                 SLIST_REMOVE_HEAD(&exphead, eentry);                  TAILQ_REMOVE(&ehead, e1, eentry);
                 free(e1->exp);                  free(e1->exp);
                 free(e1);                  free(e1);
         }          }
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12