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-06-27 10:53:04 +00:00
parent c7059afc6d
commit 2e70ee9475
6 changed files with 107 additions and 32 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,5 +1,5 @@
/*
* $Id: awk.c,v 1.43 2006-06-26 15:09:28 bacon Exp $
* $Id: awk.c,v 1.44 2006-06-27 10:53:04 bacon Exp $
*/
#include <xp/awk/awk.h>
@ -230,11 +230,8 @@ xp_printf (XP_TEXT("closing %s of type %d\n"), epa->name, epa->type);
case XP_AWK_IO_WRITE:
{
/*
if (_fputts (data, size, (FILE*)epa->handle) == XP_NULL)
return 0;
return size;
*/
/* TODO: how to return error or 0 */
_fputts (data, /*size,*/ (FILE*)epa->handle);
return -1;
}

10
ase/test/awk/t11.awk Normal file
View File

@ -0,0 +1,10 @@
BEGIN
{
print "this is only a test";
print;
print 1, 2, (3 >> 10);
print 1, 2, 3 >> 10;
print 3, 4, 5 >> 10;
close (10);
print "-------------" >> 10;
}