source: to-imperative/trunk/compiler/rfp_src.rf @ 1825

//
// Copyright (C) 1999, 2000 Refal+ Development Group
//
// Refal+ is free software; you can redistribute it and/or modify
// it under the terms of the GNU General Public License as published by
// the Free Software Foundation; either version 2 of the License, or
// (at your option) any later version.
//
// Refal+ is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
// GNU General Public License for more details.
//
// You should have received a copy of the GNU General Public License
// along with Refal+; if not, write to the Free Software
// Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
//
// $Source$
// $Revision: 1825 $
// $Date: 2005-12-29 01:57:15 +0000 (Thu, 29 Dec 2005) $
// Author: Andrey Slepuhin <pooh@msu.ru>

// rfp_src.rfi
$use "rfpc" ; // rfpc.rfi

$use StdIO ;
$use Apply ;
$use Arithm ;
$use Table ;

RFP-Src-Open-File e.filename =
  <Channel> :: s.chl,
  <Open-File s.chl e.filename "r">,
  FILE &RFP-Get-Line-From-File (e.filename) (s.chl);

RFP-Src-Close s.srctype s.getline-func (e.name) (e.src) =
  s.srctype :
  {
    FILE = e.src : s.channel, <Close-Channel s.channel>;
    STDIN = ;
  };

RFP-Src-Open-StdIN =
  STDIN &RFP-Get-Line-From-File ('StdIN') ();

RFP-Get-Line-From-File s.channel =
  <Read-Line! s.channel>;

RFP-Get-Line-From-StdIN e =
  <Read-Line>;

RFP-Src-Get-Line e.source =
  e.source : s.srctype s.getline-func (e.name) (e.src),
  <Apply s.getline-func e.src>;

RFP-Next-Row s.row s.col =
  <"+" s.row 1> 1;

RFP-Next-Column s.row s.col =
  s.row <"+" s.col 1>;

RFP-Source-File-Name s.idx =
  <Lookup &RFP-Sources s.idx>;

RFP-Dir-Name {
  $r e.base &RFP-Dir-Separator e = e.base;
  e = '.';
};

RFP-File-Name {
  $r e &RFP-Dir-Separator e.file = e.file;
  e.file  = e.file;
};

RFP-Module-Name e.path =
  <RFP-File-Name e.path> :: e.file,
  {
    e.file : $r e.module '.' e = e.module;
    e.file;
  };