[gforth] / gforth / gforthmi.bat  

gforth: gforth/gforthmi.bat

1 : anton 1.1 @ECHO OFF
2 :     REM Copyright (C) 1997 Free Software Foundation, Inc.
3 :    
4 :     REM This file is part of Gforth.
5 :    
6 :     REM Gforth is free software; you can redistribute it and/or
7 :     REM modify it under the terms of the GNU General Public License
8 :     REM as published by the Free Software Foundation; either version 2
9 :     REM of the License, or (at your option) any later version.
10 :    
11 :     REM This program is distributed in the hope that it will be useful,
12 :     REM but WITHOUT ANY WARRANTY; without even the implied warranty of
13 :     REM MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.REM See the
14 :     REM GNU General Public License for more details.
15 :    
16 :     REM You should have received a copy of the GNU General Public License
17 :     REM along with this program; if not, write to the Free Software
18 :     REM Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
19 :    
20 :     if not "%1"=="" goto makeit
21 :     if not "%1"=="--help" goto makeit
22 :     if not "%1"=="-h" goto makeit
23 :     echo usage: gforth-makeimage target-name [gforth-options]
24 :     echo environment: GFORTHD: the Gforth binary used (default: gforth-ditc)
25 :     echo creates a relocatable image 'target-name'
26 :     goto end
27 :     :makeit
28 :     set outfile=%1
29 :     shift
30 :     if not "%GFORTHD%"=="" goto doit
31 :     set GFORTHD=gforth-d
32 :     :doit
33 :     %GFORTHD% --clear-dictionary --no-offset-im %1 %2 %3 %4 %5 -e "savesystem tmp.fi1 bye"
34 :     %GFORTHD% --clear-dictionary --offset-image %1 %2 %3 %4 %5 -e "savesystem tmp.fi2 bye"
35 :     %GFORTHD% -i kernel.fi startup.fs comp-i.fs -e "comp-image tmp.fi1 tmp.fi2 %outfile% bye"
36 :     del tmp.fi1
37 :     del tmp.fi2
38 :     :end
CVS Admin

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help