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-11-02 11:36:41 +00:00
parent d1183a418d
commit ab969f2171
3 changed files with 87 additions and 53 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
ase/test/awk/arg.awk
View File

@ -13,11 +13,13 @@ BEGIN {
print "ARGV[" i "]", ARGV[i];
}
#for (i = 0
# i < 20
# i;;) print i;
# i;;) print "[" i "]";
#for (i = 0
# (i < 20)
# i;;) print "[" i "]";
if (ARGC >= 0) printf "ARGC is positive";
#printf 10, 20, 30;
if (ARGC >= 0) printf "ARGC is positive\n";
}

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

@ -1,5 +1,5 @@
/*
* $Id: awk.c,v 1.109 2006-10-31 14:32:50 bacon Exp $
* $Id: awk.c,v 1.110 2006-11-02 11:36:41 bacon Exp $
*/
#include <ase/awk/awk.h>
@ -161,13 +161,15 @@ static FILE* popen_t (const ase_char_t* cmd, const ase_char_t* mode)
#ifdef WIN32
#define fgets_t _fgetts
#define fputs_t _fputts
#define fputc_t _fputtc
#else
#ifdef ASE_CHAR_IS_MCHAR
#define fgets_t fgets
#define fputs_t fputs
#define fputc_t fputc
#else
#define fgets_t fgetws
#define fputs_t fputws
#define fputc_t fputwc
#endif
#endif
@ -271,8 +273,12 @@ xp_printf (ASE_T("closing %s of type (pipe) %d\n"), epa->name, epa->type);
case ASE_AWK_IO_WRITE:
{
/* TODO: size... */
fputs_t (data, (FILE*)epa->handle);
ase_size_t i;
/* TODO: how to return error or 0 */
for (i = 0; i < size; i++)
{
fputc_t (data[i], (FILE*)epa->handle);
}
return size;
}
@ -336,8 +342,12 @@ xp_printf (ASE_T("closing %s of type %d (file)\n"), epa->name, epa->type);
case ASE_AWK_IO_WRITE:
{
ase_size_t i;
/* TODO: how to return error or 0 */
fputs_t (data, /*size,*/ (FILE*)epa->handle);
for (i = 0; i < size; i++)
{
fputc_t (data[i], (FILE*)epa->handle);
}
return size;
}
@ -437,8 +447,13 @@ xp_printf (ASE_T("open the next console [%s]\n"), infiles[infile_no]);
}
else if (cmd == ASE_AWK_IO_WRITE)
{
ase_size_t i;
/* TODO: how to return error or 0 */
fputs_t (data, /*size,*/ (FILE*)epa->handle);
for (i = 0; i < size; i++)
{
fputc_t (data[i], (FILE*)epa->handle);
}
/*MessageBox (NULL, data, data, MB_OK);*/
return size;
}