DataMuseum.dk

top - download

    Length: 1578 (0x62a)
    Types: TextFile
    Names: »V«

└─⟦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

with Action;
with Directory;
with Machine;

package Action_Utilities is


    procedure Display_Action (Id : Action.Id);
    procedure Display_Action (Id : Integer);
    -- displays either not in progress or put_task_info (creating task_id)
    -- the second form converts the integer to an action.id and
    -- invokes the first form

    procedure Lock_Information (Version : Directory.Version);
    procedure Lock_Information
                 (Name : Directory.Naming.Name := "<Image>";
                  Version : Directory.Version_Name := Directory.All_Versions);
    -- displays the following information
    --   actions (if any) that have a read lock on the version
    --   action  (if any) that has an update lock on the version
    --  action  (if any) that has an overwrite lock on the version
    --  request queue of [task,action,mode] triples waiting for the object
    -- the second form does name resolution and then calls the first form

    procedure Display_Task (Task_Id : Machine.Task_Id);
    -- shows the user, session and job for the specified task

    procedure Display_Object (Version : Directory.Version);
    procedure Display_Object
                 (Class : Natural; Instance : Natural; Host : Machine.Id);
    -- displays the name and version of the specified object
    -- the second form construct a directory.version and calls the first form

    procedure Lock_Information
                 (Class : Natural; Instance : Natural; Host : Machine.Id);

    pragma Subsystem (Os_Commands);
    pragma Module_Name (4, 3933);

end Action_Utilities;