New Language: Ada

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@45959 138bc75d-0d04-0410-961f-82ee72b054a4

1 files changed, 161 insertions, 0 deletions

diff --git a/gcc/ada/stringt.ads b/gcc/ada/stringt.ads
new file mode 100644
index 00000000000..0d4350ec090
--- /dev/null
+++ b/gcc/ada/stringt.ads
@@ -0,0 +1,161 @@
+------------------------------------------------------------------------------
+--                                                                          --
+--                         GNAT COMPILER COMPONENTS                         --
+--                                                                          --
+--                              S T R I N G T                               --
+--                                                                          --
+--                                 S p e c                                  --
+--                                                                          --
+--                            $Revision: 1.39 $
+--                                                                          --
+--          Copyright (C) 1992-2001 Free Software Foundation, Inc.          --
+--                                                                          --
+-- GNAT is free software;  you can  redistribute it  and/or modify it under --
+-- terms of the  GNU General Public License as published  by the Free Soft- --
+-- ware  Foundation;  either version 2,  or (at your option) any later ver- --
+-- sion.  GNAT is distributed in the hope that it will be useful, but WITH- --
+-- OUT 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  distributed with GNAT;  see file COPYING.  If not, write --
+-- to  the Free Software Foundation,  59 Temple Place - Suite 330,  Boston, --
+-- MA 02111-1307, USA.                                                      --
+--                                                                          --
+-- As a special exception,  if other files  instantiate  generics from this --
+-- unit, or you link  this unit with other files  to produce an executable, --
+-- this  unit  does not  by itself cause  the resulting  executable  to  be --
+-- covered  by the  GNU  General  Public  License.  This exception does not --
+-- however invalidate  any other reasons why  the executable file  might be --
+-- covered by the  GNU Public License.                                      --
+--                                                                          --
+-- GNAT was originally developed  by the GNAT team at  New York University. --
+-- It is now maintained by Ada Core Technologies Inc (http://www.gnat.com). --
+--                                                                          --
+------------------------------------------------------------------------------
+
+with System; use System;
+with Types;  use Types;
+
+package Stringt is
+
+--  This package contains routines for handling the strings table which is
+--  used to store string constants encountered in the source, and also those
+--  additional string constants generated by compile time concatenation and
+--  other similar processing.
+
+--  A string constant in this table consists of a series of Char_Code values,
+--  so that 16-bit character codes can be properly handled if this feature
+--  is implemented in the scanner.
+
+--  There is no guarantee that hashing is used in the implementation, although
+--  it maybe. This means that the caller cannot count on having the same Id
+--  value for two identical strings stored separately and also cannot count on
+--  the two Id values being different.
+
+   --------------------------------------
+   -- String Table Access Subprograms --
+   --------------------------------------
+
+   procedure Initialize;
+   --  Initializes the strings table for a new compilation. Note that
+   --  Initialize must not be called if Tree_Read is used.
+
+   procedure Lock;
+   --  Lock internal tables before calling back end
+
+   procedure Unlock;
+   --  Unlock internal tables, in case back end needs to modify them
+
+   procedure Start_String;
+   --  Sets up for storing a new string in the table. To store a string, a
+   --  call is first made to Start_String, then successive calls are
+   --  made to Store_String_Character to store the characters of the string.
+   --  Finally, a call to End_String terminates the entry and returns it Id.
+
+   procedure Start_String (S : String_Id);
+   --  Like Start_String with no parameter, except that the contents of the
+   --  new string is initialized to be a copy of the given string. A test is
+   --  made to see if S is the last created string, and if so it is shared,
+   --  rather than copied, this can be particularly helpful for the case of
+   --  a continued concatenaion of string constants.
+
+   procedure Store_String_Char (C : Char_Code);
+   procedure Store_String_Char (C : Character);
+   --  Store next character of string, see description above for Start_String
+
+   procedure Store_String_Chars (S : String);
+   procedure Store_String_Chars (S : String_Id);
+   --  Store character codes of given string in sequence
+
+   procedure Store_String_Int (N : Int);
+   --  Stored decimal representation of integer with possible leading minus
+
+   procedure Unstore_String_Char;
+   --  Undoes effect of previous Store_String_Char call, used in some error
+   --  situations of unterminated string constants.
+
+   function End_String return String_Id;
+   --  Terminates current string and returns its Id
+
+   function String_Length (Id : String_Id) return Nat;
+   --  Returns length of previously stored string
+
+   function Get_String_Char (Id : String_Id; Index : Int) return Char_Code;
+   --  Obtains the specified character from a stored string. The lower bound
+   --  of stored strings is always 1, so the range is 1 .. String_Length (Id).
+
+   function String_Equal (L, R : String_Id) return Boolean;
+   --  Determines if two string literals represent the same string
+
+   procedure String_To_Name_Buffer (S : String_Id);
+   --  Place characters of given string in Name_Buffer, setting Name_Len
+
+   procedure Add_String_To_Name_Buffer (S : String_Id);
+   --  Append characters of given string to Name_Buffer, updating Name_Len
+
+   function String_Chars_Address return System.Address;
+   --  Return address of String_Chars table (used by Back_End call to Gigi)
+
+   function String_From_Name_Buffer return String_Id;
+   --  Given a name stored in Namet.Name_Buffer (length in Namet.Name_Len),
+   --  returns a string of the corresponding value. The value in Name_Buffer
+   --  is unchanged, and the cases of letters are unchanged.
+
+   function Strings_Address return System.Address;
+   --  Return address of Strings table (used by Back_End call to Gigi)
+
+   procedure Tree_Read;
+   --  Initializes internal tables from current tree file using Tree_Read.
+   --  Note that Initialize should not be called if Tree_Read is used.
+   --  Tree_Read includes all necessary initialization.
+
+   procedure Tree_Write;
+   --  Writes out internal tables to current tree file using Tree_Write
+
+   procedure Write_Char_Code (Code : Char_Code);
+   --  Procedure to write a character code value, used for debugging purposes
+   --  for writing character codes. If the character code is in the range
+   --  16#20# .. 16#7E#, then the single graphic character corresponding to
+   --  the code is output. For any other codes in the range 16#00# .. 16#FF#,
+   --  the code is output as ["hh"] where hh is the two digit hex value for
+   --  the code. Codes greater than 16#FF# are output as ["hhhh"] where hhhh
+   --  is the four digit hex representation of the code value (high order
+   --  byte first). Hex letters are always in upper case.
+
+   procedure Write_String_Table_Entry (Id : String_Id);
+   --  Writes a string value with enclosing quotes to the current file using
+   --  routines in package Output. Does not write an end of line character.
+   --  This procedure is used for debug output purposes, and also for output
+   --  of strings specified by pragma Linker Option to the ali file. 7-bit
+   --  ASCII graphics (except for double quote and left brace) are output
+   --  literally. The double quote appears as two successive double quotes.
+   --  All other codes, are output as described for Write_Char_Code. For
+   --  example, the string created by folding "A" & ASCII.LF & "Hello" will
+   --  print as "A{0A}Hello". A No_String value prints simply as "no string"
+   --  without surrounding quote marks.
+
+private
+   pragma Inline (End_String);
+   pragma Inline (String_Length);
+
+end Stringt;