428
+ − 1 #!/bin/sh
+ − 2 ### update-autoloads.sh --- update auto-autoloads.el as necessary
+ − 3
+ − 4 # Author: Jamie Zawinski, Ben Wing, Martin Buchholz, Steve Baur
+ − 5 # Maintainer: Steve Baur
+ − 6 # Keywords: internal
+ − 7
+ − 8 # This file is part of XEmacs.
+ − 9
+ − 10 # XEmacs is free software; you can redistribute it and/or modify it
+ − 11 # under the terms of the GNU General Public License as published by
+ − 12 # the Free Software Foundation; either version 2, or (at your option)
+ − 13 # any later version.
+ − 14
+ − 15 # XEmacs is distributed in the hope that it will be useful, but
+ − 16 # WITHOUT ANY WARRANTY; without even the implied warranty of
+ − 17 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ − 18 # General Public License for more details.
+ − 19
+ − 20 # You should have received a copy of the GNU General Public License
+ − 21 # along with XEmacs; see the file COPYING. If not, write to
+ − 22 # the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+ − 23 # Boston, MA 02111-1307, USA.
+ − 24
+ − 25 ### Commentary:
+ − 26
+ − 27 ### Code:
+ − 28
+ − 29 set -eu
+ − 30
+ − 31 # This means we're running in a Sun workspace
+ − 32 test -d ../era-specific && cd ../editor
+ − 33
+ − 34 # get to the right directory
+ − 35 test ! -d ./lisp -a -d ../lisp && cd ..
+ − 36 if test ! -d ./lisp ; then
+ − 37 echo $0: neither ./lisp/ nor ../lisp/ exist
+ − 38 exit 1
+ − 39 fi
+ − 40
+ − 41 test -z "$EMACS" && EMACS="./src/xemacs"
+ − 42 echo " (using $EMACS)"
+ − 43
+ − 44 export EMACS
+ − 45
+ − 46 EMACS_DIR=`cd \`dirname $EMACS\` && pwd`;
+ − 47 CANON_PWD=`pwd`
+ − 48 # Account for various system automounter configurations
+ − 49 if test -d "/net"; then
+ − 50 if test -d "/tmp_mnt/net"; then tdir="/tmp_mnt/net"; else tdir="/tmp_mnt"; fi
+ − 51 EMACS_DIR=`echo "$EMACS_DIR" | \
+ − 52 sed -e "s|^${tdir}/|/net/|" -e "s|^/a/|/net/|" -e "s|^/amd/|/net/|"`
+ − 53 CANON_PWD=`echo "$CANON_PWD" | \
+ − 54 sed -e "s|^${tdir}/|/net/|" -e "s|^/a/|/net/|" -e "s|^/amd/|/net/|"`
+ − 55 fi
+ − 56 REAL="$EMACS_DIR/`basename $EMACS`"
+ − 57
+ − 58 echo "Rebuilding autoloads in $CANON_PWD"
+ − 59 echo " with $REAL..."
+ − 60
+ − 61 #### echon really sucks!
+ − 62 if [ "`uname -r | sed 's/\(.\).*/\1/'`" -gt 4 ]; then
+ − 63 echon()
+ − 64 {
+ − 65 /bin/echo $* '\c'
+ − 66 }
+ − 67 else
+ − 68 echon()
+ − 69 {
+ − 70 echo -n $*
+ − 71 }
+ − 72 fi
+ − 73
+ − 74 # Compute patterns to ignore when searching for files
+ − 75 # These directories don't have autoloads or are partially broken.
+ − 76 ignore_dirs="egg eos ilisp its locale mel mu sunpro term tooltalk"
+ − 77
+ − 78 # Prepare for autoloading directories with directory-specific instructions
+ − 79 make_special_commands=''
+ − 80 make_special () {
+ − 81 dir="$1"; shift;
+ − 82 ignore_dirs="$ignore_dirs $dir"
+ − 83 make_special_commands="$make_special_commands \
+ − 84 (cd \"lisp/$dir\" && ${MAKE:-make} EMACS=$REAL ${1+$*});"
+ − 85 }
+ − 86
+ − 87 # Only use Mule XEmacs to build Mule-specific autoloads & custom-loads.
+ − 88 echon "Checking for Mule support..."
+ − 89 lisp_prog='(princ (featurep (quote mule)))'
+ − 90 mule_p="`$EMACS -batch -q -no-site-file -eval \"$lisp_prog\"`"
+ − 91 if test "$mule_p" = nil ; then
+ − 92 echo No
+ − 93 ignore_dirs="$ignore_dirs mule leim language skk"
+ − 94 else
+ − 95 echo Yes
+ − 96 fi
+ − 97
+ − 98 ## AUCTeX is a Package now
+ − 99 # if test "$mule_p" = nil ; then
+ − 100 # make_special auctex autoloads
+ − 101 # else
+ − 102 # make_special auctex autoloads MULE_EL=tex-jp.elc
+ − 103 # fi
+ − 104 #make_special cc-mode autoloads
+ − 105 # EFS is now packaged
+ − 106 #make_special efs autoloads
+ − 107 #make_special eos autoloads # EOS doesn't have custom or autoloads
+ − 108 # Hyperbole is now packaged
+ − 109 # make_special hyperbole autoloads
+ − 110 # make_special ilisp autoloads
+ − 111 # oobr is now packaged
+ − 112 # make_special oobr HYPB_ELC='' autoloads
+ − 113 ## W3 is a package now
+ − 114 ##make_special w3 autoloads
+ − 115
+ − 116 dirs=
+ − 117 for dir in lisp/*; do
+ − 118 if test -d $dir \
+ − 119 -a $dir != lisp/CVS \
+ − 120 -a $dir != lisp/SCCS; then
+ − 121 for ignore in $ignore_dirs; do
+ − 122 if test $dir = lisp/$ignore; then
+ − 123 continue 2
+ − 124 fi
+ − 125 done
+ − 126 dirs="$dirs $dir"
+ − 127 fi
+ − 128 done
+ − 129
+ − 130 $EMACS -batch -q -no-site-file -eval '(setq autoload-package-name "Standard")' \
+ − 131 -l autoload -f batch-update-directory lisp
+ − 132
+ − 133 # set -x
+ − 134 for dir in $dirs; do
+ − 135 $EMACS -batch -q -no-site-file -l autoload -f batch-update-directory $dir
+ − 136 done
+ − 137
+ − 138 # eval "$make_special_commands"