[steeldump-cvs] r2 - in trunk/scripts: . aux data descriptions lisp patches

Author: dlichteblau Date: Sun May 21 14:28:03 2006 New Revision: 2

Added: trunk/scripts/ trunk/scripts/VERSION trunk/scripts/aux/ trunk/scripts/aux/asd (contents, props changed) trunk/scripts/aux/build-system (contents, props changed) trunk/scripts/aux/fetch-cvs (contents, props changed) trunk/scripts/aux/fetch-svn (contents, props changed) trunk/scripts/aux/fetch-url (contents, props changed) trunk/scripts/aux/makedeb-helper (contents, props changed) trunk/scripts/aux/wipe-fasls (contents, props changed) trunk/scripts/aux/write-dummy-asd (contents, props changed) trunk/scripts/build-SAMPLE trunk/scripts/build-all (contents, props changed) trunk/scripts/build-beirc (contents, props changed) trunk/scripts/build-cl-fad (contents, props changed) trunk/scripts/build-cl-irc (contents, props changed) trunk/scripts/build-cl-ppcre (contents, props changed) trunk/scripts/build-climacs (contents, props changed) trunk/scripts/build-clx (contents, props changed) trunk/scripts/build-esa (contents, props changed) trunk/scripts/build-flexi-streams (contents, props changed) trunk/scripts/build-flexichain (contents, props changed) trunk/scripts/build-gsharp (contents, props changed) trunk/scripts/build-mcclim (contents, props changed) trunk/scripts/build-sbcl (contents, props changed) trunk/scripts/build-spatial-trees (contents, props changed) trunk/scripts/build-split-sequence (contents, props changed) trunk/scripts/build-tab-layout (contents, props changed) trunk/scripts/build-trivial-gray-streams (contents, props changed) trunk/scripts/build-trivial-sockets (contents, props changed) trunk/scripts/data/ trunk/scripts/data/beirc (contents, props changed) trunk/scripts/data/clim-listener trunk/scripts/data/climacs (contents, props changed) trunk/scripts/data/gsharp (contents, props changed) trunk/scripts/descriptions/ trunk/scripts/descriptions/SAMPLE trunk/scripts/descriptions/beirc trunk/scripts/descriptions/cl-fad trunk/scripts/descriptions/cl-irc trunk/scripts/descriptions/cl-ppcre trunk/scripts/descriptions/climacs trunk/scripts/descriptions/clx trunk/scripts/descriptions/esa trunk/scripts/descriptions/flexi-streams trunk/scripts/descriptions/flexichain trunk/scripts/descriptions/gsharp trunk/scripts/descriptions/mcclim trunk/scripts/descriptions/sbcl trunk/scripts/descriptions/spatial-trees trunk/scripts/descriptions/split-sequence trunk/scripts/descriptions/tab-layout trunk/scripts/descriptions/trivial-gray-streams trunk/scripts/descriptions/trivial-sockets trunk/scripts/fetch-all (contents, props changed) trunk/scripts/fetch-beirc (contents, props changed) trunk/scripts/fetch-cl-fad (contents, props changed) trunk/scripts/fetch-cl-irc (contents, props changed) trunk/scripts/fetch-cl-ppcre (contents, props changed) trunk/scripts/fetch-climacs (contents, props changed) trunk/scripts/fetch-clx (contents, props changed) trunk/scripts/fetch-esa (contents, props changed) trunk/scripts/fetch-flexi-streams (contents, props changed) trunk/scripts/fetch-flexichain (contents, props changed) trunk/scripts/fetch-gsharp (contents, props changed) trunk/scripts/fetch-mcclim (contents, props changed) trunk/scripts/fetch-sbcl (contents, props changed) trunk/scripts/fetch-spatial-trees (contents, props changed) trunk/scripts/fetch-split-sequence (contents, props changed) trunk/scripts/fetch-tab-layout (contents, props changed) trunk/scripts/fetch-trivial-gray-streams (contents, props changed) trunk/scripts/fetch-trivial-sockets (contents, props changed) trunk/scripts/generate-dists (contents, props changed) trunk/scripts/init (contents, props changed) trunk/scripts/lisp/ trunk/scripts/lisp/build-SAMPLE.lisp trunk/scripts/lisp/build-beirc.lisp trunk/scripts/lisp/build-cl-fad.lisp trunk/scripts/lisp/build-cl-irc.lisp trunk/scripts/lisp/build-cl-ppcre.lisp trunk/scripts/lisp/build-climacs.lisp trunk/scripts/lisp/build-clx.lisp trunk/scripts/lisp/build-esa.lisp trunk/scripts/lisp/build-flexi-streams.lisp trunk/scripts/lisp/build-flexichain.lisp trunk/scripts/lisp/build-gsharp.lisp trunk/scripts/lisp/build-mcclim.lisp trunk/scripts/lisp/build-sbcl.lisp trunk/scripts/lisp/build-spatial-trees.lisp trunk/scripts/lisp/build-split-sequence.lisp trunk/scripts/lisp/build-tab-layout.lisp trunk/scripts/lisp/build-trivial-gray-streams.lisp trunk/scripts/lisp/build-trivial-sockets.lisp trunk/scripts/lisp/clim-helper.lisp trunk/scripts/lisp/hack-asdf.lisp trunk/scripts/lisp/relocate.lisp trunk/scripts/makedeb-SAMPLE trunk/scripts/makedeb-all (contents, props changed) trunk/scripts/makedeb-beirc (contents, props changed) trunk/scripts/makedeb-cl-fad (contents, props changed) trunk/scripts/makedeb-cl-irc (contents, props changed) trunk/scripts/makedeb-cl-ppcre (contents, props changed) trunk/scripts/makedeb-climacs (contents, props changed) trunk/scripts/makedeb-clx (contents, props changed) trunk/scripts/makedeb-esa (contents, props changed) trunk/scripts/makedeb-flexi-streams (contents, props changed) trunk/scripts/makedeb-flexichain (contents, props changed) trunk/scripts/makedeb-gsharp (contents, props changed) trunk/scripts/makedeb-mcclim (contents, props changed) trunk/scripts/makedeb-sbcl (contents, props changed) trunk/scripts/makedeb-spatial-trees (contents, props changed) trunk/scripts/makedeb-split-sequence (contents, props changed) trunk/scripts/makedeb-tab-layout (contents, props changed) trunk/scripts/makedeb-trivial-gray-streams (contents, props changed) trunk/scripts/makedeb-trivial-sockets (contents, props changed) trunk/scripts/patches/ trunk/scripts/patches/climacs.diff Log: initial import

Added: trunk/scripts/VERSION ============================================================================== --- (empty file) +++ trunk/scripts/VERSION Sun May 21 14:28:03 2006 @@ -0,0 +1 @@ +2006-05-21

Added: trunk/scripts/aux/asd ============================================================================== --- (empty file) +++ trunk/scripts/aux/asd Sun May 21 14:28:03 2006 @@ -0,0 +1,12 @@ +#!/bin/sh -e +unset IFS +if test -n "$1"; then + cd "$1" +fi +find `pwd`/ -name *.asd | \ + while read f; do + name=`basename "$f"` + target=`readlink -f "$f"` + ln -sf "$f" /opt/steeldump/lib/sbcl/site-systems/ + echo "$name -> $f" + done

Added: trunk/scripts/aux/build-system ============================================================================== --- (empty file) +++ trunk/scripts/aux/build-system Sun May 21 14:28:03 2006 @@ -0,0 +1,19 @@ +#!/bin/sh -e +set -x +unset SBCL_HOME +system=$1 + +( + set +x + set -e + cd /opt/steeldump/src + for f in *; do + if test -d "$f" -a "$f" != sbcl; then + /opt/steeldump/scripts/aux/asd /opt/steeldump/src/$f + fi + done +) +/opt/steeldump/bin/sbcl \ + --userinit /dev/null \ + --sysinit /dev/null \ + --load "/opt/steeldump/scripts/lisp/build-${system}.lisp"

Added: trunk/scripts/aux/fetch-cvs ============================================================================== --- (empty file) +++ trunk/scripts/aux/fetch-cvs Sun May 21 14:28:03 2006 @@ -0,0 +1,13 @@ +#!/bin/sh -e +set -x +root="$1" +module="$2" +rev="$3" + +cd /opt/steeldump/src +if test -d "$module"; then + cd "$module" + cvs up -PAd $rev +else + cvs -d "$root" co $rev "$module" +fi

Added: trunk/scripts/aux/fetch-svn ============================================================================== --- (empty file) +++ trunk/scripts/aux/fetch-svn Sun May 21 14:28:03 2006 @@ -0,0 +1,13 @@ +#!/bin/sh -e +set -x +url="$1" +directory="$2" +rev="$3" + +cd /opt/steeldump/src +if test -d "$directory"; then + cd "$directory" + svn up $rev +else + svn co $rev $url $directory +fi

Added: trunk/scripts/aux/fetch-url ============================================================================== --- (empty file) +++ trunk/scripts/aux/fetch-url Sun May 21 14:28:03 2006 @@ -0,0 +1,25 @@ +#!/bin/sh -e +set -x +taroptions="$1" +urldir="$2" +urlfile="$3" +dir_package="$4" +dir_wanted="$5" + +cd /opt/steeldump/src + +if test -e "$dir_package"; then + echo "error: $dir_package already exists, aborting" + exit 1 +fi +if test -n "$dir_wanted" -a -e "$dir_wanted"; then + echo "error: $dir_wanted already exists, aborting" + exit 1 +fi + +# --no-check-certificate because of mgr's https +wget --no-check-certificate -c "$urldir$urlfile" +tar x${taroptions}f "$urlfile" +if test -n "$dir_wanted"; then + mv "$dir_package" "$dir_wanted" +fi

Added: trunk/scripts/aux/makedeb-helper ============================================================================== --- (empty file) +++ trunk/scripts/aux/makedeb-helper Sun May 21 14:28:03 2006 @@ -0,0 +1,35 @@ +#!/bin/sh -e +system=$1 + +version=`cat /opt/steeldump/scripts/VERSION` +package=steeldump-$system +deb=/opt/steeldump/pool/${package}_${version}_i386.deb + +depends="$STEELDUMP_EXTRA_DEPENDS" +shift +while test -n "$1"; do + if test -n "$depends"; then + depends="$depends, " + fi + depends="${depends}steeldump-$1 (= $version)" + shift +done + +cd /opt/steeldump + +mkdir SCRATCH/DEBIAN + +cat >SCRATCH/DEBIAN/control <<eof +Package: $package +Version: $version +Architecture: i386 +Depends: $depends +Maintainer: David Lichteblau dlichteblau@common-lisp.net +eof + +cat /opt/steeldump/scripts/descriptions/$system >>SCRATCH/DEBIAN/control + +rm -f $deb +sudo chown -hR 0:0 SCRATCH +dpkg-deb --build SCRATCH $deb +sudo chown -hR --reference /opt/steeldump/scripts SCRATCH

