suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

remove "2018"s and "PLT Design"s

Browse Source
This commit is contained in:
Matthew Flatt 2019-01-05 14:44:11 -07:00
parent 52358ec42e
commit f9c2a9395b
93 changed files with 57 additions and 1533 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
pkgs/at-exp-lib/LICENSE.txt
View File

@ -1,5 +1,4 @@
at-exp-lib
Copyright (c) 2010-2018 PLT Design Inc.
This package is distributed under the GNU Lesser General Public
License (LGPL). This means that you can link this package into proprietary

1
pkgs/base/LICENSE.txt
View File

@ -1,5 +1,4 @@
base
Copyright (c) 2010-2018 PLT Design Inc.
This package is distributed under the GNU Lesser General Public
License (LGPL). This means that you can link this package into proprietary

1
pkgs/compiler-lib/LICENSE.txt
View File

@ -1,5 +1,4 @@
compiler-lib
Copyright (c) 2010-2018 PLT Design Inc.
This package is distributed under the GNU Lesser General Public
License (LGPL). This means that you can link this package into proprietary

1
pkgs/compiler-test/LICENSE.txt
View File

@ -1,5 +1,4 @@
compiler-test
Copyright (c) 2010-2018 PLT Design Inc.
This package is distributed under the GNU Lesser General Public
License (LGPL). This means that you can link this package into proprietary

1
pkgs/compiler/LICENSE.txt
View File

@ -1,5 +1,4 @@
compiler
Copyright (c) 2010-2018 PLT Design Inc.
This package is distributed under the GNU Lesser General Public
License (LGPL). This means that you can link this package into proprietary

1
pkgs/net-doc/LICENSE.txt
View File

@ -1,5 +1,4 @@
net-doc
Copyright (c) 2010-2018 PLT Design Inc.
This package is distributed under the GNU Lesser General Public
License (LGPL). This means that you can link this package into proprietary

1
pkgs/net-lib/LICENSE.txt
View File

@ -1,5 +1,4 @@
net-lib
Copyright (c) 2010-2018 PLT Design Inc.
This package is distributed under the GNU Lesser General Public
License (LGPL). This means that you can link this package into proprietary

1
pkgs/net-test/LICENSE.txt
View File

@ -1,5 +1,4 @@
net-test
Copyright (c) 2010-2018 PLT Design Inc.
This package is distributed under the GNU Lesser General Public
License (LGPL). This means that you can link this package into proprietary

1
pkgs/net/LICENSE.txt
View File

@ -1,5 +1,4 @@
net
Copyright (c) 2010-2018 PLT Design Inc.
This package is distributed under the GNU Lesser General Public
License (LGPL). This means that you can link this package into proprietary

1
pkgs/racket-doc/LICENSE.txt
View File

@ -1,5 +1,4 @@
racket-doc
Copyright (c) 2010-2018 PLT Design Inc.
This package is distributed under the GNU Lesser General Public
License (LGPL). This means that you can link this package into proprietary

1
pkgs/racket-index/LICENSE.txt
View File

@ -1,5 +1,4 @@
racket-index
Copyright (c) 2010-2018 PLT Design Inc.
This package is distributed under the GNU Lesser General Public
License (LGPL). This means that you can link this package into proprietary

1
pkgs/racket-lib/LICENSE.txt
View File

@ -1,5 +1,4 @@
racket-lib
Copyright (c) 2010-2018 PLT Design Inc.
This package is distributed under the GNU Lesser General Public
License (LGPL). This means that you can link this package into proprietary

1
pkgs/racket-test-core/LICENSE.txt
View File

@ -1,5 +1,4 @@
racket-test
Copyright (c) 2010-2018 PLT Design Inc.
This package is distributed under the GNU Lesser General Public
License (LGPL). This means that you can link this package into proprietary

1
pkgs/racket-test/LICENSE.txt
View File

@ -1,5 +1,4 @@
racket-test
Copyright (c) 2010-2018 PLT Design Inc.
This package is distributed under the GNU Lesser General Public
License (LGPL). This means that you can link this package into proprietary

2
racket/collects/file/md5.rkt
View File

@ -2,7 +2,7 @@
(provide md5)
;;; Copyright (c) 2005-2018 PLT Design Inc.
;;; Originally:
;;; Copyright (c) 2002, Jens Axel Soegaard
;;;
;;; Distributed under the same terms as Racket, by permission.

9
racket/src/gracket/grmain.c
View File

@ -1,12 +1,3 @@
/*
* File: mred.c
* Purpose: GRacket main file, including a hodge-podge of global stuff
* Author: Matthew Flatt
* Created: 1995
* Copyright: (c) 2004-2014 PLT Design Inc.
* Copyright: (c) 1995-2000, Matthew Flatt
*/
#ifdef WIN32
/* Hack: overwrite "y" with "n" in binary to disable checking for another
instance of the same app. */

1
racket/src/native-libs/install.rkt
View File

