From: Matt Birkholz <puck@birchwood-abbey.net>
Date: Sat, 12 Nov 2016 20:40:48 +0000 (-0700)
Subject: Merge branch 'master' into Gtk.
X-Git-Tag: mit-scheme-pucked-9.2.12~259
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=53d9c3ad695940ce33fd4d68fb7f5248abee378d;p=mit-scheme.git

Merge branch 'master' into Gtk.
---

53d9c3ad695940ce33fd4d68fb7f5248abee378d
diff --cc src/Makefile.in
index 4440da6bc,9a5a41dcf..e424ca73f
--- a/src/Makefile.in
+++ b/src/Makefile.in
@@@ -663,28 -747,82 +678,8 @@@ cross-end: cross-hos
  	| (cd runtime && ../microcode/scheme --batch-mode --library ../lib \
  	    --fasl make.bin)
  
 -### Stuff that depends on running the code we just compiled, because it
 -### uses Edwin macros.  This is a kludge until we can fix macro phasing
 -### and persuade the cross-compiler to load and run macros for the
 -### target.
 -
 -# IMAIL
 -
 -.PHONY: all-imail
 -all-imail: compile-imail
 -@IF_LIARC@all-imail: bundle-imail
 -
 -.PHONY: bundle-imail
 -bundle-imail: liarc-bundle-tools
 -bundle-imail: compile-imail
 -bundle-imail: imail/imail-unx.c
 -bundle-imail: imail/imail-w32.c
 -	(cd imail && $(MAKE) compile-liarc-bundle)
 -
 -# Must write these rules explicitly because we use TARGET_COMPILER, not
 -# TOOL_COMPILER.
 -#
 -# XXX These depend on imail/imail-unx.pkd intentionally because make
 -# has no good way to express a rule that generates multiple files at
 -# once.
 -imail/imail-unx.c: imail/imail-unx.pkd
 -	echo '(cbf "imail/imail-unx.pkd")' | $(TARGET_COMPILER)
 -imail/imail-w32.c: imail/imail-unx.pkd
 -	echo '(cbf "imail/imail-w32.pkd")' | $(TARGET_COMPILER)
 -
 -# XXX We enter lib/imail/ rather than imail/ so that liarc library
 -# directory pathnames get resolved to builtin objects.  This is a
 -# kludge.
 -
 -.PHONY: compile-imail
 -compile-imail: target-toolchain
 -compile-imail: compile-edwin
 -compile-imail: compile-runtime
 -compile-imail: compile-sos
 -compile-imail: compile-star-parser
 -compile-imail: cref-imail
 -	(echo '(begin' && \
 -	 echo '  (load-option (quote *PARSER))' && \
 -	 echo '  (load-option (quote EDWIN))' && \
 -	 echo '  (load-option (quote SOS))' && \
 -	 echo '  (with-working-directory-pathname "lib/imail"' && \
 -	 echo '    (lambda ()' && \
 -	 echo '      (load "compile"))))') \
 -	| $(TARGET_TOOLCHAIN)
 -
 -.PHONY: cref-imail
 -cref-imail: imail/imail-unx.pkd
 -
 -@IF_LIARC@IMAIL_CREF_PRELOAD = \
 -@IF_LIARC@	echo '(load-option (quote SOS))' && \
 -@IF_LIARC@	echo '(load-option (quote EDWIN))' && \
 -@IF_LIARC@	echo '(load-option (quote *PARSER))' &&
 -
 -imail/imail-unx.pkd: target-toolchain
 -imail/imail-unx.pkd: cref-edwin
 -imail/imail-unx.pkd: cref-runtime
 -imail/imail-unx.pkd: cref-sos
 -imail/imail-unx.pkd: cref-star-parser
 -@IF_LIARC@imail/imail-unx.pkd: all-edwin
 -@IF_LIARC@imail/imail-unx.pkd: all-runtime
 -@IF_LIARC@imail/imail-unx.pkd: all-sos
 -@IF_LIARC@imail/imail-unx.pkd: all-star-parser
 -imail/imail-unx.pkd: imail/imail.pkg
 -	(echo '(begin' && \
 -	 $(IMAIL_CREF_PRELOAD) \
 -	 echo '  (with-working-directory-pathname "lib/imail"' && \
 -	 echo '    (lambda ()' && \
 -	 echo '      (cref/generate-trivial-constructor "imail"))))') \
 -	| $(TARGET_SYNTAXER)
 -
  # **** Legacy serialized targets ****
  
