-- Scanner token definitions.
-- Copyright (C) 2002-2019 Tristan Gingold
--
-- GHDL 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.
--
-- GHDL 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 GHDL; see the file COPYING. If not, write to the Free
-- Software Foundation, 59 Temple Place - Suite 330, Boston, MA
-- 02111-1307, USA.
package Vhdl.Tokens is
pragma Pure (Vhdl.Tokens);
type Token_Type is
(
Tok_Invalid, -- current_token is not valid.
Tok_Left_Paren, -- (
Tok_Right_Paren, -- )
Tok_Left_Bracket, -- [
Tok_Right_Bracket, -- ]
Tok_Colon, -- :
Tok_Semi_Colon, -- ;
Tok_Comma, -- ,
Tok_Double_Arrow, -- =>
Tok_Tick, -- '
Tok_Double_Star, -- **
Tok_Assign, -- :=
Tok_Bar, -- |
Tok_Box, -- <>
Tok_Dot, -- .
Tok_Equal_Equal, -- == (AMS Vhdl)
Tok_Eof, -- End of file.
Tok_Newline,
Tok_Line_Comment, -- End of line comment (--)
Tok_Block_Comment, -- Block comment (/* .. */)
Tok_Character,
Tok_Identifier,
Tok_Integer,
Tok_Real,
Tok_String,
-- This token corresponds to a base specifier followed by bit_value.
-- The base specifier is stored in Name_Buffer/Name_Length like an
-- identifier (in lowercase), the String8_Id contains the expanded bit
-- value.
Tok_Bit_String,
-- An integer immediately followed by a letter. This is used by to
-- scan vhdl 2008 (and later) bit string with a length.
Tok_Integer_Letter,
-- relational_operator
Tok_Equal, -- =
Tok_Not_Equal, -- /=
Tok_Less, -- <
Tok_Less_Equal, -- <=
Tok_Greater, -- >
Tok_Greater_Equal, -- >=
Tok_Match_Equal, -- ?=
Tok_Match_Not_Equal, -- ?/=
Tok_Match_Less, -- ?<
Tok_Match_Less_Equal, -- ?<=
Tok_Match_Greater, -- ?>
Tok_Match_Greater_Equal, -- ?>=
-- sign token
Tok_Plus, -- +
Tok_Minus, -- -
-- and adding_operator
Tok_Ampersand, -- &
-- VHDL 2008
Tok_Condition, -- ??
Tok_Double_Less, -- <<
Tok_Double_Greater, -- >>
Tok_Caret, -- ^
-- PSL
Tok_And_And, -- &&
Tok_Bar_Bar, -- ||
Tok_Left_Curly, -- {
Tok_Right_Curly, -- }
Tok_Exclam_Mark, -- !
Tok_Brack_Star, -- [*
Tok_Brack_Plus_Brack, -- [+]
Tok_Brack_Arrow, -- [->
Tok_Brack_Equal, -- [=
Tok_Bar_Arrow, -- |->
Tok_Bar_Double_Arrow, -- |=>
Tok_Minus_Greater, -- ->
Tok_Arobase, -- @
-- multiplying operator
Tok_Star, -- *
Tok_Slash, -- /
Tok_Mod, -- mod
Tok_Rem, -- rem
-- miscellaneous operator
Tok_Abs,
Tok_Not,
-- Key words
Tok_Access,
Tok_After,
Tok_Alias,
Tok_All,
Tok_Architecture,
Tok_Array,
Tok_Assert,
Tok_Attribute,
Tok_Begin,
Tok_Block,
Tok_Body,
Tok_Buffer,
Tok_Bus,
Tok_Case,
Tok_Component,
Tok_Configuration,
Tok_Constant,
Tok_Disconnect,
Tok_Downto,
Tok_Else,
Tok_Elsif,
Tok_End,
Tok_Entity,
Tok_Exit,
Tok_File,
Tok_For,
Tok_Function,
Tok_Generate,
Tok_Generic,
Tok_Guarded,
Tok_If,
Tok_In,
Tok_Inout,
Tok_Is,
Tok_Label,
Tok_Library,
Tok_Linkage,
Tok_Loop,
Tok_Map,
Tok_New,
Tok_Next,
Tok_Null,
Tok_Of,
Tok_On,
Tok_Open,
Tok_Others,
Tok_Out,
Tok_Package,
Tok_Port,
Tok_Procedure,
Tok_Process,
Tok_Range,
Tok_Record,
Tok_Register,
Tok_Report,
Tok_Return,
Tok_Select,
Tok_Severity,
Tok_Signal,
Tok_Subtype,
Tok_Then,
Tok_To,
Tok_Transport,
Tok_Type,
Tok_Units,
Tok_Until,
Tok_Use,
Tok_Variable,
Tok_Wait,
Tok_When,
Tok_While,
Tok_With,
-- logical token:
Tok_And,
Tok_Or,
Tok_Xor,
Tok_Nand,
Tok_Nor,
-- Tokens below this line are key words in vhdl93 but not in vhdl87
-- Note: xnor is the first one, as it is a logical token.
Tok_Xnor,
Tok_Group,
Tok_Impure,
Tok_Inertial,
Tok_Literal,
Tok_Postponed,
Tok_Pure,
Tok_Reject,
Tok_Shared,
Tok_Unaffected,
-- shift_operator
Tok_Sll,
Tok_Sla,
Tok_Sra,
Tok_Srl,
Tok_Rol,
Tok_Ror,
-- Added by Vhdl 2000:
Tok_Protected,
-- Added by vhdl 2008:
Tok_Assume,
Tok_Context,
Tok_Cover,
Tok_Default,
Tok_Parameter,
Tok_Property,
Tok_Restrict,
Tok_Restrict_Guarantee,
Tok_Sequence,
Tok_Vmode,
Tok_Vprop,
Tok_Vunit,
-- AMS reserved words
Tok_Across,
Tok_Break,
Tok_Limit,
Tok_Nature,
Tok_Noise,
Tok_Procedural,
Tok_Quantity,
Tok_Reference,
Tok_Spectrum,
Tok_Subnature,
Tok_Terminal,
Tok_Through,
Tok_Tolerance,
-- PSL words
Tok_Psl_Clock,
Tok_Psl_Endpoint,
Tok_Psl_Const,
Tok_Psl_Boolean,
Tok_Inf,
Tok_Within,
Tok_Abort,
Tok_Before,
Tok_Before_Em,
Tok_Before_Un,
Tok_Before_Em_Un,
Tok_Always,
Tok_Never,
Tok_Eventually_Em,
Tok_Next_Em,
Tok_Next_A,
Tok_Next_A_Em,
Tok_Next_E,
Tok_Next_E_Em,
Tok_Next_Event,
Tok_Next_Event_Em,
Tok_Next_Event_A,
Tok_Next_Event_A_Em,
Tok_Next_Event_E,
Tok_Next_Event_E_Em,
Tok_Until_Em,
Tok_Until_Un,
Tok_Until_Em_Un
);
-- To ease interfacing
pragma Convention (C, Token_Type);
subtype Token_Logical_Type is Token_Type range
Tok_And .. Tok_Xnor;
subtype Token_Relational_Operator_Type is Token_Type range
Tok_Equal .. Tok_Match_Greater_Equal;
subtype Token_Shift_Operator_Type is Token_Type range
Tok_Sll .. Tok_Ror;
subtype Token_Sign_Type is Token_Type range
Tok_Plus .. Tok_Minus;
subtype Token_Adding_Operator_Type is Token_Type range
Tok_Plus .. Tok_Ampersand;
subtype Token_Multiplying_Operator_Type is Token_Type range
Tok_Star .. Tok_Rem;
Tok_First_Keyword : constant Tokens.Token_Type := Tokens.Tok_Mod;
-- Return the name of the token.
function Image (Token: Token_Type) return String;
end Vhdl.Tokens;