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 2007-02-20 12:44:28 +00:00
parent 96fe476503
commit 60c7e6e0b2
1 changed files with 22 additions and 50 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,5 +1,5 @@
/* /*
* $Id: awk.c,v 1.166 2007-02-18 11:21:19 bacon Exp $ * $Id: awk.c,v 1.167 2007-02-20 12:44:28 bacon Exp $
*/ */
#include <ase/awk/awk.h> #include <ase/awk/awk.h>
@ -11,7 +11,6 @@
#include <stdarg.h> #include <stdarg.h>
#include <math.h> #include <math.h>
#include <limits.h> #include <limits.h>
#include <assert.h>
#include <errno.h> #include <errno.h>
#include <stdlib.h> #include <stdlib.h>
@ -45,7 +44,7 @@
#define PATH_MAX 2048 #define PATH_MAX 2048
#endif #endif
struct src_io struct awk_src_io
{ {
const ase_char_t* input_file; const ase_char_t* input_file;
FILE* input_handle; FILE* input_handle;
@ -165,24 +164,18 @@ static FILE* awk_popen (const ase_char_t* cmd, const ase_char_t* mode)
#if defined(_WIN32) #if defined(_WIN32)
#define awk_fgets _fgetts #define awk_fgets _fgetts
#define awk_fgetc _fgettc #define awk_fgetc _fgettc
#define awk_fputs _fputts
#define awk_fputc _fputtc
#elif defined(ASE_CHAR_IS_MCHAR) #elif defined(ASE_CHAR_IS_MCHAR)
#define awk_fgets fgets #define awk_fgets fgets
#define awk_fgetc fgetc #define awk_fgetc fgetc
#define awk_fputs fputs
#define awk_fputc fputc
#else #else
#define awk_fgets fgetws #define awk_fgets fgetws
#define awk_fgetc fgetwc #define awk_fgetc fgetwc
#define awk_fputs fputws
#define awk_fputc fputwc
#endif #endif
static ase_ssize_t process_source ( static ase_ssize_t awk_srcio_in (
int cmd, void* arg, ase_char_t* data, ase_size_t size) int cmd, void* arg, ase_char_t* data, ase_size_t size)
{ {
struct src_io* src_io = (struct src_io*)arg; struct awk_src_io* src_io = (struct awk_src_io*)arg;
ase_cint_t c; ase_cint_t c;
if (cmd == ASE_AWK_IO_OPEN) if (cmd == ASE_AWK_IO_OPEN)
@ -210,10 +203,10 @@ static ase_ssize_t process_source (
return -1; return -1;
} }
static ase_ssize_t dump_source ( static ase_ssize_t awk_srcio_out (
int cmd, void* arg, ase_char_t* data, ase_size_t size) int cmd, void* arg, ase_char_t* data, ase_size_t size)
{ {
/*struct src_io* src_io = (struct src_io*)arg;*/ /*struct awk_src_io* src_io = (struct awk_src_io*)arg;*/
if (cmd == ASE_AWK_IO_OPEN) return 1; if (cmd == ASE_AWK_IO_OPEN) return 1;
else if (cmd == ASE_AWK_IO_CLOSE) else if (cmd == ASE_AWK_IO_CLOSE)
@ -223,18 +216,16 @@ static ase_ssize_t dump_source (
} }
else if (cmd == ASE_AWK_IO_WRITE) else if (cmd == ASE_AWK_IO_WRITE)
{ {
ase_size_t i; int n = ase_fprintf (stdout, ASE_T("%.*s"), size, data);
for (i = 0; i < size; i++) if (n < 0) return -1;
{
if (awk_fputc (data[i], stdout) == ASE_CHAR_EOF) return -1;
}
return size; return size;
} }
return -1; return -1;
} }
static ase_ssize_t process_extio_pipe ( static ase_ssize_t awk_extio_pipe (
int cmd, void* arg, ase_char_t* data, ase_size_t size) int cmd, void* arg, ase_char_t* data, ase_size_t size)
{ {
ase_awk_extio_t* epa = (ase_awk_extio_t*)arg; ase_awk_extio_t* epa = (ase_awk_extio_t*)arg;
@ -310,7 +301,7 @@ static ase_ssize_t process_extio_pipe (
return -1; return -1;
} }
static ase_ssize_t process_extio_file ( static ase_ssize_t awk_extio_file (
int cmd, void* arg, ase_char_t* data, ase_size_t size) int cmd, void* arg, ase_char_t* data, ase_size_t size)
{ {
ase_awk_extio_t* epa = (ase_awk_extio_t*)arg; ase_awk_extio_t* epa = (ase_awk_extio_t*)arg;
@ -358,14 +349,6 @@ static ase_ssize_t process_extio_file (
case ASE_AWK_IO_WRITE: case ASE_AWK_IO_WRITE:
{ {
/*
ase_size_t i;
for (i = 0; i < size; i++)
{
if (awk_fputc (data[i], (FILE*)epa->handle) == ASE_CHAR_EOF) return -1;
}
*/
int n = ase_fprintf ( int n = ase_fprintf (
(FILE*)epa->handle, ASE_T("%.*s"), size, data); (FILE*)epa->handle, ASE_T("%.*s"), size, data);
if (n < 0) return -1; if (n < 0) return -1;
@ -394,19 +377,13 @@ static int close_extio_console (ase_awk_extio_t* epa);
static int next_extio_console (ase_awk_extio_t* epa); static int next_extio_console (ase_awk_extio_t* epa);
static ase_size_t infile_no = 0; static ase_size_t infile_no = 0;
static const ase_char_t* infiles[10000] = static const ase_char_t* infiles[1000] =
{ {
/*
ASE_T("c1.txt"),
ASE_T("c2.txt"),
ASE_T("c3.txt"),
*/
ASE_T(""), ASE_T(""),
ASE_NULL ASE_NULL
}; };
static ase_ssize_t awk_extio_console (
static ase_ssize_t process_extio_console (
int cmd, void* arg, ase_char_t* data, ase_size_t size) int cmd, void* arg, ase_char_t* data, ase_size_t size)
{ {
ase_awk_extio_t* epa = (ase_awk_extio_t*)arg; ase_awk_extio_t* epa = (ase_awk_extio_t*)arg;
@ -486,11 +463,9 @@ static ase_ssize_t process_extio_console (
} }
else if (cmd == ASE_AWK_IO_WRITE) else if (cmd == ASE_AWK_IO_WRITE)
{ {
ase_size_t i; int n = ase_fprintf (
for (i = 0; i < size; i++) (FILE*)epa->handle, ASE_T("%.*s"), size, data);
{ if (n < 0) return -1;
if (awk_fputc (data[i], (FILE*)epa->handle) == ASE_CHAR_EOF) return -1;
}
return size; return size;
} }
@ -511,9 +486,6 @@ static int open_extio_console (ase_awk_extio_t* epa)
{ {
/* TODO: OpenConsole in GUI APPLICATION */ /* TODO: OpenConsole in GUI APPLICATION */
/* epa->name is always empty for console */
assert (epa->name[0] == ASE_T('\0'));
awk_dprintf (ASE_T("opening console[%s] of type %x\n"), epa->name, epa->type); awk_dprintf (ASE_T("opening console[%s] of type %x\n"), epa->name, epa->type);
if (epa->mode == ASE_AWK_EXTIO_CONSOLE_READ) if (epa->mode == ASE_AWK_EXTIO_CONSOLE_READ)
@ -785,7 +757,7 @@ static int awk_main (int argc, ase_char_t* argv[])
ase_awk_runcbs_t runcbs; ase_awk_runcbs_t runcbs;
ase_awk_runios_t runios; ase_awk_runios_t runios;
ase_awk_prmfns_t prmfns; ase_awk_prmfns_t prmfns;
struct src_io src_io = { NULL, NULL }; struct awk_src_io src_io = { NULL, NULL };
int opt, i, file_count = 0, errnum; int opt, i, file_count = 0, errnum;
#ifdef _WIN32 #ifdef _WIN32
prmfns_data_t prmfns_data; prmfns_data_t prmfns_data;
@ -957,8 +929,8 @@ static int awk_main (int argc, ase_char_t* argv[])
ase_awk_setoption (awk, opt); ase_awk_setoption (awk, opt);
srcios.in = process_source; srcios.in = awk_srcio_in;
srcios.out = deparse? dump_source: NULL; srcios.out = deparse? awk_srcio_out: NULL;
srcios.custom_data = &src_io; srcios.custom_data = &src_io;
ase_awk_setmaxdepth ( ase_awk_setmaxdepth (
@ -983,10 +955,10 @@ static int awk_main (int argc, ase_char_t* argv[])
signal (SIGINT, stop_run); signal (SIGINT, stop_run);
#endif #endif
runios.pipe = process_extio_pipe; runios.pipe = awk_extio_pipe;
runios.coproc = ASE_NULL; runios.coproc = ASE_NULL;
runios.file = process_extio_file; runios.file = awk_extio_file;
runios.console = process_extio_console; runios.console = awk_extio_console;
runcbs.on_start = on_run_start; runcbs.on_start = on_run_start;
runcbs.on_return = on_run_return; runcbs.on_return = on_run_return;