code.delx.au - gnu-emacs-elpa/blob - packages/test-simple/compute-lispdir.sh

   1 #!/bin/bash
   2 # Figures out a reasonable --prefix
   3 typeset -i rc=0
   4 typeset -i DEBUG=${DEBUG:-0}
   5 EMACS_PROG=${EMACS_PROG:-emacs}
   6 list=$($EMACS_PROG --batch --no-splash --eval '(message (substring (format "%s" load-path) 1 -1))' 2>&1)
   7 rc=$?
   8 if (( rc != 0 )) ; then
   9     echo  >&2 "Something went running $EMACS_PROG"
  10     exit $rc
  11 $cmd
  12 fi
  13 for dir in $list ; do
  14     if [[ -d $dir ]] ; then
  15         case $dir in
  16             */emacs/site-lisp)
  17                 ((DEBUG)) && echo "site lisp: $dir"
  18                 echo "$dir"
  19                 exit 0
  20                 ;;
  21         esac
  22     fi
  23 done
  24 for dir in $list ; do
  25     if [[ -d $dir ]] ; then
  26         case $dir in
  27             */emacs/2[34]\.[0-9]/site-lisp)
  28                 ((DEBUG)) && echo "versioned site lisp: $dir"
  29                 echo "$dir"
  30                 exit 0
  31                 ;;
  32         esac
  33     fi
  34 done
  35 for dir in $list ; do
  36     if [[ -d $dir ]] ; then
  37         case $dir in
  38             */emacs/2[34]\.[0-9]/site-lisp)
  39                 ((DEBUG)) && echo "versioned site lisp: $dir"
  40                 echo "$dir"
  41                 exit 0
  42                 ;;
  43         esac
  44     fi
  45 done
  46 exit 0