Commit bce5545d authored by anton's avatar anton

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
...@@ -14,6 +14,3 @@ points to the current SOURCE, and QUERY puts its result there. anton ...@@ -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 open-path-file expands "./" into the sourcefilename. It should either
not expand "./" or provide a mechanism that allows the application to not expand "./" or provide a mechanism that allows the application to
determine what "./" should expand to. anton 16jun98 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 for Gforth #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. #This file is part of Gforth.
......
/* Descriptions and defaults for C preprocessor symbols for config.h.in /* 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. This file is part of Gforth.
......
dnl AC_CHECK_INT_TYPE macro 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. dnl This file is part of Gforth.
......
\ ADD.FS Kernal additional things 20may93jaw \ 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. \ This file is part of Gforth.
......
\ report words used from the various wordsets \ 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. \ This file is part of Gforth.
......
\ ANSI.STR Define terminal attributes 20may93jaw \ 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. \ This file is part of Gforth.
......
/* /*
This is the machine-specific part for Intel 386 compatible processors 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. This file is part of Gforth.
......
/* preliminary machine file for DEC Alpha /* 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. This file is part of Gforth.
......
...@@ -2,7 +2,7 @@ ...@@ -2,7 +2,7 @@
This is a generic file for 32-bit machines with IEEE FP arithmetic (no VMS). This is a generic file for 32-bit machines with IEEE FP arithmetic (no VMS).
It only supports indirect threading. 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. This file is part of Gforth.
......
/* cache flushing for the HP-PA architecture /* 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. This file is part of Gforth.
......
/* This is the machine-specific part for a HPPA running HP-UX /* 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. This file is part of Gforth.
......
/* This is the machine-specific part for the 68000 and family /* 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. This file is part of Gforth.
......
/* This is the machine-specific part for MIPS R[2346810]000 processors /* 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. This file is part of Gforth.
......
/* This is the machine-specific part for the Power (incl. PPC) architecture /* 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. This file is part of Gforth.
......
/* This is the machine-specific part for a SPARC /* 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. This file is part of Gforth.
......
\ asmbasic.fs basic assebmler definitions \ 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] [IFUNDEF] assembler Vocabulary assembler [THEN]
require ./target.fs require ./target.fs
[IFUNDEF] chained require chains.fs [THEN] [IFUNDEF] chained require chains.fs [THEN]
......
\ bitmask.fs Generic Bitmask compiler 13aug97jaw \ bitmask.fs Generic Bitmask compiler 13aug97jaw
\ This file is copyritghted by JW-Datentechnik GmbH, Munich. \ Copyright (C) 1998 Free Software Foundation, Inc.
\ You have the right to use it together with GForth EC.
\ This file may copied and redistributed if it is not altered. \ This file is part of Gforth.
\ This is distributed without any warranty.
\ Send comments, suggestions, additions and bugfixes to: wilke@jwdt.com \ 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. \ This is a tool for building up assemblers.
\ In modern CPU's instrutions there are often some bitfields that \ In modern CPU's instrutions there are often some bitfields that
......
\ generic.fs implements generic assembler definitions 13aug97jaw \ 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 \ These are generic routines to build up a table-driven assembler
\ fo any modern (RISC)-CPU \ 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: \ Revision Log:
\ \
\ 13aug97jaw-14aug97 Initial Version -> V0.5 \ 13aug97jaw-14aug97 Initial Version -> V0.5
......
\ refs.fs \ 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] 0 [IF]
This is a generic solution for doing labels (forward and backward This is a generic solution for doing labels (forward and backward
......
\ asm/target.fs \ 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 [IFUNDEF] there
.( no target compiling ) .( no target compiling )
......
\ assertions \ assertions
\ Copyright (C) 1995 Free Software Foundation, Inc. \ Copyright (C) 1995,1996,1997 Free Software Foundation, Inc.
\ This file is part of Gforth. \ This file is part of Gforth.
......
\ A less simple implementation of the blocks wordset. \ 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. \ This file is part of Gforth.
......
\ BUFOUT.STR Buffered output for Debug 13jun93jaw \ 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. \ This file is part of Gforth.
......
\ chains.fs execution chains for gforth 21jun97jaw \ 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] 0 [IF]
This defines execution chains. This defines execution chains.
The first application for this is building initialization chains: The first application for this is building initialization chains:
......
\ ASSEMBLER, CODE etc. \ 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. \ This file is part of Gforth.
......
\ COLORIZE.STR Coloured .NAME and WORDS 20may93jaw \ 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. \ This file is part of Gforth.
......
\ Compare nonrelocatable images and produce a relocatable image \ 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. \ This file is part of Gforth.
......
@ECHO OFF @ECHO OFF
REM Copyright 1995 Free Software Foundation, Inc. REM Copyright (C) 1995,1996,1997,1998 Free Software Foundation, Inc.
REM REM
REM This file is part of Gforth. REM This file is part of Gforth.
REM REM
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 2
REM of the License, or (at your option) any later version. REM of the License, or (at your option) any later version.
REM REM
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,
REM but WITHOUT ANY WARRANTY; without even the implied warranty of REM but WITHOUT ANY WARRANTY; without even the implied warranty of
REM MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the REM MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
REM GNU General Public License for more details. REM GNU General Public License for more details.
REM REM
REM You should have received a copy of the GNU General Public License 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 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.
ECHO *** Configuring for MS-DOS with DJGPP 2.0 GNU C *** ECHO *** Configuring for MS-DOS with DJGPP 2.0 GNU C ***
set THREAD=i set THREAD=i
set FREGS=n set FREGS=n
:SWITCHES :SWITCHES
IF "%1"=="--enable-direct-threaded" set THREAD=d IF "%1"=="--enable-direct-threaded" set THREAD=d
IF "%1"=="--enable-indirect-threaded" set THREAD=i IF "%1"=="--enable-indirect-threaded" set THREAD=i
IF "%1"=="--enable-force-reg" set FREGS=y IF "%1"=="--enable-force-reg" set FREGS=y
shift shift
IF NOT "%1"=="" GOTO SWITCHES IF NOT "%1"=="" GOTO SWITCHES
COPY MAKEFILE.DOS MAKEFILE COPY MAKEFILE.DOS MAKEFILE
COPY KERNL32L.FI KERNEL.FI COPY KERNL32L.FI KERNEL.FI
COPY ENVOS.DOS ENVOS.FS COPY ENVOS.DOS ENVOS.FS
COPY DOSCONF.H ENGINE\CONFIG.H COPY DOSCONF.H ENGINE\CONFIG.H
IF "%THREAD%"=="i" ECHO #ifndef INDIRECT_THREADED >>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 #define INDIRECT_THREADED 1 >>CONFIG.H
IF "%THREAD%"=="i" ECHO #endif >>CONFIG.H IF "%THREAD%"=="i" ECHO #endif >>CONFIG.H
IF "%THREAD%"=="d" ECHO #ifndef DIRECT_THREADED >>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 #define DIRECT_THREADED 1 >>CONFIG.H
IF "%THREAD%"=="d" ECHO #endif >>CONFIG.H IF "%THREAD%"=="d" ECHO #endif >>CONFIG.H
IF "%FREGS%"=="y" ECHO #ifndef FORCE_REG >>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 #define FORCE_REG 1 >>CONFIG.H
IF "%FREGS%"=="y" ECHO #endif >>CONFIG.H IF "%FREGS%"=="y" ECHO #endif >>CONFIG.H
ECHO static char gforth_version[]="0.4.0"; >version.h1 ECHO static char gforth_version[]="0.4.0"; >version.h1
ECHO : version-string s" 0.4.0" ; >version.fs1 ECHO : version-string s" 0.4.0" ; >version.fs1
 
\ No newline at end of file
/* /*
Copyright 1996-1997 Free Software Foundation, Inc. Copyright (C) 1996,1997,1998 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., 675 Mass Ave, Cambridge, MA 02139, USA.
*/ */
say "*** Configuring for OS/2 with EMX 3.0 GNU C ***" say "*** Configuring for OS/2 with EMX 3.0 GNU C ***"
parse arg args parse arg args
THREAD="i" THREAD="i"
FREGS="n" FREGS="n"
do while args \== "" do while args \== ""
parse var args arg args parse var args arg args
select select
when arg="--enable-direct-threaded" then THREAD="d" when arg="--enable-direct-threaded" then THREAD="d"
when arg="--enable-indirect-threaded" then THREAD="i" when arg="--enable-indirect-threaded" then THREAD="i"
when arg="--enable-force-reg" then FREGS="y" when arg="--enable-force-reg" then FREGS="y"
when arg="--help" then do when arg="--help" then do
say "--enable and --with options recognized:" say "--enable and --with options recognized:"
say " --enable-force-reg Use explicit register declarations if they appear in" say " --enable-force-reg Use explicit register declarations if they appear in"
say " the machine.h file. This can cause a good speedup," say " the machine.h file. This can cause a good speedup,"
say " but also incorrect code with some gcc versions on" say " but also incorrect code with some gcc versions on"
say " some processors (default disabled)." say " some processors (default disabled)."
say " --enable-direct-threaded Force direct threading. This may not work on" say " --enable-direct-threaded Force direct threading. This may not work on"
say " some machines and may cause slowdown on others." say " some machines and may cause slowdown on others."
say " (default processor-dependent)" say " (default processor-dependent)"
say " --enable-indirect-threaded Force indirect threading. This can cause a" say " --enable-indirect-threaded Force indirect threading. This can cause a"
say " slowdown on some machines." say " slowdown on some machines."
say " (default processor-dependent)" say " (default processor-dependent)"
end end
otherwise otherwise
do do
say "*** Unknown option:" arg say "*** Unknown option:" arg
call Usage call Usage
end end
end end
end end
copy makefile.os2 makefile copy makefile.os2 makefile
copy kernl32l.fi kernel.fi copy kernl32l.fi kernel.fi
copy envos.os2 envos.fs copy envos.os2 envos.fs
copy os2conf.h engine\config.h copy os2conf.h engine\config.h
if THREAD="i" THEN DO if THREAD="i" THEN DO
call lineout engine\config.h, "#ifndef INDIRECT_THREADED" call lineout engine\config.h, "#ifndef INDIRECT_THREADED"
call lineout engine\config.h, "#define INDIRECT_THREADED 1" call lineout engine\config.h, "#define INDIRECT_THREADED 1"
call lineout engine\config.h, "#endif" call lineout engine\config.h, "#endif"
end end
IF THREAD="d" THEN do IF THREAD="d" THEN do
call lineout engine\config.h, "#ifndef DIRECT_THREADED" call lineout engine\config.h, "#ifndef DIRECT_THREADED"
call lineout engine\config.h, "#define DIRECT_THREADED 1" call lineout engine\config.h, "#define DIRECT_THREADED 1"
call lineout engine\config.h, "#endif" call lineout engine\config.h, "#endif"
end end
IF FREGS="y" THEN do IF FREGS="y" THEN do
call lineout engine\config.h, "#ifndef FORCE_REG" call lineout engine\config.h, "#ifndef FORCE_REG"
call lineout engine\config.h, "#define FORCE_REG 1" call lineout engine\config.h, "#define FORCE_REG 1"
call lineout engine\config.h, "#endif" call lineout engine\config.h, "#endif"
end end
call lineout version.h1, 'static char gforth_version[]="0.4.0";' call lineout version.h1, 'static char gforth_version[]="0.4.0";'
call lineout version.fs1, ': version-string s" 0.4.0" ;' call lineout version.fs1, ': version-string s" 0.4.0" ;'
call lineout 'version-stamp', '0.4.0' call lineout 'version-stamp', '0.4.0'
dnl Process this file with autoconf to produce a configure script. 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. #This file is part of Gforth.
......