113 lines
2.3 KiB
C
113 lines
2.3 KiB
C
/*
|
|
* $Id: val.c,v 1.3 2006-03-07 15:55:14 bacon Exp $
|
|
*/
|
|
|
|
#include <xp/awk/awk.h>
|
|
|
|
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_makeintval (xp_long_t v)
|
|
{
|
|
xp_awk_val_int_t* val;
|
|
|
|
val = (xp_awk_val_int_t*) xp_malloc (xp_sizeof(xp_awk_val_int_t));
|
|
if (val == XP_NULL) return XP_NULL;
|
|
|
|
val->type = XP_AWK_VAL_INT;
|
|
val->val = v;
|
|
|
|
return (xp_awk_val_t*)val;
|
|
}
|
|
|
|
xp_awk_val_t* xp_awk_makerealval (xp_real_t v)
|
|
{
|
|
xp_awk_val_real_t* val;
|
|
|
|
val = (xp_awk_val_real_t*) xp_malloc (xp_sizeof(xp_awk_val_real_t));
|
|
if (val == XP_NULL) return XP_NULL;
|
|
|
|
val->type = XP_AWK_VAL_REAL;
|
|
val->val = v;
|
|
|
|
return (xp_awk_val_t*)val;
|
|
}
|
|
|
|
xp_awk_val_t* xp_awk_makestrval (const xp_char_t* str, xp_size_t len)
|
|
{
|
|
xp_awk_val_str_t* val;
|
|
|
|
val = (xp_awk_val_str_t*) xp_malloc (xp_sizeof(xp_awk_val_str_t));
|
|
if (val == XP_NULL) return XP_NULL;
|
|
|
|
val->type = XP_AWK_VAL_STR;
|
|
val->len = len;
|
|
val->buf = xp_strxdup (str, len);
|
|
if (val->buf == XP_NULL) {
|
|
xp_free (val);
|
|
return XP_NULL;
|
|
}
|
|
|
|
return (xp_awk_val_t*)val;
|
|
}
|
|
|
|
void xp_awk_freeval (xp_awk_val_t* val)
|
|
{
|
|
switch (val->type)
|
|
{
|
|
case XP_AWK_VAL_STR:
|
|
xp_free (((xp_awk_val_str_t*)val)->buf);
|
|
default:
|
|
xp_free (val);
|
|
}
|
|
}
|
|
|
|
xp_awk_val_t* xp_awk_cloneval (xp_awk_val_t* val)
|
|
{
|
|
if (val == XP_NULL) return xp_awk_val_nil;
|
|
|
|
switch (val->type)
|
|
{
|
|
case XP_AWK_VAL_NIL:
|
|
return xp_awk_val_nil;
|
|
case XP_AWK_VAL_INT:
|
|
return xp_awk_makeintval (((xp_awk_val_int_t*)val)->val);
|
|
case XP_AWK_VAL_REAL:
|
|
return xp_awk_makerealval (((xp_awk_val_real_t*)val)->val);
|
|
case XP_AWK_VAL_STR:
|
|
return xp_awk_makestrval (
|
|
((xp_awk_val_str_t*)val)->buf,
|
|
((xp_awk_val_str_t*)val)->len);
|
|
}
|
|
|
|
return XP_NULL;
|
|
}
|
|
|
|
void xp_awk_printval (xp_awk_val_t* val)
|
|
{
|
|
// TODO: better value printing......................
|
|
switch (val->type)
|
|
{
|
|
case XP_AWK_VAL_NIL:
|
|
xp_printf (XP_TEXT("nil"));
|
|
break;
|
|
|
|
case XP_AWK_VAL_INT:
|
|
xp_printf (XP_TEXT("%lld"),
|
|
(long long)((xp_awk_val_int_t*)val)->val);
|
|
break;
|
|
|
|
case XP_AWK_VAL_REAL:
|
|
xp_printf (XP_TEXT("%lf"),
|
|
(long double)((xp_awk_val_real_t*)val)->val);
|
|
break;
|
|
|
|
case XP_AWK_VAL_STR:
|
|
xp_printf (XP_TEXT("%s"), ((xp_awk_val_str_t*)val)->buf);
|
|
break;
|
|
|
|
default:
|
|
xp_printf (XP_TEXT("**** INTERNAL ERROR - UNKNOWN VALUE TYPE ****\n"));
|
|
}
|
|
}
|