kyacclib/src/SymListParse.m3


 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.