xref: /titanic_44/usr/src/tools/scripts/Install.sh (revision 7c478bd95313f5f23a4c958a745db2134aa03244)

#!/bin/ksh
#
# CDDL HEADER START
#
# The contents of this file are subject to the terms of the
# Common Development and Distribution License, Version 1.0 only
# (the "License").  You may not use this file except in compliance
# with the License.
#
# You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
# or http://www.opensolaris.org/os/licensing.
# See the License for the specific language governing permissions
# and limitations under the License.
#
# When distributing Covered Code, include this CDDL HEADER in each
# file and include the License file at usr/src/OPENSOLARIS.LICENSE.
# If applicable, add the following below this CDDL HEADER, with the
# fields enclosed by brackets "[]" replaced with your own identifying
# information: Portions Copyright [yyyy] [name of copyright owner]
#
# CDDL HEADER END
#
#
# Copyright 2005 Sun Microsystems, Inc.  All rights reserved.
# Use is subject to license terms.
#
#From: "@(#)Install	1.56	96/10/11 SMI"
#ident	"%Z%%M%	%I%	%E% SMI"
#
# Author:  Jeff Bonwick
#
#	Please report any bugs to bonwick@eng.
#
# How Install works:
#
#	Install performs the following steps:
#
#	1. Figure out how to construct /kernel by looking at Makefile.uts,
#	   Makefile.$ISA (sparc default), Makefile.$KARCH and the Makefiles
#	   in the module directories (uts/arch/*/Makefile).
#
#	2. Create the requested subset of /kernel in Install's temp space
#	   (/tmp/Install.username by default.)
#
#	3. Create a tar file (/tmp/Install.username/Install.tar) based on (3).
#
#	4. If -n was specified, exit.  If a target was specified using -T,
#	   rcp the tarfile to the target and exit.  If a target was specified
#	   using -t, rsh to the target machine and untar the tarfile in the
#	   target directory.
#
# If any of these steps fail, Install will give you an error message and,
# in most cases, suggest corrective measures.  Then, you can recover the
# install with "Install -R". (This is not required; it's just faster than
# starting from scratch.)
#
# One final comment:  Unfortunately, tar and I disagree on what
# constitutes a fatal error.  (tar -x will exit 0 even if it can't write
# anything in the current directory.)  Thus, I am reduced to grepping stderr
# for (what I consider) fatal and nonfatal error messages.  If you run into
# a situation where this doesn't behave the way you think it should (either
# an "Install failed" message after a successful install, or an "Install
# complete" message after it bombs), please let me know.

#
# The CDPATH variable causes ksh's `cd' builtin to emit messages to stdout
# under certain circumstances, which can really screw things up; unset it.
#
unset CDPATH

INSTALL=`basename $0`
DOT=`pwd`

TRAILER="Install.$LOGNAME"
INSTALL_STATE=${INSTALL_STATE-$HOME/.Install.state}
export INSTALL_STATE
INSTALL_DIR=${INSTALL_DIR-/tmp/$TRAILER}
if [ "`basename $INSTALL_DIR`" != "$TRAILER" ]; then
	INSTALL_DIR="$INSTALL_DIR/$TRAILER"
fi
export INSTALL_DIR
INSTALL_LIB=${INSTALL_LIB-$HOME/LibInstall}
export INSTALL_LIB
INSTALL_RC=${INSTALL_RC-$HOME/.Installrc}
export INSTALL_RC
INSTALL_CP=${INSTALL_CP-"cp -p"}
export INSTALL_CP
INSTALL_RCP=${INSTALL_RCP-"rcp -p"}
export INSTALL_RCP

STATE=0

DEFAULT_OPTIONS="-naqX"
GLOM=no
GLOMNAME=kernel
IMPL="default"
WANT32="yes"
WANT64="yes"

trap 'fail "User Interrupt" "You can resume by typing \"$INSTALL -R\""' 1 2 3 15

