DataMuseum.dk

top - download

    Length: 2826 (0xb0a)
    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

package Gateway_Class is

    procedure Build (Gateway_Class_Directory : String := "<IMAGE>";
                     Gateway_Text_Description : String := "Gateway_Definition";
                     Gateway_Binary_Description : String := "Gateway_Class";
                     Response : String := "<Profile>");
    --
    -- Compile the gateway class description from "Gateway_Definition"
    -- producing the gateway class object "Gateway_Class".
    -- Gateway_Class_Directory specifies the directory in
    -- which the gateway class definitions exists.
    -- Gateway_[Text,Binary]_Description are the source/destination of
    -- the construction.
    --
    -- In general, only the directory name need be specified since the
    -- filenames within !Machine.Gateway_Classes are standardized.
    -- Gateway_Class_Directory is evaluated relative to the context
    -- !Machine.Gateway_Classes  so that a simple name can be used
    -- for the gateway class name.

    procedure Activate (Gateway_Class_Name : String :=
                           ">>SIMPLE GATEWAY CLASS NAME<<";
                        Response : String := "<PROFILE>");
    --
    -- Activate the gateway class from !Machine.Gateway_Classes.<Class_Name>.
    -- This makes the gateway class available for use on the system.
    --
    -- Open the gateway class definition file in !machine.<Class_Name>.Class.
    -- Place the pointer to it in the in-memory cache and hold the
    -- update lock on the gateway class file.
    --
    -- Start the global server for the gateway class, if there is one.

    procedure Deactivate (Gateway_Class_Name : String :=
                             ">>SIMPLE GATEWAY CLASS NAME<<";
                          Response : String := "<PROFILE>");
    --
    -- Remove the active class entry and release the lock on the file.
    -- Operations on objects of inactive gateway classes are not
    -- allowed.  In addition, after the gateway class is deactivated, images
    -- of objects of that gateway classe will be removed from screens,
    -- servers for that gateway class will be terminated, and further
    -- operations disallowed until the gateway class is reactivated.


    procedure Display (Gateway_Class_Name : String := "@");
    -- Display a formatted report of registered gateway
    -- classes and information about them whose names match
    -- the specified naming expression.  The Gateway_Class_Name parameter
    -- is resolved in the context !Machine.Gateway_Classes.


    procedure Boot_Time_Initialization;
    --
    -- Call from !Machine.Initialize.  Activates all gateway classes
    -- for which the file Activate_On_Boot is present in the gateway
    -- class directory.


    pragma Module_Name (4, 3996);
    pragma Bias_Key (29);
    pragma Subsystem (Tools_Integration);

end Gateway_Class;