diff options
Diffstat (limited to 'gcc/ada/casing.ads')
| -rw-r--r-- | gcc/ada/casing.ads | 89 |
1 files changed, 89 insertions, 0 deletions
diff --git a/gcc/ada/casing.ads b/gcc/ada/casing.ads new file mode 100644 index 000000000..8d169fbd3 --- /dev/null +++ b/gcc/ada/casing.ads @@ -0,0 +1,89 @@ +------------------------------------------------------------------------------ +-- -- +-- GNAT COMPILER COMPONENTS -- +-- -- +-- C A S I N G -- +-- -- +-- S p e c -- +-- -- +-- Copyright (C) 1992-2010, 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- -- +-- ware Foundation; either version 3, 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. -- +-- -- +-- As a special exception under Section 7 of GPL version 3, you are granted -- +-- additional permissions described in the GCC Runtime Library Exception, -- +-- version 3.1, as published by the Free Software Foundation. -- +-- -- +-- You should have received a copy of the GNU General Public License and -- +-- a copy of the GCC Runtime Library Exception along with this program; -- +-- see the files COPYING3 and COPYING.RUNTIME respectively. If not, see -- +-- <http://www.gnu.org/licenses/>. -- +-- -- +-- GNAT was originally developed by the GNAT team at New York University. -- +-- Extensive contributions were provided by Ada Core Technologies Inc. -- +-- -- +------------------------------------------------------------------------------ + +with Types; use Types; + +package Casing is + + -- This package contains data and subprograms to support the feature that + -- recognizes the letter case styles used in the source program being + -- compiled, and uses this information for error message formatting, and + -- for recognizing reserved words that are misused as identifiers. + + ------------------------------- + -- Case Control Declarations -- + ------------------------------- + + -- Declaration of type for describing casing convention + + type Casing_Type is ( + + All_Upper_Case, + -- All letters are upper case + + All_Lower_Case, + -- All letters are lower case + + Mixed_Case, + -- The initial letter, and any letters after underlines are upper case. + -- All other letters are lower case + + Unknown + -- Used if an identifier does not distinguish between the above cases, + -- (e.g. X, Y_3, M4, A_B, or if it is inconsistent ABC_def). + ); + + subtype Known_Casing is Casing_Type range All_Upper_Case .. Mixed_Case; + -- Exclude Unknown casing + + ------------------------------ + -- Case Control Subprograms -- + ------------------------------ + + procedure Set_Casing (C : Casing_Type; D : Casing_Type := Mixed_Case); + -- Takes the name stored in the first Name_Len positions of Name_Buffer + -- and modifies it to be consistent with the casing given by C, or if + -- C = Unknown, then with the casing given by D. The name is basically + -- treated as an identifier, except that special separator characters + -- other than underline are permitted and treated like underlines (this + -- handles cases like minus and period in unit names, apostrophes in error + -- messages, angle brackets in names like <any_type>, etc). + + procedure Set_All_Upper_Case; + pragma Inline (Set_All_Upper_Case); + -- This procedure is called with an identifier name stored in Name_Buffer. + -- On return, the identifier is converted to all upper case. The call is + -- equivalent to Set_Casing (All_Upper_Case). + + function Determine_Casing (Ident : Text_Buffer) return Casing_Type; + -- Determines the casing of the identifier/keyword string Ident + +end Casing; |