|
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: 14336 (0x3800)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package Work_Order, pragma Module_Name 4 3781, pragma Subsystem Cmvc, seg_006390
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
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;
nblk1=d
nid=0
hdr6=1a
[0x00] rec0=1a rec1=00 rec2=01 rec3=036
[0x01] rec0=18 rec1=00 rec2=02 rec3=030
[0x02] rec0=14 rec1=00 rec2=03 rec3=058
[0x03] rec0=1a rec1=00 rec2=04 rec3=086
[0x04] rec0=18 rec1=00 rec2=05 rec3=098
[0x05] rec0=11 rec1=00 rec2=06 rec3=07e
[0x06] rec0=12 rec1=00 rec2=07 rec3=026
[0x07] rec0=16 rec1=00 rec2=08 rec3=070
[0x08] rec0=17 rec1=00 rec2=09 rec3=00c
[0x09] rec0=15 rec1=00 rec2=0a rec3=096
[0x0a] rec0=18 rec1=00 rec2=0b rec3=004
[0x0b] rec0=15 rec1=00 rec2=0c rec3=024
[0x0c] rec0=11 rec1=00 rec2=0d rec3=000
tail 0x2150140b881bf807c58bc 0x42a00088462060003