|
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 Object_Class, pragma Module_Name 4 1711, pragma Subsystem Directory, seg_028467
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« └─⟦this⟧
with Directory; package Object_Class is -- This package provides functions for getting the Directory.Class for -- all of the pre-defined managed types as of Gamma_0. This includes -- types which have type-specific operations defined at the -- directory level (Ada, File) as well as those types -- for which one must have direct visibility to the object manager -- (devices, code segments, user/group/session). function Ada return Directory.Class; -- Equivalent to Directory.Ada.Get_Class (Ada_Manager.Class). function Library return Directory.Class; -- Equivalent to Directory.Control_Point.Get_Class (Directory_Manager.Class). function File return Directory.Class; -- Equivalent to Polymorphic_IO.Get_Class (File_Manager.Class). function Tape return Directory.Class; -- No directory level equivalent (Tape_Manager.Class). function Terminal return Directory.Class; -- No directory level equivalent (Terminal_Manager.Class). function User return Directory.Class; -- No directory level equivalent (User.Class). function Group return Directory.Class; -- No directory level equivalent (User.Group.Class). function Session return Directory.Class; -- No directory level equivalent (User.Session.Class). function Code_Segment return Directory.Class; -- No directory level equivalent (Code_Segment_Manager.Class). function Link return Directory.Class; -- No directory level equivalent (Link_Manager.Class). function Null_Device return Directory.Class; -- No directory level equivalent (Null_Device_Manager.Class). function Pipe return Directory.Class; -- No directory level equivalent (Pipe_Manager.Class). function Ddb return Directory.Class; -- No directory level equivalent (Dependency_Database_Manager.Class). function Archived_Code return Directory.Class; -- No directory level equivalent (Code_Db_Manager.Class). pragma Subsystem (Directory); pragma Module_Name (4, 1711); end Object_Class;
nblk1=3 nid=0 hdr6=6 [0x00] rec0=1b rec1=00 rec2=01 rec3=03c [0x01] rec0=1b rec1=00 rec2=02 rec3=030 [0x02] rec0=06 rec1=00 rec2=03 rec3=000 tail 0x21722371c83c1734772b0 0x42a00088462065003