|
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: 4096 (0x1000)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package Gateway_Class, pragma Module_Name 4 3996, pragma Subsystem Tools_Integration, seg_002744
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
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;
nblk1=3
nid=0
hdr6=6
[0x00] rec0=16 rec1=00 rec2=01 rec3=012
[0x01] rec0=13 rec1=00 rec2=02 rec3=050
[0x02] rec0=19 rec1=00 rec2=03 rec3=000
tail 0x20b001392800687b12551 0x42a00088462065003