* 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.