Make-lang.in: Add g-utf_32 unit for gnat and gnatbind

2005-03-08  Robert Dewar  <dewar@adacore.com>

	* Make-lang.in: Add g-utf_32 unit for gnat and gnatbind

	* impunit.adb: Add GNAT.UTF_32

	* scng.adb: Use gnat.utf_32 instead of widechar for utf_32 stuff

	* widechar.ads, widechar.adb: Remove redundant UTF-32 tables (scng
	now uses GNAT.UTF_32).

	* g-utf_32.ads, g-utf_32.adb: This is a new unit with full
	capabilities for categorizing characters using Unicode categories

From-SVN: r96501

1 files changed, 0 insertions, 74 deletions

diff --git a/gcc/ada/widechar.ads b/gcc/ada/widechar.ads
index f70fb72..7b7f520 100644
--- a/gcc/ada/widechar.ads
+++ b/gcc/ada/widechar.ads
@@ -90,78 +90,4 @@ package Widechar is
       P : Source_Ptr) return Boolean;
    --  Determines if S (P) is the start of a wide character sequence
 
-   function Is_UTF_32_Letter (U : Char_Code) return Boolean;
-   pragma Inline (Is_UTF_32_Letter);
-   --  Returns true iff U is a letter that can be used to start an identifier.
-   --  This means that it is in one of the following categories:
-   --    Letter, Uppercase (Lu)
-   --    Letter, Lowercase (Ll)
-   --    Letter, Titlecase (Lt)
-   --    Letter, Modifier  (Lm)
-   --    Letter, Other     (Lo)
-   --    Number, Letter    (Nl)
-
-   function Is_UTF_32_Digit (U : Char_Code) return Boolean;
-   pragma Inline (Is_UTF_32_Digit);
-   --  Returns true iff U is a digit that can be used to extend an identifer,
-   --  which means it is in one of the following categories:
-   --    Number, Decimal_Digit (Nd)
-
-   function Is_UTF_32_Line_Terminator (U : Char_Code) return Boolean;
-   pragma Inline (Is_UTF_32_Line_Terminator);
-   --  Returns true iff U is an allowed line terminator for source programs,
-   --  which means it is in one of the following categories:
-   --    Separator, Line (Zl)
-   --    Separator, Paragraph (Zp)
-   --  or that it is a conventional line terminator (CR, LF, VT, FF)
-
-   function Is_UTF_32_Mark (U : Char_Code) return Boolean;
-   pragma Inline (Is_UTF_32_Mark);
-   --  Returns true iff U is a mark character which can be used to extend
-   --  an identifier. This means it is in one of the following categories:
-   --    Mark, Non-Spacing (Mn)
-   --    Mark, Spacing Combining (Mc)
-
-   function Is_UTF_32_Other (U : Char_Code) return Boolean;
-   pragma Inline (Is_UTF_32_Other);
-   --  Returns true iff U is an other format character, which means that it
-   --  can be used to extend an identifier, but is ignored for the purposes of
-   --  matching of identiers. This means that it is in one of the following
-   --  categories:
-   --    Other, Format (Cf)
-
-   function Is_UTF_32_Punctuation (U : Char_Code) return Boolean;
-   pragma Inline (Is_UTF_32_Punctuation);
-   --  Returns true iff U is a punctuation character that can be used to
-   --  separate pices of an identifier. This means that it is in one of the
-   --  following categories:
-   --    Punctuation, Connector (Pc)
-
-   function Is_UTF_32_Space (U : Char_Code) return Boolean;
-   pragma Inline (Is_UTF_32_Space);
-   --  Returns true iff U is considered a space to be ignored, which means
-   --  that it is in one of the following categories:
-   --    Separator, Space (Zs)
-
-   function Is_UTF_32_Non_Graphic (U : Char_Code) return Boolean;
-   pragma Inline (Is_UTF_32_Non_Graphic);
-   --  Returns true iff U is considered to be a non-graphic character,
-   --  which means that it is in one of the following categories:
-   --    Other, Control (Cc)
-   --    Other, Private Use (Co)
-   --    Other, Surrogate (Cs)
-   --    Other, Format (Cf)
-   --    Separator, Line (Zl)
-   --    Separator, Paragraph (Zp)
-   --
-   --  Note that the Ada category format effector is subsumed by the above
-   --  list of Unicode categories.
-
-   function UTF_32_To_Upper_Case (U : Char_Code) return Char_Code;
-   pragma Inline (UTF_32_To_Upper_Case);
-   --  If U represents a lower case letter, returns the corresponding upper
-   --  case letter, otherwise U is returned unchanged. The folding is locale
-   --  independent as defined by documents referenced in the note in section
-   --  1 of ISO/IEC 10646:2003
-
 end Widechar;