hyung-hwan/qse
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

*** empty log message ***

Browse Source
This commit is contained in:
hyung-hwan
2005-09-11 15:43:14 +00:00
parent ef790d9aa8
commit e57a8f6853
3 changed files with 25 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
ase/test/stx/parser.c
View File

@ -143,6 +143,7 @@ int xp_main (int argc, xp_char_t* argv[])
*/
stdio_t stdio;
xp_word_t n = xp_stx_lookup_class (&stx, argv[1]);
xp_word_t m;
parser.input_owner = (void*)&stdio;
parser.input_func = stdio_func;
@ -164,9 +165,14 @@ int xp_main (int argc, xp_char_t* argv[])
xp_stx_parser_error_string (&parser));
}
xp_stx_interp (&stx,
xp_stx_new_context (&stx, n,
xp_stx_lookup_method(&stx, n, XP_TEXT("main"))));
xp_printf (XP_TEXT("== Running the main method ==\n"));
m = xp_stx_lookup_method (&stx, n, XP_TEXT("main"));
if (m == stx.nil) {
xp_printf (XP_TEXT("cannot lookup method main\n"));
}
else {
xp_stx_interp (&stx, xp_stx_new_context (&stx, n, m));
}
}
exit_program: