git.chise.org Git - chise/xemacs-chise.git.1/blob - 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 REAL=`cd \`dirname $EMACS\` ; pwd | sed 's|^/tmp_mnt||'`/`basename $EMACS`
  47
  48 echo "Rebuilding autoloads in `pwd|sed 's|^/tmp_mnt||'`"
  49 echo "          with $REAL..."
  50
  51 if [ "`uname -r | sed 's/\(.\).*/\1/'`" -gt 4 ]; then
  52   echon()
  53   {
  54     /bin/echo $* '\c'
  55   }
  56 else
  57   echon()
  58   {
  59     echo -n $*
  60   }
  61 fi
  62
  63 # Compute patterns to ignore when searching for files
  64 # These directories don't have autoloads or are partially broken.
  65 ignore_dirs="egg eos ilisp its locale mel mu sunpro term tooltalk"
  66
  67 # Prepare for autoloading directories with directory-specific instructions
  68 make_special_commands=''
  69 make_special () {
  70         dir="$1"; shift;
  71         ignore_dirs="$ignore_dirs $dir"
  72         make_special_commands="$make_special_commands \
  73                 (cd \"lisp/$dir\" && ${MAKE:-make} EMACS=$REAL ${1+$*});"
  74 }
  75
  76 # Only use Mule XEmacs to build Mule-specific autoloads & custom-loads.
  77 echon "Checking for Mule support..."
  78 lisp_prog='(princ (featurep (quote mule)))'
  79 mule_p="`$EMACS -batch -q -no-site-file -eval \"$lisp_prog\"`"
  80 if test "$mule_p" = nil ; then
  81         echo No
  82         ignore_dirs="$ignore_dirs mule leim language skk"
  83 else
  84         echo Yes
  85 fi
  86
  87 ## AUCTeX is a Package now
  88 # if test "$mule_p" = nil ; then
  89 #       make_special auctex autoloads
  90 # else
  91 #       make_special auctex autoloads MULE_EL=tex-jp.elc
  92 # fi
  93 #make_special cc-mode autoloads
  94 # EFS is now packaged
  95 #make_special efs autoloads
  96 #make_special eos autoloads # EOS doesn't have custom or autoloads
  97 # Hyperbole is now packaged
  98 # make_special hyperbole autoloads
  99 # make_special ilisp autoloads
 100 # oobr is now packaged
 101 # make_special oobr HYPB_ELC='' autoloads
 102 ## W3 is a package now
 103 ##make_special w3 autoloads
 104
 105 dirs=
 106 for dir in lisp/*; do
 107         if test -d $dir \
 108                 -a $dir != lisp/CVS \
 109                 -a $dir != lisp/SCCS; then
 110                 for ignore in $ignore_dirs; do
 111                         if test $dir = lisp/$ignore; then
 112                                 continue 2
 113                         fi
 114                 done
 115                 dirs="$dirs $dir"
 116         fi
 117 done
 118
 119 $EMACS -batch -q -no-site-file -eval '(setq autoload-package-name "Standard")' \
 120         -l autoload -f batch-update-directory lisp
 121
 122 # set -x
 123 for dir in $dirs; do
 124         $EMACS -batch -q -no-site-file -l autoload -f batch-update-directory $dir
 125 done
 126
 127 # eval "$make_special_commands"