 is_absolute ()
 {
   case $[1] in
-    [[\\/]]* | ?:[[\\/]]*) return 0;;
-			*) return 1;;
+    ([[\\/]]* | ?:[[\\/]]*) return 0;;
+    (                    *) return 1;;
   esac
 }
 

{
  while test $[#] -ne 0; do
    case $[1] in
	--*=*)
	    opt=$(echo "$[1]" | sed -e 's/=.*//')
	    val=$(echo "$[1]" | sed -e ['s/[^=]*=//'])
	    shift
	    set dummy "$opt" "$val" ${1+"$[@]"};
	    shift
	    ;;
    esac

    case $[1] in

ex_to_int ()
{
  case $[1] in
    (OK         |EX_OK)          echo 0;;
    (USAGE      |EX_USAGE)       echo 64;;
    (DATAERR    |EX_DATAERR)     echo 65;;
    (NOINPUT    |EX_NOINPUT)     echo 66;;
    (NOUSER     |EX_NOUSER)      echo 67;;
    (NOHOST     |EX_NOHOST)      echo 68;;
    (UNAVAILABLE|EX_UNAVAILABLE) echo 69;;
    (SOFTWARE   |EX_SOFTWARE)    echo 70;;
    (OSERR      |EX_OSERR)       echo 71;;
    (OSFILE     |EX_OSFILE)      echo 72;;
    (CANTCREAT  |EX_CANTCREAT)   echo 73;;
    (IOERR      |EX_IOERR)       echo 74;;
    (TEMPFAIL   |EX_TEMPFAIL)    echo 75;;
    (PROTOCOL   |EX_PROTOCOL)    echo 76;;
    (NOPERM     |EX_NOPERM)      echo 77;;
    (CONFIG     |EX_CONFIG)      echo 78;;

    (SKIP       |EX_SKIP)        echo 176;;
    (HARD       |EX_HARD)        echo 177;;

    (*)                          echo $[1];;
  esac
}

