DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 Tapes

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 Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download
Index: ┃ T V

⟦7d4b8839e⟧ TextFile

    Length: 12097 (0x2f41)
    Types: TextFile
    Names: »V«

Derivation

└─⟦d10a02448⟧ Bits:30000409 8mm tape, Rational 1000, ENVIRONMENT, D_12_7_3
    └─ ⟦fc9b38f02⟧ »DATA« 
        └─⟦9b46a407a⟧ 
            └─⟦12c68c704⟧ 
                └─⟦this⟧ 
└─⟦5f3412b64⟧ Bits:30000745 8mm tape, Rational 1000, ENVIRONMENT 12_6_5 TOOLS 
    └─ ⟦91c658230⟧ »DATA« 
        └─⟦458657fb6⟧ 
            └─⟦220843204⟧ 
                └─⟦this⟧ 

TextFile

package Work_Order is


    procedure Set_Default_Venture (To_Venture : String := "<CURSOR>";
                                   For_User : String := "<CURRENT_USER>";
                                   Response : String := "<PROFILE>");

    function Default_Venture (For_User : String := "<CURRENT_USER>";
                              Ignore_Garbage : Boolean := True) return String;


    procedure Set_Notes_Venture (To_Value : String := ">>New Notes<<";
                                 Venture_Name : String := "<VENTURE>";
                                 Response : String := "<PROFILE>");
    --
    -- The "" Venture_Name is interpreted as "<CURSOR>".
    -- "<VENTURE>" are interpreted as the default venture.

    function Notes_Venture (Venture_Name : String := "<VENTURE>") return String;
    --
    -- The "" Venture_Name is interpreted as "<CURSOR>".


    procedure Display_Venture (Venture_Name : String := "<VENTURE>";
                               Options : String := "";
                               Response : String := "<PROFILE>");
    --
    -- Display the object by formatting and printing it.  The "" argument
    -- is interpreted as "<CURSOR>"
    -- Valid Options are all of the session switches, plus "<DEFAULT>"
    -- (which is the current session switch values), "<TERSE>" (the default),
    -- and "<VERBOSE>".

    procedure Edit_Venture (Venture_Name : String := "<VENTURE>");
    --
    -- Invoke the appropriate object_editor.  The "" Argument is
    -- interpreted as "<CURSOR>"


    procedure Create_Venture (Venture_Name : String := ">>OBJECT NAME<<";
                              Notes : String := "";
                              Make_Default_Venture : Boolean := True;
                              Response : String := "<PROFILE>");
    --
    -- Intended to be called from the command line


    type Venture_Policy_Switch is (Require_Current_Work_Order,  
                                   Require_Comment_At_Check_In,  
                                   Require_Comment_Lines,  
                                   Journal_Comment_Lines,  
                                   Allow_Edit_Of_Work_Orders);

    procedure Set_Venture_Policy (The_Switch : Venture_Policy_Switch;
                                  To_Value : Boolean;
                                  Venture_Name : String := "<VENTURE>";
                                  Effort_Only : Boolean := False;
                                  Response : String := "<PROFILE>");
    --
    -- Change a venture's policy switches.
    -- The "" Venture_Name argument is interpreted as "<CURSOR>".


    procedure Set_Default (To_Work_Order : String := "<CURSOR>";
                           For_Venture : String := "<VENTURE>";
                           For_User : String := "<CURRENT_USER>";
                           Response : String := "<PROFILE>");

    function Default (For_Venture : String := "<VENTURE>";
                      For_User : String := "<CURRENT_USER>";
                      Ignore_Garbage : Boolean := True) return String;


    procedure Set_Notes (To_Value : String := ">>New Notes<<";
                         Order_Name : String := "<ORDER>";
                         Response : String := "<PROFILE>");
    --
    -- The "" Order_Name argument is interpreted as "<CURSOR>".

    function Notes (Order_Name : String := "<ORDER>") return String;
    --
    -- The "" Order_Name argument is interpreted as "<CURSOR>".


    procedure Close (Order_Name : String := "<ORDER>";
                     Response : String := "<PROFILE>");
    --
    -- The "" Order_Name argument is interpreted as "<CURSOR>".


    procedure Display (Order_Name : String := "<ORDER>";
                       Options : String := "";
                       Response : String := "<PROFILE>");
    --
    -- Display the object by formatting and printing it.  The "" argument
    -- is interpreted as "<CURSOR>".
    -- Valid Options are all of the session switches, plus "<DEFAULT>"
    -- (which is the current session switch values), "<TERSE>" (the default),
    -- and "<VERBOSE>".

    procedure Edit (Order_Name : String := "<ORDER>");
    --
    -- Invoke the appropriate object_editor.  The "" Argument is
    -- interpreted as "<CURSOR>"


    procedure Create (Order_Name : String := ">>OBJECT NAME<<";
                      Notes : String := "";
                      On_List : String := "<WORK_LIST>";
                      On_Venture : String := "<VENTURE>";
                      Make_Default_Work_Order : Boolean := True;
                      Response : String := "<PROFILE>");
    --
    -- Command line interface
    -- "" for list is interpreted as Nil (Added to no list)


    procedure Create_Field (Field_Name : String := ">>FIELD NAME<<";
                            Field_Type : String := ">>BOOLEAN|STRING|INTEGER<<";
                            Is_Vector : Boolean := False;
                            Is_Controlled : Boolean := False;
                            Default : String := "";
                            Display_Position : Natural := Natural'Last;
                            On_Venture : String := "<VENTURE>";
                            Propagate : Boolean := True;
                            Renumber_Fields : Boolean := True;
                            Response : String := "<PROFILE>");
    --
    -- Create a new user-defined field in a Venture.
    -- Field_Name is the name given to the field.
    -- Field_Type can be "Boolean", "String", or "Integer".
    -- If Is_Vector is true, the field is declared equivalent to
    -- Field_Name : array (Positive) of Field_Type.
    -- If Is_Controlled is true, whether or not the field is modifiable
    -- using the object editor is controlled by a policy switch.
    -- Display_Position specifies the relative position of this field
    -- in the object editor display as compared to all of the other
    -- user defined fields.  0 means don't display.
    -- If Renumber_Fields is True, the display position is treated as
    -- an ordinal number, i.e. a value of N will cause fields to be
    -- renumbered so that the new one is the Nth in the sort order.
    -- Default is the image of the default value (all elements of
    -- a vector have the same default).  If no default is supplied,
    -- False, "", or 0 will be assumed.
    -- If Propagate is True, all existing work orders will be updated.

    procedure Delete_Field (Field_Name : String := ">>FIELD NAME<<";
                            Venture_Name : String := "<VENTURE>";
                            Even_If_Data_Present : Boolean := False;
                            Response : String := "<PROFILE>");
    --
    -- Delete the named field from the venture.
    -- If work orders exist that have data in the field, the
    -- operation fails unless Even_If_Data_Present is true.


    procedure Add_To_List (Order_Names : String := "<IMAGE>";
                           List_Name : String := "<WORK_LIST>";
                           Response : String := "<PROFILE>");

    procedure Remove_From_List (Order_Names : String := "<IMAGE>";
                                List_Name : String := "<WORK_LIST>";
                                Response : String := "<PROFILE>");


    procedure Set_Default_List (To_List : String := "<CURSOR>";
                                For_Venture : String := "<VENTURE>";
                                For_User : String := "<CURRENT_USER>";
                                Response : String := "<PROFILE>");

    function Default_List (For_Venture : String := "<VENTURE>";
                           For_User : String := "<CURRENT_USER>";
                           Ignore_Garbage : Boolean := True) return String;


    procedure Set_Notes_List (To_Value : String := ">>New Notes<<";
                              List_Name : String := "<WORK_LIST>";
                              Response : String := "<PROFILE>");
    --
    -- The "" List_Name argument is interpreted as "<CURSOR>".

    function Notes_List (List_Name : String := "<WORK_LIST>") return String;
    --
    -- The "" List_Name argument is interpreted as "<CURSOR>".


    procedure Display_List (List_Name : String := "<WORK_LIST>";
                            Options : String := "";
                            Response : String := "<PROFILE>");
    --
    -- Display the object by formatting and printing it.  The "" argument
    -- is interpreted as "<CURSOR>".
    -- "<WORK_LIST>" is the default list for the current user.
    -- Valid Options are all of the session switches, plus "<DEFAULT>"
    -- (which is the current session switch values), "<TERSE>" (the default),
    -- and "<VERBOSE>".

    procedure Edit_List (List_Name : String := "<WORK_LIST>");
    --
    -- Invoke the appropriate object_editor.  The "" Argument is interpreted
    -- as "<CURSOR>"


    procedure Create_List (List_Name : String := ">>OBJECT NAME<<";
                           Notes : String := "";
                           On_Venture : String := "<VENTURE>";
                           Make_Default_List : Boolean := True;
                           Response : String := "<PROFILE>");


    package Venture_Editor is

        procedure Set_Notes (Notes : String := ">>New Notes<<");
        procedure Set_Policy (To_Value : Boolean := False;
                              The_Switch : Venture_Policy_Switch);
        procedure Spread_Fields (Interval : Natural := 10);
        procedure Set_Field_Info (Is_Controlled : Boolean := False;
                                  Display_Position : Natural := 1;
                                  The_Field : String := ">>Field Name<<");
        procedure Set_Default_Order (New_Default : String := "<SELECTION>";
                                     For_User : String := "<CURRENT_USER>");
        procedure Set_Default_List (New_Default : String := "<SELECTION>";
                                    For_User : String := "<CURRENT_USER>");
        --
        -- Command line procedures for modifying a Venture.

    end Venture_Editor;


    package Editor is

        procedure Set_Notes (Notes : String := ">>New Notes<<");
        --
        -- A command line procedure to change the Notes.

        procedure Set_Field (To_Value : String := ">>Field Value<<";
                             The_Index : Natural := 0;
                             The_Field : String := ">>Field Name<<");
        procedure Set_Field (To_Value : Integer := 0;
                             The_Index : Natural := 0;
                             The_Field : String := ">>Field Name<<");
        procedure Set_Field (To_Value : Boolean := False;
                             The_Index : Natural := 0;
                             The_Field : String := ">>Field Name<<");
        --
        -- A command line procedure for changing a field in a Work_Order.
        -- The_Index is ignored for scalar fields.

        procedure Add_User (The_User : String := "<CURRENT_USER>");
        procedure Add_Version (The_Configuration : String :=
                                  ">>Configuration Name<<";
                               The_Element : String := ">>Element Name<<";
                               The_Generation : Natural := 0);
        procedure Add_Configuration
                     (The_Configuration : String := ">>Configuration Name<<");
        procedure Add_Comment (The_Comment : String := ">>Comment<<";
                               The_Element : String := ">>Element Name<<";
                               The_User : String := "<CURRENT_USER>");
        --
        -- Command line procedures for augmenting a Work_Order.

    end Editor;


    package List_Editor is

        procedure Set_Notes (Notes : String := ">>New Notes<<");
        --
        -- A command line procedure to change the Notes.

        procedure Add (Work_Orders : String := ">>Work Order Names<<");
        --
        -- A command line procedure for adding to a Work_Order_List.

    end List_Editor;

    pragma Subsystem (Cmvc);
    pragma Module_Name (4, 3781);
    pragma Bias_Key (9);

end Work_Order;