src/token.c

   1 #include "casl2.h"
   2 #include "assemble.h"
   3
   4 /* 「,」区切りの文字列から、オペランドのトークンを取得 */
   5 OPD *opdtok(const char *str)
   6 {
   7     OPD *opd = malloc(sizeof(OPD));
   8     char *p, *q, *sepp;
   9     int sepc = ',', len;
  10     bool quoting = false;
  11
  12     opd->opdc = 0;
  13     if(str == NULL) {
  14         return opd;
  15     }
  16     p = q = strdup(str);
  17     do {
  18         len = 0;
  19         /* オペランド数が多すぎる場合はエラー */
  20         if(opd->opdc >= OPDSIZE) {
  21             setcerr(117, str);    /* operand is too many */
  22             break;
  23         }
  24         /* 先頭が「=」の場合の処理 */
  25         if(*q == '=') {
  26             q++;
  27         }
  28         /* 「'」の場合 */
  29         if(*q == '\'') {
  30             /* 「''」以外の場合はquote値を反転 */
  31             if(*(q+1) != '\'' && !(p < q && *(q-1) == '\'')) {
  32                 quoting = !quoting;
  33             }
  34             /* 「'」の分、文字列の長さを小さくする */
  35             if(*(q+1) != '\'') {
  36                 len--;
  37             }
  38         }
  39         if(quoting == true) {
  40             /* 閉じ「'」がないまま文字列が終了した場合 */
  41             if(*q == '\0') {
  42                 setcerr(123, str);    /* unclosed quote */
  43                 break;
  44             }
  45             q++;
  46         } else {
  47             sepp = q + strcspn(q, ", ");
  48             sepc = *sepp;
  49             *sepp = '\0';
  50             if(*p == '\0') {
  51                 setcerr(121, NULL);    /* cannot get operand token */
  52                 break;
  53             }
  54             len += strlen(p);
  55             if(len > OPDSIZE) {
  56                 setcerr(118, NULL);    /* operand length is too long */
  57                 break;
  58             }
  59             opd->opdv[(++opd->opdc)-1] = strdup(p);
  60             p = q = sepp + 1;
  61         }
  62     } while(sepc == ',');
  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(sizeof(CMDLINE));
  72
  73     if(line == NULL || strlen(line) == 0) {
  74         return NULL;
  75     }
  76     tokens = strdup(line);
  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(p);
 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(p);
 118     p = sepp + 1;
 119     while(*p == ' ' || *p == '\t') {
 120         p++;
 121     }
 122     /* オペランドを取得 */
 123     cmdl->opd = malloc(sizeof(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 }