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

changed awk according to other previous changes

Browse Source
This commit is contained in:
hyung-hwan 2008-10-13 09:08:26 +00:00
parent 204f833d16
commit 5cb4f03cf9
3 changed files with 106 additions and 164 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,5 +1,5 @@
/* /*
* $Id: awk.c 415 2008-10-10 11:16:31Z baconevi $ * $Id: awk.c 417 2008-10-12 15:08:26Z baconevi $
*/ */
#include <ase/awk/awk.h> #include <ase/awk/awk.h>
@ -30,6 +30,8 @@
#define _CRTDBG_MAP_ALLOC #define _CRTDBG_MAP_ALLOC
#include <crtdbg.h> #include <crtdbg.h>
#endif #endif
#else
#include <unistd.h>
#endif #endif
#define SRCIO_FILE 1 #define SRCIO_FILE 1
@ -122,90 +124,6 @@ static int custom_awk_sprintf (
return n; return n;
} }
static ase_ssize_t awk_srcio_in_str (
int cmd, srcio_data_t* siod, ase_char_t* data, ase_size_t size)
{
return -1;
}
static ase_ssize_t awk_srcio_in_file (
int cmd, srcio_data_t* siod, ase_char_t* data, ase_size_t size)
{
ase_cint_t c;
if (cmd == ASE_AWK_IO_OPEN)
{
if (siod->data.file.cur == ASE_NULL) return 0;
siod->data.file.handle = ase_fopen (ASE_SLL_DPTR(siod->data.file.cur), ASE_T("r"));
if (siod->data.file.handle == NULL) return -1;
/*
ase_awk_setsinname ();
*/
return 1;
}
else if (cmd == ASE_AWK_IO_CLOSE)
{
if (siod->data.file.cur == ASE_NULL) return 0;
fclose (siod->data.file.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;
retry:
fp = siod->data.file.handle;
while (!ase_feof(fp) && n < size)
{
ase_cint_t c = ase_fgetc (fp);
if (c == ASE_CHAR_EOF)
{
if (ase_ferror(fp)) n = -1;
break;
}
data[n++] = c;
}
if (n == 0)
{
siod->data.file.cur = ASE_SLL_NEXT(siod->data.file.cur);
if (siod->data.file.cur != ASE_NULL)
{
ase_fclose (fp);
siod->data.file.handle = ase_fopen (ASE_SLL_DPTR(siod->data.file.cur), ASE_T("r"));
if (siod->data.file.handle == NULL) return -1;
goto retry;
}
}
return n;
}
return -1;
}
static ase_ssize_t awk_srcio_in (
int cmd, void* arg, ase_char_t* data, ase_size_t size)
{
ase_cint_t c;
if (((srcio_data_t*)arg)->type == SRCIO_STR)
{
return awk_srcio_in_str (cmd, arg, data, size);
}
else
{
return awk_srcio_in_file (cmd, arg, data, size);
}
}
static ase_ssize_t awk_srcio_out ( 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)
{ {
@ -955,11 +873,14 @@ static void out_of_memory (void)
struct argout_t struct argout_t
{ {
ase_sll_t* sf; ase_char_t* iss; /* input source string */
ase_map_t* vm; ase_char_t** isf; /* input source files */
ase_size_t isfl; /* the number of input source filse */
ase_char_t* osf; /* output source file */
ase_map_t* vm;
}; };
static int handle_args (int argc, ase_char_t* argv[], srcio_data_t* siod, struct argout_t* ao) static int handle_args (int argc, ase_char_t* argv[], struct argout_t* ao)
{ {
static ase_opt_lng_t lng[] = static ase_opt_lng_t lng[] =
{ {
@ -994,17 +915,17 @@ static int handle_args (int argc, ase_char_t* argv[], srcio_data_t* siod, struct
}; };
ase_cint_t c; ase_cint_t c;
ase_sll_t* sf = ASE_NULL; ase_size_t isfc = 16;
ase_size_t isfl = 0;
ase_char_t** isf = ASE_NULL;
ase_map_t* vm = ASE_NULL; ase_map_t* vm = ASE_NULL;
sf = ase_sll_open (ASE_NULL, 0); isf = (ase_char_t**)malloc (ASE_SIZEOF(*isf) * isfc);
if (sf == ASE_NULL) if (isf == ASE_NULL)
{ {
out_of_memory (); out_of_memory ();
ABORT (on_error); ABORT (on_error);
} }
ase_sll_setscale (sf, ASE_SIZEOF(opt.arg[0]));
ase_sll_setcopier (sf, ASE_SLL_COPIER_INLINE);
vm = ase_map_open (ASE_NULL, 0, 30, 70); vm = ase_map_open (ASE_NULL, 0, 30, 70);
if (vm == ASE_NULL) if (vm == ASE_NULL)
@ -1027,19 +948,27 @@ static int handle_args (int argc, ase_char_t* argv[], srcio_data_t* siod, struct
case ASE_T('h'): case ASE_T('h'):
print_usage (argv[0]); print_usage (argv[0]);
if (sf != NULL) ase_sll_close (sf); if (isf != ASE_NULL) free (isf);
if (vm != ASE_NULL) ase_map_close (vm);
return 1; return 1;
case ASE_T('f'): case ASE_T('f'):
{ {
ase_size_t sz = ase_strlen(opt.arg) + 1; if (isfl >= isfc)
if (ase_sll_pushtail(sf, opt.arg, sz) == ASE_NULL)
{ {
out_of_memory (); ase_char_t** tmp;
ABORT (on_error); tmp = (ase_char_t**)realloc (isf, ASE_SIZEOF(*isf)*(isfc+16));
if (tmp == ASE_NULL)
{
out_of_memory ();
ABORT (on_error);
}
isf = tmp;
isfc = isfc + 16;
} }
isf[isfl++] = opt.arg;
break; break;
} }
@ -1079,8 +1008,7 @@ static int handle_args (int argc, ase_char_t* argv[], srcio_data_t* siod, struct
ase_printf (ASE_T("Error: illegal option - %c\n"), opt.opt); ase_printf (ASE_T("Error: illegal option - %c\n"), opt.opt);
} }
if (sf != ASE_NULL) ase_sll_close (sf); ABORT (on_error);
return -1;
} }
case ASE_T(':'): case ASE_T(':'):
@ -1103,7 +1031,7 @@ static int handle_args (int argc, ase_char_t* argv[], srcio_data_t* siod, struct
} }
if (ASE_SLL_SIZE(sf) == 0) if (isfl <= 0)
{ {
if (opt.ind >= argc) if (opt.ind >= argc)
{ {
@ -1111,28 +1039,25 @@ static int handle_args (int argc, ase_char_t* argv[], srcio_data_t* siod, struct
ABORT (on_error); ABORT (on_error);
} }
siod->type = SRCIO_STR; ao->iss = argv[opt.ind++];
siod->data.str.ptr = argv[opt.ind++]; ao->isf = ASE_NULL;
siod->data.str.cur = NULL; ao->isfl = 0;
} }
else else
{ {
/* read source code from the file */ ao->iss = ASE_NULL;
siod->type = SRCIO_FILE; ao->isf = isf;
siod->data.file.sll = sf; ao->isfl = isfl;
siod->data.file.cur = ase_sll_gethead(sf);
siod->data.file.handle = NULL;
} }
/* remaining args are input(console) file names */ /* TODO; remaining args are input(console) file names */
ao->sf = sf;
ao->vm = vm; ao->vm = vm;
return 0; return 0;
on_error: on_error:
if (sf != ASE_NULL) ase_sll_close (sf); if (isf != ASE_NULL) free (isf);
if (vm != ASE_NULL) ase_map_close (vm); if (vm != ASE_NULL) ase_map_close (vm);
return -1; return -1;
} }
@ -1146,7 +1071,7 @@ extension_t;
static void init_awk_extension (ase_awk_t* awk) static void init_awk_extension (ase_awk_t* awk)
{ {
extension_t* ext = ase_awk_getextension(awk); extension_t* ext = (extension_t*) ase_awk_getextension(awk);
ext->mmgr = *ase_awk_getmmgr(awk); ext->mmgr = *ase_awk_getmmgr(awk);
ase_awk_setmmgr (awk, &ext->mmgr); ase_awk_setmmgr (awk, &ext->mmgr);
@ -1227,7 +1152,7 @@ static ase_awk_t* open_awk (void)
static void close_awk (ase_awk_t* awk) static void close_awk (ase_awk_t* awk)
{ {
extension_t* ext = ase_awk_getextension(awk); extension_t* ext = (extension_t*)ase_awk_getextension(awk);
#ifdef _WIN32 #ifdef _WIN32
HANDLE heap = (HANDLE)ext->mmgr->data; HANDLE heap = (HANDLE)ext->mmgr->data;
@ -1243,7 +1168,6 @@ static void close_awk (ase_awk_t* awk)
static int awk_main (int argc, ase_char_t* argv[]) static int awk_main (int argc, ase_char_t* argv[])
{ {
ase_awk_t* awk; ase_awk_t* awk;
srcio_data_t siod;
ase_awk_srcios_t srcios; ase_awk_srcios_t srcios;
int i, file_count = 0; int i, file_count = 0;
@ -1252,10 +1176,11 @@ static int awk_main (int argc, ase_char_t* argv[])
int runarg_count = 0; int runarg_count = 0;
ase_awk_runarg_t runarg[128]; ase_awk_runarg_t runarg[128];
int deparse = 0; int deparse = 0;
struct argout_t ao; struct argout_t ao;
i = handle_args (argc, argv, &siod, &ao); ase_memset (&ao, 0, ASE_SIZEOF(ao));
i = handle_args (argc, argv, &ao);
if (i == -1) if (i == -1)
{ {
print_usage (argv[0]); print_usage (argv[0]);
@ -1272,12 +1197,7 @@ static int awk_main (int argc, ase_char_t* argv[])
app_awk = awk; app_awk = awk;
///////////////// if (ase_awk_parsefiles (awk, ao.isf, ao.isfl, ao.osf) == -1)
srcios.in = awk_srcio_in;
srcios.out = deparse? awk_srcio_out: NULL;
srcios.data = &siod;
if (ase_awk_parse (awk, &srcios) == -1)
{ {
ase_printf ( ase_printf (
ASE_T("PARSE ERROR: CODE [%d] LINE [%u] %s\n"), ASE_T("PARSE ERROR: CODE [%d] LINE [%u] %s\n"),
@ -1287,20 +1207,6 @@ static int awk_main (int argc, ase_char_t* argv[])
close_awk (awk); close_awk (awk);
return -1; return -1;
} }
/////////////////
#if 0
if (ase_awk_parsefiles (awk, ASE_ARR_PTR(stab), ASE_ARR_LEN(stab)) == -1)
{
ase_printf (
ASE_T("PARSE ERROR: CODE [%d] LINE [%u] %s\n"),
ase_awk_geterrnum(awk),
(unsigned int)ase_awk_geterrlin(awk),
ase_awk_geterrmsg(awk));
close_awk (awk);
return -1;
}
#endif
#ifdef _WIN32 #ifdef _WIN32
@ -1317,8 +1223,10 @@ static int awk_main (int argc, ase_char_t* argv[])
close_awk (awk); close_awk (awk);
if (ao.iss != ASE_NULL) free (ao.iss);
// TODO: destroy siod.... if (ao.isf != ASE_NULL) free (ao.isf);
if (ao.osf != ASE_NULL) free (ao.osf);
if (ao.vm != ASE_NULL) ase_map_close (ao.vm);
return 0; return 0;
} }

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

@ -1,5 +1,5 @@
/* /*
* $Id: awk.h 404 2008-09-30 11:14:20Z baconevi $ * $Id: awk.h 417 2008-10-12 15:08:26Z baconevi $
* *
* {License} * {License}
*/ */
@ -639,6 +639,11 @@ ase_mmgr_t* ase_awk_getmmgr (
); );
/******/ /******/
void ase_awk_setmmgr (
ase_awk_t* awk,
ase_mmgr_t* mmgr
);
/****f* ase.awk/ase_awk_getextension /****f* ase.awk/ase_awk_getextension
* NAME * NAME
* ase_awk_getextension - get the extension * ase_awk_getextension - get the extension
@ -766,34 +771,55 @@ int ase_awk_setword (
*/ */
int ase_awk_setrexfns (ase_awk_t* awk, ase_awk_rexfns_t* rexfns); int ase_awk_setrexfns (ase_awk_t* awk, ase_awk_rexfns_t* rexfns);
/** /****f* ase.awk/ase_awk_addglobal
* NAME: add an intrinsic global variable. * NAME
* ase_awk_addglobal - add an intrinsic global variable.
* *
* RETURNS: * RETURN
* On success, the ID of the global variable added is returned. * On success, the ID of the global variable added is returned.
* On failure, -1 is returned. * On failure, -1 is returned.
*/
int ase_awk_addglobal (ase_awk_t* awk, const ase_char_t* name, ase_size_t len);
/**
* Deletes a instrinsic global variable.
* *
* @return * SYNOPSIS
* On success, 0 is returned.
* On failure, -1 is returned.
*/ */
int ase_awk_delglobal (ase_awk_t* awk, const ase_char_t* name, ase_size_t len); int ase_awk_addglobal (
ase_awk_t* awk,
const ase_char_t* name,
ase_size_t len
);
/******/
/** /****f* ase.awk/ase_awk_delglobal
* Parses the source code * NAME
* ase_awk_delglobal - delete an instrinsic global variable.
* *
* @return * SYNOPSIS
* On success, 0 is returned.
* On failure, -1 is returned.
*/ */
int ase_awk_parse (ase_awk_t* awk, ase_awk_srcios_t* srcios); int ase_awk_delglobal (
ase_awk_t* awk,
const ase_char_t* name,
ase_size_t len
);
/******/
int ase_awk_parsefiles (ase_awk_t* awk, const ase_char_t* files[], ase_size_t count); /****f* ase.awk/ase_awk_parse
* NAME
* ase_awk_parse - parse source code
*
* SYNOPSIS
*/
int ase_awk_parse (
ase_awk_t* awk,
ase_awk_srcios_t* srcios
);
/******/
int ase_awk_parsefiles (
ase_awk_t* awk,
const ase_char_t* isf[] /* input source file names */,
ase_size_t isfl /* the number of input source files */,
const ase_char_t* osf /* an output source file name */
);
/** /**

14
ase/lib/awk/std.c
View File

@ -74,6 +74,12 @@ struct sf_t
ase_size_t index; /* current file index */ ase_size_t index; /* current file index */
ASE_FILE* handle; /* the handle to an open file */ ASE_FILE* handle; /* the handle to an open file */
} in; } in;
struct
{
const ase_char_t* file;
ASE_FILE* handle;
} out;
}; };
static ase_ssize_t sf_in (int cmd, void* arg, ase_char_t* data, ase_size_t size) static ase_ssize_t sf_in (int cmd, void* arg, ase_char_t* data, ase_size_t size)
@ -177,16 +183,18 @@ static ase_ssize_t sf_out (
} }
#endif #endif
int ase_awk_parsefiles (ase_awk_t* awk, const ase_char_t* files[], ase_size_t count) int ase_awk_parsefiles (ase_awk_t* awk, const ase_char_t** isf, ase_size_t isfl, const ase_char_t* osf)
{ {
sf_t sf; sf_t sf;
ase_awk_srcios_t sio; ase_awk_srcios_t sio;
sf.in.files = files; sf.in.files = isf;
sf.in.count = count; sf.in.count = isfl;
sf.in.index = 0; sf.in.index = 0;
sf.in.handle = ASE_NULL; sf.in.handle = ASE_NULL;
sf.out.file = osf;
sio.in = sf_in; sio.in = sf_in;
//sio.out = deparse? sf_out: NULL; //sio.out = deparse? sf_out: NULL;
sio.out = ASE_NULL; sio.out = ASE_NULL;