vhdl: move tokens as vhdl child package.

1 files changed, 0 insertions, 455 deletions

diff --git a/src/vhdl/tokens.adb b/src/vhdl/tokens.adb
deleted file mode 100644
index a46edf017..000000000
--- a/src/vhdl/tokens.adb
+++ /dev/null
@@ -1,455 +0,0 @@
---  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
-           | Tok_Integer_Letter =>
-            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 "??";
-
-         when Tok_Double_Less =>
-            return "<<";
-         when Tok_Double_Greater =>
-            return ">>";
-         when Tok_Caret =>
-            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";
-
-         --  VHDL 08
-         when Tok_Context =>
-            return "context";
-         when Tok_Parameter =>
-            return "parameter";
-
-         --  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_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;