DataMuseum.dk

top - download

    Length: 4913 (0x1331)
    Types: TextFile
    Names: »B«

└─⟦5829e5ed5⟧ Bits:30000534 8mm tape, Rational 1000, RCI 2_0_5
    └─ ⟦c9a165082⟧ »DATA« 
        └─⟦c3895f76e⟧ 
            └─⟦this⟧ 

TextFile

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;