[BACK]Return to gforthmi.bat CVS log [TXT] [DIR] Up to [gforth] / gforth

Diff for /gforth/gforthmi.bat between versions 1.3 and 1.10

version 1.3, 1998/12/20 23:17:55 version 1.10, 2007/12/31 19:02:24
Line 1 Line 1
 REM @ECHO OFF  REM @ECHO OFF
 REM Copyright (C) 1997-1998 Free Software Foundation, Inc.  REM Copyright (C) 1997-1998,2000,2003,2007 Free Software Foundation, Inc.
   
 REM This file is part of Gforth.  REM This file is part of Gforth.
   
 REM Gforth is free software; you can redistribute it and/or  REM Gforth is free software; you can redistribute it and/or
 REM modify it under the terms of the GNU General Public License  REM modify it under the terms of the GNU General Public License
 REM as published by the Free Software Foundation; either version 2  REM as published by the Free Software Foundation, either version 3
 REM of the License, or (at your option) any later version.  REM of the License, or (at your option) any later version.
   
 REM This program is distributed in the hope that it will be useful,  REM This program is distributed in the hope that it will be useful,
Line 17  REM You should have received a copy of t Line 17  REM You should have received a copy of t
 REM along with this program; if not, write to the Free Software  REM along with this program; if not, write to the Free Software
 REM Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  REM Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
   
 if not "%1"=="" goto makeit  if not x%1==x goto makeit
 if not "%1"=="--help" goto makeit  if not x%1==x--help goto makeit
 if not "%1"=="-h" goto makeit  if not x%1==x-h goto makeit
   echo usage: gforth-makeimage target-name [gforth-options]    echo usage: gforthmi target-name [gforth-options]
   echo   environment: GFORTHD: the Gforth binary used (default: gforth-d)  
   echo creates a relocatable image 'target-name'    echo creates a relocatable image 'target-name'
   goto end    goto end
 :makeit  :makeit
 set outfile=%1  set outfile=%1
 shift  shift
 if not "%GFORTHD%"=="" goto doit  set GFORTHPAR=
 set GFORTHD=gforth-d  :accupars
 :doit  if x%1==x goto accudone
   set GFORTHPAR=%GFORTHPAR% %1
   shift
   goto accupars
   :accudone
 echo savesystem tmp.fi1 bye >tmp.fs  echo savesystem tmp.fi1 bye >tmp.fs
 %GFORTHD% --clear-dictionary --no-offset-im %1 %2 %3 %4 %5 %6 tmp.fs  gforth-d -c -n %GFORTHPAR% tmp.fs
 echo savesystem tmp.fi2 bye >tmp.fs  echo savesystem tmp.fi2 bye >tmp.fs
 %GFORTHD% --clear-dictionary --offset-image %1 %2 %3 %4 %5 %6 tmp.fs  gforth-d -c -o %GFORTHPAR% tmp.fs
 echo comp-image tmp.fi1 tmp.fi2 %outfile% bye >tmp.fs  echo comp-image tmp.fi1 tmp.fi2 %outfile% bye >tmp.fs
 %GFORTHD% -i kernl32l.fi startup.fs  comp-i.fs tmp.fs  gforth-d -i kernl32l.fi -e 3 exboot.fs startup.fs  comp-i.fs tmp.fs
 del tmp.fs  del tmp.fs
 del tmp.fi1  del tmp.fi1
 del tmp.fi2  del tmp.fi2
Removed from v.1.3  
changed lines
  Added in v.1.10

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>