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-18 12:08:05 +00:00
parent 8df5e66f4f
commit 2029f55c46
2 changed files with 33 additions and 33 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
ase/awk/rex.c
View File

@ -1,5 +1,5 @@
/* /*
* $Id: rex.c,v 1.60 2007-02-11 04:44:39 bacon Exp $ * $Id: rex.c,v 1.61 2007-02-18 12:08:05 bacon Exp $
* *
* {License} * {License}
*/ */
@ -1769,12 +1769,12 @@ static const ase_byte_t* __print_pattern (const ase_byte_t* p)
el = *(ase_size_t*)p; p += ASE_SIZEOF(el); el = *(ase_size_t*)p; p += ASE_SIZEOF(el);
#ifdef DEBUG_REX #ifdef DEBUG_REX
xp_printf (ASE_T("__print_pattern: NB = %u, EL = %u\n"), (unsigned int)nb, (unsigned int)el); ase_printf (ASE_T("__print_pattern: NB = %u, EL = %u\n"), (unsigned int)nb, (unsigned int)el);
#endif #endif
for (i = 0; i < nb; i++) for (i = 0; i < nb; i++)
{ {
if (i != 0) xp_printf (ASE_T("|")); if (i != 0) ase_printf (ASE_T("|"));
p = __print_branch (p); p = __print_branch (p);
} }
@ -1788,7 +1788,7 @@ static const ase_byte_t* __print_branch (const ase_byte_t* p)
na = *(ase_size_t*)p; p += ASE_SIZEOF(na); na = *(ase_size_t*)p; p += ASE_SIZEOF(na);
bl = *(ase_size_t*)p; p += ASE_SIZEOF(bl); bl = *(ase_size_t*)p; p += ASE_SIZEOF(bl);
#ifdef DEBUG_REX #ifdef DEBUG_REX
xp_printf (ASE_T("__print_branch: NA = %u, BL = %u\n"), (unsigned int) na, (unsigned int)bl); ase_printf (ASE_T("__print_branch: NA = %u, BL = %u\n"), (unsigned int) na, (unsigned int)bl);
#endif #endif
for (i = 0; i < na; i++) for (i = 0; i < na; i++)
@ -1805,23 +1805,23 @@ static const ase_byte_t* __print_atom (const ase_byte_t* p)
if (cp->cmd == CMD_BOL) if (cp->cmd == CMD_BOL)
{ {
xp_printf (ASE_T("^")); ase_printf (ASE_T("^"));
p += ASE_SIZEOF(*cp); p += ASE_SIZEOF(*cp);
} }
else if (cp->cmd == CMD_EOL) else if (cp->cmd == CMD_EOL)
{ {
xp_printf (ASE_T("$")); ase_printf (ASE_T("$"));
p += ASE_SIZEOF(*cp); p += ASE_SIZEOF(*cp);
} }
else if (cp->cmd == CMD_ANY_CHAR) else if (cp->cmd == CMD_ANY_CHAR)
{ {
xp_printf (ASE_T(".")); ase_printf (ASE_T("."));
p += ASE_SIZEOF(*cp); p += ASE_SIZEOF(*cp);
} }
else if (cp->cmd == CMD_ORD_CHAR) else if (cp->cmd == CMD_ORD_CHAR)
{ {
p += ASE_SIZEOF(*cp); p += ASE_SIZEOF(*cp);
xp_printf (ASE_T("%c"), *(ase_char_t*)p); ase_printf (ASE_T("%c"), *(ase_char_t*)p);
p += ASE_SIZEOF(ase_char_t); p += ASE_SIZEOF(ase_char_t);
} }
else if (cp->cmd == CMD_CHARSET) else if (cp->cmd == CMD_CHARSET)
@ -1829,8 +1829,8 @@ static const ase_byte_t* __print_atom (const ase_byte_t* p)
ase_size_t csc, csl, i; ase_size_t csc, csl, i;
p += ASE_SIZEOF(*cp); p += ASE_SIZEOF(*cp);
xp_printf (ASE_T("[")); ase_printf (ASE_T("["));
if (cp->negate) xp_printf (ASE_T("^")); if (cp->negate) ase_printf (ASE_T("^"));
csc = *(ase_size_t*)p; p += ASE_SIZEOF(csc); csc = *(ase_size_t*)p; p += ASE_SIZEOF(csc);
csl = *(ase_size_t*)p; p += ASE_SIZEOF(csl); csl = *(ase_size_t*)p; p += ASE_SIZEOF(csl);
@ -1845,51 +1845,51 @@ static const ase_byte_t* __print_atom (const ase_byte_t* p)
if (c0 == CHARSET_ONE) if (c0 == CHARSET_ONE)
{ {
c1 = *(ase_char_t*)p; c1 = *(ase_char_t*)p;
xp_printf (ASE_T("%c"), c1); ase_printf (ASE_T("%c"), c1);
} }
else if (c0 == CHARSET_RANGE) else if (c0 == CHARSET_RANGE)
{ {
c1 = *(ase_char_t*)p; c1 = *(ase_char_t*)p;
p += ASE_SIZEOF(c1); p += ASE_SIZEOF(c1);
c2 = *(ase_char_t*)p; c2 = *(ase_char_t*)p;
xp_printf (ASE_T("%c-%c"), c1, c2); ase_printf (ASE_T("%c-%c"), c1, c2);
} }
else if (c0 == CHARSET_CLASS) else if (c0 == CHARSET_CLASS)
{ {
c1 = *(ase_char_t*)p; c1 = *(ase_char_t*)p;
xp_printf (ASE_T("[:%s:]"), __char_class[c1].name); ase_printf (ASE_T("[:%s:]"), __char_class[c1].name);
} }
else else
{ {
xp_printf (ASE_T("should never happen - invalid charset code\n")); ase_printf (ASE_T("should never happen - invalid charset code\n"));
} }
p += ASE_SIZEOF(c1); p += ASE_SIZEOF(c1);
} }
xp_printf (ASE_T("]")); ase_printf (ASE_T("]"));
} }
else if (cp->cmd == CMD_GROUP) else if (cp->cmd == CMD_GROUP)
{ {
p += ASE_SIZEOF(*cp); p += ASE_SIZEOF(*cp);
xp_printf (ASE_T("(")); ase_printf (ASE_T("("));
p = __print_pattern (p); p = __print_pattern (p);
xp_printf (ASE_T(")")); ase_printf (ASE_T(")"));
} }
else else
{ {
xp_printf (ASE_T("should never happen - invalid atom code\n")); ase_printf (ASE_T("should never happen - invalid atom code\n"));
} }
if (cp->lbound == 0 && cp->ubound == BOUND_MAX) if (cp->lbound == 0 && cp->ubound == BOUND_MAX)
xp_printf (ASE_T("*")); ase_printf (ASE_T("*"));
else if (cp->lbound == 1 && cp->ubound == BOUND_MAX) else if (cp->lbound == 1 && cp->ubound == BOUND_MAX)
xp_printf (ASE_T("+")); ase_printf (ASE_T("+"));
else if (cp->lbound == 0 && cp->ubound == 1) else if (cp->lbound == 0 && cp->ubound == 1)
xp_printf (ASE_T("?")); ase_printf (ASE_T("?"));
else if (cp->lbound != 1 || cp->ubound != 1) else if (cp->lbound != 1 || cp->ubound != 1)
{ {
xp_printf (ASE_T("{%lu,%lu}"), ase_printf (ASE_T("{%lu,%lu}"),
(unsigned long)cp->lbound, (unsigned long)cp->ubound); (unsigned long)cp->lbound, (unsigned long)cp->ubound);
} }

