428
+ − 1 #!/bin/sh
+ − 2 ### update-custom.sh --- update Customize group dependencies
+ − 3
+ − 4 # Author: Hrvoje Niksic, based on update-autoloads.el by
+ − 5 # Jamie Zawinski, Ben Wing, Martin Buchholz, and Steve Baur
+ − 6 # Maintainer: Hrvoje Niksic
+ − 7 # Keywords: internal
+ − 8
+ − 9 # This file is part of XEmacs.
+ − 10
+ − 11 # XEmacs is free software; you can redistribute it and/or modify it
+ − 12 # under the terms of the GNU General Public License as published by
+ − 13 # the Free Software Foundation; either version 2, or (at your option)
+ − 14 # any later version.
+ − 15
+ − 16 # XEmacs is distributed in the hope that it will be useful, but
+ − 17 # WITHOUT ANY WARRANTY; without even the implied warranty of
+ − 18 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ − 19 # General Public License for more details.
+ − 20
+ − 21 # You should have received a copy of the GNU General Public License
+ − 22 # along with XEmacs; see the file COPYING. If not, write to
+ − 23 # the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+ − 24 # Boston, MA 02111-1307, USA.
+ − 25
+ − 26 ### Commentary:
+ − 27
+ − 28 # This is much simpler than update-autoloads.el. All we need to do is
+ − 29 # compute a list of directories we want to use, and feed it to
+ − 30 # Custom-make-dependencies. End of story.
+ − 31
+ − 32 ### Code:
+ − 33
+ − 34 set -eu
+ − 35
+ − 36 # get to the right directory
+ − 37 test ! -d ./lisp -a -d ../lisp && cd ..
+ − 38 if test ! -d ./lisp ; then
+ − 39 echo $0: neither ./lisp/ nor ../lisp/ exist
+ − 40 exit 1
+ − 41 fi
+ − 42
+ − 43 test -z "$EMACS" && EMACS="./src/xemacs"
+ − 44 echo " (using $EMACS)"
+ − 45
+ − 46 export EMACS
+ − 47
+ − 48 EMACS_DIR=`cd \`dirname $EMACS\` && pwd`;
+ − 49 # Account for various system automounter configurations
+ − 50 if test -d "/net"; then
+ − 51 if test -d "/tmp_mnt/net"; then tdir="/tmp_mnt/net"; else tdir="/tmp_mnt"; fi
+ − 52 EMACS_DIR=`echo "$EMACS_DIR" | \
+ − 53 sed -e "s|^${tdir}/|/net/|" -e "s|^/a/|/net/|" -e "s|^/amd/|/net/|"`
+ − 54 fi
+ − 55 REAL="$EMACS_DIR/`basename $EMACS`"
+ − 56
+ − 57 echo "Rebuilding custom-loads with $REAL..."
+ − 58
+ − 59 if [ "`uname -r | sed 's/\(.\).*/\1/'`" -gt 4 ]; then
+ − 60 echon()
+ − 61 {
+ − 62 /bin/echo $* '\c'
+ − 63 }
+ − 64 else
+ − 65 echon()
+ − 66 {
+ − 67 echo -n $*
+ − 68 }
+ − 69 fi
+ − 70
+ − 71 # Compute patterns to ignore when searching for files
+ − 72 ignore_dirs=""
+ − 73
+ − 74 # Only use Mule XEmacs to build Mule-specific autoloads & custom-loads.
+ − 75 echon "Checking for Mule support..."
+ − 76 lisp_prog='(princ (featurep (quote mule)))'
+ − 77 mule_p="`$EMACS -batch -q -no-site-file -eval \"$lisp_prog\"`"
+ − 78 if test "$mule_p" = nil ; then
+ − 79 echo No
+ − 80 ignore_dirs="$ignore_dirs mule"
+ − 81 else
+ − 82 echo Yes
+ − 83 fi
+ − 84
+ − 85 echon "Checking directories..."
+ − 86 dirs=lisp/
+ − 87 for dir in lisp/*; do
+ − 88 if test -d $dir \
+ − 89 -a $dir != lisp/CVS \
+ − 90 -a $dir != lisp/SCCS; then
+ − 91 for ignore in $ignore_dirs; do
+ − 92 if test $dir = lisp/$ignore; then
+ − 93 continue 2
+ − 94 fi
+ − 95 done
+ − 96 rm -f "$dir/custom-load.elc"
+ − 97 dirs="$dirs $dir"
+ − 98 fi
+ − 99 done
+ − 100 echo done
+ − 101
+ − 102 $EMACS -batch -q -no-site-file -l cus-dep -f Custom-make-dependencies $dirs
