Commit 1e1aa248 authored by anton's avatar anton

added copyright headers

changes to loadfilename & co. to make savesystem transparent to
 assertions and ~~
parent cd00d247
/*
Copyright 1992 by the ANSI figForth Development Group
This is a generic file for 32-bit machines with IEEE FP arithmetic (no VMS).
It only supports indirect threading.
Copyright (C) 1995 Free Software Foundation, Inc.
This file is part of Gforth.
Gforth is free software; you can redistribute it and/or
modify it under the terms of the GNU General Public License
as published by the Free Software Foundation; either version 2
of the License, or (at your option) any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
*/
/* Cell and UCell must be the same size as a pointer */
......
/*
Copyright 1992 by the ANSI figForth Development Group
This is the machine-specific part for Intel 386 compatible processors
Copyright (C) 1995 Free Software Foundation, Inc.
This file is part of Gforth.
Gforth is free software; you can redistribute it and/or
modify it under the terms of the GNU General Public License
as published by the Free Software Foundation; either version 2
of the License, or (at your option) any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
*/
#include "32bit.h"
......
......@@ -67,19 +67,19 @@ You need to read this only if you see a message like
"gforth: Cannot load nonrelocatable image (compiled for address 0x1234) at address 0x5678
The Gforth installer should look into the INSTALL file"
Gforth supports relocatable and fixed-address images. If you load
Gforth supports both relocatable and fixed-address images. If you load
normal Forth code and save the image, you get a fixed-address
image. Producing a relocatable image is more difficult.
Consequently, Gforth has only a relocatable image of the kernel
Therefore, Gforth has only a relocatable image of the kernel
(kernal.fi), which is powerful enough to load the rest of
Gforth. However, loading the rest takes a noticable amount of time. To
avoid this delay on every startup,the installation procedure produces
an image fixed at an address determined at the Gforth run that
produced the image. This fixed-address image is loaded by default. On
most OSs this works, because the first chunk of memory is always
allocated at the same address. If the address changes, you get the
message above.
avoid this delay (which would occur on every startup), the
installation procedure produces an image fixed at an address
determined at the Gforth run that produced the image. This
fixed-address image is loaded by default. On most OSs this works,
because the first chunk of memory is always allocated at the same
address. If the address changes, you get the message above.
An image address change can be caused by a change of the gforth
executable, or by a change (upgrade) of the OS; in these cases you
......
#Copyright 1992 by the ANSI figForth Development Group
#Makefile for Gforth
#Copyright (C) 1995 Free Software Foundation, Inc.
#This file is part of Gforth.
#Gforth is free software; you can redistribute it and/or
#modify it under the terms of the GNU General Public License
#as published by the Free Software Foundation; either version 2
#of the License, or (at your option) any later version.
#This program is distributed in the hope that it will be useful,
#but WITHOUT ANY WARRANTY; without even the implied warranty of
#MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.#See the
#GNU General Public License for more details.
#You should have received a copy of the GNU General Public License
#along with this program; if not, write to the Free Software
#Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
# To change the values of `make' variables: instead of editing Makefiles,
# (1) if the variable is set in `config.status', edit `config.status'
# (which will cause the Makefiles to be regenerated when you run `make');
......@@ -21,7 +40,7 @@ FORTH = ./gforth
FORTHK = $(FORTH) -p . -i kernal.fi
STRIP = strip
TEXI2DVI = texi2dvi
DVI2PS = dvips
DVI2PS = dvips -D300
#you can get texi2html from http://asis01.cern.ch/infohtml/texi2html.html
TEXI2HTML = texi2html
MAKEINFO = makeinfo
......@@ -50,7 +69,7 @@ infodir = $(prefix)/info
mandir = $(prefix)/man/man1
INCLUDES = forth.h threading.h io.h
INCLUDES = forth.h threading.h io.h io-dos.h
KERN_SRC = main.fs search-order.fs cross.fs aliases.fs vars.fs add.fs \
errore.fs kernal.fs version.fs extend.fs tools.fs toolsext.fs
......@@ -61,7 +80,7 @@ FORTH_SRC = anslocal.fs add.fs assert.fs ansi.fs answords.fs blocks.fs bufio.fs
float.fs glocals.fs glosgen.fs gray.fs hash.fs history.fs \
kernal.fs locals-test.fs look.fs main.fs makedoc.fs \
mach16b.fs mach16l.fs mach32b.fs mach32l.fs mach64b.fs mach64l.fs \
other.fs prims2x.fs random.fs search-order.fs see.fs sieve.fs \
other.fs prims2x.fs random.fs search-order.fs see.fs sieve.fs source.fs \
startup.fs struct.fs tools.fs toolsext.fs tt.fs vars.fs vt100.fs \
vt100key.fs wordinfo.fs wordsets.fs \
tester.fs coretest.fs
......@@ -90,6 +109,8 @@ FORTH_GEN = $(FORTH_GEN0) @KERNAL@ gforth.fi
# this is used for antidependences,
FORTH_GEN1 = $(FORTH_GEN0) @kernal_fi@
#distributed documentation
DOCDIST = gforth.texi gforth.fns gforth.ps gforth.info*
KERNLS = kernl16b.fi+ kernl16l.fi+ \
kernl32b.fi+ kernl32l.fi+ \
......@@ -129,10 +150,10 @@ distclean: clean
realclean: distclean
-$(RM) $(GEN_PRECIOUS)
dist: $(SOURCES) $(FORTH_GEN)
dist: $(SOURCES) $(FORTH_GEN) $(DOCDIST)
-rm -rf gforth-$(VERSION)
mkdir gforth-$(VERSION)
cp -p $(SOURCES) $(FORTH_GEN) gforth-$(VERSION)
cp -p $(SOURCES) $(FORTH_GEN0) @KERNAL@ $(DOCDIST) gforth-$(VERSION)
tar cvf - gforth-$(VERSION)|gzip -9 >gforth-$(VERSION).tar.gz
-rm -rf gforth-$(VERSION)
......@@ -183,7 +204,7 @@ test: gforth
@echo 'Expect to see INCORRECT RESULT: { GS1 -> <TRUE> <TRUE> }'
@echo 'This is a bug of the testing program'
$(FORTH) tester.fs coretest.fs -e bye
$(FORTH) startup.fs blocks.fs code.fs checkans.fs -e bye
$(FORTH) code.fs checkans.fs -e bye
@echo 'Expect no differences'
$(FORTH) prims2x.fs -e "s\" primitives.b\" ' output-c process-file bye"| diff -c - primitives.i
......@@ -242,7 +263,7 @@ kernl64l.fi: $(KERNLS)
-$(CP) kernl64l.fi+ kernl64l.fi
@LINK_KERNL64L@
gforth.fi: @kernal_fi@ gforth startup.fs glocals.fs search-order.fs hash.fs float.fs debugging.fs environ.fs wordinfo.fs look.fs vt100.fs see.fs bufio.fs debug.fs history.fs vt100key.fs assert.fs blocks.fs struct.fs dumpimage.fs
gforth.fi: @kernal_fi@ gforth startup.fs glocals.fs search-order.fs hash.fs float.fs debugging.fs environ.fs wordinfo.fs look.fs vt100.fs see.fs bufio.fs debug.fs history.fs vt100key.fs assert.fs source.fs blocks.fs struct.fs dumpimage.fs
$(FORTHK) startup.fs dumpimage.fs -e "savesystem gforth.fi bye"
engine.s: engine.c primitives.i prim_labels.i machine.h threading.h $(INCLUDES)
......
\ ADD.FS Kernal additional things 20may93jaw
\ Copyright (C) 1995 Free Software Foundation, Inc.
\ This file is part of Gforth.
\ Gforth is free software; you can redistribute it and/or
\ modify it under the terms of the GNU General Public License
\ as published by the Free Software Foundation; either version 2
\ of the License, or (at your option) any later version.
\ This program is distributed in the hope that it will be useful,
\ but WITHOUT ANY WARRANTY; without even the implied warranty of
\ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
\ GNU General Public License for more details.
\ You should have received a copy of the GNU General Public License
\ along with this program; if not, write to the Free Software
\ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
\ linked list primitive
: linked here over @ a, swap ! ;
......
/* preliminary machine file for DEC Alpha */
/* Be carefully: long long on Alpha are 64 bit :-(( */
/* preliminary machine file for DEC Alpha
Copyright (C) 1995 Free Software Foundation, Inc.
This file is part of Gforth.
Gforth is free software; you can redistribute it and/or
modify it under the terms of the GNU General Public License
as published by the Free Software Foundation; either version 2
of the License, or (at your option) any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
*/
/* Be careful: long long on Alpha are 64 bit :-(( */
#ifdef DIRECT_THREADED
#undefine DIRECT_THREADED
......
\ ANSI.STR Define terminal attributes 20may93jaw
\ Copyright (C) 1995 Free Software Foundation, Inc.
\ This file is part of Gforth.
\ Gforth is free software; you can redistribute it and/or
\ modify it under the terms of the GNU General Public License
\ as published by the Free Software Foundation; either version 2
\ of the License, or (at your option) any later version.
\ This program is distributed in the hope that it will be useful,
\ but WITHOUT ANY WARRANTY; without even the implied warranty of
\ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
\ GNU General Public License for more details.
\ You should have received a copy of the GNU General Public License
\ along with this program; if not, write to the Free Software
\ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
\ If you want another terminal you can redefine
\ the colours.
......
\ This implements a subset of the gforth locals syntax in pure ANS Forth
\ This file is in the public domain. NO WARRANTY.
\ This implementation technique has been described by John Hayes in
\ the SigForth Newsletter 4(2), Fall '92. He did not do the complete
\ job, but left some more mundane parts as an exercise to the reader.
......
\ assertions
\ !! factor out line number printing, share with debugging.fs
\ Copyright (C) 1995 Free Software Foundation, Inc.
\ This file is part of Gforth.
\ Gforth is free software; you can redistribute it and/or
\ modify it under the terms of the GNU General Public License
\ as published by the Free Software Foundation; either version 2
\ of the License, or (at your option) any later version.
\ This program is distributed in the hope that it will be useful,
\ but WITHOUT ANY WARRANTY; without even the implied warranty of
\ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
\ GNU General Public License for more details.
\ You should have received a copy of the GNU General Public License
\ along with this program; if not, write to the Free Software
\ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
require source.fs
variable assert-level ( -- a-addr ) \ gforth
\G all assertions above this level are turned off
......@@ -31,16 +49,14 @@ variable assert-level ( -- a-addr ) \ gforth
POSTPONE assert1( ; immediate
: (endassert) ( flag -- ) \ gforth-internal
\ three inline arguments
\ inline argument sourcepos
if
r> 3 cells + >r EXIT
r> sourcepos drop + >r EXIT
else
r>
dup 2@ type ." :" cell+ cell+
@ 0 .r ." : failed assertion"
r> print-sourcepos ." : failed assertion"
true abort" assertion failed" \ !! or use a new throw code?
then ;
: ) ( -- ) \ gforth close-paren
\G end an assertion
POSTPONE (endassert) loadfilename 2@ 2, loadline @ , ; immediate
POSTPONE (endassert) sourcepos, ; immediate
\ A less simple implementation of the blocks wordset.
\ An more efficient implementation would use mmap on OSs that
\ Copyright (C) 1995 Free Software Foundation, Inc.
\ This file is part of Gforth.
\ Gforth is free software; you can redistribute it and/or
\ modify it under the terms of the GNU General Public License
\ as published by the Free Software Foundation; either version 2
\ of the License, or (at your option) any later version.
\ This program is distributed in the hope that it will be useful,
\ but WITHOUT ANY WARRANTY; without even the implied warranty of
\ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
\ GNU General Public License for more details.
\ You should have received a copy of the GNU General Public License
\ along with this program; if not, write to the Free Software
\ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
\ A more efficient implementation would use mmap on OSs that
\ provide it and many buffers on OSs that do not provide mmap.
\ Now, the replacement algorithm is "direct mapped"; change to LRU
......
\ BUFOUT.STR Buffered output for Debug 13jun93jaw
\ Copyright (C) 1995 Free Software Foundation, Inc.
\ This file is part of Gforth.
\ Gforth is free software; you can redistribute it and/or
\ modify it under the terms of the GNU General Public License
\ as published by the Free Software Foundation; either version 2
\ of the License, or (at your option) any later version.
\ This program is distributed in the hope that it will be useful,
\ but WITHOUT ANY WARRANTY; without even the implied warranty of
\ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
\ GNU General Public License for more details.
\ You should have received a copy of the GNU General Public License
\ along with this program; if not, write to the Free Software
\ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
CREATE O-Buffer 4000 chars allot align
VARIABLE O-PNT
......
/* cache flushing for the HP-PA architecture
Copyright (C) 1995 Free Software Foundation, Inc.
This file is part of Gforth.
Gforth is free software; you can redistribute it and/or
modify it under the terms of the GNU General Public License
as published by the Free Software Foundation; either version 2
of the License, or (at your option) any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
*/
void cacheflush(void * address, int size, int linewidth)
{
int i;
......
\ ASSEMBLER, CODE etc.
\ Copyright (C) 1995 Free Software Foundation, Inc.
\ This file is part of Gforth.
\ Gforth is free software; you can redistribute it and/or
\ modify it under the terms of the GNU General Public License
\ as published by the Free Software Foundation; either version 2
\ of the License, or (at your option) any later version.
\ This program is distributed in the hope that it will be useful,
\ but WITHOUT ANY WARRANTY; without even the implied warranty of
\ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
\ GNU General Public License for more details.
\ You should have received a copy of the GNU General Public License
\ along with this program; if not, write to the Free Software
\ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
\ does not include the actual assembler (which is machine-dependent),
\ only words like CODE that are implementation-dependent, but can be
\ defined for all machines.
......
\ COLORIZE.STR Coloured .NAME and WORDS 20may93jaw
\ Copyright (C) 1995 Free Software Foundation, Inc.
\ This file is part of Gforth.
\ Gforth is free software; you can redistribute it and/or
\ modify it under the terms of the GNU General Public License
\ as published by the Free Software Foundation; either version 2
\ of the License, or (at your option) any later version.
\ This program is distributed in the hope that it will be useful,
\ but WITHOUT ANY WARRANTY; without even the implied warranty of
\ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
\ GNU General Public License for more details.
\ You should have received a copy of the GNU General Public License
\ along with this program; if not, write to the Free Software
\ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
include ansi.fs
decimal
......
\ CROSS.FS The Cross-Compiler 06oct92py
\ $Id: cross.fs,v 1.29 1995-10-07 17:38:11 anton Exp $
\ Idea and implementation: Bernd Paysan (py)
\ Copyright 1992-94 by the GNU Forth Development Group
\ Copyright (C) 1995 Free Software Foundation, Inc.
\ This file is part of Gforth.
\ Gforth is free software; you can redistribute it and/or
\ modify it under the terms of the GNU General Public License
\ as published by the Free Software Foundation; either version 2
\ of the License, or (at your option) any later version.
\ This program is distributed in the hope that it will be useful,
\ but WITHOUT ANY WARRANTY; without even the implied warranty of
\ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
\ GNU General Public License for more details.
\ You should have received a copy of the GNU General Public License
\ along with this program; if not, write to the Free Software
\ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
\ Log:
\ changed in ; [ to state off 12may93jaw
......
\ DEBUG.FS Debugger 12jun93jaw
\ Copyright (C) 1995 Free Software Foundation, Inc.
\ This file is part of Gforth.
\ Gforth is free software; you can redistribute it and/or
\ modify it under the terms of the GNU General Public License
\ as published by the Free Software Foundation; either version 2
\ of the License, or (at your option) any later version.
\ This program is distributed in the hope that it will be useful,
\ but WITHOUT ANY WARRANTY; without even the implied warranty of
\ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
\ GNU General Public License for more details.
\ You should have received a copy of the GNU General Public License
\ along with this program; if not, write to the Free Software
\ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
decimal
VARIABLE IP \ istruction pointer for debugger
......
\ Simple debugging aids
\ Copyright (C) 1995 Free Software Foundation, Inc.
\ This file is part of Gforth.
\ Gforth is free software; you can redistribute it and/or
\ modify it under the terms of the GNU General Public License
\ as published by the Free Software Foundation; either version 2
\ of the License, or (at your option) any later version.
\ This program is distributed in the hope that it will be useful,
\ but WITHOUT ANY WARRANTY; without even the implied warranty of
\ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
\ GNU General Public License for more details.
\ You should have received a copy of the GNU General Public License
\ along with this program; if not, write to the Free Software
\ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
\ They are meant to support a different style of debugging than the
\ tracing/stepping debuggers used in languages with long turn-around
\ times.
......@@ -15,15 +34,14 @@
\ of the pictured numeric output string (i.e., don't use ~~ between <#
\ and #>).
require source.fs
defer printdebugdata ( -- ) \ gforth
' .s IS printdebugdata
defer printdebugline ( addr -- ) \ gforth
: (printdebugline) ( addr -- )
cr
dup 2@ type ." :" cell+ cell+
@ 0 .r ." :"
cr print-sourcepos ." :"
\ it would be nice to print the name of the following word,
\ but that's not easily possible for primitives
printdebugdata
......@@ -33,8 +51,8 @@ defer printdebugline ( addr -- ) \ gforth
: (~~) ( -- )
r@ printdebugline
r> 3 cells + >r ;
r> sourcepos drop + >r ;
: ~~ ( compilation -- ; run-time -- ) \ gforth tilde-tilde
POSTPONE (~~) loadfilename 2@ 2, loadline @ , ; immediate
POSTPONE (~~) sourcepos, ; immediate
\ MS-DOS key interpreter 17oct94py
\ Copyright (C) 1995 Free Software Foundation, Inc.
\ This file is part of Gforth.
\ Gforth is free software; you can redistribute it and/or
\ modify it under the terms of the GNU General Public License
\ as published by the Free Software Foundation; either version 2
\ of the License, or (at your option) any later version.
\ This program is distributed in the hope that it will be useful,
\ but WITHOUT ANY WARRANTY; without even the implied warranty of
\ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
\ GNU General Public License for more details.
\ You should have received a copy of the GNU General Public License
\ along with this program; if not, write to the Free Software
\ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
Create translate $100 allot
translate $100 erase
......
\ documentation source to texi format converter
\ Copyright (C) 1995 Free Software Foundation, Inc.
\ This file is part of Gforth.
\ Gforth is free software; you can redistribute it and/or
\ modify it under the terms of the GNU General Public License
\ as published by the Free Software Foundation; either version 2
\ of the License, or (at your option) any later version.
\ This program is distributed in the hope that it will be useful,
\ but WITHOUT ANY WARRANTY; without even the implied warranty of
\ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
\ GNU General Public License for more details.
\ You should have received a copy of the GNU General Public License
\ along with this program; if not, write to the Free Software
\ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
\ documentation source can contain lines in the form `doc-word' and
\ `short-word'. These are converted to appropriate full or short
\ (without the description) glossary entries for word.
......
\ image dump 15nov94py
\ Copyright (C) 1995 Free Software Foundation, Inc.
\ This file is part of Gforth.
\ Gforth is free software; you can redistribute it and/or
\ modify it under the terms of the GNU General Public License
\ as published by the Free Software Foundation; either version 2
\ of the License, or (at your option) any later version.
\ This program is distributed in the hope that it will be useful,
\ but WITHOUT ANY WARRANTY; without even the implied warranty of
\ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
\ GNU General Public License for more details.
\ You should have received a copy of the GNU General Public License
\ along with this program; if not, write to the Free Software
\ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
Create magic s" gforth00" here over allot swap move
'1 1 cells + 0 pad ! -1 pad c! pad @ 0< + magic 7 chars + c!
......
/*
Copyright 1992 by the ANSI figForth Development Group
/* Gforth virtual machine (aka inner interpreter)
Copyright (C) 1995 Free Software Foundation, Inc.
This file is part of Gforth.
Gforth is free software; you can redistribute it and/or
modify it under the terms of the GNU General Public License
as published by the Free Software Foundation; either version 2
of the License, or (at your option) any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
*/
#include <ctype.h>
......
\ environmental queries
\ Copyright (C) 1995 Free Software Foundation, Inc.
\ This file is part of Gforth.
\ Gforth is free software; you can redistribute it and/or
\ modify it under the terms of the GNU General Public License
\ as published by the Free Software Foundation; either version 2
\ of the License, or (at your option) any later version.
\ This program is distributed in the hope that it will be useful,
\ but WITHOUT ANY WARRANTY; without even the implied warranty of
\ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
\ GNU General Public License for more details.
\ You should have received a copy of the GNU General Public License
\ along with this program; if not, write to the Free Software
\ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
\ wordlist constant environment-wordlist
Create environment-wordlist wordlist drop
......
\ ERRORE.FS English error strings 9may93jaw
\ Copyright (C) 1995 Free Software Foundation, Inc.
\ This file is part of Gforth.
\ Gforth is free software; you can redistribute it and/or
\ modify it under the terms of the GNU General Public License
\ as published by the Free Software Foundation; either version 2
\ of the License, or (at your option) any later version.
\ This program is distributed in the hope that it will be useful,
\ but WITHOUT ANY WARRANTY; without even the implied warranty of
\ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
\ GNU General Public License for more details.
\ You should have received a copy of the GNU General Public License
\ along with this program; if not, write to the Free Software
\ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
\ The errors are defined by a linked list, for easy adding
\ and deleting. Speed is not neccassary at this point.
......
\ Etags support for GNU Forth.
\ Copyright (C) 1995 Free Software Foundation, Inc.
\ This file is part of Gforth.
\ Gforth is free software; you can redistribute it and/or
\ modify it under the terms of the GNU General Public License
\ as published by the Free Software Foundation; either version 2
\ of the License, or (at your option) any later version.
\ This program is distributed in the hope that it will be useful,
\ but WITHOUT ANY WARRANTY; without even the implied warranty of
\ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
\ GNU General Public License for more details.
\ You should have received a copy of the GNU General Public License
\ along with this program; if not, write to the Free Software
\ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
\ This does not work like etags; instead, the TAGS file is updated
\ during the normal Forth interpretation/compilation process.
......