Added: trunk/scripts/aux/wipe-fasls ============================================================================== --- (empty file) +++ trunk/scripts/aux/wipe-fasls Sun May 21 14:28:03 2006 @@ -0,0 +1,8 @@ +#!/bin/sh -e +system=$1 +cd /opt/steeldump/SCRATCH/opt/steeldump/src/$system +find . -name *.fasl | while read fasl; do + echo 'pseudo .fasl to trigger recompilation' >SCRATCH.fasl + touch -r "$fasl" SCRATCH.fasl + mv SCRATCH.fasl "$fasl" +done

Added: trunk/scripts/aux/write-dummy-asd ============================================================================== --- (empty file) +++ trunk/scripts/aux/write-dummy-asd Sun May 21 14:28:03 2006 @@ -0,0 +1,7 @@ +#!/bin/sh -e +system=$1 +d=/opt/steeldump/SCRATCH/opt/steeldump/lib/sbcl/hack-systems +mkdir -p $d +cat >$d/$system.asd <<eof +(asdf:defsystem :$system :class sb-heapdump::module-trampoline) +eof

Added: trunk/scripts/build-SAMPLE ============================================================================== --- (empty file) +++ trunk/scripts/build-SAMPLE Sun May 21 14:28:03 2006 @@ -0,0 +1,3 @@ +#!/bin/sh -e +set -x +/opt/steeldump/scripts/aux/build-system SAMPLESYSTEMNAME

Added: trunk/scripts/build-all ============================================================================== --- (empty file) +++ trunk/scripts/build-all Sun May 21 14:28:03 2006 @@ -0,0 +1,19 @@ +#!/bin/sh -e + +if test -e /opt/steeldump/lib/sbcl/sbcl.core; then + echo "SBCL already installed, skipping" +else + /opt/steeldump/scripts/build-sbcl +fi + +for system in climacs gsharp clx esa flexichain mcclim spatial-trees \ + split-sequence cl-ppcre cl-fad tab-layout trivial-gray-streams \ + flexi-streams trivial-sockets cl-irc beirc +do + f=/opt/steeldump/lib/sbcl/${system}.heap + if test -e $f; then + echo "$f already present, skipping" + else + /opt/steeldump/scripts/build-$system + fi +done

Added: trunk/scripts/build-beirc ============================================================================== --- (empty file) +++ trunk/scripts/build-beirc Sun May 21 14:28:03 2006 @@ -0,0 +1,3 @@ +#!/bin/sh -e +set -x +/opt/steeldump/scripts/aux/build-system beirc

Added: trunk/scripts/build-cl-fad ============================================================================== --- (empty file) +++ trunk/scripts/build-cl-fad Sun May 21 14:28:03 2006 @@ -0,0 +1,3 @@ +#!/bin/sh -e +set -x +/opt/steeldump/scripts/aux/build-system cl-fad

Added: trunk/scripts/build-cl-irc ============================================================================== --- (empty file) +++ trunk/scripts/build-cl-irc Sun May 21 14:28:03 2006 @@ -0,0 +1,3 @@ +#!/bin/sh -e +set -x +/opt/steeldump/scripts/aux/build-system cl-irc

Added: trunk/scripts/build-cl-ppcre ============================================================================== --- (empty file) +++ trunk/scripts/build-cl-ppcre Sun May 21 14:28:03 2006 @@ -0,0 +1,3 @@ +#!/bin/sh -e +set -x +/opt/steeldump/scripts/aux/build-system cl-ppcre

Added: trunk/scripts/build-climacs ============================================================================== --- (empty file) +++ trunk/scripts/build-climacs Sun May 21 14:28:03 2006 @@ -0,0 +1,3 @@ +#!/bin/sh -e +set -x +/opt/steeldump/scripts/aux/build-system climacs

Added: trunk/scripts/build-clx ============================================================================== --- (empty file) +++ trunk/scripts/build-clx Sun May 21 14:28:03 2006 @@ -0,0 +1,3 @@ +#!/bin/sh -e +set -x +/opt/steeldump/scripts/aux/build-system clx

Added: trunk/scripts/build-esa ============================================================================== --- (empty file) +++ trunk/scripts/build-esa Sun May 21 14:28:03 2006 @@ -0,0 +1,3 @@ +#!/bin/sh -e +set -x +/opt/steeldump/scripts/aux/build-system esa

Added: trunk/scripts/build-flexi-streams ============================================================================== --- (empty file) +++ trunk/scripts/build-flexi-streams Sun May 21 14:28:03 2006 @@ -0,0 +1,3 @@ +#!/bin/sh -e +set -x +/opt/steeldump/scripts/aux/build-system flexi-streams

Added: trunk/scripts/build-flexichain ============================================================================== --- (empty file) +++ trunk/scripts/build-flexichain Sun May 21 14:28:03 2006 @@ -0,0 +1,3 @@ +#!/bin/sh -e +set -x +/opt/steeldump/scripts/aux/build-system flexichain

Added: trunk/scripts/build-gsharp ============================================================================== --- (empty file) +++ trunk/scripts/build-gsharp Sun May 21 14:28:03 2006 @@ -0,0 +1,4 @@ +#!/bin/sh -e +set -x +(set -e; cd /opt/steeldump/src/gsharp/Fonts && make) +/opt/steeldump/scripts/aux/build-system gsharp

Added: trunk/scripts/build-mcclim ============================================================================== --- (empty file) +++ trunk/scripts/build-mcclim Sun May 21 14:28:03 2006 @@ -0,0 +1,3 @@ +#!/bin/sh -e +set -x +/opt/steeldump/scripts/aux/build-system mcclim

Added: trunk/scripts/build-sbcl ============================================================================== --- (empty file) +++ trunk/scripts/build-sbcl Sun May 21 14:28:03 2006 @@ -0,0 +1,43 @@ +#!/bin/sh -e +set -x +unset SBCL_HOME + +cd /opt/steeldump/src/sbcl + +cat >customize-target-features.lisp <<eof +(lambda (x) + (pushnew :sb-thread x) + (pushnew :sb-futex x) + (pushnew :sb-ldb x) + x) +eof + +cat >>src/runtime/runtime.h <<eof +#define SBCL_HOME "/opt/steeldump/lib/sbcl" +eof + +cat >>contrib/asdf/asdf.lisp <<eof +(defmethod asdf:perform :around ((o asdf:load-op) (c asdf:cl-source-file)) + (handler-case + (call-next-method o c) + (sb-ext:invalid-fasl () + (asdf:perform (make-instance 'asdf:compile-op) c) + (call-next-method)))) +eof + +sh clean.sh +sh make.sh 'lisp -noinit' + +export INSTALL_ROOT=/opt/steeldump +mkdir -p $INSTALL_ROOT +sh install.sh + +cd $INSTALL_ROOT + +export SBCL_HOME="/opt/steeldump/lib/sbcl" +mv lib/sbcl/sbcl.core vanilla.core +./bin/sbcl \ + --core vanilla.core \ + --userinit /dev/null \ + --sysinit /dev/null \ + --load "/opt/steeldump/scripts/lisp/build-sbcl.lisp"

Added: trunk/scripts/build-spatial-trees ============================================================================== --- (empty file) +++ trunk/scripts/build-spatial-trees Sun May 21 14:28:03 2006 @@ -0,0 +1,3 @@ +#!/bin/sh -e +set -x +/opt/steeldump/scripts/aux/build-system spatial-trees

Added: trunk/scripts/build-split-sequence ============================================================================== --- (empty file) +++ trunk/scripts/build-split-sequence Sun May 21 14:28:03 2006 @@ -0,0 +1,3 @@ +#!/bin/sh -e +set -x +/opt/steeldump/scripts/aux/build-system split-sequence

Added: trunk/scripts/build-tab-layout ============================================================================== --- (empty file) +++ trunk/scripts/build-tab-layout Sun May 21 14:28:03 2006 @@ -0,0 +1,3 @@ +#!/bin/sh -e +set -x +/opt/steeldump/scripts/aux/build-system tab-layout

Added: trunk/scripts/build-trivial-gray-streams ============================================================================== --- (empty file) +++ trunk/scripts/build-trivial-gray-streams Sun May 21 14:28:03 2006 @@ -0,0 +1,3 @@ +#!/bin/sh -e +set -x +/opt/steeldump/scripts/aux/build-system trivial-gray-streams

Added: trunk/scripts/build-trivial-sockets ============================================================================== --- (empty file) +++ trunk/scripts/build-trivial-sockets Sun May 21 14:28:03 2006 @@ -0,0 +1,3 @@ +#!/bin/sh -e +set -x +/opt/steeldump/scripts/aux/build-system trivial-sockets

Added: trunk/scripts/data/beirc ============================================================================== --- (empty file) +++ trunk/scripts/data/beirc Sun May 21 14:28:03 2006 @@ -0,0 +1,9 @@ +#!/bin/sh +unset SBCL_HOME +exec /opt/steeldump/bin/sbcl \ + --noinform \ + --userinit /dev/null \ + --disable-debugger \ + --eval '(setf sb-heapdump:*dumpload-verbose* nil)' \ + --eval '(require :beirc)' \ + --eval '(progn (beirc:beirc :new-process nil) (sb-ext:quit))'

Added: trunk/scripts/data/clim-listener ============================================================================== --- (empty file) +++ trunk/scripts/data/clim-listener Sun May 21 14:28:03 2006 @@ -0,0 +1,9 @@ +#!/bin/sh +unset SBCL_HOME +exec /opt/steeldump/bin/sbcl \ + --noinform \ + --userinit /dev/null \ + --disable-debugger \ + --eval '(setf sb-heapdump:*dumpload-verbose* nil)' \ + --eval '(require :mcclim)' \ + --eval '(progn (clim-listener:run-listener) (sb-ext:quit))'

Added: trunk/scripts/data/climacs ============================================================================== --- (empty file) +++ trunk/scripts/data/climacs Sun May 21 14:28:03 2006 @@ -0,0 +1,9 @@ +#!/bin/sh +unset SBCL_HOME +exec /opt/steeldump/bin/sbcl \ + --noinform \ + --userinit /dev/null \ + --disable-debugger \ + --eval '(setf sb-heapdump:*dumpload-verbose* nil)' \ + --eval '(require :climacs)' \ + --eval '(progn (climacs-gui:climacs) (sb-ext:quit))'

Added: trunk/scripts/data/gsharp ============================================================================== --- (empty file) +++ trunk/scripts/data/gsharp Sun May 21 14:28:03 2006 @@ -0,0 +1,9 @@ +#!/bin/sh +unset SBCL_HOME +exec /opt/steeldump/bin/sbcl \ + --noinform \ + --userinit /dev/null \ + --disable-debugger \ + --eval '(setf sb-heapdump:*dumpload-verbose* nil)' \ + --eval '(require :gsharp)' \ + --eval '(progn (gsharp:gsharp) (sb-ext:quit))'

