* For more information on this program, contact Blair MacIntyre * (bm@cs.columbia.edu) or Steven Feiner (feiner@cs.columbia.edu) * at the Computer Science Dept., Columbia University, * 500 W 120th St, Room 450, New York, NY, 10027. * * Copyright (C) Blair MacIntyre 1995, Columbia University 1995 *
UNSAFE INTERFACERead inPklTipeMap ; IMPORT Rd, Wr, RTPacking, Thread, ConvertPacking; EXCEPTION Error(TEXT); TYPE TypeCode = INTEGER; PROCEDURE Read (v: ConvertPacking.ReadVisitor; r: REFANY; tc: TypeCode; from: RTPacking.T; to: RTPacking.T; READONLY shape: ARRAY OF INTEGER) RAISES { Error, Rd.EndOfFile, Rd.Failure, Thread.Alerted };
r with type tc using v. The packing of the data in
the file is defined by v.from, the packing of the data in memory
in v.to. shape is the dimmensions of the reference, if it is
an Open Array. Otherwise, it is ignored. Proper conversions are
applied. It is assumed that r has been properly allocated to
handle the incoming data.
PROCEDURE Write (v: ConvertPacking.WriteVisitor; r: REFANY; tc: TypeCode;
from: RTPacking.T; READONLY shape: ARRAY OF INTEGER; n: INTEGER)
RAISES { Error, Wr.Failure, Thread.Alerted };
Write r using v. The data is writen in the local data format.
END PklTipeMap.