|
195
|
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
|
|
280
|
43 test -z "$EMACS" && EMACS="./src/xemacs"
|
|
195
|
44 echo " (using $EMACS)"
|
|
|
45
|
|
|
46 export EMACS
|
|
|
47
|
|
392
|
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`"
|
|
195
|
56
|
|
|
57 echo "Rebuilding custom-loads with $REAL..."
|
|
|
58
|
|
|
59 if [ "`uname -r | sed 's/\(.\).*/\1/'`" -gt 4 ]; then
|
|
|
60 echon()
|
|
392
|
61 {
|
|
195
|
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
|
|
392
|
72 ignore_dirs=""
|
|
195
|
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)))'
|
|
239
|
77 mule_p="`$EMACS -batch -q -no-site-file -eval \"$lisp_prog\"`"
|
|
195
|
78 if test "$mule_p" = nil ; then
|
|
|
79 echo No
|
|
392
|
80 ignore_dirs="$ignore_dirs mule"
|
|
195
|
81 else
|
|
|
82 echo Yes
|
|
|
83 fi
|
|
|
84
|
|
|
85 echon "Checking directories..."
|
|
276
|
86 dirs=lisp/
|
|
195
|
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
|
|
239
|
102 $EMACS -batch -q -no-site-file -l cus-dep -f Custom-make-dependencies $dirs
|