- all-svm: microcode/svm1-defns.h
- 	$(MAKE) compile-microcode
- 	@$(top_srcdir)/etc/compile-svm.sh "$(MIT_SCHEME_EXE)"
- 	$(MAKE) build-bands
- 
- microcode/svm1-defns.h: compiler/machines/svm/svm1-defns.h
- 	@$(top_srcdir)/etc/maybe-update-file.sh \
- 	  compiler/machines/svm/svm1-defns.h \
- 	  microcode/svm1-defns.h
- 
- compiler/machines/svm/svm1-defns.h: \
- 	  compiler/machines/svm/assembler-rules.scm \
- 	  compiler/machines/svm/machine.scm \
- 	  compiler/machines/svm/assembler-compiler.scm \
- 	  compiler/machines/svm/assembler-runtime.scm \
- 	  compiler/machines/svm/compile-assembler.scm
- 	( cd compiler/machines/svm/ \
- 	  && "$(MIT_SCHEME_EXE)" --batch-mode --load compile-assembler \
- 		</dev/null )
- 
  all-liarc:
  	@$(top_srcdir)/etc/c-compile.sh "$(MIT_SCHEME_EXE)" --batch-mode
  	$(MAKE) compile-liarc-bundles build-bands
diff --cc src/blowfish/Makefile.am
index ef6f68339,0cd08544c..fff568fa0
--- a/src/blowfish/Makefile.am
+++ b/src/blowfish/Makefile.am
@@@ -44,7 -45,9 +45,9 @@@ AM_MAKEINFOHTMLFLAGS = --no-spli
  
  # Set these to the defaults used by Scheme.
  infodir = $(datarootdir)/info
 -htmldir = $(libdir)/mit-scheme/doc
 -dvidir = $(libdir)/mit-scheme/doc
 -pdfdir = $(libdir)/mit-scheme/doc
 +htmldir = $(libdir)/mit-scheme-pucked/doc
++dvidir = $(libdir)/mit-scheme-pucked/doc
++pdfdir = $(libdir)/mit-scheme-pucked/doc
  
  AM_CPPFLAGS = -I@MIT_SCHEME_INCLUDEDIR@
  
@@@ -107,11 -107,10 +108,11 @@@ install-data-hook
  #	| $(MIT_SCHEME_EXE) --batch-mode
  
  uninstall-hook:
 -	echo '(update-optiondb "$(DESTDIR)$(scmlibdir)")' \
 -	| $(MIT_SCHEME_EXE) --batch-mode
 +	if [ -f "$(DESTDIR)$(scmlibdir)optiondb.scm" ]; then \
 +	    echo '(update-optiondb "$(DESTDIR)$(scmlibdir)")' \
 +	    | $(MIT_SCHEME_EXE) --batch-mode; fi
- 	[ -d "$(DESTDIR)$(scmlib_blowfishdir)" ] \
- 	&& rmdir "$(DESTDIR)$(scmlib_blowfishdir)"
+ 	[ -d "$(DESTDIR)$(scmlib_subdir)" ] \
+ 	&& rmdir "$(DESTDIR)$(scmlib_subdir)"
  #	[ -d "$(DESTDIR)$(htmldir)" ]					\
  #	&& ( echo  '(update-html-index "$(DESTDIR)$(htmldir)/")'	\
  #	     | $(MIT_SCHEME_EXE) --batch-mode )
