make-dist

   1 #!/bin/sh
   2 ### make-dist: create an Emacs distribution tar file from current srcdir
   3
   4 ## Copyright (C) 1995, 1997-1998, 2000-2018 Free Software Foundation,
   5 ## Inc.
   6
   7 ## This file is part of GNU Emacs.
   8
   9 ## GNU Emacs is free software: you can redistribute it and/or modify
  10 ## it under the terms of the GNU General Public License as published by
  11 ## the Free Software Foundation, either version 3 of the License, or
  12 ## (at your option) any later version.
  13
  14 ## GNU Emacs is distributed in the hope that it will be useful,
  15 ## but WITHOUT ANY WARRANTY; without even the implied warranty of
  16 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  17 ## GNU General Public License for more details.
  18
  19 ## You should have received a copy of the GNU General Public License
  20 ## along with GNU Emacs.  If not, see <https://www.gnu.org/licenses/>.
  21
  22 ### Commentary:
  23
  24 ## This basically creates a duplicate directory structure, and then
  25 ## hard links into it only those files that should be distributed.
  26 ## This means that if you add a file with an odd name, you should make
  27 ## sure that this script will include it.
  28
  29 ### Code:
  30
  31 progname="$0"
  32
  33 ### Exit if a command fails.
  34 #set -e
  35
  36 ### Print out each line we read, for debugging's sake.
  37 #set -v
  38
  39 LANGUAGE=C
  40 LC_ALL=C
  41 LC_MESSAGES=
  42 LANG=
  43 export LANGUAGE LC_ALL LC_MESSAGES LANG
  44
  45 ## Remove unnecessary restrictions on file access.
  46 umask 022
  47
  48 update=yes
  49 check=yes
  50 clean_up=no
  51 make_tar=no
  52 default_gzip=gzip
  53 newer=""
  54 with_tests=no
  55 changelog=yes
  56 verbose=no
  57
  58 while [ $# -gt 0 ]; do
  59   case "$1" in
  60     ## This option tells make-dist to delete the staging directory
  61     ## when done.  It is useless to use this unless you make a tar file.
  62     "--clean-up" )
  63       clean_up=yes
  64     ;;
  65     ## This option tells make-dist to make a tar file.
  66     "--tar" )
  67       make_tar=yes
  68     ;;
  69     ## This option tells make-dist not to recompile or do analogous things.
  70     "--no-update" )
  71       update=no
  72     ;;
  73     ## This option says don't check for bad file names, etc.
  74     "--no-check" )
  75       check=no
  76     ;;
  77     "--no-changelog" )
  78       changelog=no
  79     ;;
  80     ## This option tells make-dist to make the distribution normally, then
  81     ## remove all files older than the given timestamp file.  This is useful
  82     ## for creating incremental or patch distributions.
  83     "--newer")
  84       newer="$2"
  85       new_extension=".new"
  86       shift
  87     ;;
  88     ## This option tells make-dist to use 'bzip2' instead of gzip.
  89     "--bzip2")
  90       default_gzip="bzip2"
  91     ;;
  92     ## Same with xz.
  93     "--xz")
  94       default_gzip="xz"
  95     ;;
  96     "--no-compress")
  97       default_gzip="cat"
  98     ;;
  99
 100     "--snapshot")
 101       clean_up=yes
 102       make_tar=yes
 103       update=no
 104      ;;
 105
 106     ## Include the test/ directory.
 107     ## This option is mainly for the hydra build server.
 108     "--tests")
 109       with_tests=yes
 110      ;;
 111
 112     "--verbose")
 113       verbose=yes
 114      ;;
 115
 116     "--help")
 117       printf '%s\n' "Usage: ${progname} [options]"
 118       echo ""
 119       echo "  --bzip2   use bzip2 instead of gzip"
 120       echo "  --clean-up        delete staging directories when done"
 121       echo "  --xz              use xz instead of gzip"
 122       echo "  --no-compress     don't compress"
 123       echo "  --newer=TIME      don't include files older than TIME"
 124       echo "  --no-check        don't check for bad file names etc."
 125       echo "  --no-update       don't recompile or do analogous things"
 126       echo "  --no-changelog    don't generate the top-level ChangeLog"
 127       echo "  --snapshot        same as --clean-up --no-update --tar --no-check"
 128       echo "  --tar             make a tar file"
 129       echo "  --tests   include the test/ directory"
 130       echo "  --verbose         noisier output"
 131       echo ""
 132       exit 0
 133     ;;
 134
 135     * )
 136       printf '%s\n' "${progname}: Unrecognized argument: $1" >&2
 137       exit 1
 138     ;;
 139   esac
 140   shift
 141 done
 142
 143 ### Make sure we're running in the right place.
 144 if [ ! -d src -o ! -f src/lisp.h -o ! -d lisp -o ! -f lisp/subr.el ]; then
 145   printf '%s\n' "${progname}: Can't find 'src/lisp.h' and 'lisp/subr.el'." >&2
 146   printf '%s\n' "${progname} must be run in the top directory of the Emacs" >&2
 147   printf '%s\n' "distribution tree.  cd to that directory and try again." >&2
 148   exit 1
 149 fi
 150
 151 ### Find where to run Emacs.
 152 ### (Accept only absolute file names.)
 153 if [ $update = yes ];
 154 then
 155   if [ -f src/emacs ];
 156   then
 157     EMACS=`pwd`/src/emacs
 158   else
 159     case $EMACS in
 160       /*) ;;
 161       *)
 162         if [ ! -f "$EMACS" ]; then
 163           printf '%s\n' "$0: You must set the EMACS environment variable " \
 164                "to an absolute file name." 2>&1
 165           exit 1
 166         fi;;
 167     esac
 168   fi
 169 fi
 170
 171 ### Find out which version of Emacs this is.
 172 version=`
 173   sed -n 's/^AC_INIT(GNU Emacs,[         ]*\([^  ,)]*\).*/\1/p' <configure.ac
 174 ` || version=
 175 if [ ! "${version}" ]; then
 176   printf '%s\n' \
 177     "${progname}: can't find current Emacs version in './src/emacs.c'" >&2
 178   exit 1
 179 fi
 180
 181 echo Version number is $version
 182
 183 if [ $update = yes ]; then
 184   if ! grep -q "tree holds version  *${version}" README; then
 185     echo "WARNING: README has the wrong version number"
 186     echo "Consider running M-x set-version from admin/admin.el"
 187     sleep 5
 188   fi
 189 fi
 190
 191 ### Make sure we don't already have a directory  emacs-${version}.
 192
 193 emacsname="emacs-${version}${new_extension}"
 194
 195 if [ -d ${emacsname} ]
 196 then
 197   echo Directory "${emacsname}" already exists >&2
 198   exit 1
 199 fi
 200
 201 ### Make sure the subdirectory is available.
 202 tempparent="make-dist.tmp.$$"
 203 if [ -d ${tempparent} ]; then
 204   printf '%s\n' "${progname}: staging directory '${tempparent}' already exists.
 205 Perhaps a previous invocation of '${progname}' failed to clean up after
 206 itself.  Check that directories whose names are of the form
 207 'make-dist.tmp.NNNNN' don't contain any important information, remove
 208 them, and try again." >&2
 209   exit 1
 210 fi
 211
 212 if [ $check = yes ]; then
 213
 214   echo "Sanity checking (use --no-check to disable this)..."
 215
 216   error=no
 217
 218   ls -1 lisp/[a-zA-Z]*.el lisp/[a-z]*/[a-zA-Z0-9]*.el \
 219         lisp/[a-z]*/[a-z]*/[a-zA-Z0-9]*.el \
 220         lisp/[a-z]*/[a-z]*/[a-z]*/[a-zA-Z0-9]*.el > /tmp/el
 221
 222   ls -1 lisp/[a-zA-Z]*.elc lisp/[a-z]*/[a-zA-Z0-9]*.elc \
 223         lisp/[a-z]*/[a-z]*/[a-zA-Z0-9]*.elc \
 224         lisp/[a-z]*/[a-z]*/[a-z]*/[a-zA-Z0-9]*.elc > /tmp/elc
 225
 226   ## Check for .elc files with no corresponding .el file.
 227   sed 's/\.el$/.elc/' /tmp/el > /tmp/elelc
 228
 229   bogosities=`comm -13 /tmp/elelc /tmp/elc`
 230   if [ x"${bogosities}" != x"" ]; then
 231     error=yes
 232     echo "The following .elc files have no corresponding .el files:"
 233     echo "${bogosities}"
 234   fi
 235
 236   ### Check for .el files with no corresponding .elc file.
 237   sed 's/\.elc$/.el/' /tmp/elc > /tmp/elcel
 238   losers=`comm -23 /tmp/el /tmp/elcel`
 239
 240   bogosities=
 241   while read elc; do
 242       el=`echo $elc | sed 's/c$//'`
 243       [ -r $el ] || continue
 244       [ $elc -nt $el ] || bogosities="$bogosities $elc"
 245   done < /tmp/elc
 246
 247   if [ x"${bogosities}" != x"" ]; then
 248       error=yes
 249       echo "The following .elc files are older than their .el files:"
 250       echo "${bogosities}"
 251   fi
 252
 253   rm -f /tmp/el /tmp/elc /tmp/elcel /tmp/elelc
 254
 255   bogosities=
 256   for file in $losers; do
 257     grep -q "no-byte-compile: t" $file && continue
 258     case $file in
 259       site-init.el | site-load.el | site-start.el | default.el) continue ;;
 260     esac
 261
 262     bogosities="$file $bogosities"
 263
 264   done
 265   if [ x"${bogosities}" != x"" ]; then
 266     error=yes
 267     echo "The following .el files have no corresponding .elc files:"
 268     echo "${bogosities}"
 269   fi
 270
 271
 272   ## This is only a crude check, eg it does not handle .info
 273   ## files with multiple .texi source files.
 274   find doc -name '*.texi' > /tmp/el
 275
 276   bogosities=
 277   while read texi; do
 278       info=`sed -n 's/^@setfilename //p' $texi | sed 's|.*info/||'`
 279       [ x"${info}" != x"" ] || continue
 280       info=info/$info
 281       [ -r $info ] || continue
 282       [ $info -nt $texi ] || bogosities="$bogosities $info"
 283   done < /tmp/el
 284
 285   rm -f /tmp/el
 286
 287   if [ x"${bogosities}" != x"" ]; then
 288     error=yes
 289     echo "The following .info files are older than their .texi files:"
 290     echo "${bogosities}"
 291   fi
 292
 293   ## This exits with non-zero status if any .info files need
 294   ## rebuilding.
 295   if [ -r Makefile ]; then
 296       echo "Checking to see if info files are up-to-date..."
 297       make --question info || error=yes
 298   fi
 299
 300   ## Is this a release?
 301   case $version in
 302       [1-9][0-9].[0-9])
 303           if [ -r ChangeLog ]; then
 304               if ! grep -q "Version $version released" ChangeLog; then
 305                   echo "No release notice in ChangeLog"
 306                   error=yes
 307               fi
 308           else
 309               echo "A release must have a ChangeLog"
 310               error=yes
 311           fi
 312       ;;
 313   esac
 314
 315   if [ $error = yes ]; then
 316       echo "Failed checks" >&2
 317       exit 1
 318   fi
 319
 320 fi
 321
 322 if [ $update = yes ]; then
 323
 324   ## Make sure configure is newer than configure.ac, etc.
 325   ## It is better to let autoreconf do what is needed than
 326   ## for us to try and duplicate all its checks.
 327   echo "Running autoreconf"
 328   autoreconf -i -I m4 || { x=$?; echo Autoreconf FAILED! >&2; exit $x; }
 329
 330   ## Make sure src/stamp-h.in is newer than configure.ac.
 331   rm -f src/stamp-h.in
 332   echo timestamp > src/stamp-h.in
 333
 334   echo "Updating Info files"
 335   make info
 336
 337   echo "Updating finder, custom and autoload data"
 338   (cd lisp && make updates EMACS="$EMACS")
 339
 340   echo "Updating leim-list.el"
 341   (cd leim && make leim-list.el EMACS="$EMACS")
 342
 343   echo "Recompiling Lisp files"
 344   $EMACS -batch -f batch-byte-recompile-directory lisp
 345 fi                              # $update = yes
 346
 347 echo "Creating staging directory: '${tempparent}'"
 348
 349 mkdir ${tempparent} || exit
 350 tempdir="${tempparent}/${emacsname}"
 351
 352 ### This trap ensures that the staging directory will be cleaned up even
 353 ### when the script is interrupted in mid-career.
 354 if [ "${clean_up}" = yes ]; then
 355   trap "echo 'Cleaning up the staging directory'; rm -rf ${tempparent}" EXIT
 356 fi
 357
 358 echo "Creating top directory: '${tempdir}'"
 359 mkdir ${tempdir} || exit
 360
 361 top_level_ChangeLog=
 362 if [ "$changelog" = yes ]; then
 363   if test -r .git; then
 364     ## When making a release or pretest the ChangeLog should already
 365     ## have been created and edited as needed.  Don't ignore it.
 366     if test -r ChangeLog; then
 367       echo "Using existing top-level ChangeLog"
 368       top_level_ChangeLog=ChangeLog
 369     else
 370       echo "Making top-level ChangeLog"
 371       make ChangeLog CHANGELOG=${tempdir}/ChangeLog || \
 372         { x=$?; echo "make ChangeLog FAILED (try --no-changelog?)" >&2; exit $x; }
 373     fi
 374   else
 375     echo "No repository, so omitting top-level ChangeLog"
 376   fi
 377 fi
 378
 379 ### We copy in the top-level files before creating the subdirectories in
 380 ### hopes that this will make the top-level files appear first in the
 381 ### tar file; this means that people can start reading the INSTALL and
 382 ### README while the rest of the tar file is still unpacking.  Whoopee.
 383 echo "Making links to top-level files"
 384 top_level='
 385   INSTALL README BUGS
 386   ChangeLog.*[0-9] Makefile.in autogen.sh configure configure.ac
 387   config.bat make-dist .dir-locals.el
 388   aclocal.m4 CONTRIBUTE
 389 '
 390 ln $top_level $top_level_ChangeLog $tempdir || exit
 391
 392 echo "Creating subdirectories"
 393 for subdir in site-lisp \
 394               leim leim/CXTERM-DIC leim/MISC-DIC leim/SKK-DIC \
 395               build-aux \
 396               src src/bitmaps lib lib-src oldXMenu lwlib \
 397               nt nt/inc nt/inc/sys nt/inc/arpa nt/inc/netinet nt/icons \
 398               `find etc lisp admin test -type d` \
 399               doc doc/emacs doc/misc doc/man doc/lispref doc/lispintro \
 400               info m4 modules msdos \
 401               nextstep nextstep/templates \
 402               nextstep/Cocoa nextstep/Cocoa/Emacs.base \
 403               nextstep/Cocoa/Emacs.base/Contents \
 404               nextstep/Cocoa/Emacs.base/Contents/Resources \
 405               nextstep/GNUstep \
 406               nextstep/GNUstep/Emacs.base \
 407               nextstep/GNUstep/Emacs.base/Resources
 408 do
 409
 410   if [ "$with_tests" != "yes" ]; then
 411     case $subdir in
 412         test*) continue ;;
 413     esac
 414   fi
 415
 416   ## site-lisp for in-place installs (?).
 417   [ "$subdir" = "site-lisp" ] || [ -d "$subdir" ] || \
 418       echo "WARNING: $subdir not found, making anyway"
 419   [ "$verbose" = "yes" ] && echo "  ${tempdir}/${subdir}"
 420   mkdir ${tempdir}/${subdir} || exit
 421 done
 422
 423 echo "Making links to 'lisp' and its subdirectories"
 424 files=`find lisp \( -name '*.el' -o -name '*.elc' -o -name 'ChangeLog*' \
 425  -o -name 'README' \)` || exit
 426
 427 ### Don't distribute site-init.el, site-load.el, or default.el.
 428 for file in lisp/Makefile.in $files; do
 429   case $file in
 430     */site-init*|*/site-load*|*/default*) continue ;;
 431   esac
 432   ln $file $tempdir/$file || exit
 433 done
 434
 435 echo "Making links to 'leim' and its subdirectories"
 436 (cd leim &&
 437  ln ChangeLog.*[0-9] README ../${tempdir}/leim &&
 438  ln CXTERM-DIC/README CXTERM-DIC/*.tit ../${tempdir}/leim/CXTERM-DIC &&
 439  ln SKK-DIC/README SKK-DIC/SKK-JISYO.L ../${tempdir}/leim/SKK-DIC &&
 440  ln MISC-DIC/README MISC-DIC/*.* ../${tempdir}/leim/MISC-DIC &&
 441  ln Makefile.in ../${tempdir}/leim/Makefile.in &&
 442  ln leim-ext.el ../${tempdir}/leim/leim-ext.el &&
 443 :) || exit
 444
 445 ## FIXME Can we not just use the "find -type f" method for this one?
 446 echo "Making links to 'build-aux'"
 447 (cd build-aux &&
 448  ln config.guess config.sub msys-to-w32 ../${tempdir}/build-aux &&
 449  ln gitlog-to-changelog gitlog-to-emacslog ../${tempdir}/build-aux &&
 450  ln install-sh move-if-change ../${tempdir}/build-aux &&
 451  ln update-copyright update-subdirs ../${tempdir}/build-aux &&
 452  ln dir_top make-info-dir ../${tempdir}/build-aux &&
 453 :) || exit
 454
 455 echo "Making links to 'src'"
 456 ### Don't distribute the configured versions of
 457 ### config.in, paths.in, buildobj.h, or Makefile.in.
 458 (cd src &&
 459  ln [a-zA-Z]*.[chm] ../${tempdir}/src &&
 460  ln [a-zA-Z]*.in ../${tempdir}/src &&
 461  ln deps.mk ../${tempdir}/src &&
 462  ln README ChangeLog.*[0-9] ../${tempdir}/src &&
 463  ln .gdbinit .dbxinit ../${tempdir}/src &&
 464  cd ../${tempdir}/src &&
 465  rm -f globals.h config.h epaths.h Makefile buildobj.h &&
 466 :) || exit
 467
 468 echo "Making links to 'src/bitmaps'"
 469 (cd src/bitmaps &&
 470  ln README *.xbm ../../${tempdir}/src/bitmaps &&
 471 :) || exit
 472
 473 echo "Making links to 'lib'"
 474 (cd lib &&
 475  ln [a-zA-Z_]*.[ch] ../${tempdir}/lib &&
 476  ln gnulib.mk.in Makefile.in ../${tempdir}/lib &&
 477  cd ../${tempdir}/lib &&
 478  script='/[*]/d; s/\.in\.h$/.h/' &&
 479  rm -f `ls *.in.h | sed "$script"` &&
 480 :) || exit
 481
 482 echo "Making links to 'lib-src'"
 483 (cd lib-src &&
 484  ln [a-zA-Z]*.[ch] ../${tempdir}/lib-src &&
 485  ln ChangeLog.*[0-9] Makefile.in README ../${tempdir}/lib-src &&
 486  ln rcs2log ../${tempdir}/lib-src &&
 487 :) || exit
 488
 489 echo "Making links to 'm4'"
 490 (cd m4 &&
 491  ln *.m4 ../${tempdir}/m4 &&
 492 :) || exit
 493
 494 echo "Making links to 'modules'"
 495 (cd modules &&
 496  ln *.py ../${tempdir}/modules &&
 497 :) || exit
 498
 499 echo "Making links to 'nt'"
 500 (cd nt &&
 501  ln emacs-x86.manifest emacs-x64.manifest ../${tempdir}/nt &&
 502  ln [a-z]*.bat [a-z]*.[ch] ../${tempdir}/nt &&
 503  ln *.in gnulib-cfg.mk ../${tempdir}/nt &&
 504  ln mingw-cfg.site epaths.nt INSTALL.W64 ../${tempdir}/nt &&
 505  ln ChangeLog.*[0-9] INSTALL README README.W32 ../${tempdir}/nt &&
 506 :) || exit
 507
 508 echo "Making links to 'nt/inc' and its subdirectories"
 509 for f in `find nt/inc -type f -name '[a-z]*.h'`; do
 510   ln $f $tempdir/$f || exit
 511 done
 512
 513 echo "Making links to 'nt/icons'"
 514 (cd nt/icons &&
 515  ln README [a-z]*.ico ../../${tempdir}/nt/icons &&
 516  ln [a-z]*.cur ../../${tempdir}/nt/icons &&
 517 :) || exit
 518
 519 echo "Making links to 'msdos'"
 520 (cd msdos &&
 521  ln ChangeLog.*[0-9] INSTALL README emacs.ico emacs.pif ../${tempdir}/msdos &&
 522  ln depfiles.bat inttypes.h ../${tempdir}/msdos &&
 523  ln mainmake.v2 sed*.inp ../${tempdir}/msdos &&
 524 :) || exit
 525
 526 echo "Making links to 'nextstep'"
 527 (cd nextstep &&
 528  ln ChangeLog.*[0-9] README INSTALL Makefile.in ../${tempdir}/nextstep &&
 529 :) || exit
 530
 531 echo "Making links to 'nextstep/templates'"
 532 (cd nextstep/templates &&
 533  ln Emacs.desktop.in Info-gnustep.plist.in Info.plist.in InfoPlist.strings.in \
 534    ../../${tempdir}/nextstep/templates &&
 535 :) || exit
 536
 537 echo "Making links to 'nextstep/Cocoa/Emacs.base/Contents'"
 538 (cd nextstep/Cocoa/Emacs.base/Contents &&
 539  ln PkgInfo ../../../../${tempdir}/nextstep/Cocoa/Emacs.base/Contents &&
 540 :) || exit
 541
 542 echo "Making links to 'nextstep/Cocoa/Emacs.base/Contents/Resources'"
 543 (cd nextstep/Cocoa/Emacs.base/Contents/Resources &&
 544  ln Credits.html *.icns \
 545    ../../../../../${tempdir}/nextstep/Cocoa/Emacs.base/Contents/Resources &&
 546 :) || exit
 547
 548 echo "Making links to 'nextstep/GNUstep/Emacs.base/Resources'"
 549 (cd nextstep/GNUstep/Emacs.base/Resources &&
 550  ln README emacs.tiff \
 551    ../../../../${tempdir}/nextstep/GNUstep/Emacs.base/Resources &&
 552 :) || exit
 553
 554 echo "Making links to 'oldXMenu'"
 555 (cd oldXMenu &&
 556  ln *.[ch] *.in *.mk ../${tempdir}/oldXMenu &&
 557  ln README ChangeLog.*[0-9] ../${tempdir}/oldXMenu &&
 558 :) || exit
 559
 560 echo "Making links to 'lwlib'"
 561 (cd lwlib &&
 562  ln *.[ch] *.in *.mk ../${tempdir}/lwlib &&
 563  ln README ChangeLog.*[0-9] ../${tempdir}/lwlib &&
 564 :) || exit
 565
 566 ## It is important to distribute admin/ because it contains sources
 567 ## for generated lisp/international/uni-*.el files.
 568 echo "Making links to 'admin' and its subdirectories"
 569 for f in `find admin -type f`; do
 570   case $f in
 571     */Makefile) [ -f $f.in ] && continue ;;
 572   esac
 573   ln $f $tempdir/$f || exit
 574 done
 575
 576 if [ "$with_tests" = "yes" ]; then
 577   echo "Making links to 'test' and its subdirectories"
 578   for f in `find test -type f ! -name '*.log' ! -name a.out \
 579               ! -name '*.so' ! -name '*.dll' ! -name '*.o'
 580   `; do
 581     case $f in
 582         */Makefile) [ -f $f.in ] && continue ;;
 583     esac
 584     ln $f $tempdir/$f || exit
 585   done
 586 fi
 587
 588 echo "Making links to 'etc' and its subdirectories"
 589 for f in `find etc -type f`; do
 590   case $f in
 591     etc/DOC*|etc/*.pyc) continue ;;
 592     ## Arguably we should not exclude *.ps.
 593     etc/refcards/*.aux|etc/refcards/*.dvi|etc/refcards/*.log|etc/refcards/*.ps)
 594       continue ;;
 595   esac
 596   ln $f $tempdir/$f || exit
 597 done
 598
 599 if [ -d info ]; then # Skip in case we've built --without-makeinfo.
 600   echo "Making links to 'info'"
 601   ln `find info -type f -print` ${tempdir}/info || exit
 602 fi
 603
 604 echo "Making links to 'doc/emacs'"
 605 (cd doc/emacs &&
 606  ln *.texi *.in ChangeLog.*[0-9] ../../${tempdir}/doc/emacs &&
 607 :) || exit
 608
 609 echo "Making links to 'doc/misc'"
 610 (cd doc/misc &&
 611  ln *.texi *.tex *.in gnus-news.el ChangeLog.*[0-9] \
 612    ../../${tempdir}/doc/misc &&
 613 :) || exit
 614
 615 echo "Making links to 'doc/lispref'"
 616 (cd doc/lispref &&
 617  ln *.texi *.in README ChangeLog.*[0-9] ../../${tempdir}/doc/lispref &&
 618  ln spellfile ../../${tempdir}/doc/lispref &&
 619  ln two-volume.make two-volume-cross-refs.txt ../../${tempdir}/doc/lispref &&
 620 :) || exit
 621
 622 echo "Making links to 'doc/lispintro'"
 623 (cd doc/lispintro &&
 624  ln *.texi *.in *.eps *.pdf ../../${tempdir}/doc/lispintro &&
 625  ln README ChangeLog.*[0-9] ../../${tempdir}/doc/lispintro &&
 626  cd ../../${tempdir}/doc/lispintro &&
 627 :) || exit
 628
 629 echo "Making links to 'doc/man'"
 630 (cd doc/man &&
 631  ln *.*[0-9] *.in ../../${tempdir}/doc/man &&
 632  cd ../../${tempdir}/doc/man &&
 633  rm -f emacs.1 &&
 634 :) || exit
 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 leim lib lib-src lisp lwlib msdos nt src; do
 640   rm -f ${tempdir}/${subdir}/COPYING || exit
 641   cp COPYING ${tempdir}/${subdir} || exit
 642 done
 643
 644 if [ "${newer}" ]; then
 645   printf '%s\n' "Removing files older than $newer"
 646   ## We remove .elc files unconditionally, on the theory that anyone picking
 647   ## up an incremental distribution already has a running Emacs to byte-compile
 648   ## them with.
 649   find ${tempparent} \( -name '*.elc' -o ! -newer ${newer} \) \
 650     -exec rm -f {} \; || exit
 651 fi
 652
 653 ## Don't distribute backups, autosaves, etc.
 654 echo "Removing unwanted files"
 655 find ${tempparent} \( -name '*~' -o -name '#*#' -o -name '.*ignore' -o -name '=*' -o -name 'TAGS' \) -exec rm -f {} \; || exit
 656
 657 if [ "${make_tar}" = yes ]; then
 658   echo "Looking for $default_gzip"
 659   found=0
 660   temppath=`printf '%s\n' "$PATH" |
 661     sed -e 's/^:/.:/' -e 's/::/:.:/g' -e 's/:$/:./' -e 's/:/ /g'
 662   `
 663   for dir in ${temppath}; do
 664     [ -x ${dir}/$default_gzip ] || continue
 665     found=1; break
 666   done
 667   if [ "$found" = "0" ]; then
 668     echo "WARNING: '$default_gzip' not found, will not compress" >&2
 669     default_gzip=cat
 670   fi
 671   case "${default_gzip}" in
 672     bzip2) gzip_extension=.bz2 ;;
 673     xz)  gzip_extension=.xz ;;
 674     gzip)  gzip_extension=.gz ; default_gzip="gzip --best --no-name";;
 675        *)  gzip_extension= ;;
 676   esac
 677   echo "Creating tar file"
 678   taropt='--numeric-owner --owner=0 --group=0 --mode=go+u,go-w'
 679   tar --sort=name -cf /dev/null $tempparent/$emacsname/src/lisp.h 2>/tmp/out &&
 680     taropt="$taropt --sort=name"
 681   [ "$verbose" = "yes" ] && taropt="$taropt --verbose"
 682
 683   (cd $tempparent &&
 684    case $default_gzip in
 685      cat) tar $taropt -cf - $emacsname;;
 686      *) if tar $taropt -cf /dev/null --use-compress-program="$default_gzip" \
 687                $emacsname/src/lisp.h
 688         then
 689           tar $taropt -cf - --use-compress-program="$default_gzip" $emacsname
 690         else
 691           tar $taropt -cf $emacsname.tar $emacsname &&
 692           $default_gzip <$emacsname.tar
 693         fi;;
 694    esac
 695   ) >$emacsname.tar$gzip_extension || exit
 696 fi
 697
 698 if [ "${clean_up}" != yes ]; then
 699   (cd ${tempparent} && mv ${emacsname} ..) &&
 700   rm -rf ${tempparent}
 701 fi
 702
 703 ### make-dist ends here