[steeldump-cvs] r7 - in trunk/scripts: . data descriptions lisp patches
dlichteblau at common-lisp.net
dlichteblau at common-lisp.net
Sun May 28 18:04:57 UTC 2006
Author: dlichteblau
Date: Sun May 28 14:04:57 2006
New Revision: 7
Added:
trunk/scripts/build-eclipse
trunk/scripts/data/eclipse
trunk/scripts/descriptions/eclipse
trunk/scripts/fetch-SAMPLE (contents, props changed)
trunk/scripts/fetch-eclipse (contents, props changed)
trunk/scripts/lisp/build-eclipse.lisp
trunk/scripts/makedeb-eclipse
trunk/scripts/patches/eclipse.diff
Modified:
trunk/scripts/VERSION
trunk/scripts/build-all
trunk/scripts/fetch-all
trunk/scripts/fetch-cl-ppcre
trunk/scripts/fetch-flexi-streams
trunk/scripts/fetch-sbcl
trunk/scripts/lisp/build-cl-ppcre.lisp
trunk/scripts/makedeb-all
Log:
version 2006-05-28
upgrade cl-ppcre to 1.2.14
upgrade flexi-streams to 0.5.5
new package eclipse
Modified: trunk/scripts/VERSION
==============================================================================
--- trunk/scripts/VERSION (original)
+++ trunk/scripts/VERSION Sun May 28 14:04:57 2006
@@ -1 +1 @@
-2006-05-21
+2006-05-28
Modified: trunk/scripts/build-all
==============================================================================
--- trunk/scripts/build-all (original)
+++ trunk/scripts/build-all Sun May 28 14:04:57 2006
@@ -8,7 +8,7 @@
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
+ flexi-streams trivial-sockets cl-irc beirc eclipse
do
f=/opt/steeldump/lib/sbcl/${system}.heap
if test -e $f; then
Added: trunk/scripts/build-eclipse
==============================================================================
--- (empty file)
+++ trunk/scripts/build-eclipse Sun May 28 14:04:57 2006
@@ -0,0 +1,4 @@
+#!/bin/sh -e
+set -x
+touch /opt/steeldump/src/eclipse/config.lisp
+/opt/steeldump/scripts/aux/build-system eclipse
Added: trunk/scripts/data/eclipse
==============================================================================
--- (empty file)
+++ trunk/scripts/data/eclipse Sun May 28 14:04:57 2006
@@ -0,0 +1,56 @@
+#! /bin/sh
+# $Id: eclipse.in,v 1.10 2005/02/10 23:45:44 ihatchondo Exp $
+#
+# This file starts the eclipse window manager
+#
+# Modified for steeldump.
+unset SBCL_HOME
+
+usage () {
+ printf "\nusage: eclipse [options]\n\n"
+ printf " --display=dpy specifies the X server to use.\n"
+ printf " --sm-client-id=id specifies the sesion manager id to use.\n"
+ printf " --activate-log specifies that errors must be logged.\n\n"
+ exit 1;
+}
+
+display_spec=""
+sm_client_id=""
+activate_log=""
+options=""
+
+## Parse and collect options.
+
+if [ $# -gt 3 ] ; then usage ; fi
+
+while [ $# -gt 0 ] ; do
+ case "$1" in
+ --display=*)
+ tmp=`echo $1 | cut -d'=' -f2`
+ display_spec=":display \"$tmp\"" ;
+ shift ;
+ ;;
+ --sm-client-id=*)
+ tmp=`echo $1 | cut -d'=' -f2`
+ sm_client_id=":sm-client-id \"$tmp\"";
+ shift ;
+ ;;
+ --activate-log)
+ activate_log=":activate-log t";
+ shift ;
+ ;;
+ -* | *)
+ printf "\n $1 unknow option \n";
+ usage ;;
+ esac
+done
+
+options="$display_spec $sm_client_id $activate_log"
+
+exec /opt/steeldump/bin/sbcl \
+ --noinform \
+ --userinit /dev/null \
+ --disable-debugger \
+ --eval '(setf sb-heapdump:*dumpload-verbose* nil)' \
+ --eval '(require :eclipse)' \
+ --eval "(progn (eclipse:eclipse ${options}) (sb-ext:quit))"
Added: trunk/scripts/descriptions/eclipse
==============================================================================
--- (empty file)
+++ trunk/scripts/descriptions/eclipse Sun May 28 14:04:57 2006
@@ -0,0 +1,8 @@
+Description: A window manager written entirely in Common Lisp. (steeldump package)
+ Eclipse is a window manager written entirely in Common Lisp. Started
+ by a group of students of the 4th year CS program in Bordeaux, France,
+ as part of their second-semester programming project. Currently the
+ window manager is being maintained by one of those students, Iban
+ Hatchondo, as well as several other Common Lisp programmers.
+ .
+ This is a non-Debian binary package from the steeldump repository.
Added: trunk/scripts/fetch-SAMPLE
==============================================================================
--- (empty file)
+++ trunk/scripts/fetch-SAMPLE Sun May 28 14:04:57 2006
@@ -0,0 +1,19 @@
+#!/bin/sh -e
+set -x
+
+# choose one:
+
+/opt/steeldump/scripts/aux/fetch-url \
+ z \
+ http://acme.com/pub/SAMPLE/ \
+ SAMPLE.tar.gz \
+ SAMPLE-1.2 \
+ SAMPLE
+
+/opt/steeldump/scripts/aux/fetch-svn \
+ svn://common-lisp.net/project/SAMPLE/svn/trunk \
+ SAMPLE
+
+/opt/steeldump/scripts/aux/fetch-cvs \
+ :pserver:anonymous:anonymous at common-lisp.net:/project/SAMPLE/cvsroot \
+ SAMPLE
Modified: trunk/scripts/fetch-all
==============================================================================
--- trunk/scripts/fetch-all (original)
+++ trunk/scripts/fetch-all Sun May 28 14:04:57 2006
@@ -1,7 +1,7 @@
#!/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
+ flexi-streams trivial-sockets cl-irc beirc eclipse
do
if test -e /opt/steeldump/src/$system; then
echo "$system already present, skipping"
Modified: trunk/scripts/fetch-cl-ppcre
==============================================================================
--- trunk/scripts/fetch-cl-ppcre (original)
+++ trunk/scripts/fetch-cl-ppcre Sun May 28 14:04:57 2006
@@ -4,5 +4,5 @@
z \
http://weitz.de/files/ \
cl-ppcre.tar.gz \
- cl-ppcre-1.2.13 \
+ cl-ppcre-1.2.14 \
cl-ppcre
Added: trunk/scripts/fetch-eclipse
==============================================================================
--- (empty file)
+++ trunk/scripts/fetch-eclipse Sun May 28 14:04:57 2006
@@ -0,0 +1,7 @@
+#!/bin/sh -e
+set -x
+/opt/steeldump/scripts/aux/fetch-cvs \
+ :pserver:anonymous:anonymous at common-lisp.net:/project/eclipse/cvsroot \
+ eclipse
+cd /opt/steeldump/src/eclipse
+patch -p0 </opt/steeldump/scripts/patches/eclipse.diff
Modified: trunk/scripts/fetch-flexi-streams
==============================================================================
--- trunk/scripts/fetch-flexi-streams (original)
+++ trunk/scripts/fetch-flexi-streams Sun May 28 14:04:57 2006
@@ -4,5 +4,5 @@
z \
http://weitz.de/files/ \
flexi-streams.tar.gz \
- flexi-streams-0.5.4 \
+ flexi-streams-0.5.5 \
flexi-streams
Modified: trunk/scripts/fetch-sbcl
==============================================================================
--- trunk/scripts/fetch-sbcl (original)
+++ trunk/scripts/fetch-sbcl Sun May 28 14:04:57 2006
@@ -7,8 +7,8 @@
./scripts/aux/fetch-url \
j \
$mirror/sbcl/ \
- sbcl-0.9.12-source.tar.bz2 \
- sbcl-0.9.12 \
+ sbcl-0.9.13-source.tar.bz2 \
+ sbcl-0.9.13 \
sbcl
./scripts/aux/fetch-svn \
svn://common-lisp.net/project/steeldump/svn/trunk/sb-heapdump \
Modified: trunk/scripts/lisp/build-cl-ppcre.lisp
==============================================================================
--- trunk/scripts/lisp/build-cl-ppcre.lisp (original)
+++ trunk/scripts/lisp/build-cl-ppcre.lisp Sun May 28 14:04:57 2006
@@ -9,7 +9,7 @@
"cl-ppcre.heap"
:if-exists :rename-and-delete
:systems '(:cl-ppcre)
- :system-packages '(:cl-ppcre.system)))
+ :system-packages '()))
(let ((*default-pathname-defaults*
(truename (sb-ext:posix-getenv "SBCL_HOME"))))
Added: trunk/scripts/lisp/build-eclipse.lisp
==============================================================================
--- (empty file)
+++ trunk/scripts/lisp/build-eclipse.lisp Sun May 28 14:04:57 2006
@@ -0,0 +1,37 @@
+(sb-ext:disable-debugger)
+(setf asdf:*central-registry* (list (car asdf:*central-registry*)))
+
+(asdf:operate 'asdf:load-op :clx)
+(load "/opt/steeldump/src/eclipse/system.lisp")
+(asdf:operate 'asdf:load-op :eclipse)
+(defparameter eclipse:*eclipse-eclipsedir* nil)
+(defparameter eclipse:*eclipse-initfile* ".eclipse")
+
+(defmethod sb-heapdump:dump-system
+ ((c (eql (asdf:find-system :eclipse))))
+ (sb-heapdump:dump-packages
+ '(;; "COOLCLEAN-ECLIPSE-THEME" "BRUSHED-METAL-ECLIPSE-THEME"
+ ;; "STEP-ECLIPSE-THEME" "MICROGUI-ECLIPSE-THEME"
+ "NO-DECORATION-ECLIPSE-THEME" "ECLIPSE-EXTENSIONS" "ECLIPSE-INTERNALS"
+ "PROGRAMMED-TASKS" "KEYBOARD" "CLX-EXTENSIONS" "GNOME"
+ "EXTENDED-WINDOW-MANAGER-HINTS" "MANAGER-COMMONS" "PPM" "SM-LIB"
+ "ICE-LIB")
+ "eclipse.heap"
+ :initializer (lambda (foo)
+ (load "/opt/steeldump/src/eclipse/lib/clx-ext/clx-patch.fasl")
+ foo)
+ :if-exists :rename-and-delete
+ :systems '(:sm-lib :eclipse-lisp :clx-ext :eclipse-lib :eclipse :ice-lib)
+ :system-packages '("ECLIPSE-SYSTEM" "SM-LIB-SYSTEM" "ICE-LIB-SYSTEM")))
+
+(let ((*default-pathname-defaults*
+ (truename (sb-ext:posix-getenv "SBCL_HOME"))))
+ (sb-heapdump:dump-system :eclipse))
+
+(eclipse-system:compile-themes
+ "/opt/steeldump/src/eclipse/themes/microGUI/"
+ "/opt/steeldump/src/eclipse/themes/Step/"
+ "/opt/steeldump/src/eclipse/themes/brushed-metal/"
+ "/opt/steeldump/src/eclipse/themes/CoolClean/")
+
+(sb-ext:quit)
Modified: trunk/scripts/makedeb-all
==============================================================================
--- trunk/scripts/makedeb-all (original)
+++ trunk/scripts/makedeb-all Sun May 28 14:04:57 2006
@@ -22,3 +22,4 @@
/opt/steeldump/scripts/makedeb-trivial-sockets
/opt/steeldump/scripts/makedeb-cl-irc
/opt/steeldump/scripts/makedeb-beirc
+/opt/steeldump/scripts/makedeb-eclipse
Added: trunk/scripts/makedeb-eclipse
==============================================================================
--- (empty file)
+++ trunk/scripts/makedeb-eclipse Sun May 28 14:04:57 2006
@@ -0,0 +1,22 @@
+#!/bin/sh -e
+set -x
+system=eclipse
+
+cd /opt/steeldump
+
+rm -rf SCRATCH
+mkdir SCRATCH
+
+tar cf - \
+ /opt/steeldump/lib/sbcl/${system}.heap \
+ /opt/steeldump/src/$system \
+ | tar C SCRATCH -xpf -
+
+mkdir SCRATCH/opt/steeldump/bin
+cp /opt/steeldump/scripts/data/eclipse SCRATCH/opt/steeldump/bin/
+
+HACK=/opt/steeldump/src/eclipse/lib/clx-ext/clx-patch.fasl
+/opt/steeldump/scripts/aux/wipe-fasls $system
+cp $HACK /opt/steeldump/SCRATCH/$HACK
+/opt/steeldump/scripts/aux/write-dummy-asd $system
+/opt/steeldump/scripts/aux/makedeb-helper $system sbcl clx
Added: trunk/scripts/patches/eclipse.diff
==============================================================================
--- (empty file)
+++ trunk/scripts/patches/eclipse.diff Sun May 28 14:04:57 2006
@@ -0,0 +1,74 @@
+Index: eclipse.lisp
+===================================================================
+RCS file: /project/eclipse/cvsroot/eclipse/eclipse.lisp,v
+retrieving revision 1.25
+diff -u -u -r1.25 eclipse.lisp
+--- eclipse.lisp 14 Jan 2006 15:40:55 -0000 1.25
++++ eclipse.lisp 28 May 2006 18:02:31 -0000
+@@ -185,7 +185,7 @@
+ :line-width 1 :exposures :OFF))
+ ;; load personal configuration file, or the default one.
+ (labels ((load-if (f) (and (probe-file f) (load-config-file f))))
+- (or (load-if (home-subdirectory cl-user::*eclipse-initfile*))
++ (or (load-if (home-subdirectory *eclipse-initfile*))
+ (load-if (eclipse-path "eclipserc"))
+ (error "Unable to read a configuration file.~%")))
+ (setf (xlib:window-cursor root-window) (root-default-cursor *root*))
+Index: global.lisp
+===================================================================
+RCS file: /project/eclipse/cvsroot/eclipse/global.lisp,v
+retrieving revision 1.29
+diff -u -u -r1.29 global.lisp
+--- global.lisp 1 Mar 2005 22:41:31 -0000 1.29
++++ global.lisp 28 May 2006 18:02:32 -0000
+@@ -24,7 +24,7 @@
+
+ (defun eclipse-path (&rest names)
+ (apply #'concatenate 'string
+- (or cl-user::*eclipse-eclipsedir* *eclipse-directory*)
++ (or *eclipse-eclipsedir* *eclipse-directory*)
+ names))
+
+ ;; The two following constants represent all the gnome protocols
+@@ -214,6 +214,7 @@
+ (format *stderr*
+ "X error ~A ~:[~;with id~]~%=> ~{~A ~}~%"
+ err resource-id keys)
++ (cl-user::backtrace)
+ (when resource-id
+ (let* ((resource (xlib::lookup-window dpy resource-id))
+ (widget (lookup-widget resource)))
+Index: package.lisp
+===================================================================
+RCS file: /project/eclipse/cvsroot/eclipse/package.lisp,v
+retrieving revision 1.19
+diff -u -u -r1.19 package.lisp
+--- package.lisp 16 Jan 2005 23:25:59 -0000 1.19
++++ package.lisp 28 May 2006 18:02:32 -0000
+@@ -363,6 +363,10 @@
+ #:*verbose-resize*
+ #:*verbose-window-cycling*
+ #:*warp-pointer-when-cycle*
++
++ ;; added for steeldump:
++ #:*eclipse-eclipsedir*
++ #:*eclipse-initfile*
+ ))
+
+ (defpackage ECLIPSE-EXTENSIONS
+Index: system.lisp
+===================================================================
+RCS file: /project/eclipse/cvsroot/eclipse/system.lisp,v
+retrieving revision 1.16
+diff -u -u -r1.16 system.lisp
+--- system.lisp 13 Mar 2005 23:37:06 -0000 1.16
++++ system.lisp 28 May 2006 18:02:32 -0000
+@@ -109,7 +109,7 @@
+ (eclipse-defsystem (:eclipse-lisp)
+ #+:clisp "lisp-dep/clisp.lisp")
+
+-(eclipse-defsystem (:clx-ext :depends-on (:eclipse-lisp))
++(eclipse-defsystem (:clx-ext :depends-on (:eclipse-lisp :clx))
+ "lib/clx-ext/clx-patch.lisp"
+ "lib/clx-ext/xvidmode.lisp"
+ "lib/clx-ext/package.lisp"
More information about the Steeldump-cvs
mailing list