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
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
|
-- GHDL driver - local commands.
-- Copyright (C) 2002, 2003, 2004, 2005 Tristan Gingold
--
-- This program is free software: you can redistribute it and/or modify
-- it under the terms of the GNU General Public License as published by
-- the Free Software Foundation, either version 2 of the License, or
-- (at your option) any later version.
--
-- This program is distributed in the hope that it will be useful,
-- but WITHOUT 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
-- along with this program. If not, see <gnu.org/licenses>.
with GNAT.OS_Lib; use GNAT.OS_Lib;
with Types; use Types;
with Options; use Options;
with Ghdlmain; use Ghdlmain;
with Vhdl.Nodes; use Vhdl.Nodes;
package Ghdllocal is
-- Init procedure for the functionnal interface.
procedure Compile_Init;
-- Handle:
-- --std=xx, --work=xx, -Pxxx, --workdir=x, --ieee=x, -Px, and -v
function Decode_Driver_Option (Opt : String) return Option_State;
type Command_Lib is abstract new Command_Type with null record;
-- Setup GHDL. Same as Compile_Init.
procedure Init (Cmd : in out Command_Lib);
-- Handle driver options.
procedure Decode_Option (Cmd : in out Command_Lib;
Option : String;
Arg : String;
Res : out Option_State);
-- Disp detailled help.
procedure Disp_Long_Help (Cmd : Command_Lib);
-- Value of --PREFIX
Switch_Prefix_Path : String_Access := null;
-- getenv ("GHDL_PREFIX"). Set by Setup_Libraries.
Prefix_Env : String_Access := null;
-- Installation prefix (deduced from executable path and without bin/).
Exec_Prefix : String_Access;
-- Path prefix for libraries.
Lib_Prefix_Path : String_Access := null;
-- Set with -v option.
Flag_Verbose : Boolean := False;
-- True if --post is present.
Flag_Postprocess : Boolean := False;
-- Suffix for asm files.
Asm_Suffix : constant String := ".s";
-- Suffix for llvm byte-code files.
Llvm_Suffix : constant String := ".bc";
-- Suffix for post files.
Post_Suffix : constant String := ".on";
-- Suffix for list files.
List_Suffix : constant String := ".lst";
-- Prefix for elab files.
Elab_Prefix : constant String := "e~";
Nul : constant Character := Character'Val (0);
-- Return FILENAME without the extension.
function Get_Base_Name (Filename : String; Remove_Dir : Boolean := True)
return String;
-- Get the position of the last directory separator or Pathname'First - 1
-- if none.
function Get_Basename_Pos (Pathname : String) return Natural;
-- Return TRUE iff PATHNAME is a command name: a path name without path
-- component. Usually these command names must be search on the command
-- path (PATH).
function Is_Basename (Pathname : String) return Boolean;
-- Build a filename based on FILE. If IN_WORK is true, the result is
-- the concatenation of the workdir, the basename of FILE and SUFFIX.
-- If IN_WORK is false, the result is the concatenation of FILE and SUFFIX.
function Append_Suffix
(File : String; Suffix : String; In_Work : Boolean := True)
return String_Access;
-- Return TRUE is UNIT can be at the apex of a design hierarchy.
function Is_Top_Entity (Unit : Iir) return Boolean;
-- Display the name of library unit UNIT.
procedure Disp_Library_Unit (Unit : Iir);
-- Translate vhdl version into a path element.
-- Used to search Std and IEEE libraries.
function Get_Version_Path return String;
-- Get Prefix_Path, but with 32 added if -m32 is requested
function Get_Machine_Path_Prefix return String;
-- Subprocedure for --disp-config: display prefixes.
procedure Disp_Config_Prefixes;
-- Setup standard libaries path. If LOAD is true, then load them now.
-- Return TRUE in case of success, FALSE in case of failure.
function Setup_Libraries (Load : Boolean) return Boolean;
-- Set Exec_Prefix from program name. Called by Setup_Libraries.
procedure Set_Exec_Prefix_From_Program_Name;
-- Setup library, analyze FILES, and if SAVE_LIBRARY is set save the
-- work library only
procedure Analyze_Files
(Files : Argument_List; Save_Library : Boolean; Error : out Boolean);
-- Load and parse all libraries and files, starting from the work library.
-- The work library must already be loaded.
-- Raise errorout.compilation_error in case of error (parse error).
procedure Load_All_Libraries_And_Files;
function Build_Dependence (Prim : Name_Id; Sec : Name_Id) return Iir_List;
-- Return True iff file FILE has been modified (the file time stamp does
-- no correspond to what was recorded in the library).
function Source_File_Modified (File : Iir_Design_File) return Boolean;
-- Return True iff FILE need to be analyzed because one of its dependences
-- has been analyzed more recently.
function Is_File_Outdated (File : Iir_Design_File) return Boolean;
-- Extract PRIM_ID and SEC_ID from ARGS.
procedure Extract_Elab_Unit (Cmd_Name : String;
Args : Argument_List;
Next_Arg : out Natural;
Prim_Id : out Name_Id;
Sec_Id : out Name_Id);
-- Report true iff OPT has the form '-gGEN=VAL'. Used to distingish from
-- debugging (like '-g' or '-ggdb' or '-g2') options.
function Is_Generic_Override_Option (Opt : String) return Boolean;
-- Handle generic override option OPT. Return Option_Err if the generic
-- name is incorrect.
function Decode_Generic_Override_Option (Opt : String) return Option_State;
-- Emit a warning if an argument is not a filename (ie looks like an
-- option).
procedure Expect_Filenames (Args : Argument_List);
-- Used by --gen-makefile
procedure Gen_Makefile_Disp_Header;
procedure Gen_Makefile_Disp_Variables;
procedure Register_Commands;
end Ghdllocal;
|
