|
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: 626 (0x272) Types: TextFile Notes: R1k Text-file segment
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« └─⟦6385b2c8e⟧ └─⟦this⟧
with Values, Bounded_String, Lists;\r \r package Boxes is\r \r subtype My_String is Bounded_String.Variable_String(128);\r type Kind_Of_Enum is (Int, Bool, Enum, Chaine, Ref, Undef);\r type Box is limited private;\r type pIt_List is access Integer;\r \r function Equal(B1 : in Box; B2 : in Box) return Boolean;\r procedure Dispose(B : in out Box);\r procedure Reset(B : in out Box);\r procedure Copy(To_Box : int out Box; The_Box : in Box);\r procedure Image(B : in Box); \r \r private\r \r type Box is record\r Type : Kind_Of_Enum := Undef;\r Id : My_String;\r Val : Value;\r Acc : pIt_List := null;\r end record;\r \r end Boxes