2007-12-30 17:41:49 +01:00
|
|
|
|
/***************************************************************************
|
|
|
|
|
|
2009-08-17 12:41:51 +02:00
|
|
|
|
gbx_value.c
|
2007-12-30 17:41:49 +01:00
|
|
|
|
|
2009-08-17 12:41:51 +02:00
|
|
|
|
(c) 2000-2009 Benoît Minisini <gambas@users.sourceforge.net>
|
2007-12-30 17:41:49 +01:00
|
|
|
|
|
|
|
|
|
This program is free software; you can redistribute it and/or modify
|
|
|
|
|
it under the terms of the GNU General Public License as published by
|
2009-08-17 12:41:51 +02:00
|
|
|
|
the Free Software Foundation; either version 2, or (at your option)
|
2007-12-30 17:41:49 +01:00
|
|
|
|
any later version.
|
|
|
|
|
|
|
|
|
|
This program is distributed in the hope that it will be useful,
|
|
|
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
|
|
GNU General Public License for more details.
|
|
|
|
|
|
|
|
|
|
You should have received a copy of the GNU General Public License
|
|
|
|
|
along with this program; if not, write to the Free Software
|
|
|
|
|
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
|
|
|
|
|
|
|
|
|
|
***************************************************************************/
|
|
|
|
|
|
2008-01-17 22:39:26 +01:00
|
|
|
|
#define __GBX_VALUE_C
|
2007-12-30 17:41:49 +01:00
|
|
|
|
|
|
|
|
|
#include <float.h>
|
|
|
|
|
#include <math.h>
|
|
|
|
|
#include <limits.h>
|
|
|
|
|
|
|
|
|
|
#include "gb_common.h"
|
|
|
|
|
#include "gb_common_case.h"
|
|
|
|
|
|
|
|
|
|
#include "gbx_math.h"
|
|
|
|
|
#include "gbx_type.h"
|
|
|
|
|
|
|
|
|
|
#include "gbx_array.h"
|
|
|
|
|
#include "gbx_string.h"
|
|
|
|
|
#include "gbx_number.h"
|
|
|
|
|
#include "gbx_object.h"
|
|
|
|
|
#include "gbx_variant.h"
|
|
|
|
|
#include "gbx_date.h"
|
|
|
|
|
|
|
|
|
|
#include "gbx_exec.h"
|
|
|
|
|
#include "gbx_local.h"
|
|
|
|
|
#include "gb_common_buffer.h"
|
|
|
|
|
|
|
|
|
|
#include "gbx_value.h"
|
|
|
|
|
|
2009-08-05 18:14:08 +02:00
|
|
|
|
static bool unknown_function(VALUE *value)
|
|
|
|
|
{
|
|
|
|
|
if (value->_function.kind == FUNCTION_UNKNOWN)
|
|
|
|
|
{
|
|
|
|
|
EXEC.property = TRUE;
|
|
|
|
|
EXEC.unknown = CP->load->unknown[value->_function.index];
|
|
|
|
|
|
|
|
|
|
EXEC_special(SPEC_UNKNOWN, value->_function.class, value->_function.object, 0, FALSE);
|
|
|
|
|
|
|
|
|
|
//object = value->_function.object;
|
|
|
|
|
OBJECT_UNREF(value->_function.object, "VALUE_conv");
|
|
|
|
|
|
|
|
|
|
SP--;
|
|
|
|
|
//*val = *SP;
|
|
|
|
|
COPY_VALUE(value, SP);
|
|
|
|
|
return TRUE;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
return FALSE;
|
|
|
|
|
}
|
2007-12-30 17:41:49 +01:00
|
|
|
|
|
2008-01-17 22:39:26 +01:00
|
|
|
|
static void VALUE_put(VALUE *value, void *addr, TYPE type)
|
|
|
|
|
{
|
|
|
|
|
static void *jump[16] = {
|
|
|
|
|
&&__VOID, &&__BOOLEAN, &&__BYTE, &&__SHORT, &&__INTEGER, &&__LONG, &&__SINGLE, &&__FLOAT, &&__DATE,
|
|
|
|
|
&&__STRING, &&__STRING, &&__VARIANT, &&__ARRAY, &&__FUNCTION, &&__CLASS, &&__NULL
|
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
VALUE_conv(value, type);
|
|
|
|
|
|
|
|
|
|
if (TYPE_is_object(type))
|
|
|
|
|
goto __OBJECT;
|
|
|
|
|
else
|
|
|
|
|
goto *jump[type];
|
|
|
|
|
|
|
|
|
|
__BOOLEAN:
|
|
|
|
|
|
|
|
|
|
*((unsigned char *)addr) = (value->_boolean.value != 0 ? 255 : 0);
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
__BYTE:
|
|
|
|
|
|
|
|
|
|
*((unsigned char *)addr) = (unsigned char)(value->_byte.value);
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
__SHORT:
|
|
|
|
|
|
|
|
|
|
*((short *)addr) = (short)(value->_short.value);
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
__INTEGER:
|
|
|
|
|
|
|
|
|
|
*((int *)addr) = value->_integer.value;
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
__LONG:
|
|
|
|
|
|
|
|
|
|
*((int64_t *)addr) = value->_long.value;
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
__SINGLE:
|
|
|
|
|
|
|
|
|
|
*((float *)addr) = (float)value->_float.value;
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
__FLOAT:
|
|
|
|
|
|
|
|
|
|
*((double *)addr) = value->_float.value;
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
__DATE:
|
|
|
|
|
|
|
|
|
|
/* Inverted, if value ~= addr */
|
|
|
|
|
|
|
|
|
|
((int *)addr)[1] = value->_date.time;
|
|
|
|
|
((int *)addr)[0] = value->_date.date;
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
/*__STRING:
|
|
|
|
|
|
|
|
|
|
((int *)addr)[0] = (int)(value->_string.addr + value->_string.start);
|
|
|
|
|
((int *)addr)[1] = value->_string.len;
|
|
|
|
|
return;*/
|
|
|
|
|
|
|
|
|
|
__OBJECT:
|
|
|
|
|
|
|
|
|
|
*((void **)addr) = value->_object.object;
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
__VARIANT:
|
|
|
|
|
|
|
|
|
|
*((VARIANT *)addr) = *((VARIANT *)&value->_variant.vtype);
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
__CLASS:
|
|
|
|
|
|
|
|
|
|
*((void **)addr) = value->_class.class;
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
__VOID:
|
|
|
|
|
__ARRAY:
|
|
|
|
|
__FUNCTION:
|
|
|
|
|
__NULL:
|
|
|
|
|
__STRING:
|
|
|
|
|
|
|
|
|
|
ERROR_panic("Bad type (%d) for VALUE_put", type);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
2007-12-30 17:41:49 +01:00
|
|
|
|
/* This function must keep the datatype, as it is used for initializing local variables */
|
|
|
|
|
|
2008-01-17 22:39:26 +01:00
|
|
|
|
void VALUE_default(VALUE *value, TYPE type)
|
2007-12-30 17:41:49 +01:00
|
|
|
|
{
|
|
|
|
|
static void *jump[16] = {
|
|
|
|
|
&&__VOID, &&__BOOLEAN, &&__BYTE, &&__SHORT, &&__INTEGER, &&__LONG, &&__SINGLE, &&__FLOAT, &&__DATE,
|
|
|
|
|
&&__STRING, &&__STRING, &&__VARIANT, &&__ARRAY, &&__FUNCTION, &&__CLASS, &&__NULL
|
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
value->type = type;
|
|
|
|
|
|
|
|
|
|
if (TYPE_is_object(type))
|
|
|
|
|
goto __OBJECT;
|
|
|
|
|
else
|
|
|
|
|
goto *jump[type];
|
|
|
|
|
|
|
|
|
|
__BOOLEAN:
|
|
|
|
|
__BYTE:
|
|
|
|
|
__SHORT:
|
|
|
|
|
__INTEGER:
|
|
|
|
|
|
|
|
|
|
value->_integer.value = 0;
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
__LONG:
|
|
|
|
|
|
|
|
|
|
value->_long.value = 0;
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
__SINGLE:
|
|
|
|
|
__FLOAT:
|
|
|
|
|
value->_float.value = 0;
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
__STRING:
|
|
|
|
|
value->_string.addr = NULL;
|
|
|
|
|
value->_string.start = 0;
|
|
|
|
|
value->_string.len = 0;
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
__VARIANT:
|
|
|
|
|
value->_variant.vtype = T_NULL;
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
__DATE:
|
|
|
|
|
value->_date.date = 0;
|
|
|
|
|
value->_date.time = 0;
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
__VOID:
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
__OBJECT:
|
|
|
|
|
value->_object.class = (CLASS *)type;
|
|
|
|
|
value->_object.object = NULL;
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
__ARRAY:
|
|
|
|
|
__FUNCTION:
|
|
|
|
|
__CLASS:
|
|
|
|
|
__NULL:
|
|
|
|
|
ERROR_panic("VALUE_default: Unknown default type");
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
2008-01-17 22:39:26 +01:00
|
|
|
|
void VALUE_convert(VALUE *value, TYPE type)
|
2007-12-30 17:41:49 +01:00
|
|
|
|
{
|
2008-01-27 15:00:04 +01:00
|
|
|
|
static const void *jump[16][16] =
|
2007-12-30 17:41:49 +01:00
|
|
|
|
{
|
|
|
|
|
/* void b c h i l g f d cs s v array func class n */
|
|
|
|
|
/* void */ { &&__OK, &&__NR, &&__NR, &&__NR, &&__NR, &&__NR, &&__NR, &&__NR, &&__NR, &&__NR, &&__NR, &&__NR, &&__NR, &&__NR, &&__NR, &&__NR, },
|
|
|
|
|
/* b */ { &&__N, &&__OK, &&__b2c, &&__b2h, &&__TYPE, &&__b2l, &&__b2f, &&__b2f, &&__N, &&__b2s, &&__b2s, &&__2v, &&__N, &&__N, &&__N, &&__N, },
|
|
|
|
|
/* c */ { &&__N, &&__c2b, &&__OK, &&__c2h, &&__TYPE, &&__c2l, &&__c2f, &&__c2f, &&__c2d, &&__c2s, &&__c2s, &&__2v, &&__N, &&__N, &&__N, &&__N, },
|
|
|
|
|
/* h */ { &&__N, &&__h2b, &&__h2c, &&__OK, &&__TYPE, &&__h2l, &&__h2f, &&__h2f, &&__h2d, &&__h2s, &&__h2s, &&__2v, &&__N, &&__N, &&__N, &&__N, },
|
|
|
|
|
/* i */ { &&__N, &&__i2b, &&__i2c, &&__i2h, &&__OK, &&__i2l, &&__i2f, &&__i2f, &&__i2d, &&__i2s, &&__i2s, &&__2v, &&__N, &&__N, &&__N, &&__N, },
|
|
|
|
|
/* l */ { &&__N, &&__l2b, &&__l2c, &&__l2h, &&__l2i, &&__OK, &&__l2g, &&__l2f, &&__l2d, &&__l2s, &&__l2s, &&__2v, &&__N, &&__N, &&__N, &&__N, },
|
|
|
|
|
/* g */ { &&__N, &&__f2b, &&__f2c, &&__f2h, &&__f2i, &&__f2l, &&__OK, &&__TYPE, &&__f2d, &&__f2s, &&__g2s, &&__2v, &&__N, &&__N, &&__N, &&__N, },
|
|
|
|
|
/* f */ { &&__N, &&__f2b, &&__f2c, &&__f2h, &&__f2i, &&__f2l, &&__f2g, &&__OK, &&__f2d, &&__f2s, &&__f2s, &&__2v, &&__N, &&__N, &&__N, &&__N, },
|
|
|
|
|
/* d */ { &&__N, &&__d2b, &&__d2c, &&__d2h, &&__d2i, &&__d2l, &&__d2f, &&__d2f, &&__OK, &&__d2s, &&__d2s, &&__2v, &&__N, &&__N, &&__N, &&__N, },
|
|
|
|
|
/* cs */ { &&__N, &&__s2b, &&__s2c, &&__s2h, &&__s2i, &&__s2l, &&__s2f, &&__s2f, &&__s2d, &&__OK, &&__OK, &&__s2v, &&__N, &&__N, &&__N, &&__N, },
|
|
|
|
|
/* s */ { &&__N, &&__s2b, &&__s2c, &&__s2h, &&__s2i, &&__s2l, &&__s2f, &&__s2f, &&__s2d, &&__OK, &&__OK, &&__s2v, &&__N, &&__N, &&__N, &&__N, },
|
2009-08-05 18:14:08 +02:00
|
|
|
|
/* v */ { &&__N, &&__v2, &&__v2, &&__v2, &&__v2, &&__v2, &&__v2, &&__v2, &&__v2, &&__v2, &&__v2, &&__OK, &&__N, &&__N, &&__v2, &&__v2, },
|
2007-12-30 17:41:49 +01:00
|
|
|
|
/* array */ { &&__N, &&__N, &&__N, &&__N, &&__N, &&__N, &&__N, &&__N, &&__N, &&__N, &&__N, &&__N, &&__OK, &&__N, &&__N, &&__N, },
|
2009-08-05 18:14:08 +02:00
|
|
|
|
/* func */ { &&__N, &&__func, &&__func, &&__func, &&__func, &&__func, &&__func, &&__func, &&__func, &&__func, &&__func, &&__func, &&__N, &&__OK, &&__N, &&__func, },
|
2007-12-30 17:41:49 +01:00
|
|
|
|
/* class */ { &&__N, &&__N, &&__N, &&__N, &&__N, &&__N, &&__N, &&__N, &&__N, &&__N, &&__N, &&__2v, &&__N, &&__N, &&__OK, &&__N, },
|
|
|
|
|
/* null */ { &&__N, &&__n2b, &&__N, &&__N, &&__N, &&__N, &&__N, &&__N, &&__n2d, &&__n2s, &&__n2s, &&__2v, &&__N, &&__N, &&__N, &&__OK, },
|
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
int len;
|
|
|
|
|
char *addr;
|
|
|
|
|
int index;
|
|
|
|
|
CLASS *class;
|
2009-07-08 21:57:50 +02:00
|
|
|
|
bool test;
|
2007-12-30 17:41:49 +01:00
|
|
|
|
|
|
|
|
|
__CONV:
|
|
|
|
|
|
2008-01-27 15:00:04 +01:00
|
|
|
|
if ((type | value->type) >> 4)
|
2007-12-30 17:41:49 +01:00
|
|
|
|
goto __OBJECT;
|
|
|
|
|
else
|
|
|
|
|
goto *jump[value->type][type];
|
|
|
|
|
|
|
|
|
|
__c2b:
|
|
|
|
|
__h2b:
|
|
|
|
|
__i2b:
|
|
|
|
|
|
|
|
|
|
value->_integer.value = (value->_integer.value != 0) ? -1 : 0;
|
|
|
|
|
goto __TYPE;
|
|
|
|
|
|
|
|
|
|
__l2b:
|
|
|
|
|
|
|
|
|
|
value->_integer.value = (value->_long.value != 0) ? -1 : 0;
|
|
|
|
|
goto __TYPE;
|
|
|
|
|
|
|
|
|
|
__f2b:
|
|
|
|
|
|
|
|
|
|
value->_integer.value = (value->_float.value != 0) ? -1 : 0;
|
|
|
|
|
goto __TYPE;
|
|
|
|
|
|
|
|
|
|
__d2b:
|
|
|
|
|
value->_integer.value = (value->_date.date != 0 || value->_date.time != 0) ? -1 : 0;
|
|
|
|
|
goto __TYPE;
|
|
|
|
|
|
|
|
|
|
__b2c:
|
|
|
|
|
__h2c:
|
|
|
|
|
__i2c:
|
|
|
|
|
|
|
|
|
|
value->_integer.value = (unsigned char)value->_integer.value;
|
|
|
|
|
goto __TYPE;
|
|
|
|
|
|
|
|
|
|
__l2c:
|
|
|
|
|
|
|
|
|
|
value->_integer.value = (unsigned char)value->_long.value;
|
|
|
|
|
goto __TYPE;
|
|
|
|
|
|
|
|
|
|
__f2c:
|
|
|
|
|
|
|
|
|
|
value->_integer.value = (unsigned char)value->_float.value;
|
|
|
|
|
goto __TYPE;
|
|
|
|
|
|
|
|
|
|
__b2h:
|
|
|
|
|
__c2h:
|
|
|
|
|
__i2h:
|
|
|
|
|
|
|
|
|
|
value->_integer.value = (short)value->_integer.value;
|
|
|
|
|
goto __TYPE;
|
|
|
|
|
|
|
|
|
|
__l2h:
|
|
|
|
|
|
|
|
|
|
value->_integer.value = (short)value->_long.value;
|
|
|
|
|
goto __TYPE;
|
|
|
|
|
|
|
|
|
|
__f2h:
|
|
|
|
|
|
|
|
|
|
value->_integer.value = (short)value->_float.value;
|
|
|
|
|
goto __TYPE;
|
|
|
|
|
|
|
|
|
|
__l2i:
|
|
|
|
|
|
|
|
|
|
value->_integer.value = (int)value->_long.value;
|
|
|
|
|
goto __TYPE;
|
|
|
|
|
|
|
|
|
|
__f2i:
|
|
|
|
|
|
|
|
|
|
value->_integer.value = (int)value->_float.value;
|
|
|
|
|
goto __TYPE;
|
|
|
|
|
|
|
|
|
|
__b2l:
|
|
|
|
|
__c2l:
|
|
|
|
|
__h2l:
|
|
|
|
|
__i2l:
|
|
|
|
|
|
2008-01-17 22:39:26 +01:00
|
|
|
|
value->_long.value = (int64_t)value->_integer.value;
|
2007-12-30 17:41:49 +01:00
|
|
|
|
goto __TYPE;
|
|
|
|
|
|
|
|
|
|
__f2l:
|
|
|
|
|
|
2008-01-17 22:39:26 +01:00
|
|
|
|
value->_long.value = (int64_t)value->_float.value;
|
2007-12-30 17:41:49 +01:00
|
|
|
|
goto __TYPE;
|
|
|
|
|
|
|
|
|
|
__l2g:
|
|
|
|
|
|
|
|
|
|
value->_float.value = (float)value->_long.value;
|
|
|
|
|
if (!finite(value->_float.value))
|
|
|
|
|
THROW(E_OVERFLOW);
|
|
|
|
|
goto __TYPE;
|
|
|
|
|
|
|
|
|
|
__f2g:
|
|
|
|
|
|
|
|
|
|
value->_float.value = (float)value->_float.value;
|
|
|
|
|
if (!finite(value->_float.value))
|
|
|
|
|
THROW(E_OVERFLOW);
|
|
|
|
|
goto __TYPE;
|
|
|
|
|
|
|
|
|
|
__b2f:
|
|
|
|
|
__c2f:
|
|
|
|
|
__h2f:
|
|
|
|
|
__i2f:
|
|
|
|
|
|
|
|
|
|
value->_float.value = value->_integer.value;
|
|
|
|
|
goto __TYPE;
|
|
|
|
|
|
|
|
|
|
__l2f:
|
|
|
|
|
|
|
|
|
|
value->_float.value = value->_long.value;
|
|
|
|
|
goto __TYPE;
|
|
|
|
|
|
|
|
|
|
__c2d:
|
|
|
|
|
__h2d:
|
|
|
|
|
__i2d:
|
|
|
|
|
|
|
|
|
|
value->_date.date = Max(0, value->_integer.value);
|
|
|
|
|
value->_date.time = 0;
|
|
|
|
|
goto __TYPE;
|
|
|
|
|
|
|
|
|
|
__l2d:
|
|
|
|
|
|
|
|
|
|
if (value->_long.value < 0)
|
|
|
|
|
value->_date.date = 0;
|
2008-01-17 22:39:26 +01:00
|
|
|
|
else if (value->_long.value > INT_MAX)
|
|
|
|
|
value->_date.date = INT_MAX;
|
2007-12-30 17:41:49 +01:00
|
|
|
|
else
|
|
|
|
|
value->_date.date = (int)value->_long.value;
|
|
|
|
|
|
|
|
|
|
value->_date.time = 0;
|
|
|
|
|
goto __TYPE;
|
|
|
|
|
|
|
|
|
|
__f2d:
|
|
|
|
|
|
|
|
|
|
index = (int)fix(value->_float.value);
|
|
|
|
|
value->_date.time = (int)((value->_float.value - index) * 86400000.0 + 0.5);
|
|
|
|
|
value->_date.date = index;
|
|
|
|
|
goto __TYPE;
|
|
|
|
|
|
|
|
|
|
__d2c:
|
|
|
|
|
__d2h:
|
|
|
|
|
__d2i:
|
|
|
|
|
|
|
|
|
|
value->_integer.value = value->_date.date;
|
|
|
|
|
value->type = T_INTEGER;
|
|
|
|
|
goto *jump[T_INTEGER][type];
|
|
|
|
|
|
|
|
|
|
__d2l:
|
|
|
|
|
|
|
|
|
|
value->_long.value = value->_date.date;
|
|
|
|
|
goto __TYPE;
|
|
|
|
|
|
|
|
|
|
__d2f:
|
|
|
|
|
|
|
|
|
|
value->_float.value = (double)value->_date.date + (double)value->_date.time / 86400000.0;
|
|
|
|
|
goto __TYPE;
|
|
|
|
|
|
|
|
|
|
__b2s:
|
|
|
|
|
|
|
|
|
|
if (value->_boolean.value)
|
|
|
|
|
STRING_char_value(value, 'T');
|
|
|
|
|
else
|
|
|
|
|
STRING_void_value(value);
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
__c2s:
|
|
|
|
|
__h2s:
|
|
|
|
|
__i2s:
|
|
|
|
|
|
2008-08-08 16:41:57 +02:00
|
|
|
|
/*len = sprintf(COMMON_buffer, "%d", value->_integer.value);
|
2008-01-27 15:00:04 +01:00
|
|
|
|
STRING_new_temp_value(value, COMMON_buffer, len);*/
|
|
|
|
|
NUMBER_int_to_string(value->_integer.value, 0, 10, value);
|
2007-12-30 17:41:49 +01:00
|
|
|
|
BORROW(value);
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
__l2s:
|
|
|
|
|
|
2008-08-08 16:41:57 +02:00
|
|
|
|
/*len = sprintf(COMMON_buffer, "%" PRId64, value->_long.value);
|
2008-01-27 15:00:04 +01:00
|
|
|
|
STRING_new_temp_value(value, COMMON_buffer, len);*/
|
|
|
|
|
NUMBER_int_to_string(value->_long.value, 0, 10, value);
|
2007-12-30 17:41:49 +01:00
|
|
|
|
BORROW(value);
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
__g2s:
|
|
|
|
|
__f2s:
|
|
|
|
|
|
|
|
|
|
LOCAL_format_number(value->_float.value, LF_GENERAL_NUMBER, NULL, 0, &addr, &len, FALSE);
|
|
|
|
|
STRING_new_temp_value(value, addr, len);
|
|
|
|
|
BORROW(value);
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
__d2s:
|
|
|
|
|
|
|
|
|
|
len = DATE_to_string(COMMON_buffer, value);
|
|
|
|
|
STRING_new_temp_value(value, COMMON_buffer, len);
|
|
|
|
|
BORROW(value);
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
__s2b:
|
|
|
|
|
|
|
|
|
|
addr = value->_string.addr;
|
|
|
|
|
value->_integer.value = ((addr != NULL) && (value->_string.len != 0)) ? -1 : 0;
|
|
|
|
|
if (value->type == T_STRING)
|
|
|
|
|
STRING_unref(&addr);
|
|
|
|
|
goto __TYPE;
|
|
|
|
|
|
|
|
|
|
__s2c:
|
|
|
|
|
__s2h:
|
|
|
|
|
__s2i:
|
|
|
|
|
|
|
|
|
|
addr = value->type == T_STRING ? value->_string.addr : NULL;
|
|
|
|
|
|
|
|
|
|
if (NUMBER_from_string(NB_READ_INTEGER, value->_string.addr + value->_string.start, value->_string.len, value))
|
|
|
|
|
goto __N;
|
|
|
|
|
|
|
|
|
|
STRING_unref(&addr);
|
|
|
|
|
goto *jump[T_INTEGER][type];
|
|
|
|
|
|
|
|
|
|
__s2l:
|
|
|
|
|
|
|
|
|
|
addr = value->type == T_STRING ? value->_string.addr : NULL;
|
|
|
|
|
|
|
|
|
|
if (NUMBER_from_string(NB_READ_LONG, value->_string.addr + value->_string.start, value->_string.len, value))
|
|
|
|
|
goto __N;
|
|
|
|
|
|
|
|
|
|
STRING_unref(&addr);
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
__s2f:
|
|
|
|
|
|
|
|
|
|
addr = value->type == T_STRING ? value->_string.addr : NULL;
|
|
|
|
|
|
|
|
|
|
if (NUMBER_from_string(NB_READ_FLOAT, value->_string.addr + value->_string.start, value->_string.len, value))
|
|
|
|
|
goto __N;
|
|
|
|
|
|
|
|
|
|
STRING_unref(&addr);
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
__s2d:
|
|
|
|
|
|
|
|
|
|
addr = value->type == T_STRING ? value->_string.addr : NULL;
|
|
|
|
|
|
|
|
|
|
if (DATE_from_string(value->_string.addr + value->_string.start, value->_string.len, value, FALSE))
|
|
|
|
|
goto __N;
|
|
|
|
|
|
|
|
|
|
STRING_unref(&addr);
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
__n2b:
|
|
|
|
|
|
|
|
|
|
value->_integer.value = 0;
|
|
|
|
|
goto __TYPE;
|
|
|
|
|
|
|
|
|
|
__n2d:
|
|
|
|
|
|
|
|
|
|
DATE_void_value(value);
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
__n2s:
|
|
|
|
|
|
|
|
|
|
STRING_void_value(value);
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
__v2:
|
|
|
|
|
|
|
|
|
|
/* ATTENTION !
|
|
|
|
|
VALUE_read sert normalement <EFBFBD>lire un stockage en m<EFBFBD>oire.
|
|
|
|
|
On le d<EFBFBD>ourne ici pour convertir le variant.
|
|
|
|
|
Mais si le variant contient un T_STRING, <EFBFBD> doit rester un T_STRING ! */
|
|
|
|
|
|
|
|
|
|
index = value->_variant.vtype;
|
|
|
|
|
|
|
|
|
|
if (index != T_NULL)
|
|
|
|
|
VALUE_read(value, &value->_variant.value, value->_variant.vtype);
|
|
|
|
|
value->type = index;
|
|
|
|
|
|
|
|
|
|
goto __CONV;
|
|
|
|
|
|
|
|
|
|
__s2v:
|
|
|
|
|
|
|
|
|
|
STRING_copy_from_value_temp(&addr, value);
|
|
|
|
|
|
|
|
|
|
if (addr != value->_string.addr)
|
|
|
|
|
{
|
|
|
|
|
STRING_ref(addr);
|
|
|
|
|
|
|
|
|
|
if (value->type == T_STRING)
|
|
|
|
|
STRING_unref(&value->_string.addr);
|
|
|
|
|
}
|
|
|
|
|
|
2009-11-28 02:22:00 +01:00
|
|
|
|
value->_variant.value._string = addr;
|
2007-12-30 17:41:49 +01:00
|
|
|
|
value->_variant.vtype = T_STRING;
|
|
|
|
|
|
|
|
|
|
goto __TYPE;
|
|
|
|
|
|
|
|
|
|
__2v:
|
|
|
|
|
|
|
|
|
|
/* VALUE_put ne fonctionne pas avec T_STRING ! */
|
|
|
|
|
if (value->type != T_NULL)
|
|
|
|
|
VALUE_put(value, &value->_variant.value, value->type);
|
|
|
|
|
|
|
|
|
|
value->_variant.vtype = value->type;
|
|
|
|
|
goto __TYPE;
|
|
|
|
|
|
2009-08-05 18:14:08 +02:00
|
|
|
|
__func:
|
|
|
|
|
|
|
|
|
|
if (unknown_function(value))
|
|
|
|
|
goto __CONV;
|
|
|
|
|
else
|
|
|
|
|
goto __N;
|
|
|
|
|
|
|
|
|
|
|
2007-12-30 17:41:49 +01:00
|
|
|
|
__OBJECT:
|
|
|
|
|
|
|
|
|
|
if (!TYPE_is_object(type))
|
|
|
|
|
{
|
|
|
|
|
if (type == T_BOOLEAN)
|
|
|
|
|
{
|
|
|
|
|
test = (value->_object.object != NULL);
|
2008-08-14 21:42:27 +02:00
|
|
|
|
OBJECT_UNREF(value->_object.object, "VALUE_convert");
|
2007-12-30 17:41:49 +01:00
|
|
|
|
value->_boolean.value = test ? -1 : 0;
|
|
|
|
|
goto __TYPE;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (type == T_VARIANT)
|
|
|
|
|
goto __2v;
|
2009-08-05 18:14:08 +02:00
|
|
|
|
|
2007-12-30 17:41:49 +01:00
|
|
|
|
goto __N;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (!TYPE_is_object(value->type))
|
|
|
|
|
{
|
|
|
|
|
if (value->type == T_NULL)
|
|
|
|
|
{
|
|
|
|
|
OBJECT_null(value, (CLASS *)type); /* marche aussi pour type = T_OBJECT */
|
|
|
|
|
goto __TYPE;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (value->type == T_VARIANT)
|
|
|
|
|
goto __v2;
|
|
|
|
|
|
2009-08-05 18:14:08 +02:00
|
|
|
|
if (value->type == T_FUNCTION)
|
|
|
|
|
goto __func;
|
|
|
|
|
|
2007-12-30 17:41:49 +01:00
|
|
|
|
if (value->type == T_CLASS)
|
|
|
|
|
{
|
|
|
|
|
class = value->_class.class;
|
|
|
|
|
|
|
|
|
|
if (CLASS_is_virtual(class))
|
|
|
|
|
THROW(E_VIRTUAL);
|
|
|
|
|
|
|
|
|
|
CLASS_load(class);
|
|
|
|
|
|
|
|
|
|
if (class->auto_create)
|
|
|
|
|
value->_object.object = CLASS_auto_create(class, 0);
|
|
|
|
|
else
|
|
|
|
|
value->_object.object = class;
|
|
|
|
|
|
|
|
|
|
OBJECT_REF(value->_object.object, "VALUE_convert");
|
|
|
|
|
value->type = T_OBJECT;
|
|
|
|
|
/* on continue... */
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
goto __N;
|
|
|
|
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (value->_object.object == NULL)
|
|
|
|
|
goto __TYPE;
|
|
|
|
|
|
|
|
|
|
if (value->type == T_OBJECT)
|
|
|
|
|
{
|
|
|
|
|
/*if (value->_object.object == NULL)
|
|
|
|
|
goto __TYPE;*/
|
|
|
|
|
|
|
|
|
|
class = OBJECT_class(value->_object.object);
|
|
|
|
|
/* on continue */
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
class = value->_object.class;
|
|
|
|
|
|
|
|
|
|
if (CLASS_is_virtual(class))
|
|
|
|
|
THROW(E_VIRTUAL);
|
|
|
|
|
|
|
|
|
|
if (type == T_OBJECT)
|
|
|
|
|
goto __TYPE;
|
|
|
|
|
|
|
|
|
|
__RETRY:
|
|
|
|
|
|
|
|
|
|
if ((class == (CLASS *)type) || CLASS_inherits(class, (CLASS *)type))
|
|
|
|
|
goto __TYPE;
|
|
|
|
|
|
|
|
|
|
if (value->type != T_OBJECT && value->_object.object)
|
|
|
|
|
{
|
|
|
|
|
class = OBJECT_class(value->_object.object);
|
|
|
|
|
value->type = T_OBJECT;
|
|
|
|
|
goto __RETRY;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
THROW(E_TYPE, TYPE_get_name(type), TYPE_get_name((TYPE)class));
|
|
|
|
|
|
|
|
|
|
__TYPE:
|
|
|
|
|
|
|
|
|
|
value->type = type;
|
|
|
|
|
|
|
|
|
|
__OK:
|
|
|
|
|
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
__N:
|
|
|
|
|
|
|
|
|
|
THROW(E_TYPE, TYPE_get_name(type), TYPE_get_name(value->type));
|
|
|
|
|
|
|
|
|
|
__NR:
|
|
|
|
|
|
|
|
|
|
THROW(E_NRETURN);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
2008-01-17 22:39:26 +01:00
|
|
|
|
void VALUE_write(VALUE *value, void *addr, TYPE type)
|
2007-12-30 17:41:49 +01:00
|
|
|
|
{
|
|
|
|
|
static void *jump[16] = {
|
|
|
|
|
&&__VOID, &&__BOOLEAN, &&__BYTE, &&__SHORT, &&__INTEGER, &&__LONG, &&__SINGLE, &&__FLOAT, &&__DATE,
|
|
|
|
|
&&__STRING, &&__STRING, &&__VARIANT, &&__ARRAY, &&__FUNCTION, &&__CLASS, &&__NULL
|
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
char *str;
|
|
|
|
|
|
|
|
|
|
__CONV:
|
|
|
|
|
|
|
|
|
|
if (TYPE_is_object(type))
|
|
|
|
|
goto __OBJECT;
|
|
|
|
|
else
|
|
|
|
|
goto *jump[type];
|
|
|
|
|
|
|
|
|
|
__BOOLEAN:
|
|
|
|
|
|
|
|
|
|
VALUE_conv(value, type);
|
|
|
|
|
*((unsigned char *)addr) = (value->_boolean.value != 0 ? 255 : 0);
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
__BYTE:
|
|
|
|
|
|
|
|
|
|
VALUE_conv(value, type);
|
|
|
|
|
*((unsigned char *)addr) = (unsigned char)(value->_byte.value);
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
__SHORT:
|
|
|
|
|
|
|
|
|
|
VALUE_conv(value, type);
|
|
|
|
|
*((short *)addr) = (short)(value->_short.value);
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
__INTEGER:
|
|
|
|
|
|
|
|
|
|
VALUE_conv(value, type);
|
|
|
|
|
*((int *)addr) = value->_integer.value;
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
__LONG:
|
|
|
|
|
|
|
|
|
|
VALUE_conv(value, type);
|
2008-01-17 22:39:26 +01:00
|
|
|
|
*((int64_t *)addr) = value->_long.value;
|
2007-12-30 17:41:49 +01:00
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
__SINGLE:
|
|
|
|
|
|
|
|
|
|
VALUE_conv(value, type);
|
|
|
|
|
*((float *)addr) = (float)value->_float.value;
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
__FLOAT:
|
|
|
|
|
|
|
|
|
|
VALUE_conv(value, type);
|
|
|
|
|
*((double *)addr) = value->_float.value;
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
__DATE:
|
|
|
|
|
|
|
|
|
|
VALUE_conv(value, type);
|
|
|
|
|
((int *)addr)[0] = value->_date.date;
|
|
|
|
|
((int *)addr)[1] = value->_date.time;
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
__STRING:
|
|
|
|
|
|
|
|
|
|
/* Il faut faire l'affectation en deux temps au cas o
|
|
|
|
|
value->_string.addr == *addr ! */
|
|
|
|
|
|
|
|
|
|
VALUE_conv(value, type);
|
|
|
|
|
|
|
|
|
|
STRING_copy_from_value_temp(&str, value);
|
|
|
|
|
STRING_ref(str);
|
|
|
|
|
STRING_unref((char **)addr);
|
|
|
|
|
*((char **)addr) = str;
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
__OBJECT:
|
|
|
|
|
|
|
|
|
|
VALUE_conv(value, type);
|
|
|
|
|
|
|
|
|
|
OBJECT_REF(value->_object.object, "VALUE_write");
|
2008-08-14 21:42:27 +02:00
|
|
|
|
OBJECT_UNREF(*((void **)addr), "VALUE_write");
|
2007-12-30 17:41:49 +01:00
|
|
|
|
*((void **)addr) = value->_object.object;
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
__CLASS:
|
|
|
|
|
|
|
|
|
|
VALUE_conv(value, type);
|
|
|
|
|
|
|
|
|
|
OBJECT_REF(value->_class.class, "VALUE_write");
|
2008-08-14 21:42:27 +02:00
|
|
|
|
OBJECT_UNREF(*((void **)addr), "VALUE_write");
|
2007-12-30 17:41:49 +01:00
|
|
|
|
*((void **)addr) = value->_class.class;
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
__VARIANT:
|
|
|
|
|
|
|
|
|
|
VARIANT_undo(value);
|
|
|
|
|
|
|
|
|
|
type = value->type;
|
|
|
|
|
if (type == T_CSTRING)
|
|
|
|
|
type = T_STRING;
|
|
|
|
|
|
|
|
|
|
VARIANT_clear((VARIANT *)addr);
|
|
|
|
|
((VARIANT *)addr)->type = type;
|
|
|
|
|
|
|
|
|
|
/* Et si type ne fait pas partie des types valides pour cette fonction ?? */
|
|
|
|
|
if (type == T_NULL)
|
|
|
|
|
return;
|
|
|
|
|
|
2009-11-28 02:22:00 +01:00
|
|
|
|
addr = &((VARIANT *)addr)->value.data;
|
2007-12-30 17:41:49 +01:00
|
|
|
|
/*goto *jump[Min(T_OBJECT, type)];*/
|
|
|
|
|
goto __CONV;
|
|
|
|
|
|
|
|
|
|
__VOID:
|
|
|
|
|
__ARRAY:
|
|
|
|
|
__FUNCTION:
|
|
|
|
|
__NULL:
|
|
|
|
|
|
|
|
|
|
ERROR_panic("Bad type (%d) for VALUE_write", type);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
2008-01-17 22:39:26 +01:00
|
|
|
|
void VALUE_read(VALUE *value, void *addr, TYPE type)
|
2007-12-30 17:41:49 +01:00
|
|
|
|
{
|
|
|
|
|
static void *jump[16] = {
|
|
|
|
|
&&__VOID, &&__BOOLEAN, &&__BYTE, &&__SHORT, &&__INTEGER, &&__LONG, &&__SINGLE, &&__FLOAT, &&__DATE,
|
|
|
|
|
&&__STRING, &&__CSTRING, &&__VARIANT, &&__ARRAY, &&__FUNCTION, &&__CLASS, &&__NULL
|
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
char *str;
|
|
|
|
|
|
|
|
|
|
value->type = type;
|
|
|
|
|
|
|
|
|
|
if (TYPE_is_object(type))
|
|
|
|
|
goto __OBJECT;
|
|
|
|
|
else
|
|
|
|
|
goto *jump[type];
|
|
|
|
|
|
|
|
|
|
__BOOLEAN:
|
|
|
|
|
|
|
|
|
|
value->_boolean.value = (*((unsigned char *)addr) != 0) ? (-1) : 0;
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
__BYTE:
|
|
|
|
|
|
|
|
|
|
value->_byte.value = *((unsigned char *)addr);
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
__SHORT:
|
|
|
|
|
|
|
|
|
|
value->_short.value = *((short *)addr);
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
__INTEGER:
|
|
|
|
|
|
|
|
|
|
value->_integer.value = *((int *)addr);
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
__LONG:
|
|
|
|
|
|
2008-01-17 22:39:26 +01:00
|
|
|
|
value->_long.value = *((int64_t *)addr);
|
2007-12-30 17:41:49 +01:00
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
__SINGLE:
|
|
|
|
|
|
|
|
|
|
value->_single.value = *((float *)addr);
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
__FLOAT:
|
|
|
|
|
|
|
|
|
|
value->_float.value = *((double *)addr);
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
__DATE:
|
|
|
|
|
|
|
|
|
|
value->_date.date = ((int *)addr)[0];
|
|
|
|
|
value->_date.time = ((int *)addr)[1];
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
__STRING:
|
|
|
|
|
|
|
|
|
|
str = *((char **)addr);
|
|
|
|
|
|
|
|
|
|
value->type = T_STRING;
|
|
|
|
|
value->_string.addr = str;
|
|
|
|
|
value->_string.start = 0;
|
|
|
|
|
/*value->_string.len = (str == NULL) ? 0 : strlen(str);*/
|
|
|
|
|
value->_string.len = STRING_length(str);
|
|
|
|
|
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
__CSTRING:
|
|
|
|
|
|
|
|
|
|
str = *((char **)addr);
|
|
|
|
|
|
|
|
|
|
value->type = T_CSTRING;
|
|
|
|
|
value->_string.addr = str;
|
|
|
|
|
value->_string.start = 0;
|
|
|
|
|
value->_string.len = (str == NULL) ? 0 : strlen(str);
|
|
|
|
|
/*value->_string.len = STRING_length(str);*/
|
|
|
|
|
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
__OBJECT:
|
|
|
|
|
|
|
|
|
|
value->_object.object = *((void **)addr);
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
__VARIANT:
|
|
|
|
|
|
|
|
|
|
value->_variant.type = T_VARIANT;
|
|
|
|
|
value->_variant.vtype = ((VARIANT *)addr)->type;
|
|
|
|
|
|
2009-12-24 03:02:05 +01:00
|
|
|
|
if (value->_variant.vtype == T_VOID)
|
2007-12-30 17:41:49 +01:00
|
|
|
|
value->_variant.vtype = T_NULL;
|
|
|
|
|
|
2008-03-23 01:51:50 +01:00
|
|
|
|
VARIANT_copy_value(&value->_variant, ((VARIANT *)addr));
|
2007-12-30 17:41:49 +01:00
|
|
|
|
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
__CLASS:
|
|
|
|
|
|
|
|
|
|
value->_class.class = *((void **)addr);
|
|
|
|
|
value->_class.super = NULL;
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
__VOID:
|
|
|
|
|
__ARRAY:
|
|
|
|
|
__FUNCTION:
|
|
|
|
|
__NULL:
|
|
|
|
|
|
|
|
|
|
ERROR_panic("Bad type (%d) for VALUE_read", type);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
2008-01-17 22:39:26 +01:00
|
|
|
|
void VALUE_free(void *addr, TYPE type)
|
2007-12-30 17:41:49 +01:00
|
|
|
|
{
|
|
|
|
|
if (type == T_STRING)
|
|
|
|
|
{
|
|
|
|
|
STRING_unref((char **)addr);
|
|
|
|
|
*((char **)addr) = NULL;
|
|
|
|
|
}
|
|
|
|
|
else if (TYPE_is_object(type))
|
|
|
|
|
{
|
2008-08-14 21:42:27 +02:00
|
|
|
|
OBJECT_UNREF(*((void **)addr), "VALUE_free");
|
2007-12-30 17:41:49 +01:00
|
|
|
|
*((void **)addr) = NULL;
|
|
|
|
|
}
|
|
|
|
|
else if (type == T_VARIANT)
|
|
|
|
|
{
|
|
|
|
|
VARIANT_free((VARIANT *)addr);
|
|
|
|
|
((VARIANT *)addr)->type = T_NULL;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
2008-01-17 22:39:26 +01:00
|
|
|
|
void VALUE_to_string(VALUE *value, char **addr, int *len)
|
2007-12-30 17:41:49 +01:00
|
|
|
|
{
|
|
|
|
|
static void *jump[16] = {
|
|
|
|
|
&&__VOID, &&__BOOLEAN, &&__BYTE, &&__SHORT, &&__INTEGER, &&__LONG, &&__SINGLE, &&__FLOAT, &&__DATE,
|
|
|
|
|
&&__STRING, &&__STRING, &&__VARIANT, &&__ARRAY, &&__FUNCTION, &&__CLASS, &&__NULL
|
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
__CONV:
|
|
|
|
|
|
|
|
|
|
if (TYPE_is_object(value->type))
|
|
|
|
|
goto __OBJECT;
|
|
|
|
|
else
|
|
|
|
|
goto *jump[value->type];
|
|
|
|
|
|
|
|
|
|
__NULL:
|
|
|
|
|
|
|
|
|
|
*addr = ""; /* Pour <20>re coh<6F>ent avec print "" puisque Null == "" */
|
|
|
|
|
*len = 0;
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
__BOOLEAN:
|
|
|
|
|
|
|
|
|
|
if (value->_boolean.value)
|
|
|
|
|
{
|
|
|
|
|
*addr = "True";
|
|
|
|
|
*len = 4;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
*addr = "False";
|
|
|
|
|
*len = 5;
|
|
|
|
|
}
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
__BYTE:
|
|
|
|
|
__SHORT:
|
|
|
|
|
__INTEGER:
|
|
|
|
|
|
2008-01-17 22:39:26 +01:00
|
|
|
|
*len = sprintf(COMMON_buffer, "%d", value->_integer.value);
|
2007-12-30 17:41:49 +01:00
|
|
|
|
*addr = COMMON_buffer;
|
|
|
|
|
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
__LONG:
|
|
|
|
|
|
2008-01-17 22:39:26 +01:00
|
|
|
|
*len = sprintf(COMMON_buffer, "%" PRId64, value->_long.value);
|
2007-12-30 17:41:49 +01:00
|
|
|
|
*addr = COMMON_buffer;
|
|
|
|
|
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
__DATE:
|
|
|
|
|
|
|
|
|
|
LOCAL_format_date(DATE_split(value), LF_STANDARD, NULL, 0, addr, len);
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
__SINGLE:
|
|
|
|
|
__FLOAT:
|
|
|
|
|
|
|
|
|
|
LOCAL_format_number(value->_float.value, LF_STANDARD, NULL, 0, addr, len, TRUE);
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
__STRING:
|
|
|
|
|
|
|
|
|
|
*len = value->_string.len;
|
|
|
|
|
*addr = value->_string.addr + value->_string.start;
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
__OBJECT:
|
|
|
|
|
|
|
|
|
|
if (VALUE_is_null(value))
|
|
|
|
|
goto __NULL;
|
|
|
|
|
|
2008-01-17 22:39:26 +01:00
|
|
|
|
*len = sprintf(COMMON_buffer, "(%s %p)", OBJECT_class(value->_object.object)->name, value->_object.object);
|
2007-12-30 17:41:49 +01:00
|
|
|
|
*addr = COMMON_buffer;
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
__VARIANT:
|
|
|
|
|
|
|
|
|
|
VARIANT_undo(value);
|
|
|
|
|
goto __CONV;
|
|
|
|
|
|
|
|
|
|
__VOID:
|
|
|
|
|
|
|
|
|
|
THROW(E_NRETURN);
|
|
|
|
|
|
|
|
|
|
__CLASS:
|
|
|
|
|
|
2008-01-17 22:39:26 +01:00
|
|
|
|
*len = sprintf(COMMON_buffer, "(Class %s)", value->_class.class->name);
|
2007-12-30 17:41:49 +01:00
|
|
|
|
*addr = COMMON_buffer;
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
__FUNCTION:
|
|
|
|
|
|
2009-08-05 18:14:08 +02:00
|
|
|
|
if (unknown_function(value))
|
|
|
|
|
goto __CONV;
|
|
|
|
|
|
|
|
|
|
__ARRAY:
|
|
|
|
|
|
2008-01-17 22:39:26 +01:00
|
|
|
|
*len = sprintf(COMMON_buffer, "(%s ?)", TYPE_get_name(value->type));
|
2007-12-30 17:41:49 +01:00
|
|
|
|
*addr = COMMON_buffer;
|
|
|
|
|
|
|
|
|
|
/*THROW(E_TYPE, TYPE_get_name(T_STRING), TYPE_get_name(value->type));*/
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
2008-01-17 22:39:26 +01:00
|
|
|
|
void VALUE_from_string(VALUE *value, const char *addr, int len)
|
2007-12-30 17:41:49 +01:00
|
|
|
|
{
|
|
|
|
|
value->type = T_NULL;
|
|
|
|
|
|
|
|
|
|
if (!len || *addr == 0)
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
if (!DATE_from_string(addr, len, value, TRUE))
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
if (!NUMBER_from_string(NB_READ_ALL | NB_READ_HEX_BIN | NB_LOCAL, addr, len, value))
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
if (len == 4 && strncasecmp(addr, "true", len) == 0)
|
|
|
|
|
{
|
|
|
|
|
value->type = T_BOOLEAN;
|
|
|
|
|
value->_boolean.value = -1;
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (len == 5 && strncasecmp(addr, "false", len) == 0)
|
|
|
|
|
{
|
|
|
|
|
value->type = T_BOOLEAN;
|
|
|
|
|
value->_boolean.value = 0;
|
|
|
|
|
return;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
2008-01-17 22:39:26 +01:00
|
|
|
|
void VALUE_class_read(CLASS *class, VALUE *value, char *addr, CTYPE ctype)
|
2007-12-30 17:41:49 +01:00
|
|
|
|
{
|
|
|
|
|
if (ctype.id == T_OBJECT)
|
|
|
|
|
{
|
|
|
|
|
VALUE_read(value, addr, (ctype.value >= 0) ? (TYPE)class->load->class_ref[ctype.value] : T_OBJECT);
|
|
|
|
|
}
|
2010-05-14 23:30:54 +02:00
|
|
|
|
/*else if (ctype.id == T_ARRAY)
|
2007-12-30 17:41:49 +01:00
|
|
|
|
{
|
|
|
|
|
value->type = T_ARRAY;
|
2008-01-23 20:56:18 +01:00
|
|
|
|
//value->_array.desc = class->load->array[ctype.value];
|
|
|
|
|
value->_array.class = class;
|
2007-12-30 17:41:49 +01:00
|
|
|
|
value->_array.addr = addr;
|
2008-01-23 20:56:18 +01:00
|
|
|
|
value->_array.index = ctype.value;
|
2007-12-30 17:41:49 +01:00
|
|
|
|
value->_array.keep = TRUE; // We suppose that the array goes to the stack
|
2010-05-14 23:30:54 +02:00
|
|
|
|
}*/
|
2007-12-30 17:41:49 +01:00
|
|
|
|
else
|
|
|
|
|
VALUE_read(value, addr, (TYPE)ctype.id);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
2008-01-17 22:39:26 +01:00
|
|
|
|
void VALUE_class_write(CLASS *class, VALUE *value, char *addr, CTYPE ctype)
|
2007-12-30 17:41:49 +01:00
|
|
|
|
{
|
|
|
|
|
if (ctype.id == T_OBJECT)
|
|
|
|
|
{
|
|
|
|
|
VALUE_write(value, addr, (ctype.value >= 0) ? (TYPE)class->load->class_ref[ctype.value] : T_OBJECT);
|
|
|
|
|
}
|
2010-05-14 23:30:54 +02:00
|
|
|
|
/*else if (ctype.id == T_ARRAY)
|
2007-12-30 17:41:49 +01:00
|
|
|
|
{
|
|
|
|
|
THROW(E_UNKNOWN);
|
2010-05-14 23:30:54 +02:00
|
|
|
|
}*/
|
2007-12-30 17:41:49 +01:00
|
|
|
|
else
|
|
|
|
|
VALUE_write(value, addr, (TYPE)ctype.id);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
2008-01-17 22:39:26 +01:00
|
|
|
|
void VALUE_class_constant(CLASS *class, VALUE *value, int ind)
|
2007-12-30 17:41:49 +01:00
|
|
|
|
{
|
|
|
|
|
static void *jump[] =
|
|
|
|
|
{
|
|
|
|
|
&&__ILLEGAL, &&__INTEGER, &&__INTEGER, &&__INTEGER, &&__INTEGER, &&__LONG, &&__FLOAT, &&__FLOAT,
|
|
|
|
|
&&__ILLEGAL, &&__STRING, &&__CSTRING, &&__ILLEGAL, &&__ILLEGAL, &&__ILLEGAL, &&__ILLEGAL, &&__ILLEGAL
|
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
CLASS_CONST *cc;
|
|
|
|
|
|
|
|
|
|
if (ind < 0)
|
|
|
|
|
goto __ILLEGAL;
|
|
|
|
|
|
|
|
|
|
cc = &class->load->cst[ind];
|
|
|
|
|
|
|
|
|
|
value->type = cc->type;
|
|
|
|
|
goto *jump[cc->type];
|
|
|
|
|
|
|
|
|
|
__INTEGER:
|
|
|
|
|
|
|
|
|
|
value->_integer.value = cc->_integer.value;
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
__LONG:
|
|
|
|
|
|
|
|
|
|
value->_long.value = cc->_long.value;
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
__FLOAT:
|
|
|
|
|
|
|
|
|
|
value->_float.value = cc->_float.value;
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
__STRING:
|
|
|
|
|
|
|
|
|
|
value->type = T_CSTRING;
|
|
|
|
|
value->_string.addr = (char *)cc->_string.addr;
|
|
|
|
|
value->_string.start = 0;
|
|
|
|
|
value->_string.len = cc->_string.len;
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
__CSTRING:
|
|
|
|
|
|
|
|
|
|
value->type = T_CSTRING;
|
|
|
|
|
value->_string.addr = (char *)LOCAL_gettext(cc->_string.addr);
|
|
|
|
|
value->_string.start = 0;
|
|
|
|
|
value->_string.len = strlen(value->_string.addr);
|
|
|
|
|
return;
|
|
|
|
|
|
|
|
|
|
__ILLEGAL:
|
|
|
|
|
|
|
|
|
|
EXEC_ILLEGAL();
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
2008-01-17 22:39:26 +01:00
|
|
|
|
bool VALUE_is_null(VALUE *val)
|
2007-12-30 17:41:49 +01:00
|
|
|
|
{
|
2008-01-27 15:00:04 +01:00
|
|
|
|
static void *jump[16] = {
|
|
|
|
|
&&__FALSE, &&__FALSE, &&__FALSE, &&__FALSE, &&__FALSE, &&__FALSE, &&__FALSE, &&__FALSE, &&__DATE,
|
|
|
|
|
&&__STRING, &&__STRING, &&__VARIANT, &&__FALSE, &&__FALSE, &&__FALSE, &&__NULL
|
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
TYPE type = val->type;
|
|
|
|
|
|
|
|
|
|
if (TYPE_is_object(type))
|
|
|
|
|
return val->_object.object == NULL;
|
|
|
|
|
else
|
|
|
|
|
goto *jump[type];
|
|
|
|
|
|
|
|
|
|
__NULL:
|
|
|
|
|
return TRUE;
|
|
|
|
|
|
|
|
|
|
__STRING:
|
|
|
|
|
return val->_string.addr == 0 || val->_string.len == 0;
|
|
|
|
|
|
|
|
|
|
__DATE:
|
|
|
|
|
return val->_date.date == 0 && val->_date.time == 0;
|
|
|
|
|
|
|
|
|
|
__VARIANT:
|
|
|
|
|
|
|
|
|
|
if (val->_variant.vtype == T_NULL)
|
|
|
|
|
return TRUE;
|
2009-11-28 02:22:00 +01:00
|
|
|
|
|
|
|
|
|
if (val->_variant.vtype == T_STRING && val->_variant.value._string == NULL)
|
|
|
|
|
return TRUE;
|
|
|
|
|
|
|
|
|
|
if (val->_variant.vtype == T_DATE && val->_variant.value.data == 0)
|
|
|
|
|
return TRUE;
|
|
|
|
|
|
|
|
|
|
if (TYPE_is_object(val->_variant.vtype) && val->_variant.value._object == NULL)
|
|
|
|
|
return TRUE;
|
2008-01-27 15:00:04 +01:00
|
|
|
|
|
|
|
|
|
__FALSE:
|
2007-12-30 17:41:49 +01:00
|
|
|
|
return FALSE;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
2008-01-17 22:39:26 +01:00
|
|
|
|
void VALUE_get_string(VALUE *val, char **text, int *length)
|
2007-12-30 17:41:49 +01:00
|
|
|
|
{
|
|
|
|
|
if (VALUE_is_null(val))
|
|
|
|
|
{
|
|
|
|
|
*text = 0;
|
|
|
|
|
*length = 0;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
*length = val->_string.len;
|
|
|
|
|
if (*length)
|
|
|
|
|
*text = val->_string.start + val->_string.addr;
|
|
|
|
|
else
|
|
|
|
|
*text = NULL;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|