lib-src/update-custom.sh

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