113 |
**/ |
**/ |
114 |
|
|
115 |
int main(int argc, char **argv) { |
int main(int argc, char **argv) { |
116 |
char *command_line[] = {"", "-e", |
char *command_line[] = {"", "-e", EMU_START }; |
|
"use M6502; print \"Loaded M6502 module\n\";"}; |
|
117 |
my_perl = perl_alloc(); |
my_perl = perl_alloc(); |
118 |
perl_construct(my_perl); |
perl_construct(my_perl); |
119 |
if (perl_parse(my_perl, NULL, 3, command_line, (char **)NULL)) { |
if (perl_parse(my_perl, xs_init, 3, command_line, (char **)NULL)) { |
120 |
printf("Failed to parse\n"); |
printf("Failed to parse\n"); |
121 |
return 0; |
return 0; |
122 |
} |
} |