diff --cc src/gdbm/Makefile.am
index 81d0b1dfd,0ca01bc1e..91969d7e1
--- a/src/gdbm/Makefile.am
+++ b/src/gdbm/Makefile.am
@@@ -44,7 -45,9 +45,9 @@@ AM_MAKEINFOHTMLFLAGS = --no-spli
  
  # Set these to the defaults used by Scheme.
  infodir = $(datarootdir)/info
 -htmldir = $(libdir)/mit-scheme/doc
 -dvidir = $(libdir)/mit-scheme/doc
 -pdfdir = $(libdir)/mit-scheme/doc
 +htmldir = $(libdir)/mit-scheme-pucked/doc
++dvidir = $(libdir)/mit-scheme-pucked/doc
++pdfdir = $(libdir)/mit-scheme-pucked/doc
  
  AM_CPPFLAGS = -I@MIT_SCHEME_INCLUDEDIR@
  
@@@ -93,25 -94,23 +94,25 @@@ all_sources = $(sources) gdbm-adapter.
  ETAGS_ARGS = $(all_sources) -r '/^([^iI].*/' $(cdecls)
  TAGS_DEPENDENCIES = $(all_sources) $(cdecls)
  
- EXTRA_DIST += $(all_sources) $(cdecls) gdbm.pkg
- EXTRA_DIST += compile.scm gdbm-check.scm gdbm-check.sh
+ EXTRA_DIST += $(all_sources) $(cdecls) compile.scm gdbm.pkg
+ EXTRA_DIST += gdbm-check.scm gdbm-check.sh
 -EXTRA_DIST += make.scm optiondb.scm tags-fix.sh
 +EXTRA_DIST += make.scm optiondb.scm tags-fix.sh debian
  
  install-data-hook:
 -	echo '(update-optiondb "$(DESTDIR)$(scmlibdir)")' \
 -	| $(MIT_SCHEME_EXE) --batch-mode
 +	if [ -f "$(DESTDIR)$(scmlibdir)optiondb.scm" ]; then \
 +	    echo '(update-optiondb "$(DESTDIR)$(scmlibdir)")' \
 +	    | $(MIT_SCHEME_EXE) --batch-mode; fi
  
  #install-html: install-html-am
  #	echo '(update-html-index "$(DESTDIR)$(htmldir)/")' \
  #	| $(MIT_SCHEME_EXE) --batch-mode
  
  uninstall-hook:
 -	echo '(update-optiondb "$(DESTDIR)$(scmlibdir)")' \
 -	| $(MIT_SCHEME_EXE) --batch-mode
 +	if [ -f "$(DESTDIR)$(scmlibdir)optiondb.scm" ]; then \
 +	    echo '(update-optiondb "$(DESTDIR)$(scmlibdir)")' \
 +	    | $(MIT_SCHEME_EXE) --batch-mode; fi
- 	[ -d "$(DESTDIR)$(scmlib_gdbmdir)" ] \
- 	&& rmdir "$(DESTDIR)$(scmlib_gdbmdir)"
+ 	[ -d "$(DESTDIR)$(scmlib_subdir)" ] \
+ 	&& rmdir "$(DESTDIR)$(scmlib_subdir)"
  #	[ -d "$(DESTDIR)$(htmldir)" ]					\
  #	&& ( echo  '(update-html-index "$(DESTDIR)$(htmldir)/")'	\
  #	     | $(MIT_SCHEME_EXE) --batch-mode )
diff --cc src/mcrypt/Makefile.am
index 54bffe226,f28a329a7..e986041fc
--- a/src/mcrypt/Makefile.am
+++ b/src/mcrypt/Makefile.am
@@@ -44,7 -45,9 +45,9 @@@ AM_MAKEINFOHTMLFLAGS = --no-spli
  
  # Set these to the defaults used by Scheme.
  infodir = $(datarootdir)/info
 -htmldir = $(libdir)/mit-scheme/doc
 -dvidir = $(libdir)/mit-scheme/doc
 -pdfdir = $(libdir)/mit-scheme/doc
 +htmldir = $(libdir)/mit-scheme-pucked/doc
