#!/bin/sh

prog=$1

case $LANG in
    es*)
	MSG1="rox_run: no se dieron argumentos"
	MSG2="uso: rox_run programa [argumentos]"
	MSG3="rox_run: no se encuentra $prog"
    ;;
    gl*)
	MSG1="rox_run: non se deron argumentos"
	MSG2="uso: rox_run programa [argumentos]"
	MSG3="rox_run: non se atopa $prog"
    ;;
    *)
	MSG1="rox_run: no arguments given"
	MSG2="usage: rox_run program [arguments]"
	MSG3="rox_run: $prog not found"
    ;;
esac

if [ -z "$prog" ]; then
    echo "$MSG1" >&2
    echo "$MSG2" >&2
    exit 127
fi

shift

echo $prog | grep / > /dev/null 2>&1
if [ $? -eq 0 ]; then
    exec rox $prog $@
fi

if [ -z "$LIBDIRPATH" ]; then
    LIBDIRPATH=$HOME/lib:/usr/local/lib:/usr/lib 
    if [ -d /uri/0install ] ; then
      LIBDIRPATH=$LIBDIRPATH:/uri/0install/www.kerofin.demon.co.uk/lib
    fi 
    export LIBDIRPATH
fi

if [ -z "$APPPATH" ]; then
    APPPATH=$HOME/Apps:/usr/local/apps export APPPATH
fi

IFS=:
for dir in $APPPATH $PATH $LIBDIRPATH; do
    if [ -d "$dir/$prog" -a -x "$dir/$prog/AppRun" ]; then
	exec "$dir/$prog/AppRun" "$@"
    elif [ -x "$dir/$prog" ]; then
	exec "$dir/$prog" "$@"
    elif [ -r "$dir/$prog" ]; then
	exec rox "$dir/$prog"
    fi
done

echo "$MSG3" >&2
exit 127