18462SApril.Chin@Sun.COM#!/usr/bin/ksh93
28462SApril.Chin@Sun.COM
38462SApril.Chin@Sun.COM#
48462SApril.Chin@Sun.COM# CDDL HEADER START
58462SApril.Chin@Sun.COM#
68462SApril.Chin@Sun.COM# The contents of this file are subject to the terms of the
78462SApril.Chin@Sun.COM# Common Development and Distribution License (the "License").
88462SApril.Chin@Sun.COM# You may not use this file except in compliance with the License.
98462SApril.Chin@Sun.COM#
108462SApril.Chin@Sun.COM# You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
118462SApril.Chin@Sun.COM# or http://www.opensolaris.org/os/licensing.
128462SApril.Chin@Sun.COM# See the License for the specific language governing permissions
138462SApril.Chin@Sun.COM# and limitations under the License.
148462SApril.Chin@Sun.COM#
158462SApril.Chin@Sun.COM# When distributing Covered Code, include this CDDL HEADER in each
168462SApril.Chin@Sun.COM# file and include the License file at usr/src/OPENSOLARIS.LICENSE.
178462SApril.Chin@Sun.COM# If applicable, add the following below this CDDL HEADER, with the
188462SApril.Chin@Sun.COM# fields enclosed by brackets "[]" replaced with your own identifying
198462SApril.Chin@Sun.COM# information: Portions Copyright [yyyy] [name of copyright owner]
208462SApril.Chin@Sun.COM#
218462SApril.Chin@Sun.COM# CDDL HEADER END
228462SApril.Chin@Sun.COM#
238462SApril.Chin@Sun.COM
248462SApril.Chin@Sun.COM#
258462SApril.Chin@Sun.COM# Copyright 2008 Sun Microsystems, Inc.  All rights reserved.
268462SApril.Chin@Sun.COM# Use is subject to license terms.
278462SApril.Chin@Sun.COM#
288462SApril.Chin@Sun.COM
298462SApril.Chin@Sun.COM# Solaris needs /usr/xpg6/bin:/usr/xpg4/bin because the tools in /usr/bin are not POSIX-conformant
308462SApril.Chin@Sun.COMexport PATH=/usr/xpg6/bin:/usr/xpg4/bin:/bin:/usr/bin
318462SApril.Chin@Sun.COM
328462SApril.Chin@Sun.COM# Make sure all math stuff runs in the "C" locale to avoid problems
338462SApril.Chin@Sun.COM# with alternative # radix point representations (e.g. ',' instead of
348462SApril.Chin@Sun.COM# '.' in de_DE.*-locales). This needs to be set _before_ any
358462SApril.Chin@Sun.COM# floating-point constants are defined in this script).
368462SApril.Chin@Sun.COMif [[ "${LC_ALL}" != "" ]] ; then
378462SApril.Chin@Sun.COM    export \
388462SApril.Chin@Sun.COM        LC_MONETARY="${LC_ALL}" \
398462SApril.Chin@Sun.COM        LC_MESSAGES="${LC_ALL}" \
408462SApril.Chin@Sun.COM        LC_COLLATE="${LC_ALL}" \
418462SApril.Chin@Sun.COM        LC_CTYPE="${LC_ALL}"
428462SApril.Chin@Sun.COM        unset LC_ALL
438462SApril.Chin@Sun.COMfi
448462SApril.Chin@Sun.COMexport LC_NUMERIC=C
458462SApril.Chin@Sun.COM
468462SApril.Chin@Sun.COMfunction fatal_error
478462SApril.Chin@Sun.COM{
488462SApril.Chin@Sun.COM	print -u2 "${progname}: $*"
498462SApril.Chin@Sun.COM	exit 1
508462SApril.Chin@Sun.COM}
518462SApril.Chin@Sun.COM
528462SApril.Chin@Sun.COM
538462SApril.Chin@Sun.COMfunction do_directory
548462SApril.Chin@Sun.COM{
558462SApril.Chin@Sun.COM	nameref tree=$1
568462SApril.Chin@Sun.COM	typeset basedir="$2"
578462SApril.Chin@Sun.COM
588462SApril.Chin@Sun.COM	typeset basename
598462SApril.Chin@Sun.COM	typeset dirname
608462SApril.Chin@Sun.COM	typeset i
618462SApril.Chin@Sun.COM	typeset dummy
628462SApril.Chin@Sun.COM
63*10898Sroland.mainz@nrubsig.org	typeset -C -A tree.files
64*10898Sroland.mainz@nrubsig.org	typeset -C -A tree.dirs
658462SApril.Chin@Sun.COM
668462SApril.Chin@Sun.COM	find "${basedir}"/* -prune 2>/dev/null | while read i ; do
678462SApril.Chin@Sun.COM		dirname="$(dirname "$i")"
688462SApril.Chin@Sun.COM		basename="$(basename "$i")"
698462SApril.Chin@Sun.COM
708462SApril.Chin@Sun.COM		# define "node"
718462SApril.Chin@Sun.COM		if [[ -d "$i" ]] ; then
728462SApril.Chin@Sun.COM			typeset -C tree.dirs["${basename}"]
738462SApril.Chin@Sun.COM			nameref node=tree.dirs["${basename}"]
748462SApril.Chin@Sun.COM			typeset -C node.flags
758462SApril.Chin@Sun.COM			node.flags.dir="true"
768462SApril.Chin@Sun.COM			node.flags.file="false"
778462SApril.Chin@Sun.COM		else
788462SApril.Chin@Sun.COM			typeset -C tree.files["${basename}"]
798462SApril.Chin@Sun.COM			nameref node=tree.files["${basename}"]
808462SApril.Chin@Sun.COM			typeset -C node.flags
818462SApril.Chin@Sun.COM
828462SApril.Chin@Sun.COM			node.flags.dir="false"
838462SApril.Chin@Sun.COM			node.flags.file="true"
848462SApril.Chin@Sun.COM		fi
858462SApril.Chin@Sun.COM
868462SApril.Chin@Sun.COM		# basic attributes
878462SApril.Chin@Sun.COM		typeset -C node.paths=(
888462SApril.Chin@Sun.COM			dirname="${dirname}"
898462SApril.Chin@Sun.COM			basename="${basename}"
908462SApril.Chin@Sun.COM			path="${i}"
918462SApril.Chin@Sun.COM		)
928462SApril.Chin@Sun.COM
938462SApril.Chin@Sun.COM		nameref nflags=node.flags
948462SApril.Chin@Sun.COM		[[ -r "$i" ]] && nflags.readable="true"   || nflags.readable="false"
958462SApril.Chin@Sun.COM		[[ -w "$i" ]] && nflags.writeable="true"  || nflags.writeable="false"
968462SApril.Chin@Sun.COM		[[ -x "$i" ]] && nflags.executable="true" || nflags.executable="false"
978462SApril.Chin@Sun.COM
988462SApril.Chin@Sun.COM		[[ -b "$i" ]] && nflags.blockdevice="true"     || nflags.blockdevice="false"
998462SApril.Chin@Sun.COM		[[ -c "$i" ]] && nflags.characterdevice="true" || nflags.characterdevice="false"
1008462SApril.Chin@Sun.COM		[[ -S "$i" ]] && nflags.socket="true"          || nflags.socket="false"
1018462SApril.Chin@Sun.COM
1028462SApril.Chin@Sun.COM		[[ -L "$i" ]] && nflags.symlink="true" || nflags.symlink="false"
1038462SApril.Chin@Sun.COM
1048462SApril.Chin@Sun.COM		integer node.size
1058462SApril.Chin@Sun.COM		integer node.links
1068462SApril.Chin@Sun.COM		typeset -C node.owner
1078462SApril.Chin@Sun.COM		( [[ -x /usr/bin/runat ]] && ls -@ade "$i" || ls -lade "$i" ) |
1088462SApril.Chin@Sun.COM		IFS=' ' read \
1098462SApril.Chin@Sun.COM			node.mask \
1108462SApril.Chin@Sun.COM			node.links \
1118462SApril.Chin@Sun.COM			node.owner.uid \
1128462SApril.Chin@Sun.COM			node.owner.gid \
1138462SApril.Chin@Sun.COM			node.size \
1148462SApril.Chin@Sun.COM			dummy
1158462SApril.Chin@Sun.COM
1168462SApril.Chin@Sun.COM		typeset -C node.extended_attributes
1178462SApril.Chin@Sun.COM		if [[ ${node.mask} == ~(Er)@ ]] ; then
1188462SApril.Chin@Sun.COM			node.extended_attributes.hasattrs="true"
1198462SApril.Chin@Sun.COM			typeset -a attrlist=(
1208462SApril.Chin@Sun.COM				$( runat "$i" "ls -1" )
1218462SApril.Chin@Sun.COM			)
1228462SApril.Chin@Sun.COM		else
1238462SApril.Chin@Sun.COM			node.extended_attributes.hasattrs="false"
1248462SApril.Chin@Sun.COM		fi
1258462SApril.Chin@Sun.COM
1268462SApril.Chin@Sun.COM		if ${nflags.readable} ; then
1278462SApril.Chin@Sun.COM			# note that /usr/xpg4/bin/file does not use $'\t' as seperator - we
1288462SApril.Chin@Sun.COM			# have to use ':' instead.
1298462SApril.Chin@Sun.COM			file -h "$i" | IFS=' ' read dummy node.filetype
1308462SApril.Chin@Sun.COM		fi
1318462SApril.Chin@Sun.COM
1328462SApril.Chin@Sun.COM		if ${nflags.dir} ; then
1338462SApril.Chin@Sun.COM			do_directory "${!node}" "$i"
1348462SApril.Chin@Sun.COM		fi
1358462SApril.Chin@Sun.COM	done
1368462SApril.Chin@Sun.COM
1378462SApril.Chin@Sun.COM	# remove empty lists
1388462SApril.Chin@Sun.COM	(( ${#tree.files[@]} == 0 )) && unset tree.files
1398462SApril.Chin@Sun.COM	(( ${#tree.dirs[@]} == 0 ))  && unset tree.dirs
1408462SApril.Chin@Sun.COM
1418462SApril.Chin@Sun.COM	return 0
1428462SApril.Chin@Sun.COM}
1438462SApril.Chin@Sun.COM
1448462SApril.Chin@Sun.COM
1458462SApril.Chin@Sun.COMfunction pathtovartree
1468462SApril.Chin@Sun.COM{
1478462SApril.Chin@Sun.COM	nameref tree=$1
1488462SApril.Chin@Sun.COM	typeset basedir="$2"
1498462SApril.Chin@Sun.COM
1508462SApril.Chin@Sun.COM	do_directory tree "${basedir}"
1518462SApril.Chin@Sun.COM
1528462SApril.Chin@Sun.COM	return 0
1538462SApril.Chin@Sun.COM}
1548462SApril.Chin@Sun.COM
1558462SApril.Chin@Sun.COMfunction usage
1568462SApril.Chin@Sun.COM{
1578462SApril.Chin@Sun.COM	OPTIND=0
1588462SApril.Chin@Sun.COM	getopts -a "${progname}" "${filetree1_usage}" OPT '-?'
1598462SApril.Chin@Sun.COM	exit 2
1608462SApril.Chin@Sun.COM}
1618462SApril.Chin@Sun.COM
1628462SApril.Chin@Sun.COM# program start
1638462SApril.Chin@Sun.COMbuiltin basename
1648462SApril.Chin@Sun.COMbuiltin cat
1658462SApril.Chin@Sun.COMbuiltin dirname
1668462SApril.Chin@Sun.COMbuiltin date
1678462SApril.Chin@Sun.COMbuiltin uname
1688462SApril.Chin@Sun.COM
1698462SApril.Chin@Sun.COMtypeset progname="${ basename "${0}" ; }"
1708462SApril.Chin@Sun.COM
1718462SApril.Chin@Sun.COMtypeset -r filetree1_usage=$'+
172*10898Sroland.mainz@nrubsig.org[-?\n@(#)\$Id: filetree1 (Roland Mainz) 2009-05-06 \$\n]
1738462SApril.Chin@Sun.COM[-author?Roland Mainz <roland.mainz@sun.com>]
1748462SApril.Chin@Sun.COM[-author?Roland Mainz <roland.mainz@nrubsig.org>]
1758462SApril.Chin@Sun.COM[+NAME?filetree1 - file tree demo]
1768462SApril.Chin@Sun.COM[+DESCRIPTION?\bfiletree1\b is a small ksh93 compound variable demo
1778462SApril.Chin@Sun.COM	which accepts a directory name as input, and then builds tree
1788462SApril.Chin@Sun.COM	nodes for all files+directories and stores all file attributes
1798462SApril.Chin@Sun.COM	in these notes and then outputs the tree in the format
180*10898Sroland.mainz@nrubsig.org	specified by viewmode (either "list", "namelist", "tree" or "compacttree")..]
1818462SApril.Chin@Sun.COM
1828462SApril.Chin@Sun.COMviewmode dirs
1838462SApril.Chin@Sun.COM
1848462SApril.Chin@Sun.COM[+SEE ALSO?\bksh93\b(1), \bfile\b(1)]
1858462SApril.Chin@Sun.COM'
1868462SApril.Chin@Sun.COM
1878462SApril.Chin@Sun.COMwhile getopts -a "${progname}" "${filetree1_usage}" OPT ; do
1888462SApril.Chin@Sun.COM#	printmsg "## OPT=|${OPT}|, OPTARG=|${OPTARG}|"
1898462SApril.Chin@Sun.COM	case ${OPT} in
1908462SApril.Chin@Sun.COM		*)	usage ;;
1918462SApril.Chin@Sun.COM	esac
1928462SApril.Chin@Sun.COMdone
1938462SApril.Chin@Sun.COMshift $((OPTIND-1))
1948462SApril.Chin@Sun.COM
1958462SApril.Chin@Sun.COMtypeset viewmode="$1"
1968462SApril.Chin@Sun.COMshift
1978462SApril.Chin@Sun.COM
198*10898Sroland.mainz@nrubsig.orgif [[ "${viewmode}" != ~(Elr)(list|namelist|tree|compacttree) ]] ; then
1998462SApril.Chin@Sun.COM	fatal_error $"Invalid view mode \"${viewmode}\"."
2008462SApril.Chin@Sun.COMfi
2018462SApril.Chin@Sun.COM
2028462SApril.Chin@Sun.COMtypeset -C myfiletree
2038462SApril.Chin@Sun.COM
2048462SApril.Chin@Sun.COMwhile (( $# > 0 )) ; do
2058462SApril.Chin@Sun.COM	print -u2 -f "# Scanning %s ...\n" "${1}"
2068462SApril.Chin@Sun.COM	pathtovartree myfiletree "${1}"
2078462SApril.Chin@Sun.COM	shift
2088462SApril.Chin@Sun.COMdone
2098462SApril.Chin@Sun.COMprint -u2 $"#parsing completed."
2108462SApril.Chin@Sun.COM
2118462SApril.Chin@Sun.COMcase "${viewmode}" in
2128462SApril.Chin@Sun.COM	list)
2138462SApril.Chin@Sun.COM		set | egrep "^myfiletree\[" | fgrep -v ']=$'
2148462SApril.Chin@Sun.COM		;;
2158462SApril.Chin@Sun.COM	namelist)
2168462SApril.Chin@Sun.COM		typeset + | egrep "^myfiletree\["
2178462SApril.Chin@Sun.COM		;;
2188462SApril.Chin@Sun.COM	tree)
219*10898Sroland.mainz@nrubsig.org		print -v myfiletree
220*10898Sroland.mainz@nrubsig.org		;;
221*10898Sroland.mainz@nrubsig.org	compacttree)
222*10898Sroland.mainz@nrubsig.org		print -C myfiletree
2238462SApril.Chin@Sun.COM		;;
2248462SApril.Chin@Sun.COM	*)
2258462SApril.Chin@Sun.COM		fatal_error $"Invalid view mode \"${viewmode}\"."
2268462SApril.Chin@Sun.COM		;;
2278462SApril.Chin@Sun.COMesac
2288462SApril.Chin@Sun.COM
2298462SApril.Chin@Sun.COMprint -u2 $"#done."
2308462SApril.Chin@Sun.COM
2318462SApril.Chin@Sun.COMexit 0
2328462SApril.Chin@Sun.COM# EOF.
233