|
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 - metrics - 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;