INTERFACE CalcParseStd;

generated by kext

IMPORT CalcTokStd;
IMPORT CalcParse;
TYPE
  expr = CalcParse.expr BRANDED "CalcParseStd.expr" OBJECT
    val: INTEGER
  END;
  number = CalcParse.number BRANDED "CalcParseStd.number" OBJECT
    val: INTEGER
  END;
  list = CalcParse.list;
  DIGIT = CalcTokStd.DIGIT;
  stat = CalcParse.stat;
  LETTER = CalcTokStd.LETTER;

  T <: Public;
  Public = CalcParse.T OBJECT
  END;

  (* And now, for a hack to allow compatible methods *)
  (* ... without importing the original parser *)
  Original_Parser = CalcParse.Original_Parser;
  Original_expr = CalcParse.Original_expr;
  Original_list = CalcParse.Original_list;
  Original_number = CalcParse.Original_number;
  Original_stat = CalcParse.Original_stat;
  (* ... and without importing the original token *)
  Original_LETTER = CalcParse.Original_LETTER;
  Original_DIGIT = CalcParse.Original_DIGIT;

  (* Make this interface as good as any token interface *)
  Token = CalcTokStd.Token;
  ConstToken = CalcTokStd.ConstToken;
  ParseType = CalcTokStd.ParseType;
  Allocator = CalcTokStd.Allocator;
  Lexer = CalcTokStd.Lexer;
  RdLexer = CalcTokStd.RdLexer;
CONST
  NewPT = CalcTokStd.NewPT;
  Purge = CalcTokStd.Purge;
  NewConstToken = CalcTokStd.NewConstToken;
END CalcParseStd.