1 ------------------------------------------------------------------------------
3 -- GNAT COMPILER COMPONENTS --
9 -- Copyright (C) 2002-2005 Free Software Foundation, Inc. --
11 -- GNAT is free software; you can redistribute it and/or modify it under --
12 -- terms of the GNU General Public License as published by the Free Soft- --
13 -- ware Foundation; either version 2, or (at your option) any later ver- --
14 -- sion. GNAT is distributed in the hope that it will be useful, but WITH- --
15 -- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY --
16 -- or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License --
17 -- for more details. You should have received a copy of the GNU General --
18 -- Public License distributed with GNAT; see file COPYING. If not, write --
19 -- to the Free Software Foundation, 51 Franklin Street, Fifth Floor, --
20 -- Boston, MA 02110-1301, USA. --
22 -- GNAT was originally developed by the GNAT team at New York University. --
23 -- Extensive contributions were provided by Ada Core Technologies Inc. --
25 ------------------------------------------------------------------------------
27 -- This package contains the routines to output error messages and the
28 -- scanner for the project files. It replaces Errout and Scn.
29 -- It is not dependent on the GNAT tree packages (Atree, Sinfo, ...).
30 -- It uses the same global variables as Errout, located in package
31 -- Err_Vars. Like Errout, it also uses the common variables and routines
32 -- in package Erroutc.
39 ---------------------------------------------------------
40 -- Error Message Text and Message Insertion Characters --
41 ---------------------------------------------------------
45 -----------------------------------------------------
46 -- Format of Messages and Manual Quotation Control --
47 -----------------------------------------------------
51 ------------------------------
52 -- Error Output Subprograms --
53 ------------------------------
55 procedure Initialize
renames Errutil
.Initialize
;
56 -- Initializes for output of error messages. Must be called for each
57 -- file before using any of the other routines in the package.
59 procedure Finalize
(Source_Type
: String := "project")
60 renames Errutil
.Finalize
;
61 -- Finalize processing of error messages for one file and output message
62 -- indicating the number of detected errors.
64 procedure Error_Msg
(Msg
: String; Flag_Location
: Source_Ptr
)
65 renames Errutil
.Error_Msg
;
66 -- Output a message at specified location.
68 procedure Error_Msg_S
(Msg
: String) renames Errutil
.Error_Msg_S
;
69 -- Output a message at current scan pointer location.
71 procedure Error_Msg_SC
(Msg
: String) renames Errutil
.Error_Msg_SC
;
72 -- Output a message at the start of the current token, unless we are at
73 -- the end of file, in which case we always output the message after the
74 -- last real token in the file.
76 procedure Error_Msg_SP
(Msg
: String) renames Errutil
.Error_Msg_SP
;
77 -- Output a message at the start of the previous token.
83 package Style
renames Errutil
.Style
;
84 -- Instantiation of the generic style package, needed for the instantiation
85 -- of the generic scanner below.
87 procedure Obsolescent_Check
(S
: Source_Ptr
);
88 -- Dummy null procedure for Scng instantiation
91 -- Convert an Ada operator symbol into a standard string
93 package Scanner
is new Scng
94 (Post_Scan
=> Post_Scan
,
95 Error_Msg
=> Error_Msg
,
96 Error_Msg_S
=> Error_Msg_S
,
97 Error_Msg_SC
=> Error_Msg_SC
,
98 Error_Msg_SP
=> Error_Msg_SP
,
99 Obsolescent_Check
=> Obsolescent_Check
,
101 -- Instantiation of the generic scanner