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
2006-01-18 16:12:59 +00:00
parent 6626b3a414
commit 3c65836426
5 changed files with 132 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
ase/test/awk/Makefile.cl
View File

@ -1,7 +1,9 @@
CC = cl
CFLAGS = /nologo /MT /GX /W3 /GR- /D_WIN32_WINNT=0x0400 -I..\..\..
#CFLAGS = /nologo /MT /W3 /GR- /D_WIN32_WINNT=0x0400 -I..\..\..
CFLAGS = /nologo /MT /W3 /GR- /D_WIN32_WINNT=0x0400 -I..\..\.. -D__STAND_ALONE
LDFLAGS = /libpath:..\..\bas /libpath:..\..\awk
LIBS = xpbas.lib xpawk.lib
#LIBS = xpbas.lib xpawk.lib
LIBS = xpawk.lib
all: awk

34
ase/test/awk/awk.c
View File

@ -1,4 +1,29 @@
#include <xp/awk/awk.h>
#ifdef __STAND_ALONE
static xp_ssize_t process_source (int cmd, void* arg, xp_char_t* data, xp_size_t size)
{
wchar_t c;
switch (cmd) {
case XP_AWK_IO_OPEN:
case XP_AWK_IO_CLOSE:
return 0;
case XP_AWK_IO_DATA:
if (size < 0) return -1;
c = fgetwc (stdin);
if (c == XP_CHAR_EOF) return 0;
*data = c;
return 1;
}
return -1;
}
#else
#include <xp/bas/stdio.h>
#include <xp/bas/sio.h>
@ -21,6 +46,7 @@ static xp_ssize_t process_source (int cmd, void* arg, xp_char_t* data, xp_size_t
return -1;
}
#endif
int xp_main (int argc, xp_char_t* argv[])
{
@ -28,25 +54,25 @@ int xp_main (int argc, xp_char_t* argv[])
#if 0
if (argc != 2) {
xp_fprintf (xp_stderr, XP_TEXT("Usage: %s file\n"), argv[0]);
xp_printf (XP_TEXT("Usage: %s file\n"), argv[0]);
return -1;
}
#endif
if (xp_awk_open(&awk) == XP_NULL) {
xp_fprintf (xp_stderr, XP_TEXT("Error: cannot open awk\n"));
xp_printf (XP_TEXT("Error: cannot open awk\n"));
return -1;
}
if (xp_awk_attsrc(&awk, process_source, XP_NULL) == -1) {
xp_awk_close (&awk);
xp_fprintf (xp_stderr, XP_TEXT("error: cannot attach source\n"));
xp_printf (XP_TEXT("error: cannot attach source\n"));
return -1;
}
if (xp_awk_parse(&awk) == -1) {
xp_awk_close (&awk);
xp_fprintf (xp_stderr, XP_TEXT("error: cannot parse program\n"));
xp_printf (XP_TEXT("error: cannot parse program\n"));
return -1;
}