++dvidir = $(libdir)/mit-scheme-pucked/doc
++pdfdir = $(libdir)/mit-scheme-pucked/doc
  
  AM_CPPFLAGS = -I@MIT_SCHEME_INCLUDEDIR@
  
@@@ -107,11 -107,10 +108,11 @@@ install-data-hook
  #	| $(MIT_SCHEME_EXE) --batch-mode
  
  uninstall-hook:
 -	echo '(update-optiondb "$(DESTDIR)$(scmlibdir)")' \
 -	| $(MIT_SCHEME_EXE) --batch-mode
 +	if [ -f "$(DESTDIR)$(scmlibdir)optiondb.scm" ]; then \
 +	    echo '(update-optiondb "$(DESTDIR)$(scmlibdir)")' \
 +	    | $(MIT_SCHEME_EXE) --batch-mode; fi
- 	[ -d "$(DESTDIR)$(scmlib_mcryptdir)" ] \
- 	&& rmdir "$(DESTDIR)$(scmlib_mcryptdir)"
+ 	[ -d "$(DESTDIR)$(scmlib_subdir)" ] \
+ 	&& rmdir "$(DESTDIR)$(scmlib_subdir)"
  #	[ -d "$(DESTDIR)$(htmldir)" ]					\
  #	&& ( echo  '(update-html-index "$(DESTDIR)$(htmldir)/")'	\
  #	     | $(MIT_SCHEME_EXE) --batch-mode )
diff --cc src/md5/Makefile.am
index 1b126a9d0,40264b7fb..d6152ac6f
--- a/src/md5/Makefile.am
+++ b/src/md5/Makefile.am
@@@ -44,7 -45,9 +45,9 @@@ AM_MAKEINFOHTMLFLAGS = --no-spli
  
  # Set these to the defaults used by Scheme.
  infodir = $(datarootdir)/info
 -htmldir = $(libdir)/mit-scheme/doc
 -dvidir = $(libdir)/mit-scheme/doc
 -pdfdir = $(libdir)/mit-scheme/doc
 +htmldir = $(libdir)/mit-scheme-pucked/doc
++dvidir = $(libdir)/mit-scheme-pucked/doc
++pdfdir = $(libdir)/mit-scheme-pucked/doc
  
  AM_CPPFLAGS = -I@MIT_SCHEME_INCLUDEDIR@
  
@@@ -107,11 -107,10 +108,11 @@@ install-data-hook
  #	| $(MIT_SCHEME_EXE) --batch-mode
  
  uninstall-hook:
 -	echo '(update-optiondb "$(DESTDIR)$(scmlibdir)")' \
 -	| $(MIT_SCHEME_EXE) --batch-mode
 +	if [ -f "$(DESTDIR)$(scmlibdir)optiondb.scm" ]; then \
 +	    echo '(update-optiondb "$(DESTDIR)$(scmlibdir)")' \
 +	    | $(MIT_SCHEME_EXE) --batch-mode; fi
- 	[ -d "$(DESTDIR)$(scmlib_md5dir)" ] \
- 	&& rmdir "$(DESTDIR)$(scmlib_md5dir)"
+ 	[ -d "$(DESTDIR)$(scmlib_subdir)" ] \
+ 	&& rmdir "$(DESTDIR)$(scmlib_subdir)"
  #	[ -d "$(DESTDIR)$(htmldir)" ]					\
  #	&& ( echo  '(update-html-index "$(DESTDIR)$(htmldir)/")'	\
  #	     | $(MIT_SCHEME_EXE) --batch-mode )
