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 - download

⟦e0fdba7bd⟧ Ada Source

    Length: 19456 (0x4c00)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package Menu_Operations, pragma Module_Name 4 2229, seg_01283e

Derivation

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

E3 Source Code



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;

E3 Meta Data

    nblk1=12
    nid=0
    hdr6=24
        [0x00] rec0=18 rec1=00 rec2=01 rec3=05c
        [0x01] rec0=19 rec1=00 rec2=02 rec3=01a
        [0x02] rec0=12 rec1=00 rec2=03 rec3=046
        [0x03] rec0=13 rec1=00 rec2=04 rec3=00a
        [0x04] rec0=14 rec1=00 rec2=05 rec3=07c
        [0x05] rec0=13 rec1=00 rec2=06 rec3=068
        [0x06] rec0=13 rec1=00 rec2=07 rec3=048
        [0x07] rec0=15 rec1=00 rec2=08 rec3=026
        [0x08] rec0=14 rec1=00 rec2=09 rec3=018
        [0x09] rec0=26 rec1=00 rec2=0a rec3=028
        [0x0a] rec0=1a rec1=00 rec2=0b rec3=07c
        [0x0b] rec0=1b rec1=00 rec2=0c rec3=02e
        [0x0c] rec0=1d rec1=00 rec2=0d rec3=024
        [0x0d] rec0=18 rec1=00 rec2=0e rec3=07a
        [0x0e] rec0=1b rec1=00 rec2=0f rec3=036
        [0x0f] rec0=1a rec1=00 rec2=10 rec3=070
        [0x10] rec0=12 rec1=00 rec2=11 rec3=03a
        [0x11] rec0=1a rec1=00 rec2=12 rec3=000
    tail 0x2150d8b7882b08145a58d 0x42a00088462060003