usage() {
	echo ""
	echo $1
	echo '
Usage: Install	[ -w workspace ]
		[ -s srcdir (default: usr/src/uts) ]
		[ -k karch (e.g. sun4u; required if not deducible from pwd) ]
		[ -t target (extract tar file on target, e.g. user@machine:/) ]
		[ -T target (copy tar file to target, e.g. user@machine:/tmp) ]
		[ -n (no target, just create tar file in /tmp (default)) ]
		[ -u (install unix only) ]
		[ -m (install modules only) ]
		[ -a (install everything, i.e. unix + modules (default)) ]
		[ -v (verbose output) ]
		[ -V (REALLY verbose output) ]
		[ -q (quiet (default)) ]
		[ -c (clean up (remove temp files) when done (default) ]
		[ -p (preserve temp files -- useful for debugging) ]
		[ -L (library create: put tarfile in $INSTALL_LIB/env.karch) ]
		[ -l lib (library extract: use $INSTALL_LIB/lib as source) ]
		[ -D libdir (default: $HOME/LibInstall) ]
		[ -d tempdir (Install work area (default: /tmp)) ]
		[ -G glomname (put all files under platform/karch/glomname) ]
		[ -i impl (e.g. sunfire; recommended with -G) ]
		[ -x (update /etc/name_to_major et al) ]
		[ -X (do not update /etc/name_to_major et al (default)) ]
		[ -P (update /etc/path_to_inst -- generally not advisable) ]
		[ -h (help -- prints this message) ]
		[ -R (recover a previous Install) ]
		[ -o objdir (object directory - either obj or debug (the default)) ]
		[ -K (do not copy kmdb) ]
		[ -3 32-bit modules only ]
		[ -6 64-bit modules only ]
		[ list of modules to install ]

For full details:

	man -M /ws/on297-gate/public/docs Install
'
	exit 1
}

#
# Save the current state of Install
#

save_state() {
	rm -f $INSTALL_STATE
	(echo "# State of previous Install
TARGET=$TARGET
ENV_PATH=$ENV_PATH
ENV_NAME=$ENV_NAME
KARCH=$KARCH
UTS=$UTS
INSTALL_DIR=$INSTALL_DIR
INSTALL_LIB=$INSTALL_LIB
IMODE=$IMODE
LIBCREATE=$LIBCREATE
LIBSRC=$LIBSRC
VERBOSE=$VERBOSE
CLEANUP=$CLEANUP
GLOM=$GLOM
GLOMNAME=$GLOMNAME
KMDB=$KMDB
XFLAG=$XFLAG
files='$files'
STATE=$STATE" >$INSTALL_STATE) || verbose "Warning: cannot save state"
}

#
# Restore the previous state of Install
#

restore_state() {
	test -s $INSTALL_STATE || fail "Can't find $INSTALL_STATE"
	eval "`cat $INSTALL_STATE`"
}

#
# Install failed -- print error messages and exit 2
#

fail() {
	save_state
	while [ $# -gt 0 ]
	do
		echo $1
		shift
	done
	echo "Install failed"
	exit 2
}

#
# Echo a string in verbose mode only
#

verbose() {
	test "$VERBOSE" != "q" && echo $1
}

#
# hack for tmpfs bug -- remove files gradually
#

remove_dir() {
	test -d $1 || return
	local_dot=`pwd`
	cd $1
	touch foo
	rm -f `find . -type f -print`
	cd $local_dot
	rm -rf $1
}

#
# Copy kernel modules to $INSTALL_DIR
#

copy_kernel() {
	# The awk script below looks in Makefile.uts to find out what module
	# subdirectories to make.  It then looks in Makefile.$KARCH (for root
	# modules) and Makefile.$ISA (for usr modules) to create a list of
	# all possible modules.  Finally, it looks at each module's Makefile
	# to determine where it belongs and what links are required.
	# This script makes three assumptions:
	#
	# 1) Module subdirectories are specified in Makefile.uts by lines of the
	#    form:
	#
	#	ROOT_FOO_DIR = $(ROOT_MOD_DIR)/foo
	#	USR_BAR_DIR = $(USR_MOD_DIR)/bar
	#
	# 2) The corresponding lists of modules appear in Makefile.$KARCH and
	#    Makefile.$ISA on one or more lines of the form:
	#
	#	FOO_KMODS = foo bar
	#	FOO_KMODS += red white blue
	#
	# 3) Each module directory has a Makefile with lines of the form:
	#
	#	ROOTMODULE = $(ROOT_FOO_DIR)/$(MODULE)
	#	USRMODULE = $(USR_FOO_DIR)/$(MODULE)
	#	ROOTLINK* = $(ROOT_BAR_DIR)/something
	#	USRLINK* = $(USR_BAR_DIR)/something
	#
	# If the structure of Makefile.{$KARCH,uts,$ISA} changes in a way that
	# invalidates these assumptions, you'll need to pick up a new version of
	# Install.

	case $KARCH in
		sun4*)		ISA=sparc;	MACH=sparc;	SUBISA_MAKE=;;
		i86pc)		ISA=intel;	MACH=i386;	SUBISA_MAKE=$ISA/ia32/Makefile.ia32;;
		*)		fail "${KARCH}: invalid kernel architecture";;
	esac

	if [ "$GLOM" = "no" ]; then
		verbose "Source = $UTS, ISA = $ISA, kernel = $KARCH"
	else
		verbose "Source = $UTS, ISA = $ISA, kernel = $KARCH, impl = $IMPL"
	fi

	UTS_MAKE=Makefile.uts
	ISA_MAKE=$ISA/Makefile.$ISA
	KARCH_MAKE=$KARCH/Makefile.$KARCH
	PSM_MAKE=$UTS/../Makefile.psm

	test -d $KARCH || fail "${KARCH}: invalid kernel architecture"
	test -d $ISA || fail "${ISA}: invalid instruction set architecture"
	test -s $UTS_MAKE || fail "Can't find $UTS_MAKE"
	test -s $ISA_MAKE || fail "Can't find $ISA_MAKE"
	test -s $KARCH_MAKE || fail "Can't find $KARCH_MAKE"
	test -s $PSM_MAKE || fail "Can't find $PSM_MAKE"

	#
	# For 5.8 and 5.9 we used to build a few x86 things in an ia32 subdirectory
	#
	[[ -n "$SUBISA_MAKE" && -s "$SUBISA_MAKE" ]] || SUBISA_MAKE=;

	if [ $GLOM = "yes" ]; then
		if [ -f $KARCH/$IMPL/Makefile.$IMPL ]; then
			IMPL_MAKE="$KARCH/$IMPL/Makefile.$IMPL"
		fi
	else
		IMPL_MAKE=`nawk -v karch="$KARCH" '
			$1 == "IMPLEMENTATIONS" {
			for (i = 3; i <= NF; i++)
				if ($i != ".WAIT")
					printf("%s ", karch "/" $i "/Makefile." $i)
			}' $KARCH_MAKE`
	fi

	DEVFS="./$ISA/devfs/Makefile"

	verbose "Copying files to ${INSTALL_FILES}..."
	test -d $INSTALL_FILES || mkdir -p $INSTALL_FILES

	nawk \
		-v isa="$ISA" \
		-v mach="$MACH" \
		-v insd="$INSTALL_FILES" \
		-v files="$files" \
		-v verbose=$VERBOSE \
		-v karch=$KARCH \
		-v copy="$INSTALL_CP" \
		-v devfs=$DEVFS \
		-v auxfiles=$XFLAG \
		-v ptiflag=$PFLAG \
		-v glom=$GLOM \
		-v glomname=$GLOMNAME \
		-v impl=$IMPL \
		-v objd=$OBJD \
		-v want32=$WANT32 \
		-v want64=$WANT64 \
		'
	function run(s) {
		if (verbose != "q")
			print s
		if (system(s))
			exit 1
	}
	function cpf(f1,f2) {
		if (verbose != "q")
			print copy " " f1 " " f2
		if (system(copy " " f1 " " f2))
			print "WARNING: copy of " f1 " failed"
	}
	function mkdir(dir) {
		if (!touched[dir]) {
			run("test -d " dir " || mkdir -p " dir)
			touched[dir]=1
		}
		return dir
	}
	function vprint(s) {
		if (verbose == "V")
			print s
	}
	function try_run(s) {
		if (verbose != "q")
			print s
		if (system(s))
			return 1
		return 0
	}
	function exist(s) {
		if (verbose != "q")
			print "test -f " s
		return !system("test -f " s)
	}

	function copymod(src, targ, om) {
		if (om) {
			run("if [ -f " src " ] ; then " \
			    copy " " src " " targ " ; fi")
		} else {
			run(copy " " src " " targ)
		}
	}

	function copymod32(idx, modtarg) {
		modsrc = modsrcd[idx] "/" objd32 "/" modname[idx]

		if (!exist(modsrc))
			return (0)

		copymod(modsrc, modtarg, optmod[idx])
		return (1)
	}

	function copymod64(idx, modtarg) {
		modsrc = modsrcd[idx] "/" objd64 "/" modname[idx]

		if (!exist(modsrc))
			return (0)

		copymod(modsrc, modtarg subdir64, optmod[idx])
		return (1)
	}

	function linkmod(lmod, idx, modtarg, did32, did64) {
		if (lmod ~ /^...MODULE.$/)
			lmod = "/" modname[idx]

		if (did32 == "yes") {
			m = modtarg "/" modname[i]
			run("rm -f " dir lmod "; ln " m " " dir lmod)
		}

		if (did64 == "yes") {
			m = modtarg subdir64 "/" modname[i]
			run("rm -f " dir subdir64 lmod "; ln " m " " \
			    dir subdir64 lmod)
		}
	}

	function slinkmod(slinktarg, idx, modtarg, did32, did64) {
		if (did32 == "yes") {
			slink = modtarg "/" slinktarg
			run("rm -f " slink "; ln -s " modname[i] " " slink)
		}

		if (did64 == "yes") {
			slink = modtarg subdir64 "/" slinktarg
			run("rm -f " slink "; ln -s " modname[i] " " slink)
		}
	}

	BEGIN {
		# If you do NOT want the SVVS modules, set svvs to 0.
		svvs=1
		# If you do NOT want the excluded modules, set xmods to 0.
		xmods=1

		machkernel = "/platform/" karch "/" glomname

		nmods=0
		do32="no"
		do64="no"
		objd32=objd "32"
		objd64=objd "64"
		build64and32="no"
	}

	$1 == "SUBDIR64_" mach {
		vprint($0)
		subdir64="/" $3
		subdir64_relative=$3
	}

	FILENAME == "Makefile.uts" && $1 == "ALL_BUILDS64" {
		vprint($0)
		if ($0 ~ /32/)
			build64and32="yes"
	}

	FILENAME == karch "/Makefile." karch && $1 == "ALL_BUILDS" {
		vprint($0)
		if ($3 ~ /32/)
			do32=want32
		if ($4 ~ /32/)
			build64and32="yes"
		if ($3 ~ /ALL_BUILDS64/ && build64and32 == "yes")
			do32=want32
		if ($3 ~ /64/ && want64)
			do64=want64
	}

	$1 ~ /^(ROOT|USR)_.+_DIR(_32)?$/ {
		vprint($0)
		if ($3 ~ /_..CLASS..$/)
			next
		slash=index($3,"/")
		sub(/_32$/,"",$1)
		if (!slash)
			slash=length($3)+1
		parent=substr($3,3,slash-4)
		subdir=substr($3,slash)
		if (parent == "ROOT")
			child=subdir
		else if (moddirs[parent]) {
			if ($3 ~ /..PLATFORM.$/)
				child=moddirs[parent] "/" karch
			else
				child=moddirs[parent] subdir
		} else {
			print "missing mod dir " parent
			exit 1
		}
		moddirs[$1]=child
		sub(/^.*kernel/,machkernel,child)
		glomdirs[$1]=child
		n=split($1,foo,"_")
		if (n == 4 && foo[2] != "PSM")
			notdef[$1]=tolower(foo[2])
	}

	FILENAME != isa "/Makefile." isa && $1 ~ /^(GENLIB|UNIX)_DIR$/ {
		vprint($0)
		n=split($3,foo,"/")
		slash=index($3,"/")
		dir="." substr($3,slash)
		sub(/..PLATFORM./,karch,dir)
		nmods++
		modsrcd[nmods]=dir
		modname[nmods]=foo[n]
		unixmod[nmods]=1
	}

	FILENAME != "Makefile.uts" && $1 ~ /KMODS|XMODS/ &&
	    $1 != "GENUNIX_KMODS" {
		dir = FILENAME;
		sub(/\/Makefile.*$/, "", dir);
		if ($1 ~ "^SVVS_")
			if (svvs == 0)
				next
			else
				dir = dir "/svvs"
		if ($1 ~ "XMODS" && xmods == 0)
			next
		if ($0 !~ /\$/) {
			vprint($0)
			for (i = 3; i <= NF; i++) {
				if ($i ~ /^(ramdisk|wsdrv|vdi)$/)
					continue;
				nmods++
				modname[nmods]=$i
				modsrcd[nmods]="./" dir "/" $i
				if ($1 ~ "^MPSAS_")
					optmod[nmods] = 1
			}
		}
	}

	FILENAME == karch "/Makefile." karch && $1 == "PLATFORMS" &&
	    $3 !~ /\(/ {
		for (i = 3; i <= NF; i++)
			mkdir(insd "/platform/" $i)
	}

	FILENAME == karch "/Makefile." karch && ($1 == "IMPLEMENTED_PLATFORM" ||
	    $1 == "LINKED_PLATFORMS") {
		for (i = 3; i <= NF; i++)
			mkdir(insd "/platform/" $i)
	}

	FILENAME != "Makefile.uts" && $1 == "CONFS" {
		for (i = 3; i <= NF; i++) {
			kbi_brain_damage[$i] = "yes"
		}
	}

	END {
		split(files, modlist)
		for (m in modlist) {
			mm = modlist[m]
			if (mm == "modules") {
				for (i = 1; i <= nmods; i++)
					if (unixmod[i] == 0)
						modcopy[i]=1
				continue
			}
			nomodfound = 1
			for (i = 1; i <= nmods; i++) {
				if (modname[i] == mm) {
					modcopy[i]=1
					nomodfound = 0
				}
			}
			if (nomodfound) {
				print mm ": invalid module"
				exit 1
			}
		}

		for(i = 1; i <= nmods; i++) {
			if (!modcopy[i])
				continue

			confsrc = ""
			drvfiles[1] = ""
			classfile = ""
			ptifile = ""
			did32=do32
			did64=do64
			no_builds="false"
			modmake=modsrcd[i] "/Makefile"

			while (getline <modmake > 0) {
				if ($1 == "NO_BUILDS") {
					vprint($0)
					no_builds="true"
				}

				if ($1 == "ALL_BUILDS" && $3 ~ /64/) {
					vprint($0)
					did32="ok"
				}

				if ($1 == "ALL_BUILDS" && $3 ~ /32/) {
					vprint($0)
					did64="ok"
				}

				if ($1 ~ /^(MODULE|UNIX)$/) {
					vprint($0)
					modname[i] = $3
				}

				if ($1 ~ /^(ROOT|USR)(LINK|MODULE$)/) {
					vprint($0)
					slash=index($3,"/")
					parent=substr($3,3,slash-4)

					if (notdef[parent] &&
					    notdef[parent] != impl &&
					    glom == "yes") {
						confsrc = ""
						break
					}

					dir = (glom == "no") ? \
					    moddirs[parent] : glomdirs[parent]
					if (!dir) {
						print "no parent for " modname[i]
						exit 1
					}

					dir=insd dir
					mkdir(dir)

					if (do64 == "yes")
						mkdir(dir subdir64)

					if ($1 ~ /^(ROOT|USR)MODULE$/) {
						modtarg=dir
						conftarg=dir
						if (modname[i] in \
						    kbi_brain_damage) {
							confsrc = "./" karch \
							    "/io"
							conftarg = insd \
							    machkernel "/drv"

							mkdir(conftarg)

							if (do64 == "yes") {
								mkdir(conftarg \
								    subdir64)
							}
						}

						if (do32 == "yes" &&
						    !copymod32(i, modtarg))
							did32="no"

						if (do64 == "yes" &&
						    !copymod64(i, modtarg))
							did64="no"

					} else {
						linkmod(substr($3, slash),
						    i, modtarg, did32, did64)
					}
				}

				if ($1 == "SOFTLINKS") {
					vprint($0)
					for (j = 3; j <= NF; j++) {
						slinkmod($j, i, modtarg, did32,
						    did64)
					}
				}

				if ($1 == "CONF_SRCDIR") {
					vprint($0)
					slash = index($3, "/")
					confsrc = "." substr($3, slash)
				}
			}

			if (do32 == "yes" && did32 == "no" &&
			    no_builds == "false") {
				print "missing 32b file " confsrc "/" modname[i]
				exit 1
			}

			if (do64 == "yes" && did64 == "no" &&
			    no_builds == "false") {
				print "missing 64b file " confsrc "/" modname[i]
				exit 1
			}

			if (confsrc != "") {
				conffile = confsrc "/" modname[i] ".conf"
				cpf(conffile, conftarg)
			}

			close(modmake)
		}

		#
		# Make symlinks for KBI for different root node names for a
		# given platform
		#
		km = "./" karch "/Makefile"
		while (getline <km > 0) {
			if ($1 == "PLAT_LINKS") {
				for (i = 3; i <= NF; i++) {
					mkdir(insd "/platform")
					run("ln -s " karch " " insd \
					    "/platform/" $i)
				}
			}
		}
		close(km)

		if (did64 == "yes" && build64and32 == "no" &&
		    (try_run("test -f " insd "/platform/" karch "/" \
		    glomname "/" subdir64_relative "/unix") == 0))
		{
			run("ln -s " subdir64_relative "/unix " insd \
			    "/platform/" karch "/" glomname "/unix")

			if (isa == "sparc" && glom == "no" &&
			    (try_run("test -f " insd \
			     "/platform/SUNW,Ultra-Enterprise-10000/" glomname \
			     "/" subdir64_relative "/unix") == 0)) {
				run("ln -s " subdir64_relative "/unix " insd \
				    "/platform/SUNW,Ultra-Enterprise-10000/" \
				    glomname "/unix")
			}
		}

		while (getline <devfs > 0) {
			if ($1 == "SRCDIR")
				configdir = "." substr($3, index($3, "/")) "/"
			if ($1 == "CLASSFILE")
				classfile = $3
			if ($1 == "PTIFILE")
				ptifile = $3
			if ($1 == "DRVFILES")
				split(substr($0, index($0, $3)), drvfiles)
		}
		close(devfs)

		if (classfile != "" && auxfiles == 1) {
			dir = mkdir(targ["ROOT_DRV"])
			cpf(configdir classfile, dir)
		}

		if (ptifile != "" && ptiflag == 1) {
			dir = mkdir(insd "/etc")
			cpf(configdir ptifile, dir)
		}

		if (drvfiles[1] != "" && auxfiles == 1) {
			dir = mkdir(insd "/etc")
			for (file in drvfiles)
				cpf(configdir drvfiles[file], dir)
		}
	}' $UTS_MAKE $PSM_MAKE $ISA_MAKE $SUBISA_MAKE $KARCH_MAKE $IMPL_MAKE
	[[ $? -ne 0 ]] && fail "Files missing in environment"

	#
	# on x86, add the glommed kernel name to the root archive
	#
	if [[ $KARCH = "i86pc" && $GLOM == "yes" ]]; then
		filelist="$INSTALL_FILES/etc/boot/solaris/filelist.ramdisk"
		mkdir -p `dirname $filelist`
		echo "platform/$KARCH/$GLOMNAME" >$filelist
	fi

	STATE=1 # all kernel modules copied correctly
	save_state
}

kmdb_copy() {
	typeset src="$1"
	typeset destdir="$2"

	if [[ ! -d $dest ]] ; then
		[[ $VERBOSE != "q" ]] && echo "mkdir -p $destdir"

		mkdir -p $destdir || fail "failed to create $destdir"
	fi

	[[ $VERBOSE != "q" ]] && echo "cp $src $destdir"

	cp $src $destdir || fail "failed to copy $src to $destdir"
}

kmdb_copy_machkmods() {
	typeset modbase="$1"
	typeset destdir="$2"
	typeset dir=
	typeset kmod=

	[[ ! -d $modbase ]] && return

	for dir in $(find $modbase -name kmod) ; do
		set -- $(echo $dir |tr '/' ' ')

		[[ $# -lt 2 ]] && fail "invalid mach kmod dir $dir"

		shift $(($# - 2))
		kmod=$1

		[[ ! -f $dir/$kmod ]] && continue

		kmdb_copy $dir/$kmod $destdir
	done
}

kmdb_copy_karchkmods() {
	typeset modbase="$1"
	typeset destdir="$2"
	typeset bitdir="$3"
	typeset dir=
	typeset kmod=
	typeset karch=

	[[ ! -d $modbase ]] && return

	for dir in $(find $modbase -name kmod) ; do
		set -- $(echo $dir | tr '/' ' ')

		[[ $# -lt 3 ]] && fail "invalid karch kmod dir $dir"

		shift $(($# - 3))
		kmod=$1
		bdir=$2

		[[ $bdir != $bitdir ]] && continue
		[[ ! -f $dir/$1 ]] && continue

		kmdb_copy $dir/$kmod $destdir
	done
}

kmdb_copy_kmdbmod() {
	typeset kmdbpath="$1"
	typeset destdir="$2"

	[[ ! -f $kmdbpath ]] && return 1

	kmdb_copy $kmdbpath $destdir

	return 0
}

copy_kmdb() {
	typeset kmdbtgtdir=$INSTALL_FILES/platform/$KARCH/$GLOMNAME/misc
	typeset bitdirs=
	typeset isadir=
	typeset b64srcdir=
	typeset b64tgtdir=
	typeset b32srcdir=
	typeset b32tgtdir=
	typeset machdir=
	typeset platdir=

	if [[ $KMDB = "no" || ! -d $SRC/cmd/mdb ]] ; then
		# The kmdb copy was suppressed or the workspace doesn't contain
		# the mdb subtree.  Either way, there's nothing to do.
		STATE=2
		save_state
		return
	fi

	if [[ $(mach) = "i386" ]] ; then
		isadir="intel"
		b64srcdir="amd64"
		b64tgtdir="amd64"
		b32srcdir="ia32"
		b32tgtdir="."
	else
		isadir="sparc"
		b64srcdir="v9"
		b64tgtdir="sparcv9"
		b32srcdir="v7"
		b32tgtdir="."
	fi

	typeset foundkmdb=no
	typeset kmdbpath=

	platdir=$INSTALL_FILES/platform/$KARCH/$GLOMNAME
	if [[ $GLOM = "yes" ]] ; then
		machdir=$platdir
	else
		machdir=$INSTALL_FILES/kernel
	fi

	kmdbpath=$SRC/cmd/mdb/$KARCH/$b64srcdir/kmdb/kmdbmod
	if [[ $WANT64 = "yes" ]] ; then
		if kmdb_copy_kmdbmod $kmdbpath $platdir/misc/$b64tgtdir ; then
			foundkmdb="yes"

			kmdb_copy_machkmods $SRC/cmd/mdb/$isadir/$b64srcdir \
			    $machdir/kmdb/$b64tgtdir
			kmdb_copy_karchkmods $SRC/cmd/mdb/$KARCH \
			    $platdir/kmdb/$b64tgtdir $b64srcdir
		fi
	fi

	kmdbpath=$SRC/cmd/mdb/$isadir/$b32srcdir/kmdb/kmdbmod
	if [[ $WANT32 = "yes" ]] ; then
		if kmdb_copy_kmdbmod $kmdbpath $machdir/misc/$b32tgtdir ; then
			foundkmdb="yes"

			kmdb_copy_machkmods $SRC/cmd/mdb/$isadir/$b32srcdir \
			    $machdir/kmdb/$b32tgtdir
			kmdb_copy_karchkmods $SRC/cmd/mdb/$KARCH \
			    $platdir/kmdb/$b32tgtdir $b32srcdir
		fi
	fi

	# A kmdb-less workspace isn't fatal, but it is potentially problematic,
	# as the changes made to uts may have altered something upon which kmdb
	# depends.  We will therefore remind the user that they haven't built it
	# yet.
	if [[ $foundkmdb != "yes" ]] ; then
		echo "WARNING: kmdb isn't built, and won't be included"
	fi

	STATE=2
	save_state
	return
}

#
# Make tarfile
#

make_tarfile() {
	echo "Creating tarfile $TARFILE"
	test -d $INSTALL_FILES || fail "Can't find $INSTALL_FILES"
	cd $INSTALL_FILES
	rm -f $TARFILE files

	# We don't want to change the permissions or ownership of pre-existing
	# directories on the target machine, so we're going to take care to
	# avoid including directories in the tarfile.  On extraction, tar won't
	# modify pre-existing directories, and will create non-existent ones as
	# the user doing the extraction.
	find . ! -type d -print |fgrep -vx './files' >files
	tar cf $TARFILE -I files || fail "Couldn't create tarfile $TARFILE"
	STATE=3
}

#
# Routines to copy files to the target machine
#

remote_fail() {
	fail "" "$1" "" \
		"Make sure that $TARGET_MACHINE is up." \
"Check .rhosts in the home directory of user $TARGET_USER on $TARGET_MACHINE." \
		"Check /etc/hosts.equiv, /etc/passwd, and /etc/shadow." \
		"Change permissions on $TARGET_MACHINE as necessary." \
		"Then, use \"$INSTALL -R\" to resume the install." ""
}

remote_install() {
	if [ "$IMODE" = "n" ]; then
		STATE=4
		return 0
	fi
	test -s $TARFILE || fail "$TARFILE missing or empty"
	verbose "Installing system on $TARGET"
	test -d $INSTALL_DIR || fail "Can't find $INSTALL_DIR"
	cd $INSTALL_DIR
	rm -f errors fatal nonfatal
	if [ "$IMODE" = "T" ]; then
		EMESG="Can't rcp to $TARGET"
		touch errors
		sh -e${SHV}c "$INSTALL_RCP $TARFILE $TARGET/Install.tar"
	else
		EMESG="Can't rsh to $TARGET_MACHINE"
		rsh -l $TARGET_USER $TARGET_MACHINE \
		    "(cd $TARGET_DIR; /usr/bin/tar x${V}f -)" \
		    <$TARFILE 2>errors
	fi
	test $? -ne 0 && remote_fail "$EMESG"
	cd $INSTALL_DIR
	egrep "set time|warning|blocksize" errors >nonfatal
	egrep -v "set time|warning|blocksize" errors >fatal
	if [ -s fatal ]; then
		echo "Fatal errors from rsh:"
		cat fatal
		remote_fail "Can't install on $TARGET_MACHINE"
	fi
	if [ -s nonfatal -a "$VERBOSE" != "q" ]; then
		echo "Non-fatal errors from rsh:"
		cat nonfatal
	fi
	rm -f fatal nonfatal errors
	test "$IMODE" = "T" && echo "Files can be extracted on \
$TARGET_MACHINE using 'tar xvf $TARGET_DIR/Install.tar'"
	STATE=4
}

okexit() {
	cd /tmp
	test "$CLEANUP" = c && remove_dir $INSTALL_DIR
	save_state
	verbose "Install complete"
	exit 0
}

#
# Process options
#

RCOPTS=""
LIBCREATE="no"
LIBSRC=""
PFLAG=0
ENV_PATH=$CODEMGR_WS
OBJD="debug"
KMDB="yes"

test -s $INSTALL_RC && RCOPTS=`cat $INSTALL_RC`
set $INSTALL $DEFAULT_OPTIONS $RCOPTS $*
shift

while getopts acd:D:G:hi:k:Kl:Lmno:pPqRs:t:T:uvVw:xX36 opt
do
	case $opt in
	    w)	ENV_PATH="$OPTARG"; SRC="$ENV_PATH/usr/src";;
	    s)	UTS="$OPTARG";;
	    k)	KARCH="$OPTARG";;
	  t|T)	TARGET="$OPTARG"; IMODE=$opt; CLEANUP="c";;
	    n)	TARGET=""; IMODE="n"; CLEANUP="p";;
	    u)	files="unix genunix";;
	    m)	files="modules";;
	    a)	files="unix genunix modules";;
	v|V|q)	VERBOSE=$opt;;
	  c|p)	CLEANUP=$opt;;
	    L)	LIBCREATE="yes"; CLEANUP="c";;
	    l)	LIBSRC="$OPTARG";;
	    D)	INSTALL_LIB="$OPTARG";;
	    d)	INSTALL_DIR="$OPTARG/$TRAILER";;
	    G)	GLOM=yes; GLOMNAME="$OPTARG";;
	    x)	XFLAG=1;;
	    X)	XFLAG=0;;
	    P)	PFLAG=1;;
	    h)	usage "${INSTALL}: installs unix and modules";;
	    R)	x=$OPTIND; restore_state; OPTIND=$x;;
	    i)	IMPL="$OPTARG";;
	    o)	OBJD="$OPTARG";;
	    K)  KMDB="no";;
	    3)  WANT64="no";;
	    6)  WANT32="no";;
	   \?)	usage "Illegal option";;
	esac
