#!/bin/sh
#*=====================================================================*/
#*    serrano/out/autoconf/xemacspath                                  */
#*    -------------------------------------------------------------    */
#*    Author      :  Manuel Serrano                                    */
#*    Creation    :  Fri Jun 19 08:07:57 1998                          */
#*    Last change :  Thu Jan 14 14:23:10 1999 (serrano)                */
#*    -------------------------------------------------------------    */
#*    We search for the xemacs site-lisp path.                         */
#*=====================================================================*/

#*---------------------------------------------------------------------*/
#*    flags                                                            */
#*---------------------------------------------------------------------*/
xemacs=xemacs
path=

#*---------------------------------------------------------------------*/
#*    We parse the arguments                                           */
#*---------------------------------------------------------------------*/
while : ; do
  case $1 in
    "")
      break;;

    --xemacs=*|-xemacs=*)
      xemacs="`echo $1 | sed 's/^[-a-z]*=//'`";;

    --path=*|-path=*)
      path="`echo $1 | sed 's/^[-a-z]*=//'`";;

    -*)
      echo "Unknown option \"$1\", ignored" >&2;;
  esac
  shift
done

if [ ! "$path " = " " ]; then
   echo $path
else
   path=`sh -c "$xemacs -batch -q -eval \"(princ (car load-path))\" -kill" 2> /dev/null`

   if [ ! "$status" = "0" ]; then
      if [ "$path" = "nil" ]; then
         echo ""
      else
         echo $path
      fi
   else
      echo ""
   fi
fi

   
