smalltalk pacman added

1 files changed, 101 insertions, 0 deletions

diff --git a/pacman-smalltalk/Squeak 4.1 All-in-One.app/Contents/Linux-i686/bin/squeak.sh b/pacman-smalltalk/Squeak 4.1 All-in-One.app/Contents/Linux-i686/bin/squeak.sh
new file mode 100755
index 0000000..64a8114
--- /dev/null
+++ b/pacman-smalltalk/Squeak 4.1 All-in-One.app/Contents/Linux-i686/bin/squeak.sh
@@ -0,0 +1,101 @@
+#!/bin/sh
+# 
+# Launch squeak from a menu, prompting for and/or installing an image
+# 
+# Last edited: 2010-04-09 04:35:35 by piumarta on ubuntu
+
+PATH=/usr/bin:/bin
+
+if pwd -P 2>/dev/null 1>&2; then pwd="pwd -P"; else pwd="pwd"; fi
+
+me=`basename $0`
+bindir=`dirname $0`
+bindir=`cd ${bindir}; ${pwd}`
+prefix=`dirname ${bindir}`
+libdir="${prefix}/lib/squeak"
+vm="squeak"
+
+# find a way to display dialogues
+
+if test -n "$DISPLAY" -a -x "`which kdialog 2>/dev/null`"; then
+    error ()            { kdialog --error "${me}: $*"; exit 1; }
+    confirm ()          { if kdialog --yesno "${1} ${2}?"; then result="${2}"; else result=""; fi; }
+    chooseItem ()       { title="$1"; shift; result=`kdialog --combobox "${title}" $*`; }
+    findFile ()         { result=`kdialog --title "$1" --getopenfilename . '*.image'`; }
+    findDirectory ()    { result=`kdialog --title "$1" --getexistingdirectory .`; }
+elif [ -n "$DISPLAY" -a -x "`which zenity 2>/dev/null`" ]; then
+    error ()            { zenity --error --text "${me}: $*"; exit 1; }
+    confirm ()          { if zenity --question --text="${1} ${2}?"; then result="${2}"; else result=""; fi; }
+    chooseItem ()       { title="$1"; shift; result=`zenity --title "${title}" --list --column Images $*`; }
+    findFile ()         { result=`zenity --title "$1" --file-selection --file-filter='*.image'`; }
+    findDirectory ()    { result=`zenity --title "$1" --file-selection --directory`; }
+else
+    error ()            { echo "${me}: $*" >&2; exit 1; }
+    confirm ()          { error "this cannot happen"; }
+    chooseItem ()       { error "this cannot happen"; }
+    findFile ()         { error "no image name specified"; }
+    findDirectory ()    { error "this cannot happen"; }
+fi
+
+# succeed if there are two or more arguments
+
+plural () { test -n "$2"; }
+
+# find the VM
+
+if test -x "${bindir}/${vm}"; then
+    vm="${bindir}/${vm}"
+elif test -x "`which ${vm} 2>/dev/null`"; then
+    vm="`which ${vm} 2>/dev/null`"
+else
+    error "Cannot find ${vm}"
+fi
+
+# if we have arguments then assume an image name was given or we came
+# from a command line
+
+if test $# -gt 0; then
+    exec "${vm}" "$@"
+fi
+
+findFile "Choose a saved image to resume or cancel to install a new one"
+
+if test -z "${result}"; then
+    images=""
+    if test -d "${libdir}"; then
+        images=`cd "${libdir}"; ls *.image 2>/dev/null`
+    fi
+    if test -z "${images}"; then
+        error "no image name specified and no images found in ${libdir}"
+        exit 1
+    fi
+    if plural ${images}; then
+        chooseItem "Choose an image to install" ${images}
+    else
+        confirm "Install image" ${images}
+    fi
+    if test -z "${result}"; then
+        exit 0
+    fi
+    image=${result}
+    changes=`basename ${image} .image`.changes
+    findDirectory "Choose a destination directory for the image"
+    if test -z "${result}"; then
+        exit 0
+    fi
+    if test -e "${result}/${image}"; then
+        confirm "Overwrite existing ${image} in" "${result}"
+        if test -z "${result}"; then
+            exit 0;
+        fi
+    fi
+    cp -p "${libdir}/${image}"   "${result}/."
+    cp -p "${libdir}/${changes}" "${result}/."
+    ln -s "${libdir}"/*.sources  "${result}/."
+    image="${result}/${image}"
+else
+    image="${result}"
+fi
+
+cd "`dirname ${image}`"
+exec "${vm}" "`basename ${image}`"