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-03-07 16:09:18 +00:00
parent c9b5100bb8
commit fb10fd5f5b
3 changed files with 14 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ase/awk/map.c
View File

@ -1,5 +1,5 @@
/* /*
* $Id: map.c,v 1.6 2006-03-07 15:55:14 bacon Exp $ * $Id: map.c,v 1.7 2006-03-07 16:09:18 bacon Exp $
*/ */
#include <xp/awk/awk.h> #include <xp/awk/awk.h>
@ -162,7 +162,7 @@ xp_awk_pair_t* xp_awk_map_set (xp_awk_map_t* map, xp_char_t* key, void* val)
} }
xp_awk_pair_t* xp_awk_map_getpair ( xp_awk_pair_t* xp_awk_map_getpair (
xp_awk_map_t* map, xp_char_t* key, const void** val) xp_awk_map_t* map, xp_char_t* key, void** val)
{ {
xp_awk_pair_t* pair; xp_awk_pair_t* pair;

4
ase/awk/run.c
View File

@ -1,11 +1,13 @@
/* /*
* $Id: run.c,v 1.9 2006-03-07 15:55:14 bacon Exp $ * $Id: run.c,v 1.10 2006-03-07 16:09:18 bacon Exp $
*/ */
#include <xp/awk/awk.h> #include <xp/awk/awk.h>
#ifndef __STAND_ALONE #ifndef __STAND_ALONE
#include <xp/bas/assert.h> #include <xp/bas/assert.h>
#include <xp/bas/string.h>
#include <xp/bas/memory.h>
#endif #endif
static int __activate_block (xp_awk_t* awk, xp_awk_nde_blk_t* nde); static int __activate_block (xp_awk_t* awk, xp_awk_nde_blk_t* nde);

13
ase/awk/val.c
View File

@ -1,9 +1,14 @@
/* /*
* $Id: val.c,v 1.3 2006-03-07 15:55:14 bacon Exp $ * $Id: val.c,v 1.4 2006-03-07 16:09:18 bacon Exp $
*/ */
#include <xp/awk/awk.h> #include <xp/awk/awk.h>
#ifndef __STAND_ALONE
#include <xp/bas/string.h>
#include <xp/bas/memory.h>
#endif
static xp_awk_val_nil_t __awk_nil = { XP_AWK_VAL_NIL }; static xp_awk_val_nil_t __awk_nil = { XP_AWK_VAL_NIL };
xp_awk_val_t* xp_awk_val_nil = (xp_awk_val_t*)&__awk_nil; xp_awk_val_t* xp_awk_val_nil = (xp_awk_val_t*)&__awk_nil;
@ -11,7 +16,7 @@ xp_awk_val_t* xp_awk_makeintval (xp_long_t v)
{ {
xp_awk_val_int_t* val; xp_awk_val_int_t* val;
val = (xp_awk_val_int_t*) xp_malloc (xp_sizeof(xp_awk_val_int_t)); val = (xp_awk_val_int_t*)xp_malloc(xp_sizeof(xp_awk_val_int_t));
if (val == XP_NULL) return XP_NULL; if (val == XP_NULL) return XP_NULL;
val->type = XP_AWK_VAL_INT; val->type = XP_AWK_VAL_INT;
@ -24,7 +29,7 @@ xp_awk_val_t* xp_awk_makerealval (xp_real_t v)
{ {
xp_awk_val_real_t* val; xp_awk_val_real_t* val;
val = (xp_awk_val_real_t*) xp_malloc (xp_sizeof(xp_awk_val_real_t)); val = (xp_awk_val_real_t*)xp_malloc(xp_sizeof(xp_awk_val_real_t));
if (val == XP_NULL) return XP_NULL; if (val == XP_NULL) return XP_NULL;
val->type = XP_AWK_VAL_REAL; val->type = XP_AWK_VAL_REAL;
@ -37,7 +42,7 @@ xp_awk_val_t* xp_awk_makestrval (const xp_char_t* str, xp_size_t len)
{ {
xp_awk_val_str_t* val; xp_awk_val_str_t* val;
val = (xp_awk_val_str_t*) xp_malloc (xp_sizeof(xp_awk_val_str_t)); val = (xp_awk_val_str_t*)xp_malloc(xp_sizeof(xp_awk_val_str_t));
if (val == XP_NULL) return XP_NULL; if (val == XP_NULL) return XP_NULL;
val->type = XP_AWK_VAL_STR; val->type = XP_AWK_VAL_STR;