Ticket #2111: allow pause in copy/move/delete file operation.
[midnight-commander.git] / maint / autopoint
blob0e78ee170e911e818bbf1c65f116020d2a1b1990
1 #! /bin/sh
3 # Copyright (C) 2002-2007 Free Software Foundation, Inc.
5 # This program is free software: you can redistribute it and/or modify
6 # it under the terms of the GNU General Public License as published by
7 # the Free Software Foundation; either version 3 of the License, or
8 # (at your option) any later version.
10 # This program is distributed in the hope that it will be useful,
11 # but WITHOUT ANY WARRANTY; without even the implied warranty of
12 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13 # GNU General Public License for more details.
15 # You should have received a copy of the GNU General Public License
16 # along with this program. If not, see <http://www.gnu.org/licenses/>.
19 # This file is meant for authors, maintainers, co-maintainers or installers
20 # of packages which are internationalized with the help of GNU gettext. For
21 # further information how to use it consult the GNU gettext manual.
23 progname=$0
24 package=gettext-tools
25 version=0.17
27 # Set variables
28 # - gettext_dir directory where the sources are stored.
29 prefix="/usr"
30 datarootdir="${prefix}/share"
31 gettext_dir="/usr/share/gettext"
33 # func_tmpdir
34 # creates a temporary directory.
35 # Sets variable
36 # - tmp pathname of freshly created temporary directory
37 func_tmpdir ()
39 # Use the environment variable TMPDIR, falling back to /tmp. This allows
40 # users to specify a different temporary directory, for example, if their
41 # /tmp is filled up or too small.
42 : ${TMPDIR=/tmp}
44 # Use the mktemp program if available. If not available, hide the error
45 # message.
46 tmp=`(umask 077 && mktemp -d "$TMPDIR/gtXXXXXX") 2>/dev/null` &&
47 test -n "$tmp" && test -d "$tmp"
48 } ||
50 # Use a simple mkdir command. It is guaranteed to fail if the directory
51 # already exists. $RANDOM is bash specific and expands to empty in shells
52 # other than bash, ksh and zsh. Its use does not increase security;
53 # rather, it minimizes the probability of failure in a very cluttered /tmp
54 # directory.
55 tmp=$TMPDIR/gt$$-$RANDOM
56 (umask 077 && mkdir "$tmp")
57 } ||
59 echo "$0: cannot create a temporary directory in $TMPDIR" >&2
60 { (exit 1); exit 1; }
64 # Support for relocatability.
65 func_find_curr_installdir ()
67 # Determine curr_installdir, even taking into account symlinks.
68 curr_executable="$0"
69 case "$curr_executable" in
70 */* | *\\*) ;;
71 *) # Need to look in the PATH.
72 if test "${PATH_SEPARATOR+set}" != set; then
73 func_tmpdir
74 { echo "#! /bin/sh"; echo "exit 0"; } > "$tmp"/conf.sh
75 chmod +x "$tmp"/conf.sh
76 if (PATH="/nonexistent;$tmp"; conf.sh) >/dev/null 2>&1; then
77 PATH_SEPARATOR=';'
78 else
79 PATH_SEPARATOR=:
81 rm -rf "$tmp"
83 save_IFS="$IFS"; IFS="$PATH_SEPARATOR"
84 for dir in $PATH; do
85 IFS="$save_IFS"
86 test -z "$dir" && dir=.
87 for exec_ext in ''; do
88 if test -f "$dir/$curr_executable$exec_ext"; then
89 curr_executable="$dir/$curr_executable$exec_ext"
90 break 2
92 done
93 done
94 IFS="$save_IFS"
96 esac
97 # Make absolute.
98 case "$curr_executable" in
99 /* | ?:/* | ?:\\*) ;;
100 *) curr_executable=`pwd`/"$curr_executable" ;;
101 esac
102 # Resolve symlinks.
103 sed_dirname='s,/[^/]*$,,'
104 sed_linkdest='s,^.* -> \(.*\),\1,p'
105 while : ; do
106 lsline=`LC_ALL=C ls -l "$curr_executable"`
107 case "$lsline" in
108 *" -> "*)
109 linkdest=`echo "$lsline" | sed -n -e "$sed_linkdest"`
110 case "$linkdest" in
111 /* | ?:/* | ?:\\*) curr_executable="$linkdest" ;;
112 *) curr_executable=`echo "$curr_executable" | sed -e "$sed_dirname"`/"$linkdest" ;;
113 esac ;;
114 *) break ;;
115 esac
116 done
117 curr_installdir=`echo "$curr_executable" | sed -e 's,/[^/]*$,,'`
118 # Canonicalize.
119 curr_installdir=`cd "$curr_installdir" && pwd`
121 func_find_prefixes ()
123 # Compute the original/current installation prefixes by stripping the
124 # trailing directories off the original/current installation directories.
125 orig_installprefix="$orig_installdir"
126 curr_installprefix="$curr_installdir"
127 while true; do
128 orig_last=`echo "$orig_installprefix" | sed -n -e 's,^.*/\([^/]*\)$,\1,p'`
129 curr_last=`echo "$curr_installprefix" | sed -n -e 's,^.*/\([^/]*\)$,\1,p'`
130 if test -z "$orig_last" || test -z "$curr_last"; then
131 break
133 if test "$orig_last" != "$curr_last"; then
134 break
136 orig_installprefix=`echo "$orig_installprefix" | sed -e 's,/[^/]*$,,'`
137 curr_installprefix=`echo "$curr_installprefix" | sed -e 's,/[^/]*$,,'`
138 done
140 if test "no" = yes; then
141 exec_prefix="/usr"
142 bindir="/usr/bin"
143 orig_installdir="$bindir" # see Makefile.am's *_SCRIPTS variables
144 func_find_curr_installdir # determine curr_installdir
145 func_find_prefixes
146 # Relocate the directory variables that we use.
147 gettext_dir=`echo "$gettext_dir/" | sed -e "s%^${orig_installprefix}/%${curr_installprefix}/%" | sed -e 's,/$,,'`
150 # func_usage
151 # outputs to stdout the --help usage message.
152 func_usage ()
154 echo "\
155 Usage: autopoint [OPTION]...
157 Copies standard gettext infrastructure files into a source package.
159 Options:
160 --help print this help and exit
161 --version print version information and exit
162 -f, --force force overwriting of files that already exist
163 -n, --dry-run print modifications but don't perform them"
164 # echo "\
165 # -V version copy the infrastructure of the specified gettext version
166 # (dangerous)"
167 echo "
168 Report bugs to <bug-gnu-gettext@gnu.org>."
171 # func_version
172 # outputs to stdout the --version message.
173 func_version ()
175 echo "$progname (GNU $package) $version"
176 echo "Copyright (C) 2002-2007 Free Software Foundation, Inc.
177 License GPLv3+: GNU GPL version 3 or later <http://gnu.org/licenses/gpl.html>
178 This is free software: you are free to change and redistribute it.
179 There is NO WARRANTY, to the extent permitted by law."
180 echo "Written by" "Bruno Haible"
183 # func_fatal_error message
184 # outputs to stderr a fatal error message, and terminates the program.
185 func_fatal_error ()
187 echo "autopoint: *** $1" 1>&2
188 echo "autopoint: *** Stop." 1>&2
189 exit 1
192 # Command-line option processing.
193 # Removes the OPTIONS from the arguments. Sets the variables:
194 # - force yes if --force was given, empty otherwise
195 # - ver gettext version if -V was given, empty otherwise
196 # - doit false if --dry-run was given, : otherwise
198 force=
199 ver=
200 doit=:
202 while test $# -gt 0; do
203 case "$1" in
204 -n | --dry-run | --dry-ru | --dry-r | --dry- | --dry | --dr | --d )
205 shift
206 doit=false ;;
207 -f | --force | --forc | --for | --fo | --f )
208 shift
209 force=yes ;;
210 --help | --hel | --he | --h )
211 func_usage; exit 0 ;;
212 # -V ) # Some people put a space between -V and the version number.
213 # shift
214 # if test $# = 0; then
215 # func_usage 1>&2
216 # exit 1
217 # fi
218 # ver=$1;
219 # shift ;;
220 # -V*) # Some people omit the space between -V and the version number.
221 # ver=`echo "X$1" | sed -e 's/^X-V//'`
222 # shift ;;
223 --version | --versio | --versi | --vers | --ver | --ve | --v )
224 func_version
225 exit 0 ;;
226 -- ) # Stop option prcessing
227 shift; break ;;
228 -* )
229 echo "autopoint: unknown option $1" 1>&2
230 echo "Try 'autopoint --help' for more information." 1>&2
231 exit 1 ;;
233 break ;;
234 esac
235 done
238 # Command-line argument processing.
239 # Analyzes the remaining arguments.
241 if test $# -gt 0; then
242 func_usage 1>&2
243 exit 1
247 srcdir=`pwd`
248 # The current directory is now $srcdir.
250 # Check integrity of package: A configure.in/ac must be present. Sets variable
251 # - configure_in name of configure.in/ac file.
252 if test -f configure.in; then
253 configure_in=configure.in
254 else
255 if test -f configure.ac; then
256 configure_in=configure.ac
257 else
258 # KDE specific convention: configure.in.in
259 if test -f configure.in.in; then
260 configure_in=configure.in.in
261 else
262 func_fatal_error "Missing configure.in or configure.ac, please cd to your package first."
267 # Check whether the -V option and the version number in configure.in match.
268 # At least one of the two must be given. If both are given, they must agree.
269 xver=`cat "$configure_in" | grep '^AM_GNU_GETTEXT_VERSION(' | sed -e 's/^AM_GNU_GETTEXT_VERSION(\([^()]*\))/\1/p' | sed -e 's/^\[\(.*\)\]$/\1/' | sed -e 1q`
270 if test -z "$xver" && test -f intl/VERSION; then
271 xver=`cat intl/VERSION | LC_ALL=C sed -n -e 's/^.*gettext-\([-+_.0-9A-Za-z]*\).*$/\1/p'`
273 if test -n "$xver"; then
274 if test -n "$ver"; then
275 if test "X$ver" != "X$xver"; then
276 func_fatal_error "Version mismatch: specified -V $ver but the package uses gettext version $xver"
278 else
279 ver="$xver"
281 else
282 if test -z "$ver"; then
283 func_fatal_error "Missing version: please specify in $configure_in through a line 'AM_GNU_GETTEXT_VERSION(x.yy.zz)' the gettext version the package is using"
287 # Check whether the version number is supported.
288 case "$ver" in
289 0.10.35 | 0.10.36 | 0.10.37 | 0.10.38 | 0.10.39 | 0.10.40 | \
290 0.11 | 0.11.1 | 0.11.2 | 0.11.3 | 0.11.4 | 0.11.5 | \
291 0.12 | 0.12.1 | \
292 0.13 | 0.13.1 | \
293 0.14 | 0.14.1 | 0.14.2 | 0.14.3 | 0.14.4 | 0.14.5 | 0.14.6 | \
294 0.15 | \
295 0.16 | 0.16.1 | \
296 0.17 )
299 func_fatal_error "The AM_GNU_GETTEXT_VERSION declaration in your $configure_in\
300 file requires the infrastructure from gettext-$ver but this version\
301 is older. Please upgrade to gettext-$ver or newer."
303 esac
305 # We distribute the many different versions of the files in a CVS repository.
306 # This guarantees a good compression rate:
308 # Including version size in KB of
309 # "du autopoint-files/archive"
310 # 0.10.35 240
311 # 0.10.36 428
312 # 0.10.37 436
313 # 0.10.38 488
314 # 0.10.39 500
315 # 0.10.40 528
316 # 0.11 720
317 # 0.11.1 740
318 # 0.11.2 748
319 # 0.11.3 804
320 # 0.11.4 864
321 # 0.11.5 880
322 # 0.12 1032
323 # 0.12.1 1032
324 # 0.13 1220
325 # 0.13.1 1236
326 # 0.14 1296
327 # 0.14.1 1300
328 # 0.14.2 1420
329 # 0.14.3 1428
330 # 0.14.4 1464
331 # 0.14.5 1508
332 # 0.14.6 1580
333 # 0.15 1760
334 # 0.16 1808
335 # 0.16.1 1812
336 # 0.17 2128
338 # The requirement that the user must have the CVS program available is not
339 # a severe restrictions, because most of the people who use autopoint are
340 # users of CVS.
342 # Check availability of the CVS program.
343 (cvs -v) >/dev/null 2>/dev/null || func_fatal_error "cvs program not found"
345 # Check in which directory config.rpath, mkinstalldirs etc. belong.
346 auxdir=`cat "$configure_in" | grep '^AC_CONFIG_AUX_DIR' | sed -n -e 's/AC_CONFIG_AUX_DIR(\([^()]*\))/\1/p' | sed -e 's/^\[\(.*\)\]$/\1/' | sed -e 1q`
347 if test -n "$auxdir"; then
348 auxdir="$auxdir/"
351 # Check in which directory the *.m4 macros belong.
352 m4dir=m4
353 if test -f Makefile.am; then
354 # A package using automake.
355 # Extract the macro directory name from Makefile.am.
356 aclocal_amflags=`grep '^ACLOCAL_AMFLAGS[ ]*=' Makefile.am | sed -e 's/^ACLOCAL_AMFLAGS[ ]*=\(.*\)$/\1/'`
357 m4dir_is_next=
358 for arg in $aclocal_amflags; do
359 if test -n "$m4dir_is_next"; then
360 m4dir="$arg"
361 break
362 else
363 if test "X$arg" = "X-I"; then
364 m4dir_is_next=yes
365 else
366 m4dir_is_next=
369 done
372 # Check whether to omit the intl/ directory.
373 omitintl=`cat "$configure_in" | grep '^AM_GNU_GETTEXT' | sed -n -e 's/^AM_GNU_GETTEXT(\([^(),]*\).*$/\1/p' | sed -e 's/^\[\(.*\)\]$/\1/' | sed -e 1q`
374 omitintl=`if test 'external' = "$omitintl"; then echo yes; fi`
376 # Set up a temporary CVS repository and a temporary checkout directory.
377 # We need the temporary CVS repository because any checkout needs write
378 # access to the CVSROOT/history file, so it cannot be under $gettext_dir.
379 # We need the temporary checkout directory because when --force was not
380 # given, we need to compare the existing files with the checked out ones.
381 # Set variables
382 # - cvs_dir directory containing the temporary repository
383 # - work_dir directory containing the temporary checkout
384 cvs_dir=tmpcvs$$
385 work_dir=tmpwrk$$
386 # Use an umask of 077, to avoid attacks that work by overwriting files in the
387 # "$CVSROOT"/CVSROOT directory.
388 (umask 077 && mkdir "$cvs_dir") || {
389 if test -d "$cvs_dir"; then
390 func_fatal_error "directory $cvs_dir already exists"
391 else
392 func_fatal_error "cannot create directory $cvs_dir"
395 mkdir "$work_dir" || {
396 if test -d "$work_dir"; then
397 func_fatal_error "directory $work_dir already exists"
398 else
399 func_fatal_error "cannot create directory $work_dir"
402 CVSROOT="$srcdir/$cvs_dir"
403 export CVSROOT
404 unset CVS_CLIENT_LOG
405 unset CVS_CLIENT_PORT
406 unset CVS_IGNORE_REMOTE_ROOT
407 unset CVS_PASSFILE
408 unset CVS_PASSWORD
409 unset CVS_RCMD_PORT
410 unset CVS_RSH
411 unset CVS_SERVER
412 unset CVS_SERVER_SLEEP
413 unset CVSIGNORE
414 unset CVSREAD
415 unset CVSUMASK
416 unset CVSWRAPPERS
418 # Need to pass -d "$CVSROOT", because there may be a CVS directory in the
419 # current directory.
420 cvs -d "$CVSROOT" init
421 gzip -d -c < "$gettext_dir/archive.tar.gz" | (cd "$cvs_dir" && tar xf -)
423 cd "$work_dir"
424 cvsver=gettext-`echo "$ver" | sed -e 's/\./_/g'`
425 (cvs checkout -r"$cvsver" archive > /dev/null) 2>&1 | grep -v '^cvs checkout: Updating'
426 find archive -name CVS -type d -print | xargs rm -rf
427 # Check that really all CVS directories are gone, otherwise we would overwrite
428 # the contents of the user's CVS directories.
429 if test `find archive -name CVS -type d -print | wc -l` != 0; then
430 cd ..
431 rm -rf "$cvs_dir" "$work_dir"
432 func_fatal_error "failed to remove all CVS subdirectories"
434 if test `find archive -type f -print | wc -l` = 0; then
435 cd ..
436 rm -rf "$cvs_dir" "$work_dir"
437 func_fatal_error "infrastructure files for version $ver not found; this is autopoint from GNU $package $version"
439 cd ..
441 # func_destfile file
442 # determines the destination file, relative to the package's top level
443 # directory, for a given file name, relative to archive.
444 # Sets variables
445 # - destfile relative destination file name, or
446 # empty if the file shall be omitted
447 # - sharedowner yes if the file is not only owned by GNU gettext but may
448 # be installed by automake or other tools, otherwise empty
449 func_destfile ()
451 # There are five categories of files:
452 # ABOUT_NLS -> top level directory
453 # config.rpath mkinstalldirs -> $auxdir
454 # m4/* -> $m4dir/
455 # intl/* -> intl/
456 # po/* -> po/
457 sharedowner=
458 case `echo "$1" | sed -e 's,[^/]*$,,'` in
459 "" )
460 case "$1" in
461 config.rpath ) destfile="$auxdir$1" ;;
462 mkinstalldirs ) destfile="$auxdir$1" sharedowner=yes ;;
463 * ) destfile="$1" ;;
464 esac
466 m4/ ) destfile=`echo "$1" | sed -e "s,^m4/,$m4dir/,"` ;;
467 intl/ ) if test -n "$omitintl"; then destfile=""; else destfile="$1"; fi ;;
468 * ) destfile="$1" ;;
469 esac
472 # If some files have been locally modified and we have not been requested
473 # to overwrite them, then bail out. This is better than leaving a source
474 # package around where half of the files are locally modified and half are
475 # original - too great risk of version mismatch.
476 if test -z "$force"; then
477 mismatch=
478 func_tmpdir
479 mismatchfile="$tmp"/autopoint.diff
480 for file in `find "$work_dir/archive" -type f -print | sed -e "s,^$work_dir/archive/,," | LC_ALL=C sort`; do
481 func_destfile "$file"
482 if test -n "$destfile"; then
483 if test -f "$destfile"; then
484 if cmp -s "$work_dir/archive/$file" "$destfile"; then
486 else
487 if test -n "$sharedowner"; then
488 echo "autopoint: warning: File $destfile has been locally modified." 1>&2
489 else
490 echo "autopoint: File $destfile has been locally modified." 1>&2
491 mismatch=yes
492 diff -c "$work_dir/archive/$file" "$destfile" | sed -e "1s,$work_dir/archive/,," >> "$mismatchfile"
497 done
498 if test -n "$mismatch"; then
499 rm -rf "$cvs_dir" "$work_dir"
500 func_fatal_error "Some files have been locally modified. Not overwriting them because --force has not been specified. For your convenience, you find the local modifications in the file '$mismatchfile'."
502 rm -rf "$tmp"
505 # func_mkdir_for to
506 # ensures the directory that would the given file exists.
507 # 'to' is a relative pathname, relative to the current directory.
508 func_mkdir_for ()
510 base=`echo "$1" | sed -e 's,/[^/]*$,,'`
511 if test "X$base" != "X$1" && test -n "$base"; then
512 func_mkdir_for "$base"
513 # Recompute base. It was clobbered by the recursive call.
514 base=`echo "$1" | sed -e 's,/[^/]*$,,'`
515 test -d "$base" || { echo "Creating directory $base"; mkdir "$base"; }
519 # func_copy from to
520 # copies a file.
521 # 'from' is a relative pathname, relative to the current directory.
522 # 'to' is a relative pathname, relative to the current directory.
523 func_copy ()
525 if $doit; then
526 func_mkdir_for "$2"
527 rm -f "$2"
528 echo "Copying file $2"
529 cp "$1" "$2"
530 else
531 echo "Copy file $2"
535 # func_backup to
536 # makes a backup of a file that is about to be overwritten or replaced.
537 # 'to' is a relative pathname, relative to the current directory.
538 func_backup ()
540 if $doit; then
541 if test -f "$1"; then
542 rm -f "$1~"
543 cp -p "$1" "$1~"
548 # Now copy the files.
549 for file in `find "$work_dir/archive" -type f -print | sed -e "s,^$work_dir/archive/,," | LC_ALL=C sort`; do
550 func_destfile "$file"
551 mustcopy=
552 if test -n "$destfile"; then
553 if test -f "$destfile"; then
554 if cmp -s "$work_dir/archive/$file" "$destfile"; then
556 else
557 if test -n "$force"; then
558 # Overwrite locally modified file.
559 mustcopy=yes
561 # If --force is not specified, don't overwrite locally modified files
562 # for which GNU gettext is a shared owner.
564 else
565 mustcopy=yes
568 if test -n "$mustcopy"; then
569 func_backup "$destfile"
570 func_copy "$work_dir/archive/$file" "$destfile"
572 done
574 # That's it.
575 rm -rf "$cvs_dir" "$work_dir"
576 exit 0