X-Git-Url: http://j8takagi.net/cgi-bin/gitweb.cgi?p=YACASL2.git;a=blobdiff_plain;f=src%2Fcasl2.c;h=8e0b94a248adefbf344f1a6897d51f730f4bd72a;hp=430b3c6323fcff5f9297c612a3ecded30e5653aa;hb=f958640f07ddce6100e7eed1504ecaf05f6c1f02;hpb=ed26c70ece2ab7c16d20275fe5dbb471bfe5a0b8 diff --git a/src/casl2.c b/src/casl2.c index 430b3c6..8e0b94a 100644 --- a/src/casl2.c +++ b/src/casl2.c @@ -4,17 +4,7 @@ #define _GNU_SOURCE #include -/* 指定されたファイルにCOMET II仮想メモリ（アセンブル結果）を書込 */ -void outassemble(char *file) { - FILE *fp; - if((fp = fopen(file, "w")) == NULL) { - perror(file); - return; - } - fwrite(memory, sizeof(WORD), endptr, fp); - fclose(fp); -} - +/* casl2コマンドのオプション */ static struct option longopts[] = { {"source", no_argument, NULL, 's'}, {"label", no_argument, NULL, 'l'}, @@ -33,6 +23,72 @@ 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}; + +/* エラー番号とエラーメッセージ */ +CERRARRAY cerr[] = { + { 101, "label already defined" }, + { 102, "label table is full" }, + { 103, "label not found" }, + { 104, "label length is too long" }, + { 105, "no command in the line" }, + { 106, "operand count mismatch" }, + { 107, "no label in START" }, + { 108, "not command of operand \"r\"" }, + { 109, "not command of operand \"r1,r2\"" }, + { 110, "not command of operand \"r,adr[,x]\"" }, + { 111, "not command of operand \"adr[,x]\"" }, + { 112, "not command of no operand" }, + { 113, "command not defined" }, + { 114, "not integer" }, + { 115, "not hex" }, + { 116, "out of hex range" }, + { 117, "operand is too many" }, + { 118, "operand length is too long" }, + { 119, "out of COMET II memory" }, + { 120, "GR0 in operand x" }, + { 121, "cannot get operand token" }, + { 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" }, + { 204, "Program Register (PR) - out of COMET II memory" }, + { 205, "Stack Pointer (SP) - cannot allocate stack buffer" }, + { 206, "Address - out of COMET II memory" }, + { 207, "Stack Pointer (SP) - out of COMET II memory" }, + { 0, NULL }, +}; + +/* 指定されたファイルにアセンブル結果を書込 */ +void outassemble(const char *file) { + FILE *fp; + if((fp = fopen(file, "w")) == NULL) { + perror(file); + exit(-1); + } + fwrite(memory, sizeof(WORD), endptr, fp); + fclose(fp); +} + +/* アセンブル結果を書き込むファイルの名前 */ +const char *objfile_name(const char *str) +{ + const char *default_name = "a.o"; + + if(optarg == NULL) { + return default_name; + } else { + return str; + } +} + +/* casl2コマンドのメイン */ int main(int argc, char *argv[]) { int opt, i; @@ -40,51 +96,44 @@ int main(int argc, char *argv[]) bool status = false; WORD beginptr[argc]; char *objfile = NULL; - const char *default_objfile = "a.o"; - const char *usage = "Usage: %s [-slLaAtTdh] [-oO] [-M ] [-C ] FILE ...\n"; + const char *usage = + "Usage: %s [-slLaAtTdh] [-oO] [-M ] [-C ] FILE ...\n"; while((opt = getopt_long(argc, argv, "tTdslLao::O::AM:C:h", longopts, NULL)) != -1) { switch(opt) { case 's': - srcmode = true; + (&asmode)->src = true; break; case 'l': - labelmode = true; + (&asmode)->label = true; break; case 'L': - onlylabelmode = true; + (&asmode)->label = true; + (&asmode)->onlylabel = true; break; case 'a': - asdetailmode = true; + (&asmode)->asdetail = true; break; case 'A': - onlyassemblemode = true; - asdetailmode = true; + (&asmode)->asdetail = true; + (&asmode)->onlyassemble = true; break; case 'o': - if(optarg == NULL) { - objfile = strdup(default_objfile); - } else { - objfile = strdup(optarg); - } + objfile = strdup(objfile_name(optarg)); break; case 'O': - onlyassemblemode = true; - if(optarg == NULL) { - objfile = strdup(default_objfile); - } else { - objfile = strdup(optarg); - } + (&asmode)->onlyassemble = true; + objfile = strdup(objfile_name(optarg)); break; case 't': - tracemode = true; + (&execmode)->trace = true; break; case 'T': - tracemode = true; - logicalmode = true; + (&execmode)->trace = true; + (&execmode)->logical = true; break; case 'd': - dumpmode = true; + (&execmode)->dump = true; break; case 'M': memsize = atoi(optarg); @@ -100,11 +149,12 @@ int main(int argc, char *argv[]) exit(-1); } } + /* ソースファイルが指定されていない場合は終了 */ if(argv[optind] == NULL) { fprintf(stderr, "source file is not specified\n"); exit(-1); } - /* ソースファイルが指定されていない場合は終了 */ + /* COMET II仮想マシンのリセット */ reset(); /* アセンブル。ラベル表作成のため、2回行う */ for(pass = FIRST; pass <= SECOND; pass++) { @@ -115,8 +165,10 @@ int main(int argc, char *argv[]) } else if(pass == SECOND) { ptr = beginptr[i]; } - if(tracemode == true || dumpmode == true || srcmode == true || - labelmode == true || 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); } if((status = assemble(argv[i], pass)) == false) { @@ -127,10 +179,10 @@ int main(int argc, char *argv[]) exit(-1); } } - if(pass == FIRST && (labelmode == true || onlylabelmode == true)) { + if(pass == FIRST && (&asmode)->label == true) { fprintf(stdout, "\nLabel::::\n"); printlabel(); - if(onlylabelmode == true) { + if((&asmode)->onlylabel == true) { return 0; } } @@ -140,7 +192,7 @@ int main(int argc, char *argv[]) if(objfile != NULL) { outassemble(objfile); } - if(onlyassemblemode == false) { + if((&asmode)->onlyassemble == false) { exec(); /* プログラム実行 */ } }