[steeldump-cvs] r2 - in trunk/scripts: . aux data descriptions lisp patches
dlichteblau at common-lisp.net
dlichteblau at common-lisp.net
Sun May 21 18:28:11 UTC 2006
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 at 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 at 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 at 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 at 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 at 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 at 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 at 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 at 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))
+
+
More information about the Steeldump-cvs
mailing list