| 1 | #!/bin/sh |
| 2 | |
| 3 | #### make-dist: create an Emacs distribution tar file from the current |
| 4 | #### source tree. This basically creates a duplicate directory |
| 5 | #### structure, and then hard links into it only those files that should |
| 6 | #### be distributed. This means that if you add a file with an odd name, |
| 7 | #### you should make sure that this script will include it. |
| 8 | |
| 9 | # Copyright (C) 1995, 1997, 1998, 2000, 2001, 2002 Free Software Foundation, Inc. |
| 10 | # |
| 11 | # This file is part of GNU Emacs. |
| 12 | # |
| 13 | # GNU Emacs is free software; you can redistribute it and/or modify |
| 14 | # it under the terms of the GNU General Public License as published by |
| 15 | # the Free Software Foundation; either version 2, or (at your option) |
| 16 | # any later version. |
| 17 | # |
| 18 | # GNU Emacs is distributed in the hope that it will be useful, |
| 19 | # but WITHOUT ANY WARRANTY; without even the implied warranty of |
| 20 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
| 21 | # GNU General Public License for more details. |
| 22 | # |
| 23 | # You should have received a copy of the GNU General Public License |
| 24 | # along with GNU Emacs; see the file COPYING. If not, write to the |
| 25 | # Free Software Foundation, Inc., 59 Temple Place - Suite 330, |
| 26 | # Boston, MA 02111-1307, USA. |
| 27 | |
| 28 | progname="$0" |
| 29 | |
| 30 | ### Exit if a command fails. |
| 31 | #set -e |
| 32 | |
| 33 | ### Print out each line we read, for debugging's sake. |
| 34 | #set -v |
| 35 | |
| 36 | LANGUAGE=C |
| 37 | LC_ALL=C |
| 38 | LC_MESSAGES= |
| 39 | LANG= |
| 40 | export LANGUAGE LC_ALL LC_MESSAGES LANG |
| 41 | |
| 42 | ## Don't restrict access to any files. |
| 43 | umask 0 |
| 44 | |
| 45 | update=yes |
| 46 | check=yes |
| 47 | clean_up=no |
| 48 | make_tar=no |
| 49 | newer="" |
| 50 | |
| 51 | while [ $# -gt 0 ]; do |
| 52 | case "$1" in |
| 53 | ## This option tells make-dist to delete the staging directory |
| 54 | ## when done. It is useless to use this unless you make a tar file. |
| 55 | "--clean-up" ) |
| 56 | clean_up=yes |
| 57 | ;; |
| 58 | ## This option tells make-dist to make a tar file. |
| 59 | "--tar" ) |
| 60 | make_tar=yes |
| 61 | ;; |
| 62 | ## This option tells make-dist not to recompile or do analogous things. |
| 63 | "--no-update" ) |
| 64 | update=no |
| 65 | ;; |
| 66 | ## This option says don't check for bad file names, etc. |
| 67 | "--no-check" ) |
| 68 | check=no |
| 69 | ;; |
| 70 | ## This option tells make-dist to make the distribution normally, then |
| 71 | ## remove all files older than the given timestamp file. This is useful |
| 72 | ## for creating incremental or patch distributions. |
| 73 | "--newer") |
| 74 | newer="$2" |
| 75 | new_extension=".new" |
| 76 | shift |
| 77 | ;; |
| 78 | ## This option tells make-dist to use `compress' instead of gzip. |
| 79 | ## Normally, make-dist uses gzip whenever it is present. |
| 80 | "--compress") |
| 81 | default_gzip="compress" |
| 82 | ;; |
| 83 | |
| 84 | "--snapshot") |
| 85 | clean_up=yes |
| 86 | make_tar=yes |
| 87 | update=no |
| 88 | check=no |
| 89 | ;; |
| 90 | |
| 91 | "--help") |
| 92 | echo "Usage: ${progname} [options]" |
| 93 | echo "" |
| 94 | echo " --clean-up delete staging directories when done" |
| 95 | echo " --compress use compress instead of gzip" |
| 96 | echo " --newer=TIME don't include files older than TIME" |
| 97 | echo " --no-check don't check for bad file names etc." |
| 98 | echo " --no-update don't recompile or do analogous things" |
| 99 | echo " --snapshot same as --clean-up --no-update --tar --no-check" |
| 100 | echo " --tar make a tar file" |
| 101 | echo "" |
| 102 | exit 0 |
| 103 | ;; |
| 104 | |
| 105 | * ) |
| 106 | echo "${progname}: Unrecognized argument: $1" >&2 |
| 107 | exit 1 |
| 108 | ;; |
| 109 | esac |
| 110 | shift |
| 111 | done |
| 112 | |
| 113 | ### Make sure we're running in the right place. |
| 114 | if [ ! -d src -o ! -f src/lisp.h -o ! -d lisp -o ! -f lisp/version.el ]; then |
| 115 | echo "${progname}: Can't find \`src/lisp.h' and \`lisp/version.el'." >&2 |
| 116 | echo "${progname} must be run in the top directory of the Emacs" >&2 |
| 117 | echo "distribution tree. cd to that directory and try again." >&2 |
| 118 | exit 1 |
| 119 | fi |
| 120 | |
| 121 | ### Find where to run Emacs. |
| 122 | ### (We don't accept EMACS=t as an answer, since that probably only means |
| 123 | ### that the shell is running in an Emacs window.) |
| 124 | if [ $update = yes ]; |
| 125 | then |
| 126 | unset EMACS_UNIBYTE |
| 127 | if [ -f src/emacs ]; |
| 128 | then |
| 129 | EMACS=`pwd`/src/emacs |
| 130 | else |
| 131 | if [ "x$EMACS" = "x" -o "x$EMACS" = "xt" ]; |
| 132 | then |
| 133 | echo You must specify the EMACS environment variable 2>&1 |
| 134 | exit 1 |
| 135 | fi |
| 136 | fi |
| 137 | fi |
| 138 | |
| 139 | ### Find out which version of Emacs this is. |
| 140 | shortversion=`grep 'defconst[ ]*emacs-version' lisp/version.el \ |
| 141 | | sed -e 's/^.*"\([0-9][0-9]*\.[0-9][0-9]*\).*$/\1/'` |
| 142 | version=`grep 'defconst[ ]*emacs-version' lisp/version.el \ |
| 143 | | sed -e 's/^[^"]*"\([^"]*\)".*$/\1/'` |
| 144 | if [ ! "${version}" ]; then |
| 145 | echo "${progname}: can't find current Emacs version in \`./lisp/version.el'" >&2 |
| 146 | exit 1 |
| 147 | fi |
| 148 | |
| 149 | echo Version numbers are $version and $shortversion |
| 150 | |
| 151 | if [ $update = yes ]; |
| 152 | then |
| 153 | if grep -s "@set EMACSVER *${shortversion}" ./man/emacs.texi > /dev/null; then |
| 154 | true |
| 155 | else |
| 156 | echo "You must update the version number in \`./man/emacs.texi'" |
| 157 | sleep 5 |
| 158 | fi |
| 159 | fi |
| 160 | |
| 161 | ### Make sure we don't already have a directory emacs-${version}. |
| 162 | |
| 163 | emacsname="emacs-${version}${new_extension}" |
| 164 | |
| 165 | if [ -d ${emacsname} ] |
| 166 | then |
| 167 | echo Directory "${emacsname}" already exists >&2 |
| 168 | exit 1 |
| 169 | fi |
| 170 | |
| 171 | ### Make sure the subdirectory is available. |
| 172 | tempparent="make-dist.tmp.$$" |
| 173 | if [ -d ${tempparent} ]; then |
| 174 | echo "${progname}: staging directory \`${tempparent}' already exists. |
| 175 | Perhaps a previous invocation of \`${progname}' failed to clean up after |
| 176 | itself. Check that directories whose names are of the form |
| 177 | \`make-dist.tmp.NNNNN' don't contain any important information, remove |
| 178 | them, and try again." >&2 |
| 179 | exit 1 |
| 180 | fi |
| 181 | |
| 182 | ### Find where to run Emacs. |
| 183 | if [ $check = yes ]; |
| 184 | then |
| 185 | ### Check for .elc files with no corresponding .el file. |
| 186 | ls -1 lisp/[a-z]*.el lisp/[a-z]*/[a-z]*.el \ |
| 187 | leim/[a-z]*/[a-z]*.el | sed 's/\.el$/.elc/' > /tmp/el |
| 188 | ls -1 lisp/[a-z]*.elc lisp/[a-z]*/[a-z]*.elc \ |
| 189 | leim/[a-z]*/[a-z]*.elc > /tmp/elc |
| 190 | bogosities="`comm -13 /tmp/el /tmp/elc`" |
| 191 | if [ "${bogosities}" != "" ]; then |
| 192 | echo "The following .elc files have no corresponding .el files:" |
| 193 | echo "${bogosities}" |
| 194 | fi |
| 195 | rm -f /tmp/el /tmp/elc |
| 196 | |
| 197 | ### Check for .el files with no corresponding .elc file. |
| 198 | (cd lisp; ls -1 [a-z]*.el [a-z]*/[a-z]*.el ; \ |
| 199 | cd ../leim; ls -1 [a-z]*/[a-z]*.el) > /tmp/el |
| 200 | (cd lisp; ls -1 [a-z]*.elc [a-z]*/[a-z]*.elc; \ |
| 201 | cd ../leim; ls -1 [a-z]*/[a-z]*.elc) | sed 's/\.elc$/.el/' > /tmp/elc |
| 202 | losers="`comm -23 /tmp/el /tmp/elc`" |
| 203 | bogosities= |
| 204 | for file in $losers; do |
| 205 | file1=`echo $file | sed -e "s|.*/||"` |
| 206 | if ! sed -n -e "/^DONTCOMPILE/,/[^\\]\$/p" lisp/Makefile.in | |
| 207 | grep -q "[ ]$file1\($\| \)"; then |
| 208 | case $file in |
| 209 | site-init.el | site-load.el | site-start.el | default.el) |
| 210 | ;; |
| 211 | term/*) |
| 212 | ;; |
| 213 | *) |
| 214 | bogosities="$file $bogosities" |
| 215 | ;; |
| 216 | esac |
| 217 | fi |
| 218 | done |
| 219 | if [ x"${bogosities}" != x"" ]; then |
| 220 | echo "The following .el files have no corresponding .elc files:" |
| 221 | echo "${bogosities}" |
| 222 | fi |
| 223 | rm -f /tmp/el /tmp/elc |
| 224 | |
| 225 | ### Check for .el files that would overflow the 14-char limit if compiled. |
| 226 | long=`find lisp leim -name '[a-zA-Z0-9]??????????*.el' -print` |
| 227 | if [ "$long" != "" ]; then |
| 228 | echo "The following .el file names are too long:" |
| 229 | echo "$long" |
| 230 | fi |
| 231 | fi |
| 232 | |
| 233 | ### Make sure configure is newer than configure.in. |
| 234 | if [ "x`ls -t configure configure.in | sed q`" != "xconfigure" ]; then |
| 235 | echo "\`./configure.in' is newer than \`./configure'" >&2 |
| 236 | echo "Running autoconf" >&2 |
| 237 | autoconf || { x=$?; echo Autoconf FAILED! >&2; exit $x; } |
| 238 | fi |
| 239 | |
| 240 | ### Make sure src/config-in.stamp is newer than configure.in. |
| 241 | if [ "x`ls -t src/stamp-h.in configure.in | sed q`" != "xsrc/stamp-h.in" ]; then |
| 242 | echo "\`./configure.in' is newer than \`./src/stamp-h.in'" >&2 |
| 243 | echo "Running autoheader" >&2 |
| 244 | autoheader || { x=$?; echo Autoheader FAILED! >&2; exit $x; } |
| 245 | rm -f src/stamp-h.in |
| 246 | echo timestamp > src/stamp-h.in |
| 247 | fi |
| 248 | |
| 249 | if [ $update = yes ]; |
| 250 | then |
| 251 | echo "Updating Info files" |
| 252 | (cd man; make -f Makefile.in srcdir=. info) |
| 253 | (cd lispref; make -f Makefile.in srcdir=. info) |
| 254 | (cd lispintro; make -f Makefile.in SHELL=/bin/sh srcdir=. info VPATH=.) |
| 255 | |
| 256 | echo "Updating finder, custom and autoload data" |
| 257 | (cd lisp; make updates EMACS="$EMACS") |
| 258 | |
| 259 | if test -f leim/leim-list.el; then |
| 260 | echo "Updating leim-list.el" |
| 261 | (cd leim; make leim-list.el EMACS="$EMACS") |
| 262 | fi |
| 263 | |
| 264 | echo "Recompiling Lisp files" |
| 265 | $EMACS -batch -f batch-byte-recompile-directory lisp leim |
| 266 | fi |
| 267 | |
| 268 | echo "Making lisp/MANIFEST" |
| 269 | |
| 270 | (cd lisp; |
| 271 | files=`echo [!=]*.el | sed -e 's/ subdirs.el / /' -e 's/ default.el / /'` |
| 272 | for dir in [!=]*; do |
| 273 | if [ -d $dir ] && [ $dir != term ] && [ $dir != CVS ] && [ $dir != RCS ] |
| 274 | then |
| 275 | echo $dir |
| 276 | thisdir=`echo $dir/[!=]*.el | sed -e 's/ subdirs.el / /'` |
| 277 | files="$files $thisdir" |
| 278 | fi |
| 279 | done |
| 280 | for file in $files |
| 281 | do sed -n 's/^;;; //p; q' $file |
| 282 | done | sort > MANIFEST) |
| 283 | |
| 284 | echo "Creating staging directory: \`${tempparent}'" |
| 285 | |
| 286 | mkdir ${tempparent} |
| 287 | tempdir="${tempparent}/${emacsname}" |
| 288 | |
| 289 | ### This trap ensures that the staging directory will be cleaned up even |
| 290 | ### when the script is interrupted in mid-career. |
| 291 | if [ "${clean_up}" = yes ]; then |
| 292 | trap "echo 'Interrupted...cleaning up the staging directory'; rm -rf ${tempparent}; exit 1" 1 2 15 |
| 293 | fi |
| 294 | |
| 295 | echo "Creating top directory: \`${tempdir}'" |
| 296 | mkdir ${tempdir} |
| 297 | |
| 298 | ### We copy in the top-level files before creating the subdirectories in |
| 299 | ### hopes that this will make the top-level files appear first in the |
| 300 | ### tar file; this means that people can start reading the INSTALL and |
| 301 | ### README while the rest of the tar file is still unpacking. Whoopee. |
| 302 | echo "Making links to top-level files" |
| 303 | ln AUTHORS FTP INSTALL README BUGS move-if-change ${tempdir} |
| 304 | ln ChangeLog Makefile.in configure configure.in ${tempdir} |
| 305 | ln config.bat make-dist update-subdirs vpath.sed ${tempdir} |
| 306 | ### Copy these files; they're cross-filesystem symlinks. |
| 307 | cp mkinstalldirs ${tempdir} |
| 308 | cp config.sub ${tempdir} |
| 309 | cp config.guess ${tempdir} |
| 310 | cp install-sh ${tempdir} |
| 311 | |
| 312 | echo "Updating version number in README" |
| 313 | (cd ${tempdir} |
| 314 | awk \ |
| 315 | '$1 " " $2 " " $3 " " $4 " " $5 == "This directory tree holds version" { $6 = version; print $0 } |
| 316 | $1 " " $2 " " $3 " " $4 " " $5 != "This directory tree holds version"' \ |
| 317 | version=${version} README > tmp.README |
| 318 | mv -f tmp.README README) |
| 319 | |
| 320 | |
| 321 | echo "Creating subdirectories" |
| 322 | for subdir in lisp site-lisp lispref lispintro \ |
| 323 | leim leim/CXTERM-DIC leim/MISC-DIC \ |
| 324 | leim/SKK-DIC leim/ja-dic leim/quail \ |
| 325 | src src/m src/s src/bitmaps lib-src oldXMenu lwlib \ |
| 326 | nt nt/inc nt/inc/sys nt/inc/arpa nt/inc/netinet nt/icons \ |
| 327 | etc etc/e lock info man msdos vms mac mac/inc mac/inc/sys \ |
| 328 | mac/src |
| 329 | do |
| 330 | echo " ${tempdir}/${subdir}" |
| 331 | mkdir ${tempdir}/${subdir} |
| 332 | done |
| 333 | |
| 334 | echo "Making links to \`lisp' and its subdirectories" |
| 335 | ### Don't distribute TAGS, =*.el files, site-init.el, site-load.el, or default.el. |
| 336 | (cd lisp |
| 337 | ln [a-zA-Z]*.el ../${tempdir}/lisp |
| 338 | ln [a-zA-Z]*.elc ../${tempdir}/lisp |
| 339 | ln [a-zA-Z]*.dat ../${tempdir}/lisp |
| 340 | for img in [a-zA-Z]*.xpm [a-zA-Z]*.xbm [a-zA-Z]*.pbm; do |
| 341 | # If there are no images, the shell won't expand the pattern. |
| 342 | if [ -f $img ]; then |
| 343 | ln $img ../${tempdir}/lisp |
| 344 | fi |
| 345 | done |
| 346 | ## simula.el doesn't keep abbreviations in simula.defns any more. |
| 347 | ## ln [a-zA-Z]*.defns ../${tempdir}/lisp |
| 348 | ln ChangeLog Makefile.in makefile.nt ChangeLog.? ../${tempdir}/lisp |
| 349 | ln makefile.w32-in ../${tempdir}/lisp |
| 350 | test -f README && ln README ../${tempdir}/lisp |
| 351 | (cd ../${tempdir}/lisp |
| 352 | rm -f TAGS =* |
| 353 | rm -f site-init site-init.el site-init.elc |
| 354 | rm -f site-load site-load.el site-load.elc |
| 355 | rm -f site-start site-start.el site-start.elc |
| 356 | rm -f default default.el default.elc |
| 357 | ) |
| 358 | |
| 359 | ## Find all subdirs of lisp dir |
| 360 | for file in `find . -type d -print`; do |
| 361 | case $file in |
| 362 | . | .. | */Old | */CVS | */RCS | */=*) |
| 363 | ;; |
| 364 | *) |
| 365 | if [ -d $file ]; then |
| 366 | subdirs="$file $subdirs" |
| 367 | fi |
| 368 | ;; |
| 369 | esac |
| 370 | done |
| 371 | |
| 372 | for file in $subdirs; do |
| 373 | echo " lisp/$file" |
| 374 | mkdir ../${tempdir}/lisp/$file |
| 375 | ln $file/[a-zA-Z0-9]*.el ../${tempdir}/lisp/$file |
| 376 | ln $file/[a-zA-Z0-9]*.elc ../${tempdir}/lisp/$file |
| 377 | for img in $file/[a-zA-Z]*.xpm $file/[a-zA-Z]*.xbm $file/[a-zA-Z]*.pbm; do |
| 378 | if [ -f $img ]; then |
| 379 | ln $img ../${tempdir}/lisp/$file |
| 380 | fi |
| 381 | done |
| 382 | if [ -f $file/README ]; then |
| 383 | ln $file/README ../${tempdir}/lisp/$file |
| 384 | fi |
| 385 | |
| 386 | if [ -f $file/ChangeLog ]; then |
| 387 | ln $file/ChangeLog ../${tempdir}/lisp/$file |
| 388 | for f in $file/ChangeLog.[0-9]; do |
| 389 | if [ -f $f ]; then |
| 390 | ln $f ../${tempdir}/lisp/$file |
| 391 | fi |
| 392 | done |
| 393 | fi |
| 394 | done ) |
| 395 | |
| 396 | echo "Making links to \`leim' and its subdirectories" |
| 397 | ### Don't distribute TAGS, or =*.el files. |
| 398 | (cd leim |
| 399 | ln makefile.nt makefile.w32-in ../${tempdir}/leim |
| 400 | ln ChangeLog README ../${tempdir}/leim |
| 401 | |
| 402 | ln CXTERM-DIC/*.tit ../${tempdir}/leim/CXTERM-DIC |
| 403 | ln SKK-DIC/README SKK-DIC/SKK-JISYO.L ../${tempdir}/leim/SKK-DIC |
| 404 | ln MISC-DIC/*.* ../${tempdir}/leim/MISC-DIC |
| 405 | ln ja-dic/*.el ja-dic/*.elc ../${tempdir}/leim/ja-dic |
| 406 | ln Makefile.in ../${tempdir}/leim/Makefile.in |
| 407 | ln quail/[a-z]*.el quail/[a-z]*.elc ../${tempdir}/leim/quail |
| 408 | rm -f ../${tempdir}/leim/quail/quick-b5.* |
| 409 | rm -f ../${tempdir}/leim/quail/quick-cns.* |
| 410 | rm -f ../${tempdir}/leim/quail/tsang-b5.* |
| 411 | rm -f ../${tempdir}/leim/quail/tsang-cns.* |
| 412 | |
| 413 | cd ../${tempdir}/leim |
| 414 | rm -f TAGS =* */=*) |
| 415 | |
| 416 | echo "Making links to \`src'" |
| 417 | ### Don't distribute =*.[ch] files, or the configured versions of |
| 418 | ### config.in, paths.in, or Makefile.in, or TAGS. |
| 419 | (cd src |
| 420 | echo " (It is ok if ln fails in some cases.)" |
| 421 | ln [a-zA-Z]*.c ../${tempdir}/src |
| 422 | ln [a-zA-Z]*.h ../${tempdir}/src |
| 423 | ln [a-zA-Z]*.s ../${tempdir}/src |
| 424 | ln [a-zA-Z]*.in ../${tempdir}/src |
| 425 | ln [a-zA-Z]*.opt ../${tempdir}/src |
| 426 | ## If we ended up with a symlink, or if we did not get anything |
| 427 | ## due to a cross-device symlink, copy the file. |
| 428 | for file in [a-zA-Z]*.[hcs] [a-zA-Z]*.in [a-zA-Z]*.opt; do |
| 429 | if test -f ../${tempdir}/src/$file; then |
| 430 | # test -f appears to succeed for a symlink |
| 431 | if test -L ../${tempdir}/src/$file; then |
| 432 | rm ../${tempdir}/src/$file |
| 433 | cp -p $file ../${tempdir}/src |
| 434 | chmod a-w ../${tempdir}/src/$file |
| 435 | fi |
| 436 | else |
| 437 | rm ../${tempdir}/src/$file |
| 438 | cp -p $file ../${tempdir}/src |
| 439 | chmod a-w ../${tempdir}/src/$file |
| 440 | fi |
| 441 | done |
| 442 | ln README ChangeLog ChangeLog.*[0-9] ../${tempdir}/src |
| 443 | ln makefile.nt makefile.w32-in ../${tempdir}/src |
| 444 | ln .gdbinit .dbxinit ../${tempdir}/src |
| 445 | cd ../${tempdir}/src |
| 446 | rm -f config.h epaths.h Makefile Makefile.c |
| 447 | rm -f =* TAGS) |
| 448 | |
| 449 | echo "Making links to \`src/bitmaps'" |
| 450 | (cd src/bitmaps |
| 451 | ln README *.xbm ../../${tempdir}/src/bitmaps) |
| 452 | |
| 453 | echo "Making links to \`src/m'" |
| 454 | (cd src/m |
| 455 | # We call files for miscellaneous input (to linker etc) .inp. |
| 456 | ln README [a-zA-Z0-9]*.h *.inp ../../${tempdir}/src/m) |
| 457 | |
| 458 | echo "Making links to \`src/s'" |
| 459 | (cd src/s |
| 460 | ln README [a-zA-Z0-9]*.h ../../${tempdir}/src/s) |
| 461 | |
| 462 | echo "Making links to \`lib-src'" |
| 463 | (cd lib-src |
| 464 | ln [a-zA-Z]*.[chy] ../${tempdir}/lib-src |
| 465 | ln ChangeLog Makefile.in README testfile vcdiff ../${tempdir}/lib-src |
| 466 | ln grep-changelog rcs2log rcs-checkin makefile.nt ../${tempdir}/lib-src |
| 467 | ln makefile.w32-in ../${tempdir}/lib-src |
| 468 | ## If we ended up with a symlink, or if we did not get anything |
| 469 | ## due to a cross-device symlink, copy the file. |
| 470 | for file in [a-zA-Z]*.[chy]; do |
| 471 | if test -f ../${tempdir}/lib-src/$file; then |
| 472 | # test -f appears to succeed for a symlink |
| 473 | if test -L ../${tempdir}/lib-src/$file; then |
| 474 | rm ../${tempdir}/lib-src/$file |
| 475 | cp $file ../${tempdir}/lib-src |
| 476 | chmod a-w ../${tempdir}/lib-src/$file |
| 477 | fi |
| 478 | else |
| 479 | rm ../${tempdir}/lib-src/$file |
| 480 | cp $file ../${tempdir}/lib-src |
| 481 | chmod a-w ../${tempdir}/lib-src/$file |
| 482 | fi |
| 483 | done |
| 484 | cd ../${tempdir}/lib-src |
| 485 | rm -f Makefile.c |
| 486 | rm -f =* TAGS) |
| 487 | |
| 488 | echo "Making links to \`nt'" |
| 489 | (cd nt |
| 490 | ln emacs.rc config.nt [a-z]*.c ../${tempdir}/nt |
| 491 | ln nmake.defs gmake.defs subdirs.el ../${tempdir}/nt |
| 492 | ln [a-z]*.bat [a-z]*.h makefile.def makefile.nt ../${tempdir}/nt |
| 493 | ln ChangeLog INSTALL README makefile.w32-in ../${tempdir}/nt) |
| 494 | |
| 495 | echo "Making links to \`nt/inc'" |
| 496 | (cd nt/inc |
| 497 | ln [a-z]*.h ../../${tempdir}/nt/inc) |
| 498 | |
| 499 | echo "Making links to \`nt/inc/sys'" |
| 500 | (cd nt/inc/sys |
| 501 | ln [a-z]*.h ../../../${tempdir}/nt/inc/sys) |
| 502 | |
| 503 | echo "Making links to \`nt/inc/arpa'" |
| 504 | (cd nt/inc/arpa |
| 505 | ln [a-z]*.h ../../../${tempdir}/nt/inc/arpa) |
| 506 | |
| 507 | echo "Making links to \`nt/inc/netinet'" |
| 508 | (cd nt/inc/netinet |
| 509 | ln [a-z]*.h ../../../${tempdir}/nt/inc/netinet) |
| 510 | |
| 511 | echo "Making links to \`nt/icons'" |
| 512 | (cd nt/icons |
| 513 | ln [a-z]*.ico ../../${tempdir}/nt/icons) |
| 514 | |
| 515 | echo "Making links to \`mac'" |
| 516 | (cd mac |
| 517 | ln ChangeLog INSTALL README *.xml *.MPW ../${tempdir}/mac) |
| 518 | |
| 519 | echo "Making links to \`mac/inc'" |
| 520 | (cd mac/inc |
| 521 | ln [a-z]*.h ../../${tempdir}/mac/inc) |
| 522 | |
| 523 | echo "Making links to \`mac/inc/sys'" |
| 524 | (cd mac/inc/sys |
| 525 | ln [a-z]*.h ../../../${tempdir}/mac/inc/sys) |
| 526 | |
| 527 | echo "Making links to \`mac/src'" |
| 528 | (cd mac/src |
| 529 | ln [a-z]*.c *.r ../../${tempdir}/mac/src) |
| 530 | |
| 531 | echo "Making links to \`msdos'" |
| 532 | (cd msdos |
| 533 | ln ChangeLog emacs.ico emacs.pif ../${tempdir}/msdos |
| 534 | ln is_exec.c sigaction.c mainmake mainmake.v2 sed*.inp ../${tempdir}/msdos |
| 535 | cd ../${tempdir}/msdos |
| 536 | rm -f =*) |
| 537 | |
| 538 | echo "Making links to \`oldXMenu'" |
| 539 | (cd oldXMenu |
| 540 | ln *.c *.h *.in ../${tempdir}/oldXMenu |
| 541 | ln README Imakefile ChangeLog ../${tempdir}/oldXMenu |
| 542 | ln compile.com descrip.mms ../${tempdir}/oldXMenu) |
| 543 | |
| 544 | echo "Making links to \`lwlib'" |
| 545 | (cd lwlib |
| 546 | ln *.c *.h *.in ../${tempdir}/lwlib |
| 547 | ln README Imakefile ChangeLog ../${tempdir}/lwlib |
| 548 | cd ../${tempdir}/lwlib |
| 549 | rm -f lwlib-Xol*) |
| 550 | |
| 551 | echo "Making links to \`etc'" |
| 552 | ### Don't distribute = files, TAGS, DOC files, backups, autosaves, or |
| 553 | ### tex litter. |
| 554 | ### Don't distribute gfdl.1, since no man page references it. |
| 555 | (cd etc |
| 556 | files=`ls -d * | grep -v CVS | grep -v RCS | grep -v 'Old' | grep -v '^e$'` |
| 557 | ln $files ../${tempdir}/etc |
| 558 | ## If we ended up with a symlink, or if we did not get anything |
| 559 | ## due to a cross-device symlink, copy the file. |
| 560 | for file in $files; do |
| 561 | if test -f ../${tempdir}/etc/$file; then |
| 562 | # test -f appears to succeed for a symlink |
| 563 | if test -L ../${tempdir}/etc/$file; then |
| 564 | rm ../${tempdir}/etc/$file |
| 565 | cp $file ../${tempdir}/etc |
| 566 | chmod a-w ../${tempdir}/etc/$file |
| 567 | fi |
| 568 | else |
| 569 | rm ../${tempdir}/etc/$file |
| 570 | cp $file ../${tempdir}/etc |
| 571 | chmod a-w ../${tempdir}/etc/$file |
| 572 | fi |
| 573 | done |
| 574 | cd ../${tempdir}/etc |
| 575 | rm -f fns*.el gfdl.1 |
| 576 | rm -f DOC* *~ \#*\# *.dvi *.log *.orig *.rej *,v =* core |
| 577 | rm -f TAGS) |
| 578 | |
| 579 | echo "Making links to \`etc/e'" |
| 580 | (cd etc/e |
| 581 | ln `ls -d * | grep -v CVS | grep -v RCS` ../../${tempdir}/etc/e |
| 582 | cd ../../${tempdir}/etc/e |
| 583 | rm -f *~ \#*\# *,v =* core) |
| 584 | |
| 585 | echo "Making links to \`info'" |
| 586 | # Don't distribute backups or autosaves. |
| 587 | (cd info |
| 588 | ln `find . -type f -print | grep -v CVS | grep -v RCS | grep -v cvsignore` ../${tempdir}/info |
| 589 | #ln [a-zA-Z]* ../${tempdir}/info |
| 590 | cd ../${tempdir}/info |
| 591 | # Avoid an error when expanding the wildcards later. |
| 592 | ln emacs dummy~ ; ln emacs \#dummy\# |
| 593 | rm -f *~ \#*\# core) |
| 594 | |
| 595 | echo "Making links to \`man'" |
| 596 | (cd man |
| 597 | ln *.texi *.aux *.cps *.fns *.kys *.vrs ../${tempdir}/man |
| 598 | test -f README && ln README ../${tempdir}/man |
| 599 | test -f Makefile.in && ln Makefile.in ../${tempdir}/man |
| 600 | ln ChangeLog ../${tempdir}/man |
| 601 | test -f split-man && ln split-man ../${tempdir}/man |
| 602 | cp texinfo.tex ../${tempdir}/man |
| 603 | cd ../${tempdir}/man |
| 604 | rm -f \#*\# =* *~ core emacs-index* *.Z *.z xmail |
| 605 | rm -f emacs.?? termcap.?? gdb.?? *.log *.toc *.dvi *.oaux) |
| 606 | |
| 607 | echo "Making links to \`lispref'" |
| 608 | (cd lispref |
| 609 | ln `ls -1 *.texi | grep -v index.texi` ../${tempdir}/lispref |
| 610 | ln *.aux *.cps *.fns *.kys *.vrs index.*perm ../${tempdir}/lispref |
| 611 | ln *.txt *.el spellfile permute-index tindex.pl ../${tempdir}/lispref |
| 612 | test -f README && ln README ../${tempdir}/lispref |
| 613 | test -f Makefile.in && ln Makefile.in ../${tempdir}/lispref |
| 614 | ln ChangeLog ../${tempdir}/lispref |
| 615 | cd ../${tempdir}/lispref |
| 616 | rm -f \#*\# =* *~ core elisp-index* *.Z *.z xmail |
| 617 | rm -f elisp.?? *.log *.toc *.dvi *.oaux) |
| 618 | |
| 619 | echo "Making links to \`lispintro'" |
| 620 | (cd lispintro |
| 621 | ln *.texi *.aux *.cps *.fns *.kys *.vrs *.eps ../${tempdir}/lispintro |
| 622 | test -f texinfo.tex && ln texinfo.tex ../${tempdir}/lispintro |
| 623 | test -f README && ln README ../${tempdir}/lispintro |
| 624 | test -f Makefile.in && ln Makefile.in ../${tempdir}/lispintro |
| 625 | ln ChangeLog ../${tempdir}/lispintro |
| 626 | cd ../${tempdir}/lispintro |
| 627 | rm -f \#*\# =* *~ core *.Z *.z xmail |
| 628 | rm -f emacs-lisp-intro.?? *.log *.toc *.dvi *.oaux) |
| 629 | |
| 630 | echo "Making links to \`vms'" |
| 631 | (cd vms |
| 632 | test -f README && ln README ../${tempdir}/vms |
| 633 | cd ../${tempdir}/vms |
| 634 | rm -f *~) |
| 635 | |
| 636 | ### It would be nice if they could all be symlinks to top-level copy, but |
| 637 | ### you're not supposed to have any symlinks in distribution tar files. |
| 638 | echo "Making sure copying notices are all copies of \`COPYING'" |
| 639 | for subdir in . etc info leim lib-src lisp lwlib mac msdos nt src; do |
| 640 | rm -f ${tempdir}/${subdir}/COPYING |
| 641 | cp COPYING ${tempdir}/${subdir} |
| 642 | done |
| 643 | |
| 644 | #### Make sure that there aren't any hard links between files in the |
| 645 | #### distribution; people with afs can't deal with that. Okay, |
| 646 | #### actually we just re-copy anything with a link count greater |
| 647 | #### than two. (Yes, strictly greater than 2 is correct; since we |
| 648 | #### created these files by linking them in from the original tree, |
| 649 | #### they'll have exactly two links normally.) |
| 650 | #### |
| 651 | #### Commented out since it's not strictly necessary; it should suffice |
| 652 | #### to just break the link on alloca.c. |
| 653 | #echo "Breaking intra-tree links." |
| 654 | #find ${tempdir} ! -type d -links +2 \ |
| 655 | # -exec cp -p {} $$ \; -exec rm -f {} \; -exec mv $$ {} \; |
| 656 | rm -f $tempdir/lib-src/alloca.c |
| 657 | cp $tempdir/src/alloca.c $tempdir/lib-src/alloca.c |
| 658 | |
| 659 | if [ "${newer}" ]; then |
| 660 | echo "Removing files older than $newer" |
| 661 | ## We remove .elc files unconditionally, on the theory that anyone picking |
| 662 | ## up an incremental distribution already has a running Emacs to byte-compile |
| 663 | ## them with. |
| 664 | find ${tempparent} \( -name '*.elc' -o ! -newer ${newer} \) -exec rm -f {} \; |
| 665 | fi |
| 666 | |
| 667 | if [ "${make_tar}" = yes ]; then |
| 668 | if [ "${default_gzip}" = "" ]; then |
| 669 | echo "Looking for gzip" |
| 670 | temppath=`echo $PATH | sed 's/^:/.:/ |
| 671 | s/::/:.:/g |
| 672 | s/:$/:./ |
| 673 | s/:/ /g'` |
| 674 | default_gzip=`( |
| 675 | for dir in ${temppath}; do |
| 676 | if [ -f ${dir}/gzip ]; then echo 'gzip --best'; exit 0; fi |
| 677 | done |
| 678 | echo compress |
| 679 | )` |
| 680 | fi |
| 681 | case "${default_gzip}" in |
| 682 | compress* ) gzip_extension=.Z ;; |
| 683 | * ) gzip_extension=.gz ;; |
| 684 | esac |
| 685 | echo "Creating tar file" |
| 686 | (cd ${tempparent} ; tar cvf - ${emacsname} ) \ |
| 687 | | ${default_gzip} \ |
| 688 | > ${emacsname}.tar${gzip_extension} |
| 689 | fi |
| 690 | |
| 691 | if [ "${clean_up}" = yes ]; then |
| 692 | echo "Cleaning up the staging directory" |
| 693 | rm -rf ${tempparent} |
| 694 | else |
| 695 | (cd ${tempparent}; mv ${emacsname} ..) |
| 696 | rm -rf ${tempparent} |
| 697 | fi |
| 698 | |
| 699 | ### make-dist ends here |