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@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@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"