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

Diff for /gforth/gforthmi.cmd between versions 1.1 and 1.2

version 1.1, 1997/05/21 20:39:30 version 1.2, 2000/09/23 15:46:56
Line 1 Line 1
 /*  /*
 Copyright 1997 Free Software Foundation, Inc.  Copyright 1997 Free Software Foundation, Inc.
   
 This file is part of Gforth.  This file is part of Gforth.
   
 Gforth is free software; you can redistribute it and/or  Gforth is free software; you can redistribute it and/or
 modify it under the terms of the GNU General Public License  modify it under the terms of the GNU General Public License
 as published by the Free Software Foundation; either version 2  as published by the Free Software Foundation; either version 2
 of the License, or (at your option) any later version.  of the License, or (at your option) any later version.
   
 This program is distributed in the hope that it will be useful,  This program is distributed in the hope that it will be useful,
 but WITHOUT ANY WARRANTY; without even the implied warranty of  but WITHOUT ANY WARRANTY; without even the implied warranty of
 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 GNU General Public License for more details.  GNU General Public License for more details.
   
 You should have received a copy of the GNU General Public License  You should have received a copy of the GNU General Public License
 along with this program; if not, write to the Free Software  along with this program; if not, write to the Free Software
 Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111, USA.
 */  */
 parse arg args  parse arg args
   
 if args \== "" then do  if args \== "" then do
     parse var args arg args      parse var args arg args
     select      select
         when arg = "--help" then dohelp=1          when arg = "--help" then dohelp=1
         when arg = "-h" then dohelp=1          when arg = "-h" then dohelp=1
         otherwise dohelp=0          otherwise dohelp=0
     end      end
   end    end
 else  else
     dohelp=1      dohelp=1
   
 if dohelp then do  if dohelp then do
   say "usage: gforth-makeimage target-name [gforth-options]"    say "usage: gforth-makeimage target-name [gforth-options]"
   say "  environment: GFORTHD: the Gforth binary used (default: gforth-ditc)"    say "  environment: GFORTHD: the Gforth binary used (default: gforth-ditc)"
   say "creates a relocatable image 'target-name'"    say "creates a relocatable image 'target-name'"
   exit 1    exit 1
 end  end
   
 'gforth-ditc' '-p' '.' '--clear-dictionary' '--no-offset-im' args '-e' '"savesystem tmp.fi1 bye"'  'gforth-ditc' '-p' '.' '--clear-dictionary' '--no-offset-im' args '-e' '"savesystem tmp.fi1 bye"'
 'gforth-ditc' '-p' '.' '--clear-dictionary' '--offset-image' args '-e' '"savesystem tmp.fi2 bye"'  'gforth-ditc' '-p' '.' '--clear-dictionary' '--offset-image' args '-e' '"savesystem tmp.fi2 bye"'
 'gforth-ditc' '-p' '.' '-i' 'kernel.fi' 'startup.fs' 'comp-i.fs' '-e' '"comp-image tmp.fi1 tmp.fi2 'arg' bye"'  'gforth-ditc' '-p' '.' '-i' 'kernel.fi' 'startup.fs' 'comp-i.fs' '-e' '"comp-image tmp.fi1 tmp.fi2 'arg' bye"'
 del tmp.fi1  del tmp.fi1
 del tmp.fi2  del tmp.fi2
   
   
Removed from v.1.1  
changed lines
  Added in v.1.2

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