Move sources to src/ subdirectory.

1 files changed, 443 insertions, 0 deletions

diff --git a/src/tokens.adb b/src/tokens.adb
new file mode 100644
index 000000000..5d27be8d9
--- /dev/null
+++ b/src/tokens.adb
@@ -0,0 +1,443 @@
+--  Scanner token definitions.
+--  Copyright (C) 2002, 2003, 2004, 2005 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 body Tokens is
+   -- Return the name of the token.
+   function Image (Token: Token_Type) return String is
+   begin
+      case Token is
+         when Tok_Invalid =>
+            return "<invalid>";
+         when Tok_Left_Paren =>
+            return "(";
+         when Tok_Right_Paren =>
+            return ")";
+         when Tok_Left_Bracket =>
+            return "[";
+         when Tok_Right_Bracket =>
+            return "]";
+         when Tok_Colon =>
+            return ":";
+         when Tok_Semi_Colon =>
+            return ";";
+         when Tok_Comma =>
+            return ",";
+         when Tok_Tick =>
+            return "'";
+         when Tok_Double_Star =>
+            return "**";
+         when Tok_Double_Arrow =>
+            return "=>";
+         when Tok_Assign =>
+            return ":=";
+         when Tok_Bar =>
+            return "|";
+         when Tok_Box =>
+            return "<>";
+         when Tok_Dot =>
+            return ".";
+
+         when Tok_Eof =>
+            return "<EOF>";
+         when Tok_Newline =>
+            return "<newline>";
+         when Tok_Comment =>
+            return "<comment>";
+         when Tok_Character =>
+            return "<character>";
+         when Tok_Identifier =>
+            return "<identifier>";
+         when Tok_Integer =>
+            return "<integer>";
+         when Tok_Real =>
+            return "<real>";
+         when Tok_String =>
+            return "<string>";
+         when Tok_Bit_String =>
+            return "<bit string>";
+
+         when Tok_Equal_Equal =>
+            return "==";
+
+         -- relational_operator:
+         when Tok_Equal =>
+            return "=";
+         when Tok_Not_Equal =>
+            return "/=";
+         when Tok_Less =>
+            return "<";
+         when Tok_Less_Equal =>
+            return "<=";
+         when Tok_Greater =>
+            return ">";
+         when Tok_Greater_Equal =>
+            return ">=";
+
+         when Tok_Match_Equal =>
+            return "?=";
+         when Tok_Match_Not_Equal =>
+            return "?/=";
+         when Tok_Match_Less =>
+            return "?<";
+         when Tok_Match_Less_Equal =>
+            return "?<=";
+         when Tok_Match_Greater =>
+            return "?>";
+         when Tok_Match_Greater_Equal =>
+            return "?>=";
+
+         -- sign token
+         when Tok_Plus =>
+            return "+";
+         when Tok_Minus =>
+            return "-";
+         -- and adding_operator
+         when Tok_Ampersand =>
+            return "&";
+
+         when Tok_Condition =>
+            return "??";
+
+         -- multiplying operator
+         when Tok_Star =>
+            return "*";
+         when Tok_Slash =>
+            return "/";
+         when Tok_Mod =>
+            return "mod";
+         when Tok_Rem =>
+            return "rem";
+
+         -- relation token:
+         when Tok_And =>
+            return "and";
+         when Tok_Or =>
+            return "or";
+         when Tok_Xor =>
+            return "xor";
+         when Tok_Nand =>
+            return "nand";
+         when Tok_Nor =>
+            return "nor";
+         when Tok_Xnor =>
+            return "xnor";
+
+         -- Reserved words.
+         when Tok_Abs =>
+            return "abs";
+         when Tok_Access =>
+            return "access";
+         when Tok_After =>
+            return "after";
+         when Tok_Alias =>
+            return "alias";
+         when Tok_All =>
+            return "all";
+         when Tok_Architecture =>
+            return "architecture";
+         when Tok_Array =>
+            return "array";
+         when Tok_Assert =>
+            return "assert";
+         when Tok_Attribute =>
+            return "attribute";
+
+         when Tok_Begin =>
+            return "begin";
+         when Tok_Block =>
+            return "block";
+         when Tok_Body =>
+            return "body";
+         when Tok_Buffer =>
+            return "buffer";
+         when Tok_Bus =>
+            return "bus";
+
+         when Tok_Case =>
+            return "case";
+         when Tok_Component =>
+            return "component";
+         when Tok_Configuration =>
+            return "configuration";
+         when Tok_Constant =>
+            return "constant";
+
+         when Tok_Disconnect =>
+            return "disconnect";
+         when Tok_Downto =>
+            return "downto";
+
+         when Tok_Else =>
+            return "else";
+         when Tok_Elsif =>
+            return "elsif";
+         when Tok_End =>
+            return "end";
+         when Tok_Entity =>
+            return "entity";
+         when Tok_Exit =>
+            return "exit";
+
+         when Tok_File =>
+            return "file";
+         when Tok_For =>
+            return "for";
+         when Tok_Function =>
+            return "function";
+
+         when Tok_Generate =>
+            return "generate";
+         when Tok_Generic =>
+            return "generic";
+         when Tok_Group =>
+            return "group";
+         when Tok_Guarded =>
+            return "guarded";
+
+         when Tok_If =>
+            return "if";
+         when Tok_Impure =>
+            return "impure";
+         when Tok_In =>
+            return "in";
+         when Tok_Inertial =>
+            return "inertial";
+         when Tok_Inout =>
+            return "inout";
+         when Tok_Is =>
+            return "is";
+
+         when Tok_Label =>
+            return "label";
+         when Tok_Library =>
+            return "library";
+         when Tok_Linkage =>
+            return "linkage";
+         when Tok_Literal =>
+            return "literal";
+         when Tok_Loop =>
+            return "loop";
+
+         when Tok_Map =>
+            return "map";
+
+         when Tok_New =>
+            return "new";
+         when Tok_Next =>
+            return "next";
+         when Tok_Not =>
+            return "not";
+         when Tok_Null =>
+            return "null";
+
+         when Tok_Of =>
+            return "of";
+         when Tok_On =>
+            return "on";
+         when Tok_Open =>
+            return "open";
+         when Tok_Out =>
+            return "out";
+         when Tok_Others =>
+            return "others";
+
+         when Tok_Package =>
+            return "package";
+         when Tok_Port =>
+            return "port";
+         when Tok_Postponed =>
+            return "postponed";
+         when Tok_Procedure =>
+            return "procedure";
+         when Tok_Process =>
+            return "process";
+         when Tok_Pure =>
+            return "pure";
+
+         when Tok_Range =>
+            return "range";
+         when Tok_Record =>
+            return "record";
+         when Tok_Register =>
+            return "register";
+         when Tok_Reject =>
+            return "reject";
+         when Tok_Report =>
+            return "report";
+         when Tok_Return =>
+            return "return";
+
+         when Tok_Select =>
+            return "select";
+         when Tok_Severity =>
+            return "severity";
+         when Tok_Shared =>
+            return "shared";
+         when Tok_Signal =>
+            return "signal";
+         when Tok_Subtype =>
+            return "subtype";
+
+         when Tok_Then =>
+            return "then";
+         when Tok_To =>
+            return "to";
+         when Tok_Transport =>
+            return "transport";
+         when Tok_Type =>
+            return "type";
+
+         when Tok_Unaffected =>
+            return "unaffected";
+         when Tok_Units =>
+            return "units";
+         when Tok_Until =>
+            return "until";
+         when Tok_Use =>
+            return "use";
+
+         when Tok_Variable =>
+            return "variable";
+
+         when Tok_Wait =>
+            return "wait";
+         when Tok_When =>
+            return "when";
+         when Tok_While =>
+            return "while";
+         when Tok_With =>
+            return "with";
+
+         -- shift_operator
+         when Tok_Sll =>
+            return "sll";
+         when Tok_Sla =>
+            return "sla";
+         when Tok_Sra =>
+            return "sra";
+         when Tok_Srl =>
+            return "srl";
+         when Tok_Rol =>
+            return "rol";
+         when Tok_Ror =>
+            return "ror";
+
+         --  VHDL 00
+         when Tok_Protected =>
+            return "protected";
+
+         --  AMS-VHDL
+         when Tok_Across =>
+            return "across";
+         when Tok_Break =>
+            return "break";
+         when Tok_Limit =>
+            return "limit";
+         when Tok_Nature =>
+            return "nature";
+         when Tok_Noise =>
+            return "noise";
+         when Tok_Procedural =>
+            return "procedural";
+         when Tok_Quantity =>
+            return "quantity";
+         when Tok_Reference =>
+            return "reference";
+         when Tok_Spectrum =>
+            return "spectrum";
+         when Tok_Subnature =>
+            return "subnature";
+         when Tok_Terminal =>
+            return "terminal";
+         when Tok_Through =>
+            return "through";
+         when Tok_Tolerance =>
+            return "tolerance";
+
+         when Tok_And_And =>
+            return "&&";
+         when Tok_Bar_Bar =>
+            return "||";
+         when Tok_Left_Curly =>
+            return "{";
+         when Tok_Right_Curly =>
+            return "}";
+         when Tok_Exclam_Mark =>
+            return "!";
+         when Tok_Brack_Star =>
+            return "[*";
+         when Tok_Brack_Plus_Brack =>
+            return "[+]";
+         when Tok_Brack_Arrow =>
+            return "[->";
+         when Tok_Brack_Equal =>
+            return "[=";
+         when Tok_Bar_Arrow =>
+            return "|->";
+         when Tok_Bar_Double_Arrow =>
+            return "|=>";
+         when Tok_Minus_Greater =>
+            return "->";
+         when Tok_Arobase =>
+            return "@";
+
+         when Tok_Psl_Default =>
+            return "default";
+         when Tok_Psl_Clock =>
+            return "clock";
+         when Tok_Psl_Property =>
+            return "property";
+         when Tok_Psl_Sequence =>
+            return "sequence";
+         when Tok_Psl_Endpoint =>
+            return "endpoint";
+         when Tok_Psl_Assert =>
+            return "assert";
+         when Tok_Psl_Cover =>
+            return "cover";
+         when Tok_Psl_Const =>
+            return "const";
+         when Tok_Psl_Boolean =>
+            return "boolean";
+         when Tok_Inf =>
+            return "inf";
+         when Tok_Within =>
+            return "within";
+         when Tok_Abort =>
+            return "abort";
+         when Tok_Before =>
+            return "before";
+         when Tok_Always =>
+            return "always";
+         when Tok_Never =>
+            return "never";
+         when Tok_Eventually =>
+            return "eventually";
+         when Tok_Next_A =>
+            return "next_a";
+         when Tok_Next_E =>
+            return "next_e";
+         when Tok_Next_Event =>
+            return "next_event";
+         when Tok_Next_Event_A =>
+            return "next_event_a";
+         when Tok_Next_Event_E =>
+            return "next_event_e";
+      end case;
+   end Image;
+
+end Tokens;