int test_program(void)
{
char *str;
{
enum mode m;
struct regime r;
struct program p1, *p2;
bool failed;
m = SINGLESTEP;
r.mode = m;
r.address = 5;
r.period = 110;
r.instructions = 1000;
r.dim = 9;
strcpy(p1.name, "hello world");
p1.any_regime = true;
p1.regime = r;
str = serialize_program(&p1);
p2 = deserialize_program(str);
failed = p2 == NULL;
assert("deserializing doesn't fail", !failed);
assert("mode equivalence",
!failed && r.mode == p2->regime.mode);
assert("address equivalence",
!failed && r.address == p2->regime.address);
assert("period equivalence",
!failed && r.period == p2->regime.period);
assert("instructions equivalence",
!failed && r.instructions ==
p2->regime.instructions);
assert("dim equivalence",
!failed && r.dim == p2->regime.dim);
assert("any_regime equivalence",
!failed && p1.any_regime == p2->any_regime);
assert("program name equivalence",
!failed && strcmp(p1.name, p2->name) == 0);
free(p2);
free(str);
}
return 0;
}
/**
* Main entry point to the Luci compiler/interpreter
*
* @param argc number of command-line arguments
* @param argv C-string array of command-line arguments
* @returns 1 on error, 0 on success
*/
int luci_main(int argc, char *argv[])
{
#ifdef DEBUG
yydebug = 1;
#endif
if (argc < 2) {
/* interactive mode */
yyin = stdin;
return luci_interactive();
}
unsigned int mode = MODE_EXE;
char *arg;
char *infilename = NULL;
unsigned int i;
for (i = 1; i < argc; i++) {
arg = argv[i];
if (strcmp(arg, "-h") == 0) {
help();
return EXIT_SUCCESS;
} else if (strcmp(arg, "-V") == 0) {
fprintf(stdout, "%s\n", version_string);
return EXIT_SUCCESS;
} else if (strcmp(arg, "-g") == 0) {
mode = MODE_GRAPH;
} else if (strcmp(arg, "-p") == 0) {
mode = MODE_PRINT;
} else if (strcmp(arg, "-c") == 0) {
mode = MODE_SERIAL;
printf("%s\n", "This option is not yet supported");
return EXIT_SUCCESS;
} else if (strcmp(arg, "-n") == 0) {
mode = MODE_SYNTAX;
} else if (i == (argc - 1)) {
infilename = arg;
} else {
LUCI_DIE("Invalid option: %s\n", arg);
}
}
if (infilename == NULL) {
/* interactive mode */
yyin = stdin;
return luci_interactive();
} else if (!(yyin = fopen(infilename, "r"))) {
LUCI_DIE("Can't read from file %s\n", infilename);
}
LUCI_DEBUG("Reading from %s\n", infilename? infilename : "stdin");
/* initialize the scanner in non-interactive mode */
yy_luci_init(false);
/* parse yyin and build and AST */
yyparse();
extern AstNode* g_root_node; /* parser.y */
if (!g_root_node) {
/* empty program */
return EXIT_SUCCESS;
} else if (mode == MODE_SYNTAX) {
printf("%s\n", "Syntax valid");
return EXIT_SUCCESS;
} else if (mode == MODE_GRAPH) {
print_ast_graph(g_root_node);
return EXIT_SUCCESS;
}
/* initialize systems */
gc_init();
compiler_init();
/* Compile the AST */
CompileState *cs = compile_ast(g_root_node);
ast_destroy(g_root_node);
LuciObject *gf = LuciFunction_new();
convert_to_function(cs, gf, 0);
compile_state_delete(cs);
if (setjmp(LUCI_EXCEPTION_BUF) == 0) {
switch (mode) {
case MODE_EXE:
/* Execute the bytecode */
eval(gf);
break;
case MODE_PRINT:
/* Print the bytecode */
print_instructions(gf);
break;
case MODE_SERIAL:
/* Serialize program */
serialize_program(gf);
break;
default:
LUCI_DIE("%s\n", "Invalid mode?!");
}
}
/* cleanup systems */
compiler_finalize();
gc_finalize();
return EXIT_SUCCESS;
}
