X-Git-Url: http://j8takagi.net/cgi-bin/gitweb.cgi?p=YACASL2.git;a=blobdiff_plain;f=src%2Fcasl2.c;h=8e0b94a248adefbf344f1a6897d51f730f4bd72a;hp=85a3ab593e6eac7257239fa1f9d8c40f3ba19d15;hb=f958640f07ddce6100e7eed1504ecaf05f6c1f02;hpb=ccc3acda4256e10a822e41e84f6c9991271c2f61 diff --git a/src/casl2.c b/src/casl2.c index 85a3ab5..8e0b94a 100644 --- a/src/casl2.c +++ b/src/casl2.c @@ -4,8 +4,8 @@ #define _GNU_SOURCE #include -static struct option longopts[] = -{ +/* casl2コマンドのオプション */ +static struct option longopts[] = { {"source", no_argument, NULL, 's'}, {"label", no_argument, NULL, 'l'}, {"labelonly", no_argument, NULL, 'L'}, @@ -23,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}; /* エラー番号とエラーメッセージ */ @@ -52,6 +54,7 @@ CERRARRAY cerr[] = { { 122, "cannot create hash table" }, { 123, "illegal string" }, { 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" }, @@ -85,7 +88,7 @@ const char *objfile_name(const char *str) } } -/* casl2コマンド */ +/* casl2コマンドのメイン */ int main(int argc, char *argv[]) { int opt, i; @@ -99,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); @@ -162,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); } @@ -176,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; } } @@ -189,7 +192,7 @@ int main(int argc, char *argv[]) if(objfile != NULL) { outassemble(objfile); } - if((&asmode)->onlyassemblemode == false) { + if((&asmode)->onlyassemble == false) { exec(); /* プログラム実行 */ } }