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-07-06 13:57:32 +00:00
parent b9f2687e1d
commit d859d98608
8 changed files with 139 additions and 48 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,5 +1,5 @@
/*
* $Id: awk.c,v 1.51 2006-07-02 12:16:24 bacon Exp $
* $Id: awk.c,v 1.52 2006-07-06 13:57:31 bacon Exp $
*/
#include <xp/awk/awk.h>
@ -392,7 +392,7 @@ xp_printf (XP_TEXT("closing [%s] of type %d (console)\n"), epa->name, epa->type
/* TODO: how to return error or 0 */
fputs_t (data, /*size,*/ (FILE*)epa->handle);
/*fputs_t (data, stdout);*/
MessageBox (NULL, data, data, MB_OK);
/*MessageBox (NULL, data, data, MB_OK);*/
return size;
}

2
ase/test/awk/makefile.bcc
View File

@ -1,7 +1,7 @@
CC = bcc32
CFLAGS = -I..\..\.. -D__STAND_ALONE
LDFLAGS = -L..\..\..\xp\bas -L..\..\..\xp\awk
LIBS = import32.lib cw32mt.lib xpbas.lib xpawk.lib
LIBS = import32.lib cw32mt.lib xpawk.lib
STARTUP = c0x32w.obj
all: awk

14
ase/test/awk/t14.awk
View File

@ -18,6 +18,16 @@ END
}
*/
{
$3 = "10";
print $0, $2, $5;
//$3 = "10";
//print $0, $2, $5;
$0 = "wow this is just a test";
print "step 1--------------------";
//print $0;
a = $6;
print "step 2--------------------";
print a;
/*
print $6;
*/
print "step 3--------------------";
}