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 = ',', qcnt = 0;
  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         /* オペランド数が多すぎる場合はエラー */
  19         if(opd->opdc >= OPDSIZE) {
  20             setcerr(117, str);    /* operand is too many */
  21             break;
  22         }
  23         /* 先頭が「=」の場合の処理 */
  24         if(*q == '=') {
  25             q++;
  26         }
  27         /* 「'」の場合 */
  28         if(*q == '\'') {
  29             /* 「''」以外の場合はquote値を反転 */
  30             if(*(q+1) != '\'' && !(p < q && *(q-1) == '\'')) {
  31                 quoting = !quoting;
  32             }
  33             /* 「'」の分、文字列の長さを小さくする */
  34             if(*(q+1) != '\'') {
  35                 qcnt++;
  36             }
  37         }
  38         if(quoting == true) {
  39             /* 閉じ「'」がないまま文字列が終了した場合 */
  40             if(*q == '\0') {
  41                 setcerr(123, str);    /* unclosed quote */
  42                 break;
  43             }
  44             q++;
  45         } else {
  46             sepp = q + strcspn(q, ", ");
  47             sepc = *sepp;
  48             *sepp = '\0';
  49             if(*p == '\0') {
  50                 setcerr(121, NULL);    /* cannot get operand token */
  51                 break;
  52             }
  53             if(strlen(p) - qcnt > OPDSIZE) {
  54                 setcerr(118, NULL);    /* operand length is too long */
  55                 break;
  56             }
  57             opd->opdv[(++opd->opdc)-1] = strdup(p);
  58             p = q = sepp + 1;
  59             qcnt = 0;
  60         }
  61     } while(sepc == ',');
  62     return opd;
  63 }
  64
  65 /* 空白またはタブで区切られた1行から、トークンを取得 */
  66 CMDLINE *linetok(const char *line)
  67 {
  68     char *tokens, *p, *q, *sepp;
  69     bool quote = false;
  70     CMDLINE *cmdl = malloc(sizeof(CMDLINE));
  71
  72     if(line == NULL || strlen(line) == 0) {
  73         return NULL;
  74     }
  75     tokens = p = strdup(line);
  76     /* 空行の場合、NULLを返す */
  77     if(*p == '\0') {
  78         return NULL;
  79     }
  80     /* ' 'で囲まれていない;以降の文字列は、コメントとして削除 */
  81     while(p != NULL) {
  82         if((q = strchr(tokens, '\'')) != NULL) {
  83             quote = !quote;
  84             p = q;
  85         }
  86         if(quote == false && (p = strchr(p, ';')) != NULL) {
  87             *p = '\0';
  88         }
  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 }