⟦c4d3e620c⟧

E3 Source Code



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;
DataMuseum.dk

Rational R1000/400

⟦c4d3e620c⟧ Ada Source

Derivation

E3 Source Code

E3 Meta Data
