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-07-25 08:08:37 +00:00
parent bcb66176b0
commit 3a8e597e03
3 changed files with 141 additions and 61 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -5,6 +5,7 @@
#include <ase/awk/awk.h>
#include <ase/utl/helper.h>
#include <ase/utl/getopt.h>
#include <ase/utl/stdio.h>
#include <ase/utl/main.h>
@ -1029,36 +1030,39 @@ static void handle_args (argc, argv)
}
#endif
#if 0
static int handle_args (int argc, ase_char_t* argv[])
static int handle_args (int argc, ase_char_t* argv[], struct awk_src_io* src_io)
{
ase_opt_t opt;
ase_cint_t c;
static ase_opt_lng_t lng[] =
{
{ ASE_T("implicit"), ASE_OPT_OPTIONAL, ASE_NULL, 0 },
{ ASE_T("explicit"), ASE_OPT_OPTIONAL, ASE_NULL, 0 },
{ ASE_T("bxor"), ASE_OPT_OPTIONAL, ASE_NULL, 0 },
{ ASE_T("shift"), ASE_OPT_OPTIONAL, ASE_NULL, 0 },
{ ASE_T("idiv"), ASE_OPT_OPTIONAL, ASE_NULL, 0 },
{ ASE_T("extio"), ASE_OPT_OPTIONAL, ASE_NULL, 0 },
{ ASE_T("newline"), ASE_OPT_OPTIONAL, ASE_NULL, 0 },
{ ASE_T("baseone"), ASE_OPT_OPTIONAL, ASE_NULL, 0 },
{ ASE_T("stripspaces"), ASE_OPT_OPTIONAL, ASE_NULL, 0 },
{ ASE_T("nextofile"), ASE_OPT_OPTIONAL, ASE_NULL, 0 },
{ ASE_T("crfl"), ASE_OPT_OPTIONAL, ASE_NULL, 0 },
{ ASE_T("argstomain"), ASE_OPT_OPTIONAL, ASE_NULL, 0 },
{ ASE_T("reset"), ASE_OPT_OPTIONAL, ASE_NULL, 0 },
{ ASE_T("maptovar"), ASE_OPT_OPTIONAL, ASE_NULL, 0 },
{ ASE_T("pablock"), ASE_OPT_OPTIONAL, ASE_NULL, 0 },
ase_memset (&opt, 0, ASE_SIZEOF(opt));
opt.str = ASE_T("hm:i:");
{ ASE_T("help"), ASE_OPT_NONE, ASE_NULL, ASE_T('h')},
{ ASE_T("main"), ASE_OPT_REQUIRED, ASE_NULL, ASE_T('m')}
};
{ ASE_T("implicit"), ASE_OPT_OPTIONAL, ASE_NULL, 0 },
{ ASE_T("explicit"), ASE_OPT_OPTIONAL, ASE_NULL, 0 },
{ ASE_T("bxor"), ASE_OPT_OPTIONAL, ASE_NULL, 0 },
{ ASE_T("shift"), ASE_OPT_OPTIONAL, ASE_NULL, 0 },
{ ASE_T("idiv"), ASE_OPT_OPTIONAL, ASE_NULL, 0 },
{ ASE_T("extio"), ASE_OPT_OPTIONAL, ASE_NULL, 0 },
{ ASE_T("newline"), ASE_OPT_OPTIONAL, ASE_NULL, 0 },
{ ASE_T("baseone"), ASE_OPT_OPTIONAL, ASE_NULL, 0 },
{ ASE_T("stripspaces"), ASE_OPT_OPTIONAL, ASE_NULL, 0 },
{ ASE_T("nextofile"), ASE_OPT_OPTIONAL, ASE_NULL, 0 },
{ ASE_T("crfl"), ASE_OPT_OPTOINAL, ASE_NULL, 0 },
{ ASE_T("argstomain"), ASE_OPT_OPTOINAL, ASE_NULL, 0 },
{ ASE_T("reset"), ASE_OPT_OPTOINAL, ASE_NULL, 0 },
{ ASE_T("maptovar"), ASE_OPT_OPTOINAL, ASE_NULL, 0 },
{ ASE_T("pablock"), ASE_OPT_OPTOINAL, ASE_NULL, 0 },
static ase_opt_t opt =
{
ASE_T("hf:m:i:"),
lng
};
{ ASE_T("help"), ASE_OPT_NONE, ASE_NULL, ASE_T('h')},
{ ASE_T("main"), ASE_OPT_REQUIRED, ASE_NULL, ASE_T('m')},
opt.lng = lng;
ase_printf (ASE_T("111111111111111111\n"));
while ((c = ase_getopt (argc, argv, &opt)) != ASE_CHAR_EOF)
{
switch (c)
@ -1067,12 +1071,9 @@ static int handle_args (int argc, ase_char_t* argv[])
print_usage (argv[0]);
return -1;
case ASE_T('m'):
opt_memsize = ase_strtoi(opt.arg);
break;
case ASE_T('i'):
opt_meminc = ase_strtoi(opt.arg);
case ASE_T('f'):
src_io->input_file = opt.arg;
break;
case ASE_T('?'):
@ -1097,9 +1098,9 @@ static int handle_args (int argc, ase_char_t* argv[])
return -1;
}
ase_printf (ASE_T("1xx11111111111111111\n"));
return 0;
}
#endif
typedef struct extension_t
{
@ -1140,13 +1141,11 @@ static int awk_main (int argc, ase_char_t* argv[])
ASE_AWK_BASEONE |
ASE_AWK_PABLOCK;
#if 0
if (handle_args (argc, argv) == -1)
if (handle_args (argc, argv, &src_io) == -1)
{
print_usage (argv[0]);
return -1;
}
#endif
infiles[file_count] = ASE_NULL;
runarg[runarg_count].ptr = NULL;

20
ase/include/ase/utl/getopt.h
View File

@ -1,5 +1,5 @@
/*
* $Id: getopt.h 285 2008-07-23 03:59:57Z baconevi $
* $Id: getopt.h 287 2008-07-24 14:08:37Z baconevi $
*
* {License}
*/
@ -10,11 +10,16 @@
#include <ase/types.h>
#include <ase/macros.h>
typedef struct ase_opt_t ase_opt_t;
#define ASE_OPT_NONE 0
#define ASE_OPT_REQUIRED 1
#define ASE_OPT_OPTIONAL 2
struct ase_opt_long_t
typedef struct ase_opt_t ase_opt_t;
typedef struct ase_opt_lng_t ase_opt_lng_t;
struct ase_opt_lng_t
{
const ase_char_t* name;
const ase_char_t* str;
int has_arg;
int* flag;
int val;
@ -23,8 +28,8 @@ struct ase_opt_long_t
struct ase_opt_t
{
/* input */
const ase_char_t* str;
// ase_opt_long_t* opt_long;
const ase_char_t* str; /* option string */
ase_opt_lng_t* lng; /* long options */
/* output */
ase_cint_t opt; /* character checked for validity */
@ -34,6 +39,9 @@ struct ase_opt_t
/* input + output */
int ind; /* index into parent argv vector */
/* output */
int lngind;
/* internal */
ase_char_t* cur;
};

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

@ -1,5 +1,5 @@
/*
* $Id: getopt.c 286 2008-07-23 14:11:17Z baconevi $
* $Id: getopt.c 287 2008-07-24 14:08:37Z baconevi $
*
* {License}
*/
@ -130,15 +130,14 @@ ase_cint_t ase_getopt (int argc, ase_char_t* const* argv, ase_opt_t* opt)
ase_cint_t ase_getopt (int argc, ase_char_t* const* argv, ase_opt_t* opt)
{
static int lastidx,lastofs;
ase_char_t* tmp;
ase_char_t* oli; /* option letter list index */
if (opt->ind == 0) opt->ind = 1;
again:
//again:
if (opt->ind > argc || !argv[opt->ind] ||
argv[opt->ind][0] != ASE_T('-') ||
argv[opt->ind][1] == AES_T('\0')) return -1;
argv[opt->ind][1] == ASE_T('\0')) return -1;
if (argv[opt->ind][1] == ASE_T('-') &&
argv[opt->ind][2] == ASE_T('\0'))
@ -147,12 +146,13 @@ again:
return -1;
}
if (argv[opt->ind][1] == ASE_T('-'))
// TODO: how to handle when lng is off? is this correct?
if (opt->lng != ASE_NULL && argv[opt->ind][1] == ASE_T('-'))
{
/* a long option */
ase_char_t* arg = argv[opt->ind] + 2;
const struct option* o;
const ase_opt_lng_t* o;
/* TODO: rewrite it.. */
/*char* max=strchr(arg,'=');
@ -161,14 +161,13 @@ again:
while (*max != ASE_T('\0') && *max != ASE_T('=')) max++;
//for (o = longopts; o->name != ASE_NULL; o++)
for (o = opt->lopt; o->name != ASE_NULL; o++)
for (o = opt->lng; o->str != ASE_NULL; o++)
{
//if (!strncmp (o->name, arg, max - arg))
if (ase_strxcmp (arg, max-arg, o->name) != 0) continue;
if (ase_strxcmp (arg, max-arg, o->str) != 0) continue;
/* match */
//if (longindex != ASE_NULL) *longindex =o - longopts;
if (longindex != ASE_NULL) opt->lidx = o - opt->lopt;
opt->lngind = o - opt->lng;
if (o->has_arg > 0)
{
if (*max == ASE_T('='))
@ -197,10 +196,8 @@ again:
opt->ind++;
if (o->flag)
*(o->flag)=o->val;
else
return o->val;
if (o->flag) *(o->flag) = o->val;
else return o->val;
return 0;
}
@ -217,18 +214,23 @@ again:
return ASE_T('?');
}
if (lastidx!=opt->ind) {
#if 0
if (lastidx != opt->ind)
{
lastidx=opt->ind; lastofs=0;
}
optopt=argv[opt->ind][lastofs+1];
if ((tmp=strchr(optstring,optopt))) {
if (*tmp==0)
opt->opt=argv[opt->ind][lastofs+1];
tmp=ase_strchr(opt->str,opt->opt);
if (tmp != ASE_NULL)
{
if (tmp[0] == ASE_T('\0'))
{ /* apparently, we looked for \0, i.e. end of argument */
++opt->ind;
goto again;
}
if (tmp[1]==':')
if (tmp[1] == ASE_T(':'))
{ /* argument expected */
if (tmp[2]==':' || argv[opt->ind][lastofs+2]) { /* "-foo", return "oo" as opt->arg */
if (!*(opt->arg=argv[opt->ind]+lastofs+2)) opt->arg=0;
@ -237,7 +239,7 @@ again:
opt->arg=argv[opt->ind+1];
if (!opt->arg) { /* missing argument */
++opt->ind;
if (*optstring==':') return ':';
if (*opt->str==':') return ':';
getopterror(1);
return ':';
}
@ -246,7 +248,7 @@ again:
else
{
++lastofs;
return optopt;
return opt->opt;
}
found:
++opt->ind;
@ -258,5 +260,76 @@ found:
++opt->ind;
return '?';
}
#endif
if (opt->cur == ASE_NULL)
{
opt->cur = EMSG;
opt->ind = 1;
}
if (*opt->cur == ASE_T('\0'))
{
/* update scanning pointer */
if (opt->ind >= argc || *(opt->cur = argv[opt->ind]) != ASE_T('-'))
{
opt->cur = EMSG;
return ASE_CHAR_EOF;
}
if (opt->cur[1] != ASE_T('\0') && *++opt->cur == ASE_T('-'))
{
/* found "--" */
++opt->ind;
opt->cur = EMSG;
return ASE_CHAR_EOF;
}
} /* option letter okay? */
if ((opt->opt = *opt->cur++) == ASE_T(':') ||
(oli = ase_strchr(opt->str, opt->opt)) == ASE_NULL)
{
/*
* if the user didn't specify '-' as an option,
* assume it means EOF.
*/
if (opt->opt == (int)'-') return ASE_CHAR_EOF;
if (*opt->cur == ASE_T('\0')) ++opt->ind;
return BADCH;
}
if (*++oli != ASE_T(':'))
{
/* don't need argument */
opt->arg = ASE_NULL;
if (*opt->cur == ASE_T('\0')) ++opt->ind;
}
else
{
/* need an argument */
if (*opt->cur != ASE_T('\0'))
{
/* no white space */
opt->arg = opt->cur;
}
else if (argc <= ++opt->ind)
{
/* no arg */
opt->cur = EMSG;
/*if (*opt->str == ASE_T(':'))*/ return BADARG;
/*return BADCH;*/
}
else
{
/* white space */
opt->arg = argv[opt->ind];
}
opt->cur = EMSG;
++opt->ind;
}
return opt->opt; /* dump back option letter */
}