comet2.c

Go to the documentation of this file.

#define _GNU_SOURCE
#include "package.h"
#include "exec.h"
#include "load.h"

static struct option longopts[] = {
    { "trace", no_argument, NULL, 't' },
    { "tracearithmetic", no_argument, NULL, 't' },
    { "tracelogical", no_argument, NULL, 'T' },
    { "dump", no_argument, NULL, 'd' },
    { "monitor", no_argument, NULL, 'm' },
    { "reverse", no_argument, NULL, 'r' },
    { "memorysize", required_argument, NULL, 'M'},
    { "clocks", required_argument, NULL, 'C' },
    { "version", no_argument, NULL, 'v' },
    { "help", no_argument, NULL, 'h' },
    { 0, 0, 0, 0},
};

int main(int argc, char *argv[])
{
    int memsize = DEFAULT_MEMSIZE;
    int clocks = DEFAULT_CLOCKS;
    int opt = 0;
    int stat = 0;
    const char *version = PACKAGE_VERSION;
    const char *cmdversion = "comet2 of YACASL2 version %s\n";
    const char *usage = "Usage: %s [-tTdmrvh] [-M <MEMORYSIZE>] [-C <CLOCKS>] FILE\n";
 
    /* エラーの定義 */
    cerr_init();
    addcerrlist_load();
    addcerrlist_exec();
 
    /* オプションの処理 */
    while((opt = getopt_long(argc, argv, "tTdmrM:C:vh", longopts, NULL)) != -1) {
        switch(opt) {
        case 't':
            execmode.trace = true;
            break;
        case 'T':
            execmode.trace = true;
            execmode.logical = true;
            break;
        case 'd':
            execmode.dump = true;
            break;
        case 'm':
            execmode.monitor = true;
            execmode.reverse = true;
            break;
        case 'r':
            execmode.reverse = true;
            break;
        case 'M':
            if((memsize = memsize_str2word(optarg)) == 0) {
                goto comet2fin;
            }
            break;
        case 'C':
            if((clocks = clock_str2clock(optarg)) == 0) {
                goto comet2fin;
            }
            break;
        case 'v':
            fprintf(stdout, cmdversion, version);
            goto comet2fin;
        case 'h':
            fprintf(stdout, usage, argv[0]);
            goto comet2fin;
        case '?':
            fprintf(stderr, usage, argv[0]);
            setcerr(212, "");    /* invalid option */
            goto comet2fin;
        }
    }
    if(argv[optind] == NULL) {
        setcerr(211, "");    /* object file not specified */
        fprintf(stderr, "comet2 error - %d: %s\n", cerr->num, cerr->msg);
        goto comet2fin;
    }
    create_cmdtable(HASH_CMDTYPE);
    comet2_init(memsize, clocks);     /* COMET II仮想マシンの初期化 */
    execptr->start = 0;
    execptr->end = loadassemble(argv[optind++], execptr->start);
    /* 残りの引数（オプション以外の引数）があればInfoを表示 */
    if(optind < argc) {
        warn_ignore_arg(argc - optind, argv + optind);
    }
    if(execptr->end > 0 && cerr->num == 0) {
        exec();                 /* プログラム実行 */
    }
    comet2_shutdown();          /* COMET II仮想マシンのシャットダウン */
    free_cmdtable(HASH_CMDTYPE);
comet2fin:
    if(cerr->num > 0) {
        stat = 1;
    }
    freecerr();                 /* エラーの解放 */
    return stat;
}