Annotation of gforth/gforth-makeimage.cmd, revision 1.1
1.1 ! anton 1: /*
! 2: Copyright 1997 Free Software Foundation, Inc.
! 3:
! 4: This file is part of Gforth.
! 5:
! 6: Gforth is free software; you can redistribute it and/or
! 7: modify it under the terms of the GNU General Public License
! 8: as published by the Free Software Foundation; either version 2
! 9: of the License, or (at your option) any later version.
! 10:
! 11: This program is distributed in the hope that it will be useful,
! 12: but WITHOUT ANY WARRANTY; without even the implied warranty of
! 13: MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
! 14: GNU General Public License for more details.
! 15:
! 16: You should have received a copy of the GNU General Public License
! 17: along with this program; if not, write to the Free Software
! 18: Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
! 19: */
! 20: parse arg args
! 21:
! 22: if args \== "" then do
! 23: parse var args arg args
! 24: select
! 25: when arg = "--help" then dohelp=1
! 26: when arg = "-h" then dohelp=1
! 27: otherwise dohelp=0
! 28: end
! 29: end
! 30: else
! 31: dohelp=1
! 32:
! 33: if dohelp then do
! 34: say "usage: gforth-makeimage target-name [gforth-options]"
! 35: say " environment: GFORTHD: the Gforth binary used (default: gforth-ditc)"
! 36: say "creates a relocatable image 'target-name'"
! 37: exit 1
! 38: end
! 39:
! 40: 'gforth-ditc' '-p' '.' '--clear-dictionary' '--no-offset-im' args '-e' '"savesystem tmp.fi1 bye"'
! 41: 'gforth-ditc' '-p' '.' '--clear-dictionary' '--offset-image' args '-e' '"savesystem tmp.fi2 bye"'
! 42: 'gforth-ditc' '-p' '.' '-i' 'kernel.fi' 'startup.fs' 'comp-image.fs' '-e' '"comp-image tmp.fi1 tmp.fi2 'arg' bye"'
! 43: del tmp.fi1
! 44: del tmp.fi2
! 45:
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>