* Added $Id and copyright information to all .c and .h files in the kernel.
git-svn-id: svn://svn.zoy.org/elk/trunk@64 55e467fa-43c5-0310-a8a2-de718669efc6
This commit is contained in:
sam
parent
70f0b556a7
commit
b13cf1d931
|
|
@ -1,5 +1,32 @@
|
||||||
/* Definitions that were used in older versions of Elk, but are now
|
/* compat.h: Definitions that were used in older versions of Elk, but are
|
||||||
* obsolete and should not be used any longer.
|
* now obsolete and should not be used any longer.
|
||||||
|
*
|
||||||
|
* $Id$
|
||||||
|
*
|
||||||
|
* Copyright 1990, 1991, 1992, 1993, 1994, 1995, Oliver Laumann, Berlin
|
||||||
|
* Copyright 2002, 2003 Sam Hocevar <sam@zoy.org>, Paris
|
||||||
|
*
|
||||||
|
* This software was derived from Elk 1.2, which was Copyright 1987, 1988,
|
||||||
|
* 1989, Nixdorf Computer AG and TELES GmbH, Berlin (Elk 1.2 has been written
|
||||||
|
* by Oliver Laumann for TELES Telematic Services, Berlin, in a joint project
|
||||||
|
* between TELES and Nixdorf Microprocessor Engineering, Berlin).
|
||||||
|
*
|
||||||
|
* Oliver Laumann, TELES GmbH, Nixdorf Computer AG and Sam Hocevar, as co-
|
||||||
|
* owners or individual owners of copyright in this software, grant to any
|
||||||
|
* person or company a worldwide, royalty free, license to
|
||||||
|
*
|
||||||
|
* i) copy this software,
|
||||||
|
* ii) prepare derivative works based on this software,
|
||||||
|
* iii) distribute copies of this software or derivative works,
|
||||||
|
* iv) perform this software, or
|
||||||
|
* v) display this software,
|
||||||
|
*
|
||||||
|
* provided that this notice is not removed and that neither Oliver Laumann
|
||||||
|
* nor Teles nor Nixdorf are deemed to have made any representations as to
|
||||||
|
* the suitability of this software for any purpose nor are held responsible
|
||||||
|
* for any defects of this software.
|
||||||
|
*
|
||||||
|
* THERE IS ABSOLUTELY NO WARRANTY FOR THIS SOFTWARE.
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#define Declare_C_Strings Alloca_Begin
|
#define Declare_C_Strings Alloca_Begin
|
||||||
|
|
|
||||||
|
|
@ -1,3 +1,33 @@
|
||||||
|
/* cstring.h
|
||||||
|
*
|
||||||
|
* $Id$
|
||||||
|
*
|
||||||
|
* Copyright 1990, 1991, 1992, 1993, 1994, 1995, Oliver Laumann, Berlin
|
||||||
|
* Copyright 2002, 2003 Sam Hocevar <sam@zoy.org>, Paris
|
||||||
|
*
|
||||||
|
* This software was derived from Elk 1.2, which was Copyright 1987, 1988,
|
||||||
|
* 1989, Nixdorf Computer AG and TELES GmbH, Berlin (Elk 1.2 has been written
|
||||||
|
* by Oliver Laumann for TELES Telematic Services, Berlin, in a joint project
|
||||||
|
* between TELES and Nixdorf Microprocessor Engineering, Berlin).
|
||||||
|
*
|
||||||
|
* Oliver Laumann, TELES GmbH, Nixdorf Computer AG and Sam Hocevar, as co-
|
||||||
|
* owners or individual owners of copyright in this software, grant to any
|
||||||
|
* person or company a worldwide, royalty free, license to
|
||||||
|
*
|
||||||
|
* i) copy this software,
|
||||||
|
* ii) prepare derivative works based on this software,
|
||||||
|
* iii) distribute copies of this software or derivative works,
|
||||||
|
* iv) perform this software, or
|
||||||
|
* v) display this software,
|
||||||
|
*
|
||||||
|
* provided that this notice is not removed and that neither Oliver Laumann
|
||||||
|
* nor Teles nor Nixdorf are deemed to have made any representations as to
|
||||||
|
* the suitability of this software for any purpose nor are held responsible
|
||||||
|
* for any defects of this software.
|
||||||
|
*
|
||||||
|
* THERE IS ABSOLUTELY NO WARRANTY FOR THIS SOFTWARE.
|
||||||
|
*/
|
||||||
|
|
||||||
/* These must be defined as macros, because they use Alloca().
|
/* These must be defined as macros, because they use Alloca().
|
||||||
*/
|
*/
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -1,3 +1,33 @@
|
||||||
|
/* exception.h
|
||||||
|
*
|
||||||
|
* $Id$
|
||||||
|
*
|
||||||
|
* Copyright 1990, 1991, 1992, 1993, 1994, 1995, Oliver Laumann, Berlin
|
||||||
|
* Copyright 2002, 2003 Sam Hocevar <sam@zoy.org>, Paris
|
||||||
|
*
|
||||||
|
* This software was derived from Elk 1.2, which was Copyright 1987, 1988,
|
||||||
|
* 1989, Nixdorf Computer AG and TELES GmbH, Berlin (Elk 1.2 has been written
|
||||||
|
* by Oliver Laumann for TELES Telematic Services, Berlin, in a joint project
|
||||||
|
* between TELES and Nixdorf Microprocessor Engineering, Berlin).
|
||||||
|
*
|
||||||
|
* Oliver Laumann, TELES GmbH, Nixdorf Computer AG and Sam Hocevar, as co-
|
||||||
|
* owners or individual owners of copyright in this software, grant to any
|
||||||
|
* person or company a worldwide, royalty free, license to
|
||||||
|
*
|
||||||
|
* i) copy this software,
|
||||||
|
* ii) prepare derivative works based on this software,
|
||||||
|
* iii) distribute copies of this software or derivative works,
|
||||||
|
* iv) perform this software, or
|
||||||
|
* v) display this software,
|
||||||
|
*
|
||||||
|
* provided that this notice is not removed and that neither Oliver Laumann
|
||||||
|
* nor Teles nor Nixdorf are deemed to have made any representations as to
|
||||||
|
* the suitability of this software for any purpose nor are held responsible
|
||||||
|
* for any defects of this software.
|
||||||
|
*
|
||||||
|
* THERE IS ABSOLUTELY NO WARRANTY FOR THIS SOFTWARE.
|
||||||
|
*/
|
||||||
|
|
||||||
extern int Intr_Was_Ignored;
|
extern int Intr_Was_Ignored;
|
||||||
extern unsigned long Intr_Level;
|
extern unsigned long Intr_Level;
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -1,5 +1,32 @@
|
||||||
/* This include file declares all symbols exported by the interpreter
|
/* extern.h: This include file declares all symbols exported by the interpreter
|
||||||
* kernel that may be used by applications or extensions.
|
* kernel that may be used by applications or extensions.
|
||||||
|
*
|
||||||
|
* $Id$
|
||||||
|
*
|
||||||
|
* Copyright 1990, 1991, 1992, 1993, 1994, 1995, Oliver Laumann, Berlin
|
||||||
|
* Copyright 2002, 2003 Sam Hocevar <sam@zoy.org>, Paris
|
||||||
|
*
|
||||||
|
* This software was derived from Elk 1.2, which was Copyright 1987, 1988,
|
||||||
|
* 1989, Nixdorf Computer AG and TELES GmbH, Berlin (Elk 1.2 has been written
|
||||||
|
* by Oliver Laumann for TELES Telematic Services, Berlin, in a joint project
|
||||||
|
* between TELES and Nixdorf Microprocessor Engineering, Berlin).
|
||||||
|
*
|
||||||
|
* Oliver Laumann, TELES GmbH, Nixdorf Computer AG and Sam Hocevar, as co-
|
||||||
|
* owners or individual owners of copyright in this software, grant to any
|
||||||
|
* person or company a worldwide, royalty free, license to
|
||||||
|
*
|
||||||
|
* i) copy this software,
|
||||||
|
* ii) prepare derivative works based on this software,
|
||||||
|
* iii) distribute copies of this software or derivative works,
|
||||||
|
* iv) perform this software, or
|
||||||
|
* v) display this software,
|
||||||
|
*
|
||||||
|
* provided that this notice is not removed and that neither Oliver Laumann
|
||||||
|
* nor Teles nor Nixdorf are deemed to have made any representations as to
|
||||||
|
* the suitability of this software for any purpose nor are held responsible
|
||||||
|
* for any defects of this software.
|
||||||
|
*
|
||||||
|
* THERE IS ABSOLUTELY NO WARRANTY FOR THIS SOFTWARE.
|
||||||
*/
|
*/
|
||||||
|
|
||||||
C_LINKAGE_BEGIN
|
C_LINKAGE_BEGIN
|
||||||
|
|
|
||||||
|
|
@ -1,7 +1,33 @@
|
||||||
/* These definitions are not tunable. Do not change them.
|
/* funcproto.h: These definitions are not tunable. Do not change them.
|
||||||
|
*
|
||||||
|
* $Id$
|
||||||
|
*
|
||||||
|
* Copyright 1990, 1991, 1992, 1993, 1994, 1995, Oliver Laumann, Berlin
|
||||||
|
* Copyright 2002, 2003 Sam Hocevar <sam@zoy.org>, Paris
|
||||||
|
*
|
||||||
|
* This software was derived from Elk 1.2, which was Copyright 1987, 1988,
|
||||||
|
* 1989, Nixdorf Computer AG and TELES GmbH, Berlin (Elk 1.2 has been written
|
||||||
|
* by Oliver Laumann for TELES Telematic Services, Berlin, in a joint project
|
||||||
|
* between TELES and Nixdorf Microprocessor Engineering, Berlin).
|
||||||
|
*
|
||||||
|
* Oliver Laumann, TELES GmbH, Nixdorf Computer AG and Sam Hocevar, as co-
|
||||||
|
* owners or individual owners of copyright in this software, grant to any
|
||||||
|
* person or company a worldwide, royalty free, license to
|
||||||
|
*
|
||||||
|
* i) copy this software,
|
||||||
|
* ii) prepare derivative works based on this software,
|
||||||
|
* iii) distribute copies of this software or derivative works,
|
||||||
|
* iv) perform this software, or
|
||||||
|
* v) display this software,
|
||||||
|
*
|
||||||
|
* provided that this notice is not removed and that neither Oliver Laumann
|
||||||
|
* nor Teles nor Nixdorf are deemed to have made any representations as to
|
||||||
|
* the suitability of this software for any purpose nor are held responsible
|
||||||
|
* for any defects of this software.
|
||||||
|
*
|
||||||
|
* THERE IS ABSOLUTELY NO WARRANTY FOR THIS SOFTWARE.
|
||||||
*/
|
*/
|
||||||
|
|
||||||
|
|
||||||
#if __STDC__ || defined(__cplusplus)
|
#if __STDC__ || defined(__cplusplus)
|
||||||
# undef WANT_PROTOTYPES
|
# undef WANT_PROTOTYPES
|
||||||
#endif
|
#endif
|
||||||
|
|
|
||||||
30
include/gc.h
30
include/gc.h
|
|
@ -1,3 +1,33 @@
|
||||||
|
/* gc.h
|
||||||
|
*
|
||||||
|
* $Id$
|
||||||
|
*
|
||||||
|
* Copyright 1990, 1991, 1992, 1993, 1994, 1995, Oliver Laumann, Berlin
|
||||||
|
* Copyright 2002, 2003 Sam Hocevar <sam@zoy.org>, Paris
|
||||||
|
*
|
||||||
|
* This software was derived from Elk 1.2, which was Copyright 1987, 1988,
|
||||||
|
* 1989, Nixdorf Computer AG and TELES GmbH, Berlin (Elk 1.2 has been written
|
||||||
|
* by Oliver Laumann for TELES Telematic Services, Berlin, in a joint project
|
||||||
|
* between TELES and Nixdorf Microprocessor Engineering, Berlin).
|
||||||
|
*
|
||||||
|
* Oliver Laumann, TELES GmbH, Nixdorf Computer AG and Sam Hocevar, as co-
|
||||||
|
* owners or individual owners of copyright in this software, grant to any
|
||||||
|
* person or company a worldwide, royalty free, license to
|
||||||
|
*
|
||||||
|
* i) copy this software,
|
||||||
|
* ii) prepare derivative works based on this software,
|
||||||
|
* iii) distribute copies of this software or derivative works,
|
||||||
|
* iv) perform this software, or
|
||||||
|
* v) display this software,
|
||||||
|
*
|
||||||
|
* provided that this notice is not removed and that neither Oliver Laumann
|
||||||
|
* nor Teles nor Nixdorf are deemed to have made any representations as to
|
||||||
|
* the suitability of this software for any purpose nor are held responsible
|
||||||
|
* for any defects of this software.
|
||||||
|
*
|
||||||
|
* THERE IS ABSOLUTELY NO WARRANTY FOR THIS SOFTWARE.
|
||||||
|
*/
|
||||||
|
|
||||||
extern GCNODE *GC_List;
|
extern GCNODE *GC_List;
|
||||||
|
|
||||||
#define TAG_FUN -1
|
#define TAG_FUN -1
|
||||||
|
|
|
||||||
|
|
@ -1,5 +1,32 @@
|
||||||
/* Functions and variables that are used by more than one source file of
|
/* intern.h: Functions and variables that are used by more than one source
|
||||||
* the kernel. Not available to extensions and applications.
|
* file of the kernel. Not available to extensions and applications.
|
||||||
|
*
|
||||||
|
* $Id$
|
||||||
|
*
|
||||||
|
* Copyright 1990, 1991, 1992, 1993, 1994, 1995, Oliver Laumann, Berlin
|
||||||
|
* Copyright 2002, 2003 Sam Hocevar <sam@zoy.org>, Paris
|
||||||
|
*
|
||||||
|
* This software was derived from Elk 1.2, which was Copyright 1987, 1988,
|
||||||
|
* 1989, Nixdorf Computer AG and TELES GmbH, Berlin (Elk 1.2 has been written
|
||||||
|
* by Oliver Laumann for TELES Telematic Services, Berlin, in a joint project
|
||||||
|
* between TELES and Nixdorf Microprocessor Engineering, Berlin).
|
||||||
|
*
|
||||||
|
* Oliver Laumann, TELES GmbH, Nixdorf Computer AG and Sam Hocevar, as co-
|
||||||
|
* owners or individual owners of copyright in this software, grant to any
|
||||||
|
* person or company a worldwide, royalty free, license to
|
||||||
|
*
|
||||||
|
* i) copy this software,
|
||||||
|
* ii) prepare derivative works based on this software,
|
||||||
|
* iii) distribute copies of this software or derivative works,
|
||||||
|
* iv) perform this software, or
|
||||||
|
* v) display this software,
|
||||||
|
*
|
||||||
|
* provided that this notice is not removed and that neither Oliver Laumann
|
||||||
|
* nor Teles nor Nixdorf are deemed to have made any representations as to
|
||||||
|
* the suitability of this software for any purpose nor are held responsible
|
||||||
|
* for any defects of this software.
|
||||||
|
*
|
||||||
|
* THERE IS ABSOLUTELY NO WARRANTY FOR THIS SOFTWARE.
|
||||||
*/
|
*/
|
||||||
|
|
||||||
C_LINKAGE_BEGIN
|
C_LINKAGE_BEGIN
|
||||||
|
|
|
||||||
|
|
@ -1,4 +1,31 @@
|
||||||
/* The `wrapper' include file used by the interpreter.
|
/* kernel.h: The `wrapper' include file used by the interpreter.
|
||||||
|
*
|
||||||
|
* $Id$
|
||||||
|
*
|
||||||
|
* Copyright 1990, 1991, 1992, 1993, 1994, 1995, Oliver Laumann, Berlin
|
||||||
|
* Copyright 2002, 2003 Sam Hocevar <sam@zoy.org>, Paris
|
||||||
|
*
|
||||||
|
* This software was derived from Elk 1.2, which was Copyright 1987, 1988,
|
||||||
|
* 1989, Nixdorf Computer AG and TELES GmbH, Berlin (Elk 1.2 has been written
|
||||||
|
* by Oliver Laumann for TELES Telematic Services, Berlin, in a joint project
|
||||||
|
* between TELES and Nixdorf Microprocessor Engineering, Berlin).
|
||||||
|
*
|
||||||
|
* Oliver Laumann, TELES GmbH, Nixdorf Computer AG and Sam Hocevar, as co-
|
||||||
|
* owners or individual owners of copyright in this software, grant to any
|
||||||
|
* person or company a worldwide, royalty free, license to
|
||||||
|
*
|
||||||
|
* i) copy this software,
|
||||||
|
* ii) prepare derivative works based on this software,
|
||||||
|
* iii) distribute copies of this software or derivative works,
|
||||||
|
* iv) perform this software, or
|
||||||
|
* v) display this software,
|
||||||
|
*
|
||||||
|
* provided that this notice is not removed and that neither Oliver Laumann
|
||||||
|
* nor Teles nor Nixdorf are deemed to have made any representations as to
|
||||||
|
* the suitability of this software for any purpose nor are held responsible
|
||||||
|
* for any defects of this software.
|
||||||
|
*
|
||||||
|
* THERE IS ABSOLUTELY NO WARRANTY FOR THIS SOFTWARE.
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#ifndef KERNEL_H
|
#ifndef KERNEL_H
|
||||||
|
|
|
||||||
|
|
@ -1,3 +1,33 @@
|
||||||
|
/* misc.h
|
||||||
|
*
|
||||||
|
* $Id$
|
||||||
|
*
|
||||||
|
* Copyright 1990, 1991, 1992, 1993, 1994, 1995, Oliver Laumann, Berlin
|
||||||
|
* Copyright 2002, 2003 Sam Hocevar <sam@zoy.org>, Paris
|
||||||
|
*
|
||||||
|
* This software was derived from Elk 1.2, which was Copyright 1987, 1988,
|
||||||
|
* 1989, Nixdorf Computer AG and TELES GmbH, Berlin (Elk 1.2 has been written
|
||||||
|
* by Oliver Laumann for TELES Telematic Services, Berlin, in a joint project
|
||||||
|
* between TELES and Nixdorf Microprocessor Engineering, Berlin).
|
||||||
|
*
|
||||||
|
* Oliver Laumann, TELES GmbH, Nixdorf Computer AG and Sam Hocevar, as co-
|
||||||
|
* owners or individual owners of copyright in this software, grant to any
|
||||||
|
* person or company a worldwide, royalty free, license to
|
||||||
|
*
|
||||||
|
* i) copy this software,
|
||||||
|
* ii) prepare derivative works based on this software,
|
||||||
|
* iii) distribute copies of this software or derivative works,
|
||||||
|
* iv) perform this software, or
|
||||||
|
* v) display this software,
|
||||||
|
*
|
||||||
|
* provided that this notice is not removed and that neither Oliver Laumann
|
||||||
|
* nor Teles nor Nixdorf are deemed to have made any representations as to
|
||||||
|
* the suitability of this software for any purpose nor are held responsible
|
||||||
|
* for any defects of this software.
|
||||||
|
*
|
||||||
|
* THERE IS ABSOLUTELY NO WARRANTY FOR THIS SOFTWARE.
|
||||||
|
*/
|
||||||
|
|
||||||
#ifndef __GNUC__
|
#ifndef __GNUC__
|
||||||
# define __asm__ asm
|
# define __asm__ asm
|
||||||
#endif
|
#endif
|
||||||
|
|
|
||||||
|
|
@ -1,5 +1,32 @@
|
||||||
/* The Scheme object representation, and a few other important
|
/* object.h: The Scheme object representation, and a few other important
|
||||||
* data types.
|
* data types.
|
||||||
|
*
|
||||||
|
* $Id$
|
||||||
|
*
|
||||||
|
* Copyright 1990, 1991, 1992, 1993, 1994, 1995, Oliver Laumann, Berlin
|
||||||
|
* Copyright 2002, 2003 Sam Hocevar <sam@zoy.org>, Paris
|
||||||
|
*
|
||||||
|
* This software was derived from Elk 1.2, which was Copyright 1987, 1988,
|
||||||
|
* 1989, Nixdorf Computer AG and TELES GmbH, Berlin (Elk 1.2 has been written
|
||||||
|
* by Oliver Laumann for TELES Telematic Services, Berlin, in a joint project
|
||||||
|
* between TELES and Nixdorf Microprocessor Engineering, Berlin).
|
||||||
|
*
|
||||||
|
* Oliver Laumann, TELES GmbH, Nixdorf Computer AG and Sam Hocevar, as co-
|
||||||
|
* owners or individual owners of copyright in this software, grant to any
|
||||||
|
* person or company a worldwide, royalty free, license to
|
||||||
|
*
|
||||||
|
* i) copy this software,
|
||||||
|
* ii) prepare derivative works based on this software,
|
||||||
|
* iii) distribute copies of this software or derivative works,
|
||||||
|
* iv) perform this software, or
|
||||||
|
* v) display this software,
|
||||||
|
*
|
||||||
|
* provided that this notice is not removed and that neither Oliver Laumann
|
||||||
|
* nor Teles nor Nixdorf are deemed to have made any representations as to
|
||||||
|
* the suitability of this software for any purpose nor are held responsible
|
||||||
|
* for any defects of this software.
|
||||||
|
*
|
||||||
|
* THERE IS ABSOLUTELY NO WARRANTY FOR THIS SOFTWARE.
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#include <stdint.h>
|
#include <stdint.h>
|
||||||
|
|
|
||||||
|
|
@ -1,8 +1,34 @@
|
||||||
/* These definitions are not intended to be tunable. Do not change
|
/* param.h: These definitions are not intended to be tunable. Do not change
|
||||||
* them unless you _must_.
|
* them unless you _must_.
|
||||||
|
*
|
||||||
|
* $Id$
|
||||||
|
*
|
||||||
|
* Copyright 1990, 1991, 1992, 1993, 1994, 1995, Oliver Laumann, Berlin
|
||||||
|
* Copyright 2002, 2003 Sam Hocevar <sam@zoy.org>, Paris
|
||||||
|
*
|
||||||
|
* This software was derived from Elk 1.2, which was Copyright 1987, 1988,
|
||||||
|
* 1989, Nixdorf Computer AG and TELES GmbH, Berlin (Elk 1.2 has been written
|
||||||
|
* by Oliver Laumann for TELES Telematic Services, Berlin, in a joint project
|
||||||
|
* between TELES and Nixdorf Microprocessor Engineering, Berlin).
|
||||||
|
*
|
||||||
|
* Oliver Laumann, TELES GmbH, Nixdorf Computer AG and Sam Hocevar, as co-
|
||||||
|
* owners or individual owners of copyright in this software, grant to any
|
||||||
|
* person or company a worldwide, royalty free, license to
|
||||||
|
*
|
||||||
|
* i) copy this software,
|
||||||
|
* ii) prepare derivative works based on this software,
|
||||||
|
* iii) distribute copies of this software or derivative works,
|
||||||
|
* iv) perform this software, or
|
||||||
|
* v) display this software,
|
||||||
|
*
|
||||||
|
* provided that this notice is not removed and that neither Oliver Laumann
|
||||||
|
* nor Teles nor Nixdorf are deemed to have made any representations as to
|
||||||
|
* the suitability of this software for any purpose nor are held responsible
|
||||||
|
* for any defects of this software.
|
||||||
|
*
|
||||||
|
* THERE IS ABSOLUTELY NO WARRANTY FOR THIS SOFTWARE.
|
||||||
*/
|
*/
|
||||||
|
|
||||||
|
|
||||||
/* Name of Scheme file which is always loaded on startup:
|
/* Name of Scheme file which is always loaded on startup:
|
||||||
*/
|
*/
|
||||||
#define INITFILE "initscheme.scm"
|
#define INITFILE "initscheme.scm"
|
||||||
|
|
|
||||||
|
|
@ -1,4 +1,31 @@
|
||||||
/* The `wrapper' include file used by extensions and applications.
|
/* scheme.h: The `wrapper' include file used by extensions and applications.
|
||||||
|
*
|
||||||
|
* $Id$
|
||||||
|
*
|
||||||
|
* Copyright 1990, 1991, 1992, 1993, 1994, 1995, Oliver Laumann, Berlin
|
||||||
|
* Copyright 2002, 2003 Sam Hocevar <sam@zoy.org>, Paris
|
||||||
|
*
|
||||||
|
* This software was derived from Elk 1.2, which was Copyright 1987, 1988,
|
||||||
|
* 1989, Nixdorf Computer AG and TELES GmbH, Berlin (Elk 1.2 has been written
|
||||||
|
* by Oliver Laumann for TELES Telematic Services, Berlin, in a joint project
|
||||||
|
* between TELES and Nixdorf Microprocessor Engineering, Berlin).
|
||||||
|
*
|
||||||
|
* Oliver Laumann, TELES GmbH, Nixdorf Computer AG and Sam Hocevar, as co-
|
||||||
|
* owners or individual owners of copyright in this software, grant to any
|
||||||
|
* person or company a worldwide, royalty free, license to
|
||||||
|
*
|
||||||
|
* i) copy this software,
|
||||||
|
* ii) prepare derivative works based on this software,
|
||||||
|
* iii) distribute copies of this software or derivative works,
|
||||||
|
* iv) perform this software, or
|
||||||
|
* v) display this software,
|
||||||
|
*
|
||||||
|
* provided that this notice is not removed and that neither Oliver Laumann
|
||||||
|
* nor Teles nor Nixdorf are deemed to have made any representations as to
|
||||||
|
* the suitability of this software for any purpose nor are held responsible
|
||||||
|
* for any defects of this software.
|
||||||
|
*
|
||||||
|
* THERE IS ABSOLUTELY NO WARRANTY FOR THIS SOFTWARE.
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#ifndef SCHEME_H
|
#ifndef SCHEME_H
|
||||||
|
|
|
||||||
|
|
@ -1,3 +1,33 @@
|
||||||
|
/* stkmem.h
|
||||||
|
*
|
||||||
|
* $Id$
|
||||||
|
*
|
||||||
|
* Copyright 1990, 1991, 1992, 1993, 1994, 1995, Oliver Laumann, Berlin
|
||||||
|
* Copyright 2002, 2003 Sam Hocevar <sam@zoy.org>, Paris
|
||||||
|
*
|
||||||
|
* This software was derived from Elk 1.2, which was Copyright 1987, 1988,
|
||||||
|
* 1989, Nixdorf Computer AG and TELES GmbH, Berlin (Elk 1.2 has been written
|
||||||
|
* by Oliver Laumann for TELES Telematic Services, Berlin, in a joint project
|
||||||
|
* between TELES and Nixdorf Microprocessor Engineering, Berlin).
|
||||||
|
*
|
||||||
|
* Oliver Laumann, TELES GmbH, Nixdorf Computer AG and Sam Hocevar, as co-
|
||||||
|
* owners or individual owners of copyright in this software, grant to any
|
||||||
|
* person or company a worldwide, royalty free, license to
|
||||||
|
*
|
||||||
|
* i) copy this software,
|
||||||
|
* ii) prepare derivative works based on this software,
|
||||||
|
* iii) distribute copies of this software or derivative works,
|
||||||
|
* iv) perform this software, or
|
||||||
|
* v) display this software,
|
||||||
|
*
|
||||||
|
* provided that this notice is not removed and that neither Oliver Laumann
|
||||||
|
* nor Teles nor Nixdorf are deemed to have made any representations as to
|
||||||
|
* the suitability of this software for any purpose nor are held responsible
|
||||||
|
* for any defects of this software.
|
||||||
|
*
|
||||||
|
* THERE IS ABSOLUTELY NO WARRANTY FOR THIS SOFTWARE.
|
||||||
|
*/
|
||||||
|
|
||||||
#ifdef USE_ALLOCA
|
#ifdef USE_ALLOCA
|
||||||
|
|
||||||
#ifdef HAVE_ALLOCA_H
|
#ifdef HAVE_ALLOCA_H
|
||||||
|
|
|
||||||
|
|
@ -1,4 +1,31 @@
|
||||||
/* Miscellaneous macros for type-checking Scheme objects.
|
/* type.h: Miscellaneous macros for type-checking Scheme objects.
|
||||||
|
*
|
||||||
|
* $Id$
|
||||||
|
*
|
||||||
|
* Copyright 1990, 1991, 1992, 1993, 1994, 1995, Oliver Laumann, Berlin
|
||||||
|
* Copyright 2002, 2003 Sam Hocevar <sam@zoy.org>, Paris
|
||||||
|
*
|
||||||
|
* This software was derived from Elk 1.2, which was Copyright 1987, 1988,
|
||||||
|
* 1989, Nixdorf Computer AG and TELES GmbH, Berlin (Elk 1.2 has been written
|
||||||
|
* by Oliver Laumann for TELES Telematic Services, Berlin, in a joint project
|
||||||
|
* between TELES and Nixdorf Microprocessor Engineering, Berlin).
|
||||||
|
*
|
||||||
|
* Oliver Laumann, TELES GmbH, Nixdorf Computer AG and Sam Hocevar, as co-
|
||||||
|
* owners or individual owners of copyright in this software, grant to any
|
||||||
|
* person or company a worldwide, royalty free, license to
|
||||||
|
*
|
||||||
|
* i) copy this software,
|
||||||
|
* ii) prepare derivative works based on this software,
|
||||||
|
* iii) distribute copies of this software or derivative works,
|
||||||
|
* iv) perform this software, or
|
||||||
|
* v) display this software,
|
||||||
|
*
|
||||||
|
* provided that this notice is not removed and that neither Oliver Laumann
|
||||||
|
* nor Teles nor Nixdorf are deemed to have made any representations as to
|
||||||
|
* the suitability of this software for any purpose nor are held responsible
|
||||||
|
* for any defects of this software.
|
||||||
|
*
|
||||||
|
* THERE IS ABSOLUTELY NO WARRANTY FOR THIS SOFTWARE.
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#define Check_Type(x,t) {\
|
#define Check_Type(x,t) {\
|
||||||
|
|
|
||||||
|
|
@ -1,3 +1,33 @@
|
||||||
|
/* autoload.c: Autoloading support.
|
||||||
|
*
|
||||||
|
* $Id$
|
||||||
|
*
|
||||||
|
* Copyright 1990, 1991, 1992, 1993, 1994, 1995, Oliver Laumann, Berlin
|
||||||
|
* Copyright 2002, 2003 Sam Hocevar <sam@zoy.org>, Paris
|
||||||
|
*
|
||||||
|
* This software was derived from Elk 1.2, which was Copyright 1987, 1988,
|
||||||
|
* 1989, Nixdorf Computer AG and TELES GmbH, Berlin (Elk 1.2 has been written
|
||||||
|
* by Oliver Laumann for TELES Telematic Services, Berlin, in a joint project
|
||||||
|
* between TELES and Nixdorf Microprocessor Engineering, Berlin).
|
||||||
|
*
|
||||||
|
* Oliver Laumann, TELES GmbH, Nixdorf Computer AG and Sam Hocevar, as co-
|
||||||
|
* owners or individual owners of copyright in this software, grant to any
|
||||||
|
* person or company a worldwide, royalty free, license to
|
||||||
|
*
|
||||||
|
* i) copy this software,
|
||||||
|
* ii) prepare derivative works based on this software,
|
||||||
|
* iii) distribute copies of this software or derivative works,
|
||||||
|
* iv) perform this software, or
|
||||||
|
* v) display this software,
|
||||||
|
*
|
||||||
|
* provided that this notice is not removed and that neither Oliver Laumann
|
||||||
|
* nor Teles nor Nixdorf are deemed to have made any representations as to
|
||||||
|
* the suitability of this software for any purpose nor are held responsible
|
||||||
|
* for any defects of this software.
|
||||||
|
*
|
||||||
|
* THERE IS ABSOLUTELY NO WARRANTY FOR THIS SOFTWARE.
|
||||||
|
*/
|
||||||
|
|
||||||
#include "kernel.h"
|
#include "kernel.h"
|
||||||
|
|
||||||
Object V_Autoload_Notifyp;
|
Object V_Autoload_Notifyp;
|
||||||
|
|
|
||||||
30
src/bignum.c
30
src/bignum.c
|
|
@ -1,3 +1,33 @@
|
||||||
|
/* bignum.c: Bignum functions.
|
||||||
|
*
|
||||||
|
* $Id$
|
||||||
|
*
|
||||||
|
* Copyright 1990, 1991, 1992, 1993, 1994, 1995, Oliver Laumann, Berlin
|
||||||
|
* Copyright 2002, 2003 Sam Hocevar <sam@zoy.org>, Paris
|
||||||
|
*
|
||||||
|
* This software was derived from Elk 1.2, which was Copyright 1987, 1988,
|
||||||
|
* 1989, Nixdorf Computer AG and TELES GmbH, Berlin (Elk 1.2 has been written
|
||||||
|
* by Oliver Laumann for TELES Telematic Services, Berlin, in a joint project
|
||||||
|
* between TELES and Nixdorf Microprocessor Engineering, Berlin).
|
||||||
|
*
|
||||||
|
* Oliver Laumann, TELES GmbH, Nixdorf Computer AG and Sam Hocevar, as co-
|
||||||
|
* owners or individual owners of copyright in this software, grant to any
|
||||||
|
* person or company a worldwide, royalty free, license to
|
||||||
|
*
|
||||||
|
* i) copy this software,
|
||||||
|
* ii) prepare derivative works based on this software,
|
||||||
|
* iii) distribute copies of this software or derivative works,
|
||||||
|
* iv) perform this software, or
|
||||||
|
* v) display this software,
|
||||||
|
*
|
||||||
|
* provided that this notice is not removed and that neither Oliver Laumann
|
||||||
|
* nor Teles nor Nixdorf are deemed to have made any representations as to
|
||||||
|
* the suitability of this software for any purpose nor are held responsible
|
||||||
|
* for any defects of this software.
|
||||||
|
*
|
||||||
|
* THERE IS ABSOLUTELY NO WARRANTY FOR THIS SOFTWARE.
|
||||||
|
*/
|
||||||
|
|
||||||
#include <math.h>
|
#include <math.h>
|
||||||
#include <ctype.h>
|
#include <ctype.h>
|
||||||
#include <string.h>
|
#include <string.h>
|
||||||
|
|
|
||||||
30
src/bool.c
30
src/bool.c
|
|
@ -1,3 +1,33 @@
|
||||||
|
/* bool.c: Boolean functions.
|
||||||
|
*
|
||||||
|
* $Id$
|
||||||
|
*
|
||||||
|
* Copyright 1990, 1991, 1992, 1993, 1994, 1995, Oliver Laumann, Berlin
|
||||||
|
* Copyright 2002, 2003 Sam Hocevar <sam@zoy.org>, Paris
|
||||||
|
*
|
||||||
|
* This software was derived from Elk 1.2, which was Copyright 1987, 1988,
|
||||||
|
* 1989, Nixdorf Computer AG and TELES GmbH, Berlin (Elk 1.2 has been written
|
||||||
|
* by Oliver Laumann for TELES Telematic Services, Berlin, in a joint project
|
||||||
|
* between TELES and Nixdorf Microprocessor Engineering, Berlin).
|
||||||
|
*
|
||||||
|
* Oliver Laumann, TELES GmbH, Nixdorf Computer AG and Sam Hocevar, as co-
|
||||||
|
* owners or individual owners of copyright in this software, grant to any
|
||||||
|
* person or company a worldwide, royalty free, license to
|
||||||
|
*
|
||||||
|
* i) copy this software,
|
||||||
|
* ii) prepare derivative works based on this software,
|
||||||
|
* iii) distribute copies of this software or derivative works,
|
||||||
|
* iv) perform this software, or
|
||||||
|
* v) display this software,
|
||||||
|
*
|
||||||
|
* provided that this notice is not removed and that neither Oliver Laumann
|
||||||
|
* nor Teles nor Nixdorf are deemed to have made any representations as to
|
||||||
|
* the suitability of this software for any purpose nor are held responsible
|
||||||
|
* for any defects of this software.
|
||||||
|
*
|
||||||
|
* THERE IS ABSOLUTELY NO WARRANTY FOR THIS SOFTWARE.
|
||||||
|
*/
|
||||||
|
|
||||||
#include "kernel.h"
|
#include "kernel.h"
|
||||||
|
|
||||||
#include <string.h>
|
#include <string.h>
|
||||||
|
|
|
||||||
30
src/char.c
30
src/char.c
|
|
@ -1,3 +1,33 @@
|
||||||
|
/* char.c: Character functions.
|
||||||
|
*
|
||||||
|
* $Id$
|
||||||
|
*
|
||||||
|
* Copyright 1990, 1991, 1992, 1993, 1994, 1995, Oliver Laumann, Berlin
|
||||||
|
* Copyright 2002, 2003 Sam Hocevar <sam@zoy.org>, Paris
|
||||||
|
*
|
||||||
|
* This software was derived from Elk 1.2, which was Copyright 1987, 1988,
|
||||||
|
* 1989, Nixdorf Computer AG and TELES GmbH, Berlin (Elk 1.2 has been written
|
||||||
|
* by Oliver Laumann for TELES Telematic Services, Berlin, in a joint project
|
||||||
|
* between TELES and Nixdorf Microprocessor Engineering, Berlin).
|
||||||
|
*
|
||||||
|
* Oliver Laumann, TELES GmbH, Nixdorf Computer AG and Sam Hocevar, as co-
|
||||||
|
* owners or individual owners of copyright in this software, grant to any
|
||||||
|
* person or company a worldwide, royalty free, license to
|
||||||
|
*
|
||||||
|
* i) copy this software,
|
||||||
|
* ii) prepare derivative works based on this software,
|
||||||
|
* iii) distribute copies of this software or derivative works,
|
||||||
|
* iv) perform this software, or
|
||||||
|
* v) display this software,
|
||||||
|
*
|
||||||
|
* provided that this notice is not removed and that neither Oliver Laumann
|
||||||
|
* nor Teles nor Nixdorf are deemed to have made any representations as to
|
||||||
|
* the suitability of this software for any purpose nor are held responsible
|
||||||
|
* for any defects of this software.
|
||||||
|
*
|
||||||
|
* THERE IS ABSOLUTELY NO WARRANTY FOR THIS SOFTWARE.
|
||||||
|
*/
|
||||||
|
|
||||||
#include <ctype.h>
|
#include <ctype.h>
|
||||||
|
|
||||||
#include "kernel.h"
|
#include "kernel.h"
|
||||||
|
|
|
||||||
29
src/cont.c
29
src/cont.c
|
|
@ -1,4 +1,31 @@
|
||||||
/* Continuations and dynamic-wind.
|
/* cont.c: Continuations and dynamic-wind.
|
||||||
|
*
|
||||||
|
* $Id$
|
||||||
|
*
|
||||||
|
* Copyright 1990, 1991, 1992, 1993, 1994, 1995, Oliver Laumann, Berlin
|
||||||
|
* Copyright 2002, 2003 Sam Hocevar <sam@zoy.org>, Paris
|
||||||
|
*
|
||||||
|
* This software was derived from Elk 1.2, which was Copyright 1987, 1988,
|
||||||
|
* 1989, Nixdorf Computer AG and TELES GmbH, Berlin (Elk 1.2 has been written
|
||||||
|
* by Oliver Laumann for TELES Telematic Services, Berlin, in a joint project
|
||||||
|
* between TELES and Nixdorf Microprocessor Engineering, Berlin).
|
||||||
|
*
|
||||||
|
* Oliver Laumann, TELES GmbH, Nixdorf Computer AG and Sam Hocevar, as co-
|
||||||
|
* owners or individual owners of copyright in this software, grant to any
|
||||||
|
* person or company a worldwide, royalty free, license to
|
||||||
|
*
|
||||||
|
* i) copy this software,
|
||||||
|
* ii) prepare derivative works based on this software,
|
||||||
|
* iii) distribute copies of this software or derivative works,
|
||||||
|
* iv) perform this software, or
|
||||||
|
* v) display this software,
|
||||||
|
*
|
||||||
|
* provided that this notice is not removed and that neither Oliver Laumann
|
||||||
|
* nor Teles nor Nixdorf are deemed to have made any representations as to
|
||||||
|
* the suitability of this software for any purpose nor are held responsible
|
||||||
|
* for any defects of this software.
|
||||||
|
*
|
||||||
|
* THERE IS ABSOLUTELY NO WARRANTY FOR THIS SOFTWARE.
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#include "kernel.h"
|
#include "kernel.h"
|
||||||
|
|
|
||||||
|
|
@ -1,12 +1,39 @@
|
||||||
/* Convert Scheme strings to C strings. The contents of strings has to
|
/* cstring.c: Convert Scheme strings to C strings. The contents of strings
|
||||||
* be copied, because strings in Elk do not have a terminating null-byte
|
* has to be copied, because strings in Elk do not have a terminating null-
|
||||||
* (strings may _contain_ null-bytes).
|
* byte (strings may _contain_ null-bytes).
|
||||||
*
|
*
|
||||||
* Get_String() and Get_Strsym() allocate memory in NUMSTRBUFS cyclically
|
* Get_String() and Get_Strsym() allocate memory in NUMSTRBUFS cyclically
|
||||||
* reused buffers in the C heap.
|
* reused buffers in the C heap.
|
||||||
* The macros Get_String_Stack() and Get_Strsym_Stack() in include/cstring.h
|
* The macros Get_String_Stack() and Get_Strsym_Stack() in include/cstring.h
|
||||||
* allocate memory on the stack. They have to be used whenever more than
|
* allocate memory on the stack. They have to be used whenever more than
|
||||||
* NUMSTRBUFS strings are active in a function at the same time.
|
* NUMSTRBUFS strings are active in a function at the same time.
|
||||||
|
*
|
||||||
|
* $Id$
|
||||||
|
*
|
||||||
|
* Copyright 1990, 1991, 1992, 1993, 1994, 1995, Oliver Laumann, Berlin
|
||||||
|
* Copyright 2002, 2003 Sam Hocevar <sam@zoy.org>, Paris
|
||||||
|
*
|
||||||
|
* This software was derived from Elk 1.2, which was Copyright 1987, 1988,
|
||||||
|
* 1989, Nixdorf Computer AG and TELES GmbH, Berlin (Elk 1.2 has been written
|
||||||
|
* by Oliver Laumann for TELES Telematic Services, Berlin, in a joint project
|
||||||
|
* between TELES and Nixdorf Microprocessor Engineering, Berlin).
|
||||||
|
*
|
||||||
|
* Oliver Laumann, TELES GmbH, Nixdorf Computer AG and Sam Hocevar, as co-
|
||||||
|
* owners or individual owners of copyright in this software, grant to any
|
||||||
|
* person or company a worldwide, royalty free, license to
|
||||||
|
*
|
||||||
|
* i) copy this software,
|
||||||
|
* ii) prepare derivative works based on this software,
|
||||||
|
* iii) distribute copies of this software or derivative works,
|
||||||
|
* iv) perform this software, or
|
||||||
|
* v) display this software,
|
||||||
|
*
|
||||||
|
* provided that this notice is not removed and that neither Oliver Laumann
|
||||||
|
* nor Teles nor Nixdorf are deemed to have made any representations as to
|
||||||
|
* the suitability of this software for any purpose nor are held responsible
|
||||||
|
* for any defects of this software.
|
||||||
|
*
|
||||||
|
* THERE IS ABSOLUTELY NO WARRANTY FOR THIS SOFTWARE.
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#include "kernel.h"
|
#include "kernel.h"
|
||||||
|
|
|
||||||
29
src/debug.c
29
src/debug.c
|
|
@ -1,4 +1,31 @@
|
||||||
/* The primitive `backtrace-list'.
|
/* debug.c: The primitive `backtrace-list'.
|
||||||
|
*
|
||||||
|
* $Id$
|
||||||
|
*
|
||||||
|
* Copyright 1990, 1991, 1992, 1993, 1994, 1995, Oliver Laumann, Berlin
|
||||||
|
* Copyright 2002, 2003 Sam Hocevar <sam@zoy.org>, Paris
|
||||||
|
*
|
||||||
|
* This software was derived from Elk 1.2, which was Copyright 1987, 1988,
|
||||||
|
* 1989, Nixdorf Computer AG and TELES GmbH, Berlin (Elk 1.2 has been written
|
||||||
|
* by Oliver Laumann for TELES Telematic Services, Berlin, in a joint project
|
||||||
|
* between TELES and Nixdorf Microprocessor Engineering, Berlin).
|
||||||
|
*
|
||||||
|
* Oliver Laumann, TELES GmbH, Nixdorf Computer AG and Sam Hocevar, as co-
|
||||||
|
* owners or individual owners of copyright in this software, grant to any
|
||||||
|
* person or company a worldwide, royalty free, license to
|
||||||
|
*
|
||||||
|
* i) copy this software,
|
||||||
|
* ii) prepare derivative works based on this software,
|
||||||
|
* iii) distribute copies of this software or derivative works,
|
||||||
|
* iv) perform this software, or
|
||||||
|
* v) display this software,
|
||||||
|
*
|
||||||
|
* provided that this notice is not removed and that neither Oliver Laumann
|
||||||
|
* nor Teles nor Nixdorf are deemed to have made any representations as to
|
||||||
|
* the suitability of this software for any purpose nor are held responsible
|
||||||
|
* for any defects of this software.
|
||||||
|
*
|
||||||
|
* THERE IS ABSOLUTELY NO WARRANTY FOR THIS SOFTWARE.
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#include "kernel.h"
|
#include "kernel.h"
|
||||||
|
|
|
||||||
|
|
@ -1,3 +1,33 @@
|
||||||
|
/* dump-ecoff.c
|
||||||
|
*
|
||||||
|
* $Id$
|
||||||
|
*
|
||||||
|
* Copyright 1990, 1991, 1992, 1993, 1994, 1995, Oliver Laumann, Berlin
|
||||||
|
* Copyright 2002, 2003 Sam Hocevar <sam@zoy.org>, Paris
|
||||||
|
*
|
||||||
|
* This software was derived from Elk 1.2, which was Copyright 1987, 1988,
|
||||||
|
* 1989, Nixdorf Computer AG and TELES GmbH, Berlin (Elk 1.2 has been written
|
||||||
|
* by Oliver Laumann for TELES Telematic Services, Berlin, in a joint project
|
||||||
|
* between TELES and Nixdorf Microprocessor Engineering, Berlin).
|
||||||
|
*
|
||||||
|
* Oliver Laumann, TELES GmbH, Nixdorf Computer AG and Sam Hocevar, as co-
|
||||||
|
* owners or individual owners of copyright in this software, grant to any
|
||||||
|
* person or company a worldwide, royalty free, license to
|
||||||
|
*
|
||||||
|
* i) copy this software,
|
||||||
|
* ii) prepare derivative works based on this software,
|
||||||
|
* iii) distribute copies of this software or derivative works,
|
||||||
|
* iv) perform this software, or
|
||||||
|
* v) display this software,
|
||||||
|
*
|
||||||
|
* provided that this notice is not removed and that neither Oliver Laumann
|
||||||
|
* nor Teles nor Nixdorf are deemed to have made any representations as to
|
||||||
|
* the suitability of this software for any purpose nor are held responsible
|
||||||
|
* for any defects of this software.
|
||||||
|
*
|
||||||
|
* THERE IS ABSOLUTELY NO WARRANTY FOR THIS SOFTWARE.
|
||||||
|
*/
|
||||||
|
|
||||||
#include <fcntl.h>
|
#include <fcntl.h>
|
||||||
#include <sys/types.h>
|
#include <sys/types.h>
|
||||||
#include <filehdr.h>
|
#include <filehdr.h>
|
||||||
|
|
|
||||||
|
|
@ -1,3 +1,33 @@
|
||||||
|
/* dump-elf.c
|
||||||
|
*
|
||||||
|
* $Id$
|
||||||
|
*
|
||||||
|
* Copyright 1990, 1991, 1992, 1993, 1994, 1995, Oliver Laumann, Berlin
|
||||||
|
* Copyright 2002, 2003 Sam Hocevar <sam@zoy.org>, Paris
|
||||||
|
*
|
||||||
|
* This software was derived from Elk 1.2, which was Copyright 1987, 1988,
|
||||||
|
* 1989, Nixdorf Computer AG and TELES GmbH, Berlin (Elk 1.2 has been written
|
||||||
|
* by Oliver Laumann for TELES Telematic Services, Berlin, in a joint project
|
||||||
|
* between TELES and Nixdorf Microprocessor Engineering, Berlin).
|
||||||
|
*
|
||||||
|
* Oliver Laumann, TELES GmbH, Nixdorf Computer AG and Sam Hocevar, as co-
|
||||||
|
* owners or individual owners of copyright in this software, grant to any
|
||||||
|
* person or company a worldwide, royalty free, license to
|
||||||
|
*
|
||||||
|
* i) copy this software,
|
||||||
|
* ii) prepare derivative works based on this software,
|
||||||
|
* iii) distribute copies of this software or derivative works,
|
||||||
|
* iv) perform this software, or
|
||||||
|
* v) display this software,
|
||||||
|
*
|
||||||
|
* provided that this notice is not removed and that neither Oliver Laumann
|
||||||
|
* nor Teles nor Nixdorf are deemed to have made any representations as to
|
||||||
|
* the suitability of this software for any purpose nor are held responsible
|
||||||
|
* for any defects of this software.
|
||||||
|
*
|
||||||
|
* THERE IS ABSOLUTELY NO WARRANTY FOR THIS SOFTWARE.
|
||||||
|
*/
|
||||||
|
|
||||||
#include <elf.h>
|
#include <elf.h>
|
||||||
#include <memory.h>
|
#include <memory.h>
|
||||||
#include <stdio.h>
|
#include <stdio.h>
|
||||||
|
|
|
||||||
|
|
@ -1,8 +1,8 @@
|
||||||
/* Dump for the HP-PA. It needs some work; for instance, it currently
|
/* dump-hp9k.c: Dump for the HP-PA. It needs some work; for instance, it
|
||||||
* assumes that the data space is the last space in the a.out file.
|
* currently assumes that the data space is the last space in the a.out
|
||||||
* If it weren't the last space, the code would have to adjust pointers
|
* file. If it weren't the last space, the code would have to adjust
|
||||||
* (such as header.space_location) that point into spaces beyond the
|
* pointers (such as header.space_location) that point into spaces beyond
|
||||||
* data space, as the data space in the new a.out is larger than that
|
* the data space, as the data space in the new a.out is larger than that
|
||||||
* in the original a.out.
|
* in the original a.out.
|
||||||
*
|
*
|
||||||
* Also, it is unclear how the checksum field in the a.out header has
|
* Also, it is unclear how the checksum field in the a.out header has
|
||||||
|
|
@ -15,6 +15,33 @@
|
||||||
* The code to support dump with a dynamically linked a.out is a hack.
|
* The code to support dump with a dynamically linked a.out is a hack.
|
||||||
* I have no idea why it works and if it will continue to work in
|
* I have no idea why it works and if it will continue to work in
|
||||||
* newer OS releases.
|
* newer OS releases.
|
||||||
|
*
|
||||||
|
* $Id$
|
||||||
|
*
|
||||||
|
* Copyright 1990, 1991, 1992, 1993, 1994, 1995, Oliver Laumann, Berlin
|
||||||
|
* Copyright 2002, 2003 Sam Hocevar <sam@zoy.org>, Paris
|
||||||
|
*
|
||||||
|
* This software was derived from Elk 1.2, which was Copyright 1987, 1988,
|
||||||
|
* 1989, Nixdorf Computer AG and TELES GmbH, Berlin (Elk 1.2 has been written
|
||||||
|
* by Oliver Laumann for TELES Telematic Services, Berlin, in a joint project
|
||||||
|
* between TELES and Nixdorf Microprocessor Engineering, Berlin).
|
||||||
|
*
|
||||||
|
* Oliver Laumann, TELES GmbH, Nixdorf Computer AG and Sam Hocevar, as co-
|
||||||
|
* owners or individual owners of copyright in this software, grant to any
|
||||||
|
* person or company a worldwide, royalty free, license to
|
||||||
|
*
|
||||||
|
* i) copy this software,
|
||||||
|
* ii) prepare derivative works based on this software,
|
||||||
|
* iii) distribute copies of this software or derivative works,
|
||||||
|
* iv) perform this software, or
|
||||||
|
* v) display this software,
|
||||||
|
*
|
||||||
|
* provided that this notice is not removed and that neither Oliver Laumann
|
||||||
|
* nor Teles nor Nixdorf are deemed to have made any representations as to
|
||||||
|
* the suitability of this software for any purpose nor are held responsible
|
||||||
|
* for any defects of this software.
|
||||||
|
*
|
||||||
|
* THERE IS ABSOLUTELY NO WARRANTY FOR THIS SOFTWARE.
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#include AOUT_H
|
#include AOUT_H
|
||||||
|
|
|
||||||
|
|
@ -1,3 +1,33 @@
|
||||||
|
/* dump-vanilla.c
|
||||||
|
*
|
||||||
|
* $Id$
|
||||||
|
*
|
||||||
|
* Copyright 1990, 1991, 1992, 1993, 1994, 1995, Oliver Laumann, Berlin
|
||||||
|
* Copyright 2002, 2003 Sam Hocevar <sam@zoy.org>, Paris
|
||||||
|
*
|
||||||
|
* This software was derived from Elk 1.2, which was Copyright 1987, 1988,
|
||||||
|
* 1989, Nixdorf Computer AG and TELES GmbH, Berlin (Elk 1.2 has been written
|
||||||
|
* by Oliver Laumann for TELES Telematic Services, Berlin, in a joint project
|
||||||
|
* between TELES and Nixdorf Microprocessor Engineering, Berlin).
|
||||||
|
*
|
||||||
|
* Oliver Laumann, TELES GmbH, Nixdorf Computer AG and Sam Hocevar, as co-
|
||||||
|
* owners or individual owners of copyright in this software, grant to any
|
||||||
|
* person or company a worldwide, royalty free, license to
|
||||||
|
*
|
||||||
|
* i) copy this software,
|
||||||
|
* ii) prepare derivative works based on this software,
|
||||||
|
* iii) distribute copies of this software or derivative works,
|
||||||
|
* iv) perform this software, or
|
||||||
|
* v) display this software,
|
||||||
|
*
|
||||||
|
* provided that this notice is not removed and that neither Oliver Laumann
|
||||||
|
* nor Teles nor Nixdorf are deemed to have made any representations as to
|
||||||
|
* the suitability of this software for any purpose nor are held responsible
|
||||||
|
* for any defects of this software.
|
||||||
|
*
|
||||||
|
* THERE IS ABSOLUTELY NO WARRANTY FOR THIS SOFTWARE.
|
||||||
|
*/
|
||||||
|
|
||||||
#ifdef COFF
|
#ifdef COFF
|
||||||
# include <filehdr.h>
|
# include <filehdr.h>
|
||||||
# include <aouthdr.h>
|
# include <aouthdr.h>
|
||||||
|
|
|
||||||
30
src/dump.c
30
src/dump.c
|
|
@ -1,3 +1,33 @@
|
||||||
|
/* dump.c
|
||||||
|
*
|
||||||
|
* $Id$
|
||||||
|
*
|
||||||
|
* Copyright 1990, 1991, 1992, 1993, 1994, 1995, Oliver Laumann, Berlin
|
||||||
|
* Copyright 2002, 2003 Sam Hocevar <sam@zoy.org>, Paris
|
||||||
|
*
|
||||||
|
* This software was derived from Elk 1.2, which was Copyright 1987, 1988,
|
||||||
|
* 1989, Nixdorf Computer AG and TELES GmbH, Berlin (Elk 1.2 has been written
|
||||||
|
* by Oliver Laumann for TELES Telematic Services, Berlin, in a joint project
|
||||||
|
* between TELES and Nixdorf Microprocessor Engineering, Berlin).
|
||||||
|
*
|
||||||
|
* Oliver Laumann, TELES GmbH, Nixdorf Computer AG and Sam Hocevar, as co-
|
||||||
|
* owners or individual owners of copyright in this software, grant to any
|
||||||
|
* person or company a worldwide, royalty free, license to
|
||||||
|
*
|
||||||
|
* i) copy this software,
|
||||||
|
* ii) prepare derivative works based on this software,
|
||||||
|
* iii) distribute copies of this software or derivative works,
|
||||||
|
* iv) perform this software, or
|
||||||
|
* v) display this software,
|
||||||
|
*
|
||||||
|
* provided that this notice is not removed and that neither Oliver Laumann
|
||||||
|
* nor Teles nor Nixdorf are deemed to have made any representations as to
|
||||||
|
* the suitability of this software for any purpose nor are held responsible
|
||||||
|
* for any defects of this software.
|
||||||
|
*
|
||||||
|
* THERE IS ABSOLUTELY NO WARRANTY FOR THIS SOFTWARE.
|
||||||
|
*/
|
||||||
|
|
||||||
#include "kernel.h"
|
#include "kernel.h"
|
||||||
|
|
||||||
#ifdef CAN_DUMP
|
#ifdef CAN_DUMP
|
||||||
|
|
|
||||||
29
src/env.c
29
src/env.c
|
|
@ -1,4 +1,31 @@
|
||||||
/* Environments, define, set!, etc.
|
/* env.c: Environments, define, set!, etc.
|
||||||
|
*
|
||||||
|
* $Id$
|
||||||
|
*
|
||||||
|
* Copyright 1990, 1991, 1992, 1993, 1994, 1995, Oliver Laumann, Berlin
|
||||||
|
* Copyright 2002, 2003 Sam Hocevar <sam@zoy.org>, Paris
|
||||||
|
*
|
||||||
|
* This software was derived from Elk 1.2, which was Copyright 1987, 1988,
|
||||||
|
* 1989, Nixdorf Computer AG and TELES GmbH, Berlin (Elk 1.2 has been written
|
||||||
|
* by Oliver Laumann for TELES Telematic Services, Berlin, in a joint project
|
||||||
|
* between TELES and Nixdorf Microprocessor Engineering, Berlin).
|
||||||
|
*
|
||||||
|
* Oliver Laumann, TELES GmbH, Nixdorf Computer AG and Sam Hocevar, as co-
|
||||||
|
* owners or individual owners of copyright in this software, grant to any
|
||||||
|
* person or company a worldwide, royalty free, license to
|
||||||
|
*
|
||||||
|
* i) copy this software,
|
||||||
|
* ii) prepare derivative works based on this software,
|
||||||
|
* iii) distribute copies of this software or derivative works,
|
||||||
|
* iv) perform this software, or
|
||||||
|
* v) display this software,
|
||||||
|
*
|
||||||
|
* provided that this notice is not removed and that neither Oliver Laumann
|
||||||
|
* nor Teles nor Nixdorf are deemed to have made any representations as to
|
||||||
|
* the suitability of this software for any purpose nor are held responsible
|
||||||
|
* for any defects of this software.
|
||||||
|
*
|
||||||
|
* THERE IS ABSOLUTELY NO WARRANTY FOR THIS SOFTWARE.
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#include "kernel.h"
|
#include "kernel.h"
|
||||||
|
|
|
||||||
30
src/error.c
30
src/error.c
|
|
@ -1,3 +1,33 @@
|
||||||
|
/* error.c
|
||||||
|
*
|
||||||
|
* $Id$
|
||||||
|
*
|
||||||
|
* Copyright 1990, 1991, 1992, 1993, 1994, 1995, Oliver Laumann, Berlin
|
||||||
|
* Copyright 2002, 2003 Sam Hocevar <sam@zoy.org>, Paris
|
||||||
|
*
|
||||||
|
* This software was derived from Elk 1.2, which was Copyright 1987, 1988,
|
||||||
|
* 1989, Nixdorf Computer AG and TELES GmbH, Berlin (Elk 1.2 has been written
|
||||||
|
* by Oliver Laumann for TELES Telematic Services, Berlin, in a joint project
|
||||||
|
* between TELES and Nixdorf Microprocessor Engineering, Berlin).
|
||||||
|
*
|
||||||
|
* Oliver Laumann, TELES GmbH, Nixdorf Computer AG and Sam Hocevar, as co-
|
||||||
|
* owners or individual owners of copyright in this software, grant to any
|
||||||
|
* person or company a worldwide, royalty free, license to
|
||||||
|
*
|
||||||
|
* i) copy this software,
|
||||||
|
* ii) prepare derivative works based on this software,
|
||||||
|
* iii) distribute copies of this software or derivative works,
|
||||||
|
* iv) perform this software, or
|
||||||
|
* v) display this software,
|
||||||
|
*
|
||||||
|
* provided that this notice is not removed and that neither Oliver Laumann
|
||||||
|
* nor Teles nor Nixdorf are deemed to have made any representations as to
|
||||||
|
* the suitability of this software for any purpose nor are held responsible
|
||||||
|
* for any defects of this software.
|
||||||
|
*
|
||||||
|
* THERE IS ABSOLUTELY NO WARRANTY FOR THIS SOFTWARE.
|
||||||
|
*/
|
||||||
|
|
||||||
#include <ctype.h>
|
#include <ctype.h>
|
||||||
#include <stdarg.h>
|
#include <stdarg.h>
|
||||||
#include <stdlib.h>
|
#include <stdlib.h>
|
||||||
|
|
|
||||||
|
|
@ -1,3 +1,33 @@
|
||||||
|
/* exception.c
|
||||||
|
*
|
||||||
|
* $Id$
|
||||||
|
*
|
||||||
|
* Copyright 1990, 1991, 1992, 1993, 1994, 1995, Oliver Laumann, Berlin
|
||||||
|
* Copyright 2002, 2003 Sam Hocevar <sam@zoy.org>, Paris
|
||||||
|
*
|
||||||
|
* This software was derived from Elk 1.2, which was Copyright 1987, 1988,
|
||||||
|
* 1989, Nixdorf Computer AG and TELES GmbH, Berlin (Elk 1.2 has been written
|
||||||
|
* by Oliver Laumann for TELES Telematic Services, Berlin, in a joint project
|
||||||
|
* between TELES and Nixdorf Microprocessor Engineering, Berlin).
|
||||||
|
*
|
||||||
|
* Oliver Laumann, TELES GmbH, Nixdorf Computer AG and Sam Hocevar, as co-
|
||||||
|
* owners or individual owners of copyright in this software, grant to any
|
||||||
|
* person or company a worldwide, royalty free, license to
|
||||||
|
*
|
||||||
|
* i) copy this software,
|
||||||
|
* ii) prepare derivative works based on this software,
|
||||||
|
* iii) distribute copies of this software or derivative works,
|
||||||
|
* iv) perform this software, or
|
||||||
|
* v) display this software,
|
||||||
|
*
|
||||||
|
* provided that this notice is not removed and that neither Oliver Laumann
|
||||||
|
* nor Teles nor Nixdorf are deemed to have made any representations as to
|
||||||
|
* the suitability of this software for any purpose nor are held responsible
|
||||||
|
* for any defects of this software.
|
||||||
|
*
|
||||||
|
* THERE IS ABSOLUTELY NO WARRANTY FOR THIS SOFTWARE.
|
||||||
|
*/
|
||||||
|
|
||||||
#include "kernel.h"
|
#include "kernel.h"
|
||||||
|
|
||||||
#include <stdlib.h>
|
#include <stdlib.h>
|
||||||
|
|
|
||||||
|
|
@ -1,4 +1,31 @@
|
||||||
/* provide, require, and related primitives.
|
/* feature.c: provide, require, and related primitives.
|
||||||
|
*
|
||||||
|
* $Id$
|
||||||
|
*
|
||||||
|
* Copyright 1990, 1991, 1992, 1993, 1994, 1995, Oliver Laumann, Berlin
|
||||||
|
* Copyright 2002, 2003 Sam Hocevar <sam@zoy.org>, Paris
|
||||||
|
*
|
||||||
|
* This software was derived from Elk 1.2, which was Copyright 1987, 1988,
|
||||||
|
* 1989, Nixdorf Computer AG and TELES GmbH, Berlin (Elk 1.2 has been written
|
||||||
|
* by Oliver Laumann for TELES Telematic Services, Berlin, in a joint project
|
||||||
|
* between TELES and Nixdorf Microprocessor Engineering, Berlin).
|
||||||
|
*
|
||||||
|
* Oliver Laumann, TELES GmbH, Nixdorf Computer AG and Sam Hocevar, as co-
|
||||||
|
* owners or individual owners of copyright in this software, grant to any
|
||||||
|
* person or company a worldwide, royalty free, license to
|
||||||
|
*
|
||||||
|
* i) copy this software,
|
||||||
|
* ii) prepare derivative works based on this software,
|
||||||
|
* iii) distribute copies of this software or derivative works,
|
||||||
|
* iv) perform this software, or
|
||||||
|
* v) display this software,
|
||||||
|
*
|
||||||
|
* provided that this notice is not removed and that neither Oliver Laumann
|
||||||
|
* nor Teles nor Nixdorf are deemed to have made any representations as to
|
||||||
|
* the suitability of this software for any purpose nor are held responsible
|
||||||
|
* for any defects of this software.
|
||||||
|
*
|
||||||
|
* THERE IS ABSOLUTELY NO WARRANTY FOR THIS SOFTWARE.
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#include "kernel.h"
|
#include "kernel.h"
|
||||||
|
|
|
||||||
|
|
@ -1,11 +1,38 @@
|
||||||
/* The generational, incremental garbage collector.
|
/* heap-gen.c: The generational, incremental garbage collector.
|
||||||
* Written by Marco Scheibe. Fixes provided by Craig McPheeters,
|
* Written by Marco Scheibe. Fixes provided by Craig McPheeters,
|
||||||
* Carsten Bormann, Jon Hartlaub, Charlie Xiaoli Huang, Gal Shalif.
|
* Carsten Bormann, Jon Hartlaub, Charlie Xiaoli Huang, Gal Shalif.
|
||||||
*
|
*
|
||||||
* This garbage collector is still experimental and probably needs to be
|
* This garbage collector is still experimental and probably needs to be
|
||||||
* rewritten at least in parts. See also ../BUGS. If your application
|
* rewritten at least in parts. See also ../BUGS. If your application
|
||||||
* does not work correctly and you suspect the generational garbage
|
* does not work correctly and you suspect the generational garbage
|
||||||
* collector to be the culprit, try the stop-and-copy GC instead.
|
* collector to be the culprit, try the stop-and-copy GC instead.
|
||||||
|
*
|
||||||
|
* $Id$
|
||||||
|
*
|
||||||
|
* Copyright 1990, 1991, 1992, 1993, 1994, 1995, Oliver Laumann, Berlin
|
||||||
|
* Copyright 2002, 2003 Sam Hocevar <sam@zoy.org>, Paris
|
||||||
|
*
|
||||||
|
* This software was derived from Elk 1.2, which was Copyright 1987, 1988,
|
||||||
|
* 1989, Nixdorf Computer AG and TELES GmbH, Berlin (Elk 1.2 has been written
|
||||||
|
* by Oliver Laumann for TELES Telematic Services, Berlin, in a joint project
|
||||||
|
* between TELES and Nixdorf Microprocessor Engineering, Berlin).
|
||||||
|
*
|
||||||
|
* Oliver Laumann, TELES GmbH, Nixdorf Computer AG and Sam Hocevar, as co-
|
||||||
|
* owners or individual owners of copyright in this software, grant to any
|
||||||
|
* person or company a worldwide, royalty free, license to
|
||||||
|
*
|
||||||
|
* i) copy this software,
|
||||||
|
* ii) prepare derivative works based on this software,
|
||||||
|
* iii) distribute copies of this software or derivative works,
|
||||||
|
* iv) perform this software, or
|
||||||
|
* v) display this software,
|
||||||
|
*
|
||||||
|
* provided that this notice is not removed and that neither Oliver Laumann
|
||||||
|
* nor Teles nor Nixdorf are deemed to have made any representations as to
|
||||||
|
* the suitability of this software for any purpose nor are held responsible
|
||||||
|
* for any defects of this software.
|
||||||
|
*
|
||||||
|
* THERE IS ABSOLUTELY NO WARRANTY FOR THIS SOFTWARE.
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#include <limits.h>
|
#include <limits.h>
|
||||||
|
|
|
||||||
|
|
@ -1,4 +1,31 @@
|
||||||
/* Stop-and-copy garbage collector
|
/* heap-sc.c: Stop-and-copy garbage collector.
|
||||||
|
*
|
||||||
|
* $Id$
|
||||||
|
*
|
||||||
|
* Copyright 1990, 1991, 1992, 1993, 1994, 1995, Oliver Laumann, Berlin
|
||||||
|
* Copyright 2002, 2003 Sam Hocevar <sam@zoy.org>, Paris
|
||||||
|
*
|
||||||
|
* This software was derived from Elk 1.2, which was Copyright 1987, 1988,
|
||||||
|
* 1989, Nixdorf Computer AG and TELES GmbH, Berlin (Elk 1.2 has been written
|
||||||
|
* by Oliver Laumann for TELES Telematic Services, Berlin, in a joint project
|
||||||
|
* between TELES and Nixdorf Microprocessor Engineering, Berlin).
|
||||||
|
*
|
||||||
|
* Oliver Laumann, TELES GmbH, Nixdorf Computer AG and Sam Hocevar, as co-
|
||||||
|
* owners or individual owners of copyright in this software, grant to any
|
||||||
|
* person or company a worldwide, royalty free, license to
|
||||||
|
*
|
||||||
|
* i) copy this software,
|
||||||
|
* ii) prepare derivative works based on this software,
|
||||||
|
* iii) distribute copies of this software or derivative works,
|
||||||
|
* iv) perform this software, or
|
||||||
|
* v) display this software,
|
||||||
|
*
|
||||||
|
* provided that this notice is not removed and that neither Oliver Laumann
|
||||||
|
* nor Teles nor Nixdorf are deemed to have made any representations as to
|
||||||
|
* the suitability of this software for any purpose nor are held responsible
|
||||||
|
* for any defects of this software.
|
||||||
|
*
|
||||||
|
* THERE IS ABSOLUTELY NO WARRANTY FOR THIS SOFTWARE.
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#include <string.h>
|
#include <string.h>
|
||||||
|
|
|
||||||
29
src/heap.c
29
src/heap.c
|
|
@ -1,4 +1,31 @@
|
||||||
/* Code that is common to both garbage collectors.
|
/* heap.c: Code that is common to both garbage collectors.
|
||||||
|
*
|
||||||
|
* $Id$
|
||||||
|
*
|
||||||
|
* Copyright 1990, 1991, 1992, 1993, 1994, 1995, Oliver Laumann, Berlin
|
||||||
|
* Copyright 2002, 2003 Sam Hocevar <sam@zoy.org>, Paris
|
||||||
|
*
|
||||||
|
* This software was derived from Elk 1.2, which was Copyright 1987, 1988,
|
||||||
|
* 1989, Nixdorf Computer AG and TELES GmbH, Berlin (Elk 1.2 has been written
|
||||||
|
* by Oliver Laumann for TELES Telematic Services, Berlin, in a joint project
|
||||||
|
* between TELES and Nixdorf Microprocessor Engineering, Berlin).
|
||||||
|
*
|
||||||
|
* Oliver Laumann, TELES GmbH, Nixdorf Computer AG and Sam Hocevar, as co-
|
||||||
|
* owners or individual owners of copyright in this software, grant to any
|
||||||
|
* person or company a worldwide, royalty free, license to
|
||||||
|
*
|
||||||
|
* i) copy this software,
|
||||||
|
* ii) prepare derivative works based on this software,
|
||||||
|
* iii) distribute copies of this software or derivative works,
|
||||||
|
* iv) perform this software, or
|
||||||
|
* v) display this software,
|
||||||
|
*
|
||||||
|
* provided that this notice is not removed and that neither Oliver Laumann
|
||||||
|
* nor Teles nor Nixdorf are deemed to have made any representations as to
|
||||||
|
* the suitability of this software for any purpose nor are held responsible
|
||||||
|
* for any defects of this software.
|
||||||
|
*
|
||||||
|
* THERE IS ABSOLUTELY NO WARRANTY FOR THIS SOFTWARE.
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#include "kernel.h"
|
#include "kernel.h"
|
||||||
|
|
|
||||||
29
src/io.c
29
src/io.c
|
|
@ -1,4 +1,31 @@
|
||||||
/* Ports and I/O primitives.
|
/* io.c: Ports and I/O primitives.
|
||||||
|
*
|
||||||
|
* $Id$
|
||||||
|
*
|
||||||
|
* Copyright 1990, 1991, 1992, 1993, 1994, 1995, Oliver Laumann, Berlin
|
||||||
|
* Copyright 2002, 2003 Sam Hocevar <sam@zoy.org>, Paris
|
||||||
|
*
|
||||||
|
* This software was derived from Elk 1.2, which was Copyright 1987, 1988,
|
||||||
|
* 1989, Nixdorf Computer AG and TELES GmbH, Berlin (Elk 1.2 has been written
|
||||||
|
* by Oliver Laumann for TELES Telematic Services, Berlin, in a joint project
|
||||||
|
* between TELES and Nixdorf Microprocessor Engineering, Berlin).
|
||||||
|
*
|
||||||
|
* Oliver Laumann, TELES GmbH, Nixdorf Computer AG and Sam Hocevar, as co-
|
||||||
|
* owners or individual owners of copyright in this software, grant to any
|
||||||
|
* person or company a worldwide, royalty free, license to
|
||||||
|
*
|
||||||
|
* i) copy this software,
|
||||||
|
* ii) prepare derivative works based on this software,
|
||||||
|
* iii) distribute copies of this software or derivative works,
|
||||||
|
* iv) perform this software, or
|
||||||
|
* v) display this software,
|
||||||
|
*
|
||||||
|
* provided that this notice is not removed and that neither Oliver Laumann
|
||||||
|
* nor Teles nor Nixdorf are deemed to have made any representations as to
|
||||||
|
* the suitability of this software for any purpose nor are held responsible
|
||||||
|
* for any defects of this software.
|
||||||
|
*
|
||||||
|
* THERE IS ABSOLUTELY NO WARRANTY FOR THIS SOFTWARE.
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#include "kernel.h"
|
#include "kernel.h"
|
||||||
|
|
|
||||||
30
src/libelk.c
30
src/libelk.c
|
|
@ -1,3 +1,33 @@
|
||||||
|
/* libelk.c
|
||||||
|
*
|
||||||
|
* $Id$
|
||||||
|
*
|
||||||
|
* Copyright 1990, 1991, 1992, 1993, 1994, 1995, Oliver Laumann, Berlin
|
||||||
|
* Copyright 2002, 2003 Sam Hocevar <sam@zoy.org>, Paris
|
||||||
|
*
|
||||||
|
* This software was derived from Elk 1.2, which was Copyright 1987, 1988,
|
||||||
|
* 1989, Nixdorf Computer AG and TELES GmbH, Berlin (Elk 1.2 has been written
|
||||||
|
* by Oliver Laumann for TELES Telematic Services, Berlin, in a joint project
|
||||||
|
* between TELES and Nixdorf Microprocessor Engineering, Berlin).
|
||||||
|
*
|
||||||
|
* Oliver Laumann, TELES GmbH, Nixdorf Computer AG and Sam Hocevar, as co-
|
||||||
|
* owners or individual owners of copyright in this software, grant to any
|
||||||
|
* person or company a worldwide, royalty free, license to
|
||||||
|
*
|
||||||
|
* i) copy this software,
|
||||||
|
* ii) prepare derivative works based on this software,
|
||||||
|
* iii) distribute copies of this software or derivative works,
|
||||||
|
* iv) perform this software, or
|
||||||
|
* v) display this software,
|
||||||
|
*
|
||||||
|
* provided that this notice is not removed and that neither Oliver Laumann
|
||||||
|
* nor Teles nor Nixdorf are deemed to have made any representations as to
|
||||||
|
* the suitability of this software for any purpose nor are held responsible
|
||||||
|
* for any defects of this software.
|
||||||
|
*
|
||||||
|
* THERE IS ABSOLUTELY NO WARRANTY FOR THIS SOFTWARE.
|
||||||
|
*/
|
||||||
|
|
||||||
#include "kernel.h"
|
#include "kernel.h"
|
||||||
|
|
||||||
#include <errno.h>
|
#include <errno.h>
|
||||||
|
|
|
||||||
30
src/list.c
30
src/list.c
|
|
@ -1,3 +1,33 @@
|
||||||
|
/* list.c
|
||||||
|
*
|
||||||
|
* $Id$
|
||||||
|
*
|
||||||
|
* Copyright 1990, 1991, 1992, 1993, 1994, 1995, Oliver Laumann, Berlin
|
||||||
|
* Copyright 2002, 2003 Sam Hocevar <sam@zoy.org>, Paris
|
||||||
|
*
|
||||||
|
* This software was derived from Elk 1.2, which was Copyright 1987, 1988,
|
||||||
|
* 1989, Nixdorf Computer AG and TELES GmbH, Berlin (Elk 1.2 has been written
|
||||||
|
* by Oliver Laumann for TELES Telematic Services, Berlin, in a joint project
|
||||||
|
* between TELES and Nixdorf Microprocessor Engineering, Berlin).
|
||||||
|
*
|
||||||
|
* Oliver Laumann, TELES GmbH, Nixdorf Computer AG and Sam Hocevar, as co-
|
||||||
|
* owners or individual owners of copyright in this software, grant to any
|
||||||
|
* person or company a worldwide, royalty free, license to
|
||||||
|
*
|
||||||
|
* i) copy this software,
|
||||||
|
* ii) prepare derivative works based on this software,
|
||||||
|
* iii) distribute copies of this software or derivative works,
|
||||||
|
* iv) perform this software, or
|
||||||
|
* v) display this software,
|
||||||
|
*
|
||||||
|
* provided that this notice is not removed and that neither Oliver Laumann
|
||||||
|
* nor Teles nor Nixdorf are deemed to have made any representations as to
|
||||||
|
* the suitability of this software for any purpose nor are held responsible
|
||||||
|
* for any defects of this software.
|
||||||
|
*
|
||||||
|
* THERE IS ABSOLUTELY NO WARRANTY FOR THIS SOFTWARE.
|
||||||
|
*/
|
||||||
|
|
||||||
#include "kernel.h"
|
#include "kernel.h"
|
||||||
|
|
||||||
extern unsigned int Stack_Size ();
|
extern unsigned int Stack_Size ();
|
||||||
|
|
|
||||||
|
|
@ -1,3 +1,33 @@
|
||||||
|
/* load-dl.c
|
||||||
|
*
|
||||||
|
* $Id$
|
||||||
|
*
|
||||||
|
* Copyright 1990, 1991, 1992, 1993, 1994, 1995, Oliver Laumann, Berlin
|
||||||
|
* Copyright 2002, 2003 Sam Hocevar <sam@zoy.org>, Paris
|
||||||
|
*
|
||||||
|
* This software was derived from Elk 1.2, which was Copyright 1987, 1988,
|
||||||
|
* 1989, Nixdorf Computer AG and TELES GmbH, Berlin (Elk 1.2 has been written
|
||||||
|
* by Oliver Laumann for TELES Telematic Services, Berlin, in a joint project
|
||||||
|
* between TELES and Nixdorf Microprocessor Engineering, Berlin).
|
||||||
|
*
|
||||||
|
* Oliver Laumann, TELES GmbH, Nixdorf Computer AG and Sam Hocevar, as co-
|
||||||
|
* owners or individual owners of copyright in this software, grant to any
|
||||||
|
* person or company a worldwide, royalty free, license to
|
||||||
|
*
|
||||||
|
* i) copy this software,
|
||||||
|
* ii) prepare derivative works based on this software,
|
||||||
|
* iii) distribute copies of this software or derivative works,
|
||||||
|
* iv) perform this software, or
|
||||||
|
* v) display this software,
|
||||||
|
*
|
||||||
|
* provided that this notice is not removed and that neither Oliver Laumann
|
||||||
|
* nor Teles nor Nixdorf are deemed to have made any representations as to
|
||||||
|
* the suitability of this software for any purpose nor are held responsible
|
||||||
|
* for any defects of this software.
|
||||||
|
*
|
||||||
|
* THERE IS ABSOLUTELY NO WARRANTY FOR THIS SOFTWARE.
|
||||||
|
*/
|
||||||
|
|
||||||
#include <dlfcn.h>
|
#include <dlfcn.h>
|
||||||
#include <stdlib.h>
|
#include <stdlib.h>
|
||||||
#include <string.h>
|
#include <string.h>
|
||||||
|
|
|
||||||
|
|
@ -1,3 +1,33 @@
|
||||||
|
/* load-ld.c
|
||||||
|
*
|
||||||
|
* $Id$
|
||||||
|
*
|
||||||
|
* Copyright 1990, 1991, 1992, 1993, 1994, 1995, Oliver Laumann, Berlin
|
||||||
|
* Copyright 2002, 2003 Sam Hocevar <sam@zoy.org>, Paris
|
||||||
|
*
|
||||||
|
* This software was derived from Elk 1.2, which was Copyright 1987, 1988,
|
||||||
|
* 1989, Nixdorf Computer AG and TELES GmbH, Berlin (Elk 1.2 has been written
|
||||||
|
* by Oliver Laumann for TELES Telematic Services, Berlin, in a joint project
|
||||||
|
* between TELES and Nixdorf Microprocessor Engineering, Berlin).
|
||||||
|
*
|
||||||
|
* Oliver Laumann, TELES GmbH, Nixdorf Computer AG and Sam Hocevar, as co-
|
||||||
|
* owners or individual owners of copyright in this software, grant to any
|
||||||
|
* person or company a worldwide, royalty free, license to
|
||||||
|
*
|
||||||
|
* i) copy this software,
|
||||||
|
* ii) prepare derivative works based on this software,
|
||||||
|
* iii) distribute copies of this software or derivative works,
|
||||||
|
* iv) perform this software, or
|
||||||
|
* v) display this software,
|
||||||
|
*
|
||||||
|
* provided that this notice is not removed and that neither Oliver Laumann
|
||||||
|
* nor Teles nor Nixdorf are deemed to have made any representations as to
|
||||||
|
* the suitability of this software for any purpose nor are held responsible
|
||||||
|
* for any defects of this software.
|
||||||
|
*
|
||||||
|
* THERE IS ABSOLUTELY NO WARRANTY FOR THIS SOFTWARE.
|
||||||
|
*/
|
||||||
|
|
||||||
#include AOUT_H
|
#include AOUT_H
|
||||||
#include <errno.h>
|
#include <errno.h>
|
||||||
#include <fcntl.h>
|
#include <fcntl.h>
|
||||||
|
|
|
||||||
|
|
@ -1,3 +1,33 @@
|
||||||
|
/* load-rld.c
|
||||||
|
*
|
||||||
|
* $Id$
|
||||||
|
*
|
||||||
|
* Copyright 1990, 1991, 1992, 1993, 1994, 1995, Oliver Laumann, Berlin
|
||||||
|
* Copyright 2002, 2003 Sam Hocevar <sam@zoy.org>, Paris
|
||||||
|
*
|
||||||
|
* This software was derived from Elk 1.2, which was Copyright 1987, 1988,
|
||||||
|
* 1989, Nixdorf Computer AG and TELES GmbH, Berlin (Elk 1.2 has been written
|
||||||
|
* by Oliver Laumann for TELES Telematic Services, Berlin, in a joint project
|
||||||
|
* between TELES and Nixdorf Microprocessor Engineering, Berlin).
|
||||||
|
*
|
||||||
|
* Oliver Laumann, TELES GmbH, Nixdorf Computer AG and Sam Hocevar, as co-
|
||||||
|
* owners or individual owners of copyright in this software, grant to any
|
||||||
|
* person or company a worldwide, royalty free, license to
|
||||||
|
*
|
||||||
|
* i) copy this software,
|
||||||
|
* ii) prepare derivative works based on this software,
|
||||||
|
* iii) distribute copies of this software or derivative works,
|
||||||
|
* iv) perform this software, or
|
||||||
|
* v) display this software,
|
||||||
|
*
|
||||||
|
* provided that this notice is not removed and that neither Oliver Laumann
|
||||||
|
* nor Teles nor Nixdorf are deemed to have made any representations as to
|
||||||
|
* the suitability of this software for any purpose nor are held responsible
|
||||||
|
* for any defects of this software.
|
||||||
|
*
|
||||||
|
* THERE IS ABSOLUTELY NO WARRANTY FOR THIS SOFTWARE.
|
||||||
|
*/
|
||||||
|
|
||||||
#include <mach-o/rld.h>
|
#include <mach-o/rld.h>
|
||||||
|
|
||||||
extern void Free_Symbols (SYMTAB *);
|
extern void Free_Symbols (SYMTAB *);
|
||||||
|
|
|
||||||
|
|
@ -1,3 +1,33 @@
|
||||||
|
/* load-shl.c
|
||||||
|
*
|
||||||
|
* $Id$
|
||||||
|
*
|
||||||
|
* Copyright 1990, 1991, 1992, 1993, 1994, 1995, Oliver Laumann, Berlin
|
||||||
|
* Copyright 2002, 2003 Sam Hocevar <sam@zoy.org>, Paris
|
||||||
|
*
|
||||||
|
* This software was derived from Elk 1.2, which was Copyright 1987, 1988,
|
||||||
|
* 1989, Nixdorf Computer AG and TELES GmbH, Berlin (Elk 1.2 has been written
|
||||||
|
* by Oliver Laumann for TELES Telematic Services, Berlin, in a joint project
|
||||||
|
* between TELES and Nixdorf Microprocessor Engineering, Berlin).
|
||||||
|
*
|
||||||
|
* Oliver Laumann, TELES GmbH, Nixdorf Computer AG and Sam Hocevar, as co-
|
||||||
|
* owners or individual owners of copyright in this software, grant to any
|
||||||
|
* person or company a worldwide, royalty free, license to
|
||||||
|
*
|
||||||
|
* i) copy this software,
|
||||||
|
* ii) prepare derivative works based on this software,
|
||||||
|
* iii) distribute copies of this software or derivative works,
|
||||||
|
* iv) perform this software, or
|
||||||
|
* v) display this software,
|
||||||
|
*
|
||||||
|
* provided that this notice is not removed and that neither Oliver Laumann
|
||||||
|
* nor Teles nor Nixdorf are deemed to have made any representations as to
|
||||||
|
* the suitability of this software for any purpose nor are held responsible
|
||||||
|
* for any defects of this software.
|
||||||
|
*
|
||||||
|
* THERE IS ABSOLUTELY NO WARRANTY FOR THIS SOFTWARE.
|
||||||
|
*/
|
||||||
|
|
||||||
#include <dl.h>
|
#include <dl.h>
|
||||||
#include <string.h>
|
#include <string.h>
|
||||||
|
|
||||||
|
|
|
||||||
30
src/load.c
30
src/load.c
|
|
@ -1,3 +1,33 @@
|
||||||
|
/* load.c
|
||||||
|
*
|
||||||
|
* $Id$
|
||||||
|
*
|
||||||
|
* Copyright 1990, 1991, 1992, 1993, 1994, 1995, Oliver Laumann, Berlin
|
||||||
|
* Copyright 2002, 2003 Sam Hocevar <sam@zoy.org>, Paris
|
||||||
|
*
|
||||||
|
* This software was derived from Elk 1.2, which was Copyright 1987, 1988,
|
||||||
|
* 1989, Nixdorf Computer AG and TELES GmbH, Berlin (Elk 1.2 has been written
|
||||||
|
* by Oliver Laumann for TELES Telematic Services, Berlin, in a joint project
|
||||||
|
* between TELES and Nixdorf Microprocessor Engineering, Berlin).
|
||||||
|
*
|
||||||
|
* Oliver Laumann, TELES GmbH, Nixdorf Computer AG and Sam Hocevar, as co-
|
||||||
|
* owners or individual owners of copyright in this software, grant to any
|
||||||
|
* person or company a worldwide, royalty free, license to
|
||||||
|
*
|
||||||
|
* i) copy this software,
|
||||||
|
* ii) prepare derivative works based on this software,
|
||||||
|
* iii) distribute copies of this software or derivative works,
|
||||||
|
* iv) perform this software, or
|
||||||
|
* v) display this software,
|
||||||
|
*
|
||||||
|
* provided that this notice is not removed and that neither Oliver Laumann
|
||||||
|
* nor Teles nor Nixdorf are deemed to have made any representations as to
|
||||||
|
* the suitability of this software for any purpose nor are held responsible
|
||||||
|
* for any defects of this software.
|
||||||
|
*
|
||||||
|
* THERE IS ABSOLUTELY NO WARRANTY FOR THIS SOFTWARE.
|
||||||
|
*/
|
||||||
|
|
||||||
#include "kernel.h"
|
#include "kernel.h"
|
||||||
|
|
||||||
Object V_Load_Path, V_Load_Noisilyp, V_Load_Libraries;
|
Object V_Load_Path, V_Load_Noisilyp, V_Load_Libraries;
|
||||||
|
|
|
||||||
30
src/main.c
30
src/main.c
|
|
@ -1,3 +1,33 @@
|
||||||
|
/* main.c
|
||||||
|
*
|
||||||
|
* $Id$
|
||||||
|
*
|
||||||
|
* Copyright 1990, 1991, 1992, 1993, 1994, 1995, Oliver Laumann, Berlin
|
||||||
|
* Copyright 2002, 2003 Sam Hocevar <sam@zoy.org>, Paris
|
||||||
|
*
|
||||||
|
* This software was derived from Elk 1.2, which was Copyright 1987, 1988,
|
||||||
|
* 1989, Nixdorf Computer AG and TELES GmbH, Berlin (Elk 1.2 has been written
|
||||||
|
* by Oliver Laumann for TELES Telematic Services, Berlin, in a joint project
|
||||||
|
* between TELES and Nixdorf Microprocessor Engineering, Berlin).
|
||||||
|
*
|
||||||
|
* Oliver Laumann, TELES GmbH, Nixdorf Computer AG and Sam Hocevar, as co-
|
||||||
|
* owners or individual owners of copyright in this software, grant to any
|
||||||
|
* person or company a worldwide, royalty free, license to
|
||||||
|
*
|
||||||
|
* i) copy this software,
|
||||||
|
* ii) prepare derivative works based on this software,
|
||||||
|
* iii) distribute copies of this software or derivative works,
|
||||||
|
* iv) perform this software, or
|
||||||
|
* v) display this software,
|
||||||
|
*
|
||||||
|
* provided that this notice is not removed and that neither Oliver Laumann
|
||||||
|
* nor Teles nor Nixdorf are deemed to have made any representations as to
|
||||||
|
* the suitability of this software for any purpose nor are held responsible
|
||||||
|
* for any defects of this software.
|
||||||
|
*
|
||||||
|
* THERE IS ABSOLUTELY NO WARRANTY FOR THIS SOFTWARE.
|
||||||
|
*/
|
||||||
|
|
||||||
#include <scheme.h>
|
#include <scheme.h>
|
||||||
|
|
||||||
int main(int ac, char **av) {
|
int main(int ac, char **av) {
|
||||||
|
|
|
||||||
30
src/malloc.c
30
src/malloc.c
|
|
@ -1,3 +1,33 @@
|
||||||
|
/* malloc.c
|
||||||
|
*
|
||||||
|
* $Id$
|
||||||
|
*
|
||||||
|
* Copyright 1990, 1991, 1992, 1993, 1994, 1995, Oliver Laumann, Berlin
|
||||||
|
* Copyright 2002, 2003 Sam Hocevar <sam@zoy.org>, Paris
|
||||||
|
*
|
||||||
|
* This software was derived from Elk 1.2, which was Copyright 1987, 1988,
|
||||||
|
* 1989, Nixdorf Computer AG and TELES GmbH, Berlin (Elk 1.2 has been written
|
||||||
|
* by Oliver Laumann for TELES Telematic Services, Berlin, in a joint project
|
||||||
|
* between TELES and Nixdorf Microprocessor Engineering, Berlin).
|
||||||
|
*
|
||||||
|
* Oliver Laumann, TELES GmbH, Nixdorf Computer AG and Sam Hocevar, as co-
|
||||||
|
* owners or individual owners of copyright in this software, grant to any
|
||||||
|
* person or company a worldwide, royalty free, license to
|
||||||
|
*
|
||||||
|
* i) copy this software,
|
||||||
|
* ii) prepare derivative works based on this software,
|
||||||
|
* iii) distribute copies of this software or derivative works,
|
||||||
|
* iv) perform this software, or
|
||||||
|
* v) display this software,
|
||||||
|
*
|
||||||
|
* provided that this notice is not removed and that neither Oliver Laumann
|
||||||
|
* nor Teles nor Nixdorf are deemed to have made any representations as to
|
||||||
|
* the suitability of this software for any purpose nor are held responsible
|
||||||
|
* for any defects of this software.
|
||||||
|
*
|
||||||
|
* THERE IS ABSOLUTELY NO WARRANTY FOR THIS SOFTWARE.
|
||||||
|
*/
|
||||||
|
|
||||||
#include "kernel.h"
|
#include "kernel.h"
|
||||||
|
|
||||||
#include <stdlib.h>
|
#include <stdlib.h>
|
||||||
|
|
|
||||||
29
src/math.c
29
src/math.c
|
|
@ -1,4 +1,31 @@
|
||||||
/* Generic math functions.
|
/* math.c: Generic math functions.
|
||||||
|
*
|
||||||
|
* $Id$
|
||||||
|
*
|
||||||
|
* Copyright 1990, 1991, 1992, 1993, 1994, 1995, Oliver Laumann, Berlin
|
||||||
|
* Copyright 2002, 2003 Sam Hocevar <sam@zoy.org>, Paris
|
||||||
|
*
|
||||||
|
* This software was derived from Elk 1.2, which was Copyright 1987, 1988,
|
||||||
|
* 1989, Nixdorf Computer AG and TELES GmbH, Berlin (Elk 1.2 has been written
|
||||||
|
* by Oliver Laumann for TELES Telematic Services, Berlin, in a joint project
|
||||||
|
* between TELES and Nixdorf Microprocessor Engineering, Berlin).
|
||||||
|
*
|
||||||
|
* Oliver Laumann, TELES GmbH, Nixdorf Computer AG and Sam Hocevar, as co-
|
||||||
|
* owners or individual owners of copyright in this software, grant to any
|
||||||
|
* person or company a worldwide, royalty free, license to
|
||||||
|
*
|
||||||
|
* i) copy this software,
|
||||||
|
* ii) prepare derivative works based on this software,
|
||||||
|
* iii) distribute copies of this software or derivative works,
|
||||||
|
* iv) perform this software, or
|
||||||
|
* v) display this software,
|
||||||
|
*
|
||||||
|
* provided that this notice is not removed and that neither Oliver Laumann
|
||||||
|
* nor Teles nor Nixdorf are deemed to have made any representations as to
|
||||||
|
* the suitability of this software for any purpose nor are held responsible
|
||||||
|
* for any defects of this software.
|
||||||
|
*
|
||||||
|
* THERE IS ABSOLUTELY NO WARRANTY FOR THIS SOFTWARE.
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#include <math.h>
|
#include <math.h>
|
||||||
|
|
|
||||||
31
src/onfork.c
31
src/onfork.c
|
|
@ -1,5 +1,5 @@
|
||||||
/* This module allows code to register `onfork' handlers, similar to
|
/* onfork.c: This module allows code to register `onfork' handlers, similar
|
||||||
* the way exit handlers are registered in C with atexit().
|
* to the way exit handlers are registered in C with atexit().
|
||||||
* The interpreter kernel proper never calls the onfork handlers,
|
* The interpreter kernel proper never calls the onfork handlers,
|
||||||
* but the fork primitive of the UNIX extension does in the newly
|
* but the fork primitive of the UNIX extension does in the newly
|
||||||
* created child process (other extensions may also call the handlers).
|
* created child process (other extensions may also call the handlers).
|
||||||
|
|
@ -8,6 +8,33 @@
|
||||||
* may register onfork handlers to add links to the temp files.
|
* may register onfork handlers to add links to the temp files.
|
||||||
* User-supplied extensions may want to register onfork handlers
|
* User-supplied extensions may want to register onfork handlers
|
||||||
* as well.
|
* as well.
|
||||||
|
*
|
||||||
|
* $Id$
|
||||||
|
*
|
||||||
|
* Copyright 1990, 1991, 1992, 1993, 1994, 1995, Oliver Laumann, Berlin
|
||||||
|
* Copyright 2002, 2003 Sam Hocevar <sam@zoy.org>, Paris
|
||||||
|
*
|
||||||
|
* This software was derived from Elk 1.2, which was Copyright 1987, 1988,
|
||||||
|
* 1989, Nixdorf Computer AG and TELES GmbH, Berlin (Elk 1.2 has been written
|
||||||
|
* by Oliver Laumann for TELES Telematic Services, Berlin, in a joint project
|
||||||
|
* between TELES and Nixdorf Microprocessor Engineering, Berlin).
|
||||||
|
*
|
||||||
|
* Oliver Laumann, TELES GmbH, Nixdorf Computer AG and Sam Hocevar, as co-
|
||||||
|
* owners or individual owners of copyright in this software, grant to any
|
||||||
|
* person or company a worldwide, royalty free, license to
|
||||||
|
*
|
||||||
|
* i) copy this software,
|
||||||
|
* ii) prepare derivative works based on this software,
|
||||||
|
* iii) distribute copies of this software or derivative works,
|
||||||
|
* iv) perform this software, or
|
||||||
|
* v) display this software,
|
||||||
|
*
|
||||||
|
* provided that this notice is not removed and that neither Oliver Laumann
|
||||||
|
* nor Teles nor Nixdorf are deemed to have made any representations as to
|
||||||
|
* the suitability of this software for any purpose nor are held responsible
|
||||||
|
* for any defects of this software.
|
||||||
|
*
|
||||||
|
* THERE IS ABSOLUTELY NO WARRANTY FOR THIS SOFTWARE.
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#include "kernel.h"
|
#include "kernel.h"
|
||||||
|
|
|
||||||
29
src/prim.c
29
src/prim.c
|
|
@ -1,4 +1,31 @@
|
||||||
/* Built-in primitives, Define_Primitive().
|
/* prim.c: Built-in primitives, Define_Primitive().
|
||||||
|
*
|
||||||
|
* $Id$
|
||||||
|
*
|
||||||
|
* Copyright 1990, 1991, 1992, 1993, 1994, 1995, Oliver Laumann, Berlin
|
||||||
|
* Copyright 2002, 2003 Sam Hocevar <sam@zoy.org>, Paris
|
||||||
|
*
|
||||||
|
* This software was derived from Elk 1.2, which was Copyright 1987, 1988,
|
||||||
|
* 1989, Nixdorf Computer AG and TELES GmbH, Berlin (Elk 1.2 has been written
|
||||||
|
* by Oliver Laumann for TELES Telematic Services, Berlin, in a joint project
|
||||||
|
* between TELES and Nixdorf Microprocessor Engineering, Berlin).
|
||||||
|
*
|
||||||
|
* Oliver Laumann, TELES GmbH, Nixdorf Computer AG and Sam Hocevar, as co-
|
||||||
|
* owners or individual owners of copyright in this software, grant to any
|
||||||
|
* person or company a worldwide, royalty free, license to
|
||||||
|
*
|
||||||
|
* i) copy this software,
|
||||||
|
* ii) prepare derivative works based on this software,
|
||||||
|
* iii) distribute copies of this software or derivative works,
|
||||||
|
* iv) perform this software, or
|
||||||
|
* v) display this software,
|
||||||
|
*
|
||||||
|
* provided that this notice is not removed and that neither Oliver Laumann
|
||||||
|
* nor Teles nor Nixdorf are deemed to have made any representations as to
|
||||||
|
* the suitability of this software for any purpose nor are held responsible
|
||||||
|
* for any defects of this software.
|
||||||
|
*
|
||||||
|
* THERE IS ABSOLUTELY NO WARRANTY FOR THIS SOFTWARE.
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#include "kernel.h"
|
#include "kernel.h"
|
||||||
|
|
|
||||||
29
src/print.c
29
src/print.c
|
|
@ -1,4 +1,31 @@
|
||||||
/* Output functions and primitives.
|
/* print.c: Output functions and primitives.
|
||||||
|
*
|
||||||
|
* $Id$
|
||||||
|
*
|
||||||
|
* Copyright 1990, 1991, 1992, 1993, 1994, 1995, Oliver Laumann, Berlin
|
||||||
|
* Copyright 2002, 2003 Sam Hocevar <sam@zoy.org>, Paris
|
||||||
|
*
|
||||||
|
* This software was derived from Elk 1.2, which was Copyright 1987, 1988,
|
||||||
|
* 1989, Nixdorf Computer AG and TELES GmbH, Berlin (Elk 1.2 has been written
|
||||||
|
* by Oliver Laumann for TELES Telematic Services, Berlin, in a joint project
|
||||||
|
* between TELES and Nixdorf Microprocessor Engineering, Berlin).
|
||||||
|
*
|
||||||
|
* Oliver Laumann, TELES GmbH, Nixdorf Computer AG and Sam Hocevar, as co-
|
||||||
|
* owners or individual owners of copyright in this software, grant to any
|
||||||
|
* person or company a worldwide, royalty free, license to
|
||||||
|
*
|
||||||
|
* i) copy this software,
|
||||||
|
* ii) prepare derivative works based on this software,
|
||||||
|
* iii) distribute copies of this software or derivative works,
|
||||||
|
* iv) perform this software, or
|
||||||
|
* v) display this software,
|
||||||
|
*
|
||||||
|
* provided that this notice is not removed and that neither Oliver Laumann
|
||||||
|
* nor Teles nor Nixdorf are deemed to have made any representations as to
|
||||||
|
* the suitability of this software for any purpose nor are held responsible
|
||||||
|
* for any defects of this software.
|
||||||
|
*
|
||||||
|
* THERE IS ABSOLUTELY NO WARRANTY FOR THIS SOFTWARE.
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#include "kernel.h"
|
#include "kernel.h"
|
||||||
|
|
|
||||||
29
src/proc.c
29
src/proc.c
|
|
@ -1,5 +1,32 @@
|
||||||
/* Eval, funcall, apply, map, lambda, etc. The main-loop of the
|
/* proc.c: Eval, funcall, apply, map, lambda, etc. The main-loop of the
|
||||||
* Scheme evaluator.
|
* Scheme evaluator.
|
||||||
|
*
|
||||||
|
* $Id$
|
||||||
|
*
|
||||||
|
* Copyright 1990, 1991, 1992, 1993, 1994, 1995, Oliver Laumann, Berlin
|
||||||
|
* Copyright 2002, 2003 Sam Hocevar <sam@zoy.org>, Paris
|
||||||
|
*
|
||||||
|
* This software was derived from Elk 1.2, which was Copyright 1987, 1988,
|
||||||
|
* 1989, Nixdorf Computer AG and TELES GmbH, Berlin (Elk 1.2 has been written
|
||||||
|
* by Oliver Laumann for TELES Telematic Services, Berlin, in a joint project
|
||||||
|
* between TELES and Nixdorf Microprocessor Engineering, Berlin).
|
||||||
|
*
|
||||||
|
* Oliver Laumann, TELES GmbH, Nixdorf Computer AG and Sam Hocevar, as co-
|
||||||
|
* owners or individual owners of copyright in this software, grant to any
|
||||||
|
* person or company a worldwide, royalty free, license to
|
||||||
|
*
|
||||||
|
* i) copy this software,
|
||||||
|
* ii) prepare derivative works based on this software,
|
||||||
|
* iii) distribute copies of this software or derivative works,
|
||||||
|
* iv) perform this software, or
|
||||||
|
* v) display this software,
|
||||||
|
*
|
||||||
|
* provided that this notice is not removed and that neither Oliver Laumann
|
||||||
|
* nor Teles nor Nixdorf are deemed to have made any representations as to
|
||||||
|
* the suitability of this software for any purpose nor are held responsible
|
||||||
|
* for any defects of this software.
|
||||||
|
*
|
||||||
|
* THERE IS ABSOLUTELY NO WARRANTY FOR THIS SOFTWARE.
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#include "kernel.h"
|
#include "kernel.h"
|
||||||
|
|
|
||||||
|
|
@ -1,4 +1,31 @@
|
||||||
/* Delay and force.
|
/* promise.c: Delay and force.
|
||||||
|
*
|
||||||
|
* $Id$
|
||||||
|
*
|
||||||
|
* Copyright 1990, 1991, 1992, 1993, 1994, 1995, Oliver Laumann, Berlin
|
||||||
|
* Copyright 2002, 2003 Sam Hocevar <sam@zoy.org>, Paris
|
||||||
|
*
|
||||||
|
* This software was derived from Elk 1.2, which was Copyright 1987, 1988,
|
||||||
|
* 1989, Nixdorf Computer AG and TELES GmbH, Berlin (Elk 1.2 has been written
|
||||||
|
* by Oliver Laumann for TELES Telematic Services, Berlin, in a joint project
|
||||||
|
* between TELES and Nixdorf Microprocessor Engineering, Berlin).
|
||||||
|
*
|
||||||
|
* Oliver Laumann, TELES GmbH, Nixdorf Computer AG and Sam Hocevar, as co-
|
||||||
|
* owners or individual owners of copyright in this software, grant to any
|
||||||
|
* person or company a worldwide, royalty free, license to
|
||||||
|
*
|
||||||
|
* i) copy this software,
|
||||||
|
* ii) prepare derivative works based on this software,
|
||||||
|
* iii) distribute copies of this software or derivative works,
|
||||||
|
* iv) perform this software, or
|
||||||
|
* v) display this software,
|
||||||
|
*
|
||||||
|
* provided that this notice is not removed and that neither Oliver Laumann
|
||||||
|
* nor Teles nor Nixdorf are deemed to have made any representations as to
|
||||||
|
* the suitability of this software for any purpose nor are held responsible
|
||||||
|
* for any defects of this software.
|
||||||
|
*
|
||||||
|
* THERE IS ABSOLUTELY NO WARRANTY FOR THIS SOFTWARE.
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#include "kernel.h"
|
#include "kernel.h"
|
||||||
|
|
|
||||||
29
src/read.c
29
src/read.c
|
|
@ -1,4 +1,31 @@
|
||||||
/* Input functions and primitives; the Scheme reader/parser.
|
/* read.c: Input functions and primitives; the Scheme reader/parser.
|
||||||
|
*
|
||||||
|
* $Id$
|
||||||
|
*
|
||||||
|
* Copyright 1990, 1991, 1992, 1993, 1994, 1995, Oliver Laumann, Berlin
|
||||||
|
* Copyright 2002, 2003 Sam Hocevar <sam@zoy.org>, Paris
|
||||||
|
*
|
||||||
|
* This software was derived from Elk 1.2, which was Copyright 1987, 1988,
|
||||||
|
* 1989, Nixdorf Computer AG and TELES GmbH, Berlin (Elk 1.2 has been written
|
||||||
|
* by Oliver Laumann for TELES Telematic Services, Berlin, in a joint project
|
||||||
|
* between TELES and Nixdorf Microprocessor Engineering, Berlin).
|
||||||
|
*
|
||||||
|
* Oliver Laumann, TELES GmbH, Nixdorf Computer AG and Sam Hocevar, as co-
|
||||||
|
* owners or individual owners of copyright in this software, grant to any
|
||||||
|
* person or company a worldwide, royalty free, license to
|
||||||
|
*
|
||||||
|
* i) copy this software,
|
||||||
|
* ii) prepare derivative works based on this software,
|
||||||
|
* iii) distribute copies of this software or derivative works,
|
||||||
|
* iv) perform this software, or
|
||||||
|
* v) display this software,
|
||||||
|
*
|
||||||
|
* provided that this notice is not removed and that neither Oliver Laumann
|
||||||
|
* nor Teles nor Nixdorf are deemed to have made any representations as to
|
||||||
|
* the suitability of this software for any purpose nor are held responsible
|
||||||
|
* for any defects of this software.
|
||||||
|
*
|
||||||
|
* THERE IS ABSOLUTELY NO WARRANTY FOR THIS SOFTWARE.
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#include "kernel.h"
|
#include "kernel.h"
|
||||||
|
|
|
||||||
|
|
@ -1,4 +1,31 @@
|
||||||
/* Special forms.
|
/* special.c: Special forms.
|
||||||
|
*
|
||||||
|
* $Id$
|
||||||
|
*
|
||||||
|
* Copyright 1990, 1991, 1992, 1993, 1994, 1995, Oliver Laumann, Berlin
|
||||||
|
* Copyright 2002, 2003 Sam Hocevar <sam@zoy.org>, Paris
|
||||||
|
*
|
||||||
|
* This software was derived from Elk 1.2, which was Copyright 1987, 1988,
|
||||||
|
* 1989, Nixdorf Computer AG and TELES GmbH, Berlin (Elk 1.2 has been written
|
||||||
|
* by Oliver Laumann for TELES Telematic Services, Berlin, in a joint project
|
||||||
|
* between TELES and Nixdorf Microprocessor Engineering, Berlin).
|
||||||
|
*
|
||||||
|
* Oliver Laumann, TELES GmbH, Nixdorf Computer AG and Sam Hocevar, as co-
|
||||||
|
* owners or individual owners of copyright in this software, grant to any
|
||||||
|
* person or company a worldwide, royalty free, license to
|
||||||
|
*
|
||||||
|
* i) copy this software,
|
||||||
|
* ii) prepare derivative works based on this software,
|
||||||
|
* iii) distribute copies of this software or derivative works,
|
||||||
|
* iv) perform this software, or
|
||||||
|
* v) display this software,
|
||||||
|
*
|
||||||
|
* provided that this notice is not removed and that neither Oliver Laumann
|
||||||
|
* nor Teles nor Nixdorf are deemed to have made any representations as to
|
||||||
|
* the suitability of this software for any purpose nor are held responsible
|
||||||
|
* for any defects of this software.
|
||||||
|
*
|
||||||
|
* THERE IS ABSOLUTELY NO WARRANTY FOR THIS SOFTWARE.
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#include "kernel.h"
|
#include "kernel.h"
|
||||||
|
|
|
||||||
|
|
@ -1,3 +1,33 @@
|
||||||
|
/* stab-bsd.c
|
||||||
|
*
|
||||||
|
* $Id$
|
||||||
|
*
|
||||||
|
* Copyright 1990, 1991, 1992, 1993, 1994, 1995, Oliver Laumann, Berlin
|
||||||
|
* Copyright 2002, 2003 Sam Hocevar <sam@zoy.org>, Paris
|
||||||
|
*
|
||||||
|
* This software was derived from Elk 1.2, which was Copyright 1987, 1988,
|
||||||
|
* 1989, Nixdorf Computer AG and TELES GmbH, Berlin (Elk 1.2 has been written
|
||||||
|
* by Oliver Laumann for TELES Telematic Services, Berlin, in a joint project
|
||||||
|
* between TELES and Nixdorf Microprocessor Engineering, Berlin).
|
||||||
|
*
|
||||||
|
* Oliver Laumann, TELES GmbH, Nixdorf Computer AG and Sam Hocevar, as co-
|
||||||
|
* owners or individual owners of copyright in this software, grant to any
|
||||||
|
* person or company a worldwide, royalty free, license to
|
||||||
|
*
|
||||||
|
* i) copy this software,
|
||||||
|
* ii) prepare derivative works based on this software,
|
||||||
|
* iii) distribute copies of this software or derivative works,
|
||||||
|
* iv) perform this software, or
|
||||||
|
* v) display this software,
|
||||||
|
*
|
||||||
|
* provided that this notice is not removed and that neither Oliver Laumann
|
||||||
|
* nor Teles nor Nixdorf are deemed to have made any representations as to
|
||||||
|
* the suitability of this software for any purpose nor are held responsible
|
||||||
|
* for any defects of this software.
|
||||||
|
*
|
||||||
|
* THERE IS ABSOLUTELY NO WARRANTY FOR THIS SOFTWARE.
|
||||||
|
*/
|
||||||
|
|
||||||
#include AOUT_H
|
#include AOUT_H
|
||||||
#include <fcntl.h>
|
#include <fcntl.h>
|
||||||
#include <errno.h>
|
#include <errno.h>
|
||||||
|
|
|
||||||
|
|
@ -1,3 +1,33 @@
|
||||||
|
/* stab-coff.c
|
||||||
|
*
|
||||||
|
* $Id$
|
||||||
|
*
|
||||||
|
* Copyright 1990, 1991, 1992, 1993, 1994, 1995, Oliver Laumann, Berlin
|
||||||
|
* Copyright 2002, 2003 Sam Hocevar <sam@zoy.org>, Paris
|
||||||
|
*
|
||||||
|
* This software was derived from Elk 1.2, which was Copyright 1987, 1988,
|
||||||
|
* 1989, Nixdorf Computer AG and TELES GmbH, Berlin (Elk 1.2 has been written
|
||||||
|
* by Oliver Laumann for TELES Telematic Services, Berlin, in a joint project
|
||||||
|
* between TELES and Nixdorf Microprocessor Engineering, Berlin).
|
||||||
|
*
|
||||||
|
* Oliver Laumann, TELES GmbH, Nixdorf Computer AG and Sam Hocevar, as co-
|
||||||
|
* owners or individual owners of copyright in this software, grant to any
|
||||||
|
* person or company a worldwide, royalty free, license to
|
||||||
|
*
|
||||||
|
* i) copy this software,
|
||||||
|
* ii) prepare derivative works based on this software,
|
||||||
|
* iii) distribute copies of this software or derivative works,
|
||||||
|
* iv) perform this software, or
|
||||||
|
* v) display this software,
|
||||||
|
*
|
||||||
|
* provided that this notice is not removed and that neither Oliver Laumann
|
||||||
|
* nor Teles nor Nixdorf are deemed to have made any representations as to
|
||||||
|
* the suitability of this software for any purpose nor are held responsible
|
||||||
|
* for any defects of this software.
|
||||||
|
*
|
||||||
|
* THERE IS ABSOLUTELY NO WARRANTY FOR THIS SOFTWARE.
|
||||||
|
*/
|
||||||
|
|
||||||
#include <filehdr.h>
|
#include <filehdr.h>
|
||||||
#include <syms.h>
|
#include <syms.h>
|
||||||
#undef TYPE /* ldfnc.h defines a TYPE macro. */
|
#undef TYPE /* ldfnc.h defines a TYPE macro. */
|
||||||
|
|
|
||||||
|
|
@ -1,3 +1,33 @@
|
||||||
|
/* stab-convex.c
|
||||||
|
*
|
||||||
|
* $Id$
|
||||||
|
*
|
||||||
|
* Copyright 1990, 1991, 1992, 1993, 1994, 1995, Oliver Laumann, Berlin
|
||||||
|
* Copyright 2002, 2003 Sam Hocevar <sam@zoy.org>, Paris
|
||||||
|
*
|
||||||
|
* This software was derived from Elk 1.2, which was Copyright 1987, 1988,
|
||||||
|
* 1989, Nixdorf Computer AG and TELES GmbH, Berlin (Elk 1.2 has been written
|
||||||
|
* by Oliver Laumann for TELES Telematic Services, Berlin, in a joint project
|
||||||
|
* between TELES and Nixdorf Microprocessor Engineering, Berlin).
|
||||||
|
*
|
||||||
|
* Oliver Laumann, TELES GmbH, Nixdorf Computer AG and Sam Hocevar, as co-
|
||||||
|
* owners or individual owners of copyright in this software, grant to any
|
||||||
|
* person or company a worldwide, royalty free, license to
|
||||||
|
*
|
||||||
|
* i) copy this software,
|
||||||
|
* ii) prepare derivative works based on this software,
|
||||||
|
* iii) distribute copies of this software or derivative works,
|
||||||
|
* iv) perform this software, or
|
||||||
|
* v) display this software,
|
||||||
|
*
|
||||||
|
* provided that this notice is not removed and that neither Oliver Laumann
|
||||||
|
* nor Teles nor Nixdorf are deemed to have made any representations as to
|
||||||
|
* the suitability of this software for any purpose nor are held responsible
|
||||||
|
* for any defects of this software.
|
||||||
|
*
|
||||||
|
* THERE IS ABSOLUTELY NO WARRANTY FOR THIS SOFTWARE.
|
||||||
|
*/
|
||||||
|
|
||||||
#include <errno.h>
|
#include <errno.h>
|
||||||
#include <fcntl.h>
|
#include <fcntl.h>
|
||||||
#include <convex/filehdr.h>
|
#include <convex/filehdr.h>
|
||||||
|
|
|
||||||
|
|
@ -1,3 +1,33 @@
|
||||||
|
/* stab-ecoff.c
|
||||||
|
*
|
||||||
|
* $Id$
|
||||||
|
*
|
||||||
|
* Copyright 1990, 1991, 1992, 1993, 1994, 1995, Oliver Laumann, Berlin
|
||||||
|
* Copyright 2002, 2003 Sam Hocevar <sam@zoy.org>, Paris
|
||||||
|
*
|
||||||
|
* This software was derived from Elk 1.2, which was Copyright 1987, 1988,
|
||||||
|
* 1989, Nixdorf Computer AG and TELES GmbH, Berlin (Elk 1.2 has been written
|
||||||
|
* by Oliver Laumann for TELES Telematic Services, Berlin, in a joint project
|
||||||
|
* between TELES and Nixdorf Microprocessor Engineering, Berlin).
|
||||||
|
*
|
||||||
|
* Oliver Laumann, TELES GmbH, Nixdorf Computer AG and Sam Hocevar, as co-
|
||||||
|
* owners or individual owners of copyright in this software, grant to any
|
||||||
|
* person or company a worldwide, royalty free, license to
|
||||||
|
*
|
||||||
|
* i) copy this software,
|
||||||
|
* ii) prepare derivative works based on this software,
|
||||||
|
* iii) distribute copies of this software or derivative works,
|
||||||
|
* iv) perform this software, or
|
||||||
|
* v) display this software,
|
||||||
|
*
|
||||||
|
* provided that this notice is not removed and that neither Oliver Laumann
|
||||||
|
* nor Teles nor Nixdorf are deemed to have made any representations as to
|
||||||
|
* the suitability of this software for any purpose nor are held responsible
|
||||||
|
* for any defects of this software.
|
||||||
|
*
|
||||||
|
* THERE IS ABSOLUTELY NO WARRANTY FOR THIS SOFTWARE.
|
||||||
|
*/
|
||||||
|
|
||||||
/* On the SGI, <a.out.h> includes a file that defines a variable named
|
/* On the SGI, <a.out.h> includes a file that defines a variable named
|
||||||
* auxtemp. This causes the linker to complain about this variable
|
* auxtemp. This causes the linker to complain about this variable
|
||||||
* being multiply defined, because <a.out.h> was already included by
|
* being multiply defined, because <a.out.h> was already included by
|
||||||
|
|
|
||||||
|
|
@ -1,3 +1,33 @@
|
||||||
|
/* stab-elf.c
|
||||||
|
*
|
||||||
|
* $Id$
|
||||||
|
*
|
||||||
|
* Copyright 1990, 1991, 1992, 1993, 1994, 1995, Oliver Laumann, Berlin
|
||||||
|
* Copyright 2002, 2003 Sam Hocevar <sam@zoy.org>, Paris
|
||||||
|
*
|
||||||
|
* This software was derived from Elk 1.2, which was Copyright 1987, 1988,
|
||||||
|
* 1989, Nixdorf Computer AG and TELES GmbH, Berlin (Elk 1.2 has been written
|
||||||
|
* by Oliver Laumann for TELES Telematic Services, Berlin, in a joint project
|
||||||
|
* between TELES and Nixdorf Microprocessor Engineering, Berlin).
|
||||||
|
*
|
||||||
|
* Oliver Laumann, TELES GmbH, Nixdorf Computer AG and Sam Hocevar, as co-
|
||||||
|
* owners or individual owners of copyright in this software, grant to any
|
||||||
|
* person or company a worldwide, royalty free, license to
|
||||||
|
*
|
||||||
|
* i) copy this software,
|
||||||
|
* ii) prepare derivative works based on this software,
|
||||||
|
* iii) distribute copies of this software or derivative works,
|
||||||
|
* iv) perform this software, or
|
||||||
|
* v) display this software,
|
||||||
|
*
|
||||||
|
* provided that this notice is not removed and that neither Oliver Laumann
|
||||||
|
* nor Teles nor Nixdorf are deemed to have made any representations as to
|
||||||
|
* the suitability of this software for any purpose nor are held responsible
|
||||||
|
* for any defects of this software.
|
||||||
|
*
|
||||||
|
* THERE IS ABSOLUTELY NO WARRANTY FOR THIS SOFTWARE.
|
||||||
|
*/
|
||||||
|
|
||||||
#include <sys/types.h>
|
#include <sys/types.h>
|
||||||
#include <sys/stat.h>
|
#include <sys/stat.h>
|
||||||
#include <fcntl.h>
|
#include <fcntl.h>
|
||||||
|
|
|
||||||
|
|
@ -1,3 +1,33 @@
|
||||||
|
/* stab-hp9k300.c
|
||||||
|
*
|
||||||
|
* $Id$
|
||||||
|
*
|
||||||
|
* Copyright 1990, 1991, 1992, 1993, 1994, 1995, Oliver Laumann, Berlin
|
||||||
|
* Copyright 2002, 2003 Sam Hocevar <sam@zoy.org>, Paris
|
||||||
|
*
|
||||||
|
* This software was derived from Elk 1.2, which was Copyright 1987, 1988,
|
||||||
|
* 1989, Nixdorf Computer AG and TELES GmbH, Berlin (Elk 1.2 has been written
|
||||||
|
* by Oliver Laumann for TELES Telematic Services, Berlin, in a joint project
|
||||||
|
* between TELES and Nixdorf Microprocessor Engineering, Berlin).
|
||||||
|
*
|
||||||
|
* Oliver Laumann, TELES GmbH, Nixdorf Computer AG and Sam Hocevar, as co-
|
||||||
|
* owners or individual owners of copyright in this software, grant to any
|
||||||
|
* person or company a worldwide, royalty free, license to
|
||||||
|
*
|
||||||
|
* i) copy this software,
|
||||||
|
* ii) prepare derivative works based on this software,
|
||||||
|
* iii) distribute copies of this software or derivative works,
|
||||||
|
* iv) perform this software, or
|
||||||
|
* v) display this software,
|
||||||
|
*
|
||||||
|
* provided that this notice is not removed and that neither Oliver Laumann
|
||||||
|
* nor Teles nor Nixdorf are deemed to have made any representations as to
|
||||||
|
* the suitability of this software for any purpose nor are held responsible
|
||||||
|
* for any defects of this software.
|
||||||
|
*
|
||||||
|
* THERE IS ABSOLUTELY NO WARRANTY FOR THIS SOFTWARE.
|
||||||
|
*/
|
||||||
|
|
||||||
#include AOUT_H
|
#include AOUT_H
|
||||||
#include <sys/types.h>
|
#include <sys/types.h>
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -1,3 +1,33 @@
|
||||||
|
/* stab-hp9k800.c
|
||||||
|
*
|
||||||
|
* $Id$
|
||||||
|
*
|
||||||
|
* Copyright 1990, 1991, 1992, 1993, 1994, 1995, Oliver Laumann, Berlin
|
||||||
|
* Copyright 2002, 2003 Sam Hocevar <sam@zoy.org>, Paris
|
||||||
|
*
|
||||||
|
* This software was derived from Elk 1.2, which was Copyright 1987, 1988,
|
||||||
|
* 1989, Nixdorf Computer AG and TELES GmbH, Berlin (Elk 1.2 has been written
|
||||||
|
* by Oliver Laumann for TELES Telematic Services, Berlin, in a joint project
|
||||||
|
* between TELES and Nixdorf Microprocessor Engineering, Berlin).
|
||||||
|
*
|
||||||
|
* Oliver Laumann, TELES GmbH, Nixdorf Computer AG and Sam Hocevar, as co-
|
||||||
|
* owners or individual owners of copyright in this software, grant to any
|
||||||
|
* person or company a worldwide, royalty free, license to
|
||||||
|
*
|
||||||
|
* i) copy this software,
|
||||||
|
* ii) prepare derivative works based on this software,
|
||||||
|
* iii) distribute copies of this software or derivative works,
|
||||||
|
* iv) perform this software, or
|
||||||
|
* v) display this software,
|
||||||
|
*
|
||||||
|
* provided that this notice is not removed and that neither Oliver Laumann
|
||||||
|
* nor Teles nor Nixdorf are deemed to have made any representations as to
|
||||||
|
* the suitability of this software for any purpose nor are held responsible
|
||||||
|
* for any defects of this software.
|
||||||
|
*
|
||||||
|
* THERE IS ABSOLUTELY NO WARRANTY FOR THIS SOFTWARE.
|
||||||
|
*/
|
||||||
|
|
||||||
#include AOUT_H
|
#include AOUT_H
|
||||||
#include <sys/types.h>
|
#include <sys/types.h>
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -1,3 +1,33 @@
|
||||||
|
/* stab-macho.c
|
||||||
|
*
|
||||||
|
* $Id$
|
||||||
|
*
|
||||||
|
* Copyright 1990, 1991, 1992, 1993, 1994, 1995, Oliver Laumann, Berlin
|
||||||
|
* Copyright 2002, 2003 Sam Hocevar <sam@zoy.org>, Paris
|
||||||
|
*
|
||||||
|
* This software was derived from Elk 1.2, which was Copyright 1987, 1988,
|
||||||
|
* 1989, Nixdorf Computer AG and TELES GmbH, Berlin (Elk 1.2 has been written
|
||||||
|
* by Oliver Laumann for TELES Telematic Services, Berlin, in a joint project
|
||||||
|
* between TELES and Nixdorf Microprocessor Engineering, Berlin).
|
||||||
|
*
|
||||||
|
* Oliver Laumann, TELES GmbH, Nixdorf Computer AG and Sam Hocevar, as co-
|
||||||
|
* owners or individual owners of copyright in this software, grant to any
|
||||||
|
* person or company a worldwide, royalty free, license to
|
||||||
|
*
|
||||||
|
* i) copy this software,
|
||||||
|
* ii) prepare derivative works based on this software,
|
||||||
|
* iii) distribute copies of this software or derivative works,
|
||||||
|
* iv) perform this software, or
|
||||||
|
* v) display this software,
|
||||||
|
*
|
||||||
|
* provided that this notice is not removed and that neither Oliver Laumann
|
||||||
|
* nor Teles nor Nixdorf are deemed to have made any representations as to
|
||||||
|
* the suitability of this software for any purpose nor are held responsible
|
||||||
|
* for any defects of this software.
|
||||||
|
*
|
||||||
|
* THERE IS ABSOLUTELY NO WARRANTY FOR THIS SOFTWARE.
|
||||||
|
*/
|
||||||
|
|
||||||
#include <nlist.h>
|
#include <nlist.h>
|
||||||
#include <mach-o/rld.h>
|
#include <mach-o/rld.h>
|
||||||
|
|
||||||
|
|
|
||||||
29
src/stab.c
29
src/stab.c
|
|
@ -1,4 +1,31 @@
|
||||||
/* Read and manage symbol tables from object modules.
|
/* stab.c: Read and manage symbol tables from object modules.
|
||||||
|
*
|
||||||
|
* $Id$
|
||||||
|
*
|
||||||
|
* Copyright 1990, 1991, 1992, 1993, 1994, 1995, Oliver Laumann, Berlin
|
||||||
|
* Copyright 2002, 2003 Sam Hocevar <sam@zoy.org>, Paris
|
||||||
|
*
|
||||||
|
* This software was derived from Elk 1.2, which was Copyright 1987, 1988,
|
||||||
|
* 1989, Nixdorf Computer AG and TELES GmbH, Berlin (Elk 1.2 has been written
|
||||||
|
* by Oliver Laumann for TELES Telematic Services, Berlin, in a joint project
|
||||||
|
* between TELES and Nixdorf Microprocessor Engineering, Berlin).
|
||||||
|
*
|
||||||
|
* Oliver Laumann, TELES GmbH, Nixdorf Computer AG and Sam Hocevar, as co-
|
||||||
|
* owners or individual owners of copyright in this software, grant to any
|
||||||
|
* person or company a worldwide, royalty free, license to
|
||||||
|
*
|
||||||
|
* i) copy this software,
|
||||||
|
* ii) prepare derivative works based on this software,
|
||||||
|
* iii) distribute copies of this software or derivative works,
|
||||||
|
* iv) perform this software, or
|
||||||
|
* v) display this software,
|
||||||
|
*
|
||||||
|
* provided that this notice is not removed and that neither Oliver Laumann
|
||||||
|
* nor Teles nor Nixdorf are deemed to have made any representations as to
|
||||||
|
* the suitability of this software for any purpose nor are held responsible
|
||||||
|
* for any defects of this software.
|
||||||
|
*
|
||||||
|
* THERE IS ABSOLUTELY NO WARRANTY FOR THIS SOFTWARE.
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#include "kernel.h"
|
#include "kernel.h"
|
||||||
|
|
|
||||||
29
src/stkmem.c
29
src/stkmem.c
|
|
@ -1,4 +1,31 @@
|
||||||
/* Alloca() simulation.
|
/* stkmem.c: Alloca() simulation.
|
||||||
|
*
|
||||||
|
* $Id$
|
||||||
|
*
|
||||||
|
* Copyright 1990, 1991, 1992, 1993, 1994, 1995, Oliver Laumann, Berlin
|
||||||
|
* Copyright 2002, 2003 Sam Hocevar <sam@zoy.org>, Paris
|
||||||
|
*
|
||||||
|
* This software was derived from Elk 1.2, which was Copyright 1987, 1988,
|
||||||
|
* 1989, Nixdorf Computer AG and TELES GmbH, Berlin (Elk 1.2 has been written
|
||||||
|
* by Oliver Laumann for TELES Telematic Services, Berlin, in a joint project
|
||||||
|
* between TELES and Nixdorf Microprocessor Engineering, Berlin).
|
||||||
|
*
|
||||||
|
* Oliver Laumann, TELES GmbH, Nixdorf Computer AG and Sam Hocevar, as co-
|
||||||
|
* owners or individual owners of copyright in this software, grant to any
|
||||||
|
* person or company a worldwide, royalty free, license to
|
||||||
|
*
|
||||||
|
* i) copy this software,
|
||||||
|
* ii) prepare derivative works based on this software,
|
||||||
|
* iii) distribute copies of this software or derivative works,
|
||||||
|
* iv) perform this software, or
|
||||||
|
* v) display this software,
|
||||||
|
*
|
||||||
|
* provided that this notice is not removed and that neither Oliver Laumann
|
||||||
|
* nor Teles nor Nixdorf are deemed to have made any representations as to
|
||||||
|
* the suitability of this software for any purpose nor are held responsible
|
||||||
|
* for any defects of this software.
|
||||||
|
*
|
||||||
|
* THERE IS ABSOLUTELY NO WARRANTY FOR THIS SOFTWARE.
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#include "kernel.h"
|
#include "kernel.h"
|
||||||
|
|
|
||||||
30
src/string.c
30
src/string.c
|
|
@ -1,3 +1,33 @@
|
||||||
|
/* string.c
|
||||||
|
*
|
||||||
|
* $Id$
|
||||||
|
*
|
||||||
|
* Copyright 1990, 1991, 1992, 1993, 1994, 1995, Oliver Laumann, Berlin
|
||||||
|
* Copyright 2002, 2003 Sam Hocevar <sam@zoy.org>, Paris
|
||||||
|
*
|
||||||
|
* This software was derived from Elk 1.2, which was Copyright 1987, 1988,
|
||||||
|
* 1989, Nixdorf Computer AG and TELES GmbH, Berlin (Elk 1.2 has been written
|
||||||
|
* by Oliver Laumann for TELES Telematic Services, Berlin, in a joint project
|
||||||
|
* between TELES and Nixdorf Microprocessor Engineering, Berlin).
|
||||||
|
*
|
||||||
|
* Oliver Laumann, TELES GmbH, Nixdorf Computer AG and Sam Hocevar, as co-
|
||||||
|
* owners or individual owners of copyright in this software, grant to any
|
||||||
|
* person or company a worldwide, royalty free, license to
|
||||||
|
*
|
||||||
|
* i) copy this software,
|
||||||
|
* ii) prepare derivative works based on this software,
|
||||||
|
* iii) distribute copies of this software or derivative works,
|
||||||
|
* iv) perform this software, or
|
||||||
|
* v) display this software,
|
||||||
|
*
|
||||||
|
* provided that this notice is not removed and that neither Oliver Laumann
|
||||||
|
* nor Teles nor Nixdorf are deemed to have made any representations as to
|
||||||
|
* the suitability of this software for any purpose nor are held responsible
|
||||||
|
* for any defects of this software.
|
||||||
|
*
|
||||||
|
* THERE IS ABSOLUTELY NO WARRANTY FOR THIS SOFTWARE.
|
||||||
|
*/
|
||||||
|
|
||||||
#include <ctype.h>
|
#include <ctype.h>
|
||||||
#include <string.h>
|
#include <string.h>
|
||||||
|
|
||||||
|
|
|
||||||
30
src/symbol.c
30
src/symbol.c
|
|
@ -1,3 +1,33 @@
|
||||||
|
/* symbol.c
|
||||||
|
*
|
||||||
|
* $Id$
|
||||||
|
*
|
||||||
|
* Copyright 1990, 1991, 1992, 1993, 1994, 1995, Oliver Laumann, Berlin
|
||||||
|
* Copyright 2002, 2003 Sam Hocevar <sam@zoy.org>, Paris
|
||||||
|
*
|
||||||
|
* This software was derived from Elk 1.2, which was Copyright 1987, 1988,
|
||||||
|
* 1989, Nixdorf Computer AG and TELES GmbH, Berlin (Elk 1.2 has been written
|
||||||
|
* by Oliver Laumann for TELES Telematic Services, Berlin, in a joint project
|
||||||
|
* between TELES and Nixdorf Microprocessor Engineering, Berlin).
|
||||||
|
*
|
||||||
|
* Oliver Laumann, TELES GmbH, Nixdorf Computer AG and Sam Hocevar, as co-
|
||||||
|
* owners or individual owners of copyright in this software, grant to any
|
||||||
|
* person or company a worldwide, royalty free, license to
|
||||||
|
*
|
||||||
|
* i) copy this software,
|
||||||
|
* ii) prepare derivative works based on this software,
|
||||||
|
* iii) distribute copies of this software or derivative works,
|
||||||
|
* iv) perform this software, or
|
||||||
|
* v) display this software,
|
||||||
|
*
|
||||||
|
* provided that this notice is not removed and that neither Oliver Laumann
|
||||||
|
* nor Teles nor Nixdorf are deemed to have made any representations as to
|
||||||
|
* the suitability of this software for any purpose nor are held responsible
|
||||||
|
* for any defects of this software.
|
||||||
|
*
|
||||||
|
* THERE IS ABSOLUTELY NO WARRANTY FOR THIS SOFTWARE.
|
||||||
|
*/
|
||||||
|
|
||||||
#include <ctype.h>
|
#include <ctype.h>
|
||||||
#include <string.h>
|
#include <string.h>
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -1,4 +1,31 @@
|
||||||
/* Termination functions, weak pointers.
|
/* terminate.c: Termination functions, weak pointers.
|
||||||
|
*
|
||||||
|
* $Id$
|
||||||
|
*
|
||||||
|
* Copyright 1990, 1991, 1992, 1993, 1994, 1995, Oliver Laumann, Berlin
|
||||||
|
* Copyright 2002, 2003 Sam Hocevar <sam@zoy.org>, Paris
|
||||||
|
*
|
||||||
|
* This software was derived from Elk 1.2, which was Copyright 1987, 1988,
|
||||||
|
* 1989, Nixdorf Computer AG and TELES GmbH, Berlin (Elk 1.2 has been written
|
||||||
|
* by Oliver Laumann for TELES Telematic Services, Berlin, in a joint project
|
||||||
|
* between TELES and Nixdorf Microprocessor Engineering, Berlin).
|
||||||
|
*
|
||||||
|
* Oliver Laumann, TELES GmbH, Nixdorf Computer AG and Sam Hocevar, as co-
|
||||||
|
* owners or individual owners of copyright in this software, grant to any
|
||||||
|
* person or company a worldwide, royalty free, license to
|
||||||
|
*
|
||||||
|
* i) copy this software,
|
||||||
|
* ii) prepare derivative works based on this software,
|
||||||
|
* iii) distribute copies of this software or derivative works,
|
||||||
|
* iv) perform this software, or
|
||||||
|
* v) display this software,
|
||||||
|
*
|
||||||
|
* provided that this notice is not removed and that neither Oliver Laumann
|
||||||
|
* nor Teles nor Nixdorf are deemed to have made any representations as to
|
||||||
|
* the suitability of this software for any purpose nor are held responsible
|
||||||
|
* for any defects of this software.
|
||||||
|
*
|
||||||
|
* THERE IS ABSOLUTELY NO WARRANTY FOR THIS SOFTWARE.
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#include <stdarg.h>
|
#include <stdarg.h>
|
||||||
|
|
|
||||||
29
src/type.c
29
src/type.c
|
|
@ -1,4 +1,31 @@
|
||||||
/* Built-in and user-defined Scheme types.
|
/* type.c: Built-in and user-defined Scheme types.
|
||||||
|
*
|
||||||
|
* $Id$
|
||||||
|
*
|
||||||
|
* Copyright 1990, 1991, 1992, 1993, 1994, 1995, Oliver Laumann, Berlin
|
||||||
|
* Copyright 2002, 2003 Sam Hocevar <sam@zoy.org>, Paris
|
||||||
|
*
|
||||||
|
* This software was derived from Elk 1.2, which was Copyright 1987, 1988,
|
||||||
|
* 1989, Nixdorf Computer AG and TELES GmbH, Berlin (Elk 1.2 has been written
|
||||||
|
* by Oliver Laumann for TELES Telematic Services, Berlin, in a joint project
|
||||||
|
* between TELES and Nixdorf Microprocessor Engineering, Berlin).
|
||||||
|
*
|
||||||
|
* Oliver Laumann, TELES GmbH, Nixdorf Computer AG and Sam Hocevar, as co-
|
||||||
|
* owners or individual owners of copyright in this software, grant to any
|
||||||
|
* person or company a worldwide, royalty free, license to
|
||||||
|
*
|
||||||
|
* i) copy this software,
|
||||||
|
* ii) prepare derivative works based on this software,
|
||||||
|
* iii) distribute copies of this software or derivative works,
|
||||||
|
* iv) perform this software, or
|
||||||
|
* v) display this software,
|
||||||
|
*
|
||||||
|
* provided that this notice is not removed and that neither Oliver Laumann
|
||||||
|
* nor Teles nor Nixdorf are deemed to have made any representations as to
|
||||||
|
* the suitability of this software for any purpose nor are held responsible
|
||||||
|
* for any defects of this software.
|
||||||
|
*
|
||||||
|
* THERE IS ABSOLUTELY NO WARRANTY FOR THIS SOFTWARE.
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#include "kernel.h"
|
#include "kernel.h"
|
||||||
|
|
|
||||||
30
src/vector.c
30
src/vector.c
|
|
@ -1,3 +1,33 @@
|
||||||
|
/* vector.c
|
||||||
|
*
|
||||||
|
* $Id$
|
||||||
|
*
|
||||||
|
* Copyright 1990, 1991, 1992, 1993, 1994, 1995, Oliver Laumann, Berlin
|
||||||
|
* Copyright 2002, 2003 Sam Hocevar <sam@zoy.org>, Paris
|
||||||
|
*
|
||||||
|
* This software was derived from Elk 1.2, which was Copyright 1987, 1988,
|
||||||
|
* 1989, Nixdorf Computer AG and TELES GmbH, Berlin (Elk 1.2 has been written
|
||||||
|
* by Oliver Laumann for TELES Telematic Services, Berlin, in a joint project
|
||||||
|
* between TELES and Nixdorf Microprocessor Engineering, Berlin).
|
||||||
|
*
|
||||||
|
* Oliver Laumann, TELES GmbH, Nixdorf Computer AG and Sam Hocevar, as co-
|
||||||
|
* owners or individual owners of copyright in this software, grant to any
|
||||||
|
* person or company a worldwide, royalty free, license to
|
||||||
|
*
|
||||||
|
* i) copy this software,
|
||||||
|
* ii) prepare derivative works based on this software,
|
||||||
|
* iii) distribute copies of this software or derivative works,
|
||||||
|
* iv) perform this software, or
|
||||||
|
* v) display this software,
|
||||||
|
*
|
||||||
|
* provided that this notice is not removed and that neither Oliver Laumann
|
||||||
|
* nor Teles nor Nixdorf are deemed to have made any representations as to
|
||||||
|
* the suitability of this software for any purpose nor are held responsible
|
||||||
|
* for any defects of this software.
|
||||||
|
*
|
||||||
|
* THERE IS ABSOLUTELY NO WARRANTY FOR THIS SOFTWARE.
|
||||||
|
*/
|
||||||
|
|
||||||
#include "kernel.h"
|
#include "kernel.h"
|
||||||
|
|
||||||
#include <string.h>
|
#include <string.h>
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue