CVS difference for arm/source/pre_chars.mss

Differences between 1.14 and version 1.15
Log of other versions for file arm/source/pre_chars.mss

--- arm/source/pre_chars.mss	2000/05/29 05:47:23	1.14
+++ arm/source/pre_chars.mss	2000/08/05 04:53:24	1.15
@@ -1,8 +1,8 @@
 @comment{ $Source: e:\\cvsroot/ARM/Source/pre_chars.mss,v $ }
-@comment{ $Revision: 1.14 $ $Date: 2000/05/29 05:47:23 $ $Author: Randy $ }
+@comment{ $Revision: 1.15 $ $Date: 2000/08/05 04:53:24 $ $Author: Randy $ }
 @Part(predefchars, Root="ada.mss")
 
-@Comment{$Date: 2000/05/29 05:47:23 $}
+@Comment{$Date: 2000/08/05 04:53:24 $}
 
 @LabeledClause{Character Handling}
 @begin{Intro}
@@ -26,8 +26,7 @@
 @begin{StaticSem}
 @keepnext@;The library package Characters has the following declaration:
 @begin{example}
-@ChildUnit{Parent=[Ada],Child=[Characters]}
-@key(package) Ada.Characters @key[is]
+@ChildUnit{Parent=[Ada],Child=[Characters]}@key(package) Ada.Characters @key[is]
   @key[pragma] Pure(Characters);
 @key(end) Ada.Characters;
 @end{example}
@@ -38,71 +37,70 @@
 @begin{StaticSem}
 @keepnext@;The library package Characters.Handling has the following declaration:
 @begin{example}
-@key[package] Ada.Characters.Handling @key[is]
-@ChildUnit{Parent=[Ada.Characters],Child=[Handling]}
+@key[package] Ada.Characters.Handling @key[is]@ChildUnit{Parent=[Ada.Characters],Child=[Handling]}
   @key[pragma] Preelaborate(Handling);
 
 @keepnext--@RI{Character classification functions}
 
-  @key[function] Is_Control           (Item : @key[in] Character) @key[return] Boolean;
-  @key[function] Is_Graphic           (Item : @key[in] Character) @key[return] Boolean;
-  @key[function] Is_Letter            (Item : @key[in] Character) @key[return] Boolean;
-  @key[function] Is_Lower             (Item : @key[in] Character) @key[return] Boolean;
-  @key[function] Is_Upper             (Item : @key[in] Character) @key[return] Boolean;
-  @key[function] Is_Basic             (Item : @key[in] Character) @key[return] Boolean;
-  @key[function] Is_Digit             (Item : @key[in] Character) @key[return] Boolean;
-  @key[function] Is_Decimal_Digit     (Item : @key[in] Character) @key[return] Boolean @key[renames] Is_Digit;
-  @key[function] Is_Hexadecimal_Digit (Item : @key[in] Character) @key[return] Boolean;
-  @key[function] Is_Alphanumeric      (Item : @key[in] Character) @key[return] Boolean;
-  @key[function] Is_Special           (Item : @key[in] Character) @key[return] Boolean;
+  @key[function] @AdaSubDefn{Is_Control}           (Item : @key[in] Character) @key[return] Boolean;
+  @key[function] @AdaSubDefn{Is_Graphic}           (Item : @key[in] Character) @key[return] Boolean;
+  @key[function] @AdaSubDefn{Is_Letter}            (Item : @key[in] Character) @key[return] Boolean;
+  @key[function] @AdaSubDefn{Is_Lower}             (Item : @key[in] Character) @key[return] Boolean;
+  @key[function] @AdaSubDefn{Is_Upper}             (Item : @key[in] Character) @key[return] Boolean;
+  @key[function] @AdaSubDefn{Is_Basic}             (Item : @key[in] Character) @key[return] Boolean;
+  @key[function] @AdaSubDefn{Is_Digit}             (Item : @key[in] Character) @key[return] Boolean;
+  @key[function] @AdaSubDefn{Is_Decimal_Digit}     (Item : @key[in] Character) @key[return] Boolean @key[renames] Is_Digit;
+  @key[function] @AdaSubDefn{Is_Hexadecimal_Digit} (Item : @key[in] Character) @key[return] Boolean;
+  @key[function] @AdaSubDefn{Is_Alphanumeric}      (Item : @key[in] Character) @key[return] Boolean;
+  @key[function] @AdaSubDefn{Is_Special}           (Item : @key[in] Character) @key[return] Boolean;
 
 
 @keepnext--@RI{Conversion functions for Character and String}
 
-  @key[function] To_Lower (Item : @key[in] Character) @key[return] Character;
-  @key[function] To_Upper (Item : @key[in] Character) @key[return] Character;
-  @key[function] To_Basic (Item : @key[in] Character) @key[return] Character;
-
-  @key[function] To_Lower (Item : @key[in] String) @key[return] String;
-  @key[function] To_Upper (Item : @key[in] String) @key[return] String;
-  @key[function] To_Basic (Item : @key[in] String) @key[return] String;
+  @key[function] @AdaSubDefn{To_Lower} (Item : @key[in] Character) @key[return] Character;
+  @key[function] @AdaSubDefn{To_Upper} (Item : @key[in] Character) @key[return] Character;
+  @key[function] @AdaSubDefn{To_Basic} (Item : @key[in] Character) @key[return] Character;
+
+  @key[function] @AdaSubDefn{To_Lower} (Item : @key[in] String) @key[return] String;
+  @key[function] @AdaSubDefn{To_Upper} (Item : @key[in] String) @key[return] String;
+  @key[function] @AdaSubDefn{To_Basic} (Item : @key[in] String) @key[return] String;
 
 
 @keepnext--@RI{Classifications of and conversions between Character and ISO 646}
 
-  @key[subtype] ISO_646 @key[is]
+  @key[subtype] @AdaDefn{ISO_646} @key[is]
     Character @key[range] Character'Val(0) .. Character'Val(127);
 
-  @key[function] Is_ISO_646 (Item : @key[in] Character) @key[return] Boolean;
-  @key[function] Is_ISO_646 (Item : @key[in] String)    @key[return] Boolean;
+  @key[function] @AdaSubDefn{Is_ISO_646} (Item : @key[in] Character) @key[return] Boolean;
+  @key[function] @AdaSubDefn{Is_ISO_646} (Item : @key[in] String)    @key[return] Boolean;
 
