blob: b57c73bf957908ca0ab9f077d2b56d3fd5a2bb19 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
|
------------------------------------------------------------------------------
-- --
-- GNAT COMPILER COMPONENTS --
-- --
-- S I N P U T . P --
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-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 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 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. --
-- Extensive contributions were provided by Ada Core Technologies Inc. --
-- --
------------------------------------------------------------------------------
with Prj.Err;
with Sinput.C;
package body Sinput.P is
First : Boolean := True;
-- Flag used when Load_Project_File is called the first time,
-- to set Main_Source_File.
-- The flag is reset to False at the first call to Load_Project_File.
-- Calling Reset_First sets it back to True.
-----------------------
-- Load_Project_File --
-----------------------
function Load_Project_File (Path : String) return Source_File_Index is
X : Source_File_Index;
begin
X := Sinput.C.Load_File (Path);
if First then
Main_Source_File := X;
First := False;
end if;
return X;
end Load_Project_File;
-----------------
-- Reset_First --
-----------------
procedure Reset_First is
begin
First := True;
end Reset_First;
--------------------------------
-- Restore_Project_Scan_State --
--------------------------------
procedure Restore_Project_Scan_State
(Saved_State : Saved_Project_Scan_State)
is
begin
Restore_Scan_State (Saved_State.Scan_State);
Source := Saved_State.Source;
Current_Source_File := Saved_State.Current_Source_File;
end Restore_Project_Scan_State;
-----------------------------
-- Save_Project_Scan_State --
-----------------------------
procedure Save_Project_Scan_State
(Saved_State : out Saved_Project_Scan_State)
is
begin
Save_Scan_State (Saved_State.Scan_State);
Saved_State.Source := Source;
Saved_State.Current_Source_File := Current_Source_File;
end Save_Project_Scan_State;
----------------------------
-- Source_File_Is_Subunit --
----------------------------
function Source_File_Is_Subunit (X : Source_File_Index) return Boolean is
begin
Prj.Err.Scanner.Initialize_Scanner (X);
-- No error for special characters that are used for preprocessing
Prj.Err.Scanner.Set_Special_Character ('#');
Prj.Err.Scanner.Set_Special_Character ('$');
-- We scan past junk to the first interesting compilation unit
-- token, to see if it is SEPARATE. We ignore WITH keywords during
-- this and also PRIVATE. The reason for ignoring PRIVATE is that
-- it handles some error situations, and also to handle PRIVATE WITH
-- in Ada 2005 mode.
while Token = Tok_With
or else Token = Tok_Private
or else (Token not in Token_Class_Cunit and then Token /= Tok_EOF)
loop
Prj.Err.Scanner.Scan;
end loop;
Prj.Err.Scanner.Reset_Special_Characters;
return Token = Tok_Separate;
end Source_File_Is_Subunit;
end Sinput.P;
|
