X-Git-Url: http://git.sourceforge.jp/view?a=blobdiff_plain;f=gcc%2Fada%2Fsfn_scan.ads;h=bc9cbcaa5556a1b97180a3002f821b0c55ba5f91;hb=20d2f5309ee374943308566fa4f174cd3312853b;hp=ed84fc6686d8281e84f8ed639dafc9856c237edc;hpb=d6f39728ae3cc12d4f867eeb4659d01322643264;p=pf3gnuchains%2Fgcc-fork.git diff --git a/gcc/ada/sfn_scan.ads b/gcc/ada/sfn_scan.ads index ed84fc6686d..bc9cbcaa555 100644 --- a/gcc/ada/sfn_scan.ads +++ b/gcc/ada/sfn_scan.ads @@ -6,23 +6,20 @@ -- -- -- S p e c -- -- -- --- $Revision: 1.2 $ --- -- --- Copyright (C) 2000-2001 Free Software Foundation, Inc. -- +-- Copyright (C) 2000-2008, 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- -- +-- 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. 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. -- +-- Public License distributed with GNAT; see file COPYING3. If not, go to -- +-- http://www.gnu.org/licenses for a complete copy of the 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. -- -- -- ------------------------------------------------------------------------------ @@ -32,12 +29,12 @@ -- 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 +-- unit contains any with statements at all. This is a completely -- 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 +-- Scan_SFN_Pragmas procedure at the same time are responsible for -- avoiding such multiple calls by appropriate synchronization. package SFN_Scan is @@ -48,12 +45,17 @@ package SFN_Scan is -- of these procedures: type Set_File_Name_Ptr is access - procedure (Typ : Character; U : String; F : String); + 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. + -- 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); @@ -89,6 +91,6 @@ package SFN_Scan is -- 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 + -- to indicate the approximate location of the error end SFN_Scan;