Skip to content

gforth
gforth
Commit bce5545d authored by anton's avatar anton
Browse files
Options

updated dates in copyright messages 

inserted copyright messages in most files that did not have them
removed outdated files engine/32bit.h engine/strsig.c
parent 917aaf4c
Hide whitespace changes
Inline Side-by-side
Showing with 759 additions and 333 deletions
BUGS
View file @ bce5545d
......@@ -14,6 +14,3 @@ points to the current SOURCE, and QUERY puts its result there. anton
open-path-file expands "./" into the sourcefilename. It should either
not expand "./" or provide a mechanism that allows the application to
determine what "./" should expand to. anton 16jun98
": foo create c, does> c@ ; see foo" displays a number after DOES> on
i386, direct threaded. Marcel Hendrix 23nov98 -- fixed Bernd Paysan 27nov98
Makefile.in
View file @ bce5545d
#Makefile for Gforth
#Copyright (C) 1995-1997 Free Software Foundation, Inc.
#Copyright (C) 1995,1996,1997,1998 Free Software Foundation, Inc.
#This file is part of Gforth.
......
acconfig.h
View file @ bce5545d
/* Descriptions and defaults for C preprocessor symbols for config.h.in
Copyright (C) 1995 Free Software Foundation, Inc.
Copyright (C) 1995,1996,1997,1998 Free Software Foundation, Inc.
This file is part of Gforth.
......
acinclude.m4
View file @ bce5545d
dnl AC_CHECK_INT_TYPE macro
dnl Copyright (C) 1996 Free Software Foundation, Inc.
dnl Copyright (C) 1996,1997,1998 Free Software Foundation, Inc.
dnl This file is part of Gforth.
......
add.fs
View file @ bce5545d
\ ADD.FS Kernal additional things 20may93jaw
\ Copyright (C) 1995 Free Software Foundation, Inc.
\ Copyright (C) 1995,1996,1997,1998 Free Software Foundation, Inc.
\ This file is part of Gforth.
......
ans-report.fs
View file @ bce5545d
\ report words used from the various wordsets
\ Copyright (C) 1996 Free Software Foundation, Inc.
\ Copyright (C) 1996,1998 Free Software Foundation, Inc.
\ This file is part of Gforth.
......
ansi.fs
View file @ bce5545d
\ ANSI.STR Define terminal attributes 20may93jaw
\ Copyright (C) 1995 Free Software Foundation, Inc.
\ Copyright (C) 1995,1996,1997,1998 Free Software Foundation, Inc.
\ This file is part of Gforth.
......
arch/386/machine.h
View file @ bce5545d
/*
This is the machine-specific part for Intel 386 compatible processors
Copyright (C) 1995 Free Software Foundation, Inc.
Copyright (C) 1995,1996,1997,1998 Free Software Foundation, Inc.
This file is part of Gforth.
......
arch/alpha/machine.h
View file @ bce5545d
/* preliminary machine file for DEC Alpha
Copyright (C) 1995 Free Software Foundation, Inc.
Copyright (C) 1995,1996,1997,1998 Free Software Foundation, Inc.
This file is part of Gforth.
......
arch/generic/machine.h
View file @ bce5545d
......@@ -2,7 +2,7 @@
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.
Copyright (C) 1995,1998 Free Software Foundation, Inc.
This file is part of Gforth.
......
arch/hppa/cache.c
View file @ bce5545d
/* cache flushing for the HP-PA architecture
Copyright (C) 1995 Free Software Foundation, Inc.
Copyright (C) 1995,1996,1997,1998 Free Software Foundation, Inc.
This file is part of Gforth.
......
arch/hppa/machine.h
View file @ bce5545d
/* This is the machine-specific part for a HPPA running HP-UX
Copyright (C) 1995 Free Software Foundation, Inc.
Copyright (C) 1995,1996,1997,1998 Free Software Foundation, Inc.
This file is part of Gforth.
......
arch/m68k/machine.h
View file @ bce5545d
/* This is the machine-specific part for the 68000 and family
Copyright (C) 1995 Free Software Foundation, Inc.
Copyright (C) 1995,1996,1997,1998 Free Software Foundation, Inc.
This file is part of Gforth.
......
arch/mips/machine.h
View file @ bce5545d
/* This is the machine-specific part for MIPS R[2346810]000 processors
Copyright (C) 1995 Free Software Foundation, Inc.
Copyright (C) 1995,1996,1997,1998 Free Software Foundation, Inc.
This file is part of Gforth.
......
arch/power/machine.h
View file @ bce5545d
/* This is the machine-specific part for the Power (incl. PPC) architecture
Copyright (C) 1995 Free Software Foundation, Inc.
Copyright (C) 1995,1996,1997,1998 Free Software Foundation, Inc.
This file is part of Gforth.
......
arch/sparc/machine.h
View file @ bce5545d
/* This is the machine-specific part for a SPARC
Copyright (C) 1995 Free Software Foundation, Inc.
Copyright (C) 1995,1996,1997,1998 Free Software Foundation, Inc.
This file is part of Gforth.
......
asm/basic.fs
View file @ bce5545d
\ asmbasic.fs basic assebmler definitions
\ Copyright (C) 1998 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.
[IFUNDEF] assembler Vocabulary assembler [THEN]
require ./target.fs
[IFUNDEF] chained require chains.fs [THEN]
......
asm/bitmask.fs
View file @ bce5545d
\ bitmask.fs Generic Bitmask compiler 13aug97jaw
\ This file is copyritghted by JW-Datentechnik GmbH, Munich.
\ You have the right to use it together with GForth EC.
\ This file may copied and redistributed if it is not altered.
\ This is distributed without any warranty.
\ Send comments, suggestions, additions and bugfixes to: wilke@jwdt.com
\ Copyright (C) 1998 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 is a tool for building up assemblers.
\ In modern CPU's instrutions there are often some bitfields that
......
asm/generic.fs
View file @ bce5545d
\ generic.fs implements generic assembler definitions 13aug97jaw
\ Copyright (C) 1998 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.
\ These are generic routines to build up a table-driven assembler
\ fo any modern (RISC)-CPU
\ This file is copyritghted by JW-Datentechnik GmbH, Munich.
\ You have the right to use it together with GForth EC.
\ This file may copied and redistributed if it is not altered.
\ This is distributed without any warranty.
\ Send comments, suggestions, additions and bugfixes to: wilke@jwdt.com
\ Revision Log:
\
\ 13aug97jaw-14aug97 Initial Version -> V0.5
......
asm/numref.fs
View file @ bce5545d
\ refs.fs
\ Copyright (C) 1998 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.
0 [IF]
This is a generic solution for doing labels (forward and backward
......
asm/target.fs
View file @ bce5545d
\ asm/target.fs
\ Copyright (C) 1998 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.
[IFUNDEF] there
.( no target compiling )
......
assert.fs
View file @ bce5545d
\ assertions
\ Copyright (C) 1995 Free Software Foundation, Inc.
\ Copyright (C) 1995,1996,1997 Free Software Foundation, Inc.
\ This file is part of Gforth.
......
blocks.fs
View file @ bce5545d
\ A less simple implementation of the blocks wordset.
\ Copyright (C) 1995 Free Software Foundation, Inc.
\ Copyright (C) 1995,1996,1997,1998 Free Software Foundation, Inc.
\ This file is part of Gforth.
......
bufio.fs
View file @ bce5545d
\ BUFOUT.STR Buffered output for Debug 13jun93jaw
\ Copyright (C) 1995 Free Software Foundation, Inc.
\ Copyright (C) 1995,1996,1997 Free Software Foundation, Inc.
\ This file is part of Gforth.
......
chains.fs
View file @ bce5545d
\ chains.fs execution chains for gforth 21jun97jaw
\ Copyright (C) 1998 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.
0 [IF]
This defines execution chains.
The first application for this is building initialization chains:
......
code.fs
View file @ bce5545d
\ ASSEMBLER, CODE etc.
\ Copyright (C) 1995 Free Software Foundation, Inc.
\ Copyright (C) 1995,1996,1997 Free Software Foundation, Inc.
\ This file is part of Gforth.
......
colorize.fs
View file @ bce5545d
\ COLORIZE.STR Coloured .NAME and WORDS 20may93jaw
\ Copyright (C) 1995 Free Software Foundation, Inc.
\ Copyright (C) 1995,1996,1997 Free Software Foundation, Inc.
\ This file is part of Gforth.
......
comp-i.fs
View file @ bce5545d
\ Compare nonrelocatable images and produce a relocatable image
\ Copyright (C) 1996-1997 Free Software Foundation, Inc.
\ Copyright (C) 1996,1997,1998 Free Software Foundation, Inc.
\ This file is part of Gforth.
......
config.bat
View file @ bce5545d
@ECHO OFF
REM Copyright 1995 Free Software Foundation, Inc.
REM
REM This file is part of Gforth.
REM
REM Gforth is free software; you can redistribute it and/or
REM modify it under the terms of the GNU General Public License
REM as published by the Free Software Foundation; either version 2
REM of the License, or (at your option) any later version.
REM
REM This program is distributed in the hope that it will be useful,
REM but WITHOUT ANY WARRANTY; without even the implied warranty of
REM MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
REM GNU General Public License for more details.
REM
REM You should have received a copy of the GNU General Public License
REM along with this program; if not, write to the Free Software
REM Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
ECHO *** Configuring for MS-DOS with DJGPP 2.0 GNU C ***
set THREAD=i
set FREGS=n
:SWITCHES
IF "%1"=="--enable-direct-threaded" set THREAD=d
IF "%1"=="--enable-indirect-threaded" set THREAD=i
IF "%1"=="--enable-force-reg" set FREGS=y
shift
IF NOT "%1"=="" GOTO SWITCHES
COPY MAKEFILE.DOS MAKEFILE
COPY KERNL32L.FI KERNEL.FI
COPY ENVOS.DOS ENVOS.FS
COPY DOSCONF.H ENGINE\CONFIG.H
IF "%THREAD%"=="i" ECHO #ifndef INDIRECT_THREADED >>CONFIG.H
IF "%THREAD%"=="i" ECHO #define INDIRECT_THREADED 1 >>CONFIG.H
IF "%THREAD%"=="i" ECHO #endif >>CONFIG.H
IF "%THREAD%"=="d" ECHO #ifndef DIRECT_THREADED >>CONFIG.H
IF "%THREAD%"=="d" ECHO #define DIRECT_THREADED 1 >>CONFIG.H
IF "%THREAD%"=="d" ECHO #endif >>CONFIG.H
IF "%FREGS%"=="y" ECHO #ifndef FORCE_REG >>CONFIG.H
IF "%FREGS%"=="y" ECHO #define FORCE_REG 1 >>CONFIG.H
IF "%FREGS%"=="y" ECHO #endif >>CONFIG.H
ECHO static char gforth_version[]="0.4.0"; >version.h1
ECHO : version-string s" 0.4.0" ; >version.fs1
@ECHO OFF
REM Copyright (C) 1995,1996,1997,1998 Free Software Foundation, Inc.
REM
REM This file is part of Gforth.
REM
REM Gforth is free software; you can redistribute it and/or
REM modify it under the terms of the GNU General Public License
REM as published by the Free Software Foundation; either version 2
REM of the License, or (at your option) any later version.
REM
REM This program is distributed in the hope that it will be useful,
REM but WITHOUT ANY WARRANTY; without even the implied warranty of
REM MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
REM GNU General Public License for more details.
REM
REM You should have received a copy of the GNU General Public License
REM along with this program; if not, write to the Free Software
REM Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
ECHO *** Configuring for MS-DOS with DJGPP 2.0 GNU C ***
set THREAD=i
set FREGS=n
:SWITCHES
IF "%1"=="--enable-direct-threaded" set THREAD=d
IF "%1"=="--enable-indirect-threaded" set THREAD=i
IF "%1"=="--enable-force-reg" set FREGS=y
shift
IF NOT "%1"=="" GOTO SWITCHES
COPY MAKEFILE.DOS MAKEFILE
COPY KERNL32L.FI KERNEL.FI
COPY ENVOS.DOS ENVOS.FS
COPY DOSCONF.H ENGINE\CONFIG.H
IF "%THREAD%"=="i" ECHO #ifndef INDIRECT_THREADED >>CONFIG.H
IF "%THREAD%"=="i" ECHO #define INDIRECT_THREADED 1 >>CONFIG.H
IF "%THREAD%"=="i" ECHO #endif >>CONFIG.H
IF "%THREAD%"=="d" ECHO #ifndef DIRECT_THREADED >>CONFIG.H
IF "%THREAD%"=="d" ECHO #define DIRECT_THREADED 1 >>CONFIG.H
IF "%THREAD%"=="d" ECHO #endif >>CONFIG.H
IF "%FREGS%"=="y" ECHO #ifndef FORCE_REG >>CONFIG.H
IF "%FREGS%"=="y" ECHO #define FORCE_REG 1 >>CONFIG.H
IF "%FREGS%"=="y" ECHO #endif >>CONFIG.H
ECHO static char gforth_version[]="0.4.0"; >version.h1
ECHO : version-string s" 0.4.0" ; >version.fs1

\ No newline at end of file
configure.cmd
View file @ bce5545d
/*
Copyright 1996-1997 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.
*/
say "*** Configuring for OS/2 with EMX 3.0 GNU C ***"
parse arg args
THREAD="i"
FREGS="n"
do while args \== ""
parse var args arg args
select
when arg="--enable-direct-threaded" then THREAD="d"
when arg="--enable-indirect-threaded" then THREAD="i"
when arg="--enable-force-reg" then FREGS="y"
when arg="--help" then do
say "--enable and --with options recognized:"
say " --enable-force-reg Use explicit register declarations if they appear in"
say " the machine.h file. This can cause a good speedup,"
say " but also incorrect code with some gcc versions on"
say " some processors (default disabled)."
say " --enable-direct-threaded Force direct threading. This may not work on"
say " some machines and may cause slowdown on others."
say " (default processor-dependent)"
say " --enable-indirect-threaded Force indirect threading. This can cause a"
say " slowdown on some machines."
say " (default processor-dependent)"
end
otherwise
do
say "*** Unknown option:" arg
call Usage
end
end
end
copy makefile.os2 makefile
copy kernl32l.fi kernel.fi
copy envos.os2 envos.fs
copy os2conf.h engine\config.h
if THREAD="i" THEN DO
call lineout engine\config.h, "#ifndef INDIRECT_THREADED"
call lineout engine\config.h, "#define INDIRECT_THREADED 1"
call lineout engine\config.h, "#endif"
end
IF THREAD="d" THEN do
call lineout engine\config.h, "#ifndef DIRECT_THREADED"
call lineout engine\config.h, "#define DIRECT_THREADED 1"
call lineout engine\config.h, "#endif"
end
IF FREGS="y" THEN do
call lineout engine\config.h, "#ifndef FORCE_REG"
call lineout engine\config.h, "#define FORCE_REG 1"
call lineout engine\config.h, "#endif"
end
call lineout version.h1, 'static char gforth_version[]="0.4.0";'
call lineout version.fs1, ': version-string s" 0.4.0" ;'
call lineout 'version-stamp', '0.4.0'
/*
Copyright (C) 1996,1997,1998 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.
*/
say "*** Configuring for OS/2 with EMX 3.0 GNU C ***"
parse arg args
THREAD="i"
FREGS="n"
do while args \== ""
parse var args arg args
select
when arg="--enable-direct-threaded" then THREAD="d"
when arg="--enable-indirect-threaded" then THREAD="i"
when arg="--enable-force-reg" then FREGS="y"
when arg="--help" then do
say "--enable and --with options recognized:"
say " --enable-force-reg Use explicit register declarations if they appear in"
say " the machine.h file. This can cause a good speedup,"
say " but also incorrect code with some gcc versions on"
say " some processors (default disabled)."
say " --enable-direct-threaded Force direct threading. This may not work on"
say " some machines and may cause slowdown on others."
say " (default processor-dependent)"
say " --enable-indirect-threaded Force indirect threading. This can cause a"
say " slowdown on some machines."
say " (default processor-dependent)"
end
otherwise
do
say "*** Unknown option:" arg
call Usage
end
end
end
copy makefile.os2 makefile
copy kernl32l.fi kernel.fi
copy envos.os2 envos.fs
copy os2conf.h engine\config.h
if THREAD="i" THEN DO
call lineout engine\config.h, "#ifndef INDIRECT_THREADED"
call lineout engine\config.h, "#define INDIRECT_THREADED 1"
call lineout engine\config.h, "#endif"
end
IF THREAD="d" THEN do
call lineout engine\config.h, "#ifndef DIRECT_THREADED"
call lineout engine\config.h, "#define DIRECT_THREADED 1"
call lineout engine\config.h, "#endif"
end
IF FREGS="y" THEN do
call lineout engine\config.h, "#ifndef FORCE_REG"
call lineout engine\config.h, "#define FORCE_REG 1"
call lineout engine\config.h, "#endif"
end
call lineout version.h1, 'static char gforth_version[]="0.4.0";'
call lineout version.fs1, ': version-string s" 0.4.0" ;'
call lineout 'version-stamp', '0.4.0'
configure.in
View file @ bce5545d
dnl Process this file with autoconf to produce a configure script.
#Copyright (C) 1995,1996 Free Software Foundation, Inc.
#Copyright (C) 1995,1996,1997,1998 Free Software Foundation, Inc.
#This file is part of Gforth.
......
cross.fs
View file @ bce5545d
\ CROSS.FS The Cross-Compiler 06oct92py
\ Idea and implementation: Bernd Paysan (py)
\ Copyright (C) 1995 Free Software Foundation, Inc.
\ Copyright (C) 1995,1996,1997,1998 Free Software Foundation, Inc.
\ This file is part of Gforth.
......
debug.fs
View file @ bce5545d
\ DEBUG.FS Debugger 12jun93jaw
\ Copyright (C) 1995 Free Software Foundation, Inc.
\ Copyright (C) 1995,1996,1997 Free Software Foundation, Inc.
\ This file is part of Gforth.
......
debugs.fs
View file @ bce5545d
\ Simple debugging aids
\ Copyright (C) 1995 Free Software Foundation, Inc.
\ Copyright (C) 1995,1997 Free Software Foundation, Inc.
\ This file is part of Gforth.
......
doskey.fs
View file @ bce5545d
\ MS-DOS key interpreter 17oct94py
\ Copyright (C) 1995 Free Software Foundation, Inc.
\ Copyright (C) 1995,1997 Free Software Foundation, Inc.
\ This file is part of Gforth.
......
ds2texi.fs
View file @ bce5545d
\ documentation source to texi format converter
\ Copyright (C) 1995 Free Software Foundation, Inc.
\ Copyright (C) 1995,1996,1997,1998 Free Software Foundation, Inc.
\ This file is part of Gforth.
......
ec/builttag.fs
View file @ bce5545d
\ builttag.fs
\ Copyright (C) 1998 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.
variable builtnr
create linebuf 200 chars allot
create filename 200 chars allot
......
ec/dotx.fs
View file @ bce5545d
\ ???
\ Copyright (C) 1998 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,