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-10-10 07:06:42 +00:00
parent 12fcd69db8
commit fb46759c43
4 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
ase/awk/run.c
View File

@ -1,5 +1,5 @@
/* /*
* $Id: run.c,v 1.228 2006-10-10 07:02:38 bacon Exp $ * $Id: run.c,v 1.229 2006-10-10 07:06:42 bacon Exp $
*/ */
#include <xp/awk/awk_i.h> #include <xp/awk/awk_i.h>
@ -2833,7 +2833,8 @@ static int __cmp_int_str (
{ {
rr = xp_awk_strxtoreal (run->awk, rr = xp_awk_strxtoreal (run->awk,
((xp_awk_val_str_t*)right)->buf, ((xp_awk_val_str_t*)right)->buf,
((xp_awk_val_str_t*)right)->len, &str); ((xp_awk_val_str_t*)right)->len,
(const xp_char_t**)&str);
if (str == ((xp_awk_val_str_t*)right)->buf + if (str == ((xp_awk_val_str_t*)right)->buf +
((xp_awk_val_str_t*)right)->len) ((xp_awk_val_str_t*)right)->len)
{ {
@ -2907,7 +2908,8 @@ static int __cmp_real_str (
rr = xp_awk_strxtoreal (run->awk, rr = xp_awk_strxtoreal (run->awk,
((xp_awk_val_str_t*)right)->buf, ((xp_awk_val_str_t*)right)->buf,
((xp_awk_val_str_t*)right)->len, &str); ((xp_awk_val_str_t*)right)->len,
(const xp_char_t**)&str);
if (str == ((xp_awk_val_str_t*)right)->buf + if (str == ((xp_awk_val_str_t*)right)->buf +
((xp_awk_val_str_t*)right)->len) ((xp_awk_val_str_t*)right)->len)
{ {
@ -4381,7 +4383,7 @@ static int __get_reference (
if (n == 1) lv = (xp_long_t)rv; if (n == 1) lv = (xp_long_t)rv;
if (!IS_VALID_POSIDX(lv)) PANIC_I (run, XP_AWK_EPOSIDX); if (!IS_VALID_POSIDX(lv)) PANIC_I (run, XP_AWK_EPOSIDX);
*ref = (xp_awk_val_t**)lv; *ref = (xp_awk_val_t**)((xp_size_t)lv);
return 0; return 0;
} }

4
ase/awk/tree.h
View File

@ -1,5 +1,5 @@
/* /*
* $Id: tree.h,v 1.73 2006-09-30 17:02:36 bacon Exp $ * $Id: tree.h,v 1.74 2006-10-10 07:02:38 bacon Exp $
*/ */
#ifndef _XP_AWK_TREE_H_ #ifndef _XP_AWK_TREE_H_
@ -258,7 +258,7 @@ struct xp_awk_nde_call_t
xp_size_t min_args; xp_size_t min_args;
xp_size_t max_args; xp_size_t max_args;
const xp_char_t* arg_spec; const xp_char_t* arg_spec;
int (*handler) (xp_awk_t* awk, void* run); int (*handler) (xp_awk_run_t* awk);
} bfn; } bfn;
/* xp_awk_bfn_t* bfn; */ /* xp_awk_bfn_t* bfn; */
} what; } what;

1
ase/test/awk/comp.awk
View File

@ -117,4 +117,5 @@ BEGIN {
print .123E-; print .123E-;
print +.123E-; print +.123E-;
print -.123E-; print -.123E-;
print -.123E- + "123";
} }

1
ase/test/awk/t28.awk
View File

@ -27,6 +27,7 @@ END {
arr[0] = "xxx"; arr[0] = "xxx";
#print split ("abc def abc", arr); #print split ("abc def abc", arr);
print split ("abc def kkk", j); print split ("abc def kkk", j);
print split ("abc def kkk", $0);
#xyz = 20; #xyz = 20;
#print xyz; #print xyz;