// $Id$

$func Stream     s.func e.args = stream;
$func Expr_Open  expr          = stream;
$func File_Open  e.filename    = stream;
$func File_Close stream        = ;
$func StdIStream               = stream;

//X/*
$func? Getc           stream         = term;
$func? Gets           stream s.n     = expr;
$func  Ungets         stream expr    = ;
$func  Scanc          stream t1      = empty_or_t1;
$func  Get_Delim      stream t.delim = expr;
$func  Get_Line       stream         = expr;
$func  Get_While      stream s.pred  = expr;
$func? IsEnd_of_Stream stream         = ;
//X*/

//X$include IStream;