lib-src/update-autoloads.sh

   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"