diff options
Diffstat (limited to 'gcc-4.2.1/gcc/ada/sfn_scan.ads')
| -rw-r--r-- | gcc-4.2.1/gcc/ada/sfn_scan.ads | 97 |
1 files changed, 97 insertions, 0 deletions
diff --git a/gcc-4.2.1/gcc/ada/sfn_scan.ads b/gcc-4.2.1/gcc/ada/sfn_scan.ads new file mode 100644 index 000000000..8ce848f28 --- /dev/null +++ b/gcc-4.2.1/gcc/ada/sfn_scan.ads @@ -0,0 +1,97 @@ +------------------------------------------------------------------------------ +-- -- +-- GNAT COMPILER COMPONENTS -- +-- -- +-- S F N _ S C A N -- +-- -- +-- S p e c -- +-- -- +-- Copyright (C) 2000-2005, 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 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, 51 Franklin Street, Fifth Floor, -- +-- Boston, MA 02110-1301, USA. -- +-- -- +-- GNAT was originally developed by the GNAT team at New York University. -- +-- Extensive contributions were provided by Ada Core Technologies Inc. -- +-- -- +------------------------------------------------------------------------------ + +-- This package provides a stand alone capability for scanning a gnat.adc +-- file for Source_File_Name pragmas. This is for use in tools other than +-- the compiler, which want to scan source file name pragmas without the +-- overhead of the full compiler scanner and parser. + +-- Note that neither the package spec, nor the package body, of this +-- unit contains any with statements at all. This is a compeltely +-- independent package, suitable for incorporation into tools that do +-- not access any other units in the GNAT compiler or tools sources. + +-- This package is NOT task safe, so multiple tasks that may call the +-- Scan_SFN_Pragmas procedure at the same time are responsibible for +-- avoiding such multiple calls by appropriate synchronization. + +package SFN_Scan is + + -- The call to SFN_Scan passes pointers to two procedures that are + -- used to store the results of scanning any Source_File_Name pragmas + -- that are encountered. The following access types define the form + -- of these procedures: + + type Set_File_Name_Ptr is access + procedure + (Typ : Character; + U : String; + F : String; + Index : Natural); + -- The procedure with this profile is called when a Source_File_Name + -- pragma of the form having a unit name parameter. Typ is 'b' for + -- a body file name, and 's' for a spec file name. U is a string that + -- contains the unit name, exactly as it appeared in the source file, + -- and F is the file taken from the second parameter. Index is taken + -- from the third parameter, or is set to zero if no third parameter. + + type Set_File_Name_Pattern_Ptr is access + procedure (Pat : String; Typ : Character; Dot : String; Cas : Character); + -- This is called to process a Source_File_Name pragma whose first + -- argument is a file pattern. Pat is this pattern string, which + -- contains an asterisk to correspond to the unit. Typ is one of + -- ('b'/'s'/'u') for body/spec/subunit, Dot is the separator string + -- for child/subunit names (default is "."), and Cas is one of + -- ('l'/'u'/'m') indicating the required case for the file name. + -- The default setting for Cas is 'l' if no parameter is present. + + Cursor : Natural; + -- Used to record the cursor value if a syntax error is found + + Syntax_Error_In_GNAT_ADC : exception; + -- Exception raised if a syntax error is found + + procedure Scan_SFN_Pragmas + (Source : String; + SFN_Ptr : Set_File_Name_Ptr; + SFNP_Ptr : Set_File_Name_Pattern_Ptr); + -- This is the procedure called to scan a gnat.adc file. The Source + -- parameter points to the full text of the file, with normal line end + -- characters, in the format normally read by the compiler. The two + -- parameters SFN_Ptr and SFNP_Ptr point to procedures that will be + -- called to register Source_File_Name pragmas as they are found. + -- + -- If a syntax error is found, then Syntax_Error_In_GNAT_ADC is raised, + -- and the location SFN_Scan.Cursor contains the approximate index of + -- the error in the source string. + -- + -- The scan assumes that it is dealing with a valid gnat.adc file, + -- that includes only pragmas and comments. It does not do a full + -- syntax correctness scan by any means, but if it does find anything + -- that it can tell is wrong it will immediately raise the exception + -- to indicate the aproximate location of the error + +end SFN_Scan; |