|
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: 11264 (0x2c00)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, function Get_Operational_Info, seg_02b726, separate Mac_Os_Meridian
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
separate (Mac_Os_Meridian)
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 => "S",
Switch_Dependent => True,
Switch_Name => "Assemble",
Active_Phases => (Op.Promote => True, others => False),
Default_Value => "false",
Is_Pre_Option => True,
Option_Takes_Arg => False),
Op.Build (For_Target => T_Name,
Option_Name => "fD",
Switch_Dependent => True,
Switch_Name => "Debugging",
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 => "K",
Switch_Dependent => True,
Switch_Name => "Minor_Optimize",
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 => "K -g",
Switch_Dependent => True,
Switch_Name => "Major_Optimize",
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 => "g",
Switch_Dependent => True,
Switch_Name => "Minor_Optimize",
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 => "Major_Optimize",
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 => "lp",
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 => "fv",
Switch_Dependent => True,
Switch_Name => "Verbose",
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 => "v",
Switch_Dependent => True,
Switch_Name => "Verbose",
Active_Phases => (Op.Link => True, others => False),
Default_Value => "False",
Option_Takes_Arg => False,
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.Always,
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 => "ada.aux",
Remote_Filename_Extension => "a"));
--------------------------------------------------
Op_Characteristics : Op.Object :=
Op.Build (Properties => Compiler_Properties,
Max_Filename_Length => 27,
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 => False,
Command_Line_Case => Op.Lower,
Max_Command_Line_Length => 255,
Compiler_Command => "ada",
Compiler_Pre_Command => "",
Compiler_Post_Command => "",
Linker_Command => "bamp",
Linker_Pre_Command => "",
Linker_Post_Command => "",
Executable_Option => "o",
Executable_Option_Is_Pre_Option => False,
Context_Command => "directory",
Library_Command => "",
Default_Program_Library_Name => "ada.lib",
Parse_Standard_Output => True,
Parse_Standard_Error => False,
--Error_Pattern => ">>> S",
Error_Pattern => ".ada"", ",
Remote_Operating_System => Op.Unix, -- not used yet
The_Transfer_Type => Op.Ftp,
-- options
Option_Separator => " ",
Option_Header => "-",
Option_Argument_Separator => " ",
Options => Option_List,
Ada_Name_Subunit_Separator => ".",
Ada_Name_Spec_Suffix => "",
Ada_Name_Body_Suffix => "",
Ada_Name_Is_Lowercase => False,
Associated_Files => Associated_File_List,
The_Operation_Mode => The_Operation_Mode,
Generate_Batch_Compile_Commands => True,
Run_Script_Command => "execute",
Copy_Command => "duplicate",
Create_Dir_Command => "newfolder",
For_Target => T_Name);
begin
return Op_Characteristics;
end Get_Operational_Info;
nblk1=a
nid=3
hdr6=12
[0x00] rec0=1a rec1=00 rec2=01 rec3=056
[0x01] rec0=15 rec1=00 rec2=09 rec3=012
[0x02] rec0=15 rec1=00 rec2=04 rec3=038
[0x03] rec0=15 rec1=00 rec2=08 rec3=070
[0x04] rec0=16 rec1=00 rec2=02 rec3=028
[0x05] rec0=18 rec1=00 rec2=0a rec3=02c
[0x06] rec0=1f rec1=00 rec2=06 rec3=05e
[0x07] rec0=19 rec1=00 rec2=07 rec3=062
[0x08] rec0=09 rec1=00 rec2=05 rec3=000
[0x09] rec0=30 rec1=00 rec2=20 rec3=000
tail 0x21523c28e83ec800983dc 0x42a00088462060003
Free Block Chain:
0x3: 0000 00 00 03 fc 80 1c 46 69 6c 65 6e 61 6d 65 5f 45 ┆ Filename_E┆