diff --cc src/mhash/Makefile.am
index a089e5a45,d9637dc6d..427a5f7a3
--- a/src/mhash/Makefile.am
+++ b/src/mhash/Makefile.am
@@@ -44,7 -45,9 +45,9 @@@ AM_MAKEINFOHTMLFLAGS = --no-spli
  
  # Set these to the defaults used by Scheme.
  infodir = $(datarootdir)/info
 -htmldir = $(libdir)/mit-scheme/doc
 -dvidir = $(libdir)/mit-scheme/doc
 -pdfdir = $(libdir)/mit-scheme/doc
 +htmldir = $(libdir)/mit-scheme-pucked/doc
++dvidir = $(libdir)/mit-scheme-pucked/doc
++pdfdir = $(libdir)/mit-scheme-pucked/doc
  
  AM_CPPFLAGS = -I@MIT_SCHEME_INCLUDEDIR@
  
@@@ -107,11 -107,10 +108,11 @@@ install-data-hook
  #	| $(MIT_SCHEME_EXE) --batch-mode
  
  uninstall-hook:
 -	echo '(update-optiondb "$(DESTDIR)$(scmlibdir)")' \
 -	| $(MIT_SCHEME_EXE) --batch-mode
 +	if [ -f "$(DESTDIR)$(scmlibdir)optiondb.scm" ]; then \
 +	    echo '(update-optiondb "$(DESTDIR)$(scmlibdir)")' \
 +	    | $(MIT_SCHEME_EXE) --batch-mode; fi
- 	[ -d "$(DESTDIR)$(scmlib_mhashdir)" ] \
- 	&& rmdir "$(DESTDIR)$(scmlib_mhashdir)"
+ 	[ -d "$(DESTDIR)$(scmlib_subdir)" ] \
+ 	&& rmdir "$(DESTDIR)$(scmlib_subdir)"
  #	[ -d "$(DESTDIR)$(htmldir)" ]					\
  #	&& ( echo  '(update-html-index "$(DESTDIR)$(htmldir)/")'	\
  #	     | $(MIT_SCHEME_EXE) --batch-mode )
diff --cc src/x11-screen/Makefile.am
index 5c7d83edf,d6df77f82..0acaa0d39
--- a/src/x11-screen/Makefile.am
+++ b/src/x11-screen/Makefile.am
@@@ -39,17 -40,11 +40,11 @@@ AM_MAKEINFOHTMLFLAGS = --no-spli
  
  # Set these to the defaults used by Scheme.
  infodir = $(datarootdir)/info
 -htmldir = $(libdir)/mit-scheme/doc
 -dvidir = $(libdir)/mit-scheme/doc
 -pdfdir = $(libdir)/mit-scheme/doc
 +htmldir = $(libdir)/mit-scheme-pucked/doc
 +dvidir = $(libdir)/mit-scheme-pucked/doc
 +pdfdir = $(libdir)/mit-scheme-pucked/doc
  
- x11-key.bci: stamp-scheme
- x11-key.com: stamp-scheme
- x11-command.bci: stamp-scheme
- x11-command.com: stamp-scheme
- x11-screen.bci: stamp-scheme
- x11-screen.com: stamp-scheme
- x11-screen-@MIT_SCHEME_OS_SUFFIX@.pkd: stamp-scheme
+ @MIT_SCHEME_DEPS@
  stamp-scheme: $(sources) x11-screen.pkg
  	touch stamp-scheme
  	if ! ./compile.sh; then rm stamp-scheme; exit 1; fi
