[bpt/emacs.git] / admin / quick-install-emacs

#!/bin/sh
### quick-install-emacs --- do a halfway-decent job of installing emacs quickly

## Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008
##   Free Software Foundation, Inc.

## Author: Miles Bader <miles@gnu.org>

## This file is part of GNU Emacs.

## GNU Emacs is free software: you can redistribute it and/or modify
## it under the terms of the GNU General Public License as published by
## the Free Software Foundation, either version 3 of the License, or
## (at your option) any later version.

## GNU Emacs is distributed in the hope that it will be useful,
## but WITHOUT ANY WARRANTY; without even the implied warranty of
## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
## GNU General Public License for more details.

## You should have received a copy of the GNU General Public License
## along with GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.


### Commentary:

## This script is mainly intended for emacs maintainer or pretesters who
## install emacs very often.  See the --help output for more details.


PUBLIC_LIBSRC_BINARIES='b2m emacsclient etags ctags ebrowse'
PUBLIC_LIBSRC_SCRIPTS='grep-changelog rcs-checkin'

AVOID="CVS -DIC README COPYING ChangeLog ~ [.]orig$ [.]rej$ Makefile makefile stamp-subdir [.]cvsignore [.]arch-ids [{]arch[}] [.][cho]$ make-docfile testfile test-distrib"

# Prune old binaries lying around in the source tree
PRUNE=no
# Re-install files even if they already exist
FORCE=no
# Command verbose flag
VERBOSE=''

me="`basename $0`"

# Install commands (if the user specifies the `--verbose' option, it is
# passed to these commands, so that feature only works if these commands
# implement it too)
LINK='cp -lf'
COPY='cp -f'
REMOVE='rm -r'
MKDIR='mkdir -p'

# Used to execute commands once once we create them
EXEC='sh'

NAWK=/usr/bin/nawk

# avoid non-standard command output from non-C locales
unset LANG LC_ALL LC_MESSAGES

