X-Git-Url: http://j8takagi.net/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Fcasl2.c;h=03c61fc47cab12660682e77c95c2f4b0193a1a1f;hb=b591284405a5b29213db6250c830e1f63d11a4f0;hp=430b3c6323fcff5f9297c612a3ecded30e5653aa;hpb=ed26c70ece2ab7c16d20275fe5dbb471bfe5a0b8;p=YACASL2.git diff --git a/src/casl2.c b/src/casl2.c index 430b3c6..03c61fc 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,68 @@ static struct option longopts[] = { {0, 0, 0, 0}, }; +/* エラー番号とエラーメッセージ */ +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 mismatch in assemble command" }, + { 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, "operand too many in machine command" }, + { 114, "not integer" }, + { 115, "not hex" }, + { 116, "out of hex range" }, + { 117, "operand too many in DC" }, + { 118, "operand length too long" }, + { 119, "out of COMET II memory" }, + { 120, "GR0 in operand x" }, + { 121, "cannot get operand token" }, + { 122, "cannot create hash table" }, + { 123, "unclosed quote" }, + { 124, "more than one character in literal" }, + { 125, "not GR in operand x" }, + { 126, "source file is not specified" }, + { 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(str == NULL) { + return default_name; + } else { + return str; + } +} + +/* casl2コマンドのメイン */ int main(int argc, char *argv[]) { int opt, i; @@ -40,51 +92,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,14 +145,18 @@ int main(int argc, char *argv[]) exit(-1); } } + /* ソースファイルが指定されていない場合は終了 */ if(argv[optind] == NULL) { - fprintf(stderr, "source file is not specified\n"); - exit(-1); + setcerr(126, NULL); /* source file is not specified */ + goto casl2err; } - /* ソースファイルが指定されていない場合は終了 */ + /* COMET II仮想マシンのリセット */ reset(); /* アセンブル。ラベル表作成のため、2回行う */ for(pass = FIRST; pass <= SECOND; pass++) { + if(pass == FIRST && create_cmdtype_code() == false) { + goto casl2err; + } for(i = optind; i < argc; i++) { /* データの格納開始位置 */ if(pass == FIRST) { @@ -115,22 +164,19 @@ 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) { - freelabel(); /* ラベル表の解放 */ - if(cerrno > 0) { - freecerr(); /* エラーの解放 */ - } 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 +186,7 @@ int main(int argc, char *argv[]) if(objfile != NULL) { outassemble(objfile); } - if(onlyassemblemode == false) { + if(asmode.onlyassemble == false) { exec(); /* プログラム実行 */ } } @@ -149,4 +195,7 @@ int main(int argc, char *argv[]) exit(-1); } return 0; +casl2err: + fprintf(stderr, "Casl2 error - %d: %s\n", cerrno, cerrmsg); + exit(-1); }