@ -296,7 +296,6 @@
#:exists 'truncate
(lambda (o)
(displayln pkg-name o)
(displayln "Copyright (c) 2010-2018 PLT Design Inc." o)
(newline o)
(displayln "This package is distributed under the GNU Lesser General Public" o)
(displayln "License (LGPL). This means that you can link this package into" o)

13
racket/src/racket/dynsrc/mzdyn.c
View File

@ -1,16 +1,3 @@
/*
Racket
Copyright (c) 2004-2018 PLT Design Inc.
Copyright (c) 1995 Matthew Flatt
All rights reserved.
Please see the full copyright in the documentation.
libscheme
Copyright (c) 1994 Brent Benson
All rights reserved.
*/
/* This file should be linked with any Racket extension dynamic
object. */

4
racket/src/racket/gc2/newgc.c
View File

@ -1,8 +1,6 @@
/*
Racket's garbage collector
By Adam Wick, Matthew Flatt, and Kevin Tew
Copyright (c) 2004-2018 PLT Design Inc.
Copyright (C) 2001, 2002 Matthew Flatt and Adam Wick
by Adam Wick, Matthew Flatt, and Kevin Tew
*/
#define MZ_PRECISE_GC /* required for "sch" includes to work right */

13
racket/src/racket/include/escheme.h
View File

@ -1,16 +1,3 @@
/*
Racket
Copyright (c) 2004-2018 PLT Design Inc.
Copyright (c) 1995 Matthew Flatt
All rights reserved.
Please see the full copyright in the documentation.
libscheme
Copyright (c) 1994 Brent Benson
All rights reserved.
*/
/* This file should be included by Racket dynamically-loaded
extenstion files */

4
racket/src/racket/include/mzwin.def
View File

@ -532,6 +532,10 @@ EXPORTS
scheme_module_bucket
scheme_builtin_value
scheme_set_global_bucket
scheme_primitive_module
scheme_finish_primitive_module
scheme_set_primitive_module_phaseless
scheme_protect_primitive_provide
scheme_make_modidx
scheme_dynamic_require
scheme_dynamic_require_reader

4
racket/src/racket/include/mzwin3m.def
View File

@ -546,6 +546,10 @@ EXPORTS
scheme_module_bucket
scheme_builtin_value
scheme_set_global_bucket
scheme_primitive_module
scheme_finish_primitive_module
scheme_set_primitive_module_phaseless
scheme_protect_primitive_provide
scheme_make_modidx
scheme_dynamic_require
scheme_dynamic_require_reader

4
racket/src/racket/include/racket.exp
View File

@ -548,6 +548,10 @@ scheme_global_bucket
scheme_module_bucket
scheme_builtin_value
scheme_set_global_bucket
scheme_primitive_module
scheme_finish_primitive_module
scheme_set_primitive_module_phaseless
scheme_protect_primitive_provide
scheme_make_modidx
scheme_dynamic_require
scheme_dynamic_require_reader

4
racket/src/racket/include/racket3m.exp
View File

@ -553,6 +553,10 @@ scheme_global_bucket
scheme_module_bucket
scheme_builtin_value
scheme_set_global_bucket
scheme_primitive_module
scheme_finish_primitive_module
scheme_set_primitive_module_phaseless
scheme_protect_primitive_provide
scheme_make_modidx
scheme_dynamic_require
scheme_dynamic_require_reader

14
racket/src/racket/include/scheme.h
View File

@ -1,17 +1,3 @@
/*
Racket
Copyright (c) 2004-2018 PLT Design Inc.
Copyright (c) 1995-2001 Matthew Flatt
All rights reserved.
Please see the full copyright in the documentation.
Originally based on:
libscheme
Copyright (c) 1994 Brent Benson
All rights reserved.
*/
#ifndef SCHEME_H
#define SCHEME_H

25
racket/src/racket/main.c
View File

@ -1,28 +1,3 @@
/*
Racket
Copyright (c) 2004-2018 PLT Design Inc.
Copyright (c) 1995-2000 Matthew Flatt
This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Library General Public
License as published by the Free Software Foundation; either
version 2 of the License, or (at your option) any later version.
This library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Library General Public License for more details.
You should have received a copy of the GNU Library General Public
License along with this library; if not, write to the Free
Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
Boston, MA 02110-1301 USA.
libscheme
Copyright (c) 1994 Brent Benson
All rights reserved.
*/
/* This file defines Racket's main(), which is a jumble of
platform-specific initialization. The included file "cmdline.inc"
implements command-line parsing. (GRacket also uses "cmdline.inc".)

26
racket/src/racket/sgc/sgc.c
View File

@ -1,30 +1,6 @@
/*
SenoraGC, a relatively portable conservative GC for a slightly
cooperative environment
Copyright (c) 2004-2018 PLT Design Inc.
Copyright (c) 1996-98 Matthew Flatt
All rights reserved.
This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Library General Public
License as published by the Free Software Foundation; either
version 2 of the License, or (at your option) any later version.
This library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Library General Public License for more details.
You should have received a copy of the GNU Library General Public
License along with this library; if not, write to the Free
Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
Boston, MA 02110-1301 USA.
After Boehm et al.
Note: this implementation is probably still a little hardwired for
32-bit addresses.
cooperative environment.
*/
#include <stdlib.h>

26
racket/src/racket/src/bignum.c
View File

@ -1,29 +1,3 @@
/*
Racket
Copyright (c) 2004-2018 PLT Design Inc.
Copyright (c) 1995-2001 Matthew Flatt, Scott Owens
This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Library General Public
License as published by the Free Software Foundation; either
version 2 of the License, or (at your option) any later version.
This library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Library General Public License for more details.
You should have received a copy of the GNU Library General Public
License along with this library; if not, write to the Free
Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
Boston, MA 02110-1301 USA.
libscheme
Copyright (c) 1994 Brent Benson
All rights reserved.
*/
/* DANGER! DANGER! DANGER! DANGER! DANGER! DANGER! DANGER! DANGER!
This code is fragile, due to the Small_Bignum optimization, and

25
racket/src/racket/src/bool.c
View File

@ -1,28 +1,3 @@
/*
Racket
Copyright (c) 2004-2018 PLT Design Inc.
Copyright (c) 1995-2001 Matthew Flatt
This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Library General Public
License as published by the Free Software Foundation; either
version 2 of the License, or (at your option) any later version.
This library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Library General Public License for more details.
You should have received a copy of the GNU Library General Public
License along with this library; if not, write to the Free
Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
Boston, MA 02110-1301 USA.
libscheme
Copyright (c) 1994 Brent Benson
All rights reserved.
*/
#include "schpriv.h"
#include "schmach.h"
#include <string.h>

25
racket/src/racket/src/char.c
View File

@ -1,28 +1,3 @@
/*
Racket
Copyright (c) 2004-2018 PLT Design Inc.
Copyright (c) 1995-2001 Matthew Flatt
This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Library General Public
License as published by the Free Software Foundation; either
version 2 of the License, or (at your option) any later version.
This library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Library General Public License for more details.
You should have received a copy of the GNU Library General Public
License along with this library; if not, write to the Free
Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
Boston, MA 02110-1301 USA.
libscheme
Copyright (c) 1994 Brent Benson
All rights reserved.
*/
#include "schpriv.h"
#include <ctype.h>

25
racket/src/racket/src/compenv.c
View File

@ -1,28 +1,3 @@
/*
Racket
Copyright (c) 2004-2018 PLT Design Inc.
Copyright (c) 1995-2001 Matthew Flatt
This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Library General Public
License as published by the Free Software Foundation; either
version 2 of the License, or (at your option) any later version.
This library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Library General Public License for more details.
You should have received a copy of the GNU Library General Public
License along with this library; if not, write to the Free
Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
Boston, MA 02110-1301 USA.
libscheme
Copyright (c) 1994 Brent Benson
All rights reserved.
*/
#include "schpriv.h"
#define TABLE_CACHE_MAX_SIZE 2048

28
racket/src/racket/src/compile.c
View File

@ -1,28 +1,4 @@
/*
Racket
Copyright (c) 2004-2018 PLT Design Inc.
Copyright (c) 1995-2001 Matthew Flatt
This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Library General Public
License as published by the Free Software Foundation; either
version 2 of the License, or (at your option) any later version.
This library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Library General Public License for more details.
You should have received a copy of the GNU Library General Public
License along with this library; if not, write to the Free
Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
Boston, MA 02110-1301 USA.
*/
/* This file implements macro expansion and front-end compilation.
Instead of always fully expanding code and then compiling it to an
intermediate format, the compiler front-end expands as it goes,
which enables some shortcuts compared to fully expanding first.
/* This file implements front-end compilation.
The intermediate format generated from here accumulates references
to non-local variables in a prefix, and it indicates whether each
@ -30,7 +6,7 @@
See "eval.c" for an overview of compilation passes.
The main compile/expand loop is compile_expand_expr(). */
The main compile loop is compile_expr(). */
#include "schpriv.h"
#include "schmach.h"

25
racket/src/racket/src/complex.c
View File

@ -1,28 +1,3 @@
/*
Racket
Copyright (c) 2004-2018 PLT Design Inc.
Copyright (c) 1995-2001 Matthew Flatt
This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Library General Public
License as published by the Free Software Foundation; either
version 2 of the License, or (at your option) any later version.
This library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Library General Public License for more details.
You should have received a copy of the GNU Library General Public
License along with this library; if not, write to the Free
Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
Boston, MA 02110-1301 USA.
libscheme
Copyright (c) 1994 Brent Benson
All rights reserved.
*/
#include "schpriv.h"
#include <ctype.h>
#include <math.h>

24
racket/src/racket/src/dynext.c
View File

@ -1,27 +1,3 @@
/*
Racket
Copyright (c) 2004-2018 PLT Design Inc.
Copyright (c) 1995-2002 Matthew Flatt
This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Library General Public
License as published by the Free Software Foundation; either
version 2 of the License, or (at your option) any later version.
This library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Library General Public License for more details.
You should have received a copy of the GNU Library General Public
License along with this library; if not, write to the Free
Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
Boston, MA 02110-1301 USA.
Thanks to Patrick Barta for the WINDOWS_DYNAMIC_LOAD code.
Thanks to William Ng for the CODEFRAGMENT_DYNAMIC_LOAD code.
*/
/* Some copilers don't like re-def of GC_malloc in schemef.h: */
#ifndef MZ_PRECISE_GC
# define SCHEME_NO_GC_PROTO

25
racket/src/racket/src/env.c
View File

@ -1,28 +1,3 @@
/*
Racket
Copyright (c) 2004-2018 PLT Design Inc.
Copyright (c) 1995-2001 Matthew Flatt
This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Library General Public
License as published by the Free Software Foundation; either
version 2 of the License, or (at your option) any later version.
This library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Library General Public License for more details.
You should have received a copy of the GNU Library General Public
License along with this library; if not, write to the Free
Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
Boston, MA 02110-1301 USA.
libscheme
Copyright (c) 1994 Brent Benson
All rights reserved.
*/
#include "schpriv.h"
#include "schminc.h"
#include "schmach.h"

25
racket/src/racket/src/error.c
View File

@ -1,28 +1,3 @@
/*
Racket
Copyright (c) 2004-2018 PLT Design Inc.
Copyright (c) 1995-2001 Matthew Flatt
This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Library General Public
License as published by the Free Software Foundation; either
version 2 of the License, or (at your option) any later version.
This library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Library General Public License for more details.
You should have received a copy of the GNU Library General Public
License along with this library; if not, write to the Free
Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
Boston, MA 02110-1301 USA.
libscheme
Copyright (c) 1994 Brent Benson
All rights reserved.
*/
#include "schpriv.h"
#include "schrktio.h"
#include <ctype.h>

25
racket/src/racket/src/eval.c
View File

@ -1,28 +1,3 @@
/*
Racket
Copyright (c) 2004-2018 PLT Design Inc.
Copyright (c) 1995-2001 Matthew Flatt
This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Library General Public
License as published by the Free Software Foundation; either
version 2 of the License, or (at your option) any later version.
This library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Library General Public License for more details.
You should have received a copy of the GNU Library General Public
License along with this library; if not, write to the Free
Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
Boston, MA 02110-1301 USA.
libscheme
Copyright (c) 1994 Brent Benson
All rights reserved.
*/
/* This file contains the main interpreter eval-apply loop,
scheme_do_eval(), C and Scheme stack management routines,
and other bridges between evaluation and compilation.

25
racket/src/racket/src/file.c
View File

@ -1,28 +1,3 @@
/*
Racket
Copyright (c) 2004-2018 PLT Design Inc.
Copyright (c) 1995-2001 Matthew Flatt
This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Library General Public
License as published by the Free Software Foundation; either
version 2 of the License, or (at your option) any later version.
This library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Library General Public License for more details.
You should have received a copy of the GNU Library General Public
License along with this library; if not, write to the Free
Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
Boston, MA 02110-1301 USA.
libscheme
Copyright (c) 1994 Brent Benson
All rights reserved.
*/
/* Most of this source file is pathname manipulation functions. At
the bottom, a path is just a byte string, not necessarily
normalized in any way, except that it doesn't contain a nul

25
racket/src/racket/src/fun.c
View File

@ -1,28 +1,3 @@
/*
Racket
Copyright (c) 2004-2018 PLT Design Inc.
Copyright (c) 1995-2001 Matthew Flatt
This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Library General Public
License as published by the Free Software Foundation; either
version 2 of the License, or (at your option) any later version.
This library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Library General Public License for more details.
You should have received a copy of the GNU Library General Public
License along with this library; if not, write to the Free
Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
Boston, MA 02110-1301 USA.
libscheme
Copyright (c) 1994 Brent Benson
All rights reserved.
*/
/* This file is a hodge-podge of various aspects of application and
continuations. It includes primitives like `call/cc' and
`procedure-arity', which have no better home, as well as parts of

20
racket/src/racket/src/future.c
View File

@ -1,23 +1,3 @@
/*
Racket
Copyright (c) 2006-2018 PLT Design Inc.
This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Library General Public
License as published by the Free Software Foundation; either
version 2 of the License, or (at your option) any later version.
This library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Library General Public License for more details.
You should have received a copy of the GNU Library General Public
License along with this library; if not, write to the Free
Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
Boston, MA 02110-1301 USA.
*/
#include "schpriv.h"
#include "schmach.h"
#include "schrktio.h"

25
racket/src/racket/src/hash.c
View File

@ -1,28 +1,3 @@
/*
Racket
Copyright (c) 2004-2018 PLT Design Inc.
Copyright (c) 1995-2001 Matthew Flatt
This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Library General Public
License as published by the Free Software Foundation; either
version 2 of the License, or (at your option) any later version.
This library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Library General Public License for more details.
You should have received a copy of the GNU Library General Public
License along with this library; if not, write to the Free
Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
Boston, MA 02110-1301 USA.
libscheme
Copyright (c) 1994 Brent Benson
All rights reserved.
*/
#include "schpriv.h"
#include "schmach.h"
#include <ctype.h>

20
racket/src/racket/src/jit.c
View File

@ -1,23 +1,3 @@
/*
Racket
Copyright (c) 2006-2018 PLT Design Inc.
This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Library General Public
License as published by the Free Software Foundation; either
version 2 of the License, or (at your option) any later version.
This library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Library General Public License for more details.
You should have received a copy of the GNU Library General Public
License along with this library; if not, write to the Free
Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
Boston, MA 02110-1301 USA.
*/
#include "schpriv.h"
#include "schmach.h"
#include "future.h"

21
racket/src/racket/src/jitalloc.c
View File

@ -1,24 +1,3 @@
/*
Racket
Copyright (c) 2006-2018 PLT Design Inc.
This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Library General Public
License as published by the Free Software Foundation; either
version 2 of the License, or (at your option) any later version.
This library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Library General Public License for more details.
You should have received a copy of the GNU Library General Public
License along with this library; if not, write to the Free
Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
Boston, MA 02110-1301 USA.
*/
#include "schpriv.h"
#include "schmach.h"
#include "future.h"

21
racket/src/racket/src/jitarith.c
View File

@ -1,24 +1,3 @@
/*
Racket
Copyright (c) 2006-2018 PLT Design Inc.
This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Library General Public
License as published by the Free Software Foundation; either
version 2 of the License, or (at your option) any later version.
This library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Library General Public License for more details.
You should have received a copy of the GNU Library General Public
License along with this library; if not, write to the Free
Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
Boston, MA 02110-1301 USA.
*/
#include "schpriv.h"
#include "schmach.h"
#include "future.h"

21
racket/src/racket/src/jitcall.c
View File

@ -1,24 +1,3 @@
/*
Racket
Copyright (c) 2006-2018 PLT Design Inc.
This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Library General Public
License as published by the Free Software Foundation; either
version 2 of the License, or (at your option) any later version.
This library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Library General Public License for more details.
You should have received a copy of the GNU Library General Public
License along with this library; if not, write to the Free
Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
Boston, MA 02110-1301 USA.
*/
#include "schpriv.h"
#include "schmach.h"
#include "future.h"

21
racket/src/racket/src/jitcommon.c
View File

@ -1,24 +1,3 @@
/*
Racket
Copyright (c) 2006-2018 PLT Design Inc.
This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Library General Public
License as published by the Free Software Foundation; either
version 2 of the License, or (at your option) any later version.
This library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Library General Public License for more details.
You should have received a copy of the GNU Library General Public
License along with this library; if not, write to the Free
Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
Boston, MA 02110-1301 USA.
*/
#include "schpriv.h"
#include "schmach.h"
#include "future.h"

21
racket/src/racket/src/jitinline.c
View File

@ -1,24 +1,3 @@
/*
Racket
Copyright (c) 2006-2018 PLT Design Inc.
This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Library General Public
License as published by the Free Software Foundation; either
version 2 of the License, or (at your option) any later version.
This library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Library General Public License for more details.
You should have received a copy of the GNU Library General Public
License along with this library; if not, write to the Free
Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
Boston, MA 02110-1301 USA.
*/
#include "schpriv.h"
#include "schmach.h"
#include "future.h"

25
racket/src/racket/src/jitprep.c
View File

@ -1,28 +1,3 @@
/*
Racket
Copyright (c) 2004-2018 PLT Design Inc.
Copyright (c) 1995-2001 Matthew Flatt
This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Library General Public
License as published by the Free Software Foundation; either
version 2 of the License, or (at your option) any later version.
This library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Library General Public License for more details.
You should have received a copy of the GNU Library General Public
License along with this library; if not, write to the Free
Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
Boston, MA 02110-1301 USA.
libscheme
Copyright (c) 1994 Brent Benson
All rights reserved.
*/
/* This file implements a bytecode pass to insert hook that trigger
JIT compilation. This pass is performed after bytecode is marshaled
or unmarshaled.

20
racket/src/racket/src/jitstack.c
View File

@ -1,23 +1,3 @@
/*
Racket
Copyright (c) 2006-2018 PLT Design Inc.
This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Library General Public
License as published by the Free Software Foundation; either
version 2 of the License, or (at your option) any later version.
This library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Library General Public License for more details.
You should have received a copy of the GNU Library General Public
License along with this library; if not, write to the Free
Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
Boston, MA 02110-1301 USA.
*/
#include "schpriv.h"
#include "schmach.h"
#ifdef MZ_USE_DWARF_LIBUNWIND

20
racket/src/racket/src/jitstate.c
View File

@ -1,23 +1,3 @@
/*
Racket
Copyright (c) 2006-2018 PLT Design Inc.
This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Library General Public
License as published by the Free Software Foundation; either
version 2 of the License, or (at your option) any later version.
This library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Library General Public License for more details.
You should have received a copy of the GNU Library General Public
License along with this library; if not, write to the Free
Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
Boston, MA 02110-1301 USA.
*/
#include "schpriv.h"
#include "schmach.h"
#include "future.h"

21
racket/src/racket/src/letrec_check.c
View File

@ -1,24 +1,3 @@
/*
Racket
Copyright (c) 2004-2018 PLT Design Inc.
This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Library General Public
License as published by the Free Software Foundation; either
version 2 of the License, or (at your option) any later version.
This library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Library General Public License for more details.
You should have received a copy of the GNU Library General Public
License along with this library; if not, write to the Free
Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
Boston, MA 02110-1301 USA.
*/
#include "schpriv.h"
#include "schmach.h"

25
racket/src/racket/src/linklet.c
View File

@ -1,28 +1,3 @@
/*
Racket
Copyright (c) 2004-2016 PLT Design Inc.
Copyright (c) 1995-2001 Matthew Flatt
This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Library General Public
License as published by the Free Software Foundation; either
version 2 of the License, or (at your option) any later version.
This library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Library General Public License for more details.
You should have received a copy of the GNU Library General Public
License along with this library; if not, write to the Free
Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
Boston, MA 02110-1301 USA.
libscheme
Copyright (c) 1994 Brent Benson
All rights reserved.
*/
#include "schpriv.h"
#include "schrunst.h"

25
racket/src/racket/src/list.c
View File

@ -1,28 +1,3 @@
/*
Racket
Copyright (c) 2004-2018 PLT Design Inc.
Copyright (c) 1995-2001 Matthew Flatt
This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Library General Public
License as published by the Free Software Foundation; either
version 2 of the License, or (at your option) any later version.
This library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Library General Public License for more details.
You should have received a copy of the GNU Library General Public
License along with this library; if not, write to the Free
Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
Boston, MA 02110-1301 USA.
libscheme
Copyright (c) 1994 Brent Benson
All rights reserved.
*/
#include "schpriv.h"
#include "schmach.h"

25
racket/src/racket/src/marshal.c
View File

@ -1,28 +1,3 @@
/*
Racket
Copyright (c) 2004-2018 PLT Design Inc.
Copyright (c) 1995-2001 Matthew Flatt
This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Library General Public
License as published by the Free Software Foundation; either
version 2 of the License, or (at your option) any later version.
This library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Library General Public License for more details.
You should have received a copy of the GNU Library General Public
License along with this library; if not, write to the Free
Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
Boston, MA 02110-1301 USA.
libscheme
Copyright (c) 1994 Brent Benson
All rights reserved.
*/
#include "schpriv.h"
#define CONS(a,b) scheme_make_pair(a,b)

20
racket/src/racket/src/mzrt.c
View File

@ -1,23 +1,3 @@
/*
Racket
Copyright (c) 2009-2018 PLT Design Inc.
This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Library General Public
License as published by the Free Software Foundation; either
version 2 of the License, or (at your option) any later version.
This library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Library General Public License for more details.
You should have received a copy of the GNU Library General Public
License along with this library; if not, write to the Free
Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
Boston, MA 02110-1301 USA.
*/
#include "schpriv.h"
#ifdef MZ_USE_MZRT

21
racket/src/racket/src/mzsj86.c
View File

@ -1,24 +1,3 @@
/*
Racket
Copyright (c) 2004-2018 PLT Design Inc.
Copyright (c) 1995 Matthew Flatt
This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Library General Public
License as published by the Free Software Foundation; either
version 2 of the License, or (at your option) any later version.
This library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Library General Public License for more details.
You should have received a copy of the GNU Library General Public
License along with this library; if not, write to the Free
Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
Boston, MA 02110-1301 USA.
*/
/* Re-implementation of i386 setjmp to avoid Windows-specific work,
which messes up Racket's (GRacket's, really) threads. */

25
racket/src/racket/src/network.c
View File

@ -1,28 +1,3 @@
/*
Racket
Copyright (c) 2004-2018 PLT Design Inc.
Copyright (c) 2000-2001 Matthew Flatt
This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Library General Public
License as published by the Free Software Foundation; either
version 2 of the License, or (at your option) any later version.
This library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Library General Public License for more details.
You should have received a copy of the GNU Library General Public
License along with this library; if not, write to the Free
Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
Boston, MA 02110-1301 USA.
libscheme
Copyright (c) 1994 Brent Benson
All rights reserved.
*/
/* This file implements the TCP and UDP interfaces. */
#include "schpriv.h"

25
racket/src/racket/src/numarith.c
View File

@ -1,28 +1,3 @@
/*
Racket
Copyright (c) 2004-2018 PLT Design Inc.
Copyright (c) 2000-2001 Matthew Flatt
This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Library General Public
License as published by the Free Software Foundation; either
version 2 of the License, or (at your option) any later version.
This library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Library General Public License for more details.
You should have received a copy of the GNU Library General Public
License along with this library; if not, write to the Free
Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
Boston, MA 02110-1301 USA.
libscheme
Copyright (c) 1994 Brent Benson
All rights reserved.
*/
#include "schpriv.h"
#include "nummacs.h"
#include <math.h>

25
racket/src/racket/src/number.c
View File

@ -1,28 +1,3 @@
/*
Racket
Copyright (c) 2004-2018 PLT Design Inc.
Copyright (c) 1995-2001 Matthew Flatt
This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Library General Public
License as published by the Free Software Foundation; either
version 2 of the License, or (at your option) any later version.
This library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Library General Public License for more details.
You should have received a copy of the GNU Library General Public
License along with this library; if not, write to the Free
Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
Boston, MA 02110-1301 USA.
libscheme
Copyright (c) 1994 Brent Benson
All rights reserved.
*/
#include "schpriv.h"
#include "nummacs.h"
#include "longdouble/longdouble.h"

25
racket/src/racket/src/numcomp.c
View File

@ -1,28 +1,3 @@
/*
Racket
Copyright (c) 2004-2018 PLT Design Inc.
Copyright (c) 2000-2001 Matthew Flatt
This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Library General Public
License as published by the Free Software Foundation; either
version 2 of the License, or (at your option) any later version.
This library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Library General Public License for more details.
You should have received a copy of the GNU Library General Public
License along with this library; if not, write to the Free
Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
Boston, MA 02110-1301 USA.
libscheme
Copyright (c) 1994 Brent Benson
All rights reserved.
*/
#include "schpriv.h"
#include "nummacs.h"
#include <math.h>

25
racket/src/racket/src/nummacs.h
View File

@ -1,28 +1,3 @@
/*
Racket
Copyright (c) 2004-2018 PLT Design Inc.
Copyright (c) 1995 Matthew Flatt
This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Library General Public
License as published by the Free Software Foundation; either
version 2 of the License, or (at your option) any later version.
This library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Library General Public License for more details.
You should have received a copy of the GNU Library General Public
License along with this library; if not, write to the Free
Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
Boston, MA 02110-1301 USA.
libscheme
Copyright (c) 1994 Brent Benson
All rights reserved.
*/
#define NEED_NUMBER(name) \
scheme_wrong_contract(#name, "number?", 0, argc, argv)
#define NEED_REAL(name) \

25
racket/src/racket/src/numstr.c
View File

@ -1,28 +1,3 @@
/*
Racket
Copyright (c) 2004-2018 PLT Design Inc.
Copyright (c) 2000-2001 Matthew Flatt
This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Library General Public
License as published by the Free Software Foundation; either
version 2 of the License, or (at your option) any later version.
This library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Library General Public License for more details.
You should have received a copy of the GNU Library General Public
License along with this library; if not, write to the Free
Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
Boston, MA 02110-1301 USA.
libscheme
Copyright (c) 1994 Brent Benson
All rights reserved.
*/
/* The bulk of this file is the number parser, an insane bit of code
that would probably be better off implemented via lex+yacc, except
the error messages are better this way.

25
racket/src/racket/src/optimize.c
View File

@ -1,28 +1,3 @@
/*
Racket
Copyright (c) 2004-2018 PLT Design Inc.
Copyright (c) 1995-2001 Matthew Flatt
This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Library General Public
License as published by the Free Software Foundation; either
version 2 of the License, or (at your option) any later version.
This library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Library General Public License for more details.
You should have received a copy of the GNU Library General Public
License along with this library; if not, write to the Free
Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
Boston, MA 02110-1301 USA.
libscheme
Copyright (c) 1994 Brent Benson
All rights reserved.
*/
/* This file implements bytecode optimization.
See "eval.c" for an overview of compilation passes. */

20
racket/src/racket/src/place.c
View File

@ -1,23 +1,3 @@
/*
Racket
Copyright (c) 2009-2018 PLT Design Inc.
This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Library General Public
License as published by the Free Software Foundation; either
version 2 of the License, or (at your option) any later version.
This library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Library General Public License for more details.
You should have received a copy of the GNU Library General Public
License along with this library; if not, write to the Free
Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
Boston, MA 02110-1301 USA.
*/
#include "schpriv.h"
#include "schrktio.h"
static Scheme_Object* scheme_place_enabled(int argc, Scheme_Object *args[]);

35
racket/src/racket/src/port.c
View File

@ -1,33 +1,8 @@
/*
Racket
Copyright (c) 2004-2018 PLT Design Inc.
Copyright (c) 1995-2001 Matthew Flatt
This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Library General Public
License as published by the Free Software Foundation; either
version 2 of the License, or (at your option) any later version.
This library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Library General Public License for more details.
You should have received a copy of the GNU Library General Public
License along with this library; if not, write to the Free
Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
Boston, MA 02110-1301 USA.
libscheme
Copyright (c) 1994 Brent Benson
All rights reserved.
*/
/* This file implements the most platform-specific aspects of Racket
port types, which means it deals with all the messy FILE and file
descriptor issues, as well as implementing TCP. Also, `subprocess'
is implemented here, since much of the work has to do with
ports. */
/* This file historically implemented the most platform-specific
aspects of Racket port types, which meant that it deals with all
the messy file descriptor issues, although the most
platform-specific part has moved to rktio. Also, `subprocess` is
implemented here. */
#include "schpriv.h"
#include "schmach.h"

27
racket/src/racket/src/portfun.c
View File

@ -1,30 +1,5 @@
/*
Racket
Copyright (c) 2004-2018 PLT Design Inc.
Copyright (c) 2000-2001 Matthew Flatt
This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Library General Public
License as published by the Free Software Foundation; either
version 2 of the License, or (at your option) any later version.
This library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Library General Public License for more details.
You should have received a copy of the GNU Library General Public
License along with this library; if not, write to the Free
Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
Boston, MA 02110-1301 USA.
libscheme
Copyright (c) 1994 Brent Benson
All rights reserved.
*/
/* This file implements the least platform-specific aspects of Racket
port types. */
port types. See also "port.c". */
#include "schpriv.h"
#include "schvers.h"

25
racket/src/racket/src/print.c
View File

@ -1,28 +1,3 @@
/*
Racket
Copyright (c) 2004-2018 PLT Design Inc.
Copyright (c) 1995-2001 Matthew Flatt
This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Library General Public
License as published by the Free Software Foundation; either
version 2 of the License, or (at your option) any later version.
This library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Library General Public License for more details.
You should have received a copy of the GNU Library General Public
License along with this library; if not, write to the Free
Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
Boston, MA 02110-1301 USA.
libscheme
Copyright (c) 1994 Brent Benson
All rights reserved.
*/
#include "schpriv.h"
#include "schvers.h"
#include "schmach.h"

25
racket/src/racket/src/rational.c
View File

@ -1,28 +1,3 @@
/*
Racket
Copyright (c) 2004-2018 PLT Design Inc.
Copyright (c) 1995-2001 Matthew Flatt
This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Library General Public
License as published by the Free Software Foundation; either
version 2 of the License, or (at your option) any later version.
This library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Library General Public License for more details.
You should have received a copy of the GNU Library General Public
License along with this library; if not, write to the Free
Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
Boston, MA 02110-1301 USA.
libscheme
Copyright (c) 1994 Brent Benson
All rights reserved.
*/
#include "schpriv.h"
#include <ctype.h>
#include <math.h>

33
racket/src/racket/src/read.c
View File

@ -1,34 +1,9 @@
/*
Racket
Copyright (c) 2004-2018 PLT Design Inc.
Copyright (c) 1995-2001 Matthew Flatt
This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Library General Public
License as published by the Free Software Foundation; either
version 2 of the License, or (at your option) any later version.
This library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Library General Public License for more details.
You should have received a copy of the GNU Library General Public
License along with this library; if not, write to the Free
Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
Boston, MA 02110-1301 USA.
libscheme
Copyright (c) 1994 Brent Benson
All rights reserved.
*/
/* This file contains the Racket reader, including the normal reader
and the one for .zo files. The normal reader is a recursive-descent
/* This file contains a restructed Racket reader for reading startup
code and for ".zo" files. The normal reader is a recursive-descent
parser. The really messy part is number parsing, which is in a
different file, numstr.c. */
different file, "numstr.c".
/* Rule on using scheme_ungetc(): the reader is generally allowed to
Rule on using scheme_ungetc(): the reader is generally allowed to
use scheme_ungetc() only when it will definitely re-read the
character as it continues. If the character will not be re-read
(e.g., because an exception will be raised), then the reader must

3
racket/src/racket/src/regexp.c
View File

@ -1,7 +1,6 @@
/*
* @(#)regexp.c 1.3 of 18 April 87
* Revised for PLT Racket, 1995-2001
* Copyright (c) 2004-2018 PLT Design Inc.
* Revised for Racket starting 1995
*
* Copyright (c) 1986 by University of Toronto.
* Written by Henry Spencer. Not derived from licensed software.

25
racket/src/racket/src/resolve.c
View File

@ -1,28 +1,3 @@
/*
Racket
Copyright (c) 2004-2018 PLT Design Inc.
Copyright (c) 1995-2001 Matthew Flatt
This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Library General Public
License as published by the Free Software Foundation; either
version 2 of the License, or (at your option) any later version.
This library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Library General Public License for more details.
You should have received a copy of the GNU Library General Public
License along with this library; if not, write to the Free
Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
Boston, MA 02110-1301 USA.
libscheme
Copyright (c) 1994 Brent Benson
All rights reserved.
*/
/* This file implements the bytecode "resolve" pass, which converts
the optimization IR to the evaluation bytecode --- where the main
difference between the representations is to use stack addresses.

25
racket/src/racket/src/salloc.c
View File

@ -1,28 +1,3 @@
/*
Racket
Copyright (c) 2004-2018 PLT Design Inc.
Copyright (c) 1995-2001 Matthew Flatt
This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Library General Public
License as published by the Free Software Foundation; either
version 2 of the License, or (at your option) any later version.
This library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Library General Public License for more details.
You should have received a copy of the GNU Library General Public
License along with this library; if not, write to the Free
Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
Boston, MA 02110-1301 USA.
libscheme
Copyright (c) 1994 Brent Benson
All rights reserved.
*/
/* Some copilers don't like re-def of GC_malloc in schemef.h: */
#ifndef MZ_PRECISE_GC
# define SCHEME_NO_GC_PROTO

14
racket/src/racket/src/schemef.h
View File

@ -1,17 +1,3 @@
/*
Racket
Copyright (c) 2004-2018 PLT Design Inc.
Copyright (c) 1995-2001 Matthew Flatt
All rights reserved.
Please see the full copyright in the documentation.
Originally based on:
libscheme
Copyright (c) 1994 Brent Benson
All rights reserved.
*/
/* SKIP */
/* After modifying this file, `make exports' (you must have `racket'

18
racket/src/racket/src/schemex.h
View File

@ -1,17 +1,3 @@
/*
Racket
Copyright (c) 2004-2018 PLT Design Inc.
Copyright (c) 1995-2001 Matthew Flatt
All rights reserved.
Please see the full copyright in the documentation.
Originally based on:
libscheme
Copyright (c) 1994 Brent Benson
All rights reserved.
*/
typedef struct {
/*========================================================================*/
/* setjmpup (continuations) */
@ -845,6 +831,10 @@ Scheme_Bucket *(*scheme_module_bucket)(Scheme_Object *mod, Scheme_Object *var, i
Scheme_Object *(*scheme_builtin_value)(const char *name); /* convenience */
void (*scheme_set_global_bucket)(char *proc, Scheme_Bucket *var, Scheme_Object *val,
int set_undef);
Scheme_Env *(*scheme_primitive_module)(Scheme_Object *name, Scheme_Env *for_env);
void (*scheme_finish_primitive_module)(Scheme_Env *env);
void (*scheme_set_primitive_module_phaseless)(Scheme_Env *env, int phaseless);
void (*scheme_protect_primitive_provide)(Scheme_Env *env, Scheme_Object *name);
Scheme_Object *(*scheme_make_modidx)(Scheme_Object *path,
Scheme_Object *base,
Scheme_Object *resolved);

4
racket/src/racket/src/schemex.inc
View File

@ -613,6 +613,10 @@
scheme_extension_table->scheme_module_bucket = scheme_module_bucket;
scheme_extension_table->scheme_builtin_value = scheme_builtin_value;
scheme_extension_table->scheme_set_global_bucket = scheme_set_global_bucket;
scheme_extension_table->scheme_primitive_module = scheme_primitive_module;
scheme_extension_table->scheme_finish_primitive_module = scheme_finish_primitive_module;
scheme_extension_table->scheme_set_primitive_module_phaseless = scheme_set_primitive_module_phaseless;
scheme_extension_table->scheme_protect_primitive_provide = scheme_protect_primitive_provide;
scheme_extension_table->scheme_make_modidx = scheme_make_modidx;
scheme_extension_table->scheme_dynamic_require = scheme_dynamic_require;
scheme_extension_table->scheme_dynamic_require_reader = scheme_dynamic_require_reader;

4
racket/src/racket/src/schemexm.h
View File

@ -613,6 +613,10 @@
#define scheme_module_bucket (scheme_extension_table->scheme_module_bucket)
#define scheme_builtin_value (scheme_extension_table->scheme_builtin_value)
#define scheme_set_global_bucket (scheme_extension_table->scheme_set_global_bucket)
#define scheme_primitive_module (scheme_extension_table->scheme_primitive_module)
#define scheme_finish_primitive_module (scheme_extension_table->scheme_finish_primitive_module)
#define scheme_set_primitive_module_phaseless (scheme_extension_table->scheme_set_primitive_module_phaseless)
#define scheme_protect_primitive_provide (scheme_extension_table->scheme_protect_primitive_provide)
#define scheme_make_modidx (scheme_extension_table->scheme_make_modidx)
#define scheme_dynamic_require (scheme_extension_table->scheme_dynamic_require)
#define scheme_dynamic_require_reader (scheme_extension_table->scheme_dynamic_require_reader)

13
racket/src/racket/src/schpriv.h
View File

@ -1,16 +1,3 @@
/*
Racket
Copyright (c) 2004-2018 PLT Design Inc.
Copyright (c) 1995-2001 Matthew Flatt
All rights reserved.
Please see the full copyright in the documentation.
libscheme
Copyright (c) 1994 Brent Benson
All rights reserved.
*/
/*
Racket prototypes and declarations for internal consumption.
*/

21
racket/src/racket/src/sema.c
View File

@ -1,24 +1,3 @@
/*
Racket
Copyright (c) 2004-2018 PLT Design Inc.
Copyright (c) 1995-2001 Matthew Flatt
This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Library General Public
License as published by the Free Software Foundation; either
version 2 of the License, or (at your option) any later version.
This library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Library General Public License for more details.
You should have received a copy of the GNU Library General Public
License along with this library; if not, write to the Free
Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
Boston, MA 02110-1301 USA.
*/
#include "schpriv.h"
#ifndef NO_SCHEME_THREADS

21
racket/src/racket/src/setjmpup.c
View File

@ -1,24 +1,3 @@
/*
Racket
Copyright (c) 2004-2018 PLT Design Inc.
Copyright (c) 1995-2001 Matthew Flatt
This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Library General Public
License as published by the Free Software Foundation; either
version 2 of the License, or (at your option) any later version.
This library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Library General Public License for more details.
You should have received a copy of the GNU Library General Public
License along with this library; if not, write to the Free
Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
Boston, MA 02110-1301 USA.
*/
/* Some copilers don't like re-def of GC_malloc in schemef.h: */
#ifndef MZ_PRECISE_GC
# define SCHEME_NO_GC_PROTO

25
racket/src/racket/src/sfs.c
View File

@ -1,28 +1,3 @@
/*
Racket
Copyright (c) 2004-2018 PLT Design Inc.
Copyright (c) 1995-2001 Matthew Flatt
This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Library General Public
License as published by the Free Software Foundation; either
version 2 of the License, or (at your option) any later version.
This library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Library General Public License for more details.
You should have received a copy of the GNU Library General Public
License along with this library; if not, write to the Free
Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
Boston, MA 02110-1301 USA.
libscheme
Copyright (c) 1994 Brent Benson
All rights reserved.
*/
/* This file implements the bytecode safe-for-space pass.
See "eval.c" for an overview of compilation passes. */

25
racket/src/racket/src/sort.c
View File

@ -1,28 +1,3 @@
/*
Racket
Copyright (c) 2004-2016 PLT Design Inc.
Copyright (c) 1995-2001 Matthew Flatt
This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Library General Public
License as published by the Free Software Foundation; either
version 2 of the License, or (at your option) any later version.
This library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Library General Public License for more details.
You should have received a copy of the GNU Library General Public
License along with this library; if not, write to the Free
Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
Boston, MA 02110-1301 USA.
libscheme
Copyright (c) 1994 Brent Benson
All rights reserved.
*/
#include "schpriv.h"
#ifdef MZ_XFORM

25
racket/src/racket/src/startup.c
View File

@ -1,28 +1,3 @@
/*
Racket
Copyright (c) 2004-2018 PLT Design Inc.
Copyright (c) 2000-2001 Matthew Flatt
This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Library General Public
License as published by the Free Software Foundation; either
version 2 of the License, or (at your option) any later version.
This library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Library General Public License for more details.
You should have received a copy of the GNU Library General Public
License along with this library; if not, write to the Free
Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
Boston, MA 02110-1301 USA.
libscheme
Copyright (c) 1994 Brent Benson
All rights reserved.
*/
#include "schpriv.h"
#include "schvers.h"
#include "schminc.h"

25
racket/src/racket/src/string.c
View File

@ -1,28 +1,3 @@
/*
Racket
Copyright (c) 2004-2018 PLT Design Inc.
Copyright (c) 1995-2001 Matthew Flatt
This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Library General Public
License as published by the Free Software Foundation; either
version 2 of the License, or (at your option) any later version.
This library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Library General Public License for more details.
You should have received a copy of the GNU Library General Public
License along with this library; if not, write to the Free
Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
Boston, MA 02110-1301 USA.
libscheme
Copyright (c) 1994 Brent Benson
All rights reserved.
*/
#include "schpriv.h"
#include "schvers.h"
#include "schrktio.h"

21
racket/src/racket/src/struct.c
View File

@ -1,24 +1,3 @@
/*
Racket
Copyright (c) 2004-2018 PLT Design Inc.
Copyright (c) 1995-2001 Matthew Flatt
This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Library General Public
License as published by the Free Software Foundation; either
version 2 of the License, or (at your option) any later version.
This library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Library General Public License for more details.
You should have received a copy of the GNU Library General Public
License along with this library; if not, write to the Free
Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
Boston, MA 02110-1301 USA.
*/
#include "schpriv.h"
#include "schmach.h"

25
racket/src/racket/src/symbol.c
View File

@ -1,28 +1,3 @@
/*
Racket
Copyright (c) 2004-2018 PLT Design Inc.
Copyright (c) 1995-2001 Matthew Flatt
This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Library General Public
License as published by the Free Software Foundation; either
version 2 of the License, or (at your option) any later version.
This library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Library General Public License for more details.
You should have received a copy of the GNU Library General Public
License along with this library; if not, write to the Free
Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
Boston, MA 02110-1301 USA.
libscheme
Copyright (c) 1994 Brent Benson
All rights reserved.
*/
/* Some copilers don't like re-def of GC_malloc in schemef.h: */
#ifndef MZ_PRECISE_GC
# define SCHEME_NO_GC_PROTO

22
racket/src/racket/src/syntax.c
View File

@ -1,23 +1,5 @@
/*
Racket
Copyright (c) 2004-2018 PLT Design Inc.
Copyright (c) 2000-2001 Matthew Flatt
This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Library General Public
License as published by the Free Software Foundation; either
version 2 of the License, or (at your option) any later version.
This library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Library General Public License for more details.
You should have received a copy of the GNU Library General Public
License along with this library; if not, write to the Free
Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
Boston, MA 02110-1301 USA.
*/
/* The "syntax" layer here is visible via `racket/linklet` as
the "correlated" API. */
#include "schpriv.h"
#include "schmach.h"

31
racket/src/racket/src/thread.c
View File

@ -1,32 +1,9 @@
/*
Racket
Copyright (c) 2004-2018 PLT Design Inc.
Copyright (c) 1995-2001 Matthew Flatt
This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Library General Public
License as published by the Free Software Foundation; either
version 2 of the License, or (at your option) any later version.
This library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Library General Public License for more details.
You should have received a copy of the GNU Library General Public
License along with this library; if not, write to the Free
Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
Boston, MA 02110-1301 USA.
*/
/* This file implements Racket threads.
Usually, Racket threads are implemented by copying the stack.
The scheme_thread_block() function is called occasionally by the
evaluator so that the current thread can be swapped out.
do_swap_thread() performs the actual swap. Threads can also be
implemented by the OS; the bottom part of this file contains
OS-specific thread code.
Racket threads are implemented by copying the stack. The
scheme_thread_block() function is called occasionally by the
evaluator so that the current thread can be swapped out, and
do_swap_thread() performs the actual swap.
Much of the work in thread management is knowning when to go to
sleep, to be nice to the OS outside of Racket. The rest of the

25
racket/src/racket/src/type.c
View File

@ -1,28 +1,3 @@
/*
Racket
Copyright (c) 2004-2018 PLT Design Inc.
Copyright (c) 1995-2001 Matthew Flatt
This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Library General Public
License as published by the Free Software Foundation; either
version 2 of the License, or (at your option) any later version.
This library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Library General Public License for more details.
You should have received a copy of the GNU Library General Public
License along with this library; if not, write to the Free
Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
Boston, MA 02110-1301 USA.
libscheme
Copyright (c) 1994 Brent Benson
All rights reserved.
*/
#include "schpriv.h"
#include <string.h>

32
racket/src/racket/src/validate.c
View File

@ -1,35 +1,11 @@
/*
Racket
Copyright (c) 2004-2018 PLT Design Inc.
Copyright (c) 1995-2001 Matthew Flatt
This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Library General Public
License as published by the Free Software Foundation; either
version 2 of the License, or (at your option) any later version.
This library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Library General Public License for more details.
You should have received a copy of the GNU Library General Public
License along with this library; if not, write to the Free
Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
Boston, MA 02110-1301 USA.
libscheme
Copyright (c) 1994 Brent Benson
All rights reserved.
*/
#include "schpriv.h"
#include "schrunst.h"
#include "schmach.h"
/* Bytecode validation is an abstract interpretation on the stack,
where the abstract values are "not available", "value", "boxed
value", "syntax object", or "global array". */
/* Bytecode validation (now off by default!) is an abstract
interpretation on the stack, where the abstract values are "not
available", "value", "boxed value", "syntax object", or "global
array". */
/* FIXME: validation doesn't check LAMBDA_SINGLE_RESULT or
LAMBDA_PRESERVES_MARKS. (Maybe check them in the JIT pass?) */

25
racket/src/racket/src/vector.c
View File

@ -1,28 +1,3 @@
/*
Racket
Copyright (c) 2004-2018 PLT Design Inc.
Copyright (c) 1995-2001 Matthew Flatt
This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Library General Public
License as published by the Free Software Foundation; either
version 2 of the License, or (at your option) any later version.
This library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Library General Public License for more details.
You should have received a copy of the GNU Library General Public
License along with this library; if not, write to the Free
Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
Boston, MA 02110-1301 USA.
libscheme
Copyright (c) 1994 Brent Benson
All rights reserved.
*/
#include "schpriv.h"
#include "schmach.h"

3
racket/src/worksp/gracket/gracket.rc
View File

@ -39,11 +39,10 @@ BEGIN
BEGIN
BLOCK "040904b0"
BEGIN
VALUE "CompanyName", "PLT Design Inc.\0"
VALUE "CompanyName", "Racket\0"
VALUE "FileDescription", "Racket GUI application\0"
VALUE "InternalName", "GRacket\0"
VALUE "FileVersion", MZSCHEME_VERSION "\0"
VALUE "LegalCopyright", "Copyright 1995-2016 PLT Design Inc.\0"
VALUE "OriginalFilename", "GRacket.exe\0"
VALUE "ProductName", "Racket\0"
VALUE "ProductVersion", MZSCHEME_VERSION "\0"

3
racket/src/worksp/racket/racket.rc
View File

@ -39,11 +39,10 @@ BEGIN
BEGIN
BLOCK "040904b0"
BEGIN
VALUE "CompanyName", "PLT Design Inc.\0"
VALUE "CompanyName", "Racket\0"
VALUE "FileDescription", "Racket application\0"
VALUE "InternalName", "Racket\0"
VALUE "FileVersion", MZSCHEME_VERSION "\0"
VALUE "LegalCopyright", "Copyright 1995-2016 PLT Design Inc.\0"
VALUE "OriginalFilename", "racket.exe\0"
VALUE "ProductName", "Racket\0"
VALUE "ProductVersion", MZSCHEME_VERSION "\0"

3
racket/src/worksp/starters/start.rc
View File

@ -37,7 +37,7 @@ BEGIN
BEGIN
BLOCK "040904b0"
BEGIN
VALUE "CompanyName", "PLT Design Inc.\0"
VALUE "CompanyName", "Racket\0"
#ifdef MRSTART
VALUE "FileDescription", "Racket GUI Launcher\0"
#endif
@ -51,7 +51,6 @@ BEGIN
#ifdef MZSTART
VALUE "InternalName", "mzstart\0"
#endif
VALUE "LegalCopyright", "Copyright 1996-2016 PLT Design Inc.\0"
#ifdef MRSTART
VALUE "OriginalFilename", "MrStart.exe\0"
#endif