From: Matt Birkholz Date: Wed, 7 Aug 2019 01:01:48 +0000 (-0700) Subject: x11: downcase symbols, most names; fix copyright notices X-Git-Tag: mit-scheme-pucked-10.1.20~12^2~3 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=b9016dd569ba15eab38d64c7ec95ae17af593aaf;p=mit-scheme.git x11: downcase symbols, most names; fix copyright notices --- diff --git a/src/x11/compile.sh b/src/x11/compile.sh index 007f2c9d8..7335213f8 100755 --- a/src/x11/compile.sh +++ b/src/x11/compile.sh @@ -7,20 +7,20 @@ # 2015, 2016, 2017, 2018, 2019 Massachusetts Institute of # Technology # -# This file is part of an x11 plugin for MIT/GNU Scheme. +# This file is part of MIT/GNU Scheme. # -# This plugin is free software; you can redistribute it and/or modify -# it under the terms of the GNU General Public License as published by -# the Free Software Foundation; either version 2 of the License, or -# (at your option) any later version. +# MIT/GNU Scheme is free software; you can redistribute it and/or +# modify it under the terms of the GNU General Public License as +# published by the Free Software Foundation; either version 2 of the +# License, or (at your option) any later version. # -# This plugin is distributed in the hope that it will be useful, but -# WITHOUT ANY WARRANTY; without even the implied warranty of +# MIT/GNU Scheme is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # General Public License for more details. # # You should have received a copy of the GNU General Public License -# along with this plugin; if not, write to the Free Software +# along with MIT/GNU Scheme; if not, write to the Free Software # Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA # 02110-1301, USA. diff --git a/src/x11/configure.ac b/src/x11/configure.ac index 84f89771e..cf08194a2 100644 --- a/src/x11/configure.ac +++ b/src/x11/configure.ac @@ -1,7 +1,7 @@ dnl Process this file with autoconf to produce a configure script. AC_PREREQ([2.69]) -AC_INIT([MIT/GNU Scheme x11 plugin], +AC_INIT([MIT/GNU Scheme X11 plugin], [1.3], [bug-mit-scheme@gnu.org], [mit-scheme-x11]) @@ -14,7 +14,7 @@ AC_COPYRIGHT( 2006, 2007, 2008, 2009, 2010, 2011, 2012, 2013, 2014, 2015, 2016, 2017, 2018, 2019 Massachusetts Institute of Technology -This file is part of an x11 plugin for MIT/GNU Scheme. +This file is part of MIT/GNU Scheme. MIT/GNU Scheme is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by diff --git a/src/x11/optiondb.scm b/src/x11/optiondb.scm index 9aae8c805..87dc02702 100644 --- a/src/x11/optiondb.scm +++ b/src/x11/optiondb.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- |# -(define-load-option 'X11 +(define-load-option 'x11 (standard-system-loader ".")) (further-load-options #t) \ No newline at end of file diff --git a/src/x11/x11-base.scm b/src/x11/x11-base.scm index 29b4d984b..45e3cc5d4 100644 --- a/src/x11/x11-base.scm +++ b/src/x11/x11-base.scm @@ -5,21 +5,22 @@ Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994, 2006, 2007, 2008, 2009, 2010, 2011, 2012, 2013, 2014, 2015, 2016, 2017, 2018, 2019 Massachusetts Institute of Technology -This file is part of an x11 plugin for MIT/GNU Scheme. +This file is part of MIT/GNU Scheme. -This plugin is free software; you can redistribute it and/or modify it -under the terms of the GNU General Public License as published by the -Free Software Foundation; either version 2 of the License, or (at your -option) any later version. +MIT/GNU Scheme is free software; you can redistribute it and/or modify +it under the terms of the GNU General Public License as published by +the Free Software Foundation; either version 2 of the License, or (at +your option) any later version. -This plugin is distributed in the hope that it will be useful, but +MIT/GNU Scheme is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License -along with this plugin; if not, write to the Free Software Foundation, -Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA. +along with MIT/GNU Scheme; if not, write to the Free Software +Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, +USA. |# @@ -724,7 +725,7 @@ Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA. (cleanup-alien! alien)) (define (x-list-fonts display pattern limit) - ;; LIMIT is an exact non-negative integer or #F for no limit. + ;; limit is an exact non-negative integer or #F for no limit. ;; Returns #F or a vector of at least one string. (guarantee-xdisplay display 'x-list-fonts) (and limit diff --git a/src/x11/x11-check.sh b/src/x11/x11-check.sh index 0ad83f3ce..3c565a421 100755 --- a/src/x11/x11-check.sh +++ b/src/x11/x11-check.sh @@ -11,7 +11,7 @@ ${MIT_SCHEME_EXE} --prepend-library . <<\EOF (string-null? display))) (warn "DISPLAY not set") (begin - (load-option 'X11) + (load-option 'x11) (load "x11-test.scm" (->environment '(x11))))) ) EOF diff --git a/src/x11/x11-color.scm b/src/x11/x11-color.scm index 2203f466d..412d6eae6 100644 --- a/src/x11/x11-color.scm +++ b/src/x11/x11-color.scm @@ -5,21 +5,22 @@ Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994, 2006, 2007, 2008, 2009, 2010, 2011, 2012, 2013, 2014, 2015, 2016, 2017, 2018, 2019 Massachusetts Institute of Technology -This file is part of an x11 plugin for MIT/GNU Scheme. +This file is part of MIT/GNU Scheme. -This plugin is free software; you can redistribute it and/or modify it -under the terms of the GNU General Public License as published by the -Free Software Foundation; either version 2 of the License, or (at your -option) any later version. +MIT/GNU Scheme is free software; you can redistribute it and/or modify +it under the terms of the GNU General Public License as published by +the Free Software Foundation; either version 2 of the License, or (at +your option) any later version. -This plugin is distributed in the hope that it will be useful, but +MIT/GNU Scheme is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License -along with this plugin; if not, write to the Free Software Foundation, -Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA. +along with MIT/GNU Scheme; if not, write to the Free Software +Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, +USA. |# diff --git a/src/x11/x11-device.scm b/src/x11/x11-device.scm index 20ed526e9..884edddf3 100644 --- a/src/x11/x11-device.scm +++ b/src/x11/x11-device.scm @@ -5,21 +5,22 @@ Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994, 2006, 2007, 2008, 2009, 2010, 2011, 2012, 2013, 2014, 2015, 2016, 2017, 2018, 2019 Massachusetts Institute of Technology -This file is part of an x11 plugin for MIT/GNU Scheme. +This file is part of MIT/GNU Scheme. -This plugin is free software; you can redistribute it and/or modify it -under the terms of the GNU General Public License as published by the -Free Software Foundation; either version 2 of the License, or (at your -option) any later version. +MIT/GNU Scheme is free software; you can redistribute it and/or modify +it under the terms of the GNU General Public License as published by +the Free Software Foundation; either version 2 of the License, or (at +your option) any later version. -This plugin is distributed in the hope that it will be useful, but +MIT/GNU Scheme is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License -along with this plugin; if not, write to the Free Software Foundation, -Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA. +along with MIT/GNU Scheme; if not, write to the Free Software +Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, +USA. |# @@ -197,8 +198,8 @@ Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA. (list condition-type:bad-range-argument condition-type:wrong-type-argument) (lambda (condition) - ;; If X-DISPLAY-PROCESS-EVENTS or - ;; X-DISPLAY-DESCRIPTOR signals an argument error + ;; If x-display-process-events or + ;; x-display-descriptor signals an argument error ;; on its display argument, that means the ;; display has been closed. condition @@ -324,7 +325,7 @@ Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA. (vector-set! event 3 (x-graphics-map-y-coordinate xw (vector-ref event 3))))))) - ;; ENTER and LEAVE events should be modified to have X,Y coordinates. + ;; Enter and leave events should be modified to have X,Y coordinates. (define-event-handler event-type:button-down mouse-event-handler) (define-event-handler event-type:button-up mouse-event-handler) (define-event-handler event-type:motion mouse-event-handler)) @@ -417,7 +418,7 @@ Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA. (let ((xw (x-window/xw window))) (x-window-map xw) ;; If this is the first time that this window has been mapped, we - ;; need to wait for a MAP event before continuing. + ;; need to wait for a map event before continuing. (if (not (boolean? (x-window/mapped? window))) (begin (x-window-flush xw) @@ -636,7 +637,7 @@ Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA. (x-window-set-input-hint (x-graphics-device/xw device) input?)) (define (x-graphics/disable-keyboard-focus device) - ;; Tell the window to participate in the TAKE-FOCUS protocol. Since + ;; Tell the window to participate in the take-focus protocol. Since ;; there is no handler for this event, focus will never be given to ;; the window. (x-window-set-event-mask (x-graphics-device/xw device) @@ -738,7 +739,7 @@ Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA. ;;;; Images -;; X-IMAGE is the descriptor of the generic images. +;; An x-image describes a generic image. (define-structure (x-image (conc-name x-image/)) descriptor diff --git a/src/x11/x11-graphics.scm b/src/x11/x11-graphics.scm index 9ca2a0f1a..b0130c533 100644 --- a/src/x11/x11-graphics.scm +++ b/src/x11/x11-graphics.scm @@ -5,21 +5,22 @@ Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994, 2006, 2007, 2008, 2009, 2010, 2011, 2012, 2013, 2014, 2015, 2016, 2017, 2018, 2019 Massachusetts Institute of Technology -This file is part of an x11 plugin for MIT/GNU Scheme. +This file is part of MIT/GNU Scheme. -This plugin is free software; you can redistribute it and/or modify it -under the terms of the GNU General Public License as published by the -Free Software Foundation; either version 2 of the License, or (at your -option) any later version. +MIT/GNU Scheme is free software; you can redistribute it and/or modify +it under the terms of the GNU General Public License as published by +the Free Software Foundation; either version 2 of the License, or (at +your option) any later version. -This plugin is distributed in the hope that it will be useful, but +MIT/GNU Scheme is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License -along with this plugin; if not, write to the Free Software Foundation, -Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA. +along with MIT/GNU Scheme; if not, write to the Free Software +Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, +USA. |# @@ -62,8 +63,8 @@ Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA. (C-call "x_graphics_reconfigure" window width height)) (define (x-graphics-open-window display geometry suppress-map) - ;; Open a window on DISPLAY using GEOMETRY. If GEOMETRY is false - ;; map window interactively. If third argument SUPPRESS-MAP? is + ;; Open a window on display using geometry. If geometry is false + ;; map window interactively. If third argument suppress-map? is ;; true, do not map the window immediately. (receive (name class map?) (cond ((and (pair? suppress-map) @@ -115,9 +116,9 @@ Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA. (define (x-graphics-draw-arc window x y radius-x radius-y start-angle sweep-angle fill?) ;; Draw an arc at the given coordinates, with given X and Y radii. - ;; START-ANGLE and SWEEP-ANGLE are in degrees, anti-clocwise. - ;; START-ANGLE is from 3 o'clock, and SWEEP-ANGLE is relative to the - ;; START-ANGLE. If FILL? is true, the arc is filled. + ;; start-angle and sweep-angle are in degrees, anti-clocwise. + ;; start-angle is from 3 o'clock, and sweep-angle is relative to the + ;; start-angle. if fill? is true, the arc is filled. (C-call "x_graphics_draw_arc" window x y radius-x radius-y start-angle sweep-angle (if fill? 1 0))) @@ -182,8 +183,8 @@ Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA. (free points)))) (define (x-create-image window width height) - ;; Creates and returns an XImage object, of dimensions WIDTH by HEIGHT. - ;; WINDOW is used to set the Display, Visual, and Depth characteristics. + ;; Creates and returns an XImage object, of dimensions width by height. + ;; window is used to set the Display, Visual, and Depth characteristics. ;; The image is created by calling XCreateImage. (let ((result (C-call "x_create_image" (make-alien '(struct |xwindow|)) window width height))) @@ -192,10 +193,10 @@ Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA. result))) (define (x-bytes-into-image vector image) - ;; VECTOR is a bytevector of pixel values stored in row-major order; it must - ;; have the same number of pixels as IMAGE. These pixels are written onto - ;; IMAGE by repeated calls to XPutPixel. This procedure is equivalent to - ;; calling X-SET-PIXEL-IN-IMAGE for each pixel in VECTOR. + ;; vector is a bytevector of pixel values stored in row-major order; it must + ;; have the same number of pixels as image. These pixels are written onto + ;; image by repeated calls to XPutPixel. This procedure is equivalent to + ;; calling x-set-pixel-in-image for each pixel in vector. (guarantee bytevector? vector 'x-bytes-into-image) (C-call "x_bytes_into_image" vector image)) @@ -224,7 +225,7 @@ Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA. window x-window-offset y-window-offset width height)) (define (x-window-depth window) - ;; Returns the pixel depth of WINDOW as an integer. + ;; Returns the pixel depth of window as an integer. (C-call "x_window_depth" window)) (define (x-graphics-map-x-coordinate window x) diff --git a/src/x11/x11-shim.h b/src/x11/x11-shim.h index 0aedde11a..a587d223d 100644 --- a/src/x11/x11-shim.h +++ b/src/x11/x11-shim.h @@ -5,21 +5,22 @@ Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994, 2006, 2007, 2008, 2009, 2010, 2011, 2012, 2013, 2014, 2015, 2016, 2017, 2018, 2019 Massachusetts Institute of Technology -This file is part of an x11 plugin for MIT/GNU Scheme. +This file is part of MIT/GNU Scheme. -This plugin is free software; you can redistribute it and/or modify it -under the terms of the GNU General Public License as published by the -Free Software Foundation; either version 2 of the License, or (at your -option) any later version. +MIT/GNU Scheme is free software; you can redistribute it and/or modify +it under the terms of the GNU General Public License as published by +the Free Software Foundation; either version 2 of the License, or (at +your option) any later version. -This plugin is distributed in the hope that it will be useful, but +MIT/GNU Scheme is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License -along with this plugin; if not, write to the Free Software Foundation, -Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA. +along with MIT/GNU Scheme; if not, write to the Free Software +Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, +USA. */ diff --git a/src/x11/x11-terminal.scm b/src/x11/x11-terminal.scm index 4e1c43b51..848be38d1 100644 --- a/src/x11/x11-terminal.scm +++ b/src/x11/x11-terminal.scm @@ -5,21 +5,22 @@ Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994, 2006, 2007, 2008, 2009, 2010, 2011, 2012, 2013, 2014, 2015, 2016, 2017, 2018, 2019 Massachusetts Institute of Technology -This file is part of an x11 plugin for MIT/GNU Scheme. +This file is part of MIT/GNU Scheme. -This plugin is free software; you can redistribute it and/or modify it -under the terms of the GNU General Public License as published by the -Free Software Foundation; either version 2 of the License, or (at your -option) any later version. +MIT/GNU Scheme is free software; you can redistribute it and/or modify +it under the terms of the GNU General Public License as published by +the Free Software Foundation; either version 2 of the License, or (at +your option) any later version. -This plugin is distributed in the hope that it will be useful, but +MIT/GNU Scheme is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License -along with this plugin; if not, write to the Free Software Foundation, -Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA. +along with MIT/GNU Scheme; if not, write to the Free Software +Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, +USA. |# @@ -135,7 +136,7 @@ Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA. ((5) (error:bad-range-argument highlight 'xterm-clear-rectangle))))) (define (xterm-scroll-lines-up xterm x-start x-end y-start y-end lines) - ;; Scroll the contents of the region up by LINES. + ;; Scroll the contents of the region up by lines. (let ((code (c-call "xterm_scroll_lines_up" xterm x-start x-end y-start y-end lines))) (case code @@ -146,7 +147,7 @@ Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA. ((5) (error:bad-range-argument lines 'xterm-scroll-lines-up))))) (define (xterm-scroll-lines-down xterm x-start x-end y-start y-end lines) - ;; Scroll the contents of the region down by LINES. + ;; Scroll the contents of the region down by lines. (let ((code (c-call "xterm_scroll_lines_down" xterm x-start x-end y-start y-end lines))) (case code @@ -158,8 +159,8 @@ Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA. (define (xterm-save-contents xterm x-start x-end y-start y-end) ;; Get the contents of the terminal screen rectangle as a bytevector. - ;; The bytevector contains alternating (CHARACTER, HIGHLIGHT) pairs. - ;; The pairs are organized in row-major order from (X-START, Y-START). + ;; The bytevector contains alternating (character, highlight) pairs. + ;; The pairs are organized in row-major order from (x-start, y-start). (let* ((bytevector (make-bytevector (* 2 (- x-end x-start) (- y-end y-start)))) @@ -173,8 +174,8 @@ Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA. bytevector)) (define (xterm-restore-contents xterm x-start x-end y-start y-end contents) - ;; Replace the terminal screen rectangle with CONTENTS. - ;; See `XTERM-SCREEN-CONTENTS' for the format of CONTENTS. + ;; Replace the terminal screen rectangle with contents. + ;; See `xterm-screen-contents' for the format of contents. (if (not (= (bytevector-length contents) (* 2 (- x-end x-start) diff --git a/src/x11/x11-test.scm b/src/x11/x11-test.scm index 8c8943795..3de0b44be 100644 --- a/src/x11/x11-test.scm +++ b/src/x11/x11-test.scm @@ -5,21 +5,22 @@ Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994, 2006, 2007, 2008, 2009, 2010, 2011, 2012, 2013, 2014, 2015, 2016, 2017, 2018, 2019 Massachusetts Institute of Technology -This file is part of an x11 plugin for MIT/GNU Scheme. +This file is part of MIT/GNU Scheme. -This plugin is free software; you can redistribute it and/or modify it -under the terms of the GNU General Public License as published by the -Free Software Foundation; either version 2 of the License, or (at your -option) any later version. +MIT/GNU Scheme is free software; you can redistribute it and/or modify +it under the terms of the GNU General Public License as published by +the Free Software Foundation; either version 2 of the License, or (at +your option) any later version. -This plugin is distributed in the hope that it will be useful, but +MIT/GNU Scheme is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License -along with this plugin; if not, write to the Free Software Foundation, -Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA. +along with MIT/GNU Scheme; if not, write to the Free Software +Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, +USA. |# diff --git a/src/x11/x11.cdecl b/src/x11/x11.cdecl index 3da023ebd..a18205860 100644 --- a/src/x11/x11.cdecl +++ b/src/x11/x11.cdecl @@ -5,21 +5,22 @@ Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994, 2006, 2007, 2008, 2009, 2010, 2011, 2012, 2013, 2014, 2015, 2016, 2017, 2018, 2019 Massachusetts Institute of Technology -This file is part of an x11 plugin for MIT/GNU Scheme. +This file is part of MIT/GNU Scheme. -This plugin is free software; you can redistribute it and/or modify it -under the terms of the GNU General Public License as published by the -Free Software Foundation; either version 2 of the License, or (at your -option) any later version. +MIT/GNU Scheme is free software; you can redistribute it and/or modify +it under the terms of the GNU General Public License as published by +the Free Software Foundation; either version 2 of the License, or (at +your option) any later version. -This plugin is distributed in the hope that it will be useful, but +MIT/GNU Scheme is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License -along with this plugin; if not, write to the Free Software Foundation, -Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA. +along with MIT/GNU Scheme; if not, write to the Free Software +Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, +USA. |# diff --git a/src/x11/x11.h b/src/x11/x11.h index 558877bcd..19a0a3fff 100644 --- a/src/x11/x11.h +++ b/src/x11/x11.h @@ -5,21 +5,22 @@ Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994, 2006, 2007, 2008, 2009, 2010, 2011, 2012, 2013, 2014, 2015, 2016, 2017, 2018, 2019 Massachusetts Institute of Technology -This file is part of an x11 plugin for MIT/GNU Scheme. +This file is part of MIT/GNU Scheme. -This plugin is free software; you can redistribute it and/or modify it -under the terms of the GNU General Public License as published by the -Free Software Foundation; either version 2 of the License, or (at your -option) any later version. +MIT/GNU Scheme is free software; you can redistribute it and/or modify +it under the terms of the GNU General Public License as published by +the Free Software Foundation; either version 2 of the License, or (at +your option) any later version. -This plugin is distributed in the hope that it will be useful, but +MIT/GNU Scheme is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License -along with this plugin; if not, write to the Free Software Foundation, -Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA. +along with MIT/GNU Scheme; if not, write to the Free Software +Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, +USA. */ diff --git a/src/x11/x11.pkg b/src/x11/x11.pkg index 63e5cbd2a..5729eb066 100644 --- a/src/x11/x11.pkg +++ b/src/x11/x11.pkg @@ -5,21 +5,22 @@ Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994, 2006, 2007, 2008, 2009, 2010, 2011, 2012, 2013, 2014, 2015, 2016, 2017, 2018, 2019 Massachusetts Institute of Technology -This file is part of an x11 plugin for MIT/GNU Scheme. +This file is part of MIT/GNU Scheme. -This plugin is free software; you can redistribute it and/or modify it -under the terms of the GNU General Public License as published by the -Free Software Foundation; either version 2 of the License, or (at your -option) any later version. +MIT/GNU Scheme is free software; you can redistribute it and/or modify +it under the terms of the GNU General Public License as published by +the Free Software Foundation; either version 2 of the License, or (at +your option) any later version. -This plugin is distributed in the hope that it will be useful, but +MIT/GNU Scheme is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License -along with this plugin; if not, write to the Free Software Foundation, -Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA. +along with MIT/GNU Scheme; if not, write to the Free Software +Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, +USA. |# diff --git a/src/x11/x11base.c b/src/x11/x11base.c index 87e475f24..bfe89b952 100644 --- a/src/x11/x11base.c +++ b/src/x11/x11base.c @@ -5,21 +5,22 @@ Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994, 2006, 2007, 2008, 2009, 2010, 2011, 2012, 2013, 2014, 2015, 2016, 2017, 2018, 2019 Massachusetts Institute of Technology -This file is part of an x11 plugin for MIT/GNU Scheme. +This file is part of MIT/GNU Scheme. -This plugin is free software; you can redistribute it and/or modify it -under the terms of the GNU General Public License as published by the -Free Software Foundation; either version 2 of the License, or (at your -option) any later version. +MIT/GNU Scheme is free software; you can redistribute it and/or modify +it under the terms of the GNU General Public License as published by +the Free Software Foundation; either version 2 of the License, or (at +your option) any later version. -This plugin is distributed in the hope that it will be useful, but +MIT/GNU Scheme is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License -along with this plugin; if not, write to the Free Software Foundation, -Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA. +along with MIT/GNU Scheme; if not, write to the Free Software +Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, +USA. */ diff --git a/src/x11/x11color.c b/src/x11/x11color.c index a2ea17c5d..b36e2b3c7 100644 --- a/src/x11/x11color.c +++ b/src/x11/x11color.c @@ -5,21 +5,22 @@ Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994, 2006, 2007, 2008, 2009, 2010, 2011, 2012, 2013, 2014, 2015, 2016, 2017, 2018, 2019 Massachusetts Institute of Technology -This file is part of an x11 plugin for MIT/GNU Scheme. +This file is part of MIT/GNU Scheme. -This plugin is free software; you can redistribute it and/or modify it -under the terms of the GNU General Public License as published by the -Free Software Foundation; either version 2 of the License, or (at your -option) any later version. +MIT/GNU Scheme is free software; you can redistribute it and/or modify +it under the terms of the GNU General Public License as published by +the Free Software Foundation; either version 2 of the License, or (at +your option) any later version. -This plugin is distributed in the hope that it will be useful, but +MIT/GNU Scheme is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License -along with this plugin; if not, write to the Free Software Foundation, -Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA. +along with MIT/GNU Scheme; if not, write to the Free Software +Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, +USA. */ diff --git a/src/x11/x11graph.c b/src/x11/x11graph.c index 33ce6f7ba..26cf3c48b 100644 --- a/src/x11/x11graph.c +++ b/src/x11/x11graph.c @@ -5,21 +5,22 @@ Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994, 2006, 2007, 2008, 2009, 2010, 2011, 2012, 2013, 2014, 2015, 2016, 2017, 2018, 2019 Massachusetts Institute of Technology -This file is part of an x11 plugin for MIT/GNU Scheme. +This file is part of MIT/GNU Scheme. -This plugin is free software; you can redistribute it and/or modify it -under the terms of the GNU General Public License as published by the -Free Software Foundation; either version 2 of the License, or (at your -option) any later version. +MIT/GNU Scheme is free software; you can redistribute it and/or modify +it under the terms of the GNU General Public License as published by +the Free Software Foundation; either version 2 of the License, or (at +your option) any later version. -This plugin is distributed in the hope that it will be useful, but +MIT/GNU Scheme is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License -along with this plugin; if not, write to the Free Software Foundation, -Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA. +along with MIT/GNU Scheme; if not, write to the Free Software +Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, +USA. */ diff --git a/src/x11/x11term.c b/src/x11/x11term.c index dccc0de86..8f96e5e6a 100644 --- a/src/x11/x11term.c +++ b/src/x11/x11term.c @@ -5,21 +5,22 @@ Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994, 2006, 2007, 2008, 2009, 2010, 2011, 2012, 2013, 2014, 2015, 2016, 2017, 2018, 2019 Massachusetts Institute of Technology -This file is part of an x11 plugin for MIT/GNU Scheme. +This file is part of MIT/GNU Scheme. -This plugin is free software; you can redistribute it and/or modify it -under the terms of the GNU General Public License as published by the -Free Software Foundation; either version 2 of the License, or (at your -option) any later version. +MIT/GNU Scheme is free software; you can redistribute it and/or modify +it under the terms of the GNU General Public License as published by +the Free Software Foundation; either version 2 of the License, or (at +your option) any later version. -This plugin is distributed in the hope that it will be useful, but +MIT/GNU Scheme is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License -along with this plugin; if not, write to the Free Software Foundation, -Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA. +along with MIT/GNU Scheme; if not, write to the Free Software +Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, +USA. */