--- scheme48-1.8+dfsg.orig/debian/cmuscheme48-el.emacsen-startup +++ scheme48-1.8+dfsg/debian/cmuscheme48-el.emacsen-startup @@ -0,0 +1,22 @@ +;; -*-emacs-lisp-*- +;; +;; Emacs startup file for the Debian cmuscheme48-el package +;; +;; Originally contributed by Nils Naumann +;; Modified by Dirk Eddelbuettel +;; Adapted for dh-make by Jim Van Zandt + +;; The cmuscheme48-el package follows the Debian/GNU Linux 'emacsen' +;; policy and byte-compiles its elisp files for each 'emacs flavor' +;; (emacs19, xemacs19, emacs20, xemacs20...). The compiled code is +;; then installed in a subdirectory of the respective site-lisp +;; directory. We have to add this to the load-path. We also add the +;; source directory so that C-h f can find it. +(let* ((package-dir (concat "/usr/share/" + (symbol-name flavor) + "/site-lisp/cmuscheme48-el")) + (source-dir "/usr/share/emacs/site-lisp/cmuscheme48-el") + (file (concat package-dir "/cmuscheme48.elc"))) + (when (file-directory-p package-dir) + (add-to-list 'load-path source-dir) + (add-to-list 'load-path package-dir))) --- scheme48-1.8+dfsg.orig/debian/cmuscheme48-el.emacsen-install +++ scheme48-1.8+dfsg/debian/cmuscheme48-el.emacsen-install @@ -0,0 +1,38 @@ +#! /bin/sh -e +# /usr/lib/emacsen-common/packages/install/cmuscheme48-el + +# Written by Jim Van Zandt , borrowing heavily +# from the install scripts for gettext by Santiago Vila +# and octave by Dirk Eddelbuettel . + +FLAVOR=$1 +PACKAGE=cmuscheme48-el + +if [ ${FLAVOR} = emacs ]; then exit 0; fi + +echo install/${PACKAGE}: Handling install for emacsen flavor ${FLAVOR} + +#FLAVORTEST=`echo $FLAVOR | cut -c-6` +#if [ ${FLAVORTEST} = xemacs ] ; then +# SITEFLAG="-no-site-file" +#else +# SITEFLAG="--no-site-file" +#fi +FLAGS="${SITEFLAG} -q -batch -l path.el -f batch-byte-compile" + +ELDIR=/usr/share/emacs/site-lisp/${PACKAGE} +ELCDIR=/usr/share/${FLAVOR}/site-lisp/${PACKAGE} + +install -m 755 -d ${ELCDIR} +cd ${ELDIR} +FILES=`echo *.el` +cp ${FILES} ${ELCDIR} +cd ${ELCDIR} + +cat << EOF > path.el +(setq load-path (cons "." load-path) byte-compile-warnings nil) +EOF +${FLAVOR} ${FLAGS} ${FILES} +rm -f *.el path.el + +exit 0 --- scheme48-1.8+dfsg.orig/debian/scheme48-doc.install +++ scheme48-1.8+dfsg/debian/scheme48-doc.install @@ -0,0 +1 @@ +doc/html doc/manual.pdf usr/share/doc/scheme48/ --- scheme48-1.8+dfsg.orig/debian/cmuscheme48-el.emacsen-remove +++ scheme48-1.8+dfsg/debian/cmuscheme48-el.emacsen-remove @@ -0,0 +1,10 @@ +#!/bin/sh -e +# /usr/lib/emacsen-common/packages/remove/cmuscheme48-el + +FLAVOR=$1 +PACKAGE=cmuscheme48-el + +if [ ${FLAVOR} != emacs ]; then + echo remove/${PACKAGE}: purging byte-compiled files for ${FLAVOR} + rm -rf /usr/share/${FLAVOR}/site-lisp/${PACKAGE} +fi --- scheme48-1.8+dfsg.orig/debian/scheme48.prerm +++ scheme48-1.8+dfsg/debian/scheme48.prerm @@ -0,0 +1,40 @@ +#! /bin/sh +# prerm script for foo +# +# see: dh_installdeb(1) + +set -e + +# summary of how this script can be called: +# * `remove' +# * `upgrade' +# * `failed-upgrade' +# * `remove' `in-favour' +# * `deconfigure' `in-favour' +# `removing' +# +# for details, see http://www.debian.org/doc/debian-policy/ or +# the debian-policy package + + +case "$1" in + remove|upgrade|deconfigure) + update-alternatives --remove scheme-r5rs /usr/bin/scheme-r5rs.scheme48 + update-alternatives --remove scheme-srfi-7 /usr/bin/scheme-srfi-7.scheme48 + ;; + failed-upgrade) + ;; + *) + echo "prerm called with unknown argument \`$1'" >&2 + exit 1 + ;; +esac + +# dh_installdeb will replace this with shell code automatically +# generated by other debhelper scripts. + +#DEBHELPER# + +exit 0 + + --- scheme48-1.8+dfsg.orig/debian/rules +++ scheme48-1.8+dfsg/debian/rules @@ -0,0 +1,39 @@ +#!/usr/bin/make -f + +include /usr/share/quilt/quilt.make + +DEB_HOST_GNU_TYPE ?= $(shell dpkg-architecture -qDEB_HOST_GNU_TYPE) +DEB_BUILD_GNU_TYPE ?= $(shell dpkg-architecture -qDEB_BUILD_GNU_TYPE) + +build: build-stamp +build-stamp: patch + dh build --before dh_auto_configure + -test -r /usr/share/misc/config.sub && \ + cp -f /usr/share/misc/config.sub config.sub + -test -r /usr/share/misc/config.guess && \ + cp -f /usr/share/misc/config.guess config.guess + LDFLAGS="-pthread" ./configure --host=$(DEB_HOST_GNU_TYPE) \ + --build=$(DEB_BUILD_GNU_TYPE) \ + --prefix=/usr + dh build --after dh_auto_configure + touch build-stamp + +clean: unpatch + dh clean + rm -f c/scheme48.def config.guess config.sub + + +install: build install-stamp +install-stamp: + dh install + touch install-stamp + +binary-arch: install + dh binary-arch + +binary-indep: + dh binary-indep + +binary: binary-arch binary-indep + +.PHONY: binary binary-arch binary-indep build clean install --- scheme48-1.8+dfsg.orig/debian/copyright +++ scheme48-1.8+dfsg/debian/copyright @@ -0,0 +1,641 @@ +This package was debianized by Jorgen Schaefer on +Thu, 12 Aug 2004 15:04:56 +0200. + +It was downloaded from http://www.s48.org/ + +Upstream Authors: Richard Kelsey and Jonathan Rees. +Upstream Maintainer: Michael Sperber. + +Repackaged .orig.tar.gz: + +As of version 1.8+dfsg-1, scheme48 is now distributed with a repacked +upstream tarball. This was done to remove the file emacs/cmulisp.el, +which is not DFSG-free. It has this license: + + Copyright Olin Shivers (1988). + Please imagine a long, tedious, legalistic 5-page gnu-style copyright + notice appearing here to the effect that you may use this code any + way you like, as long as you don't charge money for it, remove this + notice, or hold me liable for its results. + +Attempts to contact Olin Shivers in order to request the removal of +the distribution constraint failed. emacs/cmulisp.el was never +distributed with the package, and was only ever present in the +source. Repacking the tarball by removing this file closed Debian bug +#509860. + +Copyright: + +COPYING is almost the same as /usr/share/common-licenses/BSD, it reads + + Copyright (c) 1993-2006 Richard Kelsey and Jonathan Rees + All rights reserved. + + Redistribution and use in source and binary forms, with or without + modification, are permitted provided that the following conditions + are met: + 1. Redistributions of source code must retain the above copyright + notice, this list of conditions and the following disclaimer. + 2. Redistributions in binary form must reproduce the above + copyright notice, this list of conditions and the following + disclaimer in the documentation and/or other materials provided + with the distribution. + 3. The name of the authors may not be used to endorse or promote + products derived from this software without specific prior + written permission. + + THIS SOFTWARE IS PROVIDED BY THE AUTHORS ``AS IS'' AND ANY EXPRESS + OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED + WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE + ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHORS BE LIABLE FOR ANY + DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL + DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE + GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS + INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, + WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING + NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS + SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. + + + Distributing Autoconf Output + **************************** + + [excerpt from autoconf documentation] + + The configuration scripts that Autoconf produces are covered by + the GNU General Public License. This is because they consist + almost entirely of parts of Autoconf itself, rearranged somewhat, + and Autoconf is distributed under the terms of the GPL. As + applied to Autoconf, the GPL just means that you need to + distribute `configure.in' along with `configure'. + + Programs that use Autoconf scripts to configure themselves do + not automatically come under the GPL. Distributing an Autoconf + configuration script as part of a program is considered to be + *mere aggregation* of that work with the Autoconf script. Such + programs are not derivative works based on Autoconf; only their + configuration scripts are. We still encourage software authors to + distribute their work under terms like those of the GPL, but doing + so is not required to use Autoconf. + +Most source files have the following copyright / license declaration. + + Copyright (c) 1993-2007 by Richard Kelsey and Jonathan Rees. + See file COPYING. + +With the exception of doc/node.txt, doc/todo.txt, prescheme/union.scm +and minor-version-number, all files in the ps-compiler/ subdirectory +have the following copyright / license declaration. + + Copyright (c) 1993-2007 by Richard Kelsey. See file COPYING. + +Files with different or no copyright / license declarations are listed +below. + +INSTALL +Makefile.in +acconfig.h +build/build-external-modules +build/build-initial-image.bat +build/build-usual-image +build/build-usual-image.bat +build/check.bat +build/compile-bibop-gc.bat +build/compile-twospace-gc.bat +build/compile-vm.bat +build/dummy +build/filenames.bat +build/filenames.make +build/generate-c-header.bat +build/generate-go.bat +build/generate-scheme48-files-wxi.sh +build/generate-unicode-info.bat +build/initial.debug +build/initial.image +build/lucid-script.lisp +build/minor-version-number +build/scheme48.rc +c/asm-glue.c +c/c-mods.h +c/event.h +c/fake/dlfcn.h +c/fake/environ.c +c/fake/environ.h +c/fake/glue.c +c/fake/langinfo.c +c/fake/langinfo.h +c/fake/libdl-hp-ux.c +c/fake/libdl1.c +c/fake/libdl2.c +c/fake/sigact.h +c/fake/strerror.c +c/fake/strerror.h +c/fake/sys-select.h +c/fake/sysexits.h +c/fd-io.h +c/main.c +c/old-scheme48.h +c/posix/posix.h +c/posix/s48_signals.h +c/prescheme.h +c/scheme48-bibop-heap.c +c/scheme48-twospace-heap.c +c/scheme48.h +c/scheme48heap.c +c/scheme48heap.h +c/scheme48image.h +c/scheme48read-image.c +c/scheme48vm-prelude.h +c/scheme48vm.c +c/scheme48vm.h +c/scheme48write-image.c +c/srfi-27.c +c/sysdep.h.in +c/unix.h +configure.in +doc/hacking.txt +doc/html/manual-Z-G-D-1.gif +doc/html/manual-Z-H-1.html +doc/html/manual-Z-H-10.html +doc/html/manual-Z-H-11.html +doc/html/manual-Z-H-2.html +doc/html/manual-Z-H-3.html +doc/html/manual-Z-H-4.html +doc/html/manual-Z-H-5.html +doc/html/manual-Z-H-6.html +doc/html/manual-Z-H-7.html +doc/html/manual-Z-H-8.html +doc/html/manual-Z-H-9.html +doc/html/manual-Z-S.css +doc/html/manual.html +doc/html/unicode-Z-G-1.gif +doc/install.txt +doc/io.txt +doc/manual.pdf +doc/manual.ps +doc/meeting.ps +doc/news.txt +doc/no-leaf-env.txt +doc/scheme48.man +doc/src/ascii.scm +doc/src/bibliography.tex +doc/src/code.tex +doc/src/command.tex +doc/src/external.tex +doc/src/hacks.tex +doc/src/intro.tex +doc/src/manual-Z-G-D-1.tex +doc/src/manual.tex +doc/src/matter.sty +doc/src/meeting.tex +doc/src/module.tex +doc/src/myindex.tex +doc/src/posix.tex +doc/src/proto.tex +doc/src/summary.tex +doc/src/thread.tex +doc/src/unicode-Z-G-1.tex +doc/src/unicode.tex +doc/src/user-guide.tex +doc/src/utilities.tex +doc/src/version-number.tex +doc/todo.txt +doc/type.txt +emacs/README +emacs/cmuscheme48.el +emacs/jar-hacks.el +gdbinit +install-sh +ps-compiler/doc/node.txt +ps-compiler/doc/todo.txt +ps-compiler/minor-version-number +ps-compiler/prescheme/union.scm +scheme/bcomp/comp-exp.scm +scheme/bcomp/frame.scm +scheme/big/check.scm +scheme/big/unicode-normalization-info.scm +scheme/cml/async-channel.scm +scheme/cml/channel.scm +scheme/cml/cml-check.scm +scheme/cml/interfaces.scm +scheme/cml/jar.scm +scheme/cml/packages.scm +scheme/cml/placeholder.scm +scheme/cml/rendezvous.scm +scheme/cml/test-packages.scm +scheme/cml/time.scm +scheme/cml/trans-id.scm +scheme/env/parse-bytecode.scm +scheme/env/unicode-info.scm +scheme/env/version-info.scm +scheme/misc/sicp-check.scm +scheme/misc/test-packages.scm +scheme/posix/regexp-check.scm +scheme/posix/test-packages.scm +scheme/rts/syntax-info.scm +scheme/sort/interfaces.scm +scheme/sort/packages.scm +scheme/sort/sort.scm +scheme/sort/test.scm +scheme/sort/vector-util.scm +scheme/srfi/packages.scm +scheme/srfi/srfi-11.scm +scheme/srfi/srfi-14-base-char-sets.scm +scheme/srfi/srfi-14-check.scm +scheme/srfi/srfi-16.scm +scheme/srfi/srfi-17.scm +scheme/srfi/srfi-19-check.scm +scheme/srfi/srfi-25.scm +scheme/srfi/srfi-26.scm +scheme/srfi/srfi-27.scm +scheme/srfi/srfi-4.scm +scheme/srfi/srfi-63.scm +scheme/srfi/srfi-71.scm +scheme/srfi/test-packages.scm +scheme/test-packages.scm +scheme/vm/arith/flonum-arith.scm +scheme/vm/interp/stack-gc.scm +scheme/vm/package-defs.scm +scheme/vm/shared-interfaces.scm +scheme48.sln +scheme48.vcproj + + No copyright nor license declaration. + +c/unix/dynamo-test.c +c/unix/dynamo.c +scheme/debug/low-test-packages.scm +scheme/debug/small-packages.scm +scheme/debug/tiny-packages.scm +scheme/misc/shift-reset.scm + + Explicitly denies having a copyright. Does not mention licensing. + + [I guess this is equivalent to placing these files in the Public + Domain, but I am not a copyright lawyer. --twb] + +c/free.c + + All software (c) 1996 Robert G. Burger. + + Permission is hereby granted, free of charge, to any person + obtaining a copy of this software, to deal in the software without + restriction, including without limitation the rights to use, copy, + modify, merge, publish, distribute, sublicense, and/or sell copies + of the software. + + The software is provided "as is," without warranty of any kind, + express or implied, including but not limited to the warranties of + merchantability, fitness for a particular purpose and + noninfringement. In no event shall the author be liable for any + claim, damages or other liability, whether in an action of + contract, tort or otherwise, arising from, out of or in connection + with the software or the use or other dealings in the software. + +c/bignum.c + + Copyright 1986,1987,1988,1989,1990,1991 Massachusetts Institute of Technology + Copyright 1992,1993,1994,2004 Massachusetts Institute of Technology + +c/bignum.h + + Copyright 1986,1987,1988,1989,1992,2004 Massachusetts Institute of Technology + +c/bignumint.h + + Copyright 1989,1992,1993,2004 Massachusetts Institute of Technology + +c/bignum.c +c/bignum.h +c/bignumint.h + + Redistribution and use in source and binary forms, with or without + modification, are permitted provided that the following conditions are + met: + + 1. Redistributions of source code must retain the above copyright + notice, this list of conditions and the following disclaimer. + + 2. Redistributions in binary form must reproduce the above + copyright notice, this list of conditions and the following + disclaimer in the documentation and/or other materials provided + with the distribution. + + 3. The name of the author may not be used to endorse or promote + products derived from this software without specific prior + written permission. + + THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR + IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED + WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE + DISCLAIMED. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, + INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES + (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR + SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) + HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, + STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING + IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE + POSSIBILITY OF SUCH DAMAGE. + +configure + + Copyright (C) 1992, 1993, 1994, 1995, 1996, 1998, 1999, 2000, 2001, + 2002, 2003, 2004, 2005, 2006 Free Software Foundation, Inc. + This configure script is free software; the Free Software Foundation + gives unlimited permission to copy, distribute and modify it. + +mkinstalldirs + + Author: Noah Friedman + Created: 1993-05-16 + Public domain + +scheme/sort/delndups.scm +scheme/sort/lmsort.scm +scheme/sort/sortp.scm +scheme/sort/visort.scm +scheme/sort/vmsort.scm + + Copyright (c) 1998 by Olin Shivers. + You may do as you please with this code, as long as you do not + delete this notice or hold me responsible for any outcome related + to its use. + +scheme/srfi/srfi-1.scm + + Copyright (c) 1998, 1999 by Olin Shivers. + You may do as you please with this code as long as you do not + remove this copyright notice or hold me liable for its use. + +scheme/sort/vbinsearch.scm + + Copyright (c) 1998 by Olin Shivers. + This code is in the public domain. + +scheme/sort/vhsort.scm + + Copyright (c) 2002 by Olin Shivers. + This code is open-source; see the end of the file for porting and + more copyright information. + + [There is no copyright infrmation at the end of the file --twb] + +scheme/srfi/srfi-13.scm + + Copyright (c) 1988-1994 Massachusetts Institute of Technology. + Copyright (c) 1998, 1999, 2000 Olin Shivers. All rights reserved. + + Copyright details + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; + The prefix/suffix and comparison routines in this code had (extremely + distant) origins in MIT Scheme's string lib, and was substantially + reworked by Olin Shivers (shivers@ai.mit.edu) 9/98. As such, it is + covered by MIT Scheme's open source copyright. See below for details. + + The KMP string-search code was influenced by implementations written + by Stephen Bevan, Brian Dehneyer and Will Fitzgerald. However, this + version was written from scratch by myself. + + The remainder of this code was written from scratch by myself for scsh. + The scsh copyright is a BSD-style open source copyright. See below for + details. + -Olin Shivers + + MIT Scheme copyright terms + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; + This material was developed by the Scheme project at the Massachusetts + Institute of Technology, Department of Electrical Engineering and + Computer Science. Permission to copy and modify this software, to + redistribute either the original software or a modified version, and + to use this software for any purpose is granted, subject to the + following restrictions and understandings. + + 1. Any copy made of this software must include this copyright notice + in full. + + 2. Users of this software agree to make their best efforts (a) to + return to the MIT Scheme project any improvements or extensions that + they make, so that these may be included in future releases; and (b) + to inform MIT of noteworthy uses of this software. + + 3. All materials developed as a consequence of the use of this + software shall duly acknowledge such use, in accordance with the usual + standards of acknowledging credit in academic research. + + 4. MIT has made no warrantee or representation that the operation of + this software will be error-free, and MIT is under no obligation to + provide any services, by way of maintenance, update, or otherwise. + + 5. In conjunction with products arising from the use of this material, + there shall be no use of the name of the Massachusetts Institute of + Technology nor of any adaptation thereof in any advertising, + promotional, or sales literature without prior written consent from + MIT in each case. + + Scsh copyright terms + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; + + [The declared license exactly matches the one in COPYING. --twb] + +scheme/srfi/srfi-19.scm + + Copyright (C) I/NET, Inc. (2000, 2002, 2003). All Rights Reserved. + + This document and translations of it may be copied and furnished + to others, and derivative works that comment on or otherwise + explain it or assist in its implementation may be prepared, + copied, published and distributed, in whole or in part, without + restriction of any kind, provided that the above copyright notice + and this paragraph are included on all such copies and derivative + works. However, this document itself may not be modified in any + way, such as by removing the copyright notice or references to the + Scheme Request For Implementation process or editors, except as + needed for the purpose of developing SRFIs in which case the + procedures for copyrights defined in the SRFI process must be + followed, or as required to translate it into languages other than + English. + + The limited permissions granted above are perpetual and will not + be revoked by the authors or their successors or assigns. + + This document and the information contained herein is provided on + an "AS IS" basis and THE AUTHOR AND THE SRFI EDITORS DISCLAIM ALL + WARRANTIES, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO ANY + WARRANTY THAT THE USE OF THE INFORMATION HEREIN WILL NOT INFRINGE + ANY RIGHTS OR ANY IMPLIED WARRANTIES OF MERCHANTABILITY OR FITNESS + FOR A PARTICULAR PURPOSE. + +scheme/srfi/srfi-28.scm + + Copyright (C) Scott G. Miller (2002). All Rights Reserved. + +scheme/srfi/srfi-37.scm + + Copyright (c) 2002 Anthony Carrico + + [The declared license exactly matches the one in COPYING. --twb] + +scheme/srfi/srfi-40.scm + + Copyright (C) 2003 by Philip L. Bewig of Saint Louis, Missouri, + United States of America. All rights reserved. + + This document and translations of it may be copied and furnished + to others, and derivative works that comment on or otherwise + explain it or assist in its implementation may be prepared, + copied, published and distributed, in whole or in part, without + restriction of any kind, provided that the above copyright notice + and this paragraph are included on all such copies and derivative + works. However, this document itself may not be modified in any + way, such as by removing the copyright notice or references to the + Scheme Request For Implementation process or editors, except as + needed for the purpose of developing SRFIs in which case the + procedures for copyrights defined in the SRFI process must be + followed, or as required to translate it into languages other than + English. + + The limited permissions granted above are perpetual and will not + be revoked by the authors or their successors or assigns. + + This document and the information contained herein is provided on + an "AS IS" basis and THE AUTHOR AND THE SRFI EDITORS DISCLAIM ALL + WARRANTIES, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO ANY + WARRANTY THAT THE USE OF THE INFORMATION HEREIN WILL NOT INFRINGE + ANY RIGHTS OR ANY IMPLIED WARRANTIES OF MERCHANTABILITY OR FITNESS + FOR A PARTICULAR PURPOSE. + +scheme/srfi/srfi-42.scm +scheme/srfi/srfi-43.scm + + Taylor Campbell wrote this code; he places it in the public domain. + +scheme/srfi/srfi-45.scm + + Copyright (C) André van Tonder (2003). All Rights Reserved. + + This document and translations of it may be copied and furnished + to others, and derivative works that comment on or otherwise + explain it or assist in its implementation may be prepared, + copied, published and distributed, in whole or in part, without + restriction of any kind, provided that the above copyright notice + and this paragraph are included on all such copies and derivative + works. However, this document itself may not be modified in any + way, such as by removing the copyright notice or references to the + Scheme Request For Implementation process or editors, except as + needed for the purpose of developing SRFIs in which case the + procedures for copyrights defined in the SRFI process must be + followed, or as required to translate it into languages other than + English. + + The limited permissions granted above are perpetual and will not + be revoked by the authors or their successors or assigns. + + This document and the information contained herein is provided on + an "AS IS" basis and THE AUTHOR AND THE SRFI EDITORS DISCLAIM ALL + WARRANTIES, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO ANY + WARRANTY THAT THE USE OF THE INFORMATION HEREIN WILL NOT INFRINGE + ANY RIGHTS OR ANY IMPLIED WARRANTIES OF MERCHANTABILITY OR FITNESS + FOR A PARTICULAR PURPOSE. + +scheme/srfi/srfi-60.scm + + Copyright (C) 2005 David Van Horn + + Released under the same terms as the SRFI reference implementation + included below. + + Copyright (C) 1991, 1993, 2001, 2003, 2005 Aubrey Jaffer + + Permission to copy this software, to modify it, to redistribute + it, to distribute modified versions, and to use it for any purpose + is granted, subject to the following restrictions and + understandings. + + 1. Any copy made of this software must include this copyright + notice in full. + + 2. I have made no warranty or representation that the operation + of this software will be error-free, and I am under no obligation + to provide any services, by way of maintenance, update, or + otherwise. + + 3. In conjunction with products arising from the use of this + material, there shall be no use of my name in any advertising, + promotional, or sales literature without prior written consent in + each case. + +scheme/srfi/srfi-61.scm + + Copyright (C) 2004 Taylor Campbell. All rights reserved. + + This document and translations of it may be copied and furnished + to others, and derivative works that comment on or otherwise + explain it or assist in its implementation may be prepared, + copied, published and distributed, in whole or in part, without + restriction of any kind, provided that the above copyright notice + and this paragraph are included on all such copies and derivative + works. However, this document itself may not be modified in any + way, such as by removing this copyright notice or references to + the Scheme Request for Implementation process or editors, except + as needed for the purpose of developing SRFIs in which case the + procedures for copyrights defined in the SRFI process must be + followed, or as required to translate it into languages other than + English. + + The limited permissions granted above are perpetual and will not + be revoked by the authors or their successors or assigns. + + This document and the information contained herein is provided on + an "AS IS" basis and THE AUTHORS AND THE SRFI EDITORS DISCLAIM ALL + WARRANTIES, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO ANY + WARRANTY THAT THE USE OF THE INFORMATION HEREIN WILL NOT INFRINGE + ON ANY RIGHTS OR ANY IMPLIED WARRANTIES OF MERCHANTABILITY OR + FITNESS FOR A PARTICULAR PURPOSE. + +scheme/srfi/srfi-67.scm + + Copyright (c) 2005 Sebastian Egner and Jens Axel S{\o}gaard. + + Permission is hereby granted, free of charge, to any person + obtaining a copy of this software and associated documentation + files (the ``Software''), to deal in the Software without + restriction, including without limitation the rights to use, copy, + modify, merge, publish, distribute, sublicense, and/or sell copies + of the Software, and to permit persons to whom the Software is + furnished to do so, subject to the following conditions: + + The above copyright notice and this permission notice shall be + included in all copies or substantial portions of the Software. + + THE SOFTWARE IS PROVIDED ``AS IS'', WITHOUT WARRANTY OF ANY KIND, + EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF + MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND + NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT + HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, + WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, + OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER + DEALINGS IN THE SOFTWARE. + +scheme/srfi/srfi-78.scm + + Copyright (c) 2005-2006 Sebastian Egner. + + Permission is hereby granted, free of charge, to any person + obtaining a copy of this software and associated documentation + files (the ``Software''), to deal in the Software without + restriction, including without limitation the rights to use, copy, + modify, merge, publish, distribute, sublicense, and/or sell copies + of the Software, and to permit persons to whom the Software is + furnished to do so, subject to the following conditions: + + The above copyright notice and this permission notice shall be + included in all copies or substantial portions of the Software. + + THE SOFTWARE IS PROVIDED ``AS IS'', WITHOUT WARRANTY OF ANY KIND, + EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF + MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND + NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT + HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, + WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, + OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER + DEALINGS IN THE SOFTWARE. --- scheme48-1.8+dfsg.orig/debian/scheme48.docs +++ scheme48-1.8+dfsg/debian/scheme48.docs @@ -0,0 +1,3 @@ +doc/news.txt +doc/todo.txt +README --- scheme48-1.8+dfsg.orig/debian/README.Debian +++ scheme48-1.8+dfsg/debian/README.Debian @@ -0,0 +1,51 @@ +scheme48 for Debian +------------------- + +Library Packages +================ + +Debian packages which provide library functionality for Scheme48 +should put their package definition files into + + /usr/share/scheme48// + +These can be loaded as usual with + + ,config ,load /usr/share/scheme48//packages.scm + + +Why not multiple versions in parallel? +====================================== + +It would be useful to provide a scheme48 dependency package that just +depends on the version-specific scheme48-X.Y* packages, so that +multiple versions of scheme48 can coexist. Upstream is now set up +this way, but I (dmoerner) don't have the expertise to set this up yet. + + +Acknowledgments +=============== + +I want to thank Riastradh of #scheme on freenode for his patience and +the endless amount of help he provided. Without him, this package +wouldn't be here. + + +Slime48 +======= + +Slime48 is an IDE for Scheme48 built on top of the Common Lisp IDE for +Emacs, SLIME. The Slime48 author writes: + + SLIME48 works only with Scheme48 1.3 because of gratuitous, + incompatible changes in Scheme48, and, more prominently, support + for Unicode in in 1.5 and later in a way that I strongly disagree + with. + + -- http://mumble.net/~campbell/slime48.html + +Thus, Slime48 WILL NOT WORK with this Scheme48 package. The less +powerful comint mechanism provided by cmuscheme.el or cmuscheme48.el +still work. + + -- Daniel Moerner , Mon, 2 Mar 2009 20:24:12 -0800 --- scheme48-1.8+dfsg.orig/debian/scheme48.install +++ scheme48-1.8+dfsg/debian/scheme48.install @@ -0,0 +1 @@ +debian/tmp/* --- scheme48-1.8+dfsg.orig/debian/changelog +++ scheme48-1.8+dfsg/debian/changelog @@ -0,0 +1,169 @@ +scheme48 (1.8+dfsg-1+deb6u1ubuntu12.04.1) precise-security; urgency=medium + + * Merge from debian. + + -- Steve Beattie Mon, 25 Apr 2016 17:37:17 -0700 + +scheme48 (1.8+dfsg-1+deb6u1) squeeze-lts; urgency=medium + + * patch for insecure use of tmpfile (Closes: #748766) + (reported by Steve Kemp, patch by Michael Sperber) + (CVE-2014-4150) + + -- Thorsten Alteholz Sun, 14 Jun 2014 16:00:00 +0200 + +scheme48 (1.8+dfsg-1ubuntu1) oneiric; urgency=low + + * Fix link order to list libraries after the objects that require them + (LP: #832929). + + -- Colin Watson Sun, 18 Sep 2011 02:18:11 +0100 + +scheme48 (1.8+dfsg-1) unstable; urgency=low + + * Repack upstream tarball to remove non-dfsg-free emacs/cmulisp.el + (Closes: #509860) + * debian/copyright: Add a note explaining the removal of emacs/cmulisp.el + * debian/control: + - Change to Section: lisp + - Bump to Debian Policy version 3.8.1 + - Added DM-Upload-Allowed: yes + * debian/watch: Add dversionmangle to remove +dfsg from local version. + * debian/patches/hurd-i386-fix-ftbfs.diff: Manually define MAXHOSTNAMELEN on + hurd-i386 since it doesn't exist there, and manually include pthread.h, + fixing a FTBFS. + * debian/rules: Manually pass -pthread in LDFLAGS, finishes the fix for the + FTBFS on hurd-i386. (Closes: #531928) + + -- Daniel Moerner Sat, 06 Jun 2009 15:24:27 -0700 + +scheme48 (1.8-2) unstable; urgency=low + + [ Trent W. Buck] + * scheme48-doc.links: Fix scheme48-doc symlinks (Closes: #508621). + * scheme48-doc.doc-base: fix section (no Applications/). + * rules: remove autogenerated file c/scheme48.def. + * control: add Homepage (Closes: #481850), bump to 3.8.0 + * scheme48.lintian-overrides: whitelist SRFI 7 in shebang. + + [ Daniel Moerner ] + * New maintainer (Closes: #515544) + * debian/compat: + - Switch to compat level 7 + * debian/rules: + - Switch to dh 7 + - Keep config.guess and config.sub updated + * debian/patches: + - Add makefile-add-_GNU_SOURCE.diff to fix glibc-2.9 compile error. + - Add makefile-add-lc-to-LDFLAGS.diff to give dependency info to library. + - Add man-properly-escape-minuses.diff to satisfy lintian. + - Modify debian-user-name.diff to use hostname of builder. + - Modify bugfix-wait-for-child-eats-100%-cpu.diff to add a description + that actually describes the bugfix. + * debian/control: + - Add ${misc:Depends}. + - Add Vcs-Git and Vcs-Browswer fields. + - Remove cdbs; switch to debhelper version 7 or newer. + - Add Build-Depends on autotools-dev + * debian/manpages: + - Created manpage scheme48-config.1 and installed in scheme48 package. + - Removed scheme48.1, we now use scheme48.man instead. + * debian/README.Debian: + - Clean up old entries, change comments about twb not implementing + multiple concurrent versions of scheme48 to reference my name. + * debian/scheme48.docs: + - Install README and doc/todo.txt as docs. + * debian/cmuscheme48-el.emacsen-{install,remove} + - Replace old references to prolog-el with cmuscheme48-el. + + -- Daniel Moerner Mon, 02 Mar 2009 21:40:29 -0800 + +scheme48 (1.8-1) unstable; urgency=low + + * New upstream release + * Native 64-bit support (without jumping through hoops). + * Upstream's tarball contains two copies of c/scheme48write-barrier.h, + which upsets dpkg-source -b. Therefore, ship a custom .orig.tar.gz. + * debian/control, debian/rules: drop biarch hack. + * debian/control: drop scheme48-scm (see README.Debian). + * debian/rules: use DESTDIR (supported upstream since 1.7). + * debian/watch: fix. + * debian/patches: refresh fuzzy patches. + Drop fix-mandir, fix-use-installed-vm, dont-conflict-with-scsh: they + seem to be obsolete. + * Install docs in /usr/share/doc/scheme48 rather than ...-doc. + * debian/control (Standards-Version): bump to 3.7.3. + + -- Trent W. Buck Fri, 16 May 2008 01:08:41 +1000 + +scheme48 (1.7-1) unstable; urgency=low + + * New upstream release (closes: #410401). + * New maintainer (closes: #411425, #451063). + * debian/control (cmuscheme48-el): update Emacs dependency. + * debian/patches: resolve merge conflicts (fuzz, offsets, &c). + * debian/copyright: since I can never tell how pedantic license + declaration must be, I have opted to be maximally pedantic. + * Riku Voipio: add armeb, armel and sh4 to architecture list, closes: #469873 + + -- Trent W. Buck Mon, 26 Nov 2007 21:39:41 +1100 + +scheme48 (1.6-1) UNRELEASED; urgency=low + + * New upstream release. + * Remove #318558 fix; problem seems to be fixed by new upstream. + * Remove gnuemacs-replace-in-string patch (fixed upstream). + * Use cdbs. + * Upgrade standards version to 3.7.2, debhelper 5. + * Support amd64 via -m32. + * Remove fuzz, offsets in patches. + * Discard empty file from doc/html to appease lintian. + * Trent Buck is an uploader. + + -- Trent Buck Fri, 22 Jun 2007 21:02:10 +1000 + +scheme48 (1.3-6) unstable; urgency=low + + * Fix permissions in the orig.tar.gz that got broken due to darcs + (Closes: #370416) + + -- Jorgen Schaefer Mon, 5 Jun 2006 16:56:35 +0200 + +scheme48 (1.3-5) unstable; urgency=low + + * Use quilt. + * Apply bugfix-wait-for-child-eats-100%-cpu (Closes: #348352) + + -- Jorgen Schaefer Sun, 4 Jun 2006 22:36:04 +0200 + +scheme48 (1.3-4) unstable; urgency=low + + * Don't build on 64 bit architectures (Closes: #324390) + + -- Jorgen Schaefer Mon, 22 Aug 2005 06:47:31 +0200 + +scheme48 (1.3-3) unstable; urgency=low + + * Don't regenerate files that don't need to be regenerated. + Really (Closes: #318558) + + -- Jorgen Schaefer Sun, 17 Jul 2005 00:29:33 +0200 + +scheme48 (1.3-2) unstable; urgency=low + + * Use the locally-built VM for creating filenames (Closes: #318558) + + -- Jorgen Schaefer Sat, 16 Jul 2005 19:42:10 +0200 + +scheme48 (1.3-1) unstable; urgency=low + + * New upstream release. + + -- Jorgen Schaefer Thu, 14 Jul 2005 13:46:05 +0200 + +scheme48 (1.2-1) unstable; urgency=low + + * Initial Release. (Closes: #265266) + + -- Jorgen Schaefer Sun, 26 Jun 2005 16:27:35 +0200 + --- scheme48-1.8+dfsg.orig/debian/scheme48.lintian-overrides +++ scheme48-1.8+dfsg/debian/scheme48.lintian-overrides @@ -0,0 +1 @@ +scheme48: unusual-interpreter ./usr/bin/scheme48-config #!/usr/bin/scheme-srfi-7 --- scheme48-1.8+dfsg.orig/debian/scheme48.menu +++ scheme48-1.8+dfsg/debian/scheme48.menu @@ -0,0 +1,2 @@ +?package(scheme48):needs="vc" section="Applications/Programming"\ + title="scheme48" command="/usr/bin/scheme48" --- scheme48-1.8+dfsg.orig/debian/control +++ scheme48-1.8+dfsg/debian/control @@ -0,0 +1,50 @@ +Source: scheme48 +Section: lisp +Priority: optional +Maintainer: Ubuntu Developers +XSBC-Original-Maintainer: Daniel Moerner +Build-Depends: debhelper (>= 7), quilt, autotools-dev +Standards-Version: 3.8.1 +Vcs-Git: git://git.debian.org/git/collab-maint/scheme48.git +Vcs-Browser: http://git.debian.org/?p=collab-maint/scheme48.git +Homepage: http://s48.org/ +DM-Upload-Allowed: yes + +Package: scheme48 +Architecture: any +Provides: scheme-r5rs, scheme-srfi-7 +Depends: ${shlibs:Depends}, ${misc:Depends} +Suggests: scheme48-doc, cmuscheme48-el +Description: A simple, modular, and lightweight Scheme implementation + Scheme48 is an implementation of Scheme written by Richard Kelsey + and Jonathan Rees. It is based on a byte-code interpreter and + incorporates such elements as a sophisticated module system, a + pre-emptive & user-level thread system, a well-integrated + interactive environment, Clinger's explicit renaming low-level + macros, and decent efficiency for its architecture. + +Package: scheme48-doc +Architecture: all +Section: doc +Depends: ${misc:Depends} +Recommends: scheme48 +Description: Documentation for the Scheme48 implementation of Scheme + Scheme48 is an implementation of Scheme written by Richard Kelsey + and Jonathan Rees. It is based on a byte-code interpreter and + incorporates such elements as a sophisticated module system, a + pre-emptive & user-level thread system, a well-integrated + interactive environment, Clinger's explicit renaming low-level + macros, and decent efficiency for its architecture. + . + This package provides "The Incomplete Scheme48 Reference Manual" in + html and pdf form. + +Package: cmuscheme48-el +Architecture: all +Depends: emacsen-common, emacs22 | emacsen, scheme48, ${misc:Depends} +Description: Emacs mode specialized for Scheme48 + Scheme48 associates loaded code with specific files. This extension + to the normal scheme-mode of Emacs uses this facility to associated + data sent to a inferior Scheme process with the correct file. Scheme + 48 will automatically evaluate the code in the correct package for + the file. --- scheme48-1.8+dfsg.orig/debian/scheme48-doc.links +++ scheme48-1.8+dfsg/debian/scheme48-doc.links @@ -0,0 +1,2 @@ +usr/share/doc/scheme48/html usr/share/doc/scheme48-doc/html +usr/share/doc/scheme48/manual.pdf usr/share/doc/scheme48-doc/manual.pdf --- scheme48-1.8+dfsg.orig/debian/cmuscheme48-el.install +++ scheme48-1.8+dfsg/debian/cmuscheme48-el.install @@ -0,0 +1 @@ +emacs/cmuscheme48.el usr/share/emacs/site-lisp/cmuscheme48-el/ --- scheme48-1.8+dfsg.orig/debian/cmuscheme48-el.README.Debian +++ scheme48-1.8+dfsg/debian/cmuscheme48-el.README.Debian @@ -0,0 +1,11 @@ +cmuscheme48 for Debian +---------------------- + +Since cmuscheme48 incompatibly modifies the `scheme-mode-map', it is +not loaded by default. To activate it, add the following to your +.emacs: + + (eval-after-load "cmuscheme" + '(require 'cmuscheme48)))) + + -- Jorgen Schaefer , Mon Apr 18 02:11:10 2005 --- scheme48-1.8+dfsg.orig/debian/watch +++ scheme48-1.8+dfsg/debian/watch @@ -0,0 +1,21 @@ +# See uscan(1) manual for info. +# This file is currently broken. When it works, move it to ./watch. +version=3 + +# Because http://s48.org/ has a link to 1.7/download.html instead of +# to 1.7/ -- this means that the naïve +# +# http://s48.org/(?:[[:digit:].]+)/scheme48-(?:[[:digit:].]+).tgz +# +# doesn't work, because uscan fetches http://s48.org/ and tries to +# find a link matching (?:[[:digit:].]+)/?$, which 1.7/download.html +# does not. +# +# Eric Cooper provided the following (working) replacement: +#opts=downloadurlmangle=s{s48.org/(.*)/download.html}{s48.org/$1/scheme48-$1.tgz} \ +# http://s48.org/index.html (.*)/download.html +# +# Daniel Leidert provided the following (working) replacement: +# dversionmangle shamelessly stolen from http://wiki.debian.org/DEHS +opts=dversionmangle=s/\+dfsg//,downloadurlmangle=s{([^/]+)/download.html$}{$1/scheme48-$1.tgz},filenamemangle=s{([^/]+)/download.html}{scheme48-$1.tgz} \ + http://s48.org/index.html ([\d\.]+)/download.html --- scheme48-1.8+dfsg.orig/debian/compat +++ scheme48-1.8+dfsg/debian/compat @@ -0,0 +1 @@ +7 --- scheme48-1.8+dfsg.orig/debian/scheme48-doc.doc-base +++ scheme48-1.8+dfsg/debian/scheme48-doc.doc-base @@ -0,0 +1,13 @@ +Document: scheme48 +Title: Scheme48 Reference Manual +Author: Richard Kelsey, Jonathan Rees, Mike Sperber +Abstract: This is the reference manual for the scheme48 Scheme + implementation. +Section: Programming + +Format: pdf +Files: /usr/share/doc/scheme48/manual.pdf.gz + +Format: HTML +Index: /usr/share/doc/scheme48/html/manual.html +Files: /usr/share/doc/scheme48/html/*.html --- scheme48-1.8+dfsg.orig/debian/scheme48.manpages +++ scheme48-1.8+dfsg/debian/scheme48.manpages @@ -0,0 +1,3 @@ +debian/manpages/scheme-r5rs.scheme48.1 +debian/manpages/scheme-srfi-7.scheme48.1 +debian/manpages/scheme48-config.1 --- scheme48-1.8+dfsg.orig/debian/scheme48.postinst +++ scheme48-1.8+dfsg/debian/scheme48.postinst @@ -0,0 +1,55 @@ +#! /bin/sh +# postinst script for foo +# +# see: dh_installdeb(1) + +set -e + +# summary of how this script can be called: +# * `configure' +# * `abort-upgrade' +# * `abort-remove' `in-favour' +# +# * `abort-deconfigure' `in-favour' +# `removing' +# +# for details, see http://www.debian.org/doc/debian-policy/ or +# the debian-policy package +# + +case "$1" in + configure) + update-alternatives --install /usr/bin/scheme-r5rs \ + scheme-r5rs \ + /usr/bin/scheme-r5rs.scheme48 \ + 20 \ + --slave /usr/share/man/man1/scheme-r5rs.1 \ + scheme-r5rs.1 \ + /usr/share/man/man1/scheme-r5rs.scheme48.1.gz + update-alternatives --install /usr/bin/scheme-srfi-7 \ + scheme-srfi-7 \ + /usr/bin/scheme-srfi-7.scheme48 \ + 20 \ + --slave /usr/share/man/man1/scheme-srfi-7.1 \ + scheme-srfi-7.1 \ + /usr/share/man/man1/scheme-srfi-7.scheme48.1.gz + ;; + + abort-upgrade|abort-remove|abort-deconfigure) + + ;; + + *) + echo "postinst called with unknown argument \`$1'" >&2 + exit 1 + ;; +esac + +# dh_installdeb will replace this with shell code automatically +# generated by other debhelper scripts. + +#DEBHELPER# + +exit 0 + + --- scheme48-1.8+dfsg.orig/debian/manpages/scheme48-config.1 +++ scheme48-1.8+dfsg/debian/manpages/scheme48-config.1 @@ -0,0 +1,22 @@ +.\" DO NOT MODIFY THIS FILE! It was generated by help2man 1.36. +.TH SCHEME48-CONFIG 1 "March 2009" +.SH NAME +scheme48-config \- tool to list compile-time options of scheme48 +.SH SYNOPSIS +.B scheme48\-config +.RI [\-\-ld] +.RI [\-\-cc] +.RI [\-\-libs\-external] +.RI [\-\-cflags\-external] +.RI [\-\-help] +.SH DESCRIPTION +scheme48-config allows the user to observe the options used to compile scheme48. +It prints the information requested by each command line switch to STDOUT, +without newlines. +.SH AUTHOR +scheme48-config is part of scheme48, a Scheme interpreter written by Richard +Kelsey and Jonathan Rees. +.PP +This manual page was written by Daniel Moerner , for the +Debian project (but may be used by others). It is a heavily modified version +of the output of help2man. --- scheme48-1.8+dfsg.orig/debian/manpages/scheme-r5rs.scheme48.1 +++ scheme48-1.8+dfsg/debian/manpages/scheme-r5rs.scheme48.1 @@ -0,0 +1,44 @@ +.\" Hey, EMACS: -*- nroff -*- +.\" First parameter, NAME, should be all caps +.\" Second parameter, SECTION, should be 1-8, maybe w/ subsection +.\" other parameters are allowed: see man(7), man(1) +.TH SCHEME-R5RS 1 "April 16, 2005" +.\" Please adjust this date whenever revising the manpage. +.\" +.\" Some roff macros, for reference: +.\" .nh disable hyphenation +.\" .hy enable hyphenation +.\" .ad l left justify +.\" .ad b justify to both left and right margins +.\" .nf disable filling +.\" .fi enable filling +.\" .br insert line break +.\" .sp insert n+1 empty lines +.\" for manpage-specific macros, see man(7) +.SH NAME +scheme-r5rs \- Run a Scheme script in an R5RS environment +.SH SYNOPSIS +.B scheme-r5rs +.RI program-file " arguments" ... +.SH DESCRIPTION + +This command runs a Scheme script from the command line. It will load +the Scheme script given in +.B program-file +into an R5RS environment and call the +.B main +procedure with the +.B arguments +as a single list of strings. + +.SH SEE ALSO +.BR scheme-srfi-7.scheme48 (1), +.br +.BR SRFI 22 " (http://srfi.schemers.org/srfi-22/srfi-22.html)" + +.SH AUTHORS +.B scheme-r5rs +for Scheme48 was written by Richard Kelsey and Jonathan Rees. +.BR +This manual page was written by Jorgen Schaefer , +for the Debian project (but may be used by others). --- scheme48-1.8+dfsg.orig/debian/manpages/scheme-srfi-7.scheme48.1 +++ scheme48-1.8+dfsg/debian/manpages/scheme-srfi-7.scheme48.1 @@ -0,0 +1,46 @@ +.\" Hey, EMACS: -*- nroff -*- +.\" First parameter, NAME, should be all caps +.\" Second parameter, SECTION, should be 1-8, maybe w/ subsection +.\" other parameters are allowed: see man(7), man(1) +.TH SCHEME-SRFI-7 1 "April 16, 2005" +.\" Please adjust this date whenever revising the manpage. +.\" +.\" Some roff macros, for reference: +.\" .nh disable hyphenation +.\" .hy enable hyphenation +.\" .ad l left justify +.\" .ad b justify to both left and right margins +.\" .nf disable filling +.\" .fi enable filling +.\" .br insert line break +.\" .sp insert n+1 empty lines +.\" for manpage-specific macros, see man(7) +.SH NAME +scheme-srfi-7 \- Run a Scheme script in an SRFI 7 environment +.SH SYNOPSIS +.B scheme-srfi-7 +.RI program-file " arguments" ... +.SH DESCRIPTION + +This command runs a Scheme script from the command line. It will load +the Scheme script given in +.B program-file +into an SRFI 7 environment and call the +.B main +procedure with the +.B arguments +as a single list of strings. + +.SH SEE ALSO +.BR scheme-r5rs.scheme48 (1), +.br +.BR SRFI 22 " (http://srfi.schemers.org/srfi-22/srfi-22.html)" +.br +.BR SRFI 7 " "(http://srfi.schemers.org/srfi-7/srfi-7.html) + +.SH AUTHORS +.B scheme-srfi-7 +for Scheme48 was written by Richard Kelsey and Jonathan Rees. +.PP +This manual page was written by Jorgen Schaefer , +for the Debian project (but may be used by others). --- scheme48-1.8+dfsg.orig/debian/patches/man-properly-escape-minuses.diff +++ scheme48-1.8+dfsg/debian/patches/man-properly-escape-minuses.diff @@ -0,0 +1,24 @@ +Quiet lintian by properly escaping minus signs in upstream manpage. + +Index: scheme48/doc/scheme48.man +=================================================================== +--- scheme48.orig/doc/scheme48.man 2009-03-02 19:41:25.000000000 -0800 ++++ scheme48/doc/scheme48.man 2009-03-02 19:42:01.000000000 -0800 +@@ -6,7 +6,7 @@ + LS48 \- a Scheme interpreter + .SH SYNOPSIS + .B LS48 +-[-i image] [-h heapsize] [-a argument] ++[\-i image] [\-h heapsize] [\-a argument] + .SH DESCRIPTION + .B LS48 + is an implementation of the Scheme programming language as described in +@@ -80,7 +80,7 @@ + .nf + > ,build (lambda (a) (display a) (newline) 0) foo.image + > ,exit +- $ LS48 -i foo.image -a mumble ++ $ LS48 \-i foo.image \-a mumble + mumble + $ + .PP --- scheme48-1.8+dfsg.orig/debian/patches/no-env-trampoline.diff +++ scheme48-1.8+dfsg/debian/patches/no-env-trampoline.diff @@ -0,0 +1,13 @@ +We don't want to use env in the config because update-alternatives is handling the +relevant binary. + +Index: scheme48-1.8/build/scheme48-config.in +=================================================================== +--- scheme48-1.8.orig/build/scheme48-config.in 2008-12-18 14:06:25.000000000 +1100 ++++ scheme48-1.8/build/scheme48-config.in 2008-12-18 14:06:52.000000000 +1100 +@@ -1,4 +1,4 @@ +-#! /usr/bin/env scheme-srfi-7 ++#! /usr/bin/scheme-srfi-7 + + (program + (requires srfi-37) ; args-fold --- scheme48-1.8+dfsg.orig/debian/patches/series +++ scheme48-1.8+dfsg/debian/patches/series @@ -0,0 +1,11 @@ +no-env-trampoline.diff +bugfix-wait-for-child-eats-100%-cpu.diff +debian-srfi-22-interpreter-name.diff +debian-user-name.diff +honor-destdir.diff +makefile-add-_GNU_SOURCE.diff +makefile-add-lc-to-LDFLAGS.diff +man-properly-escape-minuses.diff +hurd-i386-fix-ftbfs.diff +link-order.diff +security-tmpfile.patch --- scheme48-1.8+dfsg.orig/debian/patches/debian-srfi-22-interpreter-name.diff +++ scheme48-1.8+dfsg/debian/patches/debian-srfi-22-interpreter-name.diff @@ -0,0 +1,34 @@ +This causes the standardized interfaces scheme-{r5rs,srfi-7} to be +installed with the "scheme48" suffix, which postinst aliases to the +suffix-less names. This allows other packages to provide alternatives +for these interfaces. +Index: scheme48-1.8/c/script-interpreter.c +=================================================================== +--- scheme48-1.8.orig/c/script-interpreter.c 2008-01-11 03:00:43.000000000 +1100 ++++ scheme48-1.8/c/script-interpreter.c 2008-05-15 19:54:13.000000000 +1000 +@@ -34,6 +34,12 @@ + } + language_tag = p + 7; + ++ /* Debian specific: Live with scheme-r5rs.scheme48 */ ++ p = strchr(language_tag, '.'); ++ if (p) { ++ *p = '\0'; ++ } ++ + new_argv = (char **)malloc((argc + 4) * sizeof(char *)); + if (!new_argv) + { +Index: scheme48-1.8/Makefile.in +=================================================================== +--- scheme48-1.8.orig/Makefile.in 2008-01-27 02:06:27.000000000 +1100 ++++ scheme48-1.8/Makefile.in 2008-05-15 19:54:13.000000000 +1000 +@@ -405,7 +405,7 @@ + inst-script-interpreters: + for dialect in r5rs srfi-7; do \ + $(INSTALL_PROGRAM) script-interpreter \ +- $(DESTDIR)$(bindir)/scheme-$$dialect; \ ++ $(DESTDIR)$(bindir)/scheme-$$dialect.scheme48; \ + done + + inst-config-script: --- scheme48-1.8+dfsg.orig/debian/patches/hurd-i386-fix-ftbfs.diff +++ scheme48-1.8+dfsg/debian/patches/hurd-i386-fix-ftbfs.diff @@ -0,0 +1,35 @@ +This patch fixes two ways that scheme48 fails to build from source on +hurd-i386. First, pthread.h must be manually included since it's part +of hurd-dev, not libc6-dev. Second, MAXHOSTNAMELEN is not defined on +hurd-i386, so we manually define it here. There are more elegant ways +to fix MAXHOSTNAMELEN that involve checking the hostname length at +runtime and dynamically reallocating memory, but since upstream's +development branch has already deprecated this code I implemented the +simple fix. + + -- Daniel Moerner Thu, 04 Jun 2009 22:08:13 -0700 + +diff --git a/c/unix/socket.c b/c/unix/socket.c +index a0a5e34..a994fc2 100644 +--- a/c/unix/socket.c ++++ b/c/unix/socket.c +@@ -19,6 +19,7 @@ + #include + #include + #include ++#include /* manual inclusion needed on hurd-i386 */ + + #include "c-mods.h" + #include "scheme48.h" +@@ -29,6 +30,11 @@ + /* Henry Cejtin says that 5 is the largest safe number for this. */ + #define LISTEN_QUEUE_SIZE 5 + ++/* MAXHOSTNAMELEN is not defined on hurd-i386, so we manually define it now. */ ++#ifndef MAXHOSTNAMELEN ++#define MAXHOSTNAMELEN 1024 ++#endif ++ + extern void s48_init_socket(void); + static s48_value s48_socket(s48_value udp_p, s48_value input_p), + s48_bind(s48_value socket_channel, s48_value number), --- scheme48-1.8+dfsg.orig/debian/patches/honor-destdir.diff +++ scheme48-1.8+dfsg/debian/patches/honor-destdir.diff @@ -0,0 +1,14 @@ +Fix a bug introduced in 1.8. +Index: scheme48-1.8/Makefile.in +=================================================================== +--- scheme48-1.8.orig/Makefile.in 2008-05-15 22:56:54.000000000 +1000 ++++ scheme48-1.8/Makefile.in 2008-05-15 23:03:04.000000000 +1000 +@@ -409,7 +409,7 @@ + done + + inst-config-script: +- config_script=$(bindir)/$(CONFIG_SCRIPT) && \ ++ config_script=$(DESTDIR)/$(bindir)/$(CONFIG_SCRIPT) && \ + sed -e 's,@incdir\@,$(incdir),g' \ + -e 's,@libdir\@,$(libdir),g' \ + -e 's,@CC\@,$(CC),g' \ --- scheme48-1.8+dfsg.orig/debian/patches/bugfix-wait-for-child-eats-100%-cpu.diff +++ scheme48-1.8+dfsg/debian/patches/bugfix-wait-for-child-eats-100%-cpu.diff @@ -0,0 +1,111 @@ +This patch is needed to avoid a loop with waitpid() that leads to 100% cpu usage +under certain conditions. This patch solves the problem by moving the loop into +Scheme code instead of C. + +Patch by Andreas Rottmann +Index: scheme48-1.8/c/posix/proc.c +=================================================================== +--- scheme48-1.8.orig/c/posix/proc.c 2008-01-16 23:50:48.000000000 +1100 ++++ scheme48-1.8/c/posix/proc.c 2008-05-15 20:12:51.000000000 +1000 +@@ -256,37 +256,35 @@ + static s48_value + posix_waitpid(void) + { +- while(1==1) { +- int stat; +- pid_t c_pid = waitpid(-1, &stat, WNOHANG); +- if (c_pid == -1) { +- if (errno == ECHILD) /* no one left to wait for */ +- return S48_FALSE; +- else if (errno != EINTR) +- s48_raise_os_error(errno); +- } +- else { +- s48_value sch_pid = lookup_pid(c_pid); +- s48_value temp = S48_UNSPECIFIC; +- S48_DECLARE_GC_PROTECT(2); ++ int stat; ++ pid_t c_pid = waitpid(-1, &stat, WNOHANG); ++ if (c_pid == -1) { ++ if (errno == ECHILD) /* no one left to wait for */ ++ return S48_FALSE; ++ else if (errno != EINTR) ++ s48_raise_os_error(errno); ++ } ++ else { ++ s48_value sch_pid = lookup_pid(c_pid); ++ s48_value temp = S48_UNSPECIFIC; ++ S48_DECLARE_GC_PROTECT(2); + +- S48_GC_PROTECT_2(sch_pid, temp); +- +- if (sch_pid != S48_FALSE) { +- if (WIFEXITED(stat)) +- S48_UNSAFE_RECORD_SET(sch_pid, 1, s48_enter_fixnum(WEXITSTATUS(stat))); +- else { +- temp = enter_signal(WTERMSIG(stat)); +- S48_UNSAFE_RECORD_SET(sch_pid, 2, temp); +- } ++ S48_GC_PROTECT_2(sch_pid, temp); + +- S48_GC_UNPROTECT(); +- return sch_pid; ++ if (sch_pid != S48_FALSE) { ++ if (WIFEXITED(stat)) ++ S48_UNSAFE_RECORD_SET(sch_pid, 1, s48_enter_fixnum(WEXITSTATUS(stat))); ++ else { ++ temp = enter_signal(WTERMSIG(stat)); ++ S48_UNSAFE_RECORD_SET(sch_pid, 2, temp); + } +- else +- S48_GC_UNPROTECT(); ++ S48_GC_UNPROTECT(); ++ return sch_pid; + } ++ else ++ S48_GC_UNPROTECT(); + } ++ return S48_TRUE; /* need to call again */ + } + + /* +Index: scheme48-1.8/scheme/posix/packages.scm +=================================================================== +--- scheme48-1.8.orig/scheme/posix/packages.scm 2008-01-11 03:00:49.000000000 +1100 ++++ scheme48-1.8/scheme/posix/packages.scm 2008-05-15 20:12:51.000000000 +1000 +@@ -182,6 +182,7 @@ + external-calls load-dynamic-externals + interrupts + placeholders ++ (subset threads (sleep)) + weak + value-pipes + debug-messages +Index: scheme48-1.8/scheme/posix/proc.scm +=================================================================== +--- scheme48-1.8.orig/scheme/posix/proc.scm 2008-01-11 03:00:49.000000000 +1100 ++++ scheme48-1.8/scheme/posix/proc.scm 2008-05-15 20:12:51.000000000 +1000 +@@ -146,14 +146,15 @@ + (car maybe-pid)))) + (let loop () + (let ((next (posix-waitpid))) +- (if next +- (let ((placeholder (process-id-placeholder next))) +- (if placeholder +- (begin +- (placeholder-set! placeholder #t) +- (set-process-id-placeholder! pid #f))) ; no longer needed +- (if (not (eq? pid next)) +- (loop)))))))) ++ (cond ((eqv? next #t) (sleep 5) (loop)) ++ (next ++ (let ((placeholder (process-id-placeholder next))) ++ (if placeholder ++ (begin ++ (placeholder-set! placeholder #t) ++ (set-process-id-placeholder! pid #f))) ; no longer needed ++ (if (not (eq? pid next)) ++ (loop))))))))) + + (import-lambda-definition posix-waitpid ()) + --- scheme48-1.8+dfsg.orig/debian/patches/debian-user-name.diff +++ scheme48-1.8+dfsg/debian/patches/debian-user-name.diff @@ -0,0 +1,16 @@ +The scheme48.image entry point procedure prints a welcome message that +includes "built by Fred" where Fred is the username of the user that +built Scheme48. Make this be the output of `hostname -s` +Index: scheme48-1.8/build/build-usual-image +=================================================================== +--- scheme48-1.8.orig/build/build-usual-image 2008-01-09 04:32:54.000000000 +1100 ++++ scheme48-1.8/build/build-usual-image 2008-05-15 19:53:46.000000000 +1000 +@@ -8,7 +8,7 @@ + image=$4 + vm=$5 + initial=$6 +-USER=${USER-`logname 2>/dev/null || echo '*GOK*'`} ++USER=$(hostname -s) + + $vm -i $initial -a batch < +Description: In cmuscheme48.el, use `make-temp-file' instead of constant file name. +Index: scheme48-1.9/emacs/cmuscheme48.el +=================================================================== +--- scheme48-1.9.orig/emacs/cmuscheme48.el 2012-12-27 17:43:30.000000000 +0100 ++++ scheme48-1.9/emacs/cmuscheme48.el 2014-05-27 19:48:09.000000000 +0200 +@@ -58,7 +58,7 @@ + (let ((end (point))) + (beginning-of-defun) + (if losep +- (let ((loser "/tmp/s48lose.tmp")) ++ (let ((loser (make-temp-file "s48lose"))) + (write-region (point) end loser) + (scheme48-load-file loser)) + (scheme48-send-region (point) end))))) --- scheme48-1.8+dfsg.orig/debian/patches/makefile-add-_GNU_SOURCE.diff +++ scheme48-1.8+dfsg/debian/patches/makefile-add-_GNU_SOURCE.diff @@ -0,0 +1,16 @@ +Fix compile error introduced with glibc-2.9. Patch from Panagiotis Christopoulus +. + +Index: scheme48/Makefile.in +=================================================================== +--- scheme48.orig/Makefile.in 2009-03-02 17:43:14.000000000 -0800 ++++ scheme48/Makefile.in 2009-03-02 17:43:47.000000000 -0800 +@@ -8,7 +8,7 @@ + VPATH = @srcdir@ + CC = @CC@ + LD = @LD@ +-DEFS = @DEFS@ -D__COMPILING_SCHEME48_ITSELF__ -DS48_HOST_ARCHITECTURE=\"$(HOST_ARCHITECTURE)\" ++DEFS = @DEFS@ -D_GNU_SOURCE -D__COMPILING_SCHEME48_ITSELF__ -DS48_HOST_ARCHITECTURE=\"$(HOST_ARCHITECTURE)\" + LIBS = @LIBS@ + CFLAGS = @CFLAGS@ + CPPFLAGS = --- scheme48-1.8+dfsg.orig/debian/patches/link-order.diff +++ scheme48-1.8+dfsg/debian/patches/link-order.diff @@ -0,0 +1,20 @@ +Description: List libraries after the objects that require them +Author: Colin Watson +Bug-Ubuntu: https://bugs.launchpad.net/bugs/832929 +Forwarded: no +Last-Update: 2011-09-18 + +Index: b/Makefile.in +=================================================================== +--- a/Makefile.in ++++ b/Makefile.in +@@ -286,8 +286,7 @@ + c/scheme48.exp c/scheme48.def + $(CC) $(LDFLAGS) $(LDFLAGS_VM) $(CFLAGS) -o $@ c/main.o \ + $(OBJS) $(GC_OBJS) $(UNIX_OBJS) \ +- $(LIBOBJS) $(LIBS) \ +- $(EXTERNAL_OBJECTS) ++ $(LIBOBJS) $(EXTERNAL_OBJECTS) $(LIBS) + # Cygwin + if test -x /usr/bin/dlltool; then \ + dlltool --dllname $(VM).exe --output-lib $(VM).a --def $(srcdir)/c/scheme48.def; \ --- scheme48-1.8+dfsg.orig/debian/patches/makefile-add-lc-to-LDFLAGS.diff +++ scheme48-1.8+dfsg/debian/patches/makefile-add-lc-to-LDFLAGS.diff @@ -0,0 +1,18 @@ +This patch fixes these lintian warnings: + +W: scheme48: shared-lib-without-dependency-information ./usr/lib/scheme48-1.8/posix.so +W: scheme48: shared-lib-without-dependency-information ./usr/lib/scheme48-1.8/srfi-27.so + +Index: scheme48/Makefile.in +=================================================================== +--- scheme48.orig/Makefile.in 2009-03-02 18:33:45.000000000 -0800 ++++ scheme48/Makefile.in 2009-03-02 18:35:10.000000000 -0800 +@@ -38,7 +38,7 @@ + + DYNAMIC_EXTERNALS_CFLAGS=@DYNAMIC_EXTERNALS_CFLAGS@ + DYNAMIC_EXTERNALS_LDFLAGS=@DYNAMIC_EXTERNALS_LDFLAGS@ +-DYNAMIC_EXTERNALS_LDFLAGS_IN_PLACE=@DYNAMIC_EXTERNALS_LDFLAGS_IN_PLACE@ ++DYNAMIC_EXTERNALS_LDFLAGS_IN_PLACE=@DYNAMIC_EXTERNALS_LDFLAGS_IN_PLACE@ -lc + ### End of `configure' section### + + # HP 9000 series, if you don't have gcc