
DIRECTORY Commander, IO, Rope, StructuredStreams, UnparserBuffer;

StructuredStreamsTest: CEDAR PROGRAM
IMPORTS Commander, IO, StructuredStreams, UnparserBuffer
=

BEGIN OPEN SS:StructuredStreams, UB:UnparserBuffer;

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};
'< => {
cond: SS.XBreakCondition = SELECT from.GetChar[] FROM
'n => never,
'm => miser,
'w => width,
'l => lookLeft,
'u => united,
'a => always,
ENDCASE => ERROR;
offset: INTEGER = from.GetInt[];
sep: Rope.ROPE = from.GetRopeLiteral[];
SS.XBp[to, cond, offset, sep];
WHILE from.GetChar[] # '> DO NULL ENDLOOP;
};
ENDCASE => to.PutChar[c];
ENDLOOP;
level ¬ level;
};

Cmd: Commander.CommandProc ~ {
in: IO.STREAM ~ IO.RIS[cmd.commandLine];
margin: INT ~ in.GetInt[];
miserable: BOOL ~ in.GetBool[];
h: UB.Handle ~ UB.Create[[margin: margin, output: [stream[cmd.out]] ], miserable];
out: IO.STREAM ~ SS.Create[h];
cmd.out.PutF1["%l", [rope["f"]]];
[] ¬ Parse[in, out];
cmd.out.PutF1["%l", [rope[" "]]];
RETURN};

Commander.Register[key: "StructuredStreamsTest", proc: Cmd, doc: "margin miserable (char | '{ | '<('n|'m|'w|'l|'u|'a) int ropeLit> | '})*", interpreted: FALSE];

END.

   \  
StructuredStreamsTest.Mesa
Copyright Ó 1991 by Xerox Corporation.  All rights reserved.
last edited by Spreitzer September 19, 1985 5:16:06 pm PDT
Mike Spreitzer February 21, 1990 10:05 am PST
Last tweaked by Mike Spreitzer on April 6, 1990 11:35 am PDT
Willie-s, September 26, 1991 1:58 pm PDT
Michael Plass, November 22, 1991 5:28 pm PST
 Ê0  •NewlineDelimiter
–(cedarcode) style™ šœ™Jšœ
Ïeœ1™<Jšœ:™:Icode™-K™<K™(K™,—K˜ KšÏk	œžœ*˜AK˜ šÏnœžœž˜$Kšžœžœ#˜8Kšœ˜—K˜ Kšžœžœžœžœ˜3K˜ šŸœžœžœžœžœ	žœ˜>K˜
šžœžœž˜Kšœžœ˜šžœž˜Kšœžœ˜(Kšœžœ˜&˜šœžœžœž˜5K˜K˜K˜K˜K˜K˜Kšžœžœ˜—Kšœžœ˜ Kšœ
žœ˜'Kšžœ˜Kšžœžœžœžœ˜*K˜—Kšžœ˜—Kšžœ˜—K˜K˜—K˜ šŸœ˜Kš	œžœžœžœžœ˜(Kšœžœ˜Kšœžœ˜Kšœžœ
žœA˜RKšœžœžœžœ˜K˜!K˜K˜!Kšžœ˜—K˜ Kšœ™žœ˜ K˜ Kšžœ˜K˜ — …—    &  ²  