gambas-source-code/main/gbx/gbx_c_error.c

166 lines
3.4 KiB
C
Raw Normal View History

/***************************************************************************
gbx_c_error.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_C_ERROR_C
#include "gbx_info.h"
#ifndef GBX_INFO
#include "gb_common.h"
#include "gbx_class.h"
#include "gbx_debug.h"
#include "gambas.h"
#include "gbx_api.h"
#include "gbx_object.h"
#include "gbx_string.h"
#include "gbx_stack.h"
#include "gbx_exec.h"
#include "gbx_c_array.h"
#include "gbx_c_error.h"
BEGIN_PROPERTY(CERROR_code)
GB_ReturnInt(ERROR_last.code);
END_PROPERTY
static char **_arg;
static void get_subst(int np, char **str, int *len)
{
*str = _arg[np];
*len = STRING_length(_arg[np]);
}
BEGIN_PROPERTY(CERROR_text)
if (ERROR_last.code && ERROR_last.msg)
{
if (EXEC_debug)
{
GB_ARRAY array;
char *result;
GB_ArrayNew(&array, T_STRING, 0);
CARRAY_split(array, ERROR_last.msg, strlen(ERROR_last.msg), "|", "", FALSE, FALSE);
_arg = (char **)GB_ArrayGet(array, 0);
result = STRING_subst(_arg[0], STRING_length(_arg[0]), get_subst);
OBJECT_UNREF(array, "CERROR_text");
GB_ReturnNewZeroString(result);
}
else
{
if (ERROR_last.free)
GB_ReturnString(ERROR_last.msg);
else
GB_ReturnConstZeroString(ERROR_last.msg);
}
}
else
GB_ReturnNull();
END_PROPERTY
BEGIN_PROPERTY(CERROR_class)
if (ERROR_last.code)
GB_ReturnObject(ERROR_last.cp);
else
GB_ReturnNull();
END_PROPERTY
BEGIN_PROPERTY(CERROR_where)
if (ERROR_last.code)
GB_ReturnNewZeroString(DEBUG_get_position(ERROR_last.cp, ERROR_last.fp, ERROR_last.pc));
else
GB_ReturnNull();
END_PROPERTY
BEGIN_METHOD_VOID(CERROR_clear)
ERROR_reset(&ERROR_last);
END_METHOD
BEGIN_METHOD(CERROR_raise, GB_STRING msg)
ERROR_define(GB_ToZeroString(ARG(msg)), NULL);
EXEC_set_native_error(TRUE);
END_METHOD
BEGIN_METHOD_VOID(CERROR_propagate)
if (ERROR_last.code)
EXEC_set_native_error(TRUE);
END_METHOD
BEGIN_PROPERTY(CERROR_backtrace)
if (!ERROR_last.code || !ERROR_last.bt_count)
GB_ReturnNull();
else
GB_ReturnObject(DEBUG_get_string_array_from_backtrace(&ERROR_last));
END_PROPERTY
#endif
******** Merged /branches/64bits r918:1003 into /trunk [CONFIGURATION] * NEW: 64 bits port. [EXAMPLES] * BUG: Fixed the AnalogWatch example. [WIKI CGI SCRIPT] * NEW: Some little cosmetic changes. [INTERPRETER] * NEW: The extern function implementation has been redesigned and is now based on libffi, so that it works on 64 bits system. Because of a flaw in the compiler design, projects that use the Pointer datatype must be recompiled to be used on a 64 bits system. This flaw will be fixed in Gambas 3. * OPT: Put some tables into read-only memory. About 1000 bytes are saved for each running interpreter, except the first one. * BUG: Does not crash anymore if a component cannot be loaded. * NEW: Spanish translation updated. * NEW: A new interpreter API for returning a pointer. [COMPILER] * BUG: Correctly compiles LONG constants inside code. [GB.DEBUG] * BUG: Compiles and links the gb.debug components with the thread libraries. [GB.DB.SQLITE3] * BUG: Getting the primary index of a table without primary index is safe now. [GB.GTK] * BUG: Modified the GLib priority of watched descriptors, as the main loop could enter in a loop in which user interface events were not managed. * BUG: Message boxes use application title without crashing now. [GB.OPENGL] * BUG: Disable dead code. [GB.QT.EXT] * BUG: TextEdit.TextWidth and TextEdit.TextHeight were not declared as read-only properties. [GB.XML.XSLT] * BUG: XSLT class is now declared as being not creatable. git-svn-id: svn://localhost/gambas/trunk@1006 867c0c6c-44f3-4631-809d-bfa615b0a4ec
2008-01-17 22:39:26 +01:00
GB_DESC NATIVE_Error[] =
{
GB_DECLARE("Error", 0), GB_VIRTUAL_CLASS(),
GB_STATIC_PROPERTY_READ("Code", "i", CERROR_code),
GB_STATIC_PROPERTY_READ("Text", "s", CERROR_text),
GB_STATIC_PROPERTY_READ("Class", "Class", CERROR_class),
GB_STATIC_PROPERTY_READ("Where", "s", CERROR_where),
GB_STATIC_PROPERTY_READ("Backtrace", "String[]", CERROR_backtrace),
GB_STATIC_METHOD("Clear", NULL, CERROR_clear, NULL),
GB_STATIC_METHOD("Raise", NULL, CERROR_raise, "(Message)s"),
GB_STATIC_METHOD("Propagate", NULL, CERROR_propagate, NULL),
GB_END_DECLARE
};