|
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: 8192 (0x2000) Types: Ada Source Notes: 03_class, FILE, R1k_Segment, e3_tag, package Links, pragma Module_Name 4 3938, pragma Subsystem Commands, seg_001b78
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦this⟧
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;
nblk1=7 nid=0 hdr6=e [0x00] rec0=1f rec1=00 rec2=01 rec3=008 [0x01] rec0=11 rec1=00 rec2=02 rec3=06a [0x02] rec0=00 rec1=00 rec2=07 rec3=00a [0x03] rec0=18 rec1=00 rec2=03 rec3=002 [0x04] rec0=14 rec1=00 rec2=04 rec3=090 [0x05] rec0=1a rec1=00 rec2=05 rec3=030 [0x06] rec0=09 rec1=00 rec2=06 rec3=000 tail 0x20100efd87da18d47b5be 0x42a00088462065003