
DIRECTORY
Commander USING [Handle],
CommanderOps USING [ArgumentVector, ArgHandleObject],
IO USING [EndOfStream, Error, GetIndex, GetRopeLiteral, PutChar, RopeFromROS, RIS, ROS, SetIndex, STREAM],
PositionedList USING [ PositionedArgumentList, PositionedArgumentVector, PositionedArgumentVectorPrivate, PositionedArgument ],
Rope USING [Fetch, Length, ROPE, Size];
PositionedListImpl: CEDAR PROGRAM
IMPORTS IO, Rope
EXPORTS PositionedList ~ {
OPEN PositionedList;

Failed: ERROR [errorMsg: ROPE] = CODE;
QuoteSyntaxError: ERROR = CODE;

CPData: TYPE = RECORD [
ch: CHAR _ ' , -- first char of next token; initially blank
swChar: CHAR, -- switch character
ropeIndex: LONG INTEGER _ 0,  -- index into Rope command line
rope: ROPE _ NIL, -- command line passed from client
done: BOOL _ FALSE -- used up all of command line
];

Handle: TYPE = Commander.Handle;
ROPE: TYPE = Rope.ROPE;
STREAM: TYPE = IO.STREAM;


ParseToPositionedList: PUBLIC PROC [cmd: Handle, switchChar: CHAR м '-] RETURNS [list: PositionedArgumentList, length: NAT м 1] = {
cpd: REF CPData м NEW[CPData];
tail: PositionedArgumentList м list м LIST[[-cmd.command.Length, -1, cmd.command]];
cpd.swChar м switchChar;
cpd.rope м cmd.commandLine;
DO
r: PositionedArgument м IGet[cpd ! QuoteSyntaxError => GOTO Lose];
IF r.rope = NIL THEN EXIT;
length м length + 1;
tail м tail.rest м LIST[r];
ENDLOOP;
EXITS Lose => Failed["Syntax error in quoted string"];
};

IGet: PROC [cpd: REF CPData] RETURNS [result: PositionedArgument] = {
workstr: STREAM м NIL;
chlook: CHAR;

WHILE (cpd.ch = '  OR cpd.ch = '	) AND GetCh[cpd] DO ENDLOOP;
IF cpd.done OR cpd.ch = '\n OR cpd.ch = '\l THEN RETURN [[0, -1, NIL]];
result.start м cpd.ropeIndex-1;
chlook м ' ;
IF cpd.ch = '" THEN --this makes the later code that considers that chlook might be '" obsolete (as of July 16th 1987), but we're chicken and so haven't deleted it yet--{
workstr м IO.RIS[cpd.rope];
workstr.SetIndex[result.start];
result.rope м IO.GetRopeLiteral[workstr !IO.Error, IO.EndOfStream => ERROR QuoteSyntaxError];
cpd.ropeIndex м IO.GetIndex[workstr];
result.length м cpd.ropeIndex - result.start;
[] м GetCh[cpd];
RETURN};
DO
IF cpd.done OR (chlook # '" AND (cpd.ch = '\n OR cpd.ch = '\l) ) THEN GOTO EOL;
SELECT chlook FROM
' , '\t  => SELECT cpd.ch FROM
'  , '", '\t => IF workstr # NIL THEN EXIT;
cpd.swChar => IF cpd.ch#'- AND workstr#NIL THEN EXIT;
ENDCASE;
'" => SELECT cpd.ch FROM
'" => IF (NOT GetCh[cpd]) OR (cpd.ch # '") THEN EXIT;
ENDCASE;
ENDCASE => ERROR;
IF workstr = NIL THEN workstr м IO.ROS[];
IO.PutChar[workstr, cpd.ch];
IF NOT GetCh[cpd] THEN GOTO EOL;
REPEAT
EOL => IF chlook = '" THEN ERROR QuoteSyntaxError;
ENDLOOP;
IF workstr = NIL THEN RETURN [[0, -1, NIL]];
result.length м cpd.ropeIndex - (IF cpd.done THEN 0 ELSE 1) - result.start;
result.rope м IO.RopeFromROS[workstr];
RETURN};

GetCh: PROC [cpd: REF CPData] RETURNS [BOOL] = {
IF cpd.ropeIndex >= Rope.Size[cpd.rope] THEN GOTO EOS;
cpd.ch м Rope.Fetch[cpd.rope, cpd.ropeIndex];
cpd.ropeIndex м SUCC[cpd.ropeIndex];
RETURN [TRUE];
EXITS
EOS => {
cpd.done м TRUE;
cpd.ch м ' ;
RETURN [FALSE];
};
};

ParsePositioned: PUBLIC PROC [cmd: Handle, switchChar: CHAR м '-]RETURNS [argv: PositionedArgumentVector] = {
list: PositionedArgumentList м NIL;
nArgs: NAT м 0;
[list, nArgs] м ParseToPositionedList[cmd: cmd, switchChar: switchChar];
argv м NEW[PositionedArgumentVectorPrivate[nArgs]];
FOR i: NAT IN [0..nArgs) DO
argv[i] м list.first;
list м list.rest;
ENDLOOP;
RETURN};

StripVectorPositions: PUBLIC PROC [pargv: PositionedArgumentVector] RETURNS [argv: CommanderOps.ArgumentVector] ~ {
argv м NEW [CommanderOps.ArgHandleObject[pargv.argc]];
FOR i: NAT IN [0 .. argv.argc) DO argv[i] м pargv[i].rope ENDLOOP;
RETURN};

StripListPositions: PUBLIC PROC [plist: PositionedArgumentList] RETURNS [list: LIST OF ROPE] = {
tail: LIST OF ROPE м NIL;
FOR plist м plist, plist.rest WHILE plist#NIL DO
this: LIST OF ROPE ~ LIST[plist.first.rope];
IF tail=NIL THEN list м this ELSE tail.rest м this;
tail м this;
ENDLOOP;
RETURN};
}.
   z  
