4 # print reversed relative path to $1
8 expr "$1" : "\(/[^/]*\)"
13 expr "$1" : "/[^/]*\(.*\)"
18 if expr "$1" : '/' > /dev/null 2>&1; then
21 from=`(cd "$1" && pwd) | sed 's://*:/:g'`
22 to=`pwd | sed 's://*:/:g'`
25 while [ -n "$t" -a "$t" = "$f" ]; do
31 i=`echo $from | sed -e 's:[^/]\+:..:g'`
32 i=`echo $i | sed -e 's:/[.][.]:..:'`