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, *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_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(*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_chk(p, "opd.opdv[]");
  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, *sepp;
  69     bool quoting = false;
  70     CMDLINE *cmdl = malloc_chk(sizeof(CMDLINE), "cmdl");
  71
  72     if(line == NULL || strlen(line) == 0) {
  73         return NULL;
  74     }
  75     tokens = strdup_chk(line, "tokens");
  76     /* コメントを削除 */
  77     for(p = tokens; *p != '\0'; p++) {
  78         /* 「'」で囲まれた文字列の処理。「''」は無視 */
  79         if(*p == '\'' && *(p+1) != '\'' && !(p > tokens && *(p-1) == '\'')) {
  80             quoting = !quoting;
  81         } else if(quoting == false && *p == ';') {
  82             *p = '\0';
  83             break;
  84         }
  85     }
  86     if(*tokens == '\0') {
  87         return NULL;
  88     }
  89     p = tokens;
  90     /* 行の先頭が空白またはタブの場合、ラベルは空 */
  91     if((sepp = p + strcspn(p, " \t\n")) == p){
  92         cmdl->label = NULL;
  93     } else {        /* ラベルを取得 */
  94         *sepp = '\0';
  95         /* 文字列が長すぎる場合はエラー */
  96         if(strlen(p) > LABELSIZE) {
  97             setcerr(104, p);    /* label length is too long */
  98         }
  99         cmdl->label = strdup_chk(p, "cmdl.label");
 100         p = sepp + 1;
 101     }
 102     while(*p == ' ' || *p == '\t') {
 103         p++;
 104     }
 105     /* 命令がない場合、終了 */
 106     if(*p == '\n' || *p == '\0') {
 107         /* ラベルが定義されていて命令がない場合はエラー */
 108         if(cmdl->label != NULL) {
 109             setcerr(105, NULL);    /* no command in the line */
 110         }
 111         return NULL;
 112     }
 113     /* 命令を取得 */
 114     sepp = p + strcspn(p, " \t\n");
 115     *sepp = '\0';
 116     cmdl->cmd = strdup_chk(p, "cmdl.cmd");
 117     p = sepp + 1;
 118     while(*p == ' ' || *p == '\t') {
 119         p++;
 120     }
 121     /* オペランドを取得 */
 122     cmdl->opd = malloc_chk(sizeof(OPD), "cmdl.opd");
 123     /* 改行かタブまでの文字列を取得。
 124        「'」で囲まれた文字列に含まれる場合があるため、空白は無視 */
 125     if((sepp = p + strcspn(p, "\t\n")) > p) {
 126         *sepp = '\0';
 127         cmdl->opd = opdtok(p);
 128     } else {
 129         cmdl->opd->opdc = 0;
 130     }
 131     return cmdl;
 132 }