Mercurial > feed

annotate install-sh @ 20:dd5b333a7960

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Regenerate Autotools files myself with Ron's patch
author Adam Chlipala <adam@chlipala.net>
date Sat, 23 Jun 2012 09:58:31 -0400
parents ad85b8813e8a
children
rev   line source
adam@0 1 #!/bin/sh
adam@0 2 # install - install a program, script, or datafile
adam@0 3
adam@20 4 scriptversion=2011-01-19.21; # UTC
adam@0 5
adam@0 6 # This originates from X11R5 (mit/util/scripts/install.sh), which was
adam@0 7 # later released in X11R6 (xc/config/util/install.sh) with the
adam@0 8 # following copyright and license.
adam@0 9 #
adam@0 10 # Copyright (C) 1994 X Consortium
adam@0 11 #
adam@0 12 # Permission is hereby granted, free of charge, to any person obtaining a copy
adam@0 13 # of this software and associated documentation files (the "Software"), to
adam@0 14 # deal in the Software without restriction, including without limitation the
adam@0 15 # rights to use, copy, modify, merge, publish, distribute, sublicense, and/or
adam@0 16 # sell copies of the Software, and to permit persons to whom the Software is
adam@0 17 # furnished to do so, subject to the following conditions:
adam@0 18 #
adam@0 19 # The above copyright notice and this permission notice shall be included in
adam@0 20 # all copies or substantial portions of the Software.
adam@0 21 #
adam@0 22 # THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
adam@0 23 # IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
adam@0 24 # FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
adam@0 25 # X CONSORTIUM BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN
adam@0 26 # AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNEC-
adam@0 27 # TION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
adam@0 28 #
adam@0 29 # Except as contained in this notice, the name of the X Consortium shall not
adam@0 30 # be used in advertising or otherwise to promote the sale, use or other deal-
adam@0 31 # ings in this Software without prior written authorization from the X Consor-
adam@0 32 # tium.
adam@0 33 #
adam@0 34 #
adam@0 35 # FSF changes to this file are in the public domain.
adam@0 36 #
adam@0 37 # Calling this script install-sh is preferred over install.sh, to prevent
adam@0 38 # `make' implicit rules from creating a file called install from it
adam@0 39 # when there is no Makefile.
adam@0 40 #
adam@0 41 # This script is compatible with the BSD install script, but was written
adam@0 42 # from scratch.
adam@0 43
adam@0 44 nl='
adam@0 45 '
adam@0 46 IFS=" "" $nl"
adam@0 47
adam@0 48 # set DOITPROG to echo to test this script
adam@0 49
adam@0 50 # Don't use :- since 4.3BSD and earlier shells don't like it.
adam@0 51 doit=${DOITPROG-}
adam@0 52 if test -z "$doit"; then
adam@0 53 doit_exec=exec
adam@0 54 else
adam@0 55 doit_exec=$doit
adam@0 56 fi
adam@0 57
adam@0 58 # Put in absolute file names if you don't have them in your path;
adam@0 59 # or use environment vars.
adam@0 60
adam@0 61 chgrpprog=${CHGRPPROG-chgrp}
adam@0 62 chmodprog=${CHMODPROG-chmod}
adam@0 63 chownprog=${CHOWNPROG-chown}
adam@0 64 cmpprog=${CMPPROG-cmp}
adam@0 65 cpprog=${CPPROG-cp}
adam@0 66 mkdirprog=${MKDIRPROG-mkdir}
adam@0 67 mvprog=${MVPROG-mv}
adam@0 68 rmprog=${RMPROG-rm}
adam@0 69 stripprog=${STRIPPROG-strip}
adam@0 70
adam@0 71 posix_glob='?'
adam@0 72 initialize_posix_glob='
adam@0 73 test "$posix_glob" != "?" || {
adam@0 74 if (set -f) 2>/dev/null; then
adam@0 75 posix_glob=
adam@0 76 else
adam@0 77 posix_glob=:
adam@0 78 fi
adam@0 79 }
adam@0 80 '
adam@0 81
adam@0 82 posix_mkdir=
adam@0 83
adam@0 84 # Desired mode of installed file.
adam@0 85 mode=0755
adam@0 86
adam@0 87 chgrpcmd=
adam@0 88 chmodcmd=$chmodprog
adam@0 89 chowncmd=
adam@0 90 mvcmd=$mvprog
adam@0 91 rmcmd="$rmprog -f"
adam@0 92 stripcmd=
adam@0 93
adam@0 94 src=
adam@0 95 dst=
adam@0 96 dir_arg=
adam@0 97 dst_arg=
adam@0 98
adam@0 99 copy_on_change=false
adam@0 100 no_target_directory=
adam@0 101
adam@0 102 usage="\
adam@0 103 Usage: $0 [OPTION]... [-T] SRCFILE DSTFILE
adam@0 104 or: $0 [OPTION]... SRCFILES... DIRECTORY
adam@0 105 or: $0 [OPTION]... -t DIRECTORY SRCFILES...
adam@0 106 or: $0 [OPTION]... -d DIRECTORIES...
adam@0 107
adam@0 108 In the 1st form, copy SRCFILE to DSTFILE.
adam@0 109 In the 2nd and 3rd, copy all SRCFILES to DIRECTORY.
adam@0 110 In the 4th, create DIRECTORIES.
adam@0 111
adam@0 112 Options:
adam@0 113 --help display this help and exit.
adam@0 114 --version display version info and exit.
adam@0 115
adam@0 116 -c (ignored)
adam@0 117 -C install only if different (preserve the last data modification time)
adam@0 118 -d create directories instead of installing files.
adam@0 119 -g GROUP $chgrpprog installed files to GROUP.
adam@0 120 -m MODE $chmodprog installed files to MODE.
adam@0 121 -o USER $chownprog installed files to USER.
adam@0 122 -s $stripprog installed files.
adam@0 123 -t DIRECTORY install into DIRECTORY.
adam@0 124 -T report an error if DSTFILE is a directory.
adam@0 125
adam@0 126 Environment variables override the default commands:
adam@0 127 CHGRPPROG CHMODPROG CHOWNPROG CMPPROG CPPROG MKDIRPROG MVPROG
adam@0 128 RMPROG STRIPPROG
adam@0 129 "
adam@0 130
adam@0 131 while test $# -ne 0; do
adam@0 132 case $1 in
adam@0 133 -c) ;;
adam@0 134
adam@0 135 -C) copy_on_change=true;;
adam@0 136
adam@0 137 -d) dir_arg=true;;
adam@0 138
adam@0 139 -g) chgrpcmd="$chgrpprog $2"
adam@0 140 shift;;
adam@0 141
adam@0 142 --help) echo "$usage"; exit $?;;
adam@0 143
adam@0 144 -m) mode=$2
adam@0 145 case $mode in
adam@0 146 *' '* | *' '* | *'
adam@0 147 '* | *'*'* | *'?'* | *'['*)
adam@0 148 echo "$0: invalid mode: $mode" >&2
adam@0 149 exit 1;;
adam@0 150 esac
adam@0 151 shift;;
adam@0 152
adam@0 153 -o) chowncmd="$chownprog $2"
adam@0 154 shift;;
adam@0 155
adam@0 156 -s) stripcmd=$stripprog;;
adam@0 157
adam@0 158 -t) dst_arg=$2
adam@20 159 # Protect names problematic for `test' and other utilities.
adam@20 160 case $dst_arg in
adam@20 161 -* | [=\(\)!]) dst_arg=./$dst_arg;;
adam@20 162 esac
adam@0 163 shift;;
adam@0 164
adam@0 165 -T) no_target_directory=true;;
adam@0 166
adam@0 167 --version) echo "$0 $scriptversion"; exit $?;;
adam@0 168
adam@0 169 --) shift
adam@0 170 break;;
adam@0 171
adam@0 172 -*) echo "$0: invalid option: $1" >&2
adam@0 173 exit 1;;
adam@0 174
adam@0 175 *) break;;
adam@0 176 esac
adam@0 177 shift
adam@0 178 done
adam@0 179
adam@0 180 if test $# -ne 0 && test -z "$dir_arg$dst_arg"; then
adam@0 181 # When -d is used, all remaining arguments are directories to create.
adam@0 182 # When -t is used, the destination is already specified.
adam@0 183 # Otherwise, the last argument is the destination. Remove it from $@.
adam@0 184 for arg
adam@0 185 do
adam@0 186 if test -n "$dst_arg"; then
adam@0 187 # $@ is not empty: it contains at least $arg.
adam@0 188 set fnord "$@" "$dst_arg"
adam@0 189 shift # fnord
adam@0 190 fi
adam@0 191 shift # arg
adam@0 192 dst_arg=$arg
adam@20 193 # Protect names problematic for `test' and other utilities.
adam@20 194 case $dst_arg in
adam@20 195 -* | [=\(\)!]) dst_arg=./$dst_arg;;
adam@20 196 esac
adam@0 197 done
adam@0 198 fi
adam@0 199
adam@0 200 if test $# -eq 0; then
adam@0 201 if test -z "$dir_arg"; then
adam@0 202 echo "$0: no input file specified." >&2
adam@0 203 exit 1
adam@0 204 fi
adam@0 205 # It's OK to call `install-sh -d' without argument.
adam@0 206 # This can happen when creating conditional directories.
adam@0 207 exit 0
adam@0 208 fi
adam@0 209
adam@0 210 if test -z "$dir_arg"; then
adam@20 211 do_exit='(exit $ret); exit $ret'
adam@20 212 trap "ret=129; $do_exit" 1
adam@20 213 trap "ret=130; $do_exit" 2
adam@20 214 trap "ret=141; $do_exit" 13
adam@20 215 trap "ret=143; $do_exit" 15
adam@0 216
adam@0 217 # Set umask so as not to create temps with too-generous modes.
adam@0 218 # However, 'strip' requires both read and write access to temps.
adam@0 219 case $mode in
adam@0 220 # Optimize common cases.
adam@0 221 *644) cp_umask=133;;
adam@0 222 *755) cp_umask=22;;
adam@0 223
adam@0 224 *[0-7])
adam@0 225 if test -z "$stripcmd"; then
adam@0 226 u_plus_rw=
adam@0 227 else
adam@0 228 u_plus_rw='% 200'
adam@0 229 fi
adam@0 230 cp_umask=`expr '(' 777 - $mode % 1000 ')' $u_plus_rw`;;
adam@0 231 *)
adam@0 232 if test -z "$stripcmd"; then
adam@0 233 u_plus_rw=
adam@0 234 else
adam@0 235 u_plus_rw=,u+rw
adam@0 236 fi
adam@0 237 cp_umask=$mode$u_plus_rw;;
adam@0 238 esac
adam@0 239 fi
adam@0 240
adam@0 241 for src
adam@0 242 do
adam@20 243 # Protect names problematic for `test' and other utilities.
adam@0 244 case $src in
adam@20 245 -* | [=\(\)!]) src=./$src;;
adam@0 246 esac
adam@0 247
adam@0 248 if test -n "$dir_arg"; then
adam@0 249 dst=$src
adam@0 250 dstdir=$dst
adam@0 251 test -d "$dstdir"
adam@0 252 dstdir_status=$?
adam@0 253 else
adam@0 254
adam@0 255 # Waiting for this to be detected by the "$cpprog $src $dsttmp" command
adam@0 256 # might cause directories to be created, which would be especially bad
adam@0 257 # if $src (and thus $dsttmp) contains '*'.
adam@0 258 if test ! -f "$src" && test ! -d "$src"; then
adam@0 259 echo "$0: $src does not exist." >&2
adam@0 260 exit 1
adam@0 261 fi
adam@0 262
adam@0 263 if test -z "$dst_arg"; then
adam@0 264 echo "$0: no destination specified." >&2
adam@0 265 exit 1
adam@0 266 fi
adam@0 267 dst=$dst_arg
adam@0 268
adam@0 269 # If destination is a directory, append the input filename; won't work
adam@0 270 # if double slashes aren't ignored.
adam@0 271 if test -d "$dst"; then
adam@0 272 if test -n "$no_target_directory"; then
adam@0 273 echo "$0: $dst_arg: Is a directory" >&2
adam@0 274 exit 1
adam@0 275 fi
adam@0 276 dstdir=$dst
adam@0 277 dst=$dstdir/`basename "$src"`
adam@0 278 dstdir_status=0
adam@0 279 else
adam@0 280 # Prefer dirname, but fall back on a substitute if dirname fails.
adam@0 281 dstdir=`
adam@0 282 (dirname "$dst") 2>/dev/null ||
adam@0 283 expr X"$dst" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \
adam@0 284 X"$dst" : 'X\(//\)[^/]' \| \
adam@0 285 X"$dst" : 'X\(//\)$' \| \
adam@0 286 X"$dst" : 'X\(/\)' \| . 2>/dev/null ||
adam@0 287 echo X"$dst" |
adam@0 288 sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{
adam@0 289 s//\1/
adam@0 290 q
adam@0 291 }
adam@0 292 /^X\(\/\/\)[^/].*/{
adam@0 293 s//\1/
adam@0 294 q
adam@0 295 }
adam@0 296 /^X\(\/\/\)$/{
adam@0 297 s//\1/
adam@0 298 q
adam@0 299 }
adam@0 300 /^X\(\/\).*/{
adam@0 301 s//\1/
adam@0 302 q
adam@0 303 }
adam@0 304 s/.*/./; q'
adam@0 305 `
adam@0 306
adam@0 307 test -d "$dstdir"
adam@0 308 dstdir_status=$?
adam@0 309 fi
adam@0 310 fi
adam@0 311
adam@0 312 obsolete_mkdir_used=false
adam@0 313
adam@0 314 if test $dstdir_status != 0; then
adam@0 315 case $posix_mkdir in
adam@0 316 '')
adam@0 317 # Create intermediate dirs using mode 755 as modified by the umask.
adam@0 318 # This is like FreeBSD 'install' as of 1997-10-28.
adam@0 319 umask=`umask`
adam@0 320 case $stripcmd.$umask in
adam@0 321 # Optimize common cases.
adam@0 322 *[2367][2367]) mkdir_umask=$umask;;
adam@0 323 .*0[02][02] | .[02][02] | .[02]) mkdir_umask=22;;
adam@0 324
adam@0 325 *[0-7])
adam@0 326 mkdir_umask=`expr $umask + 22 \
adam@0 327 - $umask % 100 % 40 + $umask % 20 \
adam@0 328 - $umask % 10 % 4 + $umask % 2
adam@0 329 `;;
adam@0 330 *) mkdir_umask=$umask,go-w;;
adam@0 331 esac
adam@0 332
adam@0 333 # With -d, create the new directory with the user-specified mode.
adam@0 334 # Otherwise, rely on $mkdir_umask.
adam@0 335 if test -n "$dir_arg"; then
adam@0 336 mkdir_mode=-m$mode
adam@0 337 else
adam@0 338 mkdir_mode=
adam@0 339 fi
adam@0 340
adam@0 341 posix_mkdir=false
adam@0 342 case $umask in
adam@0 343 *[123567][0-7][0-7])
adam@0 344 # POSIX mkdir -p sets u+wx bits regardless of umask, which
adam@0 345 # is incompatible with FreeBSD 'install' when (umask & 300) != 0.
adam@0 346 ;;
adam@0 347 *)
adam@0 348 tmpdir=${TMPDIR-/tmp}/ins$RANDOM-$$
adam@0 349 trap 'ret=$?; rmdir "$tmpdir/d" "$tmpdir" 2>/dev/null; exit $ret' 0
adam@0 350
adam@0 351 if (umask $mkdir_umask &&
adam@0 352 exec $mkdirprog $mkdir_mode -p -- "$tmpdir/d") >/dev/null 2>&1
adam@0 353 then
adam@0 354 if test -z "$dir_arg" || {
adam@0 355 # Check for POSIX incompatibilities with -m.
adam@0 356 # HP-UX 11.23 and IRIX 6.5 mkdir -m -p sets group- or
adam@0 357 # other-writeable bit of parent directory when it shouldn't.
adam@0 358 # FreeBSD 6.1 mkdir -m -p sets mode of existing directory.
adam@0 359 ls_ld_tmpdir=`ls -ld "$tmpdir"`
adam@0 360 case $ls_ld_tmpdir in
adam@0 361 d????-?r-*) different_mode=700;;
adam@0 362 d????-?--*) different_mode=755;;
adam@0 363 *) false;;
adam@0 364 esac &&
adam@0 365 $mkdirprog -m$different_mode -p -- "$tmpdir" && {
adam@0 366 ls_ld_tmpdir_1=`ls -ld "$tmpdir"`
adam@0 367 test "$ls_ld_tmpdir" = "$ls_ld_tmpdir_1"
adam@0 368 }
adam@0 369 }
adam@0 370 then posix_mkdir=:
adam@0 371 fi
adam@0 372 rmdir "$tmpdir/d" "$tmpdir"
adam@0 373 else
adam@0 374 # Remove any dirs left behind by ancient mkdir implementations.
adam@0 375 rmdir ./$mkdir_mode ./-p ./-- 2>/dev/null
adam@0 376 fi
adam@0 377 trap '' 0;;
adam@0 378 esac;;
adam@0 379 esac
adam@0 380
adam@0 381 if
adam@0 382 $posix_mkdir && (
adam@0 383 umask $mkdir_umask &&
adam@0 384 $doit_exec $mkdirprog $mkdir_mode -p -- "$dstdir"
adam@0 385 )
adam@0 386 then :
adam@0 387 else
adam@0 388
adam@0 389 # The umask is ridiculous, or mkdir does not conform to POSIX,
adam@0 390 # or it failed possibly due to a race condition. Create the
adam@0 391 # directory the slow way, step by step, checking for races as we go.
adam@0 392
adam@0 393 case $dstdir in
adam@0 394 /*) prefix='/';;
adam@20 395 [-=\(\)!]*) prefix='./';;
adam@0 396 *) prefix='';;
adam@0 397 esac
adam@0 398
adam@0 399 eval "$initialize_posix_glob"
adam@0 400
adam@0 401 oIFS=$IFS
adam@0 402 IFS=/
adam@0 403 $posix_glob set -f
adam@0 404 set fnord $dstdir
adam@0 405 shift
adam@0 406 $posix_glob set +f
adam@0 407 IFS=$oIFS
adam@0 408
adam@0 409 prefixes=
adam@0 410
adam@0 411 for d
adam@0 412 do
adam@20 413 test X"$d" = X && continue
adam@0 414
adam@0 415 prefix=$prefix$d
adam@0 416 if test -d "$prefix"; then
adam@0 417 prefixes=
adam@0 418 else
adam@0 419 if $posix_mkdir; then
adam@0 420 (umask=$mkdir_umask &&
adam@0 421 $doit_exec $mkdirprog $mkdir_mode -p -- "$dstdir") && break
adam@0 422 # Don't fail if two instances are running concurrently.
adam@0 423 test -d "$prefix" || exit 1
adam@0 424 else
adam@0 425 case $prefix in
adam@0 426 *\'*) qprefix=`echo "$prefix" | sed "s/'/'\\\\\\\\''/g"`;;
adam@0 427 *) qprefix=$prefix;;
adam@0 428 esac
adam@0 429 prefixes="$prefixes '$qprefix'"
adam@0 430 fi
adam@0 431 fi
adam@0 432 prefix=$prefix/
adam@0 433 done
adam@0 434
adam@0 435 if test -n "$prefixes"; then
adam@0 436 # Don't fail if two instances are running concurrently.
adam@0 437 (umask $mkdir_umask &&
adam@0 438 eval "\$doit_exec \$mkdirprog $prefixes") ||
adam@0 439 test -d "$dstdir" || exit 1
adam@0 440 obsolete_mkdir_used=true
adam@0 441 fi
adam@0 442 fi
adam@0 443 fi
adam@0 444
adam@0 445 if test -n "$dir_arg"; then
adam@0 446 { test -z "$chowncmd" || $doit $chowncmd "$dst"; } &&
adam@0 447 { test -z "$chgrpcmd" || $doit $chgrpcmd "$dst"; } &&
adam@0 448 { test "$obsolete_mkdir_used$chowncmd$chgrpcmd" = false ||
adam@0 449 test -z "$chmodcmd" || $doit $chmodcmd $mode "$dst"; } || exit 1
adam@0 450 else
adam@0 451
adam@0 452 # Make a couple of temp file names in the proper directory.
adam@0 453 dsttmp=$dstdir/_inst.$$_
adam@0 454 rmtmp=$dstdir/_rm.$$_
adam@0 455
adam@0 456 # Trap to clean up those temp files at exit.
adam@0 457 trap 'ret=$?; rm -f "$dsttmp" "$rmtmp" && exit $ret' 0
adam@0 458
adam@0 459 # Copy the file name to the temp name.
adam@0 460 (umask $cp_umask && $doit_exec $cpprog "$src" "$dsttmp") &&
adam@0 461
adam@0 462 # and set any options; do chmod last to preserve setuid bits.
adam@0 463 #
adam@0 464 # If any of these fail, we abort the whole thing. If we want to
adam@0 465 # ignore errors from any of these, just make sure not to ignore
adam@0 466 # errors from the above "$doit $cpprog $src $dsttmp" command.
adam@0 467 #
adam@0 468 { test -z "$chowncmd" || $doit $chowncmd "$dsttmp"; } &&
adam@0 469 { test -z "$chgrpcmd" || $doit $chgrpcmd "$dsttmp"; } &&
adam@0 470 { test -z "$stripcmd" || $doit $stripcmd "$dsttmp"; } &&
adam@0 471 { test -z "$chmodcmd" || $doit $chmodcmd $mode "$dsttmp"; } &&
adam@0 472
adam@0 473 # If -C, don't bother to copy if it wouldn't change the file.
adam@0 474 if $copy_on_change &&
adam@0 475 old=`LC_ALL=C ls -dlL "$dst" 2>/dev/null` &&
adam@0 476 new=`LC_ALL=C ls -dlL "$dsttmp" 2>/dev/null` &&
adam@0 477
adam@0 478 eval "$initialize_posix_glob" &&
adam@0 479 $posix_glob set -f &&
adam@0 480 set X $old && old=:$2:$4:$5:$6 &&
adam@0 481 set X $new && new=:$2:$4:$5:$6 &&
adam@0 482 $posix_glob set +f &&
adam@0 483
adam@0 484 test "$old" = "$new" &&
adam@0 485 $cmpprog "$dst" "$dsttmp" >/dev/null 2>&1
adam@0 486 then
adam@0 487 rm -f "$dsttmp"
adam@0 488 else
adam@0 489 # Rename the file to the real destination.
adam@0 490 $doit $mvcmd -f "$dsttmp" "$dst" 2>/dev/null ||
adam@0 491
adam@0 492 # The rename failed, perhaps because mv can't rename something else
adam@0 493 # to itself, or perhaps because mv is so ancient that it does not
adam@0 494 # support -f.
adam@0 495 {
adam@0 496 # Now remove or move aside any old file at destination location.
adam@0 497 # We try this two ways since rm can't unlink itself on some
adam@0 498 # systems and the destination file might be busy for other
adam@0 499 # reasons. In this case, the final cleanup might fail but the new
adam@0 500 # file should still install successfully.
adam@0 501 {
adam@0 502 test ! -f "$dst" ||
adam@0 503 $doit $rmcmd -f "$dst" 2>/dev/null ||
adam@0 504 { $doit $mvcmd -f "$dst" "$rmtmp" 2>/dev/null &&
adam@0 505 { $doit $rmcmd -f "$rmtmp" 2>/dev/null; :; }
adam@0 506 } ||
adam@0 507 { echo "$0: cannot unlink or rename $dst" >&2
adam@0 508 (exit 1); exit 1
adam@0 509 }
adam@0 510 } &&
adam@0 511
adam@0 512 # Now rename the file to the real destination.
adam@0 513 $doit $mvcmd "$dsttmp" "$dst"
adam@0 514 }
adam@0 515 fi || exit 1
adam@0 516
adam@0 517 trap '' 0
adam@0 518 fi
adam@0 519 done
adam@0 520
adam@0 521 # Local variables:
adam@0 522 # eval: (add-hook 'write-file-hooks 'time-stamp)
adam@0 523 # time-stamp-start: "scriptversion="
adam@0 524 # time-stamp-format: "%:y-%02m-%02d.%02H"
adam@0 525 # time-stamp-time-zone: "UTC"
adam@0 526 # time-stamp-end: "; # UTC"
adam@0 527 # End: