|
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 Names, seg_02ba42
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦this⟧
-- This package provides some useful Ada and Environment name operations. -- package Names is function Is_Simple_Ada_Name (This_String : in String) return Boolean; -- -- Returns True iff the specified string is a valid simple Ada name -- (i.e. "Foo", or "Two_Words"). Leading or trailing blanks are not -- permitted. function Is_Dotted_Ada_Name (This_String : in String) return Boolean; -- -- Returns True iff the specified string is a valid Ada name containing -- at least one '.' (i.e. "Foo.Bar"). Leading or trailing blanks are -- not permitted. function Is_Ada_Name (This_String : in String) return Boolean; -- -- Returns True iff the specified string is a simple Ada name or a -- dotted Ada name. Leading or trailing blanks are not permitted. function Is_Pathname (This_String : in String) return Boolean; -- -- Returns True iff the specified string is a valid Environment pathname -- (i.e. "$$.Foo.@.Bar"). function Is_Fully_Qualified_Pathname (This_String : in String) return Boolean; -- -- Returns True iff the specified string is a valid fully qualified -- Environment pathname (i.e. "!Foo.Bar"). function Is_User_Name (This_String : in String) return Boolean; -- -- Returns True iff the specified string is a valid username -- (i.e. "JLS" or "Demo_1"). function Unique_Temporary_File_Name return String; -- -- Returns the fully-qualified name of a file located in "!Machine. -- Temporary". -- -- This function will return a different name each time it is called, -- so the return value must be assigned to a string constant if it is -- going to be used more than once. function Indirect_File_Name_For (This_File_Name : in String) return String; -- -- This function returns a filename indicating that the specified file -- is to be used as an indirect file for naming resolution. function All_Objects_In (This_Library : in String; Include_Object_Itself : in Boolean; Transitive : in Boolean) return String; -- -- Returns a naming expression which resolves to all objects in the -- specified library. -- -- If "Transitive" is True, returns a naming expression which will -- resolve to every object in the specified library, no matter how -- deeply nested; otherwise returns only the objects contained directly -- within the specified library. -- -- If "Include_Object_Itself" is True, adds the library itself to the -- naming expression. end Names;
nblk1=3 nid=0 hdr6=6 [0x00] rec0=1a rec1=00 rec2=01 rec3=00e [0x01] rec0=19 rec1=00 rec2=02 rec3=040 [0x02] rec0=12 rec1=00 rec2=03 rec3=000 tail 0x21523ff8c83f07915170d 0x42a00088462060003