// $Id$

$use "Lexer";
$use "Stream";
$use "refal.plus.internal.Convert";

CharsToBytes e.Char = <"internal.Convert.CharsToBytes" e.Char>;
BytesToChars e.Int  = <"internal.Convert.BytesToChars"  e.Int>;
ToLower e.Char = <"internal.Convert.ToLower" e.Char>;
ToUpper e.Char = <"internal.Convert.ToUpper" e.Char>;

ToInt e.Exp = <"internal.Convert.ToInt" e.Exp>;
ToChars e.Exp = <"internal.Convert.ToChars" e.Exp>;
ToWord e.Exp = <"internal.Convert.ToWord" e.Exp>;

Read_Expr expr =
  <Expr_Open <ToChars expr>> :: stream,
  $iter e.res <IsRead_Term stream> :: e.res,
  <IsEnd_of_Stream stream> =
  e.res;