|
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 Dynamic_Object, seg_041969
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦this⟧
with T_Value, Text_Io, Bounded_String, Binary_Trees_Pkg; package Dynamic_Object is Error_Attribute_Store : exception; Error_Attribute_Index : exception; type Dynamic_Object is private; type Attribute_Index is private; subtype D_File is Text_Io.File_Type; Max_Attribute_String : constant := 32; --Creation procedure New_Object (D : in out Dynamic_Object); --Access function Has_Attribute (D : in Dynamic_Object; Name : in String) return Boolean; procedure Get_Attribute_By_Name (D : Dynamic_Object; Name : String; V : in out T_Value.Object); procedure Dump_Number_Of_Attribute (D : in Dynamic_Object); procedure Dump_Object_Attributes (D : in Dynamic_Object); function Object_Image (D : in Dynamic_Object) return String; procedure Object_To_File (D : Dynamic_Object; F : D_File); function Equal (Left, Right : Dynamic_Object) return Boolean; --Modification procedure Store_Attribute (D : in out Dynamic_Object; Name : String; V : T_Value.Object); procedure Store_Attribute (D : in out Dynamic_Object; Name : String; I : Integer); procedure Store_Attribute (D : in out Dynamic_Object; Name : String; S : String); procedure Store_Attribute (D : in out Dynamic_Object; Name : String; B : Boolean); procedure Delete_Attribute (D : in out Dynamic_Object; Name : String); procedure Object_From_File (D : in out Dynamic_Object; F : D_File); procedure Copy_Object (To_Object : in out Dynamic_Object; The_Object : Dynamic_Object); procedure Surface_Copy (To_Object : in out Dynamic_Object; The_Object : Dynamic_Object); --Liberation procedure Dispose_Object (D : in out Dynamic_Object); --Iteration procedure Open_Attribute_Indexation (D : Dynamic_Object; I : in out Attribute_Index); procedure Next_Attribute_Index (I : in out Attribute_Index); function Get_Indexed_Attribute_Name (I : Attribute_Index) return String; procedure Get_Indexed_Attribute_Value (I : Attribute_Index; V : in out T_Value.Object); function No_More_Attributes (I : Attribute_Index) return Boolean; private type Attribute is record Name : Bounded_String.Variable_String (Max_Attribute_String); Value : T_Value.Object; end record; function Compare (A, B : Attribute) return Integer; package Object_Tree is new Binary_Trees_Pkg (Attribute, Compare); type Dynamic_Object is record Node : Object_Tree.Tree; end record; type Attribute_Index is record Node : Object_Tree.Iterator; end record; end Dynamic_Object;
nblk1=3 nid=0 hdr6=6 [0x00] rec0=1f rec1=00 rec2=01 rec3=006 [0x01] rec0=15 rec1=00 rec2=02 rec3=056 [0x02] rec0=20 rec1=00 rec2=03 rec3=001 tail 0x2153c784e862656b72c55 0x42a00088462060003