Merge branch 'cmd-casl' into casl2-cmd

diff --combined src/token.c
index b846c69,2757a7b..684a72d
--- 1/src/token.c
--- 2/src/token.c
+++ b/src/token.c
@@@ -6,7 -6,7 +6,7 @@@ OPD *opdtok(const char *str
  {
      OPD *opd = malloc(sizeof(OPD));
      char *p, *q, *sepp;
-     int sepc = ',', qcnt = 0;
+     int sepc = ',', len = 0;
      bool quoting = false;
  
      opd->opdc = 0;
@@@ -32,7 -32,7 +32,7 @@@
              }
              /* 「'」の分、文字列の長さを小さくする */
              if(*(q+1) != '\'') {
-                 qcnt++;
+                 len--;
              }
          }
          if(quoting == true) {
@@@ -50,13 -50,13 +50,13 @@@
                  setcerr(121, NULL);    /* cannot get operand token */
                  break;
              }
-             if(strlen(p) - qcnt > OPDSIZE) {
+             len += strlen(p);
+             if(len > OPDSIZE) {
                  setcerr(118, NULL);    /* operand length is too long */
                  break;
              }
              opd->opdv[(++opd->opdc)-1] = strdup(p);
              p = q = sepp + 1;
-             qcnt = 0;
          }
      } while(sepc == ',');
      return opd;
@@@ -65,28 -65,27 +65,28 @@@
  /* 空白またはタブで区切られた1行から、トークンを取得 */
  CMDLINE *linetok(const char *line)
  {
 -    char *tokens, *p, *sepp;
 -    bool quoting = false;
 +    char *tokens, *p, *q, *sepp;
 +    bool quote = false;
      CMDLINE *cmdl = malloc(sizeof(CMDLINE));
  
      if(line == NULL || strlen(line) == 0) {
          return NULL;
      }
 -    tokens = strdup(line);
 -    /* コメントを削除 */
 -    for(p = tokens; *p != '\0'; p++) {
 -        /* 「'」で囲まれた文字列の処理。「''」は無視 */
 -        if(*p == '\'' && *(p+1) != '\'' && !(p > tokens && *(p-1) == '\'')) {
 -            quoting = !quoting;
 -        } else if(quoting == false && *p == ';') {
 +    tokens = p = strdup(line);
 +    /* 空行の場合、NULLを返す */
 +    if(*p == '\0') {
 +        return NULL;
 +    }
 +    /* ' 'で囲まれていない;以降の文字列は、コメントとして削除 */
 +    while(p != NULL) {
 +        if((q = strchr(tokens, '\'')) != NULL) {
 +            quote = !quote;
 +            p = q;
 +        }
 +        if(quote == false && (p = strchr(p, ';')) != NULL) {
              *p = '\0';
 -            break;
          }
      }
 -    if(*tokens == '\0') {
 -        return NULL;
 -    }
      p = tokens;
      /* 行の先頭が空白またはタブの場合、ラベルは空 */
      if((sepp = p + strcspn(p, " \t\n")) == p){