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-11-15 05:49:22 +00:00
parent 4d2dca2438
commit 57721d5b86
8 changed files with 145 additions and 75 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
ase/awk/makefile.tcc
View File

@ -3,14 +3,14 @@
#
SRCS = awk.c err.c tree.c str.c tab.c map.c parse.c \
run.c rec.c val.c misc.c extio.c rex.c
run.c rec.c val.c func.c misc.c extio.c rex.c
OBJS = awk.obj err.obj tree.obj str.obj tab.obj map.obj parse.obj \
run.obj rec.obj val.obj misc.obj extio.obj rex.obj
run.obj rec.obj val.obj func.obj misc.obj extio.obj rex.obj
OUT = aseawk.lib
CC = tcc
AR = tlib
CFLAGS = -1 -O -mh -w -f87 -G -I..\.. -Ddos
CFLAGS = -1 -O -mh -w -f87 -G -g0 -I..\.. -D_DEBUG
all: $(OBJS)
-del $(OUT)
@ -24,6 +24,7 @@ all: $(OBJS)
$(AR) $(OUT) +run.obj
$(AR) $(OUT) +rec.obj
$(AR) $(OUT) +val.obj
$(AR) $(OUT) +func.obj
$(AR) $(OUT) +misc.obj
$(AR) $(OUT) +extio.obj
$(AR) $(OUT) +rex.obj

5
ase/awk/rex.c
View File

@ -1,5 +1,5 @@
/*
* $Id: rex.c,v 1.41 2006-10-27 10:34:40 bacon Exp $
* $Id: rex.c,v 1.42 2006-11-15 05:49:22 bacon Exp $
*/
#include <ase/awk/awk_i.h>
@ -1696,6 +1696,8 @@ static ase_bool_t __cc_isxdigit (ase_awk_t* awk, ase_char_t c)
return ASE_AWK_ISXDIGIT (awk, c);
}
#ifdef DEBUG_REX
void ase_awk_printrex (void* rex)
{
__print_pattern (rex);
@ -1836,3 +1838,4 @@ static const ase_byte_t* __print_atom (const ase_byte_t* p)
return p;
}
#endif

6
ase/awk/rex.h
View File

@ -1,5 +1,5 @@
/*
* $Id: rex.h,v 1.21 2006-10-24 04:10:12 bacon Exp $
* $Id: rex.h,v 1.22 2006-11-15 05:49:22 bacon Exp $
**/
#ifndef _ASE_AWK_REX_H_
@ -64,7 +64,9 @@ void ase_awk_freerex (ase_awk_t* awk, void* code);
ase_bool_t ase_awk_isemptyrex (ase_awk_t* awk, void* code);
void ase_awk_printrex (void* code);
#ifdef DEBUG_REX
void ase_awk_printrex (void* rex);
#endif
#ifdef __cplusplus
}

11
ase/awk/val.c
View File

@ -1,5 +1,5 @@
/*
* $Id: val.c,v 1.82 2006-11-14 14:54:18 bacon Exp $
* $Id: val.c,v 1.83 2006-11-15 05:49:22 bacon Exp $
*/
#include <ase/awk/awk_i.h>
@ -431,8 +431,10 @@ ase_char_t* ase_awk_valtostr (
}
/* TODO: process more value types */
run->awk->syscas.dprintf (
ASE_T("ERROR: WRONG VALUE TYPE [%d] in ase_awk_valtostr\n"),
v->type);
xp_printf (ASE_T("*** ERROR: WRONG VALUE TYPE [%d] in ase_awk_valtostr v=> %p***\n"), v->type, v);
run->errnum = ASE_AWK_EVALTYPE;
return ASE_NULL;
}
@ -650,7 +652,10 @@ int ase_awk_valtonum (
return 0; /* long */
}
xp_printf (ASE_T("*** ERROR: WRONG VALUE TYPE [%d] in ase_awk_valtonum v=> %p***\n"), v->type, v);
run->awk->syscas.dprintf (
ASE_T("ERROR: WRONG VALUE TYPE [%d] in ase_awk_valtonum\n"),
v->type);
run->errnum = ASE_AWK_EVALTYPE;
return -1; /* error */
}