-- --
-- 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- --
-- 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. --
-- --
------------------------------------------------------------------------------
-- 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
-- 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