DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - downloadIndex: ┃ T V ┃
Length: 695 (0x2b7) Types: TextFile Names: »V«
└─⟦db1c56801⟧ Bits:30000748 8mm tape, Rational 1000, TESTMATE 2_2_0 └─ ⟦866d14df1⟧ »DATA« └─⟦97c804b2f⟧ └─⟦this⟧
with System; with Access_String; package Po_Handle is type Object is new Access_String.Object; -- -- package access_string contains additional basic operations such as -- constructors, destructors, equal, copy and convert that are simply -- inherited by this specification. -- function Name (Of_The_Obj : Object) return String; -- -- needed for actual IO operations -- procedure Convert (From : String; Into : in out Po_Handle.Object; Heap : System.Segment); -- this convert is simply a destructor followed by a constructor, -- therefore requiring a segment into the constructor can allocate. end Po_Handle;