src/comet2.c

   1 #include <stdio.h>
   2 #include <stdlib.h>
   3 #define _GNU_SOURCE
   4 #include <getopt.h>
   5
   6 #include "exec.h"
   7 #include "cmem.h"
   8 #include "cerr.h"
   9
  10 /**
  11  * comet2コマンドのオプション
  12  */
  13 static struct option longopts[] = {
  14     {"trace", no_argument, NULL, 't'},
  15     {"tracearithmetic", no_argument, NULL, 't'},
  16     {"tracelogical", no_argument, NULL, 'T'},
  17     {"dump", no_argument, NULL, 'd'},
  18     {"memorysize", required_argument, NULL, 'M'},
  19     {"clocks", required_argument, NULL, 'C'},
  20     {"help", no_argument, NULL, 'h'},
  21     {0, 0, 0, 0},
  22 };
  23
  24 /**
  25  * comet2コマンドのメイン
  26  */
  27 int main(int argc, char *argv[])
  28 {
  29     int memsize = DEFAULT_MEMSIZE, clocks = DEFAULT_CLOCKS;
  30     int opt, stat = 0;
  31     const char *usage = "Usage: %s [-tTdh] [-M <MEMORYSIZE>] [-C <CLOCKS>] FILE\n";
  32
  33     cerr_init();
  34     addcerrlist_load();
  35     addcerrlist_exec();
  36
  37     /* オプションの処理 */
  38     while((opt = getopt_long(argc, argv, "tTdM:C:h", longopts, NULL)) != -1) {
  39         switch(opt) {
  40         case 't':
  41             execmode.trace = true;
  42             break;
  43         case 'T':
  44             execmode.trace = true;
  45             execmode.logical = true;
  46             break;
  47         case 'd':
  48             execmode.dump = true;
  49             break;
  50         case 'M':
  51             memsize = atoi(optarg);
  52             break;
  53         case 'C':
  54             clocks = atoi(optarg);
  55             break;
  56         case 'h':
  57             fprintf(stdout, usage, argv[0]);
  58             return 0;
  59         case '?':
  60             fprintf(stderr, usage, argv[0]);
  61             exit(1);
  62         }
  63     }
  64     if(argv[optind] == NULL) {
  65         setcerr(211, NULL);    /* object file not specified */
  66         fprintf(stderr, "comet2 error - %d: %s\n", cerr->num, cerr->msg);
  67         exit(1);
  68     }
  69     /* COMET II仮想マシンのリセット */
  70     reset(memsize, clocks);
  71     execptr->start = 0;
  72     if(loadassemble(argv[optind]) == true) {
  73         exec();                /* プログラム実行 */
  74     }
  75     /* COMET II仮想マシンのシャットダウン */
  76     shutdown();
  77     stat = (cerr->num == 0) ? 0 : -1;
  78     /* エラーの解放 */
  79     freecerr();
  80     return stat;
  81 }