|
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: 6144 (0x1800)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package Gateway, pragma Module_Name 4 4125, pragma Subsystem Tools_Integration, seg_002743
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
package Gateway is
procedure Create (Name : String := ">>OBJECT NAME<<";
Gateway_Class : String := ">>GATEWAY CLASS<<";
Value_Assignments : String := "";
Options : String := "";
Response : String := "<PROFILE>");
--
-- Create a Gateway object of the specified gateway class.
-- Value_Assignments provides a means of assigning properties
-- initial values. The string consists of zero or more property
-- specifications separated by commas or semicolons. Each property
-- specification is of the form:
--
-- Property_Name => Value
-- or
-- Property_Name(Subobject_Name) => Value
--
-- where Property_Name is the name of the gateway property to be assigned
-- a value (it may include embedded "." characters). The value is
-- a value acceptable to the Parameter_Parser which includes numeric
-- literals, identifiers, directory pathnames, and any sequence of
-- characters enclosed in balanced '(', ')' characters. The escape
-- character is '\' so that, for example, "\)" is an uninterpreted
-- right parenthesis.
--
-- Options specifies any additional parameters for this operation
-- (primarily for future additions).
--
procedure Set_Property (Gateway_Name : String := "<SELECTION>";
Property_Name : String := ">>PROPERTY NAME<<";
New_Property_Value : String := ">>PROPERTY VALUE<<";
Response : String := "<PROFILE>");
-- Set the named property in the named gateway object(s) to the named
-- value. Multiple objects may be specified via directory-name wildcards.
procedure Edit (Name : String := "<CURSOR>"; In_Place : Boolean := False);
-- Run editor on properties of a gateway object.
procedure Display (Name : String := "<CURSOR>"; Properties : String := "@");
-- Display the properties of the specified gateway object(s) whose name
-- matches Properties, as follows:
-- "@", "*", and "" specify all properties;
-- embedded '@'s and '*'s are treated as wildcards;
-- and matching is done on the property_name without the subobject name.
-- Multiple objects may be specified via directory-name wildcards
procedure Property_Edit (Name : String := "<CURSOR>";
In_Place : Boolean := False);
--
-- Run the editor on the properties of the specified gateway object.
-- The "data" image of the object, if any, is not generated or displayed
-- by this operation.
-------------------------
-- Editor operations:
-------------------------
procedure Insert (Spec : String := ">>Property_Name := Value<<";
Gateway_Object_Name : String := "");
-- The property values displayed in the specified or current DTIA property
-- Display Window are changed as indicated.
-- (Generated in response to Object."I" on a DTIA property Display Window)
-- The spec string specifies one or more properties to be set; the
-- syntax is identical that of Create's Value_Assigments parameter.
procedure Change (Image : String := ">>New Property Value<<";
Gateway_Object_Name : String := "");
-- The highlighted property in the current or specified DTIA property
-- display window is changed to the value of the given image.
-- (Generated in response to Edit on a DTIA property display window.)
procedure Write_Properties (Gateway_Object_Name : String := "");
-- The contents of the specified Gateway object's property display window
-- are stored in the object which is then committed.
-- A null name causes the current DTIA property display window's
-- properties are written to its Gateway object.
pragma Module_Name (4, 4125);
pragma Bias_Key (29);
pragma Subsystem (Tools_Integration);
end Gateway;
nblk1=5
nid=0
hdr6=a
[0x00] rec0=16 rec1=00 rec2=01 rec3=076
[0x01] rec0=14 rec1=00 rec2=02 rec3=000
[0x02] rec0=17 rec1=00 rec2=03 rec3=074
[0x03] rec0=10 rec1=00 rec2=04 rec3=016
[0x04] rec0=07 rec1=00 rec2=05 rec3=000
tail 0x209001378800687a85783 0x42a00088462065003