source: to-imperative/trunk/library/Stream/refal/Stream.rfi @ 1643

Last change on this file since 1643 was 1643, checked in by orlov, 16 years ago
  • Some parts of the library written in Refal.
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 550 bytes
Line 
1// $Id: Stream.rfi 1643 2004-12-10 02:51:39Z orlov $
2
3$func Stream     s.func e.args = stream;
4$func Expr-Open  expr          = stream;
5$func File-Open  e.filename    = stream;
6$func File-Close stream        = ;
7$func StdIStream               = stream;
8
9//X/*
10$func? Getc           stream         = term;
11$func? Gets           stream s.n     = expr;
12$func  Ungets         stream expr    = ;
13$func  Get-Delim      stream t.delim = expr;
14$func  Get-Line       stream         = expr;
15$func  Get-While      stream s.pred  = expr;
16$func? End-of-Stream? stream         = ;
17//X*/
18
19//X$include IStream;
Note: See TracBrowser for help on using the repository browser.