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.
93 lines
3.3 KiB
C
93 lines
3.3 KiB
C
/***************************************************************************
|
|
|
|
gbc_read_common.h
|
|
|
|
(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.
|
|
|
|
***************************************************************************/
|
|
|
|
#ifndef __GBC_READ_COMMON_H
|
|
#define __GBC_READ_COMMON_H
|
|
|
|
typedef
|
|
uint PATTERN;
|
|
|
|
enum {
|
|
RT_END = 0,
|
|
RT_NEWLINE = 1,
|
|
RT_RESERVED = 2,
|
|
RT_IDENTIFIER = 3,
|
|
RT_NUMBER = 4,
|
|
RT_STRING = 5,
|
|
RT_TSTRING = 6,
|
|
RT_PARAM = 7,
|
|
RT_SUBR = 8,
|
|
RT_CLASS = 9,
|
|
RT_COMMENT = 10, // Used by Eval()
|
|
RT_OPERATOR = 11, // Used by Eval()
|
|
RT_COMMAND = 12, // unused
|
|
RT_OUTPUT = 0x20,
|
|
RT_POINT = 0x40,
|
|
RT_FIRST = 0x80
|
|
};
|
|
|
|
enum {
|
|
RC_SECTION = 1
|
|
};
|
|
|
|
#define NULL_PATTERN ((PATTERN)0L)
|
|
|
|
#define PATTERN_make(type, index) ((PATTERN)((type) | ((index) << 8)))
|
|
|
|
#define VOID_STRING_INDEX 0xFFFFFF
|
|
|
|
#define PATTERN_flag(pattern) ((pattern) & 0xF0)
|
|
#define PATTERN_type(pattern) ((pattern) & 0xF)
|
|
#define PATTERN_index(pattern) ((pattern) >> 8)
|
|
|
|
#define PATTERN_is(pattern, res) (pattern == PATTERN_make(RT_RESERVED, res))
|
|
|
|
#define PATTERN_is_null(pattern) (pattern == NULL_PATTERN)
|
|
|
|
#define PATTERN_is_end(pattern) (PATTERN_type(pattern) == RT_END)
|
|
#define PATTERN_is_reserved(pattern) (PATTERN_type(pattern) == RT_RESERVED)
|
|
|
|
#define PATTERN_is_identifier(pattern) (PATTERN_type(pattern) == RT_IDENTIFIER)
|
|
#define PATTERN_is_class(pattern) (PATTERN_type(pattern) == RT_CLASS)
|
|
#define PATTERN_is_newline(pattern) (PATTERN_type(pattern) == RT_NEWLINE)
|
|
#define PATTERN_is_param(pattern) (PATTERN_type(pattern) == RT_PARAM)
|
|
#define PATTERN_is_subr(pattern) (PATTERN_type(pattern) == RT_SUBR)
|
|
#define PATTERN_is_number(pattern) (PATTERN_type(pattern) == RT_NUMBER)
|
|
#define PATTERN_is_string(pattern) (PATTERN_type(pattern) == RT_STRING)
|
|
#define PATTERN_is_tstring(pattern) (PATTERN_type(pattern) == RT_TSTRING)
|
|
#define PATTERN_is_command(pattern) (PATTERN_type(pattern) == RT_COMMAND)
|
|
#define PATTERN_is_comment(pattern) (PATTERN_type(pattern) == RT_COMMENT)
|
|
|
|
#define PATTERN_is_newline_end(pattern) (PATTERN_is_newline(pattern) || PATTERN_is_end(pattern))
|
|
|
|
#define PATTERN_is_first(pattern) (((pattern) & RT_FIRST) != 0)
|
|
#define PATTERN_is_point(pattern) (((pattern) & RT_POINT) != 0)
|
|
#define PATTERN_is_output(pattern) (((pattern) & RT_OUTPUT) != 0)
|
|
|
|
#define PATTERN_set_flag(pattern, flag) ((pattern) | flag)
|
|
#define PATTERN_unset_flag(pattern, flag) ((pattern) & ~flag)
|
|
|
|
#define PATTERN_is_operand(pattern) (PATTERN_is_reserved(pattern) && RES_is_operand(PATTERN_index(pattern)))
|
|
#define PATTERN_is_type(pattern) (PATTERN_is_reserved(pattern) && RES_is_type(PATTERN_index(pattern)))
|
|
|
|
#endif
|