done
shift `expr $OPTIND - 1`

ENV_NAME=`basename $ENV_PATH`

#
# The rest of the command line is a list of individual files to copy.
# If non-null, this list overrides the -uma options.
#

if [[ $# -gt 0 ]] ; then
	files="$*"
	KMDB="no"
fi

case $VERBOSE in
	v)	V="v"; SHV="x";;
	V)	V="v"; SHV="x"; set -x;;
	q)	V=""; SHV="";;
esac

#
# Create temp directory for Install's files
#

test -d $INSTALL_DIR || mkdir -p $INSTALL_DIR || fail "Can't mkdir $INSTALL_DIR"

TARFILE=$INSTALL_DIR/Install.${KARCH}.tar
INSTALL_FILES=$INSTALL_DIR/$KARCH

#
# Extract the target machine and target directory from a target of the
# form [user@]machine:/dir .
#

if [ "$IMODE" != "n" ]; then
	eval `echo $TARGET | nawk -F':' '{
		if (NF != 2 || !length($1) || !length($2))
			print "usage \"Invalid target\""
		m = $1; d = $2
		if ($1 ~ /@/) {
		    k = split($1, f, "@");
		    if (k != 2 || !length(f[1]) || !length (f[2]))
			    print "usage \"Invalid target\""
		    u = f[1]; m = f[2]
		}
		print "TARGET_USER=" u ";"
		print "TARGET_MACHINE=" m ";"
		print "TARGET_DIR=" d ";"
	}'`
	if [ -z "$TARGET_USER" ]; then
		TARGET_USER=$LOGNAME
	fi
