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-05-20 04:01:12 +00:00
parent 4f49c6d2db
commit 733827b0b4
7 changed files with 53 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
ase/test/stx/makefile.tcc
View File

@ -3,8 +3,8 @@ OBJS = stx.obj
OUT = stx.exe
CC = \tc\tcc
CFLAGS = -I..\..\.. -mh -D_DOS -w
LIBS = \tc\lib\ch.lib \tc\lib\c0h.obj ..\..\..\xp\stx\xpstx.lib
CFLAGS = -I..\..\.. -ml -D_DOS -w
LIBS = \tc\lib\cl.lib \tc\lib\c0l.obj ..\..\..\xp\stx\xpstx.lib
all: $(OBJS)
\tc\tlink $(OBJS),$(OUT),,$(LIBS)

16
ase/test/stx/stx.c
View File

@ -14,17 +14,13 @@
void print_symbol_names (xp_stx_t* stx, xp_stx_word_t sym)
{
/*
xp_stx_word_t key = XP_STX_AT(stx,idx,1);
xp_printf (XP_TEXT("%u -> %s\n"), key, &XP_STX_CHARAT(stx,key,0));
*/
xp_printf (XP_TEXT("%u -> %s\n"), sym, &XP_STX_CHARAT(stx,sym,0));
xp_printf (XP_TEXT("%lu [%s]\n"), (unsigned long)sym, &XP_STX_CHARAT(stx,sym,0));
}
void print_symbol_names_2 (xp_stx_t* stx, xp_stx_word_t idx)
{
xp_stx_word_t key = XP_STX_AT(stx,idx,1);
xp_printf (XP_TEXT("%u -> %s\n"), key, &XP_STX_CHARAT(stx,key,0));
xp_printf (XP_TEXT("%lu [%s]\n"), (unsigned long)key, &XP_STX_CHARAT(stx,key,0));
}
int xp_main (int argc, xp_char_t* argv[])
@ -48,9 +44,9 @@ int xp_main (int argc, xp_char_t* argv[])
return -1;
}
xp_printf (XP_TEXT("stx.nil %d\n"), stx.nil);
xp_printf (XP_TEXT("stx.true %d\n"), stx.true);
xp_printf (XP_TEXT("stx.false %d\n"), stx.false);
xp_printf (XP_TEXT("stx.nil %lu\n"), (unsigned long)stx.nil);
xp_printf (XP_TEXT("stx.true %lu\n"), (unsigned long)stx.true);
xp_printf (XP_TEXT("stx.false %lu\n"), (unsigned long)stx.false);
xp_printf (XP_TEXT("-------------\n"));
xp_stx_traverse_symbol_table (&stx, print_symbol_names);
@ -86,7 +82,7 @@ int xp_main (int argc, xp_char_t* argv[])
}
xp_stx_close (&stx);
xp_printf (XP_TEXT("End of program\n"));
xp_printf (XP_TEXT("== End of program ==\n"));
return 0;
}