PositionedListImpl.mesa
Copyright ╙ 1984, 1985, 1986, 1987, 1989, 1993 by Xerox Corporation.  All rights reserved.
Swinehart, September 17, 1993 2:03 pm PDT
Russ Atkinson (RRA) March 2, 1987 7:36:27 pm PST
Last tweaked by Mike Spreitzer on February 22, 1988 6:04:50 pm PST
Willie-Sue, April 17, 1989 3:57:09 pm PDT
Returns next token. This scanner
(1) ignores leading blanks,
(2) returns a quoted token intact (excluding the quotes),
(3) returns an unquoted token delimited by a blank (not included) or switchchar (included in next token), the default switchchar is '-
(4) returns NIL at CR or end of file.
(5) if the switchchar is '- then it must be preceded by a blank
delimiter for token: either blank, meaning blank
or switchchar (usually '-),
or '", or '", meaning '" not followed by another '".
'/l also delimits a line
ch now contains a character to be included in the token
 Э╩{  ХNewlineDelimiter
Щ codeЩKЪЬ
╧eЬOЩZKЩ)KЩ0KЩBKЩ)KШ ЧЪ╧k	Ш	KЪЬ
ЮЬ
ШKЪЬЮЬ#Ш5KЪ
ЮЬЮЬFЮЬЮЬЮЬШjKЪЬЮЬkШKЪЬЮЬЮЬШ'ЧheadЪЬЬЮЬЮШ!KЪЮЬЮЬШЪЮЬШKЪЮЬШKШ ЧKЪ╧nЬЮЬЮЬЮЬШ&KЪЯЬЮЬЮЬШKШ ЪЬЮЬЮЬШKЪЬЮЬ╧c,Ш;KЪЬЮЬаШ!KЪЬЮЬЮЬаШ=KЪЬЮЬЮЬа"Ш4KЪЬЮЬЮЬаШ1KШKШ ЧKЪЬЮЬШ KЪЮЬЮЬЮЬШKЪЮЬЮЬЮЬЮЬШШ KШ ЧЧЪЯЬЮЬЮЬЮЬЮЬ(ЮЬ	ШГKЪЬЮЬ
ЮЬ	ШKЪЬ&ЮЬ)ШSKШKШЪЮШKЪЬ7ЮЬШBKЪЮЬ
ЮЬЮЬЮЬШKШKЪЬЮЬШKЪЮЬШЧKЪЮЬ1Ш6KШKШ ЧЪЯЬЮЬЮЬ	ЮЬ!ШEЪЬ Щ KЪЬЩKЪЬ9Щ9KЪЬЖЩЖKЪЬЮЬЮЬЩ%KЪЬ?Щ?ЧKЪЬ	ЮЬЮЬШЪЬЮЬШKЪЬ0Щ0KЪЬЩKЪЬ4Щ4KШ ЧKЪ
ЮЬЮЬЮЬЮЬЮЬШ=KЩKЪЮЬ
ЮЬЮЬЮЬЮЬ
ЮЬШGKШKШЪЮЬЮЬаZ╨cuа9ЬШкKЪЬ
ЮЬЮЬШKЪЬШKЪ	ЬЮЬЮЬЮЬЮЬШ]KЪЬЮЬШ%KШ-KШKЪЮЬШЧЪЮШKЪЮЬ
ЮЬЮЬЮЬЮЬЮЬЮЬШOЪЮЬЮШЪЬЮЬЮШKЪ	ЬЮЬЮЬЮЬЮЬШ+KЪЬЮЬЮЬ	ЮЬЮЬЮЬШ5KЪЮЬШЧЪЬЮЬЮШKЪЬЮЬЮЬЮЬЮЬЮЬШ5KЪЮЬШЧKЪЮЬЮЬШЧKЪЬ7Щ7KЪ
ЮЬЮЬЮЬЮЬЮЬШ)KЪЮЬШKЪ
ЮЬЮЬЮЬЮЬЮЬШ ЪЮШKЪЮЬЮЬЮЬЮЬШ2ЧKЪЮЬШЧKЪ
ЮЬЮЬЮЬЮЬ
ЮЬШ,KЪЬ!ЮЬ
ЮЬЮЬШKKЪЬЮЬШ&KЪЮЬШKШ ЧЪ
ЯЬЮЬЮЬ	ЮЬЮЬШ0KЪЮЬ&ЮЬЮЬЮЬШ6KШ-KЪЬЮЬШ$KЪЮЬЮЬШЪЮШЪЮЬШKЪЬЮЬШKШKЪЮЬЮЬШKШЧЧKЪЬШKШ ЧЪ
ЯЬЮЬЮЬЮЬЮЬ%ШnKЪЬЮЬШ#KЪЬЮЬШKШHKЪЬЮЬ)Ш3ЪЮЬЮЬЮЬЮШKШKШKЪЮЬШЧKЪЮЬШKШ ЧЪЯЬЮЬЮЬ#ЮЬ(ШsKЪЬЮЬ,Ш6KЪ
ЮЬЮЬЮЬЮЬЮЬШBKЪЮЬШKШ ЧЪЯЬЮЬЮЬ!ЮЬЮЬЮЬЮЬШ`KЪ	ЬЮЬЮЬЮЬЮЬШЪЮЬЮЬЮЬЮШ0KЪ	ЬЮЬЮЬЮЬЮЬШ,KЪЮЬЮЬЮЬЮЬШ3KШKЪЮЬШЧKЪЮЬШЧJШЧ ЕЧ    ╛  │  