git.chise.org Git - chise/xemacs-chise.git-/blob - lib-src/update-elc.sh

   1 #!/bin/sh
   2 # update-elc.sh --- recompile all missing or out-of-date .elc files
   3
   4 # Author:       Jamie Zawinski, Ben Wing, Martin Buchholz
   5 # Maintainer:   Martin Buchholz
   6 # Keywords:     recompile byte-compile .el .elc
   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 ##  Recompile all .elc files that need recompilation.  Requires a
  27 ##  working version of "xemacs".  Correctly handles the case where the
  28 ##  .elc files are missing; thus you can execute "rm lisp/*/*.elc"
  29 ##  before running this script.  Run this from the parent of the
  30 ##  "lisp" directory, or another nearby directory.
  31
  32 set -e
  33
  34 # Try to find the lisp directory in several places.
  35 # (Sun workspaces have an "editor" directory)
  36 for dir in  .  ..  ../..  editor  ../editor  ; do
  37   if test -d $dir/lisp/. ; then cd $dir ; break ; fi
  38 done
  39
  40 if test ! -d lisp/. ; then
  41   echo "$0: Cannot find the \"lisp\" directory."
  42   exit 1
  43 fi
  44
  45 if test -z "$EMACS"; then EMACS="./src/xemacs"; fi
  46 export EMACS
  47
  48 echo " (using $EMACS)"
  49
  50 # fuckin' sysv, man...
  51 if [ "`uname -r | sed 's/[^0-9]*\([0-9]*\).*/\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 EMACS_DIR=`cd \`dirname $EMACS\` && pwd`;
  64 CANON_PWD=`pwd`
  65 # Account for various system automounter configurations
  66 if test -d "/net"; then
  67   if test -d "/tmp_mnt/net"; then tdir="/tmp_mnt/net"; else tdir="/tmp_mnt"; fi
  68   EMACS_DIR=`echo "$EMACS_DIR" | \
  69    sed -e "s|^${tdir}/|/net/|" -e "s|^/a/|/net/|" -e "s|^/amd/|/net/|"`
  70   CANON_PWD=`echo "$CANON_PWD" | \
  71    sed -e "s|^${tdir}/|/net/|" -e "s|^/a/|/net/|" -e "s|^/amd/|/net/|"`
  72 fi
  73 REAL="$EMACS_DIR/`basename $EMACS`"
  74
  75 echo "Recompiling in $CANON_PWD"
  76 echo "          with $REAL..."
  77
  78 BYTECOMP="$REAL -batch -vanilla "
  79
  80 $EMACS -batch -vanilla -l $CANON_PWD/lisp/cleantree -f batch-remove-old-elc lisp
  81
  82 prune_vc="( -name '.*' -o -name SCCS -o -name RCS -o -name CVS ) -prune -o"
  83
  84 # $els  is a list of all .el  files
  85 # $elcs is a list of all .elc files
  86 els=/tmp/update-elc-1.$$ elcs=/tmp/update-elc-2.$$
  87 rm -f $els $elcs
  88 trap "rm -f $els $elcs" 0 1 2 3 15
  89 find lisp/. $prune_vc -name '*.el'  -print                    | sort > $els
  90 find lisp/. $prune_vc -name '*.elc' -print | sed 's/elc$/el/' | sort > $elcs
  91
  92
  93 echon "Deleting .elc files without .el files..."
  94 comm -13 $els $elcs | sed -e '\!/vm.el!d' -e 's/el$/elc/' | \
  95  while read file ; do echo rm "$file" ; rm "$file" ; done
  96 echo done.
  97
  98
  99 # Compute patterns to ignore when searching for files
 100 ignore_dirs=""
 101 ignore_pattern=''
 102
 103 # Only use Mule XEmacs to compile Mule-specific elisp dirs
 104 echon "Checking for Mule support..."
 105 lisp_prog='(princ (featurep (quote mule)))'
 106 mule_p="`$EMACS -batch -vanilla -eval \"$lisp_prog\"`"
 107 if test "$mule_p" = nil ; then
 108         echo No
 109         ignore_dirs="$ignore_dirs mule"
 110 else
 111   echo Yes
 112 fi
 113
 114 # Only use UTF-2000 XEmacs to compile UTF-2000-specific elisp dirs
 115 echon "Checking for UTF-2000 support..."
 116 lisp_prog='(princ (featurep (quote utf-2000)))'
 117 mule_p="`$EMACS -batch -vanilla -eval \"$lisp_prog\"`"
 118 if test "$utf_2000_p" = nil ; then
 119         echo No
 120         ignore_dirs="$ignore_dirs utf-2000"
 121 else
 122   echo Yes
 123 fi
 124
 125 # first recompile the byte-compiler, so that the other compiles take place
 126 # with the latest version (assuming we're compiling the lisp dir of the emacs
 127 # we're running, which might not be the case, but often is.)
 128 #echo "Checking the byte compiler..."
 129 #$BYTECOMP -f batch-byte-recompile-directory lisp/bytecomp
 130
 131 # Prepare for byte-compiling directories with directory-specific instructions
 132 # Not necessary any more, but I want to keep the text current to cut & paste
 133 # into the package lisp maintenance tree.
 134 #make_special_commands=''
 135 #make_special () {
 136 #  dir="$1"; shift;
 137 #  ignore_dirs="$ignore_dirs $dir"
 138 #  make_special_commands="$make_special_commands \
 139 #echo \"Compiling in lisp/$dir\"; \
 140 #(cd \"lisp/$dir\" && ${MAKE:-make} EMACS=$REAL ${1+$*}); \
 141 #echo \"lisp/$dir done.\";"
 142 #}
 143
 144 #if test "$mule_p" != nil; then
 145 #       make_special skk all
 146 #fi
 147
 148 ## AUCTeX is a package now
 149 # if test "$mule_p" = nil ; then
 150 #       make_special auctex some
 151 # else
 152 #       make_special auctex some MULE_ELC=tex-jp.elc
 153 # fi
 154 #make_special cc-mode all
 155 # EFS is now packaged
 156 # make_special efs x20
 157 #make_special eos -k            # not strictly necessary...
 158 ## make_special gnus  some      # Now this is a package.
 159 # hyperbole is now packaged
 160 # make_special hyperbole elc
 161 # We're not ready for the following, yet.
 162 #make_special ilisp XEmacsELC=custom-load.elc elc
 163 # ilisp is now packaged
 164 # make_special ilisp elc
 165 # oobr is now packaged
 166 # make_special oobr HYPB_ELC='' elc
 167 ## W3 is a package now.
 168 #make_special w3 xemacs-w3
 169
 170 for dir in $ignore_dirs ; do
 171   ignore_pattern="${ignore_pattern}/\\/$dir\\//d
 172 /\\/$dir\$/d
 173 "
 174 done
 175
 176 # Other special-case filenames that don't get byte-compiled
 177 ignore_pattern="$ignore_pattern"'
 178 \!/,!d
 179 \!/paths.el$!d
 180 \!/loadup.el$!d
 181 \!/loadup-el.el$!d
 182 \!/update-elc.el$!d
 183 \!/dumped-lisp.el$!d
 184 \!/make-docfile.el$!d
 185 \!/site-start.el$!d
 186 \!/site-load.el$!d
 187 \!/site-init.el$!d
 188 \!/version.el$!d
 189 \!/very-early-lisp.el$!d
 190 '
 191
 192 echo "Compiling files without .elc..."
 193 NUMTOCOMPILE=20                 # compile this many files with each invocation
 194 comm -23 $els $elcs | \
 195  sed "$ignore_pattern" | \
 196  xargs -t -n$NUMTOCOMPILE $BYTECOMP -f batch-byte-compile
 197 echo "Compiling files without .elc... Done"
 198
 199 #if test "$mule_p" != nil; then
 200 #       eval "$make_special_commands"
 201 #fi