22
ase/awk/val.c
View File

@ -1,5 +1,5 @@
/* /*
* $Id: val.c,v 1.108 2007-02-17 15:26:58 bacon Exp $ * $Id: val.c,v 1.109 2007-02-18 12:08:05 bacon Exp $
* *
* {License} * {License}
*/ */
@ -78,7 +78,7 @@ ase_awk_val_t* ase_awk_makeintval (ase_awk_run_t* run, ase_long_t v)
val->val = v; val->val = v;
val->nde = ASE_NULL; val->nde = ASE_NULL;
/*xp_printf (ASE_T("makeintval => %p\n"), val);*/ /*ase_printf (ASE_T("makeintval => %p\n"), val);*/
return (ase_awk_val_t*)val; return (ase_awk_val_t*)val;
} }
@ -102,7 +102,7 @@ ase_awk_val_t* ase_awk_makerealval (ase_awk_run_t* run, ase_real_t v)
val->val = v; val->val = v;
val->nde = ASE_NULL; val->nde = ASE_NULL;
/*xp_printf (ASE_T("makerealval => %p\n"), val);*/ /*ase_printf (ASE_T("makerealval => %p\n"), val);*/
return (ase_awk_val_t*)val; return (ase_awk_val_t*)val;
} }
@ -130,7 +130,7 @@ ase_awk_val_t* ase_awk_makestrval (
return ASE_NULL; return ASE_NULL;
} }
/*xp_printf (ASE_T("makestrval => %p\n"), val);*/ /*ase_printf (ASE_T("makestrval => %p\n"), val);*/
return (ase_awk_val_t*)val; return (ase_awk_val_t*)val;
} }
@ -171,7 +171,7 @@ ase_awk_val_t* ase_awk_makestrval2 (
return ASE_NULL; return ASE_NULL;
} }
/*xp_printf (ASE_T("makestrval2 => %p\n"), val);*/ /*ase_printf (ASE_T("makestrval2 => %p\n"), val);*/
return (ase_awk_val_t*)val; return (ase_awk_val_t*)val;
} }
@ -209,9 +209,9 @@ ase_awk_val_t* ase_awk_makerexval (
static void __free_map_val (void* run, void* v) static void __free_map_val (void* run, void* v)
{ {
/* /*
xp_printf (ASE_T("refdown in map free...")); ase_printf (ASE_T("refdown in map free..."));
ase_awk_dprintval (v); ase_awk_dprintval (v);
xp_printf (ASE_T("\n")); ase_printf (ASE_T("\n"));
*/ */
ase_awk_refdownval (run, v); ase_awk_refdownval (run, v);
} }
@ -275,9 +275,9 @@ void ase_awk_freeval (ase_awk_run_t* run, ase_awk_val_t* val, ase_bool_t cache)
{ {
if (ase_awk_isbuiltinval(val)) return; if (ase_awk_isbuiltinval(val)) return;
/*xp_printf (ASE_T("freeing [cache=%d] ... "), cache); /*ase_printf (ASE_T("freeing [cache=%d] ... "), cache);
ase_awk_dprintval (val); ase_awk_dprintval (val);
xp_printf (ASE_T("\n"));*/ ase_printf (ASE_T("\n"));*/
if (val->type == ASE_AWK_VAL_NIL) if (val->type == ASE_AWK_VAL_NIL)
{ {
ASE_AWK_FREE (run->awk, val); ASE_AWK_FREE (run->awk, val);
@ -366,9 +366,9 @@ run->awk->prmfns.dprintf (ASE_T("\n"));
if (val->ref <= 0) if (val->ref <= 0)
{ {
/* /*
xp_printf (ASE_T("**FREEING [")); ase_printf (ASE_T("**FREEING ["));
ase_awk_dprintval (val); ase_awk_dprintval (val);
xp_printf (ASE_T("]\n")); ase_printf (ASE_T("]\n"));
*/ */
ase_awk_freeval(run, val, ase_true); ase_awk_freeval(run, val, ase_true);
} }