106 lines
2.1 KiB
C
106 lines
2.1 KiB
C
/*
|
|
* $Id: val.h,v 1.19 2006-04-21 17:24:31 bacon Exp $
|
|
*/
|
|
|
|
#ifndef _XP_AWK_VAL_H_
|
|
#define _XP_AWK_VAL_H_
|
|
|
|
#ifndef _XP_AWK_AWK_H_
|
|
#error Never include this file directly. Include <xp/awk/awk.h> instead
|
|
#endif
|
|
|
|
enum
|
|
{
|
|
XP_AWK_VAL_NIL = 0,
|
|
XP_AWK_VAL_INT = 1,
|
|
XP_AWK_VAL_REAL = 2,
|
|
XP_AWK_VAL_STR = 3,
|
|
XP_AWK_VAL_MAP = 4
|
|
};
|
|
|
|
typedef struct xp_awk_val_t xp_awk_val_t;
|
|
typedef struct xp_awk_val_nil_t xp_awk_val_nil_t;
|
|
typedef struct xp_awk_val_int_t xp_awk_val_int_t;
|
|
typedef struct xp_awk_val_real_t xp_awk_val_real_t;
|
|
typedef struct xp_awk_val_str_t xp_awk_val_str_t;
|
|
typedef struct xp_awk_val_map_t xp_awk_val_map_t;
|
|
|
|
#define XP_AWK_VAL_HDR \
|
|
unsigned int type: 3; \
|
|
unsigned int ref: 28
|
|
/*
|
|
#define XP_AWK_VAL_HDR \
|
|
int type: 4; \
|
|
int ref: 27
|
|
*/
|
|
|
|
struct xp_awk_val_t
|
|
{
|
|
XP_AWK_VAL_HDR;
|
|
};
|
|
|
|
/* XP_AWK_VAL_NIL */
|
|
struct xp_awk_val_nil_t
|
|
{
|
|
XP_AWK_VAL_HDR;
|
|
};
|
|
|
|
/* XP_AWK_VAL_INT */
|
|
struct xp_awk_val_int_t
|
|
{
|
|
XP_AWK_VAL_HDR;
|
|
xp_long_t val;
|
|
};
|
|
|
|
/* XP_AWK_VAL_REAL */
|
|
struct xp_awk_val_real_t
|
|
{
|
|
XP_AWK_VAL_HDR;
|
|
xp_real_t val;
|
|
};
|
|
|
|
/* XP_AWK_VAL_STR */
|
|
struct xp_awk_val_str_t
|
|
{
|
|
XP_AWK_VAL_HDR;
|
|
xp_char_t* buf;
|
|
xp_size_t len;
|
|
};
|
|
|
|
/* XP_AWK_VAL_MAP */
|
|
struct xp_awk_val_map_t
|
|
{
|
|
XP_AWK_VAL_HDR;
|
|
xp_awk_map_t* map;
|
|
};
|
|
|
|
#ifdef __cplusplus
|
|
extern "C" {
|
|
#endif
|
|
|
|
extern xp_awk_val_t* xp_awk_val_nil;
|
|
|
|
xp_awk_val_t* xp_awk_makeintval (xp_awk_run_t* run, xp_long_t v);
|
|
xp_awk_val_t* xp_awk_makerealval (xp_awk_run_t* run, xp_real_t v);
|
|
xp_awk_val_t* xp_awk_makestrval (const xp_char_t* str, xp_size_t len);
|
|
xp_awk_val_t* xp_awk_makestrval2 (
|
|
const xp_char_t* str1, xp_size_t len1,
|
|
const xp_char_t* str2, xp_size_t len2);
|
|
xp_awk_val_t* xp_awk_makemapval (xp_awk_run_t* run);
|
|
|
|
xp_bool_t xp_awk_isbuiltinval (xp_awk_val_t* val);
|
|
void xp_awk_freeval (xp_awk_run_t* run, xp_awk_val_t* val, xp_bool_t cache);
|
|
void xp_awk_refupval (xp_awk_val_t* val);
|
|
void xp_awk_refdownval (xp_awk_run_t* run, xp_awk_val_t* val);
|
|
void xp_awk_refdownval_nofree (xp_awk_run_t* run, xp_awk_val_t* val);
|
|
|
|
xp_awk_val_t* xp_awk_cloneval (xp_awk_run_t* run, xp_awk_val_t* val);
|
|
xp_bool_t xp_awk_boolval (xp_awk_val_t* val);
|
|
void xp_awk_printval (xp_awk_val_t* val);
|
|
|
|
#ifdef __cplusplus
|
|
}
|
|
#endif
|
|
|
|
#endif
|