Added: trunk/scripts/descriptions/SAMPLE ============================================================================== --- (empty file) +++ trunk/scripts/descriptions/SAMPLE Sun May 21 14:28:03 2006 @@ -0,0 +1,4 @@ +Description: SHORTDESCRIPTIONGOESHERE (steeldump package) + LONGDESCRIPTIONGOESHERE + . + This is a non-Debian binary package from the steeldump repository.

Added: trunk/scripts/descriptions/beirc ============================================================================== --- (empty file) +++ trunk/scripts/descriptions/beirc Sun May 21 14:28:03 2006 @@ -0,0 +1,6 @@ +Description: A CLIM-based IRC client (steeldump package) + beirc is a graphical Internet Relay Chat client using the clim (or + mcclim) graphical library and built on top of cl-irc. beirc is the + creation of Gilbert Baumann. + . + This is a non-Debian binary package from the steeldump repository.

Added: trunk/scripts/descriptions/cl-fad ============================================================================== --- (empty file) +++ trunk/scripts/descriptions/cl-fad Sun May 21 14:28:03 2006 @@ -0,0 +1,11 @@ +Description: portable pathname library for Common Lisp (steeldump package) + CL-FAD is a filename and directory abstraction library for several + Common Lisp implementations. It provides common file operations + implementation-independently. + . + Parts of this library consist of code from the book "Practical Common + Lisp" by Peter Seibel. + . + Homepage: http://weitz.de/cl-fad/ + . + This is a non-Debian binary package from the steeldump repository.

Added: trunk/scripts/descriptions/cl-irc ============================================================================== --- (empty file) +++ trunk/scripts/descriptions/cl-irc Sun May 21 14:28:03 2006 @@ -0,0 +1,6 @@ +Description: Common Lisp Internet Relay Chat Library (steeldump package) + cl-irc provides a library for Common Lisp programs to interact with + IRC servers. This library has been most tested with SBCL. + Several example programs are provided. + . + This is a non-Debian binary package from the steeldump repository.

Added: trunk/scripts/descriptions/cl-ppcre ============================================================================== --- (empty file) +++ trunk/scripts/descriptions/cl-ppcre Sun May 21 14:28:03 2006 @@ -0,0 +1,9 @@ +Description: Portable Regular Expr. Library for Common Lisp (steeldump package) + CL-PPCRE is a portable regular expression library for Common Lisp + which has the following features: + . + * It is compatible with Perl. + * It is fast. + * It is portable. + . + This is a non-Debian binary package from the steeldump repository.

Added: trunk/scripts/descriptions/climacs ============================================================================== --- (empty file) +++ trunk/scripts/descriptions/climacs Sun May 21 14:28:03 2006 @@ -0,0 +1,7 @@ +Description: A modern Common Lisp implementation of Emacs (steeldump package) + Climacs, a project to create a Common Lisp version of Emacs. In fact, + this project is merely meant to replace all other Common Lisp Emacsen, + such as Goatee (the editor of McCLIM) and Portable Hemlock, both of + which have non-existent or outdated buffer protocols. + . + This is a non-Debian binary package from the steeldump repository.

Added: trunk/scripts/descriptions/clx ============================================================================== --- (empty file) +++ trunk/scripts/descriptions/clx Sun May 21 14:28:03 2006 @@ -0,0 +1,5 @@ +Description: An X11 Common Lisp client library for SBCL (steeldump package) + CLX is a low-level X11 client library for Common Lisp. CLX is to Lisp what + Xlib is to C. + . + This is a non-Debian binary package from the steeldump repository.

Added: trunk/scripts/descriptions/esa ============================================================================== --- (empty file) +++ trunk/scripts/descriptions/esa Sun May 21 14:28:03 2006 @@ -0,0 +1,5 @@ +Description: CLIM Emacs-Style Application framework (steeldump package) + ESA is a layer atop CLIM functionality to provide an Emacs-Style + Application framework. + . + This is a non-Debian binary package from the steeldump repository.

Added: trunk/scripts/descriptions/flexi-streams ============================================================================== --- (empty file) +++ trunk/scripts/descriptions/flexi-streams Sun May 21 14:28:03 2006 @@ -0,0 +1,8 @@ +Description: Flexible bivalent streams for Common Lisp (steeldump package) + FLEXI-STREAMS implements "virtual" bivalent streams that can be layered + atop real binary or bivalent streams and that can be used to read and + write character data in various single- or multi-octet encodings which + can be changed on the fly. It also supplies in-memory binary streams + which are similar to string streams. + . + This is a non-Debian binary package from the steeldump repository.

Added: trunk/scripts/descriptions/flexichain ============================================================================== --- (empty file) +++ trunk/scripts/descriptions/flexichain Sun May 21 14:28:03 2006 @@ -0,0 +1,8 @@ +Description: A library for editable sequences (steeldump package) + Flexichain is an API for editable sequences. Its primary use is in + end-user applications that edit sequences of objects such as text + editors (characters), word processors (characters, paragraphs, + sections, etc), score editors (notes, clusters, measures, etc), though + it can also be used as a stack and a double-ended queue. + . + This is a non-Debian binary package from the steeldump repository.

Added: trunk/scripts/descriptions/gsharp ============================================================================== --- (empty file) +++ trunk/scripts/descriptions/gsharp Sun May 21 14:28:03 2006 @@ -0,0 +1,4 @@ +Description: An interactive, extensible editor for musical scores (steeldump package) + Gsharp is an interactive, extensible editor for musical scores. + . + This is a non-Debian binary package from the steeldump repository.

Added: trunk/scripts/descriptions/mcclim ============================================================================== --- (empty file) +++ trunk/scripts/descriptions/mcclim Sun May 21 14:28:03 2006 @@ -0,0 +1,5 @@ +Description: Open source Common Lisp Interface Manager (steeldump package) + McCLIM is an open source implementation of the Common Lisp Interface Manager + specification. + . + This is a non-Debian binary package from the steeldump repository.

Added: trunk/scripts/descriptions/sbcl ============================================================================== --- (empty file) +++ trunk/scripts/descriptions/sbcl Sun May 21 14:28:03 2006 @@ -0,0 +1,13 @@ +Description: A Common Lisp compiler and development system (for steeldump) + SBCL is a development environment for the ANSI Common Lisp language. + It provides a native-code compiler and an integrated debugger, as well + as all the features in the ANSI specification. + . + This is a non-Debian package from the steeldump repository. Changes + compared to upstream: + - threads and ldb enabled + - installation location hardwired to /opt/steeldump + - sb-heapdump contrib added + - asdf, sb-bsd-sockets, sb-heapdump, sb-posix dumped into core + - asdf patched to recompile invalid fasls automatically + - asdf patched so that site-systems overrides .sbcl/systems

Added: trunk/scripts/descriptions/spatial-trees ============================================================================== --- (empty file) +++ trunk/scripts/descriptions/spatial-trees Sun May 21 14:28:03 2006 @@ -0,0 +1,5 @@ +Description: Library for spatially-extended data (steeldump package) + spatial-trees is a Library which provides access to dynamic index structures + for spatially-extended data, all exposed through a uniform CLOS interface. + . + This is a non-Debian binary package from the steeldump repository.

Added: trunk/scripts/descriptions/split-sequence ============================================================================== --- (empty file) +++ trunk/scripts/descriptions/split-sequence Sun May 21 14:28:03 2006 @@ -0,0 +1,5 @@ +Description: A common lisp utility library (steeldump package) + Splits a sequence into a list of subsequences delimited by objects + satisfying a test. + . + This is a non-Debian binary package from the steeldump repository.

Added: trunk/scripts/descriptions/tab-layout ============================================================================== --- (empty file) +++ trunk/scripts/descriptions/tab-layout Sun May 21 14:28:03 2006 @@ -0,0 +1,5 @@ +Description: CLIM extensions based on stack-layout (steeldump package) + This library defines CLIM extensions tab-layout, radio-layout, and + stack-layout. + . + This is a non-Debian binary package from the steeldump repository.

Added: trunk/scripts/descriptions/trivial-gray-streams ============================================================================== --- (empty file) +++ trunk/scripts/descriptions/trivial-gray-streams Sun May 21 14:28:03 2006 @@ -0,0 +1,6 @@ +Description: gray streams portability shim (steeldump package) + This trivial library provides an implementation's gray stream support + under a portable package name and papers over differences between + read-/write-sequence support, which varies widely. + . + This is a non-Debian binary package from the steeldump repository.

Added: trunk/scripts/descriptions/trivial-sockets ============================================================================== --- (empty file) +++ trunk/scripts/descriptions/trivial-sockets Sun May 21 14:28:03 2006 @@ -0,0 +1,14 @@ +Description: a Common Lisp socket interface (steeldump package) + trivial-sockets is a portable socket interface that allows Common + Lisp programs to open connected (client) stream sockets to network + service (for example HTTP, FTP or SMTP servers) and communicate with + them. It's intended mostly for "scripting" and interactive use. + . + Note that in the interests of simplicity and ease of porting, the + functionality available through TRIVIAL-SOCKETS has been deliberately + restricted. + . + The documentation is provided in Texinfo and HTML formats. You can + generate a PDF output using the suggested texinfo package. + . + This is a non-Debian binary package from the steeldump repository.

Added: trunk/scripts/fetch-all ============================================================================== --- (empty file) +++ trunk/scripts/fetch-all Sun May 21 14:28:03 2006 @@ -0,0 +1,11 @@ +#!/bin/sh -e +for system in sbcl clx esa flexichain mcclim spatial-trees split-sequence \ + climacs gsharp cl-ppcre cl-fad tab-layout trivial-gray-streams \ + flexi-streams trivial-sockets cl-irc beirc +do + if test -e /opt/steeldump/src/$system; then + echo "$system already present, skipping" + else + /opt/steeldump/scripts/fetch-$system + fi +done

Added: trunk/scripts/fetch-beirc ============================================================================== --- (empty file) +++ trunk/scripts/fetch-beirc Sun May 21 14:28:03 2006 @@ -0,0 +1,5 @@ +#!/bin/sh -e +set -x +/opt/steeldump/scripts/aux/fetch-cvs \ + :pserver:anonymous:anonymous@common-lisp.net:/project/beirc/cvsroot \ + beirc

Added: trunk/scripts/fetch-cl-fad ============================================================================== --- (empty file) +++ trunk/scripts/fetch-cl-fad Sun May 21 14:28:03 2006 @@ -0,0 +1,8 @@ +#!/bin/sh -e +set -x +/opt/steeldump/scripts/aux/fetch-url \ + z \ + http://weitz.de/files/ \ + cl-fad.tar.gz \ + cl-fad-0.5.0 \ + cl-fad