# Some messages
USAGE="Usage: $me [OPTION...] BUILD_TREE [PREFIX]"
TRY="Try "\`"$me --help' for more information."

# Parse command-line options
while :; do
  case "$1" in
    -n|--dry-run)
      EXEC=cat; shift;;
    -p|--prune)
      PRUNE=yes; shift;;
    -P|--no-prune)
      PRUNE=no; shift;;
    --prune-only)
      PRUNE=only; shift;;
    -f|--force)
      FORCE=yes; shift;;
    -v|--verbose)
      VERBOSE="-v"; shift;;
    --help)
      cat <<EOF
$USAGE
Install emacs quickly

  -n, --dry-run              print installation commands instead of
                             executing them

  -f, --force                install even files that haven't changed
  -v, --verbose              print messages describing what is done

  -p, --prune                prune old generated files
  -P, --no-prune             don't prune old generated files (default)
      --prune-only           prune old generated files, but don't install

      --help                 display this help and exit
      --version              output version information and exit

$me install emacs \`incrementally,' that is, it will
install only those files that have changed since the last time it was
invoked, and remove any obsolete files from the installation
directories.  It also uses hard-links into the source and build trees to
do the install, so it uses much less space than the default Makefile
install target; however, this also means that $me can
not install onto a disk partition other than the one on which the source
and build directories reside.

Optionally, $me can also remove old versions of
automatically generated files that are version-specific (such as the
versioned emacs executables in the \`src' directory, and the DOC-* files
in the \`etc' directory).  The latter action is called \`pruning,' and
can be enabled using the \`-p' or \`--prune' options.
EOF
      exit 0
      ;;
    --version)
      cat <<EOF
$me 1.6

Written by Miles Bader <miles@gnu.org>
EOF
      exit 0
      ;;
    -[^-]?*)
      # split concatenated single-letter options apart
      FIRST="$1"; shift
      set -- `echo $FIRST | sed 's/-\(.\)\(.*\)/-\1 -\2/'` "$@"
      ;;
    -*)
      echo 1>&2 "$me: unrecognized option "\`"$1'"
      echo 1>&2 "$TRY"
      exit 1
      ;;
    *)
      break;
  esac
done

LINK_CMD="$LINK $VERBOSE"
REMOVE_CMD="$REMOVE $VERBOSE"

case $# in
  1) BUILD="$1";;
  2) BUILD="$1"; prefix="$2";;
  *)
    echo 1>&2 "$USAGE"
    echo 1>&2 "$TRY"
    exit 1
    ;;
esac

if test ! -d "$BUILD"; then
  echo 1>&2 "$me: $BUILD: Build tree not found"
  exit 2
elif test ! -r "$BUILD/config.status"; then
  echo 1>&2 "$me: $BUILD: Not a proper build tree, config.status not found"
  exit 2
fi

CONFIG_STATUS="$BUILD/config.status"
get_config_var ()
{
  if ! sed -n "s/^s\(.\)@$1@\1\(|#_!!_#|\)*\(.*\)\1.*$/\3/p" $CONFIG_STATUS | sed q | grep ''
  then
    echo 1>&2 "$me: $1: Configuration variable not found in $CONFIG_STATUS"
    exit 4
  fi
}

test x"$SRC" = x && { SRC="`get_config_var srcdir`" || exit 4 ; }
test x"$prefix" = x && { prefix="`get_config_var prefix`" || exit 4 ; }
test x"$ARCH" = x && { ARCH="`get_config_var host`" || exit 4 ; }

VERSION=`grep 'defconst[	 ]*emacs-version' $SRC/lisp/version.el \
         | sed -e 's/^[^"]*"\([^"]*\)".*$/\1/'`

DST_SHARE="$prefix/share/emacs/$VERSION"
DST_BIN="$prefix/bin"
DST_LIBEXEC="$prefix/libexec/emacs/$VERSION/$ARCH"
DST_INFO="$prefix/info"

maybe_mkdir ()
{
  if ! test -d "$1"; then
    $MKDIR $VERBOSE "$1" 2>&1 | sed "s/^mkdir:/$me:/" 1>&2
  fi
}

maybe_mkdir "$DST_BIN"
maybe_mkdir "$DST_SHARE"
maybe_mkdir "$DST_SHARE/site-lisp"
maybe_mkdir "$DST_LIBEXEC"
maybe_mkdir "$DST_INFO"

(  # start of command-generating sub-shell

PRUNED=""
if test x"$PRUNE" != xno; then
  for D in `ls -1t $BUILD/etc/DOC-* | sed 1d`; do
    echo $REMOVE_CMD $D
    PRUNED="$PRUNED $D"
  done
  for D in `ls -1t $BUILD/src/emacs-$VERSION.* | sed 1d`; do
    echo $REMOVE_CMD $D
    PRUNED="$PRUNED $D"
  done
fi

test x"$PRUNE" = xonly && exit 0

maybe_emit_copy ()
{
  if test "$FORCE" = yes || ! cmp -s $1 $2; then
    echo $LINK_CMD $1 $2
  fi
}

maybe_emit_copy $BUILD/src/emacs $DST_BIN/emacs
maybe_emit_copy $BUILD/src/emacs $DST_BIN/emacs-$VERSION

for F in $PUBLIC_LIBSRC_BINARIES; do
  maybe_emit_copy $BUILD/lib-src/$F $DST_BIN/$F
done
for F in $PUBLIC_LIBSRC_SCRIPTS; do
  maybe_emit_copy $SRC/lib-src/$F $DST_BIN/$F
done

if test x"$SRC" = x"$BUILD"; then
  PFXS="$BUILD"
else
  PFXS="$SRC $BUILD"
fi

for SUBDIR in lisp leim etc lib-src info; do
  # defaults
  SHARED=no
  FORCED=''
  AVOID_PAT="`echo "($AVOID)" | tr ' ' '|'`"

  # Set subdir-specific values
  case $SUBDIR in
    lisp|leim)
      DST="$DST_SHARE/$SUBDIR"
      ;;
    etc)
      DST="$DST_SHARE/$SUBDIR"
      # COPYING is in the avoid list, but there should be a copy of it in
      # the install etc dir, so make that here.
      FORCED="$DST/COPYING"
      ;;
    lib-src)
      DST="$DST_LIBEXEC"
      AVOID_PAT="`echo "($AVOID ($PUBLIC_LIBSRC_BINARIES $PUBLIC_LIBSRC_SCRIPTS)\$)" | tr ' ' '|'`"
      ;;
    info)
      DST="$DST_INFO"
      SHARED=yes
      ;;
  esac

  for PFX in $PFXS; do
    if [ -d $PFX/$SUBDIR ]; then
      for DIR in `(cd $PFX/$SUBDIR; find . -type d -print | sed 's@^./@@')`; do
	if [ -d $DST/$DIR ]; then
	  echo Directory $DST/$DIR exists
	else
	  echo Directory $DST/$DIR non-existant
	  if [ "`echo $DIR | egrep -v "$AVOID_PAT"`" ]; then
	    maybe_mkdir $DST/$DIR
	  fi
	fi
      done
      diff -sqr $PFX/$SUBDIR $DST
    fi
  done | $NAWK '
BEGIN {
  src_pat = "^'"$SRC"'/'"$SUBDIR"'/"
  build_pat = "^'"$BUILD"'/'"$SUBDIR"'/"
  dst_pat = "^'"$DST"'/"
  dst_pfx = "'"$DST"'/"
  avoid_pat = "'"$AVOID_PAT"'"
  force = ("'"$FORCE"'" == "yes")
  shared = ("'"$SHARED"'" == "yes")
  init_bool_array(pruned, "'"$PRUNED"'")
  init_bool_array(forced, "'"$FORCED"'")
}
function init_bool_array(array, string,  a,k)
{
  split (string, a)
  for (k in a)
    array[a[k]] = 1
}
function install(src, dst)
{
  if (! (src in pruned)) {
    cp[src] = dst;
    from[dst] = src;
    delete rm[dst];
  }
}
function update(src, dst, copy)
{
  if (src in pruned) {
    rm[dst] = 1;
    delete from[dst]
  } else {
    if (copy)
      cp[src] = dst;
    from[dst] = src;
    delete rm[dst];
  }
}
function uninstall(dst)
{
  if (!(dst in from))
    rm[dst] = 1;
}
/^Directory / {
  if ($2 ~ avoid_pat) {
    if ($NF == "exists")
      uninstall($2)
  } else
    update(0, $2, 0)
  next
}
/^Files / {
  if ($4 ~ avoid_pat && !($4 in forced))
    uninstall($4)
  else if ($NF == "identical")
    update($2, $4, force)
  else
    update($2, $4, 1)
  next
}
/^Only /  {
  pfx = $3
  sub (/:$/, "/", pfx)

  if (pfx ~ dst_pat) {
    if (! shared)
      uninstall(pfx $4)
  } else {
    subdir = pfx
    if (subdir ~ src_pat)
      sub (src_pat, "", subdir)
    else
      sub (build_pat, "", subdir)

    dst = dst_pfx subdir $4
    if (! (dst ~ avoid_pat))
      install(pfx $4, dst)
  }
  next
}
END {
  for (f in rm)
    print "'"$REMOVE_CMD"' " f
  for (f in cp)
    print "'"$LINK_CMD"' " f " " cp[f]
}
'
done

) | eval $EXEC

# arch-tag: 9322b572-9755-4cf7-a67a-21e6505f1477
Commit	Line	Data
d9a88584	1	#!/bin/sh
82be670e GM	2	### quick-install-emacs --- do a halfway-decent job of installing emacs quickly
82be670e GM	3
b9b14d13	4	## Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008
82be670e GM	5	## Free Software Foundation, Inc.
	6
	7	## Author: Miles Bader <miles@gnu.org>
	8
	9	## This file is part of GNU Emacs.
	10
9ad5de0c	11	## GNU Emacs is free software: you can redistribute it and/or modify
82be670e	12	## it under the terms of the GNU General Public License as published by
9ad5de0c GM	13	## the Free Software Foundation, either version 3 of the License, or
9ad5de0c GM	14	## (at your option) any later version.
82be670e GM	15
	16	## GNU Emacs is distributed in the hope that it will be useful,
	17	## but WITHOUT ANY WARRANTY; without even the implied warranty of
	18	## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	19	## GNU General Public License for more details.
	20
	21	## You should have received a copy of the GNU General Public License
9ad5de0c GM	22	## along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
9ad5de0c GM	23
82be670e GM	24
	25	### Commentary:
	26
	27	## This script is mainly intended for emacs maintainer or pretesters who
	28	## install emacs very often. See the --help output for more details.
d9a88584	29
d9a88584 MB	30
	31	PUBLIC_LIBSRC_BINARIES='b2m emacsclient etags ctags ebrowse'
	32	PUBLIC_LIBSRC_SCRIPTS='grep-changelog rcs-checkin'
	33
e04e1ce2	34	AVOID="CVS -DIC README COPYING ChangeLog ~ [.]orig$ [.]rej$ Makefile makefile stamp-subdir [.]cvsignore [.]arch-ids [{]arch[}] [.][cho]$ make-docfile testfile test-distrib"
d9a88584 MB	35
	36	# Prune old binaries lying around in the source tree
	37	PRUNE=no
	38	# Re-install files even if they already exist
	39	FORCE=no
	40	# Command verbose flag
	41	VERBOSE=''
	42
	43	me="`basename $0`"
	44
9a1c5fbf MB	45	# Install commands (if the user specifies the `--verbose' option, it is
	46	# passed to these commands, so that feature only works if these commands
	47	# implement it too)
