OSDN Git Service

Add Fariborz to my last change.
[pf3gnuchains/gcc-fork.git] / gcc / ada / csets.ads
index 8ed7fb1..06dd013 100644 (file)
@@ -6,9 +6,7 @@
 --                                                                          --
 --                                 S p e c                                  --
 --                                                                          --
---                            $Revision: 1.16 $                             --
---                                                                          --
---          Copyright (C) 1992-1997 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2004 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- --
@@ -29,7 +27,7 @@
 -- 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). --
+-- Extensive contributions were provided by Ada Core Technologies Inc.      --
 --                                                                          --
 ------------------------------------------------------------------------------
 
@@ -53,9 +51,9 @@ pragma Elaborate_Body (Csets);
    --  do NOT pack this table, since we don't want the extra overhead of
    --  accessing a packed bit string.
 
-   -----------------------------------------------
-   --  Character Tables For Current Compilation --
-   -----------------------------------------------
+   ----------------------------------------------
+   -- Character Tables For Current Compilation --
+   ----------------------------------------------
 
    procedure Initialize;
    --  Routine to initialize following character tables, whose content depends
@@ -64,12 +62,14 @@ pragma Elaborate_Body (Csets);
    --  The character set in use is specified by the value stored in
    --  Opt.Identifier_Character_Set, which has the following settings:
 
-   --    '1'  Latin-1
-   --    '2'  Latin-2
-   --    '3'  Latin-3
-   --    '4'  Latin-4
-   --    'p'  IBM PC (code page 437)
-   --    '8'  IBM PC (code page 850)
+   --    '1'  Latin-1 (ISO-8859-1)
+   --    '2'  Latin-2 (ISO-8859-2)
+   --    '3'  Latin-3 (ISO-8859-3)
+   --    '4'  Latin-4 (ISO-8859-4)
+   --    '5'  Latin-5 (ISO-8859-5, Cyrillic)
+   --    'p'  IBM PC  (code page 437)
+   --    '8'  IBM PC  (code page 850)
+   --    '9'  Latin-9 (ISO-9959-9)
    --    'f'  Full upper set (all distinct)
    --    'n'  No upper characters (Ada/83 rules)
    --    'w'  Latin-1 plus wide characters also allowed