mirror of
https://github.com/AdaCore/PolyORB.git
synced 2026-02-12 13:01:15 -08:00
ebb9becdbc
generating code, all the -d* are for debugging. Do not enter a name in scope when it is a scoped name already present in scope (from previous checking). [Imported from Perforce change 6704 at 2006-12-01 20:00:39] Subversion-branch: /trunk/polyorb Subversion-revision: 34654
44 lines
1.2 KiB
Ada
44 lines
1.2 KiB
Ada
with GNAT.OS_Lib;
|
|
|
|
with Types;
|
|
|
|
package Flags is
|
|
|
|
Main_Source : Types.Name_Id := Types.No_Name;
|
|
-- IDL source name
|
|
|
|
Gen_Impl_Tmpl : Boolean := False;
|
|
-- True when we generate implementation templates
|
|
|
|
Gen_Delegate : Boolean := False;
|
|
-- True when we generate delegates
|
|
|
|
Gen_Dyn_Inv : Boolean := True;
|
|
-- True when we generate dynamic invocation
|
|
|
|
Gen_Intf_Rep : Boolean := True;
|
|
-- True when we generate a registration to an interface repository
|
|
|
|
Print_Full_Tree : Boolean := False;
|
|
-- Output tree
|
|
|
|
Preprocess_Only : Boolean := False;
|
|
-- True when we only preprocess the IDL source file and output it
|
|
|
|
Compile_Only : Boolean := False;
|
|
-- True when we only compile the IDL source file and exit
|
|
|
|
D_Analyzer : Boolean := False;
|
|
D_Scopes : Boolean := False;
|
|
|
|
CPP_Arg_Values : GNAT.OS_Lib.Argument_List (1 .. 64);
|
|
CPP_Arg_Count : Natural := 0;
|
|
|
|
procedure Add_CPP_Flag (S : String);
|
|
-- Add argument S to the preprocessor flags
|
|
|
|
procedure Scan_Flags;
|
|
-- Scan arguments from command line and update flags above
|
|
|
|
end Flags;
|