X-Git-Url: http://j8takagi.net/cgi-bin/gitweb.cgi?p=YACASL2.git;a=blobdiff_plain;f=src%2Fcasl2.c;h=8ae34959ffd3cc06a9acdd84a17a56aad7e96a33;hp=1b438e5b406d0bcef02bc837fcadfac5579ee71e;hb=bb9d41081432d335dcb0b3ad8c9d7dd9c6790b6f;hpb=a901ac636091cc9d044a78525064b699ef7a2760 diff --git a/src/casl2.c b/src/casl2.c index 1b438e5..8ae3495 100644 --- a/src/casl2.c +++ b/src/casl2.c @@ -4,6 +4,7 @@ #define _GNU_SOURCE #include +/* casl2コマンドのオプション */ static struct option longopts[] = { {"source", no_argument, NULL, 's'}, {"label", no_argument, NULL, 'l'}, @@ -22,7 +23,9 @@ static struct option longopts[] = { {0, 0, 0, 0}, }; +/* アセンブルモード: src, label, onlylabel, asdetail, onlyassemble */ ASMODE asmode = {false, false, false, false, false}; +/* 実行モード: trace, logical, dump */ EXECMODE execmode = {false, false, false}; /* エラー番号とエラーメッセージ */ @@ -49,8 +52,9 @@ CERRARRAY cerr[] = { { 120, "GR0 in operand x" }, { 121, "cannot get operand token" }, { 122, "cannot create hash table" }, - { 123, "illegal string" }, + { 123, "unclosed quote" }, { 124, "more than one character in literal" }, + { 125, "not GR in operand x" }, { 201, "execute - out of COMET II memory" }, { 202, "SVC input - out of Input memory" }, { 203, "SVC output - out of COMET II memory" }, @@ -84,7 +88,7 @@ const char *objfile_name(const char *str) } } -/* casl2コマンド */ +/* casl2コマンドのメイン */ int main(int argc, char *argv[]) { int opt, i; @@ -98,38 +102,38 @@ int main(int argc, char *argv[]) while((opt = getopt_long(argc, argv, "tTdslLao::O::AM:C:h", longopts, NULL)) != -1) { switch(opt) { case 's': - (&asmode)->srcmode = true; + (&asmode)->src = true; break; case 'l': - (&asmode)->labelmode = true; + (&asmode)->label = true; break; case 'L': - (&asmode)->labelmode = true; - (&asmode)->onlylabelmode = true; + (&asmode)->label = true; + (&asmode)->onlylabel = true; break; case 'a': - (&asmode)->asdetailmode = true; + (&asmode)->asdetail = true; break; case 'A': - (&asmode)->asdetailmode = true; - (&asmode)->onlyassemblemode = true; + (&asmode)->asdetail = true; + (&asmode)->onlyassemble = true; break; case 'o': objfile = strdup(objfile_name(optarg)); break; case 'O': - (&asmode)->onlyassemblemode = true; + (&asmode)->onlyassemble = true; objfile = strdup(objfile_name(optarg)); break; case 't': - (&execmode)->tracemode = true; + (&execmode)->trace = true; break; case 'T': - (&execmode)->tracemode = true; - (&execmode)->logicalmode = true; + (&execmode)->trace = true; + (&execmode)->logical = true; break; case 'd': - (&execmode)->dumpmode = true; + (&execmode)->dump = true; break; case 'M': memsize = atoi(optarg); @@ -161,9 +165,9 @@ int main(int argc, char *argv[]) } else if(pass == SECOND) { ptr = beginptr[i]; } - if((&execmode)->tracemode == true || (&execmode)->dumpmode == true || - (&asmode)->srcmode == true || (&asmode)->labelmode == true || - (&asmode)->asdetailmode == true) + if((&execmode)->trace == true || (&execmode)->dump == true || + (&asmode)->src == true || (&asmode)->label == true || + (&asmode)->asdetail == true) { fprintf(stdout, "\nAssemble %s (%d)\n", argv[i], pass); } @@ -175,10 +179,10 @@ int main(int argc, char *argv[]) exit(-1); } } - if(pass == FIRST && (&asmode)->labelmode == true) { + if(pass == FIRST && (&asmode)->label == true) { fprintf(stdout, "\nLabel::::\n"); printlabel(); - if((&asmode)->onlylabelmode == true) { + if((&asmode)->onlylabel == true) { return 0; } } @@ -188,7 +192,7 @@ int main(int argc, char *argv[]) if(objfile != NULL) { outassemble(objfile); } - if((&asmode)->onlyassemblemode == false) { + if((&asmode)->onlyassemble == false) { exec(); /* プログラム実行 */ } }