From 2f36758ca36e11541fd597daf3c1363fe69aabe6 Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Tue, 3 Jun 2008 18:47:14 +0000
Subject: [PATCH] portable

svn: r10112

original commit: 465440822932dcd6326f821c4048aa03d3b09d70
---
 collects/tests/framework/framework-test | 34 ++++++++++++++++++++++++-
 1 file changed, 33 insertions(+), 1 deletion(-)

diff --git a/collects/tests/framework/framework-test b/collects/tests/framework/framework-test
index b903a36d..645de72e 100755
--- a/collects/tests/framework/framework-test
+++ b/collects/tests/framework/framework-test
@@ -1,5 +1,37 @@
 #!/bin/bash
 
-here="$(dirname "$(readlink -f "$0")")"
+# {{{ here
+# Make this PATH-independent
+saveP="$PATH"
+PATH="/usr/bin:/bin"
+
+# imitate possibly-missing readlink
+readlink() {
+  ls -l -- "$1" | sed -e "s/^.* -> //"
+}
+
+# Remember current directory
+saveD=`pwd`
+
+# Find absolute path to this script,
+# resolving symbolic references to the end
+# (changes the current directory):
+D=`dirname "$0"`
+F=`basename "$0"`
+cd "$D"
+while test -h "$F"; do
+  P=`readlink "$F"`
+  D=`dirname "$P"`
+  F=`basename "$P"`
+  cd "$D"
+done
+D=`pwd`
+
+# Restore current directory
+cd "$saveD"
+
+here="$D"
+PATH="$saveP"
+# }}} here
 
 exec "$here/../../../bin/mzscheme" "$here/main.ss" "$@"