|
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: 30720 (0x7800)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package Menu_Operations, pragma Module_Name 4 2229, seg_0127d8
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
package Menu_Operations is
-----------------------------------------------------------------------
-- This package is not yet fully implemented. Most routines will --
-- cause the exception Nonexistent_Page_Error to be raised. It is --
-- included as part of the environment in anticipation of the --
-- requirements of future Rational products. --
-----------------------------------------------------------------------
subtype Menu_Item is Integer;
procedure Dispatch (Item : Menu_Item; Parameter : String := "");
procedure Fastpatch (Item : Menu_Item; Parameter : String := "");
-- Dialog box completion operations. Do not call directly!
subtype Box_Id is Natural;
procedure Click_Ok (Id : Box_Id := 0; Parms : String := "");
--
-- unless id /= 0 and parms non null, read the input from the
-- keyboard in raw mode.
type Subsystem_Kind is (Spec_Load, Combined);
type View_Kind is (Spec_Load, Combined);
type Switch_Kind is (Library_Switches, Session_Switches);
type Activity_Copy_Kind is (Exact_Copy, Value_Copy, Differential);
type Goal_State is (Archived, Source, Installed, Coded);
type Compilation_Limit is (This_View_Or_World, All_Views_Or_Worlds);
type Backup_Kind is (Full, Incremental);
---------------
-- File Menu --
---------------
package File is
procedure New_File; -- Create a new file
procedure New_File (Name : String);
procedure New_Ada;
procedure New_World;
procedure New_World (Name : String;
Acl : String;
Default_Acl : String;
Retention_Count : Natural;
Model : String);
procedure New_Directory;
procedure New_Directory (Name : String);
procedure New_Subsystem;
procedure New_Subsystem (Name : String;
Kind : Subsystem_Kind;
Initial_View_Kind : View_Kind;
Initial_View_Name : String;
Model : String;
Comments_For_History : String);
procedure New_Working_View;
procedure New_Working_View (Name : String;
Copy_Of_View : String;
Kind : View_Kind;
Join : Boolean;
Imports : String;
Model : String;
Comments_For_History : String);
procedure New_Spec_View;
procedure New_Spec_View (Name : String;
Copy_Of_View : String;
Join : Boolean;
Imports : String;
Model : String;
Comments_For_History : String);
procedure New_Release_View;
procedure New_Release_View (Name : String;
Copy_Of_View : String;
Join : Boolean;
Imports : String;
Kind_Of_View : View_Kind;
Model : String;
Comments_For_History : String;
Configuration_Only : Boolean);
procedure New_Code_View;
procedure New_Code_View (Name : String;
Copy_Of_View : String;
Comments_For_History : String);
procedure New_Switch_File;
procedure New_Switch_File (Name : String; Kind : Switch_Kind);
procedure New_Activity;
procedure New_Activity (Name : String;
Copy_Of : String;
Copy_Mode : Activity_Copy_Kind);
procedure New_Mailbox;
procedure New_Mailbox (Name : String);
procedure New_Venture;
procedure New_Venture
(Name : String; Notes : String; Make_Default : Boolean);
procedure New_Work_Order;
procedure New_Work_Order (Name : String;
Notes : String;
Venture : String;
Work_Order_List : String);
procedure New_Work_Order_List;
procedure New_Work_Order_List
(Name : String; Venture : String; Make_Default : Boolean);
procedure New_System;
procedure New_System (Name : String; Initial_View_Name : String);
procedure New_Gateway;
procedure New_Gateway (Name : String; Gateway_Class : String);
procedure Open; -- Open a window on an object
procedure Open (Name : String; For_Edit : Boolean);
procedure Open_With_Demote (Name : String);
procedure Open_With_Check_Out (Name : String;
Comments_For_History : String);
-- should include comment about implicit accept changes
procedure Close; -- Close a window.
procedure Close_Commit (Do_Commit : Boolean);
procedure Save; -- Commit changes
procedure Revert; -- Revert to previous value. Ask about
-- losing changes if necessary.
procedure Revert_Lose_Changes;
procedure Print; -- Print an object or set of objects
procedure Print (Object_Or_Image : String;
From_First_Page : Natural;
To_Last_Page : Natural;
Display_As_Twoup : Boolean;
Display_Border : Boolean;
Display_Filename : Boolean;
Display_Date : Boolean;
Ignore_Display_Parameters_For_Postscript : Boolean;
Highlight_Reserved_Words_For_Ada : Boolean;
Other_Options : String;
Number_Of_Copies : Natural;
Printer : String;
Effort_Only : Boolean);
procedure Properties; -- View and edit properties of an object.
procedure File_Properties (Name : String;
Acl : String;
Frozen : Boolean;
Controlled : Boolean;
Checked_Out : Boolean); -- ***
procedure World_Properties (Name : String;
Acl : String;
Default_Acl : String;
Switch_File : String;
Retention_Count : Natural); -- ***
procedure Subsystem_Properties (Name : String); -- ***
procedure View_Properties (Name : String); -- ***
procedure Copy; -- Copy an object or objects
procedure Copy (Source : String; Destination : String);
procedure Move; -- Move an object or objects
procedure Move (Source : String; Destination : String);
procedure Delete; -- Delete an object or objects
procedure Delete (Name : String);
procedure Delete_Confirm (Name : String);
procedure Run; -- Run a command
procedure Run (Command_Name : String;
Parameters : String;
On_Machine : String);
procedure Quit; -- Logoff
procedure Quit_Confirm;
end File;
---------------
-- Edit menu --
---------------
package Edit is
procedure Format; -- Reformat object as appropriate
procedure Cut; -- delete selected text
procedure Copy; -- Copy selected text to buffer
procedure Paste; -- Paste in text from cut buffer
procedure Copy_To_Clipboard; -- Copy selected text to Motif clipboard
procedure Search_Forward; -- search text
procedure Search_Backward; -- search text toward beginning
procedure Replace; -- search and replace
procedure Check_Spelling_Word;
procedure Check_Spelling_Document; -- Spelling checker
procedure Insert_File; -- Insert contents of file
procedure Overwrite_Mode; -- enter overwrite mode
procedure Insert_Mode; -- enter insert mode
procedure Fill_Mode; -- enter fill mode
procedure No_Fill_Mode; -- exit fill mode
procedure Rename_Ada; -- withdraw Ada unit to rename.
procedure Underlines_Off;
end Edit;
-----------------
-- Region menu --
-----------------
package Region is
procedure Unselect;
procedure Beginning_Of;
procedure End_Of;
procedure Capitalize;
procedure Uppercase;
procedure Lowercase;
procedure Make_Comment;
procedure Uncomment;
procedure Fill;
procedure Justify;
end Region;
-------------------
-- Traverse Menu --
-------------------
package Traverse is
procedure Next_Item;
procedure Previous_Item;
procedure Definition;
procedure Enclosing;
procedure Other_Part;
procedure Home_Library;
procedure Resolve_Name;
procedure Resolve_Name (Name : String);
end Traverse;
------------------
-- Compile Menu --
------------------
package Compile is
procedure Semanticize;
procedure Code;
procedure Install;
procedure Install_Confirm;
procedure Source;
procedure Source_Confirm;
procedure Archive;
procedure Archive_Confirm;
procedure Options;
procedure Promote;
procedure Promote (Name : String;
Goal : Goal_State;
Limit : Compilation_Limit);
procedure Demote;
procedure Demote (Name : String;
Goal : Goal_State;
Limit : Compilation_Limit);
procedure Show_Usage;
procedure Show_Unused; -- not used anywhere
procedure Show_Unused_Local; -- unused in this unit
procedure Load;
procedure Load (Name : String; Result : String);
procedure Parse;
procedure Parse (Name : String; Destination_Directory : String);
procedure Build_Private_Part;
procedure Build_Body;
procedure Make_Separate;
procedure Make_Inline;
end Compile;
-------------
-- CM menu --
-------------
package Cm is
procedure Check_Out;
procedure Check_Out (Name : String; Comments : String);
procedure Check_Out_Confirm (Name : String; Comments : String);
procedure Check_In;
procedure Check_In (Name : String; Comments : String);
procedure Abandon;
procedure Abandon (Name : String);
procedure Abandon_Confirm (Name : String);
procedure Accept_Changes;
procedure Accept_Changes
(Name : String; Entire_View : Boolean; Source : String);
procedure Accept_Changes_Confirm
(Name : String; Entire_View : Boolean; Source : String);
procedure Join;
procedure Join (Name : String;
To_View : String;
Comments_For_History : String);
procedure Sever;
procedure Sever (Name : String; Comments_For_History : String);
procedure Imports;
procedure Imports (Views_To_Import : String;
Into_View : String;
Only_Change_Existing : Boolean);
procedure Properties;
end Cm;
----------------
-- Debug Menu --
----------------
package Debug is
procedure Go;
procedure Stop;
procedure Step;
procedure Step_Local;
procedure Step_Returned;
procedure Break_Here;
procedure Break;
procedure Break (Location : String;
Count : Natural;
In_Task : String;
Permanent : Boolean);
procedure Activate_Break;
procedure Activate_Break (Break_List : String);
procedure Remove_Break;
procedure Remove_Break (Break_List : String; Delete : Boolean);
procedure Show_All;
procedure Show_Breakpoints;
procedure Show_Exception_Handling;
procedure Show_Stops_And_Holds;
procedure Show_Stepping;
procedure Show_Tracing;
procedure Show_History;
procedure Context_Control;
procedure Context_Control (Location : String);
procedure Context_Evaluation;
procedure Context_Evaluation (Location : String);
procedure Information_Tasks;
procedure Information_Exceptions;
procedure Information_Rendezvous;
procedure Information_Space;
procedure Put_Selection;
procedure Put_Parameters;
procedure Stack;
procedure Source;
procedure Modify;
procedure Modify (Variable : String; Value : String);
procedure Quit;
procedure Quit (Kill_Job : Boolean; Kill_Debugger : Boolean);
end Debug;
------------------
-- Session menu --
------------------
package Session is
procedure Search_List;
procedure Switches;
procedure Profile;
procedure Profile (Error_Reaction : String;
Line_Width : Natural;
Activity : String;
Log_Filter : String;
Log_Prefixes : String;
Log_File : String;
Remote_Passwords_File : String;
Remote_Sessions_File : String);
procedure Disable_Job;
procedure Disable_Job (Number : Natural);
procedure Enable_Job;
procedure Enable_Job (Number : Natural);
procedure Kill_Job;
procedure Kill_Job (Number : Natural; Session : String := ""); -- ??
procedure Users;
procedure My_Jobs;
procedure All_Jobs;
procedure Machine_Information;
procedure End_Of_Input;
end Session;
package Tools is
procedure Read_Mail;
procedure Send_Mail;
procedure Find_Image;
procedure Image_Directory;
procedure Macro_Begin;
procedure Macro_End;
procedure Macro_Execute;
procedure Macro_Bind_To_Key;
procedure Screen_Push;
procedure Screen_Pop;
procedure Operator_Backup;
procedure Operator_Backup (Start_At : String;
Kind : Backup_Kind;
Tape_Drive : String);
procedure Operator_Verify_Backup;
procedure Operator_Verify_Backup
(Start_At : String; Tape_Drive : String);
procedure Operator_Backup_History;
procedure Operator_Edit_User;
procedure Operator_Edit_User (User_Name : String;
Password : String;
Add_To_Groups : String;
Remove_From_Groups : String;
Create_Mailbox : Boolean);
procedure Operator_Edit_Group;
procedure Operator_Edit_Group (Group_Name : String;
Create : Boolean;
Delete : Boolean;
Add_Users : String;
Remove_Users : String);
procedure Operator_Force_Logoff;
procedure System_Manager_Password_Policy;
procedure System_Manager_Report;
procedure System_Manager_Report (Report_Kinds : String;
Start_Time : String;
End_Time : String;
Result_File : String);
procedure System_Manager_Shutdown;
procedure System_Manager_Shutdown
(At_Time : String;
Reason : String;
Message_To_Send_Periodically : String);
procedure System_Manager_Cancel_Shutdown;
procedure Show_Locks;
procedure Bind_To_Key;
end Tools;
package Help is
procedure Explain_Underline;
procedure On_Command;
procedure On_Key;
procedure On_Keybindings;
procedure On_Help;
end Help;
procedure Load_Image_Palette;
procedure Load_Debug_Palette;
pragma Module_Name (4, 2229);
end Menu_Operations;
nblk1=1d
nid=0
hdr6=3a
[0x00] rec0=18 rec1=00 rec2=01 rec3=05a
[0x01] rec0=16 rec1=00 rec2=15 rec3=026
[0x02] rec0=01 rec1=00 rec2=02 rec3=046
[0x03] rec0=10 rec1=00 rec2=14 rec3=00a
[0x04] rec0=01 rec1=00 rec2=03 rec3=028
[0x05] rec0=0f rec1=00 rec2=04 rec3=02e
[0x06] rec0=01 rec1=00 rec2=1d rec3=008
[0x07] rec0=13 rec1=00 rec2=05 rec3=030
[0x08] rec0=00 rec1=00 rec2=1c rec3=032
[0x09] rec0=13 rec1=00 rec2=06 rec3=056
[0x0a] rec0=00 rec1=00 rec2=1b rec3=032
[0x0b] rec0=0e rec1=00 rec2=07 rec3=05a
[0x0c] rec0=0f rec1=00 rec2=08 rec3=07c
[0x0d] rec0=01 rec1=00 rec2=1a rec3=064
[0x0e] rec0=17 rec1=00 rec2=09 rec3=01e
[0x0f] rec0=01 rec1=00 rec2=19 rec3=072
[0x10] rec0=17 rec1=00 rec2=0a rec3=02c
[0x11] rec0=26 rec1=00 rec2=0b rec3=014
[0x12] rec0=1b rec1=00 rec2=0c rec3=01a
[0x13] rec0=01 rec1=00 rec2=18 rec3=002
[0x14] rec0=14 rec1=00 rec2=0d rec3=02a
[0x15] rec0=1d rec1=00 rec2=0e rec3=004
[0x16] rec0=1d rec1=00 rec2=0f rec3=014
[0x17] rec0=16 rec1=00 rec2=10 rec3=010
[0x18] rec0=01 rec1=00 rec2=17 rec3=02a
[0x19] rec0=16 rec1=00 rec2=11 rec3=020
[0x1a] rec0=00 rec1=00 rec2=13 rec3=024
[0x1b] rec0=11 rec1=00 rec2=16 rec3=04e
[0x1c] rec0=19 rec1=00 rec2=12 rec3=000
tail 0x2150d85ec82b07fbdc9ad 0x42a00088462065003