DataMuseum.dk Presents historical artifacts from the history of: Rational R1000/400

This is an automatic "excavation" of a thematic subset of artifacts from Datamuseum.dk's BitArchive. See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software.

top - metrics - download

⟦5d6241b07⟧ Ada Source

    Length: 7168 (0x1c00)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, function Get_Operational_Info, seg_01b2bf, separate Template

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─⟦5a81ac88f⟧ »Space Info Vol 1« 
        └─⟦this⟧ 

separate (Template)
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 => False,
        Op.Separate_Subunits_Are_Inefficient => False);




    Option_List : constant Op.Option_List :=
       (Op.Build (For_Target => T_Name,
                  Option_Name => "op1",
                  Switch_Dependent => True,
                  Switch_Name => "option_1",
                  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 => "op2",
                  Switch_Dependent => True,
                  Switch_Name => "option_2",
                  Active_Phases => (Op.Link => True, others => False),
                  Default_Value => "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_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 => "",
                 Compiler_Post_Command => "",

                 Linker_Command => "/usr/bin/ada/ada -b",
                 Linker_Pre_Command => "",
                 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 => 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 => "sh ",
                 Copy_Command => "copy_command",
                 Batch_Move_Script_File_Name => "MOVE_SCRIPT_FILE",
                 Create_Dir_Command => "mkdir",  
                 Date_Command => "",
                 Date_File_Suffix => "",
                 For_Target => T_Name);
begin
    return Op_Characteristics;
end Get_Operational_Info;

    nblk1=6
    nid=0
    hdr6=c
        [0x00] rec0=1b rec1=00 rec2=01 rec3=004
        [0x01] rec0=16 rec1=00 rec2=02 rec3=03c
        [0x02] rec0=1b rec1=00 rec2=03 rec3=050
        [0x03] rec0=1c rec1=00 rec2=04 rec3=048
        [0x04] rec0=19 rec1=00 rec2=05 rec3=024
        [0x05] rec0=04 rec1=00 rec2=06 rec3=000
    tail 0x21517da4483637e615522 0x42a00088462060003