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