|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: B T
Length: 23381 (0x5b55)
Types: TextFile
Names: »B«
└─⟦407de186f⟧ Bits:30000749 8mm tape, Rational 1000, RCFSUN
└─⟦e5cd75ab4⟧ »DATA«
└─⟦this⟧
separate (Sparc_Unix_Alsys)
function Get_Operational_Info return Op.Object is
Compiler_Properties : constant Op.Compiler_Property_List :=
(Op.Generics_Share_Code => False,
Op.Require_Body_And_Generic_In_Same_Compilation => False,
Op.Requires_Subunits_And_Generic_In_Same_Compilation => False,
Op.Implements_Pragma_Inline => True,
Op.Separate_Subunits_Are_Inefficient => False);
Assembly_Help : constant String := Help_Text.Assembly;
Calls_Inlined_Help : constant String := Help_Text.Calls_Inlined;
Checks_Help : constant String := Help_Text.Checks;
Reduction_Help : constant String := Help_Text.Reduction;
Expressions_Help : constant String := Help_Text.Expressions;
Debug_Help : constant String := Help_Text.Debug;
History_Help : constant String := Help_Text.History;
Main_Help : constant String := Help_Text.Main;
Memory_Help : constant String := Help_Text.Memory;
Stack_Help : constant String := Help_Text.Stack;
Size_Help : constant String := Help_Text.Size;
Increment_Help : constant String := Help_Text.Increment;
Data_Help : constant String := Help_Text.Data;
Other_Compiler_Help : constant String := Help_Text.Other_Compile_Options;
Other_Binder_Help : constant String := Help_Text.Other_Bind_Options;
Retrieve_Compiler_Listing_Help : constant String :=
Help_Text.Retrieve_Comp_Listing;
Retrieve_Binder_Listing_Help : constant String :=
Help_Text.Retrieve_Binder_Listing;
Retrieve_Cui_File_Help : constant String := Help_Text.Retrieve_Cui_File;
Retrieve_Lnk_File_Help : constant String := Help_Text.Retrieve_Lnk_File;
Retrieve_Executable_Help : constant String := Help_Text.Retrieve_Executable;
Task_Help : constant String := Help_Text.Taskk;
-- Install_Directory : constant String :=
-- "/home/gumdrop/alsys/alsyCOMP_047/v5.5";
--
Option_List : constant Op.Option_List :=
(
--
-- This is NOT a user configurable option, but rather a required
-- Alsys construct that is put at the end of the compile command string
-- preceeding the filename.
--
Op.Build (For_Target => Target_Name,
Option_Name => "SOURCE=",
Switch_Dependent => False,
Switch_Name => "",
Active_Phases => (Op.Promote => True, others => False),
Default_Value => "",
Option_Takes_Arg => False,
Is_Pre_Option => True),
Op.Build (For_Target => Target_Name,
Option_Name => "LIBRARY=adalib",
Switch_Dependent => False,
Switch_Name => "Target_Ada_Library",
Active_Phases =>
(Op.Promote => True, Op.Link => True, others => False),
Default_Value => "",
Is_Pre_Option => False,
Option_Takes_Arg => False),
Op.Build (For_Target => Target_Name,
Option_Name => "LEVEL=UPDATE",
Switch_Dependent => False,
Switch_Name => "",
Active_Phases => (Op.Promote => True, others => False),
Default_Value => "",
Option_Takes_Arg => False,
Is_Pre_Option => False),
Op.Build (For_Target => Target_Name,
Option_Name => "ANNOTATE=\""Compiled by RCI\""",
Switch_Dependent => False,
Switch_Name => "",
Active_Phases => (Op.Promote => True, others => False),
Default_Value => "",
Option_Takes_Arg => False,
Is_Pre_Option => False),
--
-- Compiler Options
--
Op.Build (For_Target => Target_Name,
Option_Name => "ASSEMBLY=ALL",
Switch_Dependent => True,
Switch_Name => "ASSEMBLY_LISTING",
Active_Phases => (Op.Promote => True, others => False),
Default_Value => "false",
Option_Takes_Arg => False,
Is_Pre_Option => False,
Help => Assembly_Help),
Op.Build (For_Target => Target_Name,
Option_Name => "CHECKS",
Switch_Dependent => True,
Switch_Name => "RUNTIME_CHECKS",
Active_Phases => (Op.Promote => True, others => False),
Default_Value => "ALL",
Option_Takes_Arg => True,
Is_Pre_Option => False,
Help => Checks_Help),
--
-- There is no difference between EXTENSIVE and PARTIAL. A
-- boolean switch is sufficient.
--
Op.Build (For_Target => Target_Name,
Option_Name => "REDUCTION=EXTENSIVE",
Switch_Dependent => True,
Switch_Name => "OPTIMIZE_CHECKS",
Active_Phases => (Op.Promote => True, others => False),
Default_Value => "False",
Option_Takes_Arg => False,
Is_Pre_Option => False,
Help => Reduction_Help),
Op.Build (For_Target => Target_Name,
Option_Name => "EXPRESSIONS",
Switch_Dependent => True,
Switch_Name => "EXPRESSIONS_OPTIMIZATION",
Active_Phases => (Op.Promote => True, others => False),
Default_Value => "NONE",
Option_Takes_Arg => True,
Is_Pre_Option => False,
Help => Expressions_Help),
Op.Build (For_Target => Target_Name,
Option_Name => "DEBUG=YES",
Switch_Dependent => True,
Switch_Name => "DEBUG",
Active_Phases =>
(Op.Promote => True, Op.Link => True, others => False),
Default_Value => "False",
Option_Takes_Arg => False,
Is_Pre_Option => False,
Help => Debug_Help),
Op.Build (For_Target => Target_Name,
Option_Name => "MEMORY",
Switch_Dependent => True,
Switch_Name => "COMPILER_MEMORY_SIZE",
Active_Phases => (Op.Promote => True, others => False),
Default_Value => "500",
Option_Takes_Arg => True,
Is_Pre_Option => False,
Help => Memory_Help),
Op.Build (For_Target => Target_Name,
Option_Name => "INLINE",
Switch_Dependent => True,
Switch_Name => "INLINE_SUBPROGRAMS",
Active_Phases => (Op.Promote => True, others => False),
Default_Value => "PRAGMA",
Option_Takes_Arg => True,
Is_Pre_Option => False,
Help => Calls_Inlined_Help),
Op.Build (Option_Name => "GENERICS=STUBS",
Active_Phases => (Op.Promote => True, others => False),
Switch_Dependent => True,
Switch_Name => "SEPARATE_GENERICS",
Default_Value => "False",
Option_Takes_Arg => False,
Is_Pre_Option => False,
Help => "",
For_Target => Target_Name),
Op.Build
(Option_Name => "CONSTANT",
Active_Phases => (Op.Promote => True, others => False), --[?]
Switch_Dependent => True,
Switch_Name => "CONSTANT_ALLOCATION_THRESHOLD",
Default_Value => "0",
Option_Takes_Arg => True,
Is_Pre_Option => False,
Help => "", --[TO BE IMPROVED]
For_Target => Target_Name),
Op.Build
(Option_Name => "GLOBAL",
Active_Phases => (Op.Promote => True, others => False), --[?]
Switch_Dependent => True,
Switch_Name => "GLOBAL_ALLOCATION_THRESHOLD",
Default_Value => "0",
Option_Takes_Arg => True,
Is_Pre_Option => False,
Help => "", --[TO BE IMPROVED]
For_Target => Target_Name),
Op.Build (Option_Name => "COPY=YES",
Active_Phases => (Op.Promote => True, others => False),
Switch_Dependent => True,
Switch_Name => "KEEP_SOURCE",
Default_Value => "FALSE",
Option_Takes_Arg => False,
Is_Pre_Option => False,
Help => "",
For_Target => Target_Name),
Op.Build (Option_Name => "TREE=YES",
Active_Phases => (Op.Promote => True, others => False),
Switch_Dependent => True,
Switch_Name => "KEEP_TREE",
Default_Value => "FALSE",
Option_Takes_Arg => False,
Is_Pre_Option => False,
Help => "",
For_Target => Target_Name),
--
-- Binder Options
--
Op.Build (For_Target => Target_Name,
Option_Name => "PROGRAM=",
Switch_Dependent => False,
Switch_Name => "",
Active_Phases => (Op.Link => True, others => False),
Default_Value => "",
Option_Takes_Arg => False,
Is_Pre_Option => True,
Help => ""),
Op.Build (For_Target => Target_Name,
Option_Name => "DATA",
Switch_Dependent => True,
Switch_Name => "DISPLAY_DATA_MAP",
Active_Phases => (Op.Link => True, others => False),
Default_Value => "NONE",
Option_Takes_Arg => True,
Is_Pre_Option => False,
Help => Data_Help),
Op.Build (For_Target => Target_Name,
Option_Name => "MAIN",
Switch_Dependent => True,
Switch_Name => "MAIN_STACK_SIZE",
Active_Phases => (Op.Link => True, others => False),
Default_Value => "10",
Option_Takes_Arg => True,
Is_Pre_Option => False,
Help => Main_Help),
Op.Build (For_Target => Target_Name,
Option_Name => "TASK",
Switch_Dependent => True,
Switch_Name => "TASK_STACK_SIZE",
Active_Phases => (Op.Link => True, others => False),
Default_Value => "12",
Option_Takes_Arg => True,
Is_Pre_Option => False,
Help => Task_Help),
Op.Build (For_Target => Target_Name,
Option_Name => "HISTORY",
Switch_Dependent => True,
Switch_Name => "DYNAMIC_CALLING_TRACE",
Active_Phases => (Op.Link => True, others => False),
Default_Value => "MAIN",
Option_Takes_Arg => True,
Is_Pre_Option => False,
Help => History_Help),
Op.Build (For_Target => Target_Name,
Option_Name => "SLICE",
Switch_Dependent => True,
Switch_Name => "TIME_SLICING",
Active_Phases => (Op.Link => True, others => False),
Default_Value => "NO",
Option_Takes_Arg => True,
Is_Pre_Option => False,
Help => ""),
Op.Build (For_Target => Target_Name,
Option_Name => "BLOCKING",
Switch_Dependent => True,
Switch_Name => "BLOCKING_IO",
Active_Phases => (Op.Link => True, others => False),
Default_Value => "NO",
Option_Takes_Arg => True,
Is_Pre_Option => False,
Help => ""),
Op.Build (Option_Name => "UNCALLED=KEEP",
Active_Phases => (Op.Link => True, others => False),
Switch_Dependent => True,
Switch_Name => "KEEP_UNCALLED",
Default_Value => "FALSE",
Option_Takes_Arg => False,
Is_Pre_Option => False,
Help => "",
For_Target => Target_Name),
Op.Build (Option_Name => "DIRECTIVES",
Active_Phases => (Op.Link => True, others => False),
Switch_Dependent => True,
Switch_Name => "LINKER_DIRECTIVES",
Default_Value => "",
Option_Takes_Arg => True,
Is_Pre_Option => False,
Help => "",
For_Target => Target_Name),
Op.Build (Option_Name => "MODULES",
Active_Phases => (Op.Link => True, others => False),
Switch_Dependent => True,
Switch_Name => "LINKED_MODULES",
Default_Value => "",
Option_Takes_Arg => True,
Is_Pre_Option => False,
Help => "",
For_Target => Target_Name),
Op.Build (Option_Name => "SEARCH",
Active_Phases => (Op.Link => True, others => False),
Switch_Dependent => True,
Switch_Name => "EXTERNAL_LIBRARY",
Default_Value => "",
Option_Takes_Arg => True,
Is_Pre_Option => False,
Help => "",
For_Target => Target_Name),
Op.Build (Option_Name => "TUNE=YES",
Active_Phases => (Op.Link => True, others => False),
Switch_Dependent => True,
Switch_Name => "KEEP_ADATUNE_INFO",
Default_Value => "FALSE",
Option_Takes_Arg => False,
Is_Pre_Option => False,
Help => "",
For_Target => Target_Name),
Op.Build (Option_Name => "CLOSURE",
Active_Phases => (Op.Link => True, others => False),
Switch_Dependent => True,
Switch_Name => "UNITS_CLOSURE",
Default_Value => "BRIEF",
Option_Takes_Arg => True,
Is_Pre_Option => False,
Help => "",
For_Target => Target_Name),
Op.Build (Option_Name => "ELABORATION=YES",
Active_Phases => (Op.Link => True, others => False),
Switch_Dependent => True,
Switch_Name => "PROVIDE_ELABORATION_ORDER",
Default_Value => "TRUE",
Option_Takes_Arg => False,
Is_Pre_Option => False,
Help => "",
For_Target => Target_Name),
Op.Build (Option_Name => "LINK=YES",
Active_Phases => (Op.Link => True, others => False),
Switch_Dependent => True,
Switch_Name => "LINK_INFO",
Default_Value => "TRUE",
Option_Takes_Arg => False,
Is_Pre_Option => False,
Help => "",
For_Target => Target_Name),
Op.Build (Option_Name => "NAMES=YES",
Active_Phases => (Op.Link => True, others => False),
Switch_Dependent => True,
Switch_Name => "NAME_MAP",
Default_Value => "TRUE",
Option_Takes_Arg => False,
Is_Pre_Option => False,
Help => "",
For_Target => Target_Name),
Op.Build (Option_Name => "SUBPROGRAMS",
Active_Phases => (Op.Link => True, others => False),
Switch_Dependent => True,
Switch_Name => "SUBPROGRAMS_RETAINED_AFTER_OPTIMIZATION",
Default_Value => "BRIEF",
Option_Takes_Arg => True,
Is_Pre_Option => False,
Help => "",
For_Target => Target_Name),
Op.Build (Option_Name => "MAP",
Active_Phases => (Op.Link => True, others => False),
Switch_Dependent => True,
Switch_Name => "OBJECT_MAP",
Default_Value => "BRIEF",
Option_Takes_Arg => True,
Is_Pre_Option => False,
Help => "",
For_Target => Target_Name),
Op.Build (For_Target => Target_Name,
Option_Name => "TEXT=YES WARNING=YES",
Switch_Dependent => True,
Switch_Name => "COMPILER_LISTING",
Active_Phases => (Op.Promote => True, others => False),
Default_Value => "False",
Option_Takes_Arg => False,
Is_Pre_Option => False,
Help => Retrieve_Compiler_Listing_Help),
Op.Build (For_Target => Target_Name,
Option_Name => "WARNING=YES",
Switch_Dependent => True,
Switch_Name => "BINDER_LISTING",
Active_Phases => (Op.Link => True, others => False),
Default_Value => "False",
Option_Takes_Arg => False,
Is_Pre_Option => False,
Help => Retrieve_Binder_Listing_Help),
Op.Build (For_Target => Target_Name,
Option_Name => "",
Switch_Dependent => True,
Switch_Name => "CUI_FILE",
Active_Phases => (others => False),
Default_Value => "False",
Option_Takes_Arg => False,
Is_Pre_Option => False,
Help => Retrieve_Cui_File_Help),
Op.Build (For_Target => Target_Name,
Option_Name => "",
Switch_Dependent => True,
Switch_Name => "Retrieve_Executable",
Active_Phases => (others => False),
Default_Value => "False",
Option_Takes_Arg => False,
Is_Pre_Option => False,
Help => Retrieve_Executable_Help));
Associated_File_List : constant Op.Associated_File_List :=
---------------------------------------------------------------------------------
(1 => Op.Build (For_Target => Target_Name,
The_File_Type => Op.Text,
The_Retrieve_Condition => Op.Always,
Retrieve_Phase => Op.Promote,
Option_Dependent => True,
Associated_Option_Switch => "COMPILER_LISTING",
Host_Filename_Extension => "lis",
Remote_Filename_Type => Op.File_Name,
Argument_Overrides_Fixed_Name => False,
Fixed_Remote_Filename => "",
Remote_Filename_Extension => "lis"),
2 => Op.Build (For_Target => Target_Name,
The_File_Type => Op.Text,
The_Retrieve_Condition => Op.Always,
Retrieve_Phase => Op.Link,
Option_Dependent => True,
Associated_Option_Switch => "BINDER_LISTING",
Host_Filename_Extension => "bnd",
Remote_Filename_Type => Op.File_Name,
Argument_Overrides_Fixed_Name => False,
Fixed_Remote_Filename => "",
Remote_Filename_Extension => "bnd"),
3 => Op.Build (For_Target => Target_Name,
The_File_Type => Op.Text,
The_Retrieve_Condition => Op.Always,
Retrieve_Phase => Op.Link,
Option_Dependent => True,
Associated_Option_Switch => "CUI_FILE",
Host_Filename_Extension => "cui",
Remote_Filename_Type => Op.File_Name,
Argument_Overrides_Fixed_Name => False,
Fixed_Remote_Filename => "",
Remote_Filename_Extension => "cui"));
--
-- RCI 1_0_2 cannot retrieve executables. This is commented out until
-- the fix is made in a future maintenance release. Retrieval of
-- executables is supported by Link_Postprocess for the RCI 1_0_2
-- SDP customization.
--
-- Op.Build (For_Target => Target_Name,
-- The_File_Type => Op.Binary,
-- The_Retrieve_Condition => Op.On_Normal,
-- Retrieve_Phase => Op.Link,
-- Option_Dependent => True,
-- Associated_Option_Switch => "Retrieve_Executable",
-- Host_Filename_Extension => "exe",
-- Remote_Filename_Type => Op.Fixed_Name,
-- Argument_Overrides_Fixed_Name => False,
-- Fixed_Remote_Filename => "executable",
-- Remote_Filename_Extension => ""));
--
Op_Characteristics : Op.Object :=
Op.Build (Properties => Compiler_Properties,
Max_Filename_Length => 60, -- Can possibly be extended > 60
Full_Pathname_Length => 1024,
Spec_Filename_Extension => "ads",
Body_Filename_Extension => "adb",
Extension_Separator => ".",
Directory_Separator => "/",
Directory_Prefix => "",
Directory_Suffix => "",
Directory_Unit_Separator => "/",
Case_Sensitive => True,
Command_Line_Case => Op.Lower,
Max_Command_Line_Length => 255,
Compiler_Command => "ada compile OUTPUT=AUTOMATIC",
Compiler_Pre_Command => "",
Compiler_Post_Command => "",
Linker_Command => "ada bind OUTPUT=AUTOMATIC LEVEL=LINK",
Linker_Pre_Command => "",
Linker_Post_Command => "",
Executable_Option => "OBJECT=AUTOMATIC",
Executable_Option_Is_Pre_Option => False,
Context_Command => "cd",
Library_Command => "",
Default_Program_Library_Name => "adalib",
Parse_Standard_Output => False,
Parse_Standard_Error => False,
Error_Pattern => "",
Remote_Operating_System => Op.Unix, -- not used yet
The_Transfer_Type => Get_Transfer_Type,
-- options
Option_Separator => " ",
Option_Header => "",
Option_Argument_Separator => "=",
Options => Option_List,
Ada_Name_Subunit_Separator => ".",
Ada_Name_Spec_Suffix => "spec",
Ada_Name_Body_Suffix => "body",
Associated_Files => Associated_File_List,
For_Target => Target_Name);
begin
return Op_Characteristics;
end Get_Operational_Info;