fi

#
# Allow the use of library source or target for the install
#

if [ -n "$LIBSRC" ]; then
	LIBSRC="`basename $LIBSRC .tar`.tar"
	TARFILE=$INSTALL_LIB/$LIBSRC
	test -s $TARFILE || fail "Can't find tarfile $TARFILE"
	verbose "Installing from library tarfile $TARFILE"
	STATE=3
elif [ "$LIBCREATE" = "yes" ]; then
	test -d $INSTALL_LIB \
		|| mkdir -p $INSTALL_LIB \
		|| fail "Can't mkdir $INSTALL_LIB"
	TARFILE="$INSTALL_LIB/${ENV_NAME}.${KARCH}.tar"
fi

#
# The next three lines allow recovery and activation with -R,
# and library installs with -l.
#

[[ $STATE -eq 1 ]] && copy_kmdb
[[ $STATE -eq 2 ]] && make_tarfile
[[ $STATE -eq 3 ]] && remote_install
[[ $STATE -eq 4 ]] && okexit

save_state

cd $DOT
DOTDOT=`cd ..; pwd`

#
# Try to be smart: if DOTDOT ends in uts, then infer UTS and KARCH from DOT
# Otherwise, if SRC is set, infer UTS = $SRC/uts.
#

if [ "`basename $DOTDOT`" = "uts" ]; then
	UTS=$DOTDOT
	KARCH=`basename $DOT`
fi

if [ -z "$UTS" -a -n "$SRC" ]; then
	UTS="${SRC}/uts"
	test -n "$KARCH" || fail "no karch specified (e.g. -k sun4u)"
fi

if [ "$LIBCREATE" = "yes" ]; then
	TARFILE=$INSTALL_LIB/${ENV_NAME}.${KARCH}.tar
else
	TARFILE=$INSTALL_DIR/Install.${KARCH}.tar
fi
INSTALL_FILES=$INSTALL_DIR/$KARCH
save_state

cd $DOT
test -z "$UTS" && fail 'Cannot find kernel sources -- $SRC not set'
test -d "$UTS" || fail "${UTS}: no such directory"

#
# Convert UTS into an absolute path.
#

cd $UTS
UTS=`pwd`

test "`basename $UTS`" = "uts" || \
	verbose "Warning: source path $UTS doesn't end in 'uts'"

remove_dir $INSTALL_DIR/$KARCH
rm -f $TARFILE

copy_kernel	# sets STATE=1 if successful
copy_kmdb	# sets STATE=2 if successful
make_tarfile	# sets STATE=3 if successful
remote_install	# sets STATE=4 if successful

okexit