|
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: 5120 (0x1400) Types: Ada Source Notes: 03_class, FILE, R1k_Segment, e3_tag, package Registrated_Object, seg_0570f7
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« └─⟦this⟧
with Transport_Defs; with Parametre; use Parametre; with Parametre_Defs; with Registered_Object_State; with S_Generic_List; with Method; with My_Channel_User; package Registrated_Object is package Method_List is new S_Generic_List (Element => Method.Object); type Object is private; function Image (O : in Object) return String; function Get_Id (O : in Object) return Parametre_Defs.Identificator; function Get_Channel (O : in Object) return My_Channel_User.Object; procedure Close_Channel (O : in out Object); function Get_Class (O : in Object) return Parametre.Variable_String; function Get_Methods (O : in Object) return Variable_String; function Get_Method (O : in Object; Meth : in Variable_String) return Method.Object; function Is_Method (O : in Object; Meth : Variable_String) return Boolean; function Is_Free (O : Object) return Boolean; function Is_Unknown (O : Object) return Boolean; function Is_Busy (O : Object) return Boolean; procedure Add_Method (O : in out Object; Meth : Method.Object); procedure Remove_Method (O : in out Object; Meth : Variable_String); procedure Replace_Method (O : in out Object; The_Method_To_Replace, New_Method : in out Method.Object); procedure Free (O : in out Object); procedure Init (O : in out Object; Class : Variable_String; Obj_Sock : Transport_Defs.Socket_Id; Obj_Host : Transport_Defs.Host_Id; Ok : out Boolean); procedure Give_Work (O : in out Object); procedure Work_Finished (O : in out Object); procedure Ready_For_Work (O : in out Object); procedure Set_To_Unknown (O : in out Object); function Null_Object return Object; private type Object is record Channel : My_Channel_User.Object; Class : Parametre.Variable_String; --Object_Id : Parametre_Defs.Identificator; Methods : Method_List.S_List; --Method_Iterator : Liste_Parametre.Iterator; State : Registered_Object_State.Object; end record; end Registrated_Object;
nblk1=4 nid=2 hdr6=6 [0x00] rec0=17 rec1=00 rec2=01 rec3=006 [0x01] rec0=15 rec1=00 rec2=03 rec3=048 [0x02] rec0=0b rec1=00 rec2=04 rec3=000 [0x03] rec0=06 rec1=00 rec2=02 rec3=001 tail 0x21763ba8487c59abbc207 0x42a00088462060003 Free Block Chain: 0x2: 0000 00 00 00 06 00 03 20 20 20 03 20 20 20 03 03 03 ┆ ┆