-#include <stdio.h>
-#include <stdlib.h>
-
-#define _GNU_SOURCE
-#include <getopt.h>
-
-#include "cmem.h"
-#include "cerr.h"
+#include "package.h"
#include "assemble.h"
#include "exec.h"
-#include "package.h"
/**
* @brief CASL IIのエラーをエラーリストに追加
{ "tracearithmetic", no_argument, NULL, 't' },
{ "tracelogical", no_argument, NULL, 'T' },
{ "dump", no_argument, NULL, 'd' },
+ { "monitor", no_argument, NULL, 'm' },
{ "memorysize", required_argument, NULL, 'M' },
{ "clocks", required_argument, NULL, 'C' },
{ "version", no_argument, NULL, 'v' },
*/
int main(int argc, char *argv[])
{
- int memsize = DEFAULT_MEMSIZE, clocks = DEFAULT_CLOCKS, opt, i, stat;
+ int memsize = DEFAULT_MEMSIZE, clocks = DEFAULT_CLOCKS, opt, i, stat = 0;
char *af[argc], *objfile = NULL;
const char *version = PACKAGE_VERSION, *cmdversion = "casl2 of YACASL2 version %s\n";
const char *usage =
- "Usage: %s [-slLaAtTdvh] [-oO[<OBJECTFILE>]] [-M <MEMORYSIZE>] [-C <CLOCKS>] FILE1[ FILE2 ...]\n";
+ "Usage: %s [-slLaAtTdmvh] [-oO[<OBJECTFILE>]] [-M <MEMORYSIZE>] [-C <CLOCKS>] FILE1[ FILE2 ...]\n";
- cerr_init();
- addcerrlist_casl2();
- addcerrlist_assemble();
- addcerrlist_exec();
/* オプションの処理 */
- while((opt = getopt_long(argc, argv, "tTdslLao::O::AM:C:vh", longopts, NULL)) != -1) {
+ while((opt = getopt_long(argc, argv, "tTdslLmao::O::AM:C:vh", longopts, NULL)) != -1) {
switch(opt) {
case 's':
asmode.src = true;
case 'd':
execmode.dump = true;
break;
+ case 'm':
+ execmode.step = true;
+ break;
case 'M':
memsize = atoi(optarg);
break;
exit(1);
}
}
+
+ /* エラーの定義 */
+ cerr_init();
+ addcerrlist_casl2();
+ addcerrlist_assemble();
+ addcerrlist_exec();
+
/* ソースファイルが指定されていない場合は終了 */
if(argv[optind] == NULL) {
setcerr(126, ""); /* no source file */
fprintf(stderr, "CASL2 error - %d: %s\n", cerr->num, cerr->msg);
+ freecerr(); /* エラーの解放 */
exit(1);
}
reset(memsize, clocks); /* 仮想マシンCOMET IIのリセット */