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-30 12:19:00 +00:00
parent 3d3c41e083
commit 215b487cef
8 changed files with 119 additions and 57 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -171,12 +171,18 @@ int xp_main (int argc, xp_char_t* argv[])
xp_stx_parser_error_string (&parser));
}
xp_printf (XP_TEXT("== Decoded Methods ==\n"));
xp_printf (XP_TEXT("\n== Decoded Methods ==\n"));
if (xp_stx_decode(&stx, n) == -1) {
xp_printf (XP_TEXT("parser error <%s>\n"),
xp_stx_parser_error_string (&parser));
}
xp_printf (XP_TEXT("\n== Decoded Methods for Symbol ==\n"));
if (xp_stx_decode(&stx, stx.class_symbol) == -1) {
xp_printf (XP_TEXT("parser error <%s>\n"),
xp_stx_parser_error_string (&parser));
}
xp_printf (XP_TEXT("== Running the main method ==\n"));
m = xp_stx_lookup_method (&stx, n, XP_TEXT("main"));
if (m == stx.nil) {
@ -196,6 +202,7 @@ exit_program:
muntrace ();
#endif
/*
#ifdef __linux
{
char buf[1000];
@ -203,6 +210,7 @@ exit_program:
system (buf);
}
#endif
*/
return 0;
}

2
ase/test/stx/test.st
View File

@ -10,4 +10,4 @@ main
a := #abc print: 123 and: 2345.
#abc print: a and: a.
1234567.
^nil
^nil.

3
ase/test/stx/test1.st
View File

@ -4,4 +4,5 @@ print: a1 and: a2
t1 := #abcdefg.
"a1 := 2341 arguments are not assignable"
t1 prim2: a2.
^9999.
self prim2: 2189.
^67891.