From f9c2a9395b369883d4c5ff550fd70e480e5cfd7b Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sat, 5 Jan 2019 14:44:11 -0700 Subject: [PATCH] remove "2018"s and "PLT Design"s --- pkgs/at-exp-lib/LICENSE.txt | 1 - pkgs/base/LICENSE.txt | 1 - pkgs/compiler-lib/LICENSE.txt | 1 - pkgs/compiler-test/LICENSE.txt | 1 - pkgs/compiler/LICENSE.txt | 1 - pkgs/net-doc/LICENSE.txt | 1 - pkgs/net-lib/LICENSE.txt | 1 - pkgs/net-test/LICENSE.txt | 1 - pkgs/net/LICENSE.txt | 1 - pkgs/racket-doc/LICENSE.txt | 1 - pkgs/racket-index/LICENSE.txt | 1 - pkgs/racket-lib/LICENSE.txt | 1 - pkgs/racket-test-core/LICENSE.txt | 1 - pkgs/racket-test/LICENSE.txt | 1 - racket/collects/file/md5.rkt | 2 +- racket/src/gracket/grmain.c | 9 ------- racket/src/native-libs/install.rkt | 1 - racket/src/racket/dynsrc/mzdyn.c | 13 ---------- racket/src/racket/gc2/newgc.c | 4 +-- racket/src/racket/include/escheme.h | 13 ---------- racket/src/racket/include/mzwin.def | 4 +++ racket/src/racket/include/mzwin3m.def | 4 +++ racket/src/racket/include/racket.exp | 4 +++ racket/src/racket/include/racket3m.exp | 4 +++ racket/src/racket/include/scheme.h | 14 ----------- racket/src/racket/main.c | 25 ------------------ racket/src/racket/sgc/sgc.c | 26 +------------------ racket/src/racket/src/bignum.c | 26 ------------------- racket/src/racket/src/bool.c | 25 ------------------ racket/src/racket/src/char.c | 25 ------------------ racket/src/racket/src/compenv.c | 25 ------------------ racket/src/racket/src/compile.c | 28 ++------------------- racket/src/racket/src/complex.c | 25 ------------------ racket/src/racket/src/dynext.c | 24 ------------------ racket/src/racket/src/env.c | 25 ------------------ racket/src/racket/src/error.c | 25 ------------------ racket/src/racket/src/eval.c | 25 ------------------ racket/src/racket/src/file.c | 25 ------------------ racket/src/racket/src/fun.c | 25 ------------------ racket/src/racket/src/future.c | 20 --------------- racket/src/racket/src/hash.c | 25 ------------------ racket/src/racket/src/jit.c | 20 --------------- racket/src/racket/src/jitalloc.c | 21 ---------------- racket/src/racket/src/jitarith.c | 21 ---------------- racket/src/racket/src/jitcall.c | 21 ---------------- racket/src/racket/src/jitcommon.c | 21 ---------------- racket/src/racket/src/jitinline.c | 21 ---------------- racket/src/racket/src/jitprep.c | 25 ------------------ racket/src/racket/src/jitstack.c | 20 --------------- racket/src/racket/src/jitstate.c | 20 --------------- racket/src/racket/src/letrec_check.c | 21 ---------------- racket/src/racket/src/linklet.c | 25 ------------------ racket/src/racket/src/list.c | 25 ------------------ racket/src/racket/src/marshal.c | 25 ------------------ racket/src/racket/src/mzrt.c | 20 --------------- racket/src/racket/src/mzsj86.c | 21 ---------------- racket/src/racket/src/network.c | 25 ------------------ racket/src/racket/src/numarith.c | 25 ------------------ racket/src/racket/src/number.c | 25 ------------------ racket/src/racket/src/numcomp.c | 25 ------------------ racket/src/racket/src/nummacs.h | 25 ------------------ racket/src/racket/src/numstr.c | 25 ------------------ racket/src/racket/src/optimize.c | 25 ------------------ racket/src/racket/src/place.c | 20 --------------- racket/src/racket/src/port.c | 35 ++++---------------------- racket/src/racket/src/portfun.c | 27 +------------------- racket/src/racket/src/print.c | 25 ------------------ racket/src/racket/src/rational.c | 25 ------------------ racket/src/racket/src/read.c | 33 +++--------------------- racket/src/racket/src/regexp.c | 3 +-- racket/src/racket/src/resolve.c | 25 ------------------ racket/src/racket/src/salloc.c | 25 ------------------ racket/src/racket/src/schemef.h | 14 ----------- racket/src/racket/src/schemex.h | 18 +++---------- racket/src/racket/src/schemex.inc | 4 +++ racket/src/racket/src/schemexm.h | 4 +++ racket/src/racket/src/schpriv.h | 13 ---------- racket/src/racket/src/sema.c | 21 ---------------- racket/src/racket/src/setjmpup.c | 21 ---------------- racket/src/racket/src/sfs.c | 25 ------------------ racket/src/racket/src/sort.c | 25 ------------------ racket/src/racket/src/startup.c | 25 ------------------ racket/src/racket/src/string.c | 25 ------------------ racket/src/racket/src/struct.c | 21 ---------------- racket/src/racket/src/symbol.c | 25 ------------------ racket/src/racket/src/syntax.c | 22 ++-------------- racket/src/racket/src/thread.c | 31 +++-------------------- racket/src/racket/src/type.c | 25 ------------------ racket/src/racket/src/validate.c | 32 +++-------------------- racket/src/racket/src/vector.c | 25 ------------------ racket/src/worksp/gracket/gracket.rc | 3 +-- racket/src/worksp/racket/racket.rc | 3 +-- racket/src/worksp/starters/start.rc | 3 +-- 93 files changed, 57 insertions(+), 1533 deletions(-) diff --git a/pkgs/at-exp-lib/LICENSE.txt b/pkgs/at-exp-lib/LICENSE.txt index 55825d4f66..a6e3716502 100644 --- a/pkgs/at-exp-lib/LICENSE.txt +++ b/pkgs/at-exp-lib/LICENSE.txt @@ -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 diff --git a/pkgs/base/LICENSE.txt b/pkgs/base/LICENSE.txt index 96ac6e9bf5..f792a8e0da 100644 --- a/pkgs/base/LICENSE.txt +++ b/pkgs/base/LICENSE.txt @@ -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 diff --git a/pkgs/compiler-lib/LICENSE.txt b/pkgs/compiler-lib/LICENSE.txt index 30ec04e5bb..d07ad48236 100644 --- a/pkgs/compiler-lib/LICENSE.txt +++ b/pkgs/compiler-lib/LICENSE.txt @@ -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 diff --git a/pkgs/compiler-test/LICENSE.txt b/pkgs/compiler-test/LICENSE.txt index e025cd7fec..0f1597f416 100644 --- a/pkgs/compiler-test/LICENSE.txt +++ b/pkgs/compiler-test/LICENSE.txt @@ -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 diff --git a/pkgs/compiler/LICENSE.txt b/pkgs/compiler/LICENSE.txt index 316c479410..8cbf545658 100644 --- a/pkgs/compiler/LICENSE.txt +++ b/pkgs/compiler/LICENSE.txt @@ -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 diff --git a/pkgs/net-doc/LICENSE.txt b/pkgs/net-doc/LICENSE.txt index 579db72b47..254c5ce15b 100644 --- a/pkgs/net-doc/LICENSE.txt +++ b/pkgs/net-doc/LICENSE.txt @@ -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 diff --git a/pkgs/net-lib/LICENSE.txt b/pkgs/net-lib/LICENSE.txt index 62258f0c82..a52bbfa5c3 100644 --- a/pkgs/net-lib/LICENSE.txt +++ b/pkgs/net-lib/LICENSE.txt @@ -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 diff --git a/pkgs/net-test/LICENSE.txt b/pkgs/net-test/LICENSE.txt index a5018e8dfe..6b05b3bb42 100644 --- a/pkgs/net-test/LICENSE.txt +++ b/pkgs/net-test/LICENSE.txt @@ -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 diff --git a/pkgs/net/LICENSE.txt b/pkgs/net/LICENSE.txt index a1722db005..501f8a18fb 100644 --- a/pkgs/net/LICENSE.txt +++ b/pkgs/net/LICENSE.txt @@ -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 diff --git a/pkgs/racket-doc/LICENSE.txt b/pkgs/racket-doc/LICENSE.txt index cb6740bd66..1be085d568 100644 --- a/pkgs/racket-doc/LICENSE.txt +++ b/pkgs/racket-doc/LICENSE.txt @@ -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 diff --git a/pkgs/racket-index/LICENSE.txt b/pkgs/racket-index/LICENSE.txt index 61cb664278..f8d77c6824 100644 --- a/pkgs/racket-index/LICENSE.txt +++ b/pkgs/racket-index/LICENSE.txt @@ -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 diff --git a/pkgs/racket-lib/LICENSE.txt b/pkgs/racket-lib/LICENSE.txt index d78bc5d841..a3d336578b 100644 --- a/pkgs/racket-lib/LICENSE.txt +++ b/pkgs/racket-lib/LICENSE.txt @@ -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 diff --git a/pkgs/racket-test-core/LICENSE.txt b/pkgs/racket-test-core/LICENSE.txt index 2146ade3c9..fa0be1a76a 100644 --- a/pkgs/racket-test-core/LICENSE.txt +++ b/pkgs/racket-test-core/LICENSE.txt @@ -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 diff --git a/pkgs/racket-test/LICENSE.txt b/pkgs/racket-test/LICENSE.txt index 2146ade3c9..fa0be1a76a 100644 --- a/pkgs/racket-test/LICENSE.txt +++ b/pkgs/racket-test/LICENSE.txt @@ -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 diff --git a/racket/collects/file/md5.rkt b/racket/collects/file/md5.rkt index d5cd654c3e..002f744345 100644 --- a/racket/collects/file/md5.rkt +++ b/racket/collects/file/md5.rkt @@ -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. diff --git a/racket/src/gracket/grmain.c b/racket/src/gracket/grmain.c index 5afe7ae0c1..0278a613a5 100644 --- a/racket/src/gracket/grmain.c +++ b/racket/src/gracket/grmain.c @@ -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. */ diff --git a/racket/src/native-libs/install.rkt b/racket/src/native-libs/install.rkt index b66931abdd..7ce3dce69a 100644 --- a/racket/src/native-libs/install.rkt +++ b/racket/src/native-libs/install.rkt @@ -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) diff --git a/racket/src/racket/dynsrc/mzdyn.c b/racket/src/racket/dynsrc/mzdyn.c index f1f4104c61..775f7ec7e6 100644 --- a/racket/src/racket/dynsrc/mzdyn.c +++ b/racket/src/racket/dynsrc/mzdyn.c @@ -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. */ diff --git a/racket/src/racket/gc2/newgc.c b/racket/src/racket/gc2/newgc.c index 9fb907c648..a8195badf2 100644 --- a/racket/src/racket/gc2/newgc.c +++ b/racket/src/racket/gc2/newgc.c @@ -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 */ diff --git a/racket/src/racket/include/escheme.h b/racket/src/racket/include/escheme.h index 992763a6a0..98f60f583f 100644 --- a/racket/src/racket/include/escheme.h +++ b/racket/src/racket/include/escheme.h @@ -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 */ diff --git a/racket/src/racket/include/mzwin.def b/racket/src/racket/include/mzwin.def index a05005c5b0..07259477ad 100644 --- a/racket/src/racket/include/mzwin.def +++ b/racket/src/racket/include/mzwin.def @@ -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 diff --git a/racket/src/racket/include/mzwin3m.def b/racket/src/racket/include/mzwin3m.def index fed09bd969..a4d522cf95 100644 --- a/racket/src/racket/include/mzwin3m.def +++ b/racket/src/racket/include/mzwin3m.def @@ -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 diff --git a/racket/src/racket/include/racket.exp b/racket/src/racket/include/racket.exp index 26c7acb30d..6e146be691 100644 --- a/racket/src/racket/include/racket.exp +++ b/racket/src/racket/include/racket.exp @@ -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 diff --git a/racket/src/racket/include/racket3m.exp b/racket/src/racket/include/racket3m.exp index 82d6aa0b5b..3cf772d002 100644 --- a/racket/src/racket/include/racket3m.exp +++ b/racket/src/racket/include/racket3m.exp @@ -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 diff --git a/racket/src/racket/include/scheme.h b/racket/src/racket/include/scheme.h index e6f9eb6153..90026477d1 100644 --- a/racket/src/racket/include/scheme.h +++ b/racket/src/racket/include/scheme.h @@ -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 diff --git a/racket/src/racket/main.c b/racket/src/racket/main.c index 6733126739..287ef75385 100644 --- a/racket/src/racket/main.c +++ b/racket/src/racket/main.c @@ -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".) diff --git a/racket/src/racket/sgc/sgc.c b/racket/src/racket/sgc/sgc.c index 2b9232a97a..b40f90d473 100644 --- a/racket/src/racket/sgc/sgc.c +++ b/racket/src/racket/sgc/sgc.c @@ -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 diff --git a/racket/src/racket/src/bignum.c b/racket/src/racket/src/bignum.c index ee05742e0a..a71c35742f 100644 --- a/racket/src/racket/src/bignum.c +++ b/racket/src/racket/src/bignum.c @@ -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 diff --git a/racket/src/racket/src/bool.c b/racket/src/racket/src/bool.c index aceb72f0f2..97534ed109 100644 --- a/racket/src/racket/src/bool.c +++ b/racket/src/racket/src/bool.c @@ -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 diff --git a/racket/src/racket/src/char.c b/racket/src/racket/src/char.c index 6e1a9c508b..fbc795304f 100644 --- a/racket/src/racket/src/char.c +++ b/racket/src/racket/src/char.c @@ -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 diff --git a/racket/src/racket/src/compenv.c b/racket/src/racket/src/compenv.c index 8cf254913f..0065aef112 100644 --- a/racket/src/racket/src/compenv.c +++ b/racket/src/racket/src/compenv.c @@ -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 diff --git a/racket/src/racket/src/compile.c b/racket/src/racket/src/compile.c index e963fa7918..4f457ad5e9 100644 --- a/racket/src/racket/src/compile.c +++ b/racket/src/racket/src/compile.c @@ -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" diff --git a/racket/src/racket/src/complex.c b/racket/src/racket/src/complex.c index a97145f710..c01764cd3c 100644 --- a/racket/src/racket/src/complex.c +++ b/racket/src/racket/src/complex.c @@ -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 #include diff --git a/racket/src/racket/src/dynext.c b/racket/src/racket/src/dynext.c index a00378847a..6ebcbe4caf 100644 --- a/racket/src/racket/src/dynext.c +++ b/racket/src/racket/src/dynext.c @@ -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 diff --git a/racket/src/racket/src/env.c b/racket/src/racket/src/env.c index b64626c36c..ac70a9973b 100644 --- a/racket/src/racket/src/env.c +++ b/racket/src/racket/src/env.c @@ -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" diff --git a/racket/src/racket/src/error.c b/racket/src/racket/src/error.c index ec028a1a5a..aa4c46f9b9 100644 --- a/racket/src/racket/src/error.c +++ b/racket/src/racket/src/error.c @@ -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 diff --git a/racket/src/racket/src/eval.c b/racket/src/racket/src/eval.c index 2165d5e1d5..6225df1305 100644 --- a/racket/src/racket/src/eval.c +++ b/racket/src/racket/src/eval.c @@ -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. diff --git a/racket/src/racket/src/file.c b/racket/src/racket/src/file.c index ba322d3310..d0f5789ab4 100644 --- a/racket/src/racket/src/file.c +++ b/racket/src/racket/src/file.c @@ -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 diff --git a/racket/src/racket/src/fun.c b/racket/src/racket/src/fun.c index 5240480d85..7d4efb4093 100644 --- a/racket/src/racket/src/fun.c +++ b/racket/src/racket/src/fun.c @@ -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 diff --git a/racket/src/racket/src/future.c b/racket/src/racket/src/future.c index f4b9994f87..3d7f3872e3 100644 --- a/racket/src/racket/src/future.c +++ b/racket/src/racket/src/future.c @@ -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" diff --git a/racket/src/racket/src/hash.c b/racket/src/racket/src/hash.c index 147f2531f8..dc03fa6a40 100644 --- a/racket/src/racket/src/hash.c +++ b/racket/src/racket/src/hash.c @@ -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 diff --git a/racket/src/racket/src/jit.c b/racket/src/racket/src/jit.c index 6977ad166d..88db93ca6a 100644 --- a/racket/src/racket/src/jit.c +++ b/racket/src/racket/src/jit.c @@ -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" diff --git a/racket/src/racket/src/jitalloc.c b/racket/src/racket/src/jitalloc.c index eaaca999fc..6a562b85b2 100644 --- a/racket/src/racket/src/jitalloc.c +++ b/racket/src/racket/src/jitalloc.c @@ -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" diff --git a/racket/src/racket/src/jitarith.c b/racket/src/racket/src/jitarith.c index 21c6bfd31c..a6689abd9f 100644 --- a/racket/src/racket/src/jitarith.c +++ b/racket/src/racket/src/jitarith.c @@ -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" diff --git a/racket/src/racket/src/jitcall.c b/racket/src/racket/src/jitcall.c index d050cbdf16..99143e5a02 100644 --- a/racket/src/racket/src/jitcall.c +++ b/racket/src/racket/src/jitcall.c @@ -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" diff --git a/racket/src/racket/src/jitcommon.c b/racket/src/racket/src/jitcommon.c index 4baf83950a..b6ca4fe184 100644 --- a/racket/src/racket/src/jitcommon.c +++ b/racket/src/racket/src/jitcommon.c @@ -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" diff --git a/racket/src/racket/src/jitinline.c b/racket/src/racket/src/jitinline.c index a709ea0f9c..731210c1a0 100644 --- a/racket/src/racket/src/jitinline.c +++ b/racket/src/racket/src/jitinline.c @@ -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" diff --git a/racket/src/racket/src/jitprep.c b/racket/src/racket/src/jitprep.c index d77afde166..ed14a47b18 100644 --- a/racket/src/racket/src/jitprep.c +++ b/racket/src/racket/src/jitprep.c @@ -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. diff --git a/racket/src/racket/src/jitstack.c b/racket/src/racket/src/jitstack.c index 48f7370094..ca599f14a2 100644 --- a/racket/src/racket/src/jitstack.c +++ b/racket/src/racket/src/jitstack.c @@ -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 diff --git a/racket/src/racket/src/jitstate.c b/racket/src/racket/src/jitstate.c index fed3104ebb..4bd28fbc0f 100644 --- a/racket/src/racket/src/jitstate.c +++ b/racket/src/racket/src/jitstate.c @@ -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" diff --git a/racket/src/racket/src/letrec_check.c b/racket/src/racket/src/letrec_check.c index d027e43283..c7620a235d 100644 --- a/racket/src/racket/src/letrec_check.c +++ b/racket/src/racket/src/letrec_check.c @@ -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" diff --git a/racket/src/racket/src/linklet.c b/racket/src/racket/src/linklet.c index ee371f1a47..f2d2cc7012 100644 --- a/racket/src/racket/src/linklet.c +++ b/racket/src/racket/src/linklet.c @@ -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" diff --git a/racket/src/racket/src/list.c b/racket/src/racket/src/list.c index 27f5a2e9cc..94f9d7a8eb 100644 --- a/racket/src/racket/src/list.c +++ b/racket/src/racket/src/list.c @@ -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" diff --git a/racket/src/racket/src/marshal.c b/racket/src/racket/src/marshal.c index 9b04e78cbe..41ff58a577 100644 --- a/racket/src/racket/src/marshal.c +++ b/racket/src/racket/src/marshal.c @@ -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) diff --git a/racket/src/racket/src/mzrt.c b/racket/src/racket/src/mzrt.c index 1b9c4a107f..416727d767 100644 --- a/racket/src/racket/src/mzrt.c +++ b/racket/src/racket/src/mzrt.c @@ -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 diff --git a/racket/src/racket/src/mzsj86.c b/racket/src/racket/src/mzsj86.c index f6d77fe1cd..5ecc38833b 100644 --- a/racket/src/racket/src/mzsj86.c +++ b/racket/src/racket/src/mzsj86.c @@ -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. */ diff --git a/racket/src/racket/src/network.c b/racket/src/racket/src/network.c index c7575dc0ec..cb46473349 100644 --- a/racket/src/racket/src/network.c +++ b/racket/src/racket/src/network.c @@ -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" diff --git a/racket/src/racket/src/numarith.c b/racket/src/racket/src/numarith.c index 7010161d56..6f1aac3921 100644 --- a/racket/src/racket/src/numarith.c +++ b/racket/src/racket/src/numarith.c @@ -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 diff --git a/racket/src/racket/src/number.c b/racket/src/racket/src/number.c index e5702dd8c6..9c646d67b5 100644 --- a/racket/src/racket/src/number.c +++ b/racket/src/racket/src/number.c @@ -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" diff --git a/racket/src/racket/src/numcomp.c b/racket/src/racket/src/numcomp.c index 5e42323fcb..461687c8d1 100644 --- a/racket/src/racket/src/numcomp.c +++ b/racket/src/racket/src/numcomp.c @@ -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 diff --git a/racket/src/racket/src/nummacs.h b/racket/src/racket/src/nummacs.h index 721c776263..f1f6c9df40 100644 --- a/racket/src/racket/src/nummacs.h +++ b/racket/src/racket/src/nummacs.h @@ -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) \ diff --git a/racket/src/racket/src/numstr.c b/racket/src/racket/src/numstr.c index 6ae1e383d8..f139e66417 100644 --- a/racket/src/racket/src/numstr.c +++ b/racket/src/racket/src/numstr.c @@ -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. diff --git a/racket/src/racket/src/optimize.c b/racket/src/racket/src/optimize.c index e140ae8b1e..d022124efe 100644 --- a/racket/src/racket/src/optimize.c +++ b/racket/src/racket/src/optimize.c @@ -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. */ diff --git a/racket/src/racket/src/place.c b/racket/src/racket/src/place.c index ee9d06f712..d459dbb7ea 100644 --- a/racket/src/racket/src/place.c +++ b/racket/src/racket/src/place.c @@ -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[]); diff --git a/racket/src/racket/src/port.c b/racket/src/racket/src/port.c index 89dc3ff298..3af27f06fa 100644 --- a/racket/src/racket/src/port.c +++ b/racket/src/racket/src/port.c @@ -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" diff --git a/racket/src/racket/src/portfun.c b/racket/src/racket/src/portfun.c index c44576c2d2..736c2d3371 100644 --- a/racket/src/racket/src/portfun.c +++ b/racket/src/racket/src/portfun.c @@ -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" diff --git a/racket/src/racket/src/print.c b/racket/src/racket/src/print.c index 8ec7cb613a..b230508102 100644 --- a/racket/src/racket/src/print.c +++ b/racket/src/racket/src/print.c @@ -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" diff --git a/racket/src/racket/src/rational.c b/racket/src/racket/src/rational.c index cf353dd080..9643b90404 100644 --- a/racket/src/racket/src/rational.c +++ b/racket/src/racket/src/rational.c @@ -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 #include diff --git a/racket/src/racket/src/read.c b/racket/src/racket/src/read.c index e7749a3ae6..da7666550e 100644 --- a/racket/src/racket/src/read.c +++ b/racket/src/racket/src/read.c @@ -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 diff --git a/racket/src/racket/src/regexp.c b/racket/src/racket/src/regexp.c index a336b3cb0c..c6394e7593 100644 --- a/racket/src/racket/src/regexp.c +++ b/racket/src/racket/src/regexp.c @@ -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. diff --git a/racket/src/racket/src/resolve.c b/racket/src/racket/src/resolve.c index 23d62a1ea2..95c0f60f01 100644 --- a/racket/src/racket/src/resolve.c +++ b/racket/src/racket/src/resolve.c @@ -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. diff --git a/racket/src/racket/src/salloc.c b/racket/src/racket/src/salloc.c index 7da1a441ca..bbed10f2fe 100644 --- a/racket/src/racket/src/salloc.c +++ b/racket/src/racket/src/salloc.c @@ -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 diff --git a/racket/src/racket/src/schemef.h b/racket/src/racket/src/schemef.h index 72cc12c74d..ee71b73571 100644 --- a/racket/src/racket/src/schemef.h +++ b/racket/src/racket/src/schemef.h @@ -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' diff --git a/racket/src/racket/src/schemex.h b/racket/src/racket/src/schemex.h index e06c96fb02..21de876357 100644 --- a/racket/src/racket/src/schemex.h +++ b/racket/src/racket/src/schemex.h @@ -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); diff --git a/racket/src/racket/src/schemex.inc b/racket/src/racket/src/schemex.inc index 2018da2e59..41a2e100db 100644 --- a/racket/src/racket/src/schemex.inc +++ b/racket/src/racket/src/schemex.inc @@ -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; diff --git a/racket/src/racket/src/schemexm.h b/racket/src/racket/src/schemexm.h index 6c9b61095e..9b05150c44 100644 --- a/racket/src/racket/src/schemexm.h +++ b/racket/src/racket/src/schemexm.h @@ -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) diff --git a/racket/src/racket/src/schpriv.h b/racket/src/racket/src/schpriv.h index 862b53f30b..9c380c9468 100644 --- a/racket/src/racket/src/schpriv.h +++ b/racket/src/racket/src/schpriv.h @@ -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. */ diff --git a/racket/src/racket/src/sema.c b/racket/src/racket/src/sema.c index f070826352..9167d19bcd 100644 --- a/racket/src/racket/src/sema.c +++ b/racket/src/racket/src/sema.c @@ -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 diff --git a/racket/src/racket/src/setjmpup.c b/racket/src/racket/src/setjmpup.c index 66b66728fb..b72d386a99 100644 --- a/racket/src/racket/src/setjmpup.c +++ b/racket/src/racket/src/setjmpup.c @@ -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 diff --git a/racket/src/racket/src/sfs.c b/racket/src/racket/src/sfs.c index 99a6b0b830..5426ce8701 100644 --- a/racket/src/racket/src/sfs.c +++ b/racket/src/racket/src/sfs.c @@ -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. */ diff --git a/racket/src/racket/src/sort.c b/racket/src/racket/src/sort.c index 310f483c36..25d05b5d62 100644 --- a/racket/src/racket/src/sort.c +++ b/racket/src/racket/src/sort.c @@ -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 diff --git a/racket/src/racket/src/startup.c b/racket/src/racket/src/startup.c index 3cf468147b..df3f4a7b3e 100644 --- a/racket/src/racket/src/startup.c +++ b/racket/src/racket/src/startup.c @@ -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" diff --git a/racket/src/racket/src/string.c b/racket/src/racket/src/string.c index d9c3cee1a3..761cab41dd 100644 --- a/racket/src/racket/src/string.c +++ b/racket/src/racket/src/string.c @@ -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" diff --git a/racket/src/racket/src/struct.c b/racket/src/racket/src/struct.c index fec8e8a04b..e26c941b64 100644 --- a/racket/src/racket/src/struct.c +++ b/racket/src/racket/src/struct.c @@ -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" diff --git a/racket/src/racket/src/symbol.c b/racket/src/racket/src/symbol.c index 906fa70add..2be493e321 100644 --- a/racket/src/racket/src/symbol.c +++ b/racket/src/racket/src/symbol.c @@ -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 diff --git a/racket/src/racket/src/syntax.c b/racket/src/racket/src/syntax.c index 1ae0129ee7..436b648a82 100644 --- a/racket/src/racket/src/syntax.c +++ b/racket/src/racket/src/syntax.c @@ -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" diff --git a/racket/src/racket/src/thread.c b/racket/src/racket/src/thread.c index 5b00664a7a..17b544c1bf 100644 --- a/racket/src/racket/src/thread.c +++ b/racket/src/racket/src/thread.c @@ -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 diff --git a/racket/src/racket/src/type.c b/racket/src/racket/src/type.c index d5c78f2186..08e4165461 100644 --- a/racket/src/racket/src/type.c +++ b/racket/src/racket/src/type.c @@ -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 diff --git a/racket/src/racket/src/validate.c b/racket/src/racket/src/validate.c index 90b3d76e52..6051dcdf6b 100644 --- a/racket/src/racket/src/validate.c +++ b/racket/src/racket/src/validate.c @@ -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?) */ diff --git a/racket/src/racket/src/vector.c b/racket/src/racket/src/vector.c index 6a3326aef0..cdc5bc1e51 100644 --- a/racket/src/racket/src/vector.c +++ b/racket/src/racket/src/vector.c @@ -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" diff --git a/racket/src/worksp/gracket/gracket.rc b/racket/src/worksp/gracket/gracket.rc index a540f0f4fa..598fbb6caf 100644 --- a/racket/src/worksp/gracket/gracket.rc +++ b/racket/src/worksp/gracket/gracket.rc @@ -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" diff --git a/racket/src/worksp/racket/racket.rc b/racket/src/worksp/racket/racket.rc index 284a817679..c32b3c94e2 100644 --- a/racket/src/worksp/racket/racket.rc +++ b/racket/src/worksp/racket/racket.rc @@ -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" diff --git a/racket/src/worksp/starters/start.rc b/racket/src/worksp/starters/start.rc index 48ff60773c..b6a82e6e64 100644 --- a/racket/src/worksp/starters/start.rc +++ b/racket/src/worksp/starters/start.rc @@ -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