DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download

⟦84d095290⟧ Ada Source

    Length: 7168 (0x1c00)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package Links, pragma Module_Name 4 3938, pragma Subsystem Commands, seg_00637d

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« 
        └─⟦this⟧ 

E3 Source Code



with Links_Implementation;
package Links is

    subtype World_Name is String;

    -- The string name for any directory object may be given for a world
    -- parameter, to indicate the world that contains the object.


    subtype Link_Name is String;

    -- An Ada simple name. When used as an in-parameter, except in Add and
    -- Replace, it may contain wildcard characters.  In Add and Replace it
    -- may contain substitution characters.

    subtype Source_Name is String;

    -- A directory string name that specifies an existing Ada Library Unit.
    -- (The unit does not have to be installed, but its declaration must be
    -- in a library.) May contain wildcard characters when used as an
    -- in-parameter.

    subtype Source_Pattern is String;

    -- A string (containing wildcards) which will be matched against the
    -- full names of the objects denoted by links.


    subtype Link_Kind is Links_Implementation.Link_Kind;
    Internal : constant Link_Kind := Links_Implementation.Internal;
    External : constant Link_Kind := Links_Implementation.External;
    Any : constant Link_Kind := Links_Implementation.Any;

    -- A link is Internal if its source object is in the world of the link
    -- pack; otherwise it is External.

    procedure Add (Source : Source_Name := ">>SOURCE NAMES<<";
                   Link : Link_Name := "#";
                   World : World_Name := "<IMAGE>";
                   Response : String := "<PROFILE>");

    -- For each Ada library unit defined by Source, a link is created in the
    -- link pack for World.  The Source object is associated with the simple
    -- Ada name given by Link.  The operation fails if the specified Link name
    -- already exists in the pack, unless the new link is compatible with the
    -- old link.  The new link is defined to be compatible with the old link
    -- iff both links refer to the same object or the object referred to be the
    -- old link has been deleted.



    procedure Replace (Source : Source_Name := ">>SOURCE NAMES<<";
                       Link : Link_Name := "#";
                       World : World_Name := "<IMAGE>";
                       Response : String := "<PROFILE>");

    -- For each Ada Library unit defined by Source, a link is created in
    -- the link pack for World.  The Source object is associated with the
    -- simple Ada name given by Link. If a link of the same name
    -- already exists, it is replaced by the new definition.



    procedure Delete (Link : Link_Name := ">>LINK NAMES<<";
                      Source : Source_Pattern := "?";
                      Kind : Link_Kind := Links.Any;
                      World : World_Name := "<IMAGE>";
                      Response : String := "<PROFILE>");

    -- The Links that match both the Source and Link wildcards and the
    -- specified kind are deleted from the link pack of the given World.


    procedure Copy (Source_World : World_Name := ">>WORLD NAME<<";
                    Target_World : World_Name := "<IMAGE>";
                    Link : Link_Name := "@";
                    Source : Source_Pattern := "?";
                    Kind : Link_Kind := Links.Any;
                    Response : String := "<PROFILE>");

    -- The Links of Source_World that match the specified Source and Link
    -- names and the given Link_Kind are copied to Target_World.


    procedure Display (World : World_Name := "<IMAGE>";
                       Link : Link_Name := "@";
                       Source : Source_Pattern := "?";
                       Kind : Link_Kind := Links.Any;
                       Response : String := "<PROFILE>");

    -- Lists the links that match the given wild cards in the given world


    procedure Dependents (Link : Link_Name := "@";
                          Source : Source_Pattern := "?";
                          Kind : Link_Kind := Links.Any;
                          World : World_Name := "$$";
                          Response : String := "<PROFILE>");

    -- Computes the Library Units of the world that are installed or coded
    -- and reference any of the Link commands specified by the Source and
    -- Link parameters.


    procedure Edit (World : World_Name := "<IMAGE>");
    procedure Visit (World : World_Name := "<IMAGE>");

    -- Enters the links object editor.  If there is no links window for the
    -- world to be edited, edit will create a new window, and visit will
    -- reuse an existing window of there is one.


    procedure Insert (Source : Source_Name := ">>SOURCE NAME<<");

    procedure Update (Source : Source_Name := ">>SOURCE NAME<<");

    -- Insert and Update peform the same function as Add and Replace, but
    -- they must be run in a command window off a links image.

    procedure Expunge (World : World_Name := "<IMAGE>";
                       Response : String := "<PROFILE>");
    pragma Subsystem (Commands);
    pragma Module_Name (4, 3938);

end Links;

E3 Meta Data

    nblk1=6
    nid=0
    hdr6=c
        [0x00] rec0=1f rec1=00 rec2=01 rec3=008
        [0x01] rec0=11 rec1=00 rec2=02 rec3=096
        [0x02] rec0=18 rec1=00 rec2=03 rec3=08c
        [0x03] rec0=19 rec1=00 rec2=04 rec3=042
        [0x04] rec0=19 rec1=00 rec2=05 rec3=01c
        [0x05] rec0=05 rec1=00 rec2=06 rec3=000
    tail 0x21701a74c81bf804ea0f9 0x42a00088462060003