DIRECTORY IO, IOUtils, Rope, StructuredStreams; StructuredStreamsTest: CEDAR PROGRAM IMPORTS IO, SS:StructuredStreams = BEGIN Parse: PROC [from, to: IO.STREAM] RETURNS [level: INTEGER] = { level _ 0; WHILE NOT from.EndOf[] DO c: CHAR _ from.GetChar[]; SELECT c FROM '{ => {SS.Begin[to]; level _ level + 1}; '} => {SS.End[to]; level _ level - 1}; '< => { united: BOOL _ from.GetBool[]; offset: INTEGER _ from.GetInt[]; SS.Bp[to, united, offset]; WHILE from.GetChar[] # '> DO NULL ENDLOOP; }; ENDCASE => to.PutChar[c]; ENDLOOP; level _ level; }; END. \StructuredStreamsTest.Mesa last edited by Spreitzer September 19, 1985 5:16:06 pm PDT Κ9˜šœ™Jšœ:™:—J˜IcodešΟk œœ#˜/K˜šΠbxœœ˜$Kšœœœ˜ Kšœ˜—K˜Kš˜K˜š Οnœœ œœœ œ˜>K˜ šœœ˜Kšœœ˜šœ˜ Kšœœ˜(Kšœœ˜&˜Kšœœ˜Kšœœ˜ Kšœ˜Kšœœœœ˜*K˜—Kšœ˜—Kšœ˜—K˜K˜—K˜Kšœ˜K˜—…—,Α