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-07-07 09:48:23 +00:00
parent e0e3516a51
commit f14e982153
5 changed files with 93 additions and 73 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ase/awk/awk_i.h
View File

@ -1,5 +1,5 @@
/* /*
* $Id: awk_i.h,v 1.28 2006-07-06 15:54:41 bacon Exp $ * $Id: awk_i.h,v 1.29 2006-07-07 09:48:23 bacon Exp $
*/ */
#ifndef _XP_AWK_AWKI_H_ #ifndef _XP_AWK_AWKI_H_
@ -168,6 +168,7 @@ struct xp_awk_run_t
xp_str_t line; xp_str_t line;
xp_awk_val_t* d0; /* $0 */ xp_awk_val_t* d0; /* $0 */
xp_size_t maxflds;
xp_size_t nflds; /* NF */ xp_size_t nflds; /* NF */
struct struct
{ {

6
ase/awk/parse.c
View File

@ -1,5 +1,5 @@
/* /*
* $Id: parse.c,v 1.133 2006-07-02 12:16:24 bacon Exp $ * $Id: parse.c,v 1.134 2006-07-07 09:48:23 bacon Exp $
*/ */
#include <xp/awk/awk_i.h> #include <xp/awk/awk_i.h>
@ -1637,7 +1637,9 @@ static xp_awk_nde_t* __parse_concat (xp_awk_t* awk)
/* TODO: write a better code to do this.... /* TODO: write a better code to do this....
* first of all, is the following check sufficient? */ * first of all, is the following check sufficient? */
while (MATCH(awk,TOKEN_LPAREN) || awk->token.type >= TOKEN_GETLINE) while (MATCH(awk,TOKEN_LPAREN) ||
MATCH(awk,TOKEN_DOLLAR) ||
awk->token.type >= TOKEN_GETLINE)
{ {
right = __parse_additive (awk); right = __parse_additive (awk);
if (right == XP_NULL) if (right == XP_NULL)

128
ase/awk/run.c
View File

@ -1,5 +1,5 @@
/* /*
* $Id: run.c,v 1.125 2006-07-06 15:54:41 bacon Exp $ * $Id: run.c,v 1.126 2006-07-07 09:48:23 bacon Exp $
*/ */
#include <xp/awk/awk_i.h> #include <xp/awk/awk_i.h>
@ -160,6 +160,7 @@ static void __raw_pop_times (xp_awk_run_t* run, xp_size_t times);
static int __read_record (xp_awk_run_t* run); static int __read_record (xp_awk_run_t* run);
static int __split_record (xp_awk_run_t* run); static int __split_record (xp_awk_run_t* run);
static void __clear_record (xp_awk_run_t* run);
static int __val_to_num (xp_awk_val_t* v, xp_long_t* l, xp_real_t* r); static int __val_to_num (xp_awk_val_t* v, xp_long_t* l, xp_real_t* r);
static xp_char_t* __idxnde_to_str (xp_awk_run_t* run, xp_awk_nde_t* nde); static xp_char_t* __idxnde_to_str (xp_awk_run_t* run, xp_awk_nde_t* nde);
@ -263,6 +264,7 @@ static int __open_run (
run->inrec.buf_len = 0; run->inrec.buf_len = 0;
run->inrec.flds = XP_NULL; run->inrec.flds = XP_NULL;
run->inrec.nflds = 0; run->inrec.nflds = 0;
run->inrec.maxflds = 0;
run->inrec.d0 = xp_awk_val_nil; run->inrec.d0 = xp_awk_val_nil;
if (xp_str_open (&run->inrec.line, DEF_BUF_CAPA) == XP_NULL) if (xp_str_open (&run->inrec.line, DEF_BUF_CAPA) == XP_NULL)
{ {
@ -304,17 +306,13 @@ static void __close_run (xp_awk_run_t* run)
xp_awk_map_close (&run->named); xp_awk_map_close (&run->named);
/* destroy input record */ /* destroy input record */
xp_awk_refdownval (run, run->inrec.d0); __clear_record (run);
if (run->inrec.flds != XP_NULL) if (run->inrec.flds != XP_NULL)
{ {
xp_size_t i;
for (i = 0; i < run->inrec.nflds; i++)
xp_awk_refdownval (run, run->inrec.flds[i].val);
xp_free (run->inrec.flds); xp_free (run->inrec.flds);
run->inrec.flds = XP_NULL; run->inrec.flds = XP_NULL;
run->inrec.nflds = 0; run->inrec.maxflds = 0;
} }
xp_assert (run->inrec.nflds == 0);
xp_str_close (&run->inrec.line); xp_str_close (&run->inrec.line);
/* destroy values in free list */ /* destroy values in free list */
@ -1760,26 +1758,11 @@ static xp_awk_val_t* __do_assignment_pos (
if (lv == 0) if (lv == 0)
{ {
__clear_record (run);
if (xp_str_cpy (&run->inrec.line, str) == (xp_size_t)-1) if (xp_str_cpy (&run->inrec.line, str) == (xp_size_t)-1)
{ {
xp_free (str); xp_free (str);
/* clear $0 ... $NF */
if (run->inrec.flds != XP_NULL)
{
xp_size_t i;
for (i = 0; i < run->inrec.nflds; i++)
xp_awk_refdownval (run, run->inrec.flds[i].val);
xp_free (run->inrec.flds);
run->inrec.flds = XP_NULL;
run->inrec.nflds = 0;
}
xp_assert (run->inrec.nflds == 0);
xp_str_clear (&run->inrec.line);
xp_awk_refdownval (run, run->inrec.d0);
run->inrec.d0 = xp_awk_val_nil;
PANIC (run, errnum); PANIC (run, errnum);
} }
xp_free (str); xp_free (str);
@ -1790,6 +1773,8 @@ static xp_awk_val_t* __do_assignment_pos (
} }
else else
{ {
/*__clear_record (run, without_destroying_line);*/
/* TODO: handle out of bound index... */ /* TODO: handle out of bound index... */
/* TODO: reimplement this entire function ........... */ /* TODO: reimplement this entire function ........... */
@ -1827,9 +1812,7 @@ static xp_awk_val_t* __do_assignment_pos (
if (__split_record (run) == -1) if (__split_record (run) == -1)
{ {
xp_str_clear (&run->inrec.line); __clear_record (run);
xp_awk_refdownval (run, run->inrec.d0);
run->inrec.d0 = xp_awk_val_nil;
return XP_NULL; return XP_NULL;
} }
@ -3609,7 +3592,7 @@ static int __read_record (xp_awk_run_t* run)
xp_char_t c; xp_char_t c;
xp_awk_val_t* v; xp_awk_val_t* v;
xp_str_clear (&run->inrec.line); __clear_record (run);
while (1) while (1)
{ {
@ -3653,21 +3636,19 @@ static int __read_record (xp_awk_run_t* run)
XP_STR_LEN(&run->inrec.line)); XP_STR_LEN(&run->inrec.line));
if (v == XP_NULL) if (v == XP_NULL)
{ {
xp_awk_refdownval (run, run->inrec.d0); __clear_record (run);
run->inrec.d0 = xp_awk_val_nil;
xp_str_clear (&run->inrec.line);
PANIC_I (run, XP_AWK_ENOMEM); PANIC_I (run, XP_AWK_ENOMEM);
} }
xp_awk_refdownval (run, run->inrec.d0); xp_assert (run->inrec.d0 == xp_awk_val_nil);
/* the record has been cleared in the beginning of the function.
* so xp_awk_refdownval is not needed over run->inrec.d0 */
run->inrec.d0 = v; run->inrec.d0 = v;
xp_awk_refupval (v); xp_awk_refupval (v);
if (__split_record (run) == -1) if (__split_record (run) == -1)
{ {
xp_awk_refdownval (run, run->inrec.d0); __clear_record (run);
run->inrec.d0 = xp_awk_val_nil;
xp_str_clear (&run->inrec.line);
return -1; return -1;
} }
@ -3680,17 +3661,9 @@ static int __split_record (xp_awk_run_t* run)
/* TODO: set NR after split */ /* TODO: set NR after split */
xp_char_t* p, * tok; xp_char_t* p, * tok;
xp_size_t len, tok_len, nflds, i; xp_size_t len, tok_len, nflds;
/* clear input record fields */ /* inrec should be cleared before __split_record is called */
if (run->inrec.flds != XP_NULL)
{
for (i = 0; i < run->inrec.nflds; i++)
xp_awk_refdownval (run, run->inrec.flds[i].val);
xp_free (run->inrec.flds);
run->inrec.flds = XP_NULL;
run->inrec.nflds = 0;
}
xp_assert (run->inrec.nflds == 0); xp_assert (run->inrec.nflds == 0);
/* scan the input record to count the fields */ /* scan the input record to count the fields */
@ -3700,15 +3673,31 @@ static int __split_record (xp_awk_run_t* run)
nflds = 0; nflds = 0;
while (p != XP_NULL) while (p != XP_NULL)
{ {
//p = xp_strxtok (p, len, XP_T(" \t"), &tok, &tok_len); p = xp_strxtok (p, len, XP_T(" \t"), &tok, &tok_len);
p = xp_strtok (p, XP_T(" \t"), &tok, &tok_len);
if (nflds == 0 && p == XP_NULL && tok_len == 0)
{
/* no fields */
return 0;
}
xp_assert ((tok != XP_NULL && tok_len > 0) || tok_len == 0);
nflds++; nflds++;
len = len - tok_len; len = XP_STR_LEN(&run->inrec.line) -
(p - XP_STR_BUF(&run->inrec.line));
} }
/* allocate space */ /* allocate space */
run->inrec.flds = xp_malloc (xp_sizeof(*run->inrec.flds) * nflds); if (nflds > run->inrec.maxflds)
if (run->inrec.flds == XP_NULL) PANIC_I (run, XP_AWK_ENOMEM); {
void* tmp = xp_malloc (
xp_sizeof(*run->inrec.flds) * nflds);
if (tmp == XP_NULL) PANIC_I (run, XP_AWK_ENOMEM);
run->inrec.flds = tmp;
run->inrec.maxflds = nflds;
}
/* scan again and split it */ /* scan again and split it */
p = XP_STR_BUF(&run->inrec.line); p = XP_STR_BUF(&run->inrec.line);
@ -3716,9 +3705,9 @@ static int __split_record (xp_awk_run_t* run)
while (p != XP_NULL) while (p != XP_NULL)
{ {
// TODO: fix the problem in in xp_strxtok... p = xp_strxtok (p, len, XP_T(" \t"), &tok, &tok_len);
//p = xp_strxtok (p, len, XP_T(" \t"), &tok, &tok_len);
p = xp_strtok (p, XP_T(" \t"), &tok, &tok_len); xp_assert ((tok != XP_NULL && tok_len > 0) || tok_len == 0);
run->inrec.flds[run->inrec.nflds].ptr = tok; run->inrec.flds[run->inrec.nflds].ptr = tok;
run->inrec.flds[run->inrec.nflds].len = tok_len; run->inrec.flds[run->inrec.nflds].len = tok_len;
@ -3726,25 +3715,44 @@ static int __split_record (xp_awk_run_t* run)
xp_awk_makestrval (tok, tok_len); xp_awk_makestrval (tok, tok_len);
if (run->inrec.flds[run->inrec.nflds].val == XP_NULL) if (run->inrec.flds[run->inrec.nflds].val == XP_NULL)
{ {
for (i = 0; i < run->inrec.nflds; i++) __clear_record (run);
xp_awk_refdownval (run, run->inrec.flds[i].val);
xp_free (run->inrec.flds);
run->inrec.flds = XP_NULL;
run->inrec.nflds = 0;
PANIC_I (run, XP_AWK_ENOMEM); PANIC_I (run, XP_AWK_ENOMEM);
} }
xp_awk_refupval (run->inrec.flds[run->inrec.nflds].val); xp_awk_refupval (run->inrec.flds[run->inrec.nflds].val);
run->inrec.nflds++; run->inrec.nflds++;
len = len - tok_len; len = XP_STR_LEN(&run->inrec.line) -
(p - XP_STR_BUF(&run->inrec.line));
} }
xp_assert (nflds == run->inrec.nflds); xp_assert (nflds == run->inrec.nflds);
return 0; return 0;
} }
static void __clear_record (xp_awk_run_t* run)
{
xp_size_t i;
xp_awk_refdownval (run, run->inrec.d0);
run->inrec.d0 = xp_awk_val_nil;
if (run->inrec.nflds > 0)
{
xp_assert (run->inrec.flds != XP_NULL);
for (i = 0; i < run->inrec.nflds; i++)
{
xp_assert (run->inrec.flds[i].val != XP_NULL);
xp_awk_refdownval (run, run->inrec.flds[i].val);
}
run->inrec.nflds = 0;
}
xp_assert (run->inrec.nflds == 0);
xp_str_clear (&run->inrec.line);
}
static int __val_to_num (xp_awk_val_t* v, xp_long_t* l, xp_real_t* r) static int __val_to_num (xp_awk_val_t* v, xp_long_t* l, xp_real_t* r)
{ {
if (v->type == XP_AWK_VAL_NIL) if (v->type == XP_AWK_VAL_NIL)

26
ase/awk/sa.c
View File

@ -1,5 +1,5 @@
/* /*
* $Id: sa.c,v 1.26 2006-07-06 15:54:41 bacon Exp $ * $Id: sa.c,v 1.27 2006-07-07 09:48:23 bacon Exp $
*/ */
#include <xp/awk/awk_i.h> #include <xp/awk/awk_i.h>
@ -113,23 +113,28 @@ xp_char_t* xp_strtok (const xp_char_t* s,
if (delim_mode == 0) { if (delim_mode == 0) {
/* when XP_NULL is given as "delim", it has an effect of cutting /* when XP_NULL is given as "delim", it has an effect of cutting
preceding and trailing space characters off "s". */ preceding and trailing space characters off "s". */
while ((c = *p) != XP_T('\0')) { while ((c = *p) != XP_T('\0'))
if (!xp_isspace(c)) { {
if (!xp_isspace(c))
{
if (sp == XP_NULL) sp = p; if (sp == XP_NULL) sp = p;
ep = p; ep = p;
} }
p++; p++;
} }
} }
else if (delim_mode == 1) { else if (delim_mode == 1)
while ((c = *p) != XP_T('\0')) { {
while ((c = *p) != XP_T('\0'))
{
if (xp_isspace(c)) break; if (xp_isspace(c)) break;
if (sp == XP_NULL) sp = p; if (sp == XP_NULL) sp = p;
ep = p++; ep = p++;
} }
} }
else { /* if (delim_mode == 2) { */ else /* if (delim_mode == 2) */
{
while ((c = *p) != XP_T('\0')) { while ((c = *p) != XP_T('\0')) {
if (xp_isspace(c)) { if (xp_isspace(c)) {
p++; p++;
@ -181,9 +186,12 @@ xp_char_t* xp_strxtok (const xp_char_t* s, xp_size_t len,
{ {
/* when XP_NULL is given as "delim", it has an effect of cutting /* when XP_NULL is given as "delim", it has an effect of cutting
preceding and trailing space xp_char_tacters off "s". */ preceding and trailing space xp_char_tacters off "s". */
while (p < end) { while (p < end)
{
c = *p; c = *p;
if (!xp_isspace(c)) {
if (!xp_isspace(c))
{
if (sp == XP_NULL) sp = p; if (sp == XP_NULL) sp = p;
ep = p; ep = p;
} }
@ -200,7 +208,7 @@ xp_char_t* xp_strxtok (const xp_char_t* s, xp_size_t len,
ep = p++; ep = p++;
} }
} }
else /* if (delim_mode == 2) { */ else /* if (delim_mode == 2) */
{ {
while (p < end) while (p < end)
{ {

3
ase/test/awk/t14.awk
View File

@ -20,7 +20,8 @@ END
{ {
//$3 = "10"; //$3 = "10";
//print $0, $2, $5; //print $0, $2, $5;
print $0 = "wow this is just a test"; //print $0 = "wow this is just a test";
print $0 = "";
//print $0; //print $0;
print a = $6; print a = $6;
print a; print a;