You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
189 lines
7.1 KiB
189 lines
7.1 KiB
/*++
|
|
|
|
Copyright (C) 1995-1999 Microsoft Corporation
|
|
|
|
Module Name:
|
|
|
|
OPATHLEX.CPP
|
|
|
|
Abstract:
|
|
|
|
Object Path Lexer Map (for use with GENLEX.CPP).
|
|
|
|
History:
|
|
|
|
24-Jun-95 Created.
|
|
14-Apr-98 Radical update for singly quoted strings, remove
|
|
unused tokens, add hex constants, etc.
|
|
|
|
--*/
|
|
|
|
#include <windows.h>
|
|
#include <stdio.h>
|
|
|
|
#include <genlex.h>
|
|
#include <opathlex.h>
|
|
|
|
|
|
#define ST_IDENT 22
|
|
#define ST_NUMERIC 28
|
|
#define ST_DECIMAL 30
|
|
#define ST_HEX 32
|
|
#define ST_SQ_STRING 36
|
|
#define ST_DQ_STRING 40
|
|
#define ST_DQ_STRING_ESC 43
|
|
|
|
|
|
|
|
// DFA State Table for Object Path tokens.
|
|
// =======================================
|
|
|
|
LexEl OPath_LexTable[] =
|
|
{
|
|
|
|
// State First Last New state, Return tok, Instructions
|
|
// =======================================================================
|
|
|
|
// -------------------------------------------------------------
|
|
// Identifiers
|
|
|
|
/* 0 */ L'A', L'Z', ST_IDENT, 0, GLEX_ACCEPT,
|
|
/* 1 */ L'a', L'z', ST_IDENT, 0, GLEX_ACCEPT,
|
|
/* 2 */ 0x80, 0xfffd, ST_IDENT, 0, GLEX_ACCEPT,
|
|
/* 3 */ L'_', GLEX_EMPTY, ST_IDENT, 0, GLEX_ACCEPT,
|
|
|
|
// -------------------------------------------------------------
|
|
// Single symbols
|
|
|
|
/* 4 */ L'.', GLEX_EMPTY, 0, OPATH_TOK_DOT, GLEX_ACCEPT,
|
|
/* 5 */ '@', GLEX_EMPTY, 0, OPATH_TOK_SINGLETON_SYM, GLEX_ACCEPT,
|
|
/* 6 */ L'=', GLEX_EMPTY, 0, OPATH_TOK_EQ, GLEX_ACCEPT,
|
|
/* 7 */ L':', GLEX_EMPTY, 0, OPATH_TOK_COLON, GLEX_ACCEPT,
|
|
|
|
// -------------------------------------------------------------
|
|
// Backslashes & forward slashes are interchangeable and reported
|
|
// as OPATH_TOK_BACKSLASH to the parser.
|
|
|
|
/* 8 */ L'\\', GLEX_EMPTY, 0, OPATH_TOK_BACKSLASH, GLEX_ACCEPT,
|
|
/* 9 */ L'/', GLEX_EMPTY, 0, OPATH_TOK_BACKSLASH, GLEX_ACCEPT,
|
|
|
|
// -------------------------------------------------------------
|
|
// Simple numeric transition. The '-' must be followed
|
|
// by decimal digit sequence. The '0' may be the beginning of a hex
|
|
// or a decimal sequence.
|
|
|
|
/* 10 */ L'1', L'9', ST_DECIMAL, 0, GLEX_ACCEPT,
|
|
/* 11 */ L'-', GLEX_EMPTY, ST_DECIMAL, 0, GLEX_ACCEPT,
|
|
/* 12 */ L'0', GLEX_EMPTY, ST_NUMERIC, 0, GLEX_ACCEPT,
|
|
|
|
|
|
// -------------------------------------------------------------
|
|
// Simple string transition
|
|
//
|
|
// If a single quote begins the string, it must end the string.
|
|
// Escapes are not supported: 'ab', 'a"b' <not: 'a\'b'>
|
|
//
|
|
// If a double quote begins the string, it must end the string,
|
|
// except that escape+quote is an embedded double quote:
|
|
//
|
|
// "ab", "a'b", "a\"b"
|
|
//
|
|
|
|
/* 13 */ L'"', GLEX_EMPTY, ST_DQ_STRING, 0, GLEX_CONSUME,
|
|
/* 14 */ L'\'', GLEX_EMPTY, ST_SQ_STRING, 0, GLEX_CONSUME,
|
|
|
|
|
|
// -------------------------------------------------------------
|
|
// Whitespace, newlines, etc. Whitespace is an error.
|
|
|
|
/* 15 */ L' ', GLEX_EMPTY, 0, OPATH_TOK_ERROR, GLEX_ACCEPT|GLEX_RETURN,
|
|
/* 16 */ L'\t', GLEX_EMPTY, 0, OPATH_TOK_ERROR, GLEX_ACCEPT|GLEX_RETURN,
|
|
/* 17 */ L'\n', GLEX_EMPTY, 0, OPATH_TOK_ERROR, GLEX_ACCEPT|GLEX_RETURN,
|
|
/* 18 */ L'\r', GLEX_EMPTY, 0, OPATH_TOK_ERROR, GLEX_ACCEPT|GLEX_RETURN,
|
|
/* 19 */ 0, GLEX_EMPTY, 0, OPATH_TOK_EOF, GLEX_CONSUME|GLEX_RETURN, // Note forced return
|
|
/* 20 */ L',', GLEX_EMPTY, 0, OPATH_TOK_COMMA, GLEX_ACCEPT,
|
|
|
|
// All remaining unknown characters
|
|
|
|
/* 21 */ GLEX_ANY, GLEX_EMPTY, 0, OPATH_TOK_ERROR, GLEX_ACCEPT|GLEX_RETURN,
|
|
|
|
|
|
// -------------------------------------------------------------
|
|
// ST_IDENT
|
|
// Accepts C/C++ identifiers, plus any char >= U+0080.
|
|
|
|
/* 22 */ L'a', L'z', ST_IDENT, 0, GLEX_ACCEPT,
|
|
/* 23 */ L'A', L'Z', ST_IDENT, 0, GLEX_ACCEPT,
|
|
/* 24 */ L'_', GLEX_EMPTY, ST_IDENT, 0, GLEX_ACCEPT,
|
|
/* 25 */ L'0', L'9', ST_IDENT, 0, GLEX_ACCEPT,
|
|
/* 26 */ 0x80, 0xfffd, ST_IDENT, 0, GLEX_ACCEPT,
|
|
/* 27 */ GLEX_ANY, GLEX_EMPTY, 0, OPATH_TOK_IDENT, GLEX_PUSHBACK|GLEX_RETURN,
|
|
|
|
// -------------------------------------------------------------
|
|
// ST_NUMERIC
|
|
//
|
|
// A zero has been recognized.
|
|
// If the next char is 'x' or 'X', we have a valid hex sequence.
|
|
// Otherwise, if '1' to '9' we have a decimal sequence.
|
|
//
|
|
|
|
/* 28 */ L'x', GLEX_EMPTY, ST_HEX, 0, GLEX_ACCEPT,
|
|
/* 29 */ L'X', GLEX_EMPTY, ST_HEX, 0, GLEX_ACCEPT,
|
|
|
|
|
|
// -------------------------------------------------------------
|
|
// ST_DECIMAL
|
|
//
|
|
|
|
/* 30 */ L'0', L'9', ST_DECIMAL, 0, GLEX_ACCEPT,
|
|
/* 31 */ GLEX_ANY, GLEX_EMPTY, 0, OPATH_TOK_INT, GLEX_PUSHBACK|GLEX_RETURN,
|
|
|
|
// -------------------------------------------------------------
|
|
// ST_HEX
|
|
//
|
|
// Recognizes a valid hex sequence.
|
|
|
|
/* 32 */ L'a', L'f', ST_HEX, 0, GLEX_ACCEPT,
|
|
/* 33 */ L'A', L'F', ST_HEX, 0, GLEX_ACCEPT,
|
|
/* 34 */ L'0', L'9', ST_HEX, 0, GLEX_ACCEPT,
|
|
/* 35 */ GLEX_ANY, GLEX_EMPTY, 0, OPATH_TOK_HEXINT, GLEX_PUSHBACK|GLEX_RETURN,
|
|
|
|
// -------------------------------------------------------------
|
|
// ST_SQ_STRING : Single quoted strings
|
|
//
|
|
// If a single quote begins the string, it must end the string.
|
|
// Escapes are not supported: 'ab', 'a"b' <not: 'a\'b'>
|
|
|
|
/* 36 */ L'\n', GLEX_EMPTY, 0, OPATH_TOK_ERROR, GLEX_ACCEPT|GLEX_LINEFEED,
|
|
/* 37 */ L'\r', GLEX_EMPTY, 0, OPATH_TOK_ERROR, GLEX_ACCEPT|GLEX_LINEFEED,
|
|
/* 38 */ L'\'', GLEX_EMPTY, 0, OPATH_TOK_QSTRING, GLEX_CONSUME,
|
|
/* 39 */ GLEX_ANY, GLEX_EMPTY, ST_SQ_STRING, 0, GLEX_ACCEPT,
|
|
|
|
// -------------------------------------------------------------
|
|
// ST_DQ_STRING
|
|
//
|
|
// If a double quote begins the string, it must end the string,
|
|
// except that escape+quote is an embedded double quote:
|
|
//
|
|
// "ab", "a'b", "a\"b"
|
|
//
|
|
|
|
/* 40 */ L'\\', GLEX_EMPTY, ST_DQ_STRING_ESC, 0, GLEX_CONSUME, // Escape
|
|
/* 41 */ L'"', GLEX_EMPTY, 0, OPATH_TOK_QSTRING, GLEX_CONSUME,
|
|
/* 42 */ L'"', GLEX_EMPTY, ST_DQ_STRING, 0, GLEX_ACCEPT|GLEX_NOT,
|
|
// Accept anything but a quote
|
|
|
|
//-------------------------------------------------------------
|
|
// ST_DQ_STRING_ESC
|
|
//
|
|
// An escape occurred while in a string.
|
|
// Either an embedded slash or embedded quote must have occurred.
|
|
// Otherwise, an unsupported escape has occurred and we fail.
|
|
|
|
/* 43 */ L'\\', GLEX_EMPTY, ST_DQ_STRING, 0, GLEX_ACCEPT,
|
|
/* 44 */ L'"', GLEX_EMPTY, ST_DQ_STRING, 0, GLEX_ACCEPT,
|
|
/* 45 */ GLEX_ANY, GLEX_EMPTY, 0, OPATH_TOK_ERROR, GLEX_ACCEPT|GLEX_RETURN,
|
|
|
|
};
|
|
|
|
|