(U+5709): Apply new conventions for glyph granularity for components
[chise/xemacs-chise.git.1] / 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"