<<>> <> <> <> <<>> DIRECTORY IO USING [STREAM], Rope USING [ROPE]; <> WordCount: CEDAR DEFINITIONS = BEGIN STREAM: TYPE = IO.STREAM; ROPE: TYPE = Rope.ROPE; <<>> <> <<>> CountStream: PROC [s: STREAM, tokenMode: BOOL ¬ FALSE] RETURNS [lines, words, characters: INT]; <<>> CountSelection: PROC [tokenMode: BOOL ¬ FALSE] RETURNS [lines, words, characters: INT]; CountRope: PROC [r: ROPE, tokenMode: BOOL ¬ FALSE] RETURNS [lines, words, characters: INT]; CountFile: PROC [file: ROPE, tokenMode: BOOL ¬ FALSE] RETURNS [lines, words, characters: INT]; <> END.