a73c2ed412
[COMPILER] * NEW: Rename a macro constant to avoid a symbol clash when compiling the interpreter. [INTERPRETER] * NEW: Get rid of a macro trick in 'gbx_eval.h' header. [GB.EVAL] * NEW: Highlight: Add three new color constants for syntax highlighting: Escape, Label and Constant. * NEW: Rename some source files. * NEW: Rename some constants. * NEW: Gambas syntax highlighter now use the three new contants for escape characters in strings, for labels, and for language contants (True, False, Null, +Inf and -Inf). [GB.EVAL.HIGHLIGHT] * NEW: Support for the new syntax highlighting color constants. [GB.FORM.EDITOR] * NEW: Support for the new syntax highlighting color constants.
110 lines
2.4 KiB
C
110 lines
2.4 KiB
C
/***************************************************************************
|
|
|
|
c_system.c
|
|
|
|
(c) 2000-2017 Benoît Minisini <g4mba5@gmail.com>
|
|
|
|
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 __C_SYSTEM_C
|
|
|
|
#include "gambas.h"
|
|
#include "gb_common.h"
|
|
#include "gb_reserved.h"
|
|
#include "c_system.h"
|
|
|
|
static GB_ARRAY _keywords = 0;
|
|
static GB_ARRAY _datatypes = 0;
|
|
|
|
BEGIN_PROPERTY(CSYSTEM_keywords)
|
|
|
|
COMP_INFO *info;
|
|
SUBR_INFO *subr;
|
|
char *str;
|
|
|
|
if (!_keywords)
|
|
{
|
|
GB.Array.New(&_keywords, GB_T_STRING, 0);
|
|
|
|
for (info = &COMP_res_info[1]; info->name; info++)
|
|
{
|
|
if (*info->name >= 'A' && *info->name <= 'Z')
|
|
{
|
|
str = GB.NewZeroString(info->name);
|
|
*((char **)GB.Array.Add(_keywords)) = str;
|
|
}
|
|
}
|
|
|
|
for (subr = &COMP_subr_info[0]; subr->name; subr++)
|
|
{
|
|
str = GB.NewZeroString(subr->name);
|
|
*((char **)GB.Array.Add(_keywords)) = str;
|
|
}
|
|
|
|
GB.Ref(_keywords);
|
|
}
|
|
|
|
GB.ReturnObject(_keywords);
|
|
|
|
END_PROPERTY
|
|
|
|
BEGIN_PROPERTY(CSYSTEM_datatypes)
|
|
|
|
COMP_INFO *info;
|
|
char *str;
|
|
|
|
if (!_datatypes)
|
|
{
|
|
GB.Array.New(&_datatypes, GB_T_STRING, 0);
|
|
|
|
for (info = &COMP_res_info[1]; info->name; info++)
|
|
{
|
|
if (info->flag & RSF_TYPE)
|
|
{
|
|
str = GB.NewZeroString(info->name);
|
|
*((char **)GB.Array.Add(_datatypes)) = str;
|
|
}
|
|
}
|
|
|
|
GB.Ref(_datatypes);
|
|
}
|
|
|
|
GB.ReturnObject(_datatypes);
|
|
|
|
END_PROPERTY
|
|
|
|
BEGIN_METHOD_VOID(CSYSTEM_exit)
|
|
|
|
GB.Unref((void **)&_keywords);
|
|
GB.Unref((void **)&_datatypes);
|
|
|
|
END_METHOD
|
|
|
|
|
|
GB_DESC CSystemDesc[] =
|
|
{
|
|
GB_DECLARE("System", 0),
|
|
|
|
GB_STATIC_METHOD("_exit", NULL, CSYSTEM_exit, NULL),
|
|
|
|
GB_STATIC_PROPERTY_READ("Keywords", "String[]", CSYSTEM_keywords),
|
|
GB_STATIC_PROPERTY_READ("Datatypes", "String[]", CSYSTEM_datatypes),
|
|
|
|
GB_END_DECLARE
|
|
};
|
|
|