summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthew Kennedy <mkennedy@gentoo.org>2006-04-03 17:29:51 +0000
committerMatthew Kennedy <mkennedy@gentoo.org>2006-04-03 17:29:51 +0000
commit357c882c89400e5a9275c002a82fb35668f1513e (patch)
tree19f3269908ff30ad71a1b4282d58c0eedc644751 /dev-lisp/clisp/files/2.36/clisp.sh
parentppc stable, bug #128610 (diff)
downloadhistorical-357c882c89400e5a9275c002a82fb35668f1513e.tar.gz
historical-357c882c89400e5a9275c002a82fb35668f1513e.tar.bz2
historical-357c882c89400e5a9275c002a82fb35668f1513e.zip
Missing x11-misc/imake dependencies; Resolves Bug #128288; Removed old ebuilds.
Package-Manager: portage-2.1_pre7-r1
Diffstat (limited to 'dev-lisp/clisp/files/2.36/clisp.sh')
-rw-r--r--dev-lisp/clisp/files/2.36/clisp.sh118
1 files changed, 0 insertions, 118 deletions
diff --git a/dev-lisp/clisp/files/2.36/clisp.sh b/dev-lisp/clisp/files/2.36/clisp.sh
deleted file mode 100644
index f5ed6a1d8fce..000000000000
--- a/dev-lisp/clisp/files/2.36/clisp.sh
+++ /dev/null
@@ -1,118 +0,0 @@
-#!/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