gforth/gforthmi.bat - diff

Return to gforthmi.bat CVS log

Up to [gforth] / gforth

version 1.1, 1997/05/21 20:39:29	version 1.2, 1998/12/13 23:29:59
Line 1	Line 1
@ECHO OFF	REM @ECHO OFF
REM Copyright (C) 1997 Free Software Foundation, Inc.	REM Copyright (C) 1997 Free Software Foundation, Inc.

REM This file is part of Gforth.	REM This file is part of Gforth.
Line 30 shift	Line 30 shift
if not "%GFORTHD%"=="" goto doit	if not "%GFORTHD%"=="" goto doit
set GFORTHD=gforth-d	set GFORTHD=gforth-d
:doit	:doit
%GFORTHD% --clear-dictionary --no-offset-im %1 %2 %3 %4 %5 -e "savesystem tmp.fi1 bye"	echo savesystem tmp.fi1 bye >tmp.fs
%GFORTHD% --clear-dictionary --offset-image %1 %2 %3 %4 %5 -e "savesystem tmp.fi2 bye"	%GFORTHD% --clear-dictionary --no-offset-im %1 %2 %3 %4 %5 %6 tmp.fs
%GFORTHD% -i kernel.fi startup.fs comp-i.fs -e "comp-image tmp.fi1 tmp.fi2 %outfile% bye"	echo savesystem tmp.fi2 bye >tmp.fs
	%GFORTHD% --clear-dictionary --offset-image %1 %2 %3 %4 %5 %6 tmp.fs
	echo comp-image tmp.fi1 tmp.fi2 %outfile% bye >tmp.fs
	%GFORTHD% -i kernl32l.fi startup.fs comp-i.fs tmp.fs
	del tmp.fs
del tmp.fi1	del tmp.fi1
del tmp.fi2	del tmp.fi2
:end	:end