|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 12288 (0x3000)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, function Get_Operational_Info, seg_00aec0, seg_01199f, separate Rs6000_Aix_Ibm
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
separate (Rs6000_Aix_Ibm)
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);
Option_List : constant Op.Option_List :=
(Op.Build (For_Target => T_Name,
Option_Name => "a",
Switch_Dependent => True,
Switch_Name => "Assemble",
Active_Phases => (Op.Promote => True, others => False),
Default_Value => "false",
Is_Pre_Option => True,
Option_Takes_Arg => False,
Help => "RCF Assembley Help"),
Op.Build (For_Target => T_Name,
Option_Name => "d",
Switch_Dependent => True,
Switch_Name => "Debugging",
Active_Phases => (others => True),
Default_Value => "False",
Option_Takes_Arg => False,
Is_Pre_Option => True),
Op.Build (For_Target => T_Name,
Option_Name => "e",
Switch_Dependent => True,
Switch_Name => "Object_Only",
Active_Phases => (Op.Link => True, others => False),
Default_Value => "False",
Option_Takes_Arg => False,
Is_Pre_Option => True),
Op.Build
(For_Target => T_Name,
Option_Name => "G",
Switch_Dependent => True,
Switch_Name => "Minor_Optimize",
Active_Phases => (Op.Link | Op.Promote => True, others => False),
Default_Value => "False",
Option_Takes_Arg => False,
Is_Pre_Option => True),
Op.Build (For_Target => T_Name,
Option_Name => "i",
Switch_Dependent => True,
Switch_Name => "Include",
Active_Phases => (Op.Link => True, others => False),
Default_Value => "",
Option_Takes_Arg => True,
Is_Pre_Option => True,
Help => "RCF Include Help"),
Op.Build (For_Target => T_Name,
Option_Name => "I",
Switch_Dependent => True,
Switch_Name => "Input_Files",
Active_Phases => (others => False),
Default_Value => "False",
Option_Takes_Arg => False,
Is_Pre_Option => True),
Op.Build (For_Target => T_Name,
Option_Name => "l",
Switch_Dependent => True,
Switch_Name => "List",
Active_Phases => (Op.Promote => True, others => False),
Default_Value => "False",
Option_Takes_Arg => False,
Is_Pre_Option => True),
Op.Build
(For_Target => T_Name,
Option_Name => "L",
Switch_Dependent => True,
Switch_Name => "Library_List",
Active_Phases => (Op.Link | Op.Promote => True, others => False),
Default_Value => "",
Option_Takes_Arg => True,
Is_Pre_Option => True),
Op.Build
(For_Target => T_Name,
Option_Name => "O",
Switch_Dependent => True,
Switch_Name => "Major_Optimize",
Active_Phases => (Op.Link | Op.Promote => True, others => False),
Default_Value => "False",
Option_Takes_Arg => False,
Is_Pre_Option => True),
Op.Build
(For_Target => T_Name,
Option_Name => "p",
Switch_Dependent => True,
Switch_Name => "Profile",
Active_Phases => (Op.Link | Op.Promote => True, others => False),
Default_Value => "False",
Option_Takes_Arg => False,
Is_Pre_Option => True),
Op.Build
(For_Target => T_Name,
Option_Name => "Q",
Switch_Dependent => True,
Switch_Name => "Fp_Ovrflw_Detect",
Active_Phases => (Op.Link | Op.Promote => True, others => False),
Default_Value => "False",
Option_Takes_Arg => False,
Is_Pre_Option => True),
Op.Build
(For_Target => T_Name,
Option_Name => "S",
Switch_Dependent => True,
Switch_Name => "Suppress_All",
Active_Phases => (Op.Link | Op.Promote => True, others => False),
Default_Value => "False",
Option_Takes_Arg => False,
Is_Pre_Option => True),
Op.Build
(For_Target => T_Name,
Option_Name => "t",
Switch_Dependent => True,
Switch_Name => "Os_Task",
Active_Phases => (Op.Link | Op.Promote => True, others => False),
Default_Value => "False",
Option_Takes_Arg => False,
Is_Pre_Option => True),
Op.Build (For_Target => T_Name,
Option_Name => "u",
Switch_Dependent => True,
Switch_Name => "Unlock",
Active_Phases => (others => True),
Default_Value => "False",
Option_Takes_Arg => False,
Is_Pre_Option => True),
Op.Build
(For_Target => T_Name,
Option_Name => "v",
Switch_Dependent => True,
Switch_Name => "Verbose",
Active_Phases => (Op.Link | Op.Promote => True, others => False),
Default_Value => "False",
Option_Takes_Arg => False,
Is_Pre_Option => True),
Op.Build
(For_Target => T_Name,
Option_Name => "V",
Switch_Dependent => True,
Switch_Name => "Virtual_Pages",
Active_Phases => (Op.Link | Op.Promote => True, others => False),
Default_Value => "",
Option_Takes_Arg => True,
Is_Pre_Option => True));
Associated_File_List : constant Op.Associated_File_List :=
(Op.Build (For_Target => T_Name,
The_File_Type => Op.Binary,
The_Retrieve_Condition => Op.On_Normal,
Retrieve_Phase => Op.Link,
Option_Dependent => False,
Associated_Option_Switch => "",
Host_Filename_Extension => "exe",
Remote_Filename_Type => Op.Ada_Name,
Argument_Overrides_Fixed_Name => False,
Fixed_Remote_Filename => "",
Remote_Filename_Extension => ""),
Op.Build (For_Target => T_Name,
The_File_Type => Op.Text,
The_Retrieve_Condition => Op.Always,
Retrieve_Phase => Op.Promote,
Option_Dependent => True,
Associated_Option_Switch => "List",
Host_Filename_Extension => "list",
Remote_Filename_Type => Op.File_Name,
Argument_Overrides_Fixed_Name => False,
Fixed_Remote_Filename => "",
Remote_Filename_Extension => "lst"),
Op.Build (For_Target => T_Name,
The_File_Type => Op.Text,
The_Retrieve_Condition => Op.On_Normal,
Retrieve_Phase => Op.Promote,
Option_Dependent => True,
Associated_Option_Switch => "Assemble",
Host_Filename_Extension => "asm",
Remote_Filename_Type => Op.File_Name,
Argument_Overrides_Fixed_Name => False,
Fixed_Remote_Filename => "",
Remote_Filename_Extension => "s"));
--------------------------------------------------
Op_Characteristics : Op.Object :=
Op.Build (Properties => Compiler_Properties,
Max_Filename_Length => 31,
Full_Pathname_Length => 255,
Spec_Filename_Extension => "ada",
Body_Filename_Extension => "ada",
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 => "/usr/bin/ada/ada ",
Compiler_Pre_Command => "PATH=$PATH:/usr/bin/ada; export PATH",
Compiler_Post_Command => "",
Linker_Command => "/usr/bin/ada/ada -b",
Linker_Pre_Command => "PATH=$PATH:/usr/bin/ada; export PATH",
Linker_Post_Command => "",
Executable_Option => "o",
Executable_Option_Is_Pre_Option => True,
Context_Command => "cd",
Library_Command => "",
Default_Program_Library_Name => "",
Parse_Standard_Output => False,
Parse_Standard_Error => False,
--Error_Pattern => ">>> S",
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 => "",
Ada_Name_Body_Suffix => "",
Associated_Files => Associated_File_List,
For_Target => T_Name);
begin
return Op_Characteristics;
end Get_Operational_Info;
nblk1=b
nid=0
hdr6=16
[0x00] rec0=1a rec1=00 rec2=01 rec3=04a
[0x01] rec0=17 rec1=00 rec2=02 rec3=008
[0x02] rec0=16 rec1=00 rec2=03 rec3=01e
[0x03] rec0=18 rec1=00 rec2=04 rec3=02c
[0x04] rec0=18 rec1=00 rec2=05 rec3=018
[0x05] rec0=19 rec1=00 rec2=06 rec3=00c
[0x06] rec0=17 rec1=00 rec2=07 rec3=06e
[0x07] rec0=16 rec1=00 rec2=08 rec3=02a
[0x08] rec0=1d rec1=00 rec2=09 rec3=000
[0x09] rec0=1a rec1=00 rec2=0a rec3=030
[0x0a] rec0=0f rec1=00 rec2=0b rec3=000
tail 0x21707ffb481f94dc5b5bd 0x42a00088462060003