* "cref" is a cross-reference program that also implements a
rudimentary module system.
-* "edwin" contains our Emacs-like editor written in Scheme.
+ The editor subsystem consists of two directories:
+
++* "edwin" contains our Emacs-like editor written in Scheme and using
++ several plugins, e.g. gdbm, blowfish and x11.
+
+ * "imail" contains an email-reading program for Edwin.
+
There are a few C/Unix FFI plugins:
* "gdbm" wraps libgdbm, the GNU dbm database routines, and provides a
package (runtime blowfish).
* "mcrypt" wraps libmcrypt and provides replacements for the mcrypt-*
- procedures implemented in (runtime crypto).
+ procedures in (runtime crypto).
- The editor subsystem consists of two directories:
-
- * "edwin" contains our Emacs-like editor written in Scheme and using
- several plugins, e.g. gdbm, blowfish and x11.
+ * "pgsql" wraps libpq and provides a drop-in replacement for the
+ microcode module based package (runtime postgresql).
- * "imail" contains an email-reading program for Edwin.
+ * "x11" wraps libX11 and provides a drop-in replacement for the
+ microcode module based package (runtime x-graphics).
\f
These are miscellaneous extras:
DEFAULT_SUBDIRS=( \
6001 \
- blowfish \
compiler \
cref \
- edwin \
ffi \
+ gdbm \
+ imail \
+ mcrypt \
microcode \
pgsql \
runtime \
Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
2006, 2007, 2008, 2009, 2010, 2011, 2012, 2013, 2014, 2015, 2016,
- 2017 Massachusetts Institute of Technology
+ 2017, 2018 Massachusetts Institute of Technology
-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 the Free Software Foundation; either version 2 of the
AC_CONFIG_MACRO_DIR([m4])
AC_COPYRIGHT(
-[Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
+[Copyright (C) 2007, 2008, 2009, 2010, 2011, 2012, 2013, 2014, 2015,
+ 2016, 2017 Matthew Birkholz
+
+This file is part of a blowfish plugin for MIT/GNU Scheme Pucked,
+an experimental version of MIT/GNU Scheme.
+
+Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
2006, 2007, 2008, 2009, 2010, 2011, 2012, 2013, 2014, 2015, 2016,
- 2017 Massachusetts Institute of Technology
+ 2017, 2018 Massachusetts Institute of Technology
-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
the Free Software Foundation; either version 2 of the License, or (at
Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
2006, 2007, 2008, 2009, 2010, 2011, 2012, 2013, 2014, 2015, 2016,
- 2017 Massachusetts Institute of Technology
+ 2017, 2018 Massachusetts Institute of Technology
-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
the Free Software Foundation; either version 2 of the License, or (at
Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
2006, 2007, 2008, 2009, 2010, 2011, 2012, 2013, 2014, 2015, 2016,
- 2017 Massachusetts Institute of Technology
+ 2017, 2018 Massachusetts Institute of Technology
-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 the Free Software Foundation; either version 2 of the
Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA
02110-1301, USA.
-mit-scheme-gdbm 0.4 - Matt Birkholz, 2018-06-01
-===============================================
++mit-scheme-pucked-gdbm 0.4.1 - Matt Birkholz, 2018-06-05
++========================================================
++
++New upstream that accommodates gdbm 1.14.
++
+mit-scheme-pucked-gdbm 0.3.4 - Matt Birkholz, 2018-05-30
+========================================================
Accommodate gdbm 1.14 (in Ubuntu 18.04) but disable its file locking.
dnl Process this file with autoconf to produce a configure script.
AC_PREREQ([2.69])
-AC_INIT([MIT/GNU Scheme gdbm plugin],
- [0.4],
- [bug-mit-scheme@gnu.org],
- [mit-scheme-gdbm])
+AC_INIT([MIT/GNU Scheme Pucked gdbm plugin],
- [0.3.4],
- [matt@birchwood-abbey.net],
++ [0.4.1],
++ [puck@birchwood-abbey.net],
+ [mit-scheme-pucked-gdbm])
AC_CONFIG_SRCDIR([gdbm.pkg])
AC_CONFIG_MACRO_DIR([m4])
AC_COPYRIGHT(
-[Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
+[Copyright (C) 2007, 2008, 2009, 2010, 2011, 2012, 2013, 2014, 2015,
+ 2016, 2017 Matthew Birkholz
+
+This file is part of a gdbm plugin for MIT/GNU Scheme Pucked,
+an experimental version of MIT/GNU Scheme.
+
+Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
2006, 2007, 2008, 2009, 2010, 2011, 2012, 2013, 2014, 2015, 2016,
- 2017 Massachusetts Institute of Technology
+ 2017, 2018 Massachusetts Institute of Technology
-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
the Free Software Foundation; either version 2 of the License, or (at
@comment %**end of header
@copying
-This manual documents MIT/GNU Scheme GDBM @value{VERSION}.
+This manual documents MIT/GNU Scheme Pucked GDBM @value{VERSION}.
- Copyright @copyright{} 2017 Massachusetts Institute of Technology
+ Copyright @copyright{} 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993,
+ 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
+ 2005, 2006, 2007, 2008, 2009, 2010, 2011, 2012, 2013, 2014, 2015,
+ 2016, 2017, 2018 Massachusetts Institute of Technology
Copyright @copyright{} 1993-99 Free Software Foundation, Inc.
@quotation
(lambda ()
(load-package-set "gdbm")))
- (add-subsystem-identification! "GDBM" '(0 3 4))
-(add-subsystem-identification! "GDBM2" '(0 4))
++(add-subsystem-identification! "GDBM" '(0 4 1))
Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
2006, 2007, 2008, 2009, 2010, 2011, 2012, 2013, 2014, 2015, 2016,
- 2017 Massachusetts Institute of Technology
+ 2017, 2018 Massachusetts Institute of Technology
-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 the Free Software Foundation; either version 2 of the
AC_CONFIG_MACRO_DIR([m4])
AC_COPYRIGHT(
-[Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
+[Copyright (C) 2007, 2008, 2009, 2010, 2011, 2012, 2013, 2014, 2015,
+ 2016, 2017 Matthew Birkholz
+
+This file is part of an mcrypt plugin for MIT/GNU Scheme Pucked,
+an experimental version of MIT/GNU Scheme.
+
+Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
2006, 2007, 2008, 2009, 2010, 2011, 2012, 2013, 2014, 2015, 2016,
- 2017 Massachusetts Institute of Technology
+ 2017, 2018 Massachusetts Institute of Technology
-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
the Free Software Foundation; either version 2 of the License, or (at
Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
2006, 2007, 2008, 2009, 2010, 2011, 2012, 2013, 2014, 2015, 2016,
- 2017 Massachusetts Institute of Technology
+ 2017, 2018 Massachusetts Institute of Technology
-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
the Free Software Foundation; either version 2 of the License, or (at
AC_CONFIG_MACRO_DIR([m4])
AC_COPYRIGHT(
-[Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
+[Copyright (C) 2007, 2008, 2009, 2010, 2011, 2012, 2013, 2014, 2015,
+ 2016, 2017 Matthew Birkholz
+
+This file is part of a pgsql plugin for MIT/GNU Scheme Pucked,
+an experimental version of MIT/GNU Scheme.
+
+Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
2006, 2007, 2008, 2009, 2010, 2011, 2012, 2013, 2014, 2015, 2016,
- 2017 Massachusetts Institute of Technology
+ 2017, 2018 Massachusetts Institute of Technology
-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
the Free Software Foundation; either version 2 of the License, or (at
Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
2006, 2007, 2008, 2009, 2010, 2011, 2012, 2013, 2014, 2015, 2016,
- 2017 Massachusetts Institute of Technology
+ 2017, 2018 Massachusetts Institute of Technology
-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
the Free Software Foundation; either version 2 of the License, or (at
AC_CONFIG_SRCDIR([x11-screen.pkg])
AC_COPYRIGHT(
-[Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
+[Copyright (C) 2007, 2008, 2009, 2010, 2011, 2012, 2013, 2014, 2015,
+ 2016, 2017 Matthew Birkholz
+
+This file is part of an X11 screen plugin for MIT/GNU Scheme Pucked,
+an experimental version of MIT/GNU Scheme.
+
+Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
2006, 2007, 2008, 2009, 2010, 2011, 2012, 2013, 2014, 2015, 2016,
- 2017 Massachusetts Institute of Technology
+ 2017, 2018 Massachusetts Institute of Technology
-This file is part of an X11-screen plugin for 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
the Free Software Foundation; either version 2 of the License, or (at
Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
2006, 2007, 2008, 2009, 2010, 2011, 2012, 2013, 2014, 2015, 2016,
- 2017 Massachusetts Institute of Technology
+ 2017, 2018 Massachusetts Institute of Technology
-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 the Free Software Foundation; either version 2 of the
Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA
02110-1301, USA.
-mit-scheme-x11 0.3 - Matt Birkholz, 2018-06-01
-==============================================
++mit-scheme-x11 0.3.1 - Matt Birkholz, 2018-06-04
++================================================
++
++New upstream allows CurrentTime as a Time argument.
++
+mit-scheme-pucked-x11 0.2.2 - Matt Birkholz, 2018-03-16
+=======================================================
-Allow CurrentTime as a Time argument (to fix an intermittent error
-when cutting/pasting).
+Allow CurrentTime (0) as an argument to procedures expecting a Time.
+This eliminates a spurious error when cutting/pasting in Edwin.
-mit-scheme-x11 0.2 - Matt Birkholz, 2017-05-23
-==============================================
+mit-scheme-pucked-x11 0.2.1 - Matt Birkholz, 2017-05-23
+=======================================================
-Use new Unicode support. Convert (restrict) strings (atom names and
-xterm content) to iso8859-1. This should be transparent if you were
-using standard Latin1 property names and writing only Latin1 graphical
+New upstream converts (restricts) strings (atom names and xterm
+content) to iso8859-1. This should be transparent if you were using
+standard Latin1 property names and writing only Latin1 graphical
characters to your xterms.
-mit-scheme-x11 0.1 - Matt Birkholz, 2016-02-19
-==============================================
+mit-scheme-pucked-x11 0.1.1 - Matt Birkholz, 2017-03-01
+=======================================================
-Converted to a libtool plugin. Moved X11 data parsing
-(x_event_to_object) to Scheme/FFI code.
+Stole v0.1 from MIT/GNU Scheme.
dnl Process this file with autoconf to produce a configure script.
AC_PREREQ([2.69])
-AC_INIT([MIT/GNU Scheme x11 plugin],
- [0.3],
- [bug-mit-scheme@gnu.org],
- [mit-scheme-x11])
+AC_INIT([MIT/GNU Scheme Pucked x11 plugin],
- [0.2.2],
- [matt@birchwood-abbey.net],
++ [0.3.1],
++ [puck@birchwood-abbey.net],
+ [mit-scheme-pucked-x11])
AC_CONFIG_SRCDIR([x11.pkg])
AC_CONFIG_MACRO_DIR([m4])
AC_COPYRIGHT(
-[Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
+[Copyright (C) 2007, 2008, 2009, 2010, 2011, 2012, 2013, 2014, 2015,
+ 2016, 2017 Matthew Birkholz
+
+This file is part of an X11 plugin for MIT/GNU Scheme Pucked,
+an experimental version of MIT/GNU Scheme.
+
+Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
2006, 2007, 2008, 2009, 2010, 2011, 2012, 2013, 2014, 2015, 2016,
- 2017 Massachusetts Institute of Technology
+ 2017, 2018 Massachusetts Institute of Technology
-This file is part of an x11 plugin for 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
the Free Software Foundation; either version 2 of the License, or (at
(with-loader-base-uri (system-library-uri "x11/")
(lambda ()
(load-package-set "x11")))
- (add-subsystem-identification! "X11" '(0 2 2))
-(add-subsystem-identification! "X11" '(0 3))
-
-;; Until the microcode module based X Graphics system is removed,
-;; reassign the define-primitives bindings in (runtime x-graphics) to
-;; their replacements in (x11).
-(let ((x-graphics (->environment '(runtime x-graphics)))
- (x11 (->environment '(x11))))
- (for-each (lambda (name)
- (environment-assign! x-graphics name
- (environment-lookup x11 name)))
- '(
- x-close-all-displays
- x-display-descriptor
- x-display-get-default
- x-display-process-events
- x-font-structure
- x-window-beep
- x-window-clear
- x-window-colormap
- x-window-depth
- x-window-event-mask
- x-window-flush
- x-window-iconify
- x-window-id
- x-window-lower
- x-window-map
- x-window-query-pointer
- x-window-raise
- x-window-set-background-color
- x-window-set-border-color
- x-window-set-border-width
- x-window-set-cursor-color
- x-window-set-event-mask
- x-window-set-font
- x-window-set-foreground-color
- x-window-set-icon-name
- x-window-set-input-hint
- x-window-set-internal-border-width
- x-window-set-mouse-color
- x-window-set-mouse-shape
- x-window-set-name
- x-window-set-position
- x-window-set-size
- x-window-visual
- x-window-withdraw
- x-window-x-size
- x-window-y-size
- x-graphics-copy-area
- x-graphics-drag-cursor
- x-graphics-draw-arc
- x-graphics-draw-line
- x-graphics-draw-lines
- x-graphics-draw-point
- x-graphics-draw-points
- x-graphics-draw-string
- x-graphics-draw-image-string
- x-graphics-fill-polygon
- x-graphics-map-x-coordinate
- x-graphics-map-y-coordinate
- x-graphics-move-cursor
- x-graphics-open-window
- x-graphics-reconfigure
- x-graphics-reset-clip-rectangle
- x-graphics-set-clip-rectangle
- x-graphics-set-dashes
- x-graphics-set-fill-style
- x-graphics-set-function
- x-graphics-set-line-style
- x-graphics-set-vdc-extent
- x-graphics-vdc-extent
- x-bytes-into-image
- x-create-image
- x-destroy-image
- x-display-image
- x-get-pixel-from-image
- x-set-pixel-in-image
- x-allocate-color
- x-create-colormap
- x-free-colormap
- x-query-color
- x-set-window-colormap
- x-store-color
- x-store-colors
- x-visual-deallocate)))
-
-;; Check that these (integrated!) constants DO "match" the C
-;; constants, just because we can (with the FFI's help).
-(let ((x-graphics (->environment '(runtime x-graphics)))
- (x11 (->environment '(x11))))
- (for-each (lambda (name)
- (if (not (equal? (environment-lookup x-graphics name)
- (environment-lookup x11 name)))
- (warn "Incorrect C constant in (runtime x-graphics):" name)))
- '(event-type:button-down
- event-type:button-up
- event-type:configure
- event-type:enter
- event-type:focus-in
- event-type:focus-out
- event-type:key-press
- event-type:leave
- event-type:motion
- event-type:expose
- event-type:delete-window
- event-type:map
- event-type:unmap
- event-type:take-focus
- event-type:visibility
- number-of-event-types)))
++(add-subsystem-identification! "X11" '(0 3 1))