DIRECTORY RunReader, RunReaderExtras, TextLooks; RunReaderExtrasImpl: CEDAR PROGRAM IMPORTS RunReader EXPORTS RunReaderExtras SHARES RunReader = {OPEN RunReader, TextLooks; MergedBackwards: PUBLIC PROC [reader: Ref] RETURNS [count: Offset, looks: Looks] --RunReader.ReaderProc-- = { [count,looks] _ Backwards[reader]; WHILE reader.current=reader.first OR reader.changeLooks DO nxtCount: Offset; nxtLooks: Looks; [nxtCount,nxtLooks] _ PeekBackwards[reader ! NoMoreRuns => EXIT]; IF nxtLooks#looks THEN RETURN; count _ count+nxtCount; [,] _ Backwards[reader]; ENDLOOP }; }. LRunReaderExtrasImpl.Mesa Spreitzer, February 26, 1985 1:02:19 pm PST ΚΙ˜code™K™+—K˜KšΟk œ'˜0K˜šΠbxœœœœ œœœ˜{K˜š ΟnœœœœΟcœ˜mJ˜"šœœ˜:J˜J˜Jšœ;œ˜AJšœœœ˜J˜Jšœ˜Jšœ˜ ——K˜K˜—K˜—…—BW