@@@ -64,16 -60,21 +60,23 @@@ TAGS_DEPENDENCIES = $(sources
  
  EXTRA_DIST += $(sources) compile.sh x11-screen.pkg
  EXTRA_DIST += x11-screen-check.sh x11-screen-test.scm
 -EXTRA_DIST += make.scm optiondb.scm
 +EXTRA_DIST += make.scm optiondb.scm debian
  
  install-data-hook:
 -	echo '(update-optiondb "$(DESTDIR)$(scmlibdir)")' \
 -	| $(MIT_SCHEME_EXE) --batch-mode
 +	if [ -f "$(DESTDIR)$(scmlibdir)optiondb.scm" ]; then \
 +	    echo '(update-optiondb "$(DESTDIR)$(scmlibdir)")' \
 +	    | $(MIT_SCHEME_EXE) --batch-mode; fi
  
+ #install-html: install-html-am
+ #	echo '(update-html-index "$(DESTDIR)$(htmldir)/")' \
+ #	| $(MIT_SCHEME_EXE) --batch-mode
+ 
  uninstall-hook:
 -	echo '(update-optiondb "$(DESTDIR)$(scmlibdir)")' \
 -	| $(MIT_SCHEME_EXE) --batch-mode
 +	if [ -f "$(DESTDIR)$(scmlibdir)optiondb.scm" ]; then \
 +	    echo '(update-optiondb "$(DESTDIR)$(scmlibdir)")' \
 +	    | $(MIT_SCHEME_EXE) --batch-mode; fi
  	[ -d "$(DESTDIR)$(scmlib_subdir)" ] \
  	&& rmdir "$(DESTDIR)$(scmlib_subdir)"
+ #	[ -d "$(DESTDIR)$(htmldir)" ]					\
+ #	&& ( echo  '(update-html-index "$(DESTDIR)$(htmldir)/")'	\
+ #	     | $(MIT_SCHEME_EXE) --batch-mode )
diff --cc src/x11/Makefile.am
index 23c48e5db,d774c4265..815f7b941
--- a/src/x11/Makefile.am
+++ b/src/x11/Makefile.am
@@@ -106,16 -96,21 +96,23 @@@ TAGS_DEPENDENCIES = $(all_sources) $(cd
  
  EXTRA_DIST += $(all_sources) $(cdecls) compile.sh x11.pkg
  EXTRA_DIST += x11-check.sh x11-test.scm
 -EXTRA_DIST += make.scm optiondb.scm tags-fix.sh
 +EXTRA_DIST += make.scm optiondb.scm tags-fix.sh debian
  
  install-data-hook:
 -	echo '(update-optiondb "$(DESTDIR)$(scmlibdir)")' \
 -	| $(MIT_SCHEME_EXE) --batch-mode
 +	if [ -f "$(DESTDIR)$(scmlibdir)optiondb.scm" ]; then \
 +	    echo '(update-optiondb "$(DESTDIR)$(scmlibdir)")' \
 +	    | $(MIT_SCHEME_EXE) --batch-mode; fi
  
+ #install-html: install-html-am
+ #	echo '(update-html-index "$(DESTDIR)$(htmldir)/")' \
+ #	| $(MIT_SCHEME_EXE) --batch-mode
+ 
  uninstall-hook:
 -	echo '(update-optiondb "$(DESTDIR)$(scmlibdir)")' \
 -	| $(MIT_SCHEME_EXE) --batch-mode
 +	if [ -f "$(DESTDIR)$(scmlibdir)optiondb.scm" ]; then \
 +	    echo '(update-optiondb "$(DESTDIR)$(scmlibdir)")' \
 +	    | $(MIT_SCHEME_EXE) --batch-mode; fi
  	[ -d "$(DESTDIR)$(scmlib_subdir)" ] \
  	&& rmdir "$(DESTDIR)$(scmlib_subdir)"
+ #	[ -d "$(DESTDIR)$(htmldir)" ]					\
+ #	&& ( echo  '(update-html-index "$(DESTDIR)$(htmldir)/")'	\
+ #	     | $(MIT_SCHEME_EXE) --batch-mode )
diff --cc src/x11/x11.pkg
index edbf9ddf9,65fc847cf..af73e28db
--- a/src/x11/x11.pkg
+++ b/src/x11/x11.pkg
@@@ -170,9 -170,9 +170,9 @@@ Inc., 51 Franklin St, Fifth Floor, Bost
  	  x-graphics-map-y-coordinate))
  
  (define-package (x11 device)
-   (files "x11device")
+   (files "x11-device")
    (parent (x11))
 -  (export (x11)
 +  (export ()
  	  create-x-colormap
  	  create-x-image
  	  x-character-bounds/ascent