d9a88584 MB	48	LINK='cp -lf'
	49	COPY='cp -f'
	50	REMOVE='rm -r'
9a1c5fbf	51	MKDIR='mkdir -p'
d9a88584 MB	52
	53	# Used to execute commands once once we create them
	54	EXEC='sh'
d9a88584 MB	55
	56	NAWK=/usr/bin/nawk
	57
a819ec1a MB	58	# avoid non-standard command output from non-C locales
	59	unset LANG LC_ALL LC_MESSAGES
	60
d9a88584 MB	61	# Some messages
	62	USAGE="Usage: $me [OPTION...] BUILD_TREE [PREFIX]"
	63	TRY="Try "\`"$me --help' for more information."
	64
	65	# Parse command-line options
	66	while :; do
	67	case "$1" in
	68	-n\|--dry-run)
	69	EXEC=cat; shift;;
	70	-p\|--prune)
	71	PRUNE=yes; shift;;
	72	-P\|--no-prune)
	73	PRUNE=no; shift;;
	74	--prune-only)
	75	PRUNE=only; shift;;
	76	-f\|--force)
	77	FORCE=yes; shift;;
	78	-v\|--verbose)
	79	VERBOSE="-v"; shift;;
	80	--help)
	81	cat <<EOF
	82	$USAGE
	83	Install emacs quickly
	84
	85	-n, --dry-run print installation commands instead of
	86	executing them
	87
	88	-f, --force install even files that haven't changed
	89	-v, --verbose print messages describing what is done
	90
	91	-p, --prune prune old generated files
	92	-P, --no-prune don't prune old generated files (default)
	93	--prune-only prune old generated files, but don't install
	94
	95	--help display this help and exit
	96	--version output version information and exit
	97
	98	$me install emacs \`incrementally,' that is, it will
	99	install only those files that have changed since the last time it was
	100	invoked, and remove any obsolete files from the installation
	101	directories. It also uses hard-links into the source and build trees to
	102	do the install, so it uses much less space than the default Makefile
	103	install target; however, this also means that $me can
	104	not install onto a disk partition other than the one on which the source
	105	and build directories reside.
	106
	107	Optionally, $me can also remove old versions of
	108	automatically generated files that are version-specific (such as the
	109	versioned emacs executables in the \`src' directory, and the DOC-* files
	110	in the \`etc' directory). The latter action is called \`pruning,' and
	111	can be enabled using the \`-p' or \`--prune' options.
	112	EOF
	113	exit 0
	114	;;
	115	--version)
	116	cat <<EOF
ca2135af	117	$me 1.6
d9a88584 MB	118
	119	Written by Miles Bader <miles@gnu.org>
	120	EOF
	121	exit 0
	122	;;
	123	-[^-]?*)
	124	# split concatenated single-letter options apart
	125	FIRST="$1"; shift
	126	set -- `echo $FIRST \| sed 's/-\(.\)\(.*\)/-\1 -\2/'` "$@"
	127	;;
	128	-*)
	129	echo 1>&2 "$me: unrecognized option "\`"$1'"
	130	echo 1>&2 "$TRY"
	131	exit 1
	132	;;
	133	*)
	134	break;
	135	esac
	136	done
	137
	138	LINK_CMD="$LINK $VERBOSE"
	139	REMOVE_CMD="$REMOVE $VERBOSE"
	140
	141	case $# in
	142	1) BUILD="$1";;
	143	2) BUILD="$1"; prefix="$2";;
	144	*)
	145	echo 1>&2 "$USAGE"
	146	echo 1>&2 "$TRY"
	147	exit 1
	148	;;
	149	esac
	150
	151	if test ! -d "$BUILD"; then
	152	echo 1>&2 "$me: $BUILD: Build tree not found"
	153	exit 2
	154	elif test ! -r "$BUILD/config.status"; then
	155	echo 1>&2 "$me: $BUILD: Not a proper build tree, config.status not found"
	156	exit 2
	157	fi
	158
	159	CONFIG_STATUS="$BUILD/config.status"
feebeb72 MB	160	get_config_var ()
feebeb72 MB	161	{
1fc8c92b	162	if ! sed -n "s/^s\(.\)@$1@\1\(\|#_!!_#\|\)\(.\)\1.*$/\3/p" $CONFIG_STATUS \| sed q \| grep ''
d9a88584 MB	163	then
	164	echo 1>&2 "$me: $1: Configuration variable not found in $CONFIG_STATUS"
	165	exit 4
	166	fi
	167	}
	168
c5915370 MB	169	test x"$SRC" = x && { SRC="`get_config_var srcdir`" \|\| exit 4 ; }
c5915370 MB	170	test x"$prefix" = x && { prefix="`get_config_var prefix`" \|\| exit 4 ; }
c5915370	171	test x"$ARCH" = x && { ARCH="`get_config_var host`" \|\| exit 4 ; }
d9a88584	172
892de428 MB	173	VERSION=`grep 'defconst[ ]*emacs-version' $SRC/lisp/version.el \
	174	\| sed -e 's/^[^"]"\([^"]\)".*$/\1/'`
	175
d9a88584 MB	176	DST_SHARE="$prefix/share/emacs/$VERSION"
	177	DST_BIN="$prefix/bin"
	178	DST_LIBEXEC="$prefix/libexec/emacs/$VERSION/$ARCH"
	179	DST_INFO="$prefix/info"
	180
feebeb72 MB	181	maybe_mkdir ()
feebeb72 MB	182	{
d9a88584	183	if ! test -d "$1"; then
9a1c5fbf	184	$MKDIR $VERBOSE "$1" 2>&1 \| sed "s/^mkdir:/$me:/" 1>&2
d9a88584 MB	185	fi
	186	}
	187
	188	maybe_mkdir "$DST_BIN"
	189	maybe_mkdir "$DST_SHARE"
	190	maybe_mkdir "$DST_SHARE/site-lisp"
	191	maybe_mkdir "$DST_LIBEXEC"
	192	maybe_mkdir "$DST_INFO"
	193
	194	( # start of command-generating sub-shell
	195
	196	PRUNED=""
	197	if test x"$PRUNE" != xno; then
6461c636	198	for D in `ls -1t $BUILD/etc/DOC-* \| sed 1d`; do
d9a88584 MB	199	echo $REMOVE_CMD $D
	200	PRUNED="$PRUNED $D"
	201	done
6461c636	202	for D in `ls -1t $BUILD/src/emacs-$VERSION.* \| sed 1d`; do
d9a88584 MB	203	echo $REMOVE_CMD $D
	204	PRUNED="$PRUNED $D"
	205	done
d9a88584 MB	206	fi
	207
	208	test x"$PRUNE" = xonly && exit 0
	209
feebeb72 MB	210	maybe_emit_copy ()
feebeb72 MB	211	{
d9a88584 MB	212	if test "$FORCE" = yes \|\| ! cmp -s $1 $2; then
	213	echo $LINK_CMD $1 $2
	214	fi
	215	}
	216
	217	maybe_emit_copy $BUILD/src/emacs $DST_BIN/emacs
	218	maybe_emit_copy $BUILD/src/emacs $DST_BIN/emacs-$VERSION
	219
	220	for F in $PUBLIC_LIBSRC_BINARIES; do
	221	maybe_emit_copy $BUILD/lib-src/$F $DST_BIN/$F
	222	done
	223	for F in $PUBLIC_LIBSRC_SCRIPTS; do
	224	maybe_emit_copy $SRC/lib-src/$F $DST_BIN/$F
	225	done
	226
	227	if test x"$SRC" = x"$BUILD"; then
	228	PFXS="$BUILD"
	229	else
	230	PFXS="$SRC $BUILD"
	231	fi
	232
	233	for SUBDIR in lisp leim etc lib-src info; do
	234	# defaults
	235	SHARED=no
	236	FORCED=''
	237	AVOID_PAT="`echo "($AVOID)" \| tr ' ' '\|'`"
	238
	239	# Set subdir-specific values
	240	case $SUBDIR in
	241	lisp\|leim)
	242	DST="$DST_SHARE/$SUBDIR"
	243	;;
	244	etc)
	245	DST="$DST_SHARE/$SUBDIR"
	246	# COPYING is in the avoid list, but there should be a copy of it in
	247	# the install etc dir, so make that here.
	248	FORCED="$DST/COPYING"
	249	;;
	250	lib-src)
	251	DST="$DST_LIBEXEC"
	252	AVOID_PAT="`echo "($AVOID ($PUBLIC_LIBSRC_BINARIES $PUBLIC_LIBSRC_SCRIPTS)\$)" \| tr ' ' '\|'`"
	253	;;
	254	info)
	255	DST="$DST_INFO"
	256	SHARED=yes
	257	;;
	258	esac
	259
	260	for PFX in $PFXS; do
	261	if [ -d $PFX/$SUBDIR ]; then
	262	for DIR in `(cd $PFX/$SUBDIR; find . -type d -print \| sed 's@^./@@')`; do
	263	if [ -d $DST/$DIR ]; then
	264	echo Directory $DST/$DIR exists
	265	else
	266	echo Directory $DST/$DIR non-existant
	267	if [ "`echo $DIR \| egrep -v "$AVOID_PAT"`" ]; then
	268	maybe_mkdir $DST/$DIR
	269	fi
	270	fi
	271	done
	272	diff -sqr $PFX/$SUBDIR $DST
	273	fi
	274	done \| $NAWK '
	275	BEGIN {
276	src_pat = "^'"$SRC"'/'"$SUBDIR"'/"
277	build_pat = "^'"$BUILD"'/'"$SUBDIR"'/"
278	dst_pat = "^'"$DST"'/"
279	dst_pfx = "'"$DST"'/"
280	avoid_pat = "'"$AVOID_PAT"'"
281	force = ("'"$FORCE"'" == "yes")
282	shared = ("'"$SHARED"'" == "yes")
283	init_bool_array(pruned, "'"$PRUNED"'")
284	init_bool_array(forced, "'"$FORCED"'")
285	}
286	function init_bool_array(array, string, a,k)
287	{
288	split (string, a)
289	for (k in a)
290	array[a[k]] = 1
291	}
292	function install(src, dst)
293	{
294	if (! (src in pruned)) {
295	cp[src] = dst;
296	from[dst] = src;
297	delete rm[dst];
298	}
299	}
300	function update(src, dst, copy)
301	{
302	if (src in pruned) {
303	rm[dst] = 1;
304	delete from[dst]
305	} else {
306	if (copy)
307	cp[src] = dst;
308	from[dst] = src;
309	delete rm[dst];
310	}
311	}
312	function uninstall(dst)
313	{
314	if (!(dst in from))
315	rm[dst] = 1;
316	}
317	/^Directory / {
318	if ($2 ~ avoid_pat) {
319	if ($NF == "exists")
320	uninstall($2)
321	} else
322	update(0, $2, 0)
323	next
324	}
325	/^Files / {
326	if ($4 ~ avoid_pat && !($4 in forced))
327	uninstall($4)
328	else if ($NF == "identical")
329	update($2, $4, force)
330	else
331	update($2, $4, 1)
332	next
333	}
334	/^Only / {
335	pfx = $3
336	sub (/:$/, "/", pfx)
337
338	if (pfx ~ dst_pat) {
339	if (! shared)
340	uninstall(pfx $4)
341	} else {
342	subdir = pfx
343	if (subdir ~ src_pat)
344	sub (src_pat, "", subdir)
345	else
346	sub (build_pat, "", subdir)
347
348	dst = dst_pfx subdir $4
349	if (! (dst ~ avoid_pat))
350	install(pfx $4, dst)
351	}
352	next
353	}
354	END {
355	for (f in rm)
356	print "'"$REMOVE_CMD"' " f
357	for (f in cp)
358	print "'"$LINK_CMD"' " f " " cp[f]
359	}
360	'
361	done
362
363	) \| eval $EXEC
ab5796a9 MB	364
ab5796a9 MB	365	# arch-tag: 9322b572-9755-4cf7-a67a-21e6505f1477