diff options
author | Matthew Kennedy <mkennedy@gentoo.org> | 2006-01-11 22:39:06 +0000 |
---|---|---|
committer | Matthew Kennedy <mkennedy@gentoo.org> | 2006-01-11 22:39:06 +0000 |
commit | da482c94013ae2e0f55e834fc29ab6b230cbd5b9 (patch) | |
tree | 290a5d12862e8114313a3573237072a1202328e2 /dev-lisp/clisp/files | |
parent | Masked packages in preparation for prelude-suite stabilization (diff) | |
download | gentoo-2-da482c94013ae2e0f55e834fc29ab6b230cbd5b9.tar.gz gentoo-2-da482c94013ae2e0f55e834fc29ab6b230cbd5b9.tar.bz2 gentoo-2-da482c94013ae2e0f55e834fc29ab6b230cbd5b9.zip |
New upstream version.
(Portage version: 2.1_pre3-r1)
Diffstat (limited to 'dev-lisp/clisp/files')
-rw-r--r-- | dev-lisp/clisp/files/2.37/README.Gentoo | 11 | ||||
-rw-r--r-- | dev-lisp/clisp/files/2.37/clisp.sh | 118 | ||||
-rw-r--r-- | dev-lisp/clisp/files/2.37/install-clc.lisp | 15 | ||||
-rw-r--r-- | dev-lisp/clisp/files/digest-clisp-2.37 | 1 |
4 files changed, 145 insertions, 0 deletions
diff --git a/dev-lisp/clisp/files/2.37/README.Gentoo b/dev-lisp/clisp/files/2.37/README.Gentoo new file mode 100644 index 000000000000..6bec925fb0d3 --- /dev/null +++ b/dev-lisp/clisp/files/2.37/README.Gentoo @@ -0,0 +1,11 @@ + -*-outline-*- + +* Gentoo Specific Notes + +The CLISP port for Gentoo uses Common Lisp Controller related code +(install-clc.lisp and clisp.sh) from Debian. This code contains the following +copyright: + + ;;;; Copyright (c) 2004 Kevin M. Rosenberg + ;;;; GNU GPL v2 license + diff --git a/dev-lisp/clisp/files/2.37/clisp.sh b/dev-lisp/clisp/files/2.37/clisp.sh new file mode 100644 index 000000000000..f5ed6a1d8fce --- /dev/null +++ b/dev-lisp/clisp/files/2.37/clisp.sh @@ -0,0 +1,118 @@ +#!/bin/sh +# Copyright (c) 2002 Kevin M. Rosenberg +# GNU GPL v2 license + +if [ ! -f /usr/share/common-lisp/source/common-lisp-controller/common-lisp-controller.lisp ] ; then + echo "*** Can't find common-lisp-controller.lisp ***" >&2 + echo "Please report this as a bug" &>2 + exit 1 +fi + +clisp_dir=/usr/lib/clisp +clc_lib_dir=/usr/lib/common-lisp/clisp + +builder=/usr/bin/clisp +old_mem=$clisp_dir/full/lispinit.mem +new_mem=$clisp_dir/full/lispinit-new.mem +clean_mem=$clisp_dir/full/lispinit-clean.mem + +lisp_error() +{ + echo "Error running $builder" >&2 + exit 1 +} + +mem_error() +{ + echo "Error moving new lisp image $new_mem" >&2 + exit 1 +} + + +case $1 in + rebuild) + echo $0 Rebuilding packages... + shift + while [ -x $builder ] && [ ! -z "$1" ] ; do + echo ...rebuilding $1 + $builder -norc -q -M $old_mem -x " +(let ((*compile-print* nil) + (*compile-progress* nil) + (*compile-verbose* nil) + (*require-verbose* nil) + (*load-verbose* nil) + (mk::*load-source-if-no-binary* nil) + (mk::*bother-user-if-no-binary* nil) + (mk::*compile-during-load* t)) + (handler-case + (progn + (c-l-c:compile-library (quote $1)) + (ext:exit 0) + ) + (error (e) + (ignore-errors (format t \"~&Build error: ~A~%\" e)) + (finish-output) + (ext:exit 1))))" || exit 1 + shift + done + ;; + remove) + echo $0 Removing packages... + shift + while [ ! -z "$1" ] ; do + echo ...removing package $1 + rm -rf "${clc_lib_dir}/$1" + shift + done + rmdir $clc_lib_dir 2> /dev/null + ;; + install-clc) + echo Installing clc... + if [ ! -f $clean_mem ]; then + cp $old_mem $clean_mem + fi + if [ -x $clisp_dir/$lisp_builder ]; then + $builder -norc -q -M $clean_mem \ + -x " +(handler-case + (progn + (when (find-package :c-l-c) ; have to remove + (delete-package :c-l-c)) ; for clisp workaround + (load \"$clisp_dir/install-clc.lisp\") + (saveinitmem \"${new_mem}\") + (ext:exit 0)) + (error (e) + (ignore-errors (format t \"~&install-clc error: ~A~%\" e)) + (finish-output) + (ext:exit 1)))" || lisp_error + mv $new_mem $old_mem || mem_error + fi + ;; + remove-clc) + if [ -f $clean_mem ]; then + cp $clean_mem $old_mem + else + echo "Warning: Can't find original image file $clean_mem. Aborting." >& 2 + fi + ;; + make-user-image) + if [ ! -f $2 ] ; then + echo "Trying to make-user image, but can not find file $2" >&2 + exit 1 + fi + $builder -norc -q -M $old_mem \ + -x "(progn + (load \"$2\") + (saveinitmem \"${new_mem}\")) + (ext:exit 0)" || lisp_error + mv $new_mem $old_mem || mem_error + ;; + *) + echo "`basename $0`: Unknown command $1" >&2 + echo "Known commands are:" >&2 + echo "install-clc, remove-clc, rebuild, remove, and make-user-image" >&2 + exit 1 + ;; +esac + +exit 0 diff --git a/dev-lisp/clisp/files/2.37/install-clc.lisp b/dev-lisp/clisp/files/2.37/install-clc.lisp new file mode 100644 index 000000000000..06cb217d32cf --- /dev/null +++ b/dev-lisp/clisp/files/2.37/install-clc.lisp @@ -0,0 +1,15 @@ +;;;; -*- Mode: Lisp; Package: CL-USER -*- +;;;; Copyright (c) 2004 Kevin M. Rosenberg +;;;; GNU GPL v2 license + +(in-package #:cl-user) + +(handler-case + (load "/usr/share/common-lisp/source/common-lisp-controller/common-lisp-controller.lisp") + (error (e) + (format t "Error during loading of common-lisp-controller.lisp: ~A~%" e))) + +(handler-case + (common-lisp-controller:init-common-lisp-controller-v4 "clisp") + (error (e) + (format t "Error during init-common-lisp-controller-v4: ~A~%" e))) diff --git a/dev-lisp/clisp/files/digest-clisp-2.37 b/dev-lisp/clisp/files/digest-clisp-2.37 new file mode 100644 index 000000000000..4e6924140041 --- /dev/null +++ b/dev-lisp/clisp/files/digest-clisp-2.37 @@ -0,0 +1 @@ +MD5 f2445b3935b6f97b443d9548c38872e9 clisp-2.37.tar.bz2 8052113 |