Added: trunk/scripts/fetch-cl-irc ============================================================================== --- (empty file) +++ trunk/scripts/fetch-cl-irc Sun May 21 14:28:03 2006 @@ -0,0 +1,5 @@ +#!/bin/sh -e +set -x +/opt/steeldump/scripts/aux/fetch-svn \ + svn://common-lisp.net/project/cl-irc/svn/trunk \ + cl-irc

Added: trunk/scripts/fetch-cl-ppcre ============================================================================== --- (empty file) +++ trunk/scripts/fetch-cl-ppcre Sun May 21 14:28:03 2006 @@ -0,0 +1,8 @@ +#!/bin/sh -e +set -x +/opt/steeldump/scripts/aux/fetch-url \ + z \ + http://weitz.de/files/ \ + cl-ppcre.tar.gz \ + cl-ppcre-1.2.13 \ + cl-ppcre

Added: trunk/scripts/fetch-climacs ============================================================================== --- (empty file) +++ trunk/scripts/fetch-climacs Sun May 21 14:28:03 2006 @@ -0,0 +1,8 @@ +#!/bin/sh -e +set -x +/opt/steeldump/scripts/aux/fetch-cvs \ + :pserver:anonymous:anonymous@common-lisp.net:/project/climacs/cvsroot \ + climacs \ + "-r HEAD" +cd /opt/steeldump/src/climacs +patch -p0 </opt/steeldump/scripts/patches/climacs.diff

Added: trunk/scripts/fetch-clx ============================================================================== --- (empty file) +++ trunk/scripts/fetch-clx Sun May 21 14:28:03 2006 @@ -0,0 +1,8 @@ +#!/bin/sh -e +set -x +/opt/steeldump/scripts/aux/fetch-url \ + z \ + http://ftp.linux.org.uk/pub/lisp/sbcl/ \ + clx_0.7.3.tar.gz \ + clx_0.7.3 \ + clx

Added: trunk/scripts/fetch-esa ============================================================================== --- (empty file) +++ trunk/scripts/fetch-esa Sun May 21 14:28:03 2006 @@ -0,0 +1,6 @@ +#!/bin/sh -e +set -x +/opt/steeldump/scripts/aux/fetch-cvs \ + :pserver:anonymous:anonymous@common-lisp.net:/project/climacs/cvsroot \ + esa \ + "-r HEAD"

Added: trunk/scripts/fetch-flexi-streams ============================================================================== --- (empty file) +++ trunk/scripts/fetch-flexi-streams Sun May 21 14:28:03 2006 @@ -0,0 +1,8 @@ +#!/bin/sh -e +set -x +/opt/steeldump/scripts/aux/fetch-url \ + z \ + http://weitz.de/files/ \ + flexi-streams.tar.gz \ + flexi-streams-0.5.4 \ + flexi-streams

Added: trunk/scripts/fetch-flexichain ============================================================================== --- (empty file) +++ trunk/scripts/fetch-flexichain Sun May 21 14:28:03 2006 @@ -0,0 +1,6 @@ +#!/bin/sh -e +set -x +/opt/steeldump/scripts/aux/fetch-cvs \ + :pserver:anonymous:anonymous@common-lisp.net:/project/flexichain/cvsroot \ + flexichain \ + "-r HEAD"

Added: trunk/scripts/fetch-gsharp ============================================================================== --- (empty file) +++ trunk/scripts/fetch-gsharp Sun May 21 14:28:03 2006 @@ -0,0 +1,6 @@ +#!/bin/sh -e +set -x +/opt/steeldump/scripts/aux/fetch-cvs \ + :pserver:anonymous:anonymous@common-lisp.net:/project/gsharp/cvsroot \ + gsharp \ + "-r HEAD"

Added: trunk/scripts/fetch-mcclim ============================================================================== --- (empty file) +++ trunk/scripts/fetch-mcclim Sun May 21 14:28:03 2006 @@ -0,0 +1,6 @@ +#!/bin/sh -e +set -x +/opt/steeldump/scripts/aux/fetch-cvs \ + :pserver:anonymous:anonymous@common-lisp.net:/project/mcclim/cvsroot \ + mcclim \ + "-r HEAD"

Added: trunk/scripts/fetch-sbcl ============================================================================== --- (empty file) +++ trunk/scripts/fetch-sbcl Sun May 21 14:28:03 2006 @@ -0,0 +1,17 @@ +#!/bin/sh -e +set -x +#mirror=http://osdn.dl.sourceforge.net/sourceforge +mirror=http://belnet.dl.sourceforge.net/sourceforge + +cd /opt/steeldump +./scripts/aux/fetch-url \ + j \ + $mirror/sbcl/ \ + sbcl-0.9.12-source.tar.bz2 \ + sbcl-0.9.12 \ + sbcl +./scripts/aux/fetch-cvs \ + /home/david/cvsroot \ + sb-heapdump \ + "-r HEAD" +cp -r src/sb-heapdump src/sbcl/contrib

Added: trunk/scripts/fetch-spatial-trees ============================================================================== --- (empty file) +++ trunk/scripts/fetch-spatial-trees Sun May 21 14:28:03 2006 @@ -0,0 +1,8 @@ +#!/bin/sh -e +set -x +/opt/steeldump/scripts/aux/fetch-url \ + z \ + http://ftp.linux.org.uk/pub/lisp/cclan/ \ + spatial-trees-0.2.tar.gz \ + spatial-trees-0.2 \ + spatial-trees

Added: trunk/scripts/fetch-split-sequence ============================================================================== --- (empty file) +++ trunk/scripts/fetch-split-sequence Sun May 21 14:28:03 2006 @@ -0,0 +1,7 @@ +#!/bin/sh -e +set -x +/opt/steeldump/scripts/aux/fetch-url \ + z \ + http://ftp.linux.org.uk/pub/lisp/cclan/ \ + split-sequence_20011114.1.tar.gz \ + split-sequence

Added: trunk/scripts/fetch-tab-layout ============================================================================== --- (empty file) +++ trunk/scripts/fetch-tab-layout Sun May 21 14:28:03 2006 @@ -0,0 +1,7 @@ +#!/bin/sh -e +set -x +/opt/steeldump/scripts/aux/fetch-url \ + j \ + http://bl0rg.net/~mgr/flux/ \ + tab-layout_2005-09-19_02-52+0200.tar.bz2 \ + tab-layout

Added: trunk/scripts/fetch-trivial-gray-streams ============================================================================== --- (empty file) +++ trunk/scripts/fetch-trivial-gray-streams Sun May 21 14:28:03 2006 @@ -0,0 +1,5 @@ +#!/bin/sh -e +set -x +/opt/steeldump/scripts/aux/fetch-cvs \ + :pserver:anonymous:anonymous@common-lisp.net:/project/cl-plus-ssl/cvsroot \ + trivial-gray-streams

Added: trunk/scripts/fetch-trivial-sockets ============================================================================== --- (empty file) +++ trunk/scripts/fetch-trivial-sockets Sun May 21 14:28:03 2006 @@ -0,0 +1,8 @@ +#!/bin/sh -e +set -x +/opt/steeldump/scripts/aux/fetch-url \ + z \ + http://www-jcsu.jesus.cam.ac.uk/ftp/pub/cclan/ \ + trivial-sockets_0.3.tar.gz \ + trivial-sockets_0.3 \ + trivial-sockets

Added: trunk/scripts/generate-dists ============================================================================== --- (empty file) +++ trunk/scripts/generate-dists Sun May 21 14:28:03 2006 @@ -0,0 +1,18 @@ +#!/bin/sh -e +set +x + +cd /opt/steeldump +mkdir -p dists/unstable/main/binary-i386 + +ls -1 pool | sed 's/_.*$/ priority section/' | uniq > override + +dpkg-scanpackages pool override | gzip >dists/unstable/main/binary-i386/Packages.gz + +cat >dists/unstable/main/Release <<eof +Archive: unstable +Version: 3.0 +Component: main +Origin: Local +Label: Local +Architecture: i386 +eof

Added: trunk/scripts/init ============================================================================== --- (empty file) +++ trunk/scripts/init Sun May 21 14:28:03 2006 @@ -0,0 +1,19 @@ +#!/bin/sh -e +rc=0 + +mkdir -p /opt/steeldump/src +mkdir -p /opt/steeldump/pool + +if ! which lisp >/dev/null; then + echo "error: cmucl not found" + rc=1 +fi +if ! which dpkg-scanpackages >/dev/null; then + echo "error: dpkg-dev not found" + rc=1 +fi +if ! which mf >/dev/null; then + echo "error: tetex not found" + rc=1 +fi +exit $rc

