| 1 | // |
|---|
| 2 | // Copyright (C) 1999, 2000 Refal+ Development Group |
|---|
| 3 | // |
|---|
| 4 | // Refal+ is free software; you can redistribute it and/or modify |
|---|
| 5 | // it under the terms of the GNU General Public License as published by |
|---|
| 6 | // the Free Software Foundation; either version 2 of the License, or |
|---|
| 7 | // (at your option) any later version. |
|---|
| 8 | // |
|---|
| 9 | // Refal+ is distributed in the hope that it will be useful, |
|---|
| 10 | // but WITHOUT ANY WARRANTY; without even the implied warranty of |
|---|
| 11 | // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
|---|
| 12 | // GNU General Public License for more details. |
|---|
| 13 | // |
|---|
| 14 | // You should have received a copy of the GNU General Public License |
|---|
| 15 | // along with Refal+; if not, write to the Free Software |
|---|
| 16 | // Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA |
|---|
| 17 | // |
|---|
| 18 | // $Source$ |
|---|
| 19 | // $Revision: 1825 $ |
|---|
| 20 | // $Date: 2005-12-29 01:57:15 +0000 (Thu, 29 Dec 2005) $ |
|---|
| 21 | // Author: Andrey Slepuhin <pooh@msu.ru> |
|---|
| 22 | |
|---|
| 23 | $const RFP-Dir-Separator = '/' ; |
|---|
| 24 | $const RFP-Root = '/usr' ; |
|---|
| 25 | $const RFP-Default-Include-Path = ('/usr/include/refal-plus') |
|---|
| 26 | ('/usr/local/include/refal-plus') ; |
|---|
| 27 | $box RFP-Boot-Path ; |
|---|
| 28 | $box RFP-Include-Path ; |
|---|
| 29 | $box RFP-Token-Stack ; |
|---|
| 30 | |
|---|
| 31 | $func Main = e ; |
|---|
| 32 | $func RFP-Pretty-Print s.channel (e.indent) e.expr = ; |
|---|
| 33 | //$func RFP-Print-Program e.program = ; |
|---|
