DIRECTORY IO, Rope; CensusFileReader: CEDAR DEFINITIONS = BEGIN 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.   -- CensusFileReader.mesa -- Copyright Σ 1992 by Xerox Corporation. All rights reserved. -- Greene, July 5, 1989 11:36:13 am PDT *** GBF/DIME files *** Κb•NewlineDelimiter –(cedarcode) style™JšœYΟc'œ™Icode˜KšΟk œžœ˜K˜Kšœžœž œ˜%K˜Kšž˜K˜K˜Jšœžœžœ ™K˜K˜K˜Kš œ žœžœ§žœžœžœ˜άK˜Kš œ žœžœžœžœ˜%K˜Kš œ žœžœžœžœ˜,K˜Kš œžœžœžœžœ˜+K˜KšΟnœžœžœ˜:K˜Kš Ÿ œžœžœžœ žœ˜PK˜Kš Ÿ œžœ žœ žœ,žœ˜aK˜Kšžœ˜—…— ’