src/casl2.c

   1 #include "package.h"
   2 #include "assemble.h"
   3 #include "exec.h"
   4
   5 /**
   6  * @brief CASL IIのエラーをエラーリストに追加
   7  *
   8  * @return なし
   9  */
  10 void addcerrlist_casl2();
  11
  12 /**
  13  * @brief アセンブル結果を書き込むファイルの名前
  14  *
  15  * @return ファイル名
  16  *
  17  * @param *str ファイル名
  18  */
  19 const char *objfile_name(const char *str);
  20
  21 /**
  22  * @brief 指定された1つまたは複数のファイルを2回アセンブル
  23  *
  24  * @return なし
  25  *
  26  * @param filec アセンブルするファイルの数
  27  * @param filev アセンブルするファイル名の配列
  28  */
  29 void assemble(int filec, char *filev[]);
  30
  31 /**
  32  * @brief casl2コマンドのオプション
  33  */
  34 static struct option longopts[] = {
  35     { "source", no_argument, NULL, 's' },
  36     { "label", no_argument, NULL, 'l' },
  37     { "labelonly", no_argument, NULL, 'L' },
  38     { "assembledetail", no_argument, NULL, 'a' },
  39     { "assembledetailonly", no_argument, NULL, 'A' },
  40     { "assembleout", optional_argument, NULL, 'o' },
  41     { "assembleoutonly", optional_argument, NULL, 'O' },
  42     { "trace", no_argument, NULL, 't' },
  43     { "tracearithmetic", no_argument, NULL, 't' },
  44     { "tracelogical", no_argument, NULL, 'T' },
  45     { "dump", no_argument, NULL, 'd' },
  46     { "monitor", no_argument, NULL, 'm' },
  47     { "memorysize", required_argument, NULL, 'M' },
  48     { "clocks", required_argument, NULL, 'C' },
  49     { "version", no_argument, NULL, 'v' },
  50     { "help", no_argument, NULL, 'h' },
  51     { 0, 0, 0, 0 },
  52 };
  53
  54 /**
  55  * @brief casl2のエラー定義
  56  */
  57 CERR cerr_casl2[] = {
  58     { 126, "no source file" },
  59 };
  60
  61 void addcerrlist_casl2()
  62 {
  63     addcerrlist(ARRAYSIZE(cerr_casl2), cerr_casl2);
  64 }
  65
  66 const char *objfile_name(const char *str)
  67 {
  68     const char *default_name = "a.o";
  69     return (str == NULL) ? default_name : str;
  70 }
  71
  72 void assemble(int filec, char *filev[])
  73 {
  74     int i;
  75     PASS pass;
  76     WORD bp[filec];
  77
  78     create_cmdtype_code();                         /* 命令の名前とタイプがキーのハッシュ表を作成 */
  79     asptr = malloc_chk(sizeof(ASPTR), "asptr");    /* アセンブル時のプロパティ用の領域確保 */
  80     asptr->prog = malloc_chk(LABELSIZE + 1, "asptr.prog");
  81     asptr->ptr = 0;
  82     /* アセンブル。ラベル表作成のため、2回行う */
  83     for(pass = FIRST; pass <= SECOND; pass++) {
  84         for(i = 0; i < filec; i++) {
  85             /* データの格納開始位置 */
  86             if(pass == FIRST) {
  87                 bp[i] = asptr->ptr;
  88             } else if(pass == SECOND) {
  89                 asptr->ptr = bp[i];
  90             }
  91             if(execmode.trace == true || execmode.dump == true ||
  92                asmode.src == true || asmode.label == true || asmode.asdetail == true)
  93             {
  94                 fprintf(stdout, "\nAssemble %s (%d)\n", filev[i], pass);
  95             }
  96             /* ファイルをアセンブル */
  97             if(assemblefile(filev[i], pass) == false) {
  98                 goto asfin;
  99             }
 100         }
 101         if(pass == FIRST && asmode.label == true) {
 102             fprintf(stdout, "\nLabel::::\n");
 103             printlabel();
 104             if(asmode.onlylabel == true) {
 105                 break;
 106             }
 107         }
 108     }
 109 asfin:
 110     freelabel();                                  /* ラベルハッシュ表を解放 */
 111     free_cmdtype_code();                          /* 命令の名前とタイプがキーのハッシュ表を解放 */
 112     FREE(asptr->prog);                            /* アセンブル時のプロパティを解放 */
 113     FREE(asptr);
 114 }
 115
 116 /**
 117  * @brief casl2コマンドのメイン
 118  *
 119  * @return 正常終了時は0、エラー発生時は1
 120  *
 121  * @param argc コマンドライン引数の数
 122  * @param *argv[] コマンドライン引数の配列
 123  */
 124 int main(int argc, char *argv[])
 125 {
 126     int memsize = DEFAULT_MEMSIZE, clocks = DEFAULT_CLOCKS, opt, i, stat = 0;
 127     char *af[argc], *objfile = NULL;
 128     const char *version = PACKAGE_VERSION,  *cmdversion = "casl2 of YACASL2 version %s\n";
 129     const char *usage =
 130         "Usage: %s [-slLaAtTdmvh] [-oO[<OBJECTFILE>]] [-M <MEMORYSIZE>] [-C <CLOCKS>] FILE1[ FILE2  ...]\n";
 131
 132     /* オプションの処理 */
 133     while((opt = getopt_long(argc, argv, "tTdslLmao::O::AM:C:vh", longopts, NULL)) != -1) {
 134         switch(opt) {
 135         case 's':
 136             asmode.src = true;
 137             break;
 138         case 'l':
 139             asmode.label = true;
 140             break;
 141         case 'L':
 142             asmode.label = true;
 143             asmode.onlylabel = true;
 144             break;
 145         case 'a':
 146             asmode.asdetail = true;
 147             break;
 148         case 'A':
 149             asmode.asdetail = true;
 150             asmode.onlyassemble = true;
 151             break;
 152         case 'o':
 153             objfile = strdup_chk(objfile_name(optarg), "objfile");
 154             break;
 155         case 'O':
 156             asmode.onlyassemble = true;
 157             objfile = strdup_chk(objfile_name(optarg), "objfile");
 158             break;
 159         case 't':
 160             execmode.trace = true;
 161             break;
 162         case 'T':
 163             execmode.trace = true;
 164             execmode.logical = true;
 165             break;
 166         case 'd':
 167             execmode.dump = true;
 168             break;
 169         case 'm':
 170             execmode.step = true;
 171             break;
 172         case 'M':
 173             memsize = atoi(optarg);
 174             break;
 175         case 'C':
 176             clocks = atoi(optarg);
 177             break;
 178         case 'v':
 179             fprintf(stdout, cmdversion, version);
 180             return 0;
 181         case 'h':
 182             fprintf(stdout, usage, argv[0]);
 183             return 0;
 184         case '?':
 185             fprintf(stderr, usage, argv[0]);
 186             exit(1);
 187         }
 188     }
 189
 190     /* エラーの定義 */
 191     cerr_init();
 192     addcerrlist_casl2();
 193     addcerrlist_assemble();
 194     addcerrlist_exec();
 195
 196     /* ソースファイルが指定されていない場合は終了 */
 197     if(argv[optind] == NULL) {
 198         setcerr(126, "");    /* no source file */
 199         fprintf(stderr, "CASL2 error - %d: %s\n", cerr->num, cerr->msg);
 200         freecerr();                                    /* エラーの解放 */
 201         exit(1);
 202     }
 203     reset(memsize, clocks);                        /* 仮想マシンCOMET IIのリセット */
 204     for(i = 0; i < argc - optind; i++) {           /* 引数からファイル名配列を取得 */
 205         af[i] = argv[optind + i];
 206     }
 207     assemble(i, af);                               /* アセンブル */
 208     if(asmode.onlylabel == true || cerr->num > 0) {
 209         goto casl2fin;
 210     }
 211     /* オブジェクトファイル名が指定されている場合は、アセンブル結果をオブジェクトファイルに出力 */
 212     if(objfile != NULL) {
 213         outassemble(objfile);
 214         FREE(objfile);
 215     }
 216     /* onlyassembleモード以外の場合、仮想マシンCOMET IIを実行 */
 217     if(asmode.onlyassemble == false) {
 218         exec();                                    /* 仮想マシンCOMET IIの実行 */
 219     }
 220 casl2fin:
 221     shutdown();                                    /* 仮想マシンCOMET IIのシャットダウン */
 222     stat = (cerr->num == 0) ? 0 : 1;
 223     freecerr();                                    /* エラーの解放 */
 224     return stat;
 225 }