X-Git-Url: https://oss.titaniummirror.com/gitweb/?a=blobdiff_plain;f=gcc%2Fada%2Fa-strmap.ads;fp=gcc%2Fada%2Fa-strmap.ads;h=0000000000000000000000000000000000000000;hb=6fed43773c9b0ce596dca5686f37ac3fc0fa11c0;hp=c8fdde21d226a5cd788739be466ddf53686bf64e;hpb=27b11d56b743098deb193d510b337ba22dc52e5c;p=msp430-gcc.git diff --git a/gcc/ada/a-strmap.ads b/gcc/ada/a-strmap.ads deleted file mode 100644 index c8fdde21..00000000 --- a/gcc/ada/a-strmap.ads +++ /dev/null @@ -1,424 +0,0 @@ ------------------------------------------------------------------------------- --- -- --- GNAT RUN-TIME COMPONENTS -- --- -- --- A D A . S T R I N G S . M A P S -- --- -- --- S p e c -- --- -- --- $Revision: 1.1.16.1 $ --- -- --- Copyright (C) 1992-2001 Free Software Foundation, Inc. -- --- -- --- This specification is derived from the Ada Reference Manual for use with -- --- GNAT. The copyright notice above, and the license provisions that follow -- --- apply solely to the contents of the part following the private keyword. -- --- -- --- 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. -- --- Extensive contributions were provided by Ada Core Technologies Inc. -- --- -- ------------------------------------------------------------------------------- - -with Ada.Characters.Latin_1; - -package Ada.Strings.Maps is -pragma Preelaborate (Maps); - - package L renames Ada.Characters.Latin_1; - - -------------------------------- - -- Character Set Declarations -- - -------------------------------- - - type Character_Set is private; - -- Representation for a set of character values: - - Null_Set : constant Character_Set; - - --------------------------- - -- Constructors for Sets -- - --------------------------- - - type Character_Range is record - Low : Character; - High : Character; - end record; - -- Represents Character range Low .. High - - type Character_Ranges is array (Positive range <>) of Character_Range; - - function To_Set (Ranges : in Character_Ranges) return Character_Set; - - function To_Set (Span : in Character_Range) return Character_Set; - - function To_Ranges (Set : in Character_Set) return Character_Ranges; - - ---------------------------------- - -- Operations on Character Sets -- - ---------------------------------- - - function "=" (Left, Right : in Character_Set) return Boolean; - - function "not" (Right : in Character_Set) return Character_Set; - function "and" (Left, Right : in Character_Set) return Character_Set; - function "or" (Left, Right : in Character_Set) return Character_Set; - function "xor" (Left, Right : in Character_Set) return Character_Set; - function "-" (Left, Right : in Character_Set) return Character_Set; - - function Is_In - (Element : in Character; - Set : in Character_Set) - return Boolean; - - function Is_Subset - (Elements : in Character_Set; - Set : in Character_Set) - return Boolean; - - function "<=" - (Left : in Character_Set; - Right : in Character_Set) - return Boolean - renames Is_Subset; - - subtype Character_Sequence is String; - -- Alternative representation for a set of character values - - function To_Set (Sequence : in Character_Sequence) return Character_Set; - - function To_Set (Singleton : in Character) return Character_Set; - - function To_Sequence (Set : in Character_Set) return Character_Sequence; - - ------------------------------------ - -- Character Mapping Declarations -- - ------------------------------------ - - type Character_Mapping is private; - -- Representation for a character to character mapping: - - function Value - (Map : in Character_Mapping; - Element : in Character) - return Character; - - Identity : constant Character_Mapping; - - ---------------------------- - -- Operations on Mappings -- - ---------------------------- - - function To_Mapping - (From, To : in Character_Sequence) - return Character_Mapping; - - function To_Domain - (Map : in Character_Mapping) - return Character_Sequence; - - function To_Range - (Map : in Character_Mapping) - return Character_Sequence; - - type Character_Mapping_Function is - access function (From : in Character) return Character; - - ------------------ - -- Private Part -- - ------------------ - -private - pragma Inline (Is_In); - pragma Inline (Value); - - type Character_Set_Internal is array (Character) of Boolean; - pragma Pack (Character_Set_Internal); - - type Character_Set is new Character_Set_Internal; - -- Note: the reason for this level of derivation is to make sure - -- that the predefined logical operations on this type remain - -- accessible. The operations on Character_Set are overridden by - -- the defined operations in the spec, but the operations defined - -- on Character_Set_Internal remain visible. - - Null_Set : constant Character_Set := (others => False); - - type Character_Mapping is array (Character) of Character; - - Identity : constant Character_Mapping := - (L.NUL & -- NUL 0 - L.SOH & -- SOH 1 - L.STX & -- STX 2 - L.ETX & -- ETX 3 - L.EOT & -- EOT 4 - L.ENQ & -- ENQ 5 - L.ACK & -- ACK 6 - L.BEL & -- BEL 7 - L.BS & -- BS 8 - L.HT & -- HT 9 - L.LF & -- LF 10 - L.VT & -- VT 11 - L.FF & -- FF 12 - L.CR & -- CR 13 - L.SO & -- SO 14 - L.SI & -- SI 15 - L.DLE & -- DLE 16 - L.DC1 & -- DC1 17 - L.DC2 & -- DC2 18 - L.DC3 & -- DC3 19 - L.DC4 & -- DC4 20 - L.NAK & -- NAK 21 - L.SYN & -- SYN 22 - L.ETB & -- ETB 23 - L.CAN & -- CAN 24 - L.EM & -- EM 25 - L.SUB & -- SUB 26 - L.ESC & -- ESC 27 - L.FS & -- FS 28 - L.GS & -- GS 29 - L.RS & -- RS 30 - L.US & -- US 31 - L.Space & -- ' ' 32 - L.Exclamation & -- '!' 33 - L.Quotation & -- '"' 34 - L.Number_Sign & -- '#' 35 - L.Dollar_Sign & -- '$' 36 - L.Percent_Sign & -- '%' 37 - L.Ampersand & -- '&' 38 - L.Apostrophe & -- ''' 39 - L.Left_Parenthesis & -- '(' 40 - L.Right_Parenthesis & -- ')' 41 - L.Asterisk & -- '*' 42 - L.Plus_Sign & -- '+' 43 - L.Comma & -- ',' 44 - L.Hyphen & -- '-' 45 - L.Full_Stop & -- '.' 46 - L.Solidus & -- '/' 47 - '0' & -- '0' 48 - '1' & -- '1' 49 - '2' & -- '2' 50 - '3' & -- '3' 51 - '4' & -- '4' 52 - '5' & -- '5' 53 - '6' & -- '6' 54 - '7' & -- '7' 55 - '8' & -- '8' 56 - '9' & -- '9' 57 - L.Colon & -- ':' 58 - L.Semicolon & -- ';' 59 - L.Less_Than_Sign & -- '<' 60 - L.Equals_Sign & -- '=' 61 - L.Greater_Than_Sign & -- '>' 62 - L.Question & -- '?' 63 - L.Commercial_At & -- '@' 64 - 'A' & -- 'A' 65 - 'B' & -- 'B' 66 - 'C' & -- 'C' 67 - 'D' & -- 'D' 68 - 'E' & -- 'E' 69 - 'F' & -- 'F' 70 - 'G' & -- 'G' 71 - 'H' & -- 'H' 72 - 'I' & -- 'I' 73 - 'J' & -- 'J' 74 - 'K' & -- 'K' 75 - 'L' & -- 'L' 76 - 'M' & -- 'M' 77 - 'N' & -- 'N' 78 - 'O' & -- 'O' 79 - 'P' & -- 'P' 80 - 'Q' & -- 'Q' 81 - 'R' & -- 'R' 82 - 'S' & -- 'S' 83 - 'T' & -- 'T' 84 - 'U' & -- 'U' 85 - 'V' & -- 'V' 86 - 'W' & -- 'W' 87 - 'X' & -- 'X' 88 - 'Y' & -- 'Y' 89 - 'Z' & -- 'Z' 90 - L.Left_Square_Bracket & -- '[' 91 - L.Reverse_Solidus & -- '\' 92 - L.Right_Square_Bracket & -- ']' 93 - L.Circumflex & -- '^' 94 - L.Low_Line & -- '_' 95 - L.Grave & -- '`' 96 - L.LC_A & -- 'a' 97 - L.LC_B & -- 'b' 98 - L.LC_C & -- 'c' 99 - L.LC_D & -- 'd' 100 - L.LC_E & -- 'e' 101 - L.LC_F & -- 'f' 102 - L.LC_G & -- 'g' 103 - L.LC_H & -- 'h' 104 - L.LC_I & -- 'i' 105 - L.LC_J & -- 'j' 106 - L.LC_K & -- 'k' 107 - L.LC_L & -- 'l' 108 - L.LC_M & -- 'm' 109 - L.LC_N & -- 'n' 110 - L.LC_O & -- 'o' 111 - L.LC_P & -- 'p' 112 - L.LC_Q & -- 'q' 113 - L.LC_R & -- 'r' 114 - L.LC_S & -- 's' 115 - L.LC_T & -- 't' 116 - L.LC_U & -- 'u' 117 - L.LC_V & -- 'v' 118 - L.LC_W & -- 'w' 119 - L.LC_X & -- 'x' 120 - L.LC_Y & -- 'y' 121 - L.LC_Z & -- 'z' 122 - L.Left_Curly_Bracket & -- '{' 123 - L.Vertical_Line & -- '|' 124 - L.Right_Curly_Bracket & -- '}' 125 - L.Tilde & -- '~' 126 - L.DEL & -- DEL 127 - L.Reserved_128 & -- Reserved_128 128 - L.Reserved_129 & -- Reserved_129 129 - L.BPH & -- BPH 130 - L.NBH & -- NBH 131 - L.Reserved_132 & -- Reserved_132 132 - L.NEL & -- NEL 133 - L.SSA & -- SSA 134 - L.ESA & -- ESA 135 - L.HTS & -- HTS 136 - L.HTJ & -- HTJ 137 - L.VTS & -- VTS 138 - L.PLD & -- PLD 139 - L.PLU & -- PLU 140 - L.RI & -- RI 141 - L.SS2 & -- SS2 142 - L.SS3 & -- SS3 143 - L.DCS & -- DCS 144 - L.PU1 & -- PU1 145 - L.PU2 & -- PU2 146 - L.STS & -- STS 147 - L.CCH & -- CCH 148 - L.MW & -- MW 149 - L.SPA & -- SPA 150 - L.EPA & -- EPA 151 - L.SOS & -- SOS 152 - L.Reserved_153 & -- Reserved_153 153 - L.SCI & -- SCI 154 - L.CSI & -- CSI 155 - L.ST & -- ST 156 - L.OSC & -- OSC 157 - L.PM & -- PM 158 - L.APC & -- APC 159 - L.No_Break_Space & -- No_Break_Space 160 - L.Inverted_Exclamation & -- Inverted_Exclamation 161 - L.Cent_Sign & -- Cent_Sign 162 - L.Pound_Sign & -- Pound_Sign 163 - L.Currency_Sign & -- Currency_Sign 164 - L.Yen_Sign & -- Yen_Sign 165 - L.Broken_Bar & -- Broken_Bar 166 - L.Section_Sign & -- Section_Sign 167 - L.Diaeresis & -- Diaeresis 168 - L.Copyright_Sign & -- Copyright_Sign 169 - L.Feminine_Ordinal_Indicator & -- Feminine_Ordinal_Indicator 170 - L.Left_Angle_Quotation & -- Left_Angle_Quotation 171 - L.Not_Sign & -- Not_Sign 172 - L.Soft_Hyphen & -- Soft_Hyphen 173 - L.Registered_Trade_Mark_Sign & -- Registered_Trade_Mark_Sign 174 - L.Macron & -- Macron 175 - L.Degree_Sign & -- Degree_Sign 176 - L.Plus_Minus_Sign & -- Plus_Minus_Sign 177 - L.Superscript_Two & -- Superscript_Two 178 - L.Superscript_Three & -- Superscript_Three 179 - L.Acute & -- Acute 180 - L.Micro_Sign & -- Micro_Sign 181 - L.Pilcrow_Sign & -- Pilcrow_Sign 182 - L.Middle_Dot & -- Middle_Dot 183 - L.Cedilla & -- Cedilla 184 - L.Superscript_One & -- Superscript_One 185 - L.Masculine_Ordinal_Indicator & -- Masculine_Ordinal_Indicator 186 - L.Right_Angle_Quotation & -- Right_Angle_Quotation 187 - L.Fraction_One_Quarter & -- Fraction_One_Quarter 188 - L.Fraction_One_Half & -- Fraction_One_Half 189 - L.Fraction_Three_Quarters & -- Fraction_Three_Quarters 190 - L.Inverted_Question & -- Inverted_Question 191 - L.UC_A_Grave & -- UC_A_Grave 192 - L.UC_A_Acute & -- UC_A_Acute 193 - L.UC_A_Circumflex & -- UC_A_Circumflex 194 - L.UC_A_Tilde & -- UC_A_Tilde 195 - L.UC_A_Diaeresis & -- UC_A_Diaeresis 196 - L.UC_A_Ring & -- UC_A_Ring 197 - L.UC_AE_Diphthong & -- UC_AE_Diphthong 198 - L.UC_C_Cedilla & -- UC_C_Cedilla 199 - L.UC_E_Grave & -- UC_E_Grave 200 - L.UC_E_Acute & -- UC_E_Acute 201 - L.UC_E_Circumflex & -- UC_E_Circumflex 202 - L.UC_E_Diaeresis & -- UC_E_Diaeresis 203 - L.UC_I_Grave & -- UC_I_Grave 204 - L.UC_I_Acute & -- UC_I_Acute 205 - L.UC_I_Circumflex & -- UC_I_Circumflex 206 - L.UC_I_Diaeresis & -- UC_I_Diaeresis 207 - L.UC_Icelandic_Eth & -- UC_Icelandic_Eth 208 - L.UC_N_Tilde & -- UC_N_Tilde 209 - L.UC_O_Grave & -- UC_O_Grave 210 - L.UC_O_Acute & -- UC_O_Acute 211 - L.UC_O_Circumflex & -- UC_O_Circumflex 212 - L.UC_O_Tilde & -- UC_O_Tilde 213 - L.UC_O_Diaeresis & -- UC_O_Diaeresis 214 - L.Multiplication_Sign & -- Multiplication_Sign 215 - L.UC_O_Oblique_Stroke & -- UC_O_Oblique_Stroke 216 - L.UC_U_Grave & -- UC_U_Grave 217 - L.UC_U_Acute & -- UC_U_Acute 218 - L.UC_U_Circumflex & -- UC_U_Circumflex 219 - L.UC_U_Diaeresis & -- UC_U_Diaeresis 220 - L.UC_Y_Acute & -- UC_Y_Acute 221 - L.UC_Icelandic_Thorn & -- UC_Icelandic_Thorn 222 - L.LC_German_Sharp_S & -- LC_German_Sharp_S 223 - L.LC_A_Grave & -- LC_A_Grave 224 - L.LC_A_Acute & -- LC_A_Acute 225 - L.LC_A_Circumflex & -- LC_A_Circumflex 226 - L.LC_A_Tilde & -- LC_A_Tilde 227 - L.LC_A_Diaeresis & -- LC_A_Diaeresis 228 - L.LC_A_Ring & -- LC_A_Ring 229 - L.LC_AE_Diphthong & -- LC_AE_Diphthong 230 - L.LC_C_Cedilla & -- LC_C_Cedilla 231 - L.LC_E_Grave & -- LC_E_Grave 232 - L.LC_E_Acute & -- LC_E_Acute 233 - L.LC_E_Circumflex & -- LC_E_Circumflex 234 - L.LC_E_Diaeresis & -- LC_E_Diaeresis 235 - L.LC_I_Grave & -- LC_I_Grave 236 - L.LC_I_Acute & -- LC_I_Acute 237 - L.LC_I_Circumflex & -- LC_I_Circumflex 238 - L.LC_I_Diaeresis & -- LC_I_Diaeresis 239 - L.LC_Icelandic_Eth & -- LC_Icelandic_Eth 240 - L.LC_N_Tilde & -- LC_N_Tilde 241 - L.LC_O_Grave & -- LC_O_Grave 242 - L.LC_O_Acute & -- LC_O_Acute 243 - L.LC_O_Circumflex & -- LC_O_Circumflex 244 - L.LC_O_Tilde & -- LC_O_Tilde 245 - L.LC_O_Diaeresis & -- LC_O_Diaeresis 246 - L.Division_Sign & -- Division_Sign 247 - L.LC_O_Oblique_Stroke & -- LC_O_Oblique_Stroke 248 - L.LC_U_Grave & -- LC_U_Grave 249 - L.LC_U_Acute & -- LC_U_Acute 250 - L.LC_U_Circumflex & -- LC_U_Circumflex 251 - L.LC_U_Diaeresis & -- LC_U_Diaeresis 252 - L.LC_Y_Acute & -- LC_Y_Acute 253 - L.LC_Icelandic_Thorn & -- LC_Icelandic_Thorn 254 - L.LC_Y_Diaeresis); -- LC_Y_Diaeresis 255 - -end Ada.Strings.Maps;