348f1cefbd
* BUG: Fix a useless and incorrect string initialization in the UTF-8 to UTF-16 internal conversion routine. * BUG: Native functions that return a string must not use the GB.ReturnNull() API, but GB.ReturnVoidString() instead. Fix the String.LCase() and String.UCase() functions accordingly. * BUG: Date() function takes one argument, or at least three arguments now. git-svn-id: svn://localhost/gambas/trunk@4213 867c0c6c-44f3-4631-809d-bfa615b0a4ec
142 lines
2.7 KiB
C
142 lines
2.7 KiB
C
/***************************************************************************
|
|
|
|
gbx_eval.c
|
|
|
|
(c) 2000-2011 Benoît Minisini <gambas@users.sourceforge.net>
|
|
|
|
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
|
|
the Free Software Foundation; either version 2, or (at your option)
|
|
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., 51 Franklin Street, Fifth Floor, Boston,
|
|
MA 02110-1301, USA.
|
|
|
|
***************************************************************************/
|
|
|
|
#define __GBX_EVAL_C
|
|
|
|
#include "gb_common.h"
|
|
|
|
#include "gb_array.h"
|
|
#include "gbx_string.h"
|
|
#include "gbx_class.h"
|
|
#include "gbx_exec.h"
|
|
|
|
#include "gbx_eval.h"
|
|
|
|
#include "gbx_c_collection.h"
|
|
#include "gbx_api.h"
|
|
|
|
bool EVAL_debug = FALSE;
|
|
|
|
static EXPRESSION *EVAL;
|
|
|
|
static void EVAL_enter()
|
|
{
|
|
STACK_push_frame(&EXEC_current, EVAL->func.stack_usage);
|
|
|
|
BP = SP;
|
|
PP = SP;
|
|
FP = &EVAL->func;
|
|
PC = EVAL->func.code;
|
|
|
|
OP = NULL;
|
|
CP = &EVAL->exec_class;
|
|
//AP = ARCH_from_class(CP);
|
|
|
|
EP = NULL;
|
|
EC = NULL;
|
|
|
|
RP->type = T_VOID;
|
|
}
|
|
|
|
static void error_EVAL_exec(void)
|
|
{
|
|
STACK_pop_frame(&EXEC_current);
|
|
}
|
|
|
|
static void EVAL_exec()
|
|
{
|
|
// We need to push a void frame, because EXEC_leave looks at *PC to know if a return value is expected
|
|
STACK_push_frame(&EXEC_current, 0);
|
|
|
|
PC = NULL;
|
|
|
|
ON_ERROR(error_EVAL_exec)
|
|
{
|
|
EVAL_enter();
|
|
}
|
|
END_ERROR
|
|
|
|
EXEC_function_loop();
|
|
|
|
TEMP = *RP;
|
|
UNBORROW(&TEMP);
|
|
}
|
|
|
|
bool EVAL_expression(EXPRESSION *expr, EVAL_FUNCTION func)
|
|
{
|
|
int i;
|
|
EVAL_SYMBOL *sym;
|
|
bool debug;
|
|
bool error;
|
|
int nvar;
|
|
/*HASH_TABLE *hash_table;
|
|
char *name;
|
|
CCOL_ENUM enum_state;*/
|
|
|
|
EVAL = expr;
|
|
|
|
#ifdef DEBUG
|
|
fprintf(stderr, "EVAL: %s\n", EVAL->source);
|
|
#endif
|
|
|
|
nvar = EVAL->nvar;
|
|
|
|
STACK_check(nvar);
|
|
|
|
for (i = 0; i < nvar; i++)
|
|
{
|
|
SP[i].type = T_VARIANT;
|
|
SP[i]._variant.vtype = T_NULL;
|
|
|
|
sym = (EVAL_SYMBOL *)TABLE_get_symbol(EVAL->table, EVAL->var[EVAL->nvar - i - 1]);
|
|
if ((*func)(sym->sym.name, sym->sym.len, (GB_VARIANT *)&SP[i]))
|
|
{
|
|
GB_Error("Unknown symbol");
|
|
return TRUE;
|
|
}
|
|
}
|
|
|
|
for (i = 0; i < nvar; i++)
|
|
BORROW(&SP[i]);
|
|
SP += nvar;
|
|
|
|
debug = EXEC_debug;
|
|
EXEC_debug = FALSE;
|
|
error = FALSE;
|
|
|
|
TRY
|
|
{
|
|
EVAL_exec();
|
|
}
|
|
CATCH
|
|
{
|
|
error = TRUE;
|
|
}
|
|
END_TRY
|
|
|
|
EXEC_debug = debug;
|
|
return error;
|
|
}
|
|
|
|
|
|
|