|
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 - download
Length: 13312 (0x3400)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, function Get_Operational_Info, seg_01c39c, 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⟧
with Help_Text;
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 => Help_Text.Rs6000_Aix_Ibm_Assemble_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 => False,
Help => Help_Text.Rs6000_Aix_Ibm_Debugging_Help),
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 => False,
Help => Help_Text.Rs6000_Aix_Ibm_Object_Only_Help),
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 => False,
Help => Help_Text.Rs6000_Aix_Ibm_Minor_Optimize_Help),
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 => False,
Help => Help_Text.Rs6000_Aix_Ibm_Include_Help),
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,
Help => Help_Text.Rs6000_Aix_Ibm_List_Help),
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 => False,
Help => Help_Text.Rs6000_Aix_Ibm_Library_List_Help),
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 => False,
Help => Help_Text.Rs6000_Aix_Ibm_Major_Optimize_Help),
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 => False,
Help => Help_Text.Rs6000_Aix_Ibm_Profile_Help),
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 => False,
Help => Help_Text.Rs6000_Aix_Ibm_Fp_Ovrflw_Detect_Help),
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 => False,
Help => Help_Text.Rs6000_Aix_Ibm_Suppress_All_Help),
Op.Build (For_Target => T_Name,
Option_Name => "t",
Switch_Dependent => True,
Switch_Name => "Os_Task",
Active_Phases => (Op.Link => True, others => False),
Default_Value => "False",
Option_Takes_Arg => False,
Is_Pre_Option => False,
Help => Help_Text.Rs6000_Aix_Ibm_Os_Task_Help),
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 => False,
Help => Help_Text.Rs6000_Aix_Ibm_Unlock_Help),
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 => False,
Help => Help_Text.Rs6000_Aix_Ibm_Verbose_Help),
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 => False,
Help => Help_Text.Rs6000_Aix_Ibm_Virtual_Pages_Help));
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 => 255,
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 => False,
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,
The_Operation_Mode => The_Operation_Mode,
Generate_Batch_Compile_Commands => False,
Run_Script_Command => "sh -ex ",
Copy_Command => "copy_command",
Create_Dir_Command => "mkdir",
For_Target => T_Name);
begin
return Op_Characteristics;
end Get_Operational_Info;
nblk1=c
nid=0
hdr6=18
[0x00] rec0=1b rec1=00 rec2=01 rec3=04e
[0x01] rec0=16 rec1=00 rec2=02 rec3=03c
[0x02] rec0=14 rec1=00 rec2=03 rec3=04e
[0x03] rec0=17 rec1=00 rec2=04 rec3=05c
[0x04] rec0=18 rec1=00 rec2=05 rec3=032
[0x05] rec0=16 rec1=00 rec2=06 rec3=010
[0x06] rec0=17 rec1=00 rec2=07 rec3=02a
[0x07] rec0=16 rec1=00 rec2=08 rec3=038
[0x08] rec0=18 rec1=00 rec2=09 rec3=01e
[0x09] rec0=1b rec1=00 rec2=0a rec3=00c
[0x0a] rec0=1b rec1=00 rec2=0b rec3=040
[0x0b] rec0=09 rec1=00 rec2=0c rec3=000
tail 0x21518adea8365732a5576 0x42a00088462060003