source: to-imperative/trunk/library/StdIO/refal/StdIO.rfi @ 2017

Last change on this file since 2017 was 2017, checked in by orlov, 15 years ago
  • rfi file is needed here for compiling.
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 1018 bytes
Line 
1$channel StdIn StdOut StdErr;
2
3$func  Channel        = s.Channel;
4$func? Open-File      s.Channel e.FileName s.Mode = ;
5$func  Close-Channel  s.Channel = ;
6
7$func Parse-File-Name e.FileName = s.DriveWord s.PathWord s.NameWord s.ExtWord;
8$func? Erase-File     e.FileName = ;
9
10$func? EOF?        s.Channel = ;
11
12$func? Read        = t.Term;
13$func? Read-Char   = s.Char;
14$func? Read-Line   = e.Char;
15$func  Write       e.Expr = ;
16$func  WriteLN     e.Expr = ;
17$func  Print       e.Expr = ;
18$func  PrintLN     e.Expr = ;
19
20$func? Read!       s.Channel = t.Term;
21$func? Read-Char!  s.Channel = s.Char;
22$func? Read-Line!  s.Channel = e.Char;
23$func  Write!      s.Channel e.Expr = ;
24$func  WriteLN!    s.Channel e.Expr = ;
25$func  Print!      s.Channel e.Expr = ;
26$func  PrintLN!    s.Channel e.Expr = ;
27$func  Flush!      s.Channel = ;
28
29$func? Prim-Open-File s.channel e.file s.mode = ;
30$func  Prim-Close-Channel s.channel = ;
31
32$func? Prim-Read s.channel s.n = e.chars;
33
34//FIXME: should be a box?
35$const Read-Chunk-Size = 64;
36
Note: See TracBrowser for help on using the repository browser.