source: to-imperative/trunk/java/refal/refal/plus/Convert.rf @ 3989

Last change on this file since 3989 was 3752, checked in by yura, 13 years ago
  • Variables name in functions format are more accurate.
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 604 bytes
Line 
1// $Id: Convert.rf 3752 2008-04-20 12:09:20Z orlov $
2
3$use "Lexer";
4$use "Stream";
5$use "refal.plus.internal.Convert";
6
7CharsToBytes e.Char = <"internal.Convert.CharsToBytes" e.Char>;
8BytesToChars e.Int  = <"internal.Convert.BytesToChars"  e.Int>;
9ToLower e.Char = <"internal.Convert.ToLower" e.Char>;
10ToUpper e.Char = <"internal.Convert.ToUpper" e.Char>;
11
12ToInt e.Exp = <"internal.Convert.ToInt" e.Exp>;
13ToChars e.Exp = <"internal.Convert.ToChars" e.Exp>;
14ToWord e.Exp = <"internal.Convert.ToWord" e.Exp>;
15
16Read_Expr expr =
17  <Expr_Open <ToChars expr>> :: stream,
18  $iter e.res <IsRead_Term stream> :: e.res,
19  <IsEnd_of_Stream stream> =
20  e.res;
21
Note: See TracBrowser for help on using the repository browser.