INTERFACE CalcTokStd;

generated by kext

IMPORT CalcTok;
TYPE
  LETTER = CalcTok.LETTER BRANDED "CalcTokStd.LETTER" OBJECT
    val: CHAR
  END;
  DIGIT = CalcTok.DIGIT BRANDED "CalcTokStd.DIGIT" OBJECT
    val: INTEGER
  END;

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