Copyright (c) 2000 California Institute of Technology
All rights reserved. See the file COPYRIGHT for a full description.
$Id: SymListParse.m3.html,v 1.3 2010-04-29 17:18:53 wagner Exp $
MODULE SymListParse;
IMPORT FileRdErr;
IMPORT Rd, SymList;
IMPORT CharRange;
IMPORT CharCodes;
IMPORT Thread;
IMPORT Sym;
IMPORT Text;
IMPORT Term;
<*FATAL Rd.Failure, Thread.Alerted*>
PROCEDURE BackGetName(rd: Rd.T): TEXT =
VAR
name := "";
BEGIN
Rd.UnGetChar(rd);
TRY
WHILE Rd.GetChar(rd) IN CharRange.AlphaNum DO
Rd.UnGetChar(rd);
name := name & Rd.GetText(rd, 1);
Rd.UnGetChar(rd);Term.WrLn(append char:
& Rd.GetText(rd,1));
END;
Rd.UnGetChar(rd);
EXCEPT
Rd.EndOfFile =>
END;
RETURN name;
END BackGetName;
PROCEDURE Parse(rd: Rd.T;
allowedChars: CharRange.T): SymList.T =
VAR
sym: Sym.T;
syms: SymList.T;
c: CHAR;
BEGIN
Term.WrLn(Enter Parse.
);
TRY
WHILE TRUE DO
Term.WrLn(Next Item.
);
WHILE Rd.GetChar(rd) IN CharRange.WhiteSpace DO
Term.WrLn(Skip blank.
);
END;
Rd.UnGetChar(rd);
CASE Rd.GetChar(rd) OF
| '\047' =>
c := CharCodes.GetChar(rd);
IF NOT c IN allowedChars THEN
FileRdErr.E(rd, "Not declared %char: " & CharCodes.QC(c));
END;
sym := Sym.FromChar(c);
EVAL Rd.GetChar(rd);
| '\n' =>
Term.WrLn(EOL
);
RAISE Rd.EndOfFile;
ELSE
Rd.UnGetChar(rd);Term.WrLn(tested char:
& Rd.GetText(rd,1));
sym := Sym.FromText(BackGetName(rd));
IF Text.Equal(Sym.GetName(sym),
) THEN
Rd.UnGetChar(rd);
Term.WrLn(Got:
& Rd.GetText(rd,1));
END;
END;
syms := SymList.Cons(sym, syms);
END;
EXCEPT
Rd.EndOfFile =>
END;
RETURN SymList.ReverseD(syms);
END Parse;
BEGIN
END SymListParse.