gambas-source-code/main/share/gbc_read_common.h
Benoît Minisini 6a793ddeb7 Replace my old depracted gmail mail by the new one.
[CONFIGURATION]
* NEW: Replace my old depracted gmail mail by the new one.
2022-09-12 15:13:13 +02:00

108 lines
3.8 KiB
C

/***************************************************************************
gbc_read_common.h
(c) 2000-2017 Benoît Minisini <benoit.minisini@gambas-basic.org>
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_INTEGER = 4,
RT_NUMBER = 5,
RT_STRING = 6,
RT_TSTRING = 7,
RT_PARAM = 8,
RT_SUBR = 9,
RT_CLASS = 10,
RT_COMMENT = 11,
RT_OPERATOR = 12,
RT_SPACE = 13,
RT_DATATYPE = 14,
RT_ERROR = 15,
RT_HELP = 16,
RT_PREPROCESSOR = 17,
RT_ESCAPE = 18,
RT_LABEL = 19,
RT_CONSTANT = 20,
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_signed_index(pattern) ((int)(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_integer(pattern) (PATTERN_type(pattern) == RT_INTEGER)
#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_space(pattern) (PATTERN_type(pattern) == RT_SPACE)
#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)))
#define PATTERN_is_preprocessor(pattern) (PATTERN_is_reserved(pattern) && RES_is_preprocessor(PATTERN_index(pattern)))
#endif