-  @key[function] To_ISO_646 (Item       : @key[in] Character;
+  @key[function] @AdaSubDefn{To_ISO_646} (Item       : @key[in] Character;
                        Substitute : @key[in] ISO_646 := ' ')
     @key[return] ISO_646;
 
-  @key[function] To_ISO_646 (Item       : @key[in] String;
+  @key[function] @AdaSubDefn{To_ISO_646} (Item       : @key[in] String;
                        Substitute : @key[in] ISO_646 := ' ')
     @key[return] String;
 
 
 @Keepnext--@RI{Classifications of and conversions between Wide_Character and Character.}
 
-  @key[function] Is_Character (Item : @key[in] Wide_Character) @key[return] Boolean;
-  @key[function] Is_String    (Item : @key[in] Wide_String)    @key[return] Boolean;
+  @key[function] @AdaSubDefn{Is_Character} (Item : @key[in] Wide_Character) @key[return] Boolean;
+  @key[function] @AdaSubDefn{Is_String}    (Item : @key[in] Wide_String)    @key[return] Boolean;
 
 
-  @key[function] To_Character (Item       : @key[in] Wide_Character;
+  @key[function] @AdaSubDefn{To_Character} (Item       : @key[in] Wide_Character;
                          Substitute : @key[in] Character := ' ')
     @key[return] Character;
 
-  @key[function] To_String    (Item       : @key[in] Wide_String;
+  @key[function] @AdaSubDefn{To_String}    (Item       : @key[in] Wide_String;
                          Substitute : @key[in] Character := ' ')
     @key[return] String;
 
 
-  @key[function] To_Wide_Character (Item : @key[in] Character) @key[return] Wide_Character;
+  @key[function] @AdaSubDefn{To_Wide_Character} (Item : @key[in] Character) @key[return] Wide_Character;
 
-  @key[function] To_Wide_String    (Item : @key[in] String)    @key[return] Wide_String;
+  @key[function] @AdaSubDefn{To_Wide_String}    (Item : @key[in] String)    @key[return] Wide_String;
 
 @key[end] Ada.Characters.Handling;
 @end{Example}
@@ -306,268 +304,268 @@
 @keepnext@RI{-- Control characters:}@PDefn2{term=[control character],
 sec=[a category of Character]}
 
-    NUL                  : @key[constant] Character := Character'Val(0);
-    SOH                  : @key[constant] Character := Character'Val(1);
-    STX                  : @key[constant] Character := Character'Val(2);
-    ETX                  : @key[constant] Character := Character'Val(3);
-    EOT                  : @key[constant] Character := Character'Val(4);
-    ENQ                  : @key[constant] Character := Character'Val(5);
-    ACK                  : @key[constant] Character := Character'Val(6);
-    BEL                  : @key[constant] Character := Character'Val(7);
-    BS                   : @key[constant] Character := Character'Val(8);
-    HT                   : @key[constant] Character := Character'Val(9);
-    LF                   : @key[constant] Character := Character'Val(10);
-    VT                   : @key[constant] Character := Character'Val(11);
-    FF                   : @key[constant] Character := Character'Val(12);
-    CR                   : @key[constant] Character := Character'Val(13);
-    SO                   : @key[constant] Character := Character'Val(14);
-    SI                   : @key[constant] Character := Character'Val(15);
-
-    DLE                  : @key[constant] Character := Character'Val(16);
-    DC1                  : @key[constant] Character := Character'Val(17);
-    DC2                  : @key[constant] Character := Character'Val(18);
-    DC3                  : @key[constant] Character := Character'Val(19);
-    DC4                  : @key[constant] Character := Character'Val(20);
-    NAK                  : @key[constant] Character := Character'Val(21);
-    SYN                  : @key[constant] Character := Character'Val(22);
-    ETB                  : @key[constant] Character := Character'Val(23);
-    CAN                  : @key[constant] Character := Character'Val(24);
-    EM                   : @key[constant] Character := Character'Val(25);
-    SUB                  : @key[constant] Character := Character'Val(26);
-    ESC                  : @key[constant] Character := Character'Val(27);
-    FS                   : @key[constant] Character := Character'Val(28);
-    GS                   : @key[constant] Character := Character'Val(29);
-    RS                   : @key[constant] Character := Character'Val(30);
-    US                   : @key[constant] Character := Character'Val(31);
+    @AdaDefn{NUL}                  : @key[constant] Character := Character'Val(0);
+    @AdaDefn{SOH}                  : @key[constant] Character := Character'Val(1);
+    @AdaDefn{STX}                  : @key[constant] Character := Character'Val(2);
+    @AdaDefn{ETX}                  : @key[constant] Character := Character'Val(3);
+    @AdaDefn{EOT}                  : @key[constant] Character := Character'Val(4);
+    @AdaDefn{ENQ}                  : @key[constant] Character := Character'Val(5);
+    @AdaDefn{ACK}                  : @key[constant] Character := Character'Val(6);
+    @AdaDefn{BEL}                  : @key[constant] Character := Character'Val(7);
+    @AdaDefn{BS}                   : @key[constant] Character := Character'Val(8);
+    @AdaDefn{HT}                   : @key[constant] Character := Character'Val(9);
+    @AdaDefn{LF}                   : @key[constant] Character := Character'Val(10);
+    @AdaDefn{VT}                   : @key[constant] Character := Character'Val(11);
+    @AdaDefn{FF}                   : @key[constant] Character := Character'Val(12);
+    @AdaDefn{CR}                   : @key[constant] Character := Character'Val(13);
+    @AdaDefn{SO}                   : @key[constant] Character := Character'Val(14);
+    @AdaDefn{SI}                   : @key[constant] Character := Character'Val(15);
+
+    @AdaDefn{DLE}                  : @key[constant] Character := Character'Val(16);
+    @AdaDefn{DC1}                  : @key[constant] Character := Character'Val(17);
+    @AdaDefn{DC2}                  : @key[constant] Character := Character'Val(18);
+    @AdaDefn{DC3}                  : @key[constant] Character := Character'Val(19);
+    @AdaDefn{DC4}                  : @key[constant] Character := Character'Val(20);
+    @AdaDefn{NAK}                  : @key[constant] Character := Character'Val(21);
+    @AdaDefn{SYN}                  : @key[constant] Character := Character'Val(22);
+    @AdaDefn{ETB}                  : @key[constant] Character := Character'Val(23);
+    @AdaDefn{CAN}                  : @key[constant] Character := Character'Val(24);
+    @AdaDefn{EM}                   : @key[constant] Character := Character'Val(25);
+    @AdaDefn{SUB}                  : @key[constant] Character := Character'Val(26);
+    @AdaDefn{ESC}                  : @key[constant] Character := Character'Val(27);
+    @AdaDefn{FS}                   : @key[constant] Character := Character'Val(28);
+    @AdaDefn{GS}                   : @key[constant] Character := Character'Val(29);
+    @AdaDefn{RS}                   : @key[constant] Character := Character'Val(30);
+    @AdaDefn{US}                   : @key[constant] Character := Character'Val(31);
 
 @keepnext@RI{-- ISO 646 graphic characters:}
 
-    Space                : @key[constant] Character := ' ';  @RI{-- Character'Val(32)}
-    Exclamation          : @key[constant] Character := '!';  @RI{-- Character'Val(33)}
-    Quotation            : @key[constant] Character := '"';  @RI{-- Character'Val(34)}
-    Number_Sign          : @key[constant] Character := '#';  @RI{-- Character'Val(35)}
-    Dollar_Sign          : @key[constant] Character := '$';  @RI{-- Character'Val(36)}
-    Percent_Sign         : @key[constant] Character := '%';  @RI{-- Character'Val(37)}
-    Ampersand            : @key[constant] Character := '&';  @RI{-- Character'Val(38)}
-    Apostrophe           : @key[constant] Character := ''';  @RI{-- Character'Val(39)}
-    Left_Parenthesis     : @key[constant] Character := '(';  @RI{-- Character'Val(40)}
-    Right_Parenthesis    : @key[constant] Character := ')';  @RI{-- Character'Val(41)}
-    Asterisk             : @key[constant] Character := '*';  @RI{-- Character'Val(42)}
-    Plus_Sign            : @key[constant] Character := '+';  @RI{-- Character'Val(43)}
-    Comma                : @key[constant] Character := ',';  @RI{-- Character'Val(44)}
-    Hyphen               : @key[constant] Character := '-';  @RI{-- Character'Val(45)}
-    Minus_Sign           : Character @key[renames] Hyphen;
-    Full_Stop            : @key[constant] Character := '.';  @RI{-- Character'Val(46)}
-    Solidus              : @key[constant] Character := '/';  @RI{-- Character'Val(47)}
-
-    @RI{-- Decimal digits '0' though '9' are at positions 48 through 57}
-
-    Colon                : @key[constant] Character := ':';  @RI{-- Character'Val(58)}
-    Semicolon            : @key[constant] Character := ';';  @RI{-- Character'Val(59)}
-    Less_Than_Sign       : @key[constant] Character := '<';  @RI{-- Character'Val(60)}
-    Equals_Sign          : @key[constant] Character := '=';  @RI{-- Character'Val(61)}
-    Greater_Than_Sign    : @key[constant] Character := '>';  @RI{-- Character'Val(62)}
-    Question             : @key[constant] Character := '?';  @RI{-- Character'Val(63)}
-    Commercial_At        : @key[constant] Character := '@@';  @RI{-- Character'Val(64)}
-
-    @RI{-- Letters 'A' through 'Z' are at positions 65 through 90}
-
-    Left_Square_Bracket  : @key[constant] Character := '[';  @RI{-- Character'Val(91)}
-    Reverse_Solidus      : @key[constant] Character := '\';  @RI{-- Character'Val(92)}
-    Right_Square_Bracket : @key[constant] Character := ']';  @RI{-- Character'Val(93)}
-    Circumflex           : @key[constant] Character := '^';  @RI{-- Character'Val(94)}
-    Low_Line             : @key[constant] Character := '_';  @RI{-- Character'Val(95)}
-
-    Grave                : @key[constant] Character := '`';  @RI{-- Character'Val(96)}
-    LC_A                 : @key[constant] Character := 'a';  @RI{-- Character'Val(97)}
-    LC_B                 : @key[constant] Character := 'b';  @RI{-- Character'Val(98)}
-    LC_C                 : @key[constant] Character := 'c';  @RI{-- Character'Val(99)}
-    LC_D                 : @key[constant] Character := 'd';  @RI{-- Character'Val(100)}
-    LC_E                 : @key[constant] Character := 'e';  @RI{-- Character'Val(101)}
-    LC_F                 : @key[constant] Character := 'f';  @RI{-- Character'Val(102)}
-    LC_G                 : @key[constant] Character := 'g';  @RI{-- Character'Val(103)}
-    LC_H                 : @key[constant] Character := 'h';  @RI{-- Character'Val(104)}
-    LC_I                 : @key[constant] Character := 'i';  @RI{-- Character'Val(105)}
-    LC_J                 : @key[constant] Character := 'j';  @RI{-- Character'Val(106)}
-    LC_K                 : @key[constant] Character := 'k';  @RI{-- Character'Val(107)}
-    LC_L                 : @key[constant] Character := 'l';  @RI{-- Character'Val(108)}
-    LC_M                 : @key[constant] Character := 'm';  @RI{-- Character'Val(109)}
-    LC_N                 : @key[constant] Character := 'n';  @RI{-- Character'Val(110)}
-    LC_O                 : @key[constant] Character := 'o';  @RI{-- Character'Val(111)}
-
-    LC_P                 : @key[constant] Character := 'p';  @RI{-- Character'Val(112)}
-    LC_Q                 : @key[constant] Character := 'q';  @RI{-- Character'Val(113)}
-    LC_R                 : @key[constant] Character := 'r';  @RI{-- Character'Val(114)}
-    LC_S                 : @key[constant] Character := 's';  @RI{-- Character'Val(115)}
-    LC_T                 : @key[constant] Character := 't';  @RI{-- Character'Val(116)}
-    LC_U                 : @key[constant] Character := 'u';  @RI{-- Character'Val(117)}
-    LC_V                 : @key[constant] Character := 'v';  @RI{-- Character'Val(118)}
-    LC_W                 : @key[constant] Character := 'w';  @RI{-- Character'Val(119)}
-    LC_X                 : @key[constant] Character := 'x';  @RI{-- Character'Val(120)}
-    LC_Y                 : @key[constant] Character := 'y';  @RI{-- Character'Val(121)}
-    LC_Z                 : @key[constant] Character := 'z';  @RI{-- Character'Val(122)}
-    Left_Curly_Bracket   : @key[constant] Character := '{';  @RI{-- Character'Val(123)}
-    Vertical_Line        : @key[constant] Character := '|';  @RI{-- Character'Val(124)}
-    Right_Curly_Bracket  : @key[constant] Character := '}';  @RI{-- Character'Val(125)}
-    Tilde                : @key[constant] Character := '~';  @RI{-- Character'Val(126)}
-    DEL                  : @key[constant] Character := Character'Val(127);
+    @AdaDefn{Space}                : @key[constant] Character := ' ';  @RI{-- Character'Val(32)}
+    @AdaDefn{Exclamation}          : @key[constant] Character := '!';  @RI{-- Character'Val(33)}
+    @AdaDefn{Quotation}            : @key[constant] Character := '"';  @RI{-- Character'Val(34)}
+    @AdaDefn{Number_Sign}          : @key[constant] Character := '#';  @RI{-- Character'Val(35)}
+    @AdaDefn{Dollar_Sign}          : @key[constant] Character := '$';  @RI{-- Character'Val(36)}
+    @AdaDefn{Percent_Sign}         : @key[constant] Character := '%';  @RI{-- Character'Val(37)}
+    @AdaDefn{Ampersand}            : @key[constant] Character := '&';  @RI{-- Character'Val(38)}
+    @AdaDefn{Apostrophe}           : @key[constant] Character := ''';  @RI{-- Character'Val(39)}
+    @AdaDefn{Left_Parenthesis}     : @key[constant] Character := '(';  @RI{-- Character'Val(40)}
+    @AdaDefn{Right_Parenthesis}    : @key[constant] Character := ')';  @RI{-- Character'Val(41)}
+    @AdaDefn{Asterisk}             : @key[constant] Character := '*';  @RI{-- Character'Val(42)}
+    @AdaDefn{Plus_Sign}            : @key[constant] Character := '+';  @RI{-- Character'Val(43)}
+    @AdaDefn{Comma}                : @key[constant] Character := ',';  @RI{-- Character'Val(44)}
+    @AdaDefn{Hyphen}               : @key[constant] Character := '-';  @RI{-- Character'Val(45)}
+    @AdaDefn{Minus_Sign}           : Character @key[renames] Hyphen;
+    @AdaDefn{Full_Stop}            : @key[constant] Character := '.';  @RI{-- Character'Val(46)}
+    @AdaDefn{Solidus}              : @key[constant] Character := '/';  @RI{-- Character'Val(47)}
+
+    @keepnext@RI{-- Decimal digits '0' though '9' are at positions 48 through 57}
+
+    @AdaDefn{Colon}                : @key[constant] Character := ':';  @RI{-- Character'Val(58)}
+    @AdaDefn{Semicolon}            : @key[constant] Character := ';';  @RI{-- Character'Val(59)}
+    @AdaDefn{Less_Than_Sign}       : @key[constant] Character := '<';  @RI{-- Character'Val(60)}
+    @AdaDefn{Equals_Sign}          : @key[constant] Character := '=';  @RI{-- Character'Val(61)}
+    @AdaDefn{Greater_Than_Sign}    : @key[constant] Character := '>';  @RI{-- Character'Val(62)}
+    @AdaDefn{Question}             : @key[constant] Character := '?';  @RI{-- Character'Val(63)}
+    @AdaDefn{Commercial_At}        : @key[constant] Character := '@@';  @RI{-- Character'Val(64)}
+
+    @keepnext@RI{-- Letters 'A' through 'Z' are at positions 65 through 90}
+
+    @AdaDefn{Left_Square_Bracket}  : @key[constant] Character := '[';  @RI{-- Character'Val(91)}
+    @AdaDefn{Reverse_Solidus}      : @key[constant] Character := '\';  @RI{-- Character'Val(92)}
+    @AdaDefn{Right_Square_Bracket} : @key[constant] Character := ']';  @RI{-- Character'Val(93)}
+    @AdaDefn{Circumflex}           : @key[constant] Character := '^';  @RI{-- Character'Val(94)}
+    @AdaDefn{Low_Line}             : @key[constant] Character := '_';  @RI{-- Character'Val(95)}
+
+    @AdaDefn{Grave}                : @key[constant] Character := '`';  @RI{-- Character'Val(96)}
+    @AdaDefn{LC_A}                 : @key[constant] Character := 'a';  @RI{-- Character'Val(97)}
+    @AdaDefn{LC_B}                 : @key[constant] Character := 'b';  @RI{-- Character'Val(98)}
+    @AdaDefn{LC_C}                 : @key[constant] Character := 'c';  @RI{-- Character'Val(99)}
+    @AdaDefn{LC_D}                 : @key[constant] Character := 'd';  @RI{-- Character'Val(100)}
+    @AdaDefn{LC_E}                 : @key[constant] Character := 'e';  @RI{-- Character'Val(101)}
+    @AdaDefn{LC_F}                 : @key[constant] Character := 'f';  @RI{-- Character'Val(102)}
+    @AdaDefn{LC_G}                 : @key[constant] Character := 'g';  @RI{-- Character'Val(103)}
+    @AdaDefn{LC_H}                 : @key[constant] Character := 'h';  @RI{-- Character'Val(104)}
+    @AdaDefn{LC_I}                 : @key[constant] Character := 'i';  @RI{-- Character'Val(105)}
+    @AdaDefn{LC_J}                 : @key[constant] Character := 'j';  @RI{-- Character'Val(106)}
+    @AdaDefn{LC_K}                 : @key[constant] Character := 'k';  @RI{-- Character'Val(107)}
+    @AdaDefn{LC_L}                 : @key[constant] Character := 'l';  @RI{-- Character'Val(108)}
+    @AdaDefn{LC_M}                 : @key[constant] Character := 'm';  @RI{-- Character'Val(109)}
+    @AdaDefn{LC_N}                 : @key[constant] Character := 'n';  @RI{-- Character'Val(110)}
+    @AdaDefn{LC_O}                 : @key[constant] Character := 'o';  @RI{-- Character'Val(111)}
+
+    @AdaDefn{LC_P}                 : @key[constant] Character := 'p';  @RI{-- Character'Val(112)}
+    @AdaDefn{LC_Q}                 : @key[constant] Character := 'q';  @RI{-- Character'Val(113)}
+    @AdaDefn{LC_R}                 : @key[constant] Character := 'r';  @RI{-- Character'Val(114)}
+    @AdaDefn{LC_S}                 : @key[constant] Character := 's';  @RI{-- Character'Val(115)}
+    @AdaDefn{LC_T}                 : @key[constant] Character := 't';  @RI{-- Character'Val(116)}
+    @AdaDefn{LC_U}                 : @key[constant] Character := 'u';  @RI{-- Character'Val(117)}
+    @AdaDefn{LC_V}                 : @key[constant] Character := 'v';  @RI{-- Character'Val(118)}
+    @AdaDefn{LC_W}                 : @key[constant] Character := 'w';  @RI{-- Character'Val(119)}
+    @AdaDefn{LC_X}                 : @key[constant] Character := 'x';  @RI{-- Character'Val(120)}
+    @AdaDefn{LC_Y}                 : @key[constant] Character := 'y';  @RI{-- Character'Val(121)}
+    @AdaDefn{LC_Z}                 : @key[constant] Character := 'z';  @RI{-- Character'Val(122)}
+    @AdaDefn{Left_Curly_Bracket}   : @key[constant] Character := '{';  @RI{-- Character'Val(123)}
+    @AdaDefn{Vertical_Line}        : @key[constant] Character := '|';  @RI{-- Character'Val(124)}
+    @AdaDefn{Right_Curly_Bracket}  : @key[constant] Character := '}';  @RI{-- Character'Val(125)}
+    @AdaDefn{Tilde}                : @key[constant] Character := '~';  @RI{-- Character'Val(126)}
+    @AdaDefn{DEL}                  : @key[constant] Character := Character'Val(127);
 
 
 @keepnext@RI{-- ISO 6429 control characters:}@PDefn2{term=[control character],
 sec=[a category of Character]}
 
-    IS4                  : Character @key[renames] FS;
-    IS3                  : Character @key[renames] GS;
-    IS2                  : Character @key[renames] RS;
-    IS1                  : Character @key[renames] US;
-
-    Reserved_128         : @key[constant] Character := Character'Val(128);
-    Reserved_129         : @key[constant] Character := Character'Val(129);
-    BPH                  : @key[constant] Character := Character'Val(130);
-    NBH                  : @key[constant] Character := Character'Val(131);
-    Reserved_132         : @key[constant] Character := Character'Val(132);
-    NEL                  : @key[constant] Character := Character'Val(133);
-    SSA                  : @key[constant] Character := Character'Val(134);
-    ESA                  : @key[constant] Character := Character'Val(135);
-    HTS                  : @key[constant] Character := Character'Val(136);
-    HTJ                  : @key[constant] Character := Character'Val(137);
-    VTS                  : @key[constant] Character := Character'Val(138);
-    PLD                  : @key[constant] Character := Character'Val(139);
-    PLU                  : @key[constant] Character := Character'Val(140);
-    RI                   : @key[constant] Character := Character'Val(141);
-    SS2                  : @key[constant] Character := Character'Val(142);
-    SS3                  : @key[constant] Character := Character'Val(143);
-
-    DCS                  : @key[constant] Character := Character'Val(144);
-    PU1                  : @key[constant] Character := Character'Val(145);
-    PU2                  : @key[constant] Character := Character'Val(146);
-    STS                  : @key[constant] Character := Character'Val(147);
-    CCH                  : @key[constant] Character := Character'Val(148);
-    MW                   : @key[constant] Character := Character'Val(149);
-    SPA                  : @key[constant] Character := Character'Val(150);
-    EPA                  : @key[constant] Character := Character'Val(151);
-
-    SOS                  : @key[constant] Character := Character'Val(152);
-    Reserved_153         : @key[constant] Character := Character'Val(153);
-    SCI                  : @key[constant] Character := Character'Val(154);
-    CSI                  : @key[constant] Character := Character'Val(155);
-    ST                   : @key[constant] Character := Character'Val(156);
-    OSC                  : @key[constant] Character := Character'Val(157);
-    PM                   : @key[constant] Character := Character'Val(158);
-    APC                  : @key[constant] Character := Character'Val(159);
+    @AdaDefn{IS4}                  : Character @key[renames] FS;
+    @AdaDefn{IS3}                  : Character @key[renames] GS;
+    @AdaDefn{IS2}                  : Character @key[renames] RS;
+    @AdaDefn{IS1}                  : Character @key[renames] US;
+
+    @AdaDefn{Reserved_128}         : @key[constant] Character := Character'Val(128);
+    @AdaDefn{Reserved_129}         : @key[constant] Character := Character'Val(129);
+    @AdaDefn{BPH}                  : @key[constant] Character := Character'Val(130);
+    @AdaDefn{NBH}                  : @key[constant] Character := Character'Val(131);
+    @AdaDefn{Reserved_132}         : @key[constant] Character := Character'Val(132);
+    @AdaDefn{NEL}                  : @key[constant] Character := Character'Val(133);
+    @AdaDefn{SSA}                  : @key[constant] Character := Character'Val(134);
+    @AdaDefn{ESA}                  : @key[constant] Character := Character'Val(135);
+    @AdaDefn{HTS}                  : @key[constant] Character := Character'Val(136);
+    @AdaDefn{HTJ}                  : @key[constant] Character := Character'Val(137);
+    @AdaDefn{VTS}                  : @key[constant] Character := Character'Val(138);
+    @AdaDefn{PLD}                  : @key[constant] Character := Character'Val(139);
+    @AdaDefn{PLU}                  : @key[constant] Character := Character'Val(140);
+    @AdaDefn{RI}                   : @key[constant] Character := Character'Val(141);
+    @AdaDefn{SS2}                  : @key[constant] Character := Character'Val(142);
+    @AdaDefn{SS3}                  : @key[constant] Character := Character'Val(143);
+
+    @AdaDefn{DCS}                  : @key[constant] Character := Character'Val(144);
+    @AdaDefn{PU1}                  : @key[constant] Character := Character'Val(145);
+    @AdaDefn{PU2}                  : @key[constant] Character := Character'Val(146);
+    @AdaDefn{STS}                  : @key[constant] Character := Character'Val(147);
+    @AdaDefn{CCH}                  : @key[constant] Character := Character'Val(148);
+    @AdaDefn{MW}                   : @key[constant] Character := Character'Val(149);
+    @AdaDefn{SPA}                  : @key[constant] Character := Character'Val(150);
+    @AdaDefn{EPA}                  : @key[constant] Character := Character'Val(151);
+
+    @AdaDefn{SOS}                  : @key[constant] Character := Character'Val(152);
+    @AdaDefn{Reserved_153}         : @key[constant] Character := Character'Val(153);
+    @AdaDefn{SCI}                  : @key[constant] Character := Character'Val(154);
+    @AdaDefn{CSI}                  : @key[constant] Character := Character'Val(155);
+    @AdaDefn{ST}                   : @key[constant] Character := Character'Val(156);
+    @AdaDefn{OSC}                  : @key[constant] Character := Character'Val(157);
+    @AdaDefn{PM}                   : @key[constant] Character := Character'Val(158);
+    @AdaDefn{APC}                  : @key[constant] Character := Character'Val(159);
 
 @keepnext@RI{-- Other graphic characters:}
 
 @RI{-- Character positions 160 (16#A0#) .. 175 (16#AF#):}
-    No_Break_Space              : @key[constant] Character := ' ';  @RI{--Character'Val(160)}
-    NBSP                        : Character @key[renames] No_Break_Space;
-    Inverted_Exclamation        : @key[constant] Character := '@latin1(161)';  @RI{--Character'Val(161)}
-    Cent_Sign                   : @key[constant] Character := '@latin1(162)';  @RI{--Character'Val(162)}
-    Pound_Sign                  : @key[constant] Character := '@latin1(163)';  @RI{--Character'Val(163)}
-    Currency_Sign               : @key[constant] Character := '@latin1(164)';  @RI{--Character'Val(164)}
-    Yen_Sign                    : @key[constant] Character := '@latin1(165)';  @RI{--Character'Val(165)}
-    Broken_Bar                  : @key[constant] Character := '@latin1(166)';  @RI{--Character'Val(166)}
-    Section_Sign                : @key[constant] Character := '@latin1(167)';  @RI{--Character'Val(167)}
-    Diaeresis                   : @key[constant] Character := '@latin1(168)';  @RI{--Character'Val(168)}
-    Copyright_Sign              : @key[constant] Character := '@latin1(169)';  @RI{--Character'Val(169)}
-    Feminine_Ordinal_Indicator  : @key[constant] Character := '@latin1(170)';  @RI{--Character'Val(170)}
-    Left_Angle_Quotation        : @key[constant] Character := '@latin1(171)';  @RI{--Character'Val(171)}
-    Not_Sign                    : @key[constant] Character := '@latin1(172)';  @RI{--Character'Val(172)}
-    Soft_Hyphen                 : @key[constant] Character := '@latin1(173)';  @RI{--Character'Val(173)}
-    Registered_Trade_Mark_Sign  : @key[constant] Character := '@latin1(174)';  @RI{--Character'Val(174)}
-    Macron                      : @key[constant] Character := '@latin1(175)';  @RI{--Character'Val(175)}
+    @AdaDefn{No_Break_Space}              : @key[constant] Character := ' ';  @RI{--Character'Val(160)}
+    @AdaDefn{NBSP}                        : Character @key[renames] No_Break_Space;
+    @AdaDefn{Inverted_Exclamation}        : @key[constant] Character := '@latin1(161)';  @RI{--Character'Val(161)}
+    @AdaDefn{Cent_Sign}                   : @key[constant] Character := '@latin1(162)';  @RI{--Character'Val(162)}
+    @AdaDefn{Pound_Sign}                  : @key[constant] Character := '@latin1(163)';  @RI{--Character'Val(163)}
+    @AdaDefn{Currency_Sign}               : @key[constant] Character := '@latin1(164)';  @RI{--Character'Val(164)}
+    @AdaDefn{Yen_Sign}                    : @key[constant] Character := '@latin1(165)';  @RI{--Character'Val(165)}
+    @AdaDefn{Broken_Bar}                  : @key[constant] Character := '@latin1(166)';  @RI{--Character'Val(166)}
+    @AdaDefn{Section_Sign}                : @key[constant] Character := '@latin1(167)';  @RI{--Character'Val(167)}
+    @AdaDefn{Diaeresis}                   : @key[constant] Character := '@latin1(168)';  @RI{--Character'Val(168)}
+    @AdaDefn{Copyright_Sign}              : @key[constant] Character := '@latin1(169)';  @RI{--Character'Val(169)}
+    @AdaDefn{Feminine_Ordinal_Indicator}  : @key[constant] Character := '@latin1(170)';  @RI{--Character'Val(170)}
+    @AdaDefn{Left_Angle_Quotation}        : @key[constant] Character := '@latin1(171)';  @RI{--Character'Val(171)}
+    @AdaDefn{Not_Sign}                    : @key[constant] Character := '@latin1(172)';  @RI{--Character'Val(172)}
+    @AdaDefn{Soft_Hyphen}                 : @key[constant] Character := '@latin1(173)';  @RI{--Character'Val(173)}
+    @AdaDefn{Registered_Trade_Mark_Sign}  : @key[constant] Character := '@latin1(174)';  @RI{--Character'Val(174)}
+    @AdaDefn{Macron}                      : @key[constant] Character := '@latin1(175)';  @RI{--Character'Val(175)}
 
 @RI{-- Character positions 176 (16#B0#) .. 191 (16#BF#):}
-    Degree_Sign                 : @key[constant] Character := '@latin1(176)';  @RI{--Character'Val(176)}
-    Ring_Above                  : Character @key[renames] Degree_Sign;
-    Plus_Minus_Sign             : @key[constant] Character := '@latin1(177)';  @RI{--Character'Val(177)}
-    Superscript_Two             : @key[constant] Character := '@latin1(178)';  @RI{--Character'Val(178)}
-    Superscript_Three           : @key[constant] Character := '@latin1(179)';  @RI{--Character'Val(179)}
-    Acute                       : @key[constant] Character := '@latin1(180)';  @RI{--Character'Val(180)}
-    Micro_Sign                  : @key[constant] Character := '@latin1(181)';  @RI{--Character'Val(181)}
-    Pilcrow_Sign                : @key[constant] Character := '@latin1(182)';  @RI{--Character'Val(182)}
-    Paragraph_Sign              : Character @key[renames] Pilcrow_Sign;
-    Middle_Dot                  : @key[constant] Character := '@latin1(183)';  @RI{--Character'Val(183)}
-    Cedilla                     : @key[constant] Character := '@latin1(184)';  @RI{--Character'Val(184)}
-    Superscript_One             : @key[constant] Character := '@latin1(185)';  @RI{--Character'Val(185)}
-    Masculine_Ordinal_Indicator : @key[constant] Character := '@latin1(186)';  @RI{--Character'Val(186)}
-    Right_Angle_Quotation       : @key[constant] Character := '@latin1(187)';  @RI{--Character'Val(187)}
-    Fraction_One_Quarter        : @key[constant] Character := '@latin1(188)';  @RI{--Character'Val(188)}
-    Fraction_One_Half           : @key[constant] Character := '@latin1(189)';  @RI{--Character'Val(189)}
-    Fraction_Three_Quarters     : @key[constant] Character := '@latin1(190)';  @RI{--Character'Val(190)}
-    Inverted_Question           : @key[constant] Character := '@latin1(191)';  @RI{--Character'Val(191)}
+    @AdaDefn{Degree_Sign}                 : @key[constant] Character := '@latin1(176)';  @RI{--Character'Val(176)}
+    @AdaDefn{Ring_Above}                  : Character @key[renames] Degree_Sign;
+    @AdaDefn{Plus_Minus_Sign}             : @key[constant] Character := '@latin1(177)';  @RI{--Character'Val(177)}
+    @AdaDefn{Superscript_Two}             : @key[constant] Character := '@latin1(178)';  @RI{--Character'Val(178)}
+    @AdaDefn{Superscript_Three}           : @key[constant] Character := '@latin1(179)';  @RI{--Character'Val(179)}
+    @AdaDefn{Acute}                       : @key[constant] Character := '@latin1(180)';  @RI{--Character'Val(180)}
+    @AdaDefn{Micro_Sign}                  : @key[constant] Character := '@latin1(181)';  @RI{--Character'Val(181)}
+    @AdaDefn{Pilcrow_Sign}                : @key[constant] Character := '@latin1(182)';  @RI{--Character'Val(182)}
+    @AdaDefn{Paragraph_Sign}              : Character @key[renames] Pilcrow_Sign;
+    @AdaDefn{Middle_Dot}                  : @key[constant] Character := '@latin1(183)';  @RI{--Character'Val(183)}
+    @AdaDefn{Cedilla}                     : @key[constant] Character := '@latin1(184)';  @RI{--Character'Val(184)}
+    @AdaDefn{Superscript_One}             : @key[constant] Character := '@latin1(185)';  @RI{--Character'Val(185)}
+    @AdaDefn{Masculine_Ordinal_Indicator} : @key[constant] Character := '@latin1(186)';  @RI{--Character'Val(186)}
+    @AdaDefn{Right_Angle_Quotation}       : @key[constant] Character := '@latin1(187)';  @RI{--Character'Val(187)}
+    @AdaDefn{Fraction_One_Quarter}        : @key[constant] Character := '@latin1(188)';  @RI{--Character'Val(188)}
+    @AdaDefn{Fraction_One_Half}           : @key[constant] Character := '@latin1(189)';  @RI{--Character'Val(189)}
+    @AdaDefn{Fraction_Three_Quarters}     : @key[constant] Character := '@latin1(190)';  @RI{--Character'Val(190)}
+    @AdaDefn{Inverted_Question}           : @key[constant] Character := '@latin1(191)';  @RI{--Character'Val(191)}
 
 @RI{-- Character positions 192 (16#C0#) .. 207 (16#CF#):}
-    UC_A_Grave                  : @key[constant] Character := '@latin1(192)';  @RI{--Character'Val(192)}
-    UC_A_Acute                  : @key[constant] Character := '@latin1(193)';  @RI{--Character'Val(193)}
-    UC_A_Circumflex             : @key[constant] Character := '@latin1(194)';  @RI{--Character'Val(194)}
-    UC_A_Tilde                  : @key[constant] Character := '@latin1(195)';  @RI{--Character'Val(195)}
-    UC_A_Diaeresis              : @key[constant] Character := '@latin1(196)';  @RI{--Character'Val(196)}
-    UC_A_Ring                   : @key[constant] Character := '@latin1(197)';  @RI{--Character'Val(197)}
-    UC_AE_Diphthong             : @key[constant] Character := '@latin1(198)';  @RI{--Character'Val(198)}
-    UC_C_Cedilla                : @key[constant] Character := '@latin1(199)';  @RI{--Character'Val(199)}
-    UC_E_Grave                  : @key[constant] Character := '@latin1(200)';  @RI{--Character'Val(200)}
-    UC_E_Acute                  : @key[constant] Character := '@latin1(201)';  @RI{--Character'Val(201)}
-    UC_E_Circumflex             : @key[constant] Character := '@latin1(202)';  @RI{--Character'Val(202)}
-    UC_E_Diaeresis              : @key[constant] Character := '@latin1(203)';  @RI{--Character'Val(203)}
-    UC_I_Grave                  : @key[constant] Character := '@latin1(204)';  @RI{--Character'Val(204)}
-    UC_I_Acute                  : @key[constant] Character := '@latin1(205)';  @RI{--Character'Val(205)}
-    UC_I_Circumflex             : @key[constant] Character := '@latin1(206)';  @RI{--Character'Val(206)}
-    UC_I_Diaeresis              : @key[constant] Character := '@latin1(207)';  @RI{--Character'Val(207)}
+    @AdaDefn{UC_A_Grave}                  : @key[constant] Character := '@latin1(192)';  @RI{--Character'Val(192)}
+    @AdaDefn{UC_A_Acute}                  : @key[constant] Character := '@latin1(193)';  @RI{--Character'Val(193)}
+    @AdaDefn{UC_A_Circumflex}             : @key[constant] Character := '@latin1(194)';  @RI{--Character'Val(194)}
+    @AdaDefn{UC_A_Tilde}                  : @key[constant] Character := '@latin1(195)';  @RI{--Character'Val(195)}
+    @AdaDefn{UC_A_Diaeresis}              : @key[constant] Character := '@latin1(196)';  @RI{--Character'Val(196)}
+    @AdaDefn{UC_A_Ring}                   : @key[constant] Character := '@latin1(197)';  @RI{--Character'Val(197)}
+    @AdaDefn{UC_AE_Diphthong}             : @key[constant] Character := '@latin1(198)';  @RI{--Character'Val(198)}
+    @AdaDefn{UC_C_Cedilla}                : @key[constant] Character := '@latin1(199)';  @RI{--Character'Val(199)}
+    @AdaDefn{UC_E_Grave}                  : @key[constant] Character := '@latin1(200)';  @RI{--Character'Val(200)}
+    @AdaDefn{UC_E_Acute}                  : @key[constant] Character := '@latin1(201)';  @RI{--Character'Val(201)}
+    @AdaDefn{UC_E_Circumflex}             : @key[constant] Character := '@latin1(202)';  @RI{--Character'Val(202)}
+    @AdaDefn{UC_E_Diaeresis}              : @key[constant] Character := '@latin1(203)';  @RI{--Character'Val(203)}
+    @AdaDefn{UC_I_Grave}                  : @key[constant] Character := '@latin1(204)';  @RI{--Character'Val(204)}
+    @AdaDefn{UC_I_Acute}                  : @key[constant] Character := '@latin1(205)';  @RI{--Character'Val(205)}
+    @AdaDefn{UC_I_Circumflex}             : @key[constant] Character := '@latin1(206)';  @RI{--Character'Val(206)}
+    @AdaDefn{UC_I_Diaeresis}              : @key[constant] Character := '@latin1(207)';  @RI{--Character'Val(207)}
 
 @RI{-- Character positions 208 (16#D0#) .. 223 (16#DF#):}
-    UC_Icelandic_Eth            : @key[constant] Character := '@latin1(208)';  @RI{--Character'Val(208)}
-    UC_N_Tilde                  : @key[constant] Character := '@latin1(209)';  @RI{--Character'Val(209)}
-    UC_O_Grave                  : @key[constant] Character := '@latin1(210)';  @RI{--Character'Val(210)}
-    UC_O_Acute                  : @key[constant] Character := '@latin1(211)';  @RI{--Character'Val(211)}
-    UC_O_Circumflex             : @key[constant] Character := '@latin1(212)';  @RI{--Character'Val(212)}
-    UC_O_Tilde                  : @key[constant] Character := '@latin1(213)';  @RI{--Character'Val(213)}
-    UC_O_Diaeresis              : @key[constant] Character := '@latin1(214)';  @RI{--Character'Val(214)}
-    Multiplication_Sign         : @key[constant] Character := '@latin1(215)';  @RI{--Character'Val(215)}
-    UC_O_Oblique_Stroke         : @key[constant] Character := '@latin1(216)';  @RI{--Character'Val(216)}
-    UC_U_Grave                  : @key[constant] Character := '@latin1(217)';  @RI{--Character'Val(217)}
-    UC_U_Acute                  : @key[constant] Character := '@latin1(218)';  @RI{--Character'Val(218)}
-    UC_U_Circumflex             : @key[constant] Character := '@latin1(219)';  @RI{--Character'Val(219)}
-    UC_U_Diaeresis              : @key[constant] Character := '@latin1(220)';  @RI{--Character'Val(220)}
-    UC_Y_Acute                  : @key[constant] Character := '@latin1(221)';  @RI{--Character'Val(221)}
-    UC_Icelandic_Thorn          : @key[constant] Character := '@latin1(222)';  @RI{--Character'Val(222)}
-    LC_German_Sharp_S           : @key[constant] Character := '@latin1(223)';  @RI{--Character'Val(223)}
+    @AdaDefn{UC_Icelandic_Eth}            : @key[constant] Character := '@latin1(208)';  @RI{--Character'Val(208)}
+    @AdaDefn{UC_N_Tilde}                  : @key[constant] Character := '@latin1(209)';  @RI{--Character'Val(209)}
+    @AdaDefn{UC_O_Grave}                  : @key[constant] Character := '@latin1(210)';  @RI{--Character'Val(210)}
+    @AdaDefn{UC_O_Acute}                  : @key[constant] Character := '@latin1(211)';  @RI{--Character'Val(211)}
+    @AdaDefn{UC_O_Circumflex}             : @key[constant] Character := '@latin1(212)';  @RI{--Character'Val(212)}
+    @AdaDefn{UC_O_Tilde}                  : @key[constant] Character := '@latin1(213)';  @RI{--Character'Val(213)}
+    @AdaDefn{UC_O_Diaeresis}              : @key[constant] Character := '@latin1(214)';  @RI{--Character'Val(214)}
+    @AdaDefn{Multiplication_Sign}         : @key[constant] Character := '@latin1(215)';  @RI{--Character'Val(215)}
+    @AdaDefn{UC_O_Oblique_Stroke}         : @key[constant] Character := '@latin1(216)';  @RI{--Character'Val(216)}
+    @AdaDefn{UC_U_Grave}                  : @key[constant] Character := '@latin1(217)';  @RI{--Character'Val(217)}
+    @AdaDefn{UC_U_Acute}                  : @key[constant] Character := '@latin1(218)';  @RI{--Character'Val(218)}
+    @AdaDefn{UC_U_Circumflex}             : @key[constant] Character := '@latin1(219)';  @RI{--Character'Val(219)}
+    @AdaDefn{UC_U_Diaeresis}              : @key[constant] Character := '@latin1(220)';  @RI{--Character'Val(220)}
+    @AdaDefn{UC_Y_Acute}                  : @key[constant] Character := '@latin1(221)';  @RI{--Character'Val(221)}
+    @AdaDefn{UC_Icelandic_Thorn}          : @key[constant] Character := '@latin1(222)';  @RI{--Character'Val(222)}
+    @AdaDefn{LC_German_Sharp_S}           : @key[constant] Character := '@latin1(223)';  @RI{--Character'Val(223)}
 
 @RI{-- Character positions 224 (16#E0#) .. 239 (16#EF#):}
-    LC_A_Grave                  : @key[constant] Character := '@latin1(224)';  @RI{--Character'Val(224)}
-    LC_A_Acute                  : @key[constant] Character := '@latin1(225)';  @RI{--Character'Val(225)}
-    LC_A_Circumflex             : @key[constant] Character := '@latin1(226)';  @RI{--Character'Val(226)}
-    LC_A_Tilde                  : @key[constant] Character := '@latin1(227)';  @RI{--Character'Val(227)}
-    LC_A_Diaeresis              : @key[constant] Character := '@latin1(228)';  @RI{--Character'Val(228)}
-    LC_A_Ring                   : @key[constant] Character := '@latin1(229)';  @RI{--Character'Val(229)}
-    LC_AE_Diphthong             : @key[constant] Character := '@latin1(230)';  @RI{--Character'Val(230)}
-    LC_C_Cedilla                : @key[constant] Character := '@latin1(231)';  @RI{--Character'Val(231)}
-    LC_E_Grave                  : @key[constant] Character := '@latin1(232)';  @RI{--Character'Val(232)}
-    LC_E_Acute                  : @key[constant] Character := '@latin1(233)';  @RI{--Character'Val(233)}
-    LC_E_Circumflex             : @key[constant] Character := '@latin1(234)';  @RI{--Character'Val(234)}
-    LC_E_Diaeresis              : @key[constant] Character := '@latin1(235)';  @RI{--Character'Val(235)}
-    LC_I_Grave                  : @key[constant] Character := '@latin1(236)';  @RI{--Character'Val(236)}
-    LC_I_Acute                  : @key[constant] Character := '@latin1(237)';  @RI{--Character'Val(237)}
-    LC_I_Circumflex             : @key[constant] Character := '@latin1(238)';  @RI{--Character'Val(238)}
-    LC_I_Diaeresis              : @key[constant] Character := '@latin1(239)';  @RI{--Character'Val(239)}
+    @AdaDefn{LC_A_Grave}                  : @key[constant] Character := '@latin1(224)';  @RI{--Character'Val(224)}
+    @AdaDefn{LC_A_Acute}                  : @key[constant] Character := '@latin1(225)';  @RI{--Character'Val(225)}
+    @AdaDefn{LC_A_Circumflex}             : @key[constant] Character := '@latin1(226)';  @RI{--Character'Val(226)}
+    @AdaDefn{LC_A_Tilde}                  : @key[constant] Character := '@latin1(227)';  @RI{--Character'Val(227)}
+    @AdaDefn{LC_A_Diaeresis}              : @key[constant] Character := '@latin1(228)';  @RI{--Character'Val(228)}
+    @AdaDefn{LC_A_Ring}                   : @key[constant] Character := '@latin1(229)';  @RI{--Character'Val(229)}
+    @AdaDefn{LC_AE_Diphthong}             : @key[constant] Character := '@latin1(230)';  @RI{--Character'Val(230)}
+    @AdaDefn{LC_C_Cedilla}                : @key[constant] Character := '@latin1(231)';  @RI{--Character'Val(231)}
+    @AdaDefn{LC_E_Grave}                  : @key[constant] Character := '@latin1(232)';  @RI{--Character'Val(232)}
+    @AdaDefn{LC_E_Acute}                  : @key[constant] Character := '@latin1(233)';  @RI{--Character'Val(233)}
+    @AdaDefn{LC_E_Circumflex}             : @key[constant] Character := '@latin1(234)';  @RI{--Character'Val(234)}
+    @AdaDefn{LC_E_Diaeresis}              : @key[constant] Character := '@latin1(235)';  @RI{--Character'Val(235)}
+    @AdaDefn{LC_I_Grave}                  : @key[constant] Character := '@latin1(236)';  @RI{--Character'Val(236)}
+    @AdaDefn{LC_I_Acute}                  : @key[constant] Character := '@latin1(237)';  @RI{--Character'Val(237)}
+    @AdaDefn{LC_I_Circumflex}             : @key[constant] Character := '@latin1(238)';  @RI{--Character'Val(238)}
+    @AdaDefn{LC_I_Diaeresis}              : @key[constant] Character := '@latin1(239)';  @RI{--Character'Val(239)}
 
 @RI{-- Character positions 240 (16#F0#) .. 255 (16#FF#):}
-    LC_Icelandic_Eth            : @key[constant] Character := '@latin1(240)';  @RI{--Character'Val(240)}
-    LC_N_Tilde                  : @key[constant] Character := '@latin1(241)';  @RI{--Character'Val(241)}
-    LC_O_Grave                  : @key[constant] Character := '@latin1(242)';  @RI{--Character'Val(242)}
-    LC_O_Acute                  : @key[constant] Character := '@latin1(243)';  @RI{--Character'Val(243)}
-    LC_O_Circumflex             : @key[constant] Character := '@latin1(244)';  @RI{--Character'Val(244)}
-    LC_O_Tilde                  : @key[constant] Character := '@latin1(245)';  @RI{--Character'Val(245)}
-    LC_O_Diaeresis              : @key[constant] Character := '@latin1(246)';  @RI{--Character'Val(246)}
-    Division_Sign               : @key[constant] Character := '@latin1(247)';  @RI{--Character'Val(247)}
-    LC_O_Oblique_Stroke         : @key[constant] Character := '@latin1(248)';  @RI{--Character'Val(248)}
-    LC_U_Grave                  : @key[constant] Character := '@latin1(249)';  @RI{--Character'Val(249)}
-    LC_U_Acute                  : @key[constant] Character := '@latin1(250)';  @RI{--Character'Val(250)}
-    LC_U_Circumflex             : @key[constant] Character := '@latin1(251)';  @RI{--Character'Val(251)}
-    LC_U_Diaeresis              : @key[constant] Character := '@latin1(252)';  @RI{--Character'Val(252)}
-    LC_Y_Acute                  : @key[constant] Character := '@latin1(253)';  @RI{--Character'Val(253)}
-    LC_Icelandic_Thorn          : @key[constant] Character := '@latin1(254)';  @RI{--Character'Val(254)}
-    LC_Y_Diaeresis              : @key[constant] Character := '@latin1(255)';  @RI{--Character'Val(255)}
+    @AdaDefn{LC_Icelandic_Eth}            : @key[constant] Character := '@latin1(240)';  @RI{--Character'Val(240)}
+    @AdaDefn{LC_N_Tilde}                  : @key[constant] Character := '@latin1(241)';  @RI{--Character'Val(241)}
+    @AdaDefn{LC_O_Grave}                  : @key[constant] Character := '@latin1(242)';  @RI{--Character'Val(242)}
+    @AdaDefn{LC_O_Acute}                  : @key[constant] Character := '@latin1(243)';  @RI{--Character'Val(243)}
+    @AdaDefn{LC_O_Circumflex}             : @key[constant] Character := '@latin1(244)';  @RI{--Character'Val(244)}
+    @AdaDefn{LC_O_Tilde}                  : @key[constant] Character := '@latin1(245)';  @RI{--Character'Val(245)}
+    @AdaDefn{LC_O_Diaeresis}              : @key[constant] Character := '@latin1(246)';  @RI{--Character'Val(246)}
+    @AdaDefn{Division_Sign}               : @key[constant] Character := '@latin1(247)';  @RI{--Character'Val(247)}
+    @AdaDefn{LC_O_Oblique_Stroke}         : @key[constant] Character := '@latin1(248)';  @RI{--Character'Val(248)}
+    @AdaDefn{LC_U_Grave}                  : @key[constant] Character := '@latin1(249)';  @RI{--Character'Val(249)}
+    @AdaDefn{LC_U_Acute}                  : @key[constant] Character := '@latin1(250)';  @RI{--Character'Val(250)}
+    @AdaDefn{LC_U_Circumflex}             : @key[constant] Character := '@latin1(251)';  @RI{--Character'Val(251)}
+    @AdaDefn{LC_U_Diaeresis}              : @key[constant] Character := '@latin1(252)';  @RI{--Character'Val(252)}
+    @AdaDefn{LC_Y_Acute}                  : @key[constant] Character := '@latin1(253)';  @RI{--Character'Val(253)}
+    @AdaDefn{LC_Icelandic_Thorn}          : @key[constant] Character := '@latin1(254)';  @RI{--Character'Val(254)}
+    @AdaDefn{LC_Y_Diaeresis}              : @key[constant] Character := '@latin1(255)';  @RI{--Character'Val(255)}
 @key[end] Ada.Characters.Latin_1;
 @end{Example}
 

Questions? Ask the ACAA Technical Agent