INTERFACECalcParseStd ;
generated by kextextended parser definition
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.