+## world [NAME]
+##
+## Set current security world to NAME. With no NAME, print the currently
+## selected world.
+world () {
+ local nfast=${NFAST_HOME-/opt/nfast}
+ local kmdata
+ case "$#" in
+ 0)
+ echo "${NFAST_KMDATA#$nfast/kmdata-}"
+ ;;
+ *)
+ if [ -d "$1" ]; then
+ kmdata=$1
+ elif [ -d "$nfast/kmdata-$1" ]; then
+ kmdata=$nfast/kmdata-$1
+ else
+ echo >&2 "world: can't find world $1"
+ return 1
+ fi
+ shift
+ case "$#" in
+ 0) export NFAST_KMDATA=$kmdata ;;
+ *) "$@" ;;
+ esac
+ ;;
+ esac
+}
+
+## Fix `man' under Slowaris.
+case "$MACHTYPE" in
+ *solaris*)
+ man () {
+ declare -i i=0
+ declare arg
+ declare -a man
+ for arg; do
+ case "$arg" in [0-9]*) man[i+=1]="-s" ;; esac
+ man[i+=1]="$arg"
+ done
+ command man "${man[@]}"
+ }
+ ;;
+esac
+
+###--------------------------------------------------------------------------
+### Path hacks.