-- CensusFileReader.mesa
-- Copyright Ó 1992 by Xerox Corporation. All rights reserved.
-- Greene, July 5, 1989 11:36:13 am PDT

DIRECTORY
IO,
Rope;

CensusFileReader: CEDAR DEFINITIONS =

BEGIN

*** GBF/DIME files ***

PerLineProc: TYPE = PROC[
filePosition: GetIntProc,
stPreDir: GetRopeProc,
stName: GetRopeProc,
stType: GetRopeProc,
stSufDir: GetRopeProc,
nonStCo: GetRopeProc,
leftAdd1: GetRopeProc,
leftAdd2: GetRopeProc,
rgtAdd1: GetRopeProc,
rgtAdd2: GetRopeProc,
zipCoLef: GetIntProc,
zipCoRgt: GetIntProc,
fmNode: GetIntProc,
toNode: GetIntProc,
fromLat: GetIntProc,
fromLong: GetIntProc,
toLat: GetIntProc,
toLong: GetIntProc,
copyRecord: CopyRecordProc
] RETURNS [quit: BOOL ¬ FALSE];

GetIntProc: TYPE = PROC RETURNS[INT];

GetRopeProc: TYPE = PROC RETURNS[Rope.ROPE];

CopyRecordProc: TYPE = PROC[to: IO.STREAM];

GetDIME: PROC [fileName: Rope.ROPE, perLine: PerLineProc];

GetDIMERecord: PROC [fileStream: IO.STREAM, postion: INT, perLine: PerLineProc];

FilterDIME: PROC [from: Rope.ROPE, to: Rope.ROPE, smallLat, smallLong, largeLat, largeLong: INT];

END.