OPD *opdtok(const char *str)
{
OPD *opd = malloc_chk(sizeof(OPD), "opd");
char *p, *q, *r, *sepp; /* pは文字列全体の先頭位置、qはトークンの先頭位置、rは文字の位置 */
int sepc = ',', rcnt = 0;
bool quoting = false;
opd->opdc = 0;
if(str == NULL) {
return opd;
}
p = q = r = strdup_chk(str, "opdtok.p");
do {
/* オペランド数が多すぎる場合はエラー */
if(opd->opdc >= OPDSIZE) {
setcerr(117, ""); /* operand is too many */
break;
}
/* 先頭が等号（=）の場合 */
if(*r == '=') {
r++;
}
/* 「'」の場合 */
if(*r == '\'') {
/* 「''」以外の場合はquote値を反転 */
if(*(r+1) != '\'' && !(q < r && *(r-1) == '\'')) {
quoting = !quoting;
}
/* 文字列の長さを数える。「'」の場合は数えない */
if(*(r+1) != '\'') {
rcnt++;
}
}
if(quoting == true) {
/* 閉じ「'」がないまま文字列が終了した場合 */
if(*r == '\0') {
setcerr(123, str); /* unclosed quote */
break;
}
r++;
} else {
sepp = r + strcspn(r, ", ");
sepc = *sepp;
*sepp = '\0';
if(*q == '\0') {
setcerr(121, ""); /* cannot get operand token */
break;
}
if(strlen(q) - rcnt > OPDSIZE) {
setcerr(118, ""); /* operand length too long */
break;
}
opd->opdv[(++opd->opdc)-1] = strdup_chk(q, "opd.opdv[]");
q = r = sepp + 1;
rcnt = 0;
}
} while(sepc == ',');
FREE(p);
return opd;
}
char *strrev(const char *s)
{
char *t = strdup_chk(s, "strrev.t");
int l = strlen(t);
for(int i = 0; i < l-1-i; i++) {
char tmp = t[i];
t[i] = t[l-1-i];
t[l-1-i] = tmp;
}
return t;
}
char *strndup_chk(const char *s, size_t len, const char *tag)
{
assert(s != NULL);
char *t = NULL;
if(len < strlen(s)) {
t = malloc_chk(len + 1, tag);
strncpy(t, s, len);
t[len] = '\0';
} else {
t = strdup_chk(s, tag);
}
return t;
}
CMDLINE *linetok(const char *line)
{
char *tokens, *p, *sepp;
bool quoting = false;
CMDLINE *cmdl = NULL;
if(*line == '\0') {
return NULL;
}
tokens = strdup_chk(line, "tokens");
/* コメントを削除 */
for(p = tokens; *p != '\0'; p++) {
/* 「'」で囲まれた文字列の処理。「''」は無視 */
if(*p == '\'' && *(p+1) != '\'' && !(p > tokens && *(p-1) == '\'')) {
quoting = !quoting;
} else if(quoting == false && *p == ';') {
*p = '\0';
break;
}
}
if(*tokens != '\n' && *tokens != '\0') {
p = tokens;
cmdl = malloc_chk(sizeof(CMDLINE), "cmdl");
cmdl->label = malloc_chk(LABELSIZE + 1, "cmdl.label");
/* ラベルの取得。行の先頭が空白またはタブの場合、ラベルは空 */
if((sepp = p + strcspn(p, " \t\n")) == p){
*(cmdl->label) = '\0';
} else { /* ラベルを取得 */
*sepp = '\0';
/* 文字列が長すぎる場合はエラー */
if(strlen(p) > LABELSIZE) {
setcerr(104, p); /* label length is too long */
} else {
strcpy(cmdl->label, p);
}
p = sepp + 1;
}
/* ラベルと命令の間の空白をスキップ */
while(*p == ' ' || *p == '\t') {
p++;
}
/* 命令とオペランドの取得 */
if(*p == '\n' || *p == '\0') { /* 命令がない場合は、終了 */
if(*(cmdl->label) != '\0') { /* ラベルが定義されていて命令がない場合はエラー */
setcerr(105, ""); /* no command in the line */
}
FREE(cmdl->label);
FREE(cmdl);
} else {
/* 命令の取得 */
sepp = p + strcspn(p, " \t\n");
*sepp = '\0';
cmdl->cmd = strdup_chk(p, "cmdl.cmd");
p = sepp + 1;
/* 命令とオペランドの間の空白をスキップ */
while(*p == ' ' || *p == '\t') {
p++;
}
/* 改行かタブまでの文字列を取得 */
/* 「'」で囲まれた文字列に含まれる場合があるため、空白は無視 */
if((sepp = p + strcspn(p, "\t\n")) > p) {
*sepp = '\0';
cmdl->opd = opdtok(p);
} else {
cmdl->opd = malloc_chk(sizeof(OPD), "cmdl.opd");
cmdl->opd->opdc = 0;
}
}
}
FREE(tokens);
return cmdl;
}
