src/token.c

   1 #include "casl2.h"
   2 #include "assemble.h"
   3
   4 /* 「,」区切りの文字列から、オペランドのトークンを取得 */
   5 OPD *opdtok(const char *str)
   6 {
   7     OPD *opd = malloc_chk(sizeof(OPD), "opd");
   8     char *p, *q, *r, *sepp;     /* pは文字列全体の先頭位置、qはトークンの先頭位置、rは文字の位置 */
   9     int sepc = ',', rcnt = 0;
  10     bool quoting = false;
  11
  12     opd->opdc = 0;
  13     if(str == NULL) {
  14         return opd;
  15     }
  16     p = q = r = strdup_chk(str, "opdtopk.p");
  17     do {
  18         /* オペランド数が多すぎる場合はエラー */
  19         if(opd->opdc >= OPDSIZE) {
  20             setcerr(117, NULL);    /* operand is too many */
  21             break;
  22         }
  23         /* 先頭が「=」の場合 */
  24         if(*r == '=') {
  25             r++;
  26         }
  27         /* 「'」の場合 */
  28         if(*r == '\'') {
  29             /* 「''」以外の場合はquote値を反転 */
  30             if(*(r+1) != '\'' && !(q < r && *(r-1) == '\'')) {
  31                 quoting = !quoting;
  32             }
  33             /* 文字列の長さを数える。「'」の場合は数えない */
  34             if(*(r+1) != '\'') {
  35                 rcnt++;
  36             }
  37         }
  38         if(quoting == true) {
  39             /* 閉じ「'」がないまま文字列が終了した場合 */
  40             if(*r == '\0') {
  41                 setcerr(123, str);    /* unclosed quote */
  42                 break;
  43             }
  44             r++;
  45         } else {
  46             sepp = r + strcspn(r, ", ");
  47             sepc = *sepp;
  48             *sepp = '\0';
  49             if(*q == '\0') {
  50                 setcerr(121, NULL);    /* cannot get operand token */
  51                 break;
  52             }
  53             if(strlen(q) - rcnt > OPDSIZE) {
  54                 setcerr(118, NULL);    /* operand length is too long */
  55                 break;
  56             }
  57             opd->opdv[(++opd->opdc)-1] = strdup_chk(q, "opd.opdv[]");
  58             q = r = sepp + 1;
  59             rcnt = 0;
  60         }
  61     } while(sepc == ',');
  62     free_chk(p, "opdtok.p");
  63     return opd;
  64 }
  65
  66 /* 空白またはタブで区切られた1行から、トークンを取得 */
  67 CMDLINE *linetok(const char *line)
  68 {
  69     char *tokens, *p, *sepp;
  70     bool quoting = false;
  71     CMDLINE *cmdl = malloc_chk(sizeof(CMDLINE), "cmdl");
  72
  73     if(line == NULL || strlen(line) == 0) {
  74         return NULL;
  75     }
  76     tokens = strdup_chk(line, "tokens");
  77     /* コメントを削除 */
  78     for(p = tokens; *p != '\0'; p++) {
  79         /* 「'」で囲まれた文字列の処理。「''」は無視 */
  80         if(*p == '\'' && *(p+1) != '\'' && !(p > tokens && *(p-1) == '\'')) {
  81             quoting = !quoting;
  82         } else if(quoting == false && *p == ';') {
  83             *p = '\0';
  84             break;
  85         }
  86     }
  87     if(*tokens == '\0') {
  88         return NULL;
  89     }
  90     p = tokens;
  91     /* 行の先頭が空白またはタブの場合、ラベルは空 */
  92     if((sepp = p + strcspn(p, " \t\n")) == p){
  93         cmdl->label = NULL;
  94     } else {        /* ラベルを取得 */
  95         *sepp = '\0';
  96         /* 文字列が長すぎる場合はエラー */
  97         if(strlen(p) > LABELSIZE) {
  98             setcerr(104, p);    /* label length is too long */
  99         }
 100         cmdl->label = strdup_chk(p, "cmdl.label");
 101         p = sepp + 1;
 102     }
 103     while(*p == ' ' || *p == '\t') {
 104         p++;
 105     }
 106     /* 命令がない場合、終了 */
 107     if(*p == '\n' || *p == '\0') {
 108         /* ラベルが定義されていて命令がない場合はエラー */
 109         if(cmdl->label != NULL) {
 110             setcerr(105, NULL);    /* no command in the line */
 111         }
 112         return NULL;
 113     }
 114     /* 命令を取得 */
 115     sepp = p + strcspn(p, " \t\n");
 116     *sepp = '\0';
 117     cmdl->cmd = strdup_chk(p, "cmdl.cmd");
 118     p = sepp + 1;
 119     while(*p == ' ' || *p == '\t') {
 120         p++;
 121     }
 122     /* オペランドを取得 */
 123     cmdl->opd = malloc_chk(sizeof(OPD), "cmdl.opd");
 124     /* 改行かタブまでの文字列を取得。
 125        「'」で囲まれた文字列に含まれる場合があるため、空白は無視 */
 126     if((sepp = p + strcspn(p, "\t\n")) > p) {
 127         *sepp = '\0';
 128         cmdl->opd = opdtok(p);
 129     } else {
 130         cmdl->opd->opdc = 0;
 131     }
 132     return cmdl;
 133 }