Added: trunk/scripts/lisp/build-SAMPLE.lisp ============================================================================== --- (empty file) +++ trunk/scripts/lisp/build-SAMPLE.lisp Sun May 21 14:28:03 2006 @@ -0,0 +1,25 @@ +;;;; Replace SAMPLE in this file with the library name. Look out for +;;;; libraries where system name, package name, and system package name +;;;; don't agree. Often the system package is actually sample.system etc. +;;;; +;;;; As-is, this script not usually the the right thing for CLIM +;;;; programs, see clim-helper.lisp for details (and build-climacs.lisp +;;;; as an example). + +(sb-ext:disable-debugger) +(setf asdf:*central-registry* (list (car asdf:*central-registry*))) +(asdf:operate 'asdf:load-op :SAMPLE) + +(defmethod sb-heapdump:dump-system + ((c (eql (asdf:find-system :SAMPLE)))) + (sb-heapdump:dump-packages + '(:SAMPLE) + "SAMPLE.heap" + :if-exists :rename-and-delete + :systems '(:SAMPLE) + :system-packages '(:SAMPLE-system))) + +(let ((*default-pathname-defaults* + (truename (sb-ext:posix-getenv "SBCL_HOME")))) + (sb-heapdump:dump-system :SAMPLE)) +(sb-ext:quit)

Added: trunk/scripts/lisp/build-beirc.lisp ============================================================================== --- (empty file) +++ trunk/scripts/lisp/build-beirc.lisp Sun May 21 14:28:03 2006 @@ -0,0 +1,20 @@ +(sb-ext:disable-debugger) +(setf asdf:*central-registry* (list (car asdf:*central-registry*))) +(asdf:operate 'asdf:load-op :beirc) + +(load "/opt/steeldump/scripts/lisp/clim-helper.lisp") + +(defmethod sb-heapdump:dump-system ((c (eql (asdf:find-system :beirc)))) + (dump-clim-application + '(:beirc) + "beirc.heap" + nil + :force (list #'clim:pane) + :systems '(:beirc) + :system-packages '(:beirc.system) + :if-exists :rename-and-delete)) + +(let ((*default-pathname-defaults* + (truename (sb-ext:posix-getenv "SBCL_HOME")))) + (sb-heapdump:dump-system :beirc)) +(sb-ext:quit)

Added: trunk/scripts/lisp/build-cl-fad.lisp ============================================================================== --- (empty file) +++ trunk/scripts/lisp/build-cl-fad.lisp Sun May 21 14:28:03 2006 @@ -0,0 +1,17 @@ +(sb-ext:disable-debugger) +(setf asdf:*central-registry* (list (car asdf:*central-registry*))) +(asdf:operate 'asdf:load-op :cl-fad) + +(defmethod sb-heapdump:dump-system + ((c (eql (asdf:find-system :cl-fad)))) + (sb-heapdump:dump-packages + '(:cl-fad :cl-fad-test) + "cl-fad.heap" + :if-exists :rename-and-delete + :systems '(:cl-fad) + :system-packages '())) + +(let ((*default-pathname-defaults* + (truename (sb-ext:posix-getenv "SBCL_HOME")))) + (sb-heapdump:dump-system :cl-fad)) +(sb-ext:quit)

Added: trunk/scripts/lisp/build-cl-irc.lisp ============================================================================== --- (empty file) +++ trunk/scripts/lisp/build-cl-irc.lisp Sun May 21 14:28:03 2006 @@ -0,0 +1,16 @@ +(sb-ext:disable-debugger) +(setf asdf:*central-registry* (list (car asdf:*central-registry*))) +(asdf:operate 'asdf:load-op :cl-irc) + +(defmethod sb-heapdump:dump-system ((c (eql (asdf:find-system :cl-irc)))) + (sb-heapdump:dump-packages + '(:cl-irc) + "cl-irc.heap" + :if-exists :rename-and-delete + :systems '(:cl-irc) + :system-packages '(:cl-irc-system))) + +(let ((*default-pathname-defaults* + (truename (sb-ext:posix-getenv "SBCL_HOME")))) + (sb-heapdump:dump-system :cl-irc)) +(sb-ext:quit)

Added: trunk/scripts/lisp/build-cl-ppcre.lisp ============================================================================== --- (empty file) +++ trunk/scripts/lisp/build-cl-ppcre.lisp Sun May 21 14:28:03 2006 @@ -0,0 +1,17 @@ +(sb-ext:disable-debugger) +(setf asdf:*central-registry* (list (car asdf:*central-registry*))) +(asdf:operate 'asdf:load-op :cl-ppcre) + +(defmethod sb-heapdump:dump-system + ((c (eql (asdf:find-system :cl-ppcre)))) + (sb-heapdump:dump-packages + '(:cl-ppcre :cl-ppcre-test) + "cl-ppcre.heap" + :if-exists :rename-and-delete + :systems '(:cl-ppcre) + :system-packages '(:cl-ppcre.system))) + +(let ((*default-pathname-defaults* + (truename (sb-ext:posix-getenv "SBCL_HOME")))) + (sb-heapdump:dump-system :cl-ppcre)) +(sb-ext:quit)

Added: trunk/scripts/lisp/build-climacs.lisp ============================================================================== --- (empty file) +++ trunk/scripts/lisp/build-climacs.lisp Sun May 21 14:28:03 2006 @@ -0,0 +1,36 @@ +(sb-ext:disable-debugger) +(setf asdf:*central-registry* (list (car asdf:*central-registry*))) + +(asdf:operate 'asdf:load-op :esa) +(defvar *old-command-tables* (make-hash-table)) +(maphash (lambda (k v) + (setf (gethash k *old-command-tables*) v)) + climi::*command-tables*) + +(asdf:operate 'asdf:load-op :climacs) +(defvar *new-command-tables* (make-hash-table)) +(maphash (lambda (k v) + (unless (gethash k *old-command-tables*) + (setf (gethash k *new-command-tables*) v))) + climi::*command-tables*) + +(load "/opt/steeldump/scripts/lisp/clim-helper.lisp") + +(defmethod sb-heapdump:dump-system ((c (eql (asdf:find-system :climacs)))) + (dump-clim-application + '("CLIMACS-SLIDEMACS-EDITOR" "CLIMACS-TTCN3-SYNTAX" "CLIMACS-GUI" + ;; "ESA" + "CLIMACS-LISP-SYNTAX" "CLIMACS-CL-SYNTAX" "CLIMACS-PROLOG-SYNTAX" + "CLIMACS-HTML-SYNTAX" "CLIMACS-FUNDAMENTAL-SYNTAX" "CLIMACS-PANE" "UNDO" + "CLIMACS-KILL-RING" "CLIMACS-SYNTAX" "CLIMACS-ABBREV" "CLIMACS-BASE" + "CLIMACS-BUFFER" "BINSEQ" "AUTOMATON" "EQV-HASH") + "climacs.heap" + *new-command-tables* + :systems '(:climacs :climacs.tests) + :system-packages '(:climacs.system) + :if-exists :rename-and-delete)) + +(let ((*default-pathname-defaults* + (truename (sb-ext:posix-getenv "SBCL_HOME")))) + (sb-heapdump:dump-system :climacs)) +(sb-ext:quit)

Added: trunk/scripts/lisp/build-clx.lisp ============================================================================== --- (empty file) +++ trunk/scripts/lisp/build-clx.lisp Sun May 21 14:28:03 2006 @@ -0,0 +1,36 @@ +(sb-ext:disable-debugger) +(setf asdf:*central-registry* (list (car asdf:*central-registry*))) +(asdf:operate 'asdf:load-op :clx) + +(defmethod sb-heapdump:dump-system ((c (eql (asdf:find-system :clx)))) + (sb-heapdump:dump-packages + ;; The test stuff is apparently loaded only when compiling clx for the + ;; first time (and must then be dumped, too), not when loading clx later(?). + ;; Let's just ignore the non-existent package for now. + (remove nil (mapcar #'find-package '(:gl :glx :xlib :clipboard :gl-test))) + "clx.heap" + :if-exists :rename-and-delete + :initializer (let ((event-keys xlib::*event-key-vector*)) + (lambda (packages) + (loop + for event-key across event-keys + for i from 0 + do + (setf (get event-key 'xlib::event-code) i)) + (setf *features* + (union *features* + '(:clx-ext-render + :clx-mit-r5 + :clx-mit-r4 + :xlib + :clx + :clx-little-endian + :clx-ansi-common-lisp))) + packages)) + :systems '(:clx) + :system-packages '(:clx-system))) + +(let ((*default-pathname-defaults* + (truename (sb-ext:posix-getenv "SBCL_HOME")))) + (sb-heapdump:dump-system :clx)) +(sb-ext:quit)

Added: trunk/scripts/lisp/build-esa.lisp ============================================================================== --- (empty file) +++ trunk/scripts/lisp/build-esa.lisp Sun May 21 14:28:03 2006 @@ -0,0 +1,25 @@ +(sb-ext:disable-debugger) +(setf asdf:*central-registry* (list (car asdf:*central-registry*))) +(asdf:operate 'asdf:load-op :esa) + +(load "/opt/steeldump/scripts/lisp/clim-helper.lisp") + +(defmethod sb-heapdump:dump-system ((c (eql (asdf:find-system :esa)))) + (dump-clim-application + '("ESA" "ESA-BUFFER" "ESA-IO") + "esa.heap" + nil + :force (list #'clim:command-table #'(setf clim:command-table)) + :initializer (lambda (x) + (setf (fdefinition 'clim:command-table) #'clim:command-table) + (setf (fdefinition '(setf clim:command-table)) + #'(setf clim:command-table)) + x) + :systems '(:esa) + :system-packages '() + :if-exists :rename-and-delete)) + +(let ((*default-pathname-defaults* + (truename (sb-ext:posix-getenv "SBCL_HOME")))) + (sb-heapdump:dump-system :esa)) +(sb-ext:quit)

Added: trunk/scripts/lisp/build-flexi-streams.lisp ============================================================================== --- (empty file) +++ trunk/scripts/lisp/build-flexi-streams.lisp Sun May 21 14:28:03 2006 @@ -0,0 +1,17 @@ +(sb-ext:disable-debugger) +(setf asdf:*central-registry* (list (car asdf:*central-registry*))) +(asdf:operate 'asdf:load-op :flexi-streams) + +(defmethod sb-heapdump:dump-system + ((c (eql (asdf:find-system :flexi-streams)))) + (sb-heapdump:dump-packages + '(:flexi-streams) + "flexi-streams.heap" + :if-exists :rename-and-delete + :systems '(:flexi-streams) + :system-packages '(:flexi-streams.system))) + +(let ((*default-pathname-defaults* + (truename (sb-ext:posix-getenv "SBCL_HOME")))) + (sb-heapdump:dump-system :flexi-streams)) +(sb-ext:quit)

Added: trunk/scripts/lisp/build-flexichain.lisp ============================================================================== --- (empty file) +++ trunk/scripts/lisp/build-flexichain.lisp Sun May 21 14:28:03 2006 @@ -0,0 +1,16 @@ +(sb-ext:disable-debugger) +(setf asdf:*central-registry* (list (car asdf:*central-registry*))) +(asdf:operate 'asdf:load-op :flexichain) + +(defmethod sb-heapdump:dump-system ((c (eql (asdf:find-system :flexichain)))) + (sb-heapdump:dump-packages + (mapcar #'find-package '("FLEXICHAIN")) + "flexichain.heap" + :if-exists :rename-and-delete + :systems '(:flexichain) + :system-packages '(:flexichain-system))) + +(let ((*default-pathname-defaults* + (truename (sb-ext:posix-getenv "SBCL_HOME")))) + (sb-heapdump:dump-system :flexichain)) +(sb-ext:quit)

Added: trunk/scripts/lisp/build-gsharp.lisp ============================================================================== --- (empty file) +++ trunk/scripts/lisp/build-gsharp.lisp Sun May 21 14:28:03 2006 @@ -0,0 +1,24 @@ +(sb-ext:disable-debugger) +(setf asdf:*central-registry* (list (car asdf:*central-registry*))) +(asdf:operate 'asdf:load-op :gsharp) + +(load "/opt/steeldump/scripts/lisp/clim-helper.lisp") + +(defmethod sb-heapdump:dump-system ((c (eql (asdf:find-system :gsharp)))) + (dump-clim-application + '("GSHARP-UTILITIES" "GF" "SDL" "SCORE-PANE" "GSHARP-BUFFER" + "GSHARP-NUMBERING" "OBSEQ" "GSHARP-MEASURE" "GSHARP-POSTSCRIPT" + "GSHARP-GLYPHS" "GSHARP-BEAMING" "GSHARP-CURSOR" "GSHARP-DRAWING" + "MIDI" "GSHARP-PLAY" "GSHARP") + "gsharp.heap" + nil + :force (list #'(setf clim:output-record-start-cursor-position) + #'(setf clim:output-record-end-cursor-position)) + :systems '(:gsharp) + :system-packages '() + :if-exists :rename-and-delete)) + +(let ((*default-pathname-defaults* + (truename (sb-ext:posix-getenv "SBCL_HOME")))) + (sb-heapdump:dump-system :gsharp)) +(sb-ext:quit)

Added: trunk/scripts/lisp/build-mcclim.lisp ============================================================================== --- (empty file) +++ trunk/scripts/lisp/build-mcclim.lisp Sun May 21 14:28:03 2006 @@ -0,0 +1,53 @@ +(sb-ext:disable-debugger) +(setf asdf:*central-registry* (list (car asdf:*central-registry*))) +(asdf:operate 'asdf:load-op :mcclim) +(asdf:operate 'asdf:load-op :clim-examples) +(asdf:operate 'asdf:load-op :clim-listener) + +(defmethod sb-heapdump:dump-system ((c (eql (asdf:find-system :mcclim)))) + (let ((packages + (mapcar #'find-package + '("IMAGE" "CLIM-CLX" "CLIM-XCOMMON" "CLIM-POSTSCRIPT" + "CLIM-FFI" "GOATEE" "CLIM-USER" "CLIM-DEMO" + "CLIM-INTERNALS" "CLIM-BACKEND" "CLIM-EXTENSIONS" + "CLIM-SYS" "CLIM" "CLIM-LISP" "CLIM-MOP" + "CLIM-LISP-PATCH" "CLIM-NULL" "MENUTEST" + "CLIM-LISTENER" "CLIM-TRANSFORMATIONS-TEST")))) + (sb-heapdump:dump-packages + packages + "mcclim.heap" + :if-exists :rename-and-delete + ;; Pfui, dagegen ist CLX ja noch brav und benutzt einen Indicator + ;; aus seinem eigenen Paket. + :initializer (let* ((ports climi::*server-path-search-order*) + (types + (loop + for port in ports + collect (get port :port-type))) + (parsers + (loop + for port in ports + collect (get port :server-path-parser)))) + (lambda (x) + (loop + for port in ports + for type in types + for parser in parsers + do + (setf (get port :port-type) type) + (setf (get port :server-path-parser) parser)) + (pushnew :clim *features*) + (pushnew :mcclim *features*) + x)) + :systems '(:mcclim :clim :clim-lisp :clim-core :goatee-core + :clim-postscript :clim-clx :clim-opengl + ;; :clim-objc-support :clim-beagle + :clim-null + :clim-looks :clim-clx-user :clim-examples :scigraph + :clim-listener) + :system-packages '(:mcclim.system)))) + +(let ((*default-pathname-defaults* + (truename (sb-ext:posix-getenv "SBCL_HOME")))) + (sb-heapdump:dump-system :mcclim)) +(sb-ext:quit)

Added: trunk/scripts/lisp/build-sbcl.lisp ============================================================================== --- (empty file) +++ trunk/scripts/lisp/build-sbcl.lisp Sun May 21 14:28:03 2006 @@ -0,0 +1,9 @@ +(require :asdf) +(push (merge-pathnames "site-systems/" (truename (posix-getenv "SBCL_HOME"))) + asdf:*central-registry*) +(require :sb-heapdump) +(require :sb-bsd-sockets) +(require :sb-posix) +(require :sb-executable) +(load "/opt/steeldump/scripts/lisp/hack-asdf.lisp") +(save-lisp-and-die "lib/sbcl/sbcl.core")

Added: trunk/scripts/lisp/build-spatial-trees.lisp ============================================================================== --- (empty file) +++ trunk/scripts/lisp/build-spatial-trees.lisp Sun May 21 14:28:03 2006 @@ -0,0 +1,17 @@ +(sb-ext:disable-debugger) +(setf asdf:*central-registry* (list (car asdf:*central-registry*))) +(asdf:operate 'asdf:load-op :spatial-trees) + +(defmethod sb-heapdump:dump-system + ((c (eql (asdf:find-system :spatial-trees)))) + (sb-heapdump:dump-packages + '(:spatial-trees :rectangles :spatial-trees-protocol :spatial-trees-impl) + "spatial-trees.heap" + :if-exists :rename-and-delete + :systems '(:spatial-trees) + :system-packages '())) + +(let ((*default-pathname-defaults* + (truename (sb-ext:posix-getenv "SBCL_HOME")))) + (sb-heapdump:dump-system :spatial-trees)) +(sb-ext:quit)

Added: trunk/scripts/lisp/build-split-sequence.lisp ============================================================================== --- (empty file) +++ trunk/scripts/lisp/build-split-sequence.lisp Sun May 21 14:28:03 2006 @@ -0,0 +1,17 @@ +(sb-ext:disable-debugger) +(setf asdf:*central-registry* (list (car asdf:*central-registry*))) +(asdf:operate 'asdf:load-op :split-sequence) + +(defmethod sb-heapdump:dump-system + ((c (eql (asdf:find-system :split-sequence)))) + (sb-heapdump:dump-packages + '(:split-sequence) + "split-sequence.heap" + :if-exists :rename-and-delete + :systems '(:split-sequence) + :system-packages '(:split-sequence-system))) + +(let ((*default-pathname-defaults* + (truename (sb-ext:posix-getenv "SBCL_HOME")))) + (sb-heapdump:dump-system :split-sequence)) +(sb-ext:quit)

Added: trunk/scripts/lisp/build-tab-layout.lisp ============================================================================== --- (empty file) +++ trunk/scripts/lisp/build-tab-layout.lisp Sun May 21 14:28:03 2006 @@ -0,0 +1,20 @@ +(sb-ext:disable-debugger) +(setf asdf:*central-registry* (list (car asdf:*central-registry*))) +(asdf:operate 'asdf:load-op :tab-layout) + +(load "/opt/steeldump/scripts/lisp/clim-helper.lisp") + +(defmethod sb-heapdump:dump-system + ((c (eql (asdf:find-system :tab-layout)))) + (dump-clim-application + '(:tab-layout :radio-layout :stack-layout) + "tab-layout.heap" + nil + :if-exists :rename-and-delete + :systems '(:tab-layout :radio-layout :stack-layout) + :system-packages '())) + +(let ((*default-pathname-defaults* + (truename (sb-ext:posix-getenv "SBCL_HOME")))) + (sb-heapdump:dump-system :tab-layout)) +(sb-ext:quit)

Added: trunk/scripts/lisp/build-trivial-gray-streams.lisp ============================================================================== --- (empty file) +++ trunk/scripts/lisp/build-trivial-gray-streams.lisp Sun May 21 14:28:03 2006 @@ -0,0 +1,17 @@ +(sb-ext:disable-debugger) +(setf asdf:*central-registry* (list (car asdf:*central-registry*))) +(asdf:operate 'asdf:load-op :trivial-gray-streams) + +(defmethod sb-heapdump:dump-system + ((c (eql (asdf:find-system :trivial-gray-streams)))) + (sb-heapdump:dump-packages + '(:trivial-gray-streams) + "trivial-gray-streams.heap" + :if-exists :rename-and-delete + :systems '(:trivial-gray-streams) + :system-packages '(:trivial-gray-streams-system))) + +(let ((*default-pathname-defaults* + (truename (sb-ext:posix-getenv "SBCL_HOME")))) + (sb-heapdump:dump-system :trivial-gray-streams)) +(sb-ext:quit)

Added: trunk/scripts/lisp/build-trivial-sockets.lisp ============================================================================== --- (empty file) +++ trunk/scripts/lisp/build-trivial-sockets.lisp Sun May 21 14:28:03 2006 @@ -0,0 +1,17 @@ +(sb-ext:disable-debugger) +(setf asdf:*central-registry* (list (car asdf:*central-registry*))) +(asdf:operate 'asdf:load-op :trivial-sockets) + +(defmethod sb-heapdump:dump-system + ((c (eql (asdf:find-system :trivial-sockets)))) + (sb-heapdump:dump-packages + '(:trivial-sockets) + "trivial-sockets.heap" + :if-exists :rename-and-delete + :systems '(:trivial-sockets) + :system-packages '(:trivial-sockets-system))) + +(let ((*default-pathname-defaults* + (truename (sb-ext:posix-getenv "SBCL_HOME")))) + (sb-heapdump:dump-system :trivial-sockets)) +(sb-ext:quit)

Added: trunk/scripts/lisp/clim-helper.lisp ============================================================================== --- (empty file) +++ trunk/scripts/lisp/clim-helper.lisp Sun May 21 14:28:03 2006 @@ -0,0 +1,117 @@ +(defun dump-clim-application + (packages pathname command-tables + &rest args &key (initializer #'identity) force &allow-other-keys) + (let ((p (mapcar #'find-package packages)) + (force-specializers '())) + (labels + ((%extract-hash-table (hash-table) + (let ((alist '())) + (maphash (lambda (k v) + (when (or (member (symbol-package k) p) + (and command-tables + (gethash k command-tables))) + (when (typep v 'class) + (pushnew v force) + (pushnew (sb-kernel:find-classoid (class-name v)) + force)) + (let ((specializer + (gethash k + sb-pcl::*eql-specializer-table*))) + (when specializer + (pushnew specializer force-specializers))) + (push (cons k v) alist))) + hash-table) + alist)) + (extract-hash-table (sym) + (cons sym (%extract-hash-table (symbol-value sym)))) + (%restore-hash-table (table alist) + (loop for (k . v) in alist do + (setf (gethash k table) v) + (when (typep v 'class) + (setf (find-class (class-name v)) v)))) + (restore-hash-table (x) + (%restore-hash-table (symbol-value (car x)) (cdr x))) + ;; climacs-specific hack to find anonymous command tables + ;; fixme: is this still needed? + (extract-climacs-tables (sym) + (let ((hash-table (symbol-value sym)) + (anonymous-command-tables '()) + (alist '())) + (maphash (lambda (k v) + (when (member (symbol-package k) p) + (dolist (mi (slot-value v 'climi::keystroke-items)) + (pushnew (clim:command-menu-item-value + (clim:menu-item-value mi)) + anonymous-command-tables)))) + hash-table) + (dolist (name anonymous-command-tables) + (push (cons name (gethash name hash-table)) alist)) + (cons sym alist))) + (restore-ptrans-data (x) + (loop for (name alist1 alist2) in x do + (let ((table (gethash name climi::*command-tables*))) + (when table + (let ((ttable (climi::presentation-translators table))) + (%restore-hash-table + (climi::translators ttable) + alist1) + (%restore-hash-table + (climi::simple-type-translators ttable) + alist2))))) + (incf climi::*current-translator-cache-generation*)) + (restore-command-data (x) + (loop for (name . alist) in x do + (let ((table (gethash name climi::*command-tables*))) + (when table + (%restore-hash-table (climi::commands table) alist)))) + (incf climi::*current-translator-cache-generation*))) + (let ((data + (list + (extract-hash-table 'climi::*command-tables*) + (extract-climacs-tables 'climi::*command-tables*) + (extract-hash-table 'climi::*command-parser-table*) + (extract-hash-table 'climi::*presentation-type-table*) + (extract-hash-table 'climi::*presentation-gf-table*) + (extract-hash-table 'climi::*presentation-type-abbreviations*))) + (ptrans-data '()) + (command-data '()) + (forced-classes + (remove-if-not (lambda (x) (typep x 'class)) force))) + (maphash (lambda (name table) + (when (typep table 'clim:standard-command-table) + (let ((ttable (climi::presentation-translators table))) + (push (list name + (%extract-hash-table + (climi::translators ttable)) + (%extract-hash-table + (climi::simple-type-translators ttable))) + ptrans-data)) + (push (cons name + (%extract-hash-table (climi::commands table))) + command-data))) + climi::*command-tables*) + (apply #'sb-heapdump:dump-packages + packages + pathname + :force (cons #'dump-clim-application force) + :force-specializers (append force-specializers forced-classes) + :initializer (lambda (x) + (mapc #'restore-hash-table data) + (restore-ptrans-data ptrans-data) + (restore-command-data command-data) + (funcall initializer x)) + ;; CLIM wants the +foo-ink+s to be unique objects. + :customizer (lambda (object) + (dolist (var '(climi::*unsupplied-argument-marker* + climi::*numeric-argument-marker* + clim:+foreground-ink+ + clim:+foreground-ink+ + clim:+background-ink+ + clim:+flipping-ink+) + t) + (when (eq object (symbol-value var)) + (return (values :fixup var))))) + :load-time-customizer (lambda (sym ignore) + ignore + (symbol-value sym)) + args)))))

Added: trunk/scripts/lisp/hack-asdf.lisp ============================================================================== --- (empty file) +++ trunk/scripts/lisp/hack-asdf.lisp Sun May 21 14:28:03 2006 @@ -0,0 +1,29 @@ +(in-package :sb-heapdump) + +(defvar *hack-systems* "/opt/steeldump/lib/sbcl/hack-systems/") + +(defclass module-trampoline (asdf:system) ()) + +(defmethod asdf::traverse ((o asdf:load-op) (c module-trampoline)) + (list (cons o c))) + +(defmethod asdf::traverse ((o asdf:compile-op) (c module-trampoline)) + (error "compile-op on module-trampoline not implemented")) + +(defmethod asdf::perform ((o asdf:load-op) (c module-trampoline)) + (let ((name (asdf:component-name c))) + (setf (gethash name asdf::*defined-systems*) nil) + (require name) + (asdf:operate 'asdf:load-op name))) + +(defun system-heap-file-search (name) + (setf name (coerce-name name)) + (if (gethash name asdf::*defined-systems*) + nil + (let ((p (make-pathname :name name + :type "asd" + :defaults *hack-systems*))) + (when (probe-file p) + p)))) + +(push 'system-heap-file-search asdf:*system-definition-search-functions*)

Added: trunk/scripts/lisp/relocate.lisp ============================================================================== --- (empty file) +++ trunk/scripts/lisp/relocate.lisp Sun May 21 14:28:03 2006 @@ -0,0 +1,2 @@ +(sb-heapdump:relocate-dumpfiles (directory "/opt/steeldump/lib/sbcl/*.heap")) +(sb-ext:quit)

Added: trunk/scripts/makedeb-SAMPLE ============================================================================== --- (empty file) +++ trunk/scripts/makedeb-SAMPLE Sun May 21 14:28:03 2006 @@ -0,0 +1,18 @@ +#!/bin/sh -e +set -x +system=SAMPLESYSTEMNAME + +cd /opt/steeldump + +rm -rf SCRATCH +mkdir SCRATCH + +tar cf - \ + /opt/steeldump/lib/sbcl/${system}.heap \ + /opt/steeldump/lib/sbcl/site-systems/${system}.asd \ + /opt/steeldump/src/$system \ + | tar C SCRATCH -xpf - + +/opt/steeldump/scripts/aux/wipe-fasls $system +/opt/steeldump/scripts/aux/write-dummy-asd $system +/opt/steeldump/scripts/aux/makedeb-helper $system sbcl DEPENDENCIES

Added: trunk/scripts/makedeb-all ============================================================================== --- (empty file) +++ trunk/scripts/makedeb-all Sun May 21 14:28:03 2006 @@ -0,0 +1,24 @@ +#!/bin/sh -e +unset SBCL_HOME +/opt/steeldump/bin/sbcl \ + --userinit /dev/null \ + --sysinit /dev/null \ + --load "/opt/steeldump/scripts/lisp/relocate.lisp" + +/opt/steeldump/scripts/makedeb-sbcl +/opt/steeldump/scripts/makedeb-climacs +/opt/steeldump/scripts/makedeb-clx +/opt/steeldump/scripts/makedeb-esa +/opt/steeldump/scripts/makedeb-flexichain +/opt/steeldump/scripts/makedeb-gsharp +/opt/steeldump/scripts/makedeb-mcclim +/opt/steeldump/scripts/makedeb-spatial-trees +/opt/steeldump/scripts/makedeb-split-sequence +/opt/steeldump/scripts/makedeb-cl-ppcre +/opt/steeldump/scripts/makedeb-cl-fad +/opt/steeldump/scripts/makedeb-tab-layout +/opt/steeldump/scripts/makedeb-trivial-gray-streams +/opt/steeldump/scripts/makedeb-flexi-streams +/opt/steeldump/scripts/makedeb-trivial-sockets +/opt/steeldump/scripts/makedeb-cl-irc +/opt/steeldump/scripts/makedeb-beirc

Added: trunk/scripts/makedeb-beirc ============================================================================== --- (empty file) +++ trunk/scripts/makedeb-beirc Sun May 21 14:28:03 2006 @@ -0,0 +1,21 @@ +#!/bin/sh -e +set -x +system=beirc + +cd /opt/steeldump + +rm -rf SCRATCH +mkdir SCRATCH + +tar cf - \ + /opt/steeldump/lib/sbcl/${system}.heap \ + /opt/steeldump/lib/sbcl/site-systems/${system}.asd \ + /opt/steeldump/src/$system \ + | tar C SCRATCH -xpf - + +mkdir SCRATCH/opt/steeldump/bin +cp /opt/steeldump/scripts/data/beirc SCRATCH/opt/steeldump/bin/ + +/opt/steeldump/scripts/aux/wipe-fasls $system +/opt/steeldump/scripts/aux/write-dummy-asd $system +/opt/steeldump/scripts/aux/makedeb-helper $system sbcl mcclim cl-irc split-sequence tab-layout cl-ppcre cl-fad

Added: trunk/scripts/makedeb-cl-fad ============================================================================== --- (empty file) +++ trunk/scripts/makedeb-cl-fad Sun May 21 14:28:03 2006 @@ -0,0 +1,18 @@ +#!/bin/sh -e +set -x +system=cl-fad + +cd /opt/steeldump + +rm -rf SCRATCH +mkdir SCRATCH + +tar cf - \ + /opt/steeldump/lib/sbcl/${system}.heap \ + /opt/steeldump/lib/sbcl/site-systems/${system}.asd \ + /opt/steeldump/src/$system \ + | tar C SCRATCH -xpf - + +/opt/steeldump/scripts/aux/wipe-fasls $system +/opt/steeldump/scripts/aux/write-dummy-asd $system +/opt/steeldump/scripts/aux/makedeb-helper $system sbcl

Added: trunk/scripts/makedeb-cl-irc ============================================================================== --- (empty file) +++ trunk/scripts/makedeb-cl-irc Sun May 21 14:28:03 2006 @@ -0,0 +1,18 @@ +#!/bin/sh -e +set -x +system=cl-irc + +cd /opt/steeldump + +rm -rf SCRATCH +mkdir SCRATCH + +tar cf - \ + /opt/steeldump/lib/sbcl/${system}.heap \ + /opt/steeldump/lib/sbcl/site-systems/${system}.asd \ + /opt/steeldump/src/$system \ + | tar C SCRATCH -xpf - + +/opt/steeldump/scripts/aux/wipe-fasls $system +/opt/steeldump/scripts/aux/write-dummy-asd $system +/opt/steeldump/scripts/aux/makedeb-helper $system sbcl split-sequence trivial-sockets flexi-streams

Added: trunk/scripts/makedeb-cl-ppcre ============================================================================== --- (empty file) +++ trunk/scripts/makedeb-cl-ppcre Sun May 21 14:28:03 2006 @@ -0,0 +1,18 @@ +#!/bin/sh -e +set -x +system=cl-ppcre + +cd /opt/steeldump + +rm -rf SCRATCH +mkdir SCRATCH + +tar cf - \ + /opt/steeldump/lib/sbcl/${system}.heap \ + /opt/steeldump/lib/sbcl/site-systems/${system}.asd \ + /opt/steeldump/src/$system \ + | tar C SCRATCH -xpf - + +/opt/steeldump/scripts/aux/wipe-fasls $system +/opt/steeldump/scripts/aux/write-dummy-asd $system +/opt/steeldump/scripts/aux/makedeb-helper $system sbcl

Added: trunk/scripts/makedeb-climacs ============================================================================== --- (empty file) +++ trunk/scripts/makedeb-climacs Sun May 21 14:28:03 2006 @@ -0,0 +1,21 @@ +#!/bin/sh -e +set -x +system=climacs + +cd /opt/steeldump + +rm -rf SCRATCH +mkdir SCRATCH + +tar cf - \ + /opt/steeldump/lib/sbcl/${system}.heap \ + /opt/steeldump/lib/sbcl/site-systems/${system}.asd \ + /opt/steeldump/src/$system \ + | tar C SCRATCH -xpf - + +mkdir SCRATCH/opt/steeldump/bin +cp /opt/steeldump/scripts/data/climacs SCRATCH/opt/steeldump/bin/ + +/opt/steeldump/scripts/aux/wipe-fasls $system +/opt/steeldump/scripts/aux/write-dummy-asd $system +/opt/steeldump/scripts/aux/makedeb-helper $system sbcl mcclim flexichain esa split-sequence

Added: trunk/scripts/makedeb-clx ============================================================================== --- (empty file) +++ trunk/scripts/makedeb-clx Sun May 21 14:28:03 2006 @@ -0,0 +1,18 @@ +#!/bin/sh -e +set -x +system=clx + +cd /opt/steeldump + +rm -rf SCRATCH +mkdir SCRATCH + +tar cf - \ + /opt/steeldump/lib/sbcl/${system}.heap \ + /opt/steeldump/lib/sbcl/site-systems/${system}.asd \ + /opt/steeldump/src/$system \ + | tar C SCRATCH -xpf - + +/opt/steeldump/scripts/aux/wipe-fasls $system +/opt/steeldump/scripts/aux/write-dummy-asd $system +/opt/steeldump/scripts/aux/makedeb-helper $system sbcl

Added: trunk/scripts/makedeb-esa ============================================================================== --- (empty file) +++ trunk/scripts/makedeb-esa Sun May 21 14:28:03 2006 @@ -0,0 +1,18 @@ +#!/bin/sh -e +set -x +system=esa + +cd /opt/steeldump + +rm -rf SCRATCH +mkdir SCRATCH + +tar cf - \ + /opt/steeldump/lib/sbcl/${system}.heap \ + /opt/steeldump/lib/sbcl/site-systems/${system}.asd \ + /opt/steeldump/src/$system \ + | tar C SCRATCH -xpf - + +/opt/steeldump/scripts/aux/wipe-fasls $system +/opt/steeldump/scripts/aux/write-dummy-asd $system +/opt/steeldump/scripts/aux/makedeb-helper $system sbcl mcclim

Added: trunk/scripts/makedeb-flexi-streams ============================================================================== --- (empty file) +++ trunk/scripts/makedeb-flexi-streams Sun May 21 14:28:03 2006 @@ -0,0 +1,18 @@ +#!/bin/sh -e +set -x +system=flexi-streams + +cd /opt/steeldump + +rm -rf SCRATCH +mkdir SCRATCH + +tar cf - \ + /opt/steeldump/lib/sbcl/${system}.heap \ + /opt/steeldump/lib/sbcl/site-systems/${system}.asd \ + /opt/steeldump/src/$system \ + | tar C SCRATCH -xpf - + +/opt/steeldump/scripts/aux/wipe-fasls $system +/opt/steeldump/scripts/aux/write-dummy-asd $system +/opt/steeldump/scripts/aux/makedeb-helper $system sbcl trivial-gray-streams

Added: trunk/scripts/makedeb-flexichain ============================================================================== --- (empty file) +++ trunk/scripts/makedeb-flexichain Sun May 21 14:28:03 2006 @@ -0,0 +1,18 @@ +#!/bin/sh -e +set -x +system=flexichain + +cd /opt/steeldump + +rm -rf SCRATCH +mkdir SCRATCH + +tar cf - \ + /opt/steeldump/lib/sbcl/${system}.heap \ + /opt/steeldump/lib/sbcl/site-systems/${system}.asd \ + /opt/steeldump/src/$system \ + | tar C SCRATCH -xpf - + +/opt/steeldump/scripts/aux/wipe-fasls $system +/opt/steeldump/scripts/aux/write-dummy-asd $system +/opt/steeldump/scripts/aux/makedeb-helper $system sbcl

Added: trunk/scripts/makedeb-gsharp ============================================================================== --- (empty file) +++ trunk/scripts/makedeb-gsharp Sun May 21 14:28:03 2006 @@ -0,0 +1,21 @@ +#!/bin/sh -e +set -x +system=gsharp + +cd /opt/steeldump + +rm -rf SCRATCH +mkdir SCRATCH + +tar cf - \ + /opt/steeldump/lib/sbcl/${system}.heap \ + /opt/steeldump/lib/sbcl/site-systems/${system}.asd \ + /opt/steeldump/src/$system \ + | tar C SCRATCH -xpf - + +mkdir SCRATCH/opt/steeldump/bin +cp /opt/steeldump/scripts/data/gsharp SCRATCH/opt/steeldump/bin/gsharp + +/opt/steeldump/scripts/aux/wipe-fasls $system +/opt/steeldump/scripts/aux/write-dummy-asd $system +/opt/steeldump/scripts/aux/makedeb-helper $system sbcl mcclim flexichain esa

Added: trunk/scripts/makedeb-mcclim ============================================================================== --- (empty file) +++ trunk/scripts/makedeb-mcclim Sun May 21 14:28:03 2006 @@ -0,0 +1,21 @@ +#!/bin/sh -e +set -x +system=mcclim + +cd /opt/steeldump + +rm -rf SCRATCH +mkdir SCRATCH + +tar cf - \ + /opt/steeldump/lib/sbcl/${system}.heap \ + /opt/steeldump/lib/sbcl/site-systems/${system}.asd \ + /opt/steeldump/src/$system \ + | tar C SCRATCH -xpf - + +mkdir SCRATCH/opt/steeldump/bin +cp /opt/steeldump/scripts/data/clim-listener SCRATCH/opt/steeldump/bin/ + +/opt/steeldump/scripts/aux/wipe-fasls $system +/opt/steeldump/scripts/aux/write-dummy-asd $system +/opt/steeldump/scripts/aux/makedeb-helper $system sbcl clx spatial-trees

Added: trunk/scripts/makedeb-sbcl ============================================================================== --- (empty file) +++ trunk/scripts/makedeb-sbcl Sun May 21 14:28:03 2006 @@ -0,0 +1,20 @@ +#!/bin/sh -e +set -x +package=steeldump-sbcl +version=2006-05-01 +deb=/opt/steeldump/pool/${package}_${version}_i386.deb + +cd /opt/steeldump + +rm -rf SCRATCH +mkdir SCRATCH + +tar --exclude=*.heap --exclude=site-systems/*.asd -cf - \ + /opt/steeldump/bin/sbcl \ + /opt/steeldump/lib/sbcl \ + /opt/steeldump/share/man/man1/sbcl.1 \ + /opt/steeldump/share/doc/sbcl \ + | tar C SCRATCH -xpf - + +STEELDUMP_EXTRA_DEPENDS="libc6 (>= 2.3.5-1)" \ +/opt/steeldump/scripts/aux/makedeb-helper sbcl

Added: trunk/scripts/makedeb-spatial-trees ============================================================================== --- (empty file) +++ trunk/scripts/makedeb-spatial-trees Sun May 21 14:28:03 2006 @@ -0,0 +1,18 @@ +#!/bin/sh -e +set -x +system=spatial-trees + +cd /opt/steeldump + +rm -rf SCRATCH +mkdir SCRATCH + +tar cf - \ + /opt/steeldump/lib/sbcl/${system}.heap \ + /opt/steeldump/lib/sbcl/site-systems/${system}.asd \ + /opt/steeldump/src/$system \ + | tar C SCRATCH -xpf - + +/opt/steeldump/scripts/aux/wipe-fasls $system +/opt/steeldump/scripts/aux/write-dummy-asd $system +/opt/steeldump/scripts/aux/makedeb-helper $system sbcl

Added: trunk/scripts/makedeb-split-sequence ============================================================================== --- (empty file) +++ trunk/scripts/makedeb-split-sequence Sun May 21 14:28:03 2006 @@ -0,0 +1,18 @@ +#!/bin/sh -e +set -x +system=split-sequence + +cd /opt/steeldump + +rm -rf SCRATCH +mkdir SCRATCH + +tar cf - \ + /opt/steeldump/lib/sbcl/${system}.heap \ + /opt/steeldump/lib/sbcl/site-systems/${system}.asd \ + /opt/steeldump/src/$system \ + | tar C SCRATCH -xpf - + +/opt/steeldump/scripts/aux/wipe-fasls $system +/opt/steeldump/scripts/aux/write-dummy-asd $system +/opt/steeldump/scripts/aux/makedeb-helper $system sbcl

Added: trunk/scripts/makedeb-tab-layout ============================================================================== --- (empty file) +++ trunk/scripts/makedeb-tab-layout Sun May 21 14:28:03 2006 @@ -0,0 +1,18 @@ +#!/bin/sh -e +set -x +system=tab-layout + +cd /opt/steeldump + +rm -rf SCRATCH +mkdir SCRATCH + +tar cf - \ + /opt/steeldump/lib/sbcl/${system}.heap \ + /opt/steeldump/lib/sbcl/site-systems/${system}.asd \ + /opt/steeldump/src/$system \ + | tar C SCRATCH -xpf - + +/opt/steeldump/scripts/aux/wipe-fasls $system +/opt/steeldump/scripts/aux/write-dummy-asd $system +/opt/steeldump/scripts/aux/makedeb-helper $system sbcl mcclim

Added: trunk/scripts/makedeb-trivial-gray-streams ============================================================================== --- (empty file) +++ trunk/scripts/makedeb-trivial-gray-streams Sun May 21 14:28:03 2006 @@ -0,0 +1,18 @@ +#!/bin/sh -e +set -x +system=trivial-gray-streams + +cd /opt/steeldump + +rm -rf SCRATCH +mkdir SCRATCH + +tar cf - \ + /opt/steeldump/lib/sbcl/${system}.heap \ + /opt/steeldump/lib/sbcl/site-systems/${system}.asd \ + /opt/steeldump/src/$system \ + | tar C SCRATCH -xpf - + +/opt/steeldump/scripts/aux/wipe-fasls $system +/opt/steeldump/scripts/aux/write-dummy-asd $system +/opt/steeldump/scripts/aux/makedeb-helper $system sbcl mcclim

Added: trunk/scripts/makedeb-trivial-sockets ============================================================================== --- (empty file) +++ trunk/scripts/makedeb-trivial-sockets Sun May 21 14:28:03 2006 @@ -0,0 +1,18 @@ +#!/bin/sh -e +set -x +system=trivial-sockets + +cd /opt/steeldump + +rm -rf SCRATCH +mkdir SCRATCH + +tar cf - \ + /opt/steeldump/lib/sbcl/${system}.heap \ + /opt/steeldump/lib/sbcl/site-systems/${system}.asd \ + /opt/steeldump/src/$system \ + | tar C SCRATCH -xpf - + +/opt/steeldump/scripts/aux/wipe-fasls $system +/opt/steeldump/scripts/aux/write-dummy-asd $system +/opt/steeldump/scripts/aux/makedeb-helper $system sbcl mcclim

Added: trunk/scripts/patches/climacs.diff ============================================================================== --- (empty file) +++ trunk/scripts/patches/climacs.diff Sun May 21 14:28:03 2006 @@ -0,0 +1,15 @@ +Index: packages.lisp +=================================================================== +RCS file: /project/climacs/cvsroot/climacs/packages.lisp,v +retrieving revision 1.96 +diff -u -u -r1.96 packages.lisp +--- packages.lisp 14 May 2006 20:35:44 -0000 1.96 ++++ packages.lisp 21 May 2006 14:54:58 -0000 +@@ -204,6 +204,7 @@ + (defpackage :climacs-lisp-syntax + (:use :clim-lisp :clim :clim-extensions :climacs-buffer :climacs-base + :climacs-syntax :flexichain :climacs-pane :climacs-gui) ++ (:shadow :form) + (:export :lisp-string)) + +