hyung-hwan/qse
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Browse Source
This commit is contained in:
hyung-hwan
2008-08-04 08:06:43 +00:00
parent 0c923ff71c
commit cbb37554c1
4 changed files with 122 additions and 95 deletions
Download Patch File Download Diff File Expand all files Collapse all files

175
ase/cmd/awk/awk.c
View File

@ -1,5 +1,5 @@
/*
* $Id: awk.c 312 2008-08-02 13:40:04Z baconevi $
* $Id: awk.c 313 2008-08-03 14:06:43Z baconevi $
*/
#include <ase/awk/awk.h>
@ -32,10 +32,23 @@
#include <crtdbg.h>
#endif
struct awk_src_io
struct srcio_t
{
const ase_char_t* input_file;
FILE* input_handle;
int type; /* file or string */
union
{
struct
{
ase_char_t* ptr;
ase_char_t* cur;
} str;
struct {
int count;
const ase_char_t* name[128];
FILE* handle;
} file;
} data;
};
#if defined(_WIN32)
@ -61,7 +74,6 @@ static void custom_awk_dprintf (void* custom, const ase_char_t* fmt, ...)
va_end (ap);
}
/* custom memory management function */
static void* custom_awk_malloc (void* custom, ase_size_t n)
{
@ -118,26 +130,28 @@ static int custom_awk_sprintf (
static ase_ssize_t awk_srcio_in (
int cmd, void* arg, ase_char_t* data, ase_size_t size)
{
struct awk_src_io* src_io = (struct awk_src_io*)arg;
struct srcio_t* srcio = (struct srcio_t*)arg;
ase_cint_t c;
if (cmd == ASE_AWK_IO_OPEN)
{
if (src_io->input_file == ASE_NULL) return 0;
src_io->input_handle = ase_fopen (src_io->input_file, ASE_T("r"));
if (src_io->input_handle == NULL) return -1;
if (srcio->input_file == ASE_NULL) return 0;
srcio->input_handle = ase_fopen (srcio->input_file, ASE_T("r"));
if (srcio->input_handle == NULL) return -1;
ase_awk_setsinname ();
return 1;
}
else if (cmd == ASE_AWK_IO_CLOSE)
{
if (src_io->input_file == ASE_NULL) return 0;
fclose ((FILE*)src_io->input_handle);
if (srcio->input_file == ASE_NULL) return 0;
fclose ((FILE*)srcio->input_handle);
return 0;
}
else if (cmd == ASE_AWK_IO_READ)
{
ase_ssize_t n = 0;
FILE* fp = (FILE*)src_io->input_handle;
FILE* fp = (FILE*)srcio->input_handle;
while (!ase_feof(fp) && n < size)
{
ase_cint_t c = ase_fgetc (fp);
@ -150,6 +164,11 @@ static ase_ssize_t awk_srcio_in (
}
return n;
}
/*
else if (cmd == ASE_AWK_IO_NEXT)
{
}
*/
return -1;
}
@ -157,7 +176,7 @@ static ase_ssize_t awk_srcio_in (
static ase_ssize_t awk_srcio_out (
int cmd, void* arg, ase_char_t* data, ase_size_t size)
{
/*struct awk_src_io* src_io = (struct awk_src_io*)arg;*/
/*struct srcio_t* srcio = (struct srcio_t*)arg;*/
if (cmd == ASE_AWK_IO_OPEN) return 1;
else if (cmd == ASE_AWK_IO_CLOSE)
@ -344,7 +363,6 @@ static ase_ssize_t awk_extio_file (
errarg.ptr = epa->name;
errarg.len = ase_strlen(epa->name);
ase_awk_setrunerror (epa->run, ASE_AWK_EOPEN, 0, &errarg, 1);
return -1;
}
@ -997,13 +1015,13 @@ static void handle_args (argc, argv)
return -1;
}
if (src_io.input_file != NULL)
if (srcio.input_file != NULL)
{
print_usage (argv[0]);
return -1;
}
src_io.input_file = argv[i];
srcio.input_file = argv[i];
mode = 0;
}
else if (mode == 2) /* argument mode */
@ -1030,7 +1048,7 @@ static void handle_args (argc, argv)
}
#endif
static int handle_args (int argc, ase_char_t* argv[], struct awk_src_io* src_io)
static int handle_args (int argc, ase_char_t* argv[], struct srcio_t* srcio)
{
ase_cint_t c;
static ase_opt_lng_t lng[] =
@ -1080,8 +1098,8 @@ static int handle_args (int argc, ase_char_t* argv[], struct awk_src_io* src_io)
return 1;
case ASE_T('f'):
src_io->input_file = opt.arg;
ase_printf (ASE_T("[file] = %s\n"), opt.arg);
srcio.type = SIO_FILE;
srcio.data.file.name = opt.arg;
break;
case ASE_T('F'):
@ -1116,7 +1134,7 @@ static int handle_args (int argc, ase_char_t* argv[], struct awk_src_io* src_io)
}
}
if (src_io->input_file == ASE_NULL)
if (srcio->input_file == ASE_NULL)
{
/* the first is the source code... */
}
@ -1142,62 +1160,26 @@ static int handle_args (int argc, ase_char_t* argv[], struct awk_src_io* src_io)
return 0;
}
typedef struct extension_t
typedef struct extensrcion_t
{
ase_mmgr_t mmgr;
ase_awk_prmfns_t prmfns;
}
extension_t;
extensrcion_t;
static void* fuser (void* org, void* space)
{
extension_t* ext = (extension_t*)space;
/* remember the memory manager into the extension */
extensrcion_t* ext = (extensrcion_t*)space;
/* remember the memory manager into the extensrcion */
ext->mmgr = *(ase_mmgr_t*)org;
return &ext->mmgr;
}
static int awk_main (int argc, ase_char_t* argv[])
static ase_awk_t* open_awk (void)
{
ase_awk_t* awk;
ase_mmgr_t mmgr;
extension_t* extension;
ase_awk_srcios_t srcios;
struct awk_src_io src_io = { NULL, NULL };
int opt, i, file_count = 0;
#ifdef _WIN32
struct mmgr_data_t mmgr_data;
#endif
const ase_char_t* mfn = ASE_NULL;
int mode = 0;
int runarg_count = 0;
ase_awk_runarg_t runarg[128];
int deparse = 0;
opt = ASE_AWK_IMPLICIT |
ASE_AWK_EXTIO |
ASE_AWK_NEWLINE |
ASE_AWK_BASEONE |
ASE_AWK_PABLOCK;
i = handle_args (argc, argv, &src_io);
if (i == -1)
{
print_usage (argv[0]);
return -1;
}
if (i == 1) return 0;
infiles[file_count] = ASE_NULL;
runarg[runarg_count].ptr = NULL;
runarg[runarg_count].len = 0;
if (mode != 0 || src_io.input_file == NULL)
{
print_usage (argv[0]);
return -1;
}
extensrcion_t* extensrcion;
memset (&mmgr, 0, ASE_SIZEOF(mmgr));
mmgr.malloc = custom_awk_malloc;
@ -1216,7 +1198,7 @@ static int awk_main (int argc, ase_char_t* argv[])
mmgr.custom_data = ASE_NULL;
#endif
awk = ase_awk_open (&mmgr, ASE_SIZEOF(extension_t), fuser);
awk = ase_awk_open (&mmgr, ASE_SIZEOF(extensrcion_t), fuser);
if (awk == ASE_NULL)
{
#ifdef _WIN32
@ -1226,16 +1208,62 @@ static int awk_main (int argc, ase_char_t* argv[])
return -1;
}
app_awk = awk;
ase_awk_setccls (awk, ASE_GETCCLS());
extension = (extension_t*) ase_awk_getextension (awk);
extension->prmfns.pow = custom_awk_pow;
extension->prmfns.sprintf = custom_awk_sprintf;
extension->prmfns.dprintf = custom_awk_dprintf;
extension->prmfns.custom_data = ASE_NULL;
ase_awk_setprmfns (awk, &extension->prmfns);
extensrcion = (extensrcion_t*) ase_awk_getextensrcion (awk);
extensrcion->prmfns.pow = custom_awk_pow;
extensrcion->prmfns.sprintf = custom_awk_sprintf;
extensrcion->prmfns.dprintf = custom_awk_dprintf;
extensrcion->prmfns.custom_data = ASE_NULL;
ase_awk_setprmfns (awk, &extensrcion->prmfns);
ase_awk_setoption (awk, ASE_AWK_IMPLICIT | ASE_AWK_EXTIO | ASE_AWK_NEWLINE | ASE_AWK_BASEONE | ASE_AWK_PABLOCK);
return awk;
}
static int awk_main (int argc, ase_char_t* argv[])
{
ase_awk_t* awk;
ase_mmgr_t mmgr;
extensrcion_t* extensrcion;
ase_awk_srcios_t srcios;
struct srcio_t srcio = { NULL, NULL };
int i, file_count = 0;
#ifdef _WIN32
struct mmgr_data_t mmgr_data;
#endif
const ase_char_t* mfn = ASE_NULL;
int mode = 0;
int runarg_count = 0;
ase_awk_runarg_t runarg[128];
int deparse = 0;
i = handle_args (argc, argv, &srcio);
if (i == -1)
{
print_usage (argv[0]);
return -1;
}
if (i == 1) return 0;
infiles[file_count] = ASE_NULL;
runarg[runarg_count].ptr = NULL;
runarg[runarg_count].len = 0;
if (mode != 0 || srcio.input_file == NULL)
{
print_usage (argv[0]);
return -1;
}
awk = open_awk ();
if (awk == ASE_NULL) return -1;
app_awk = awk;
if (ase_awk_addfunc (awk,
ASE_T("sleep"), 5, 0,
@ -1248,7 +1276,6 @@ static int awk_main (int argc, ase_char_t* argv[])
return -1;
}
ase_awk_setoption (awk, opt);
/*
ase_awk_seterrstr (awk, ASE_AWK_EGBLRED, ASE_T("\uC804\uC5ED\uBCC0\uC218 \'%.*s\'\uAC00 \uC7AC\uC815\uC758 \uB418\uC5C8\uC2B5\uB2C8\uB2E4"));
@ -1257,7 +1284,7 @@ static int awk_main (int argc, ase_char_t* argv[])
srcios.in = awk_srcio_in;
srcios.out = deparse? awk_srcio_out: NULL;
srcios.custom_data = &src_io;
srcios.custom_data = &srcio;
ase_awk_setmaxdepth (
awk, ASE_AWK_DEPTH_BLOCK_PARSE | ASE_AWK_DEPTH_EXPR_PARSE, 50);
@ -1349,8 +1376,6 @@ int ase_main (int argc, ase_achar_t* argv[])
/*#if defined(_MSC_VER)
_CrtDumpMemoryLeaks ();
#endif*/
_tprintf (_T("Press ENTER to quit\n"));
getchar ();
#endif
return n;

4
ase/include/ase/awk/awk.h
View File

@ -1,5 +1,5 @@
/*
* $Id: awk.h 283 2008-07-22 13:12:56Z baconevi $
* $Id: awk.h 313 2008-08-03 14:06:43Z baconevi $
*
* {License}
*/
@ -602,6 +602,8 @@ ase_awk_t* ase_awk_open (
ase_fuser_t mmgr_fuser
);
ase_awk_t* ase_awk_openstd (void);
/*
* destroy an ase_awk_instance
*

2
ase/lib/awk/makefile.am
View File

@ -4,7 +4,7 @@ AUTOMAKE_OPTIONS = nostdinc
AM_CPPFLAGS = -I$(top_srcdir)/include
lib_LTLIBRARIES = libaseawk.la
libaseawk_la_SOURCES = awk.c err.c tree.c tab.c parse.c run.c rec.c val.c func.c misc.c extio.c awk_i.h extio.h func.h misc.h parse.h run.h tab.h tree.h
libaseawk_la_SOURCES = awk.c err.c tree.c tab.c parse.c run.c rec.c val.c func.c misc.c extio.c std.c awk_i.h extio.h func.h misc.h parse.h run.h tab.h tree.h
libaseawk_la_LDFLAGS= -L../cmn -version-info 1:0:0
libaseawk_la_LIBADD= -lasecmn

4
ase/lib/utl/getopt.c
View File

@ -1,5 +1,5 @@
/*
* $Id: getopt.c 290 2008-07-27 06:16:54Z baconevi $
* $Id: getopt.c 313 2008-08-03 14:06:43Z baconevi $
*
* {License}
*/
@ -140,7 +140,7 @@ ase_cint_t ase_getopt (int argc, ase_char_t* const* argv, ase_opt_t* opt)
return o->val;
}
if (*end == ASE_T('=')) *end = ASE_T('\0');
/*if (*end == ASE_T('=')) *end = ASE_T('\0');*/
opt->lngopt = opt->cur;
return BADCH;
}