7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin#!/usr/bin/ksh93
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin#
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin# CDDL HEADER START
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin#
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin# The contents of this file are subject to the terms of the
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin# Common Development and Distribution License (the "License").
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin# You may not use this file except in compliance with the License.
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin#
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin# You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin# or http://www.opensolaris.org/os/licensing.
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin# See the License for the specific language governing permissions
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin# and limitations under the License.
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin#
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin# When distributing Covered Code, include this CDDL HEADER in each
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin# file and include the License file at usr/src/OPENSOLARIS.LICENSE.
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin# If applicable, add the following below this CDDL HEADER, with the
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin# fields enclosed by brackets "[]" replaced with your own identifying
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin# information: Portions Copyright [yyyy] [name of copyright owner]
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin#
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin# CDDL HEADER END
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin#
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin#
3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner# Copyright (c) 2008, 2010, Oracle and/or its affiliates. All rights reserved.
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin#
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin# Solaris needs /usr/xpg6/bin:/usr/xpg4/bin because the tools in /usr/bin are not POSIX-conformant
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chinexport PATH=/usr/xpg6/bin:/usr/xpg4/bin:/bin:/usr/bin
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin# Make sure all math stuff runs in the "C" locale to avoid problems
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin# with alternative # radix point representations (e.g. ',' instead of
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin# '.' in de_DE.*-locales). This needs to be set _before_ any
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin# floating-point constants are defined in this script).
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chinif [[ "${LC_ALL}" != "" ]] ; then
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin export \
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin LC_MONETARY="${LC_ALL}" \
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin LC_MESSAGES="${LC_ALL}" \
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin LC_COLLATE="${LC_ALL}" \
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin LC_CTYPE="${LC_ALL}"
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin unset LC_ALL
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chinfi
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chinexport LC_NUMERIC=C
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chinfunction fatal_error
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin{
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin print -u2 "${progname}: $*"
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin exit 1
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin}
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chinfunction do_directory
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin{
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin nameref tree=$1
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin typeset basedir="$2"
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin typeset basename
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin typeset dirname
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin typeset i
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin typeset dummy
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz typeset -C -A tree.files
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz typeset -C -A tree.dirs
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin find "${basedir}"/* -prune 2>/dev/null | while read i ; do
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin dirname="$(dirname "$i")"
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin basename="$(basename "$i")"
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin # define "node"
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if [[ -d "$i" ]] ; then
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin typeset -C tree.dirs["${basename}"]
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin nameref node=tree.dirs["${basename}"]
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin typeset -C node.flags
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin node.flags.dir="true"
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin node.flags.file="false"
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin else
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin typeset -C tree.files["${basename}"]
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin nameref node=tree.files["${basename}"]
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin typeset -C node.flags
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin node.flags.dir="false"
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin node.flags.file="true"
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin fi
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin # basic attributes
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin typeset -C node.paths=(
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin dirname="${dirname}"
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin basename="${basename}"
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin path="${i}"
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin )
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin nameref nflags=node.flags
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin [[ -r "$i" ]] && nflags.readable="true" || nflags.readable="false"
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin [[ -w "$i" ]] && nflags.writeable="true" || nflags.writeable="false"
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin [[ -x "$i" ]] && nflags.executable="true" || nflags.executable="false"
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin [[ -b "$i" ]] && nflags.blockdevice="true" || nflags.blockdevice="false"
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin [[ -c "$i" ]] && nflags.characterdevice="true" || nflags.characterdevice="false"
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin [[ -S "$i" ]] && nflags.socket="true" || nflags.socket="false"
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin [[ -L "$i" ]] && nflags.symlink="true" || nflags.symlink="false"
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin integer node.size
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin integer node.links
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin typeset -C node.owner
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin ( [[ -x /usr/bin/runat ]] && ls -@ade "$i" || ls -lade "$i" ) |
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin IFS=' ' read \
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin node.mask \
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin node.links \
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin node.owner.uid \
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin node.owner.gid \
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin node.size \
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin dummy
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin typeset -C node.extended_attributes
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if [[ ${node.mask} == ~(Er)@ ]] ; then
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin node.extended_attributes.hasattrs="true"
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin typeset -a attrlist=(
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin $( runat "$i" "ls -1" )
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin )
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin else
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin node.extended_attributes.hasattrs="false"
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin fi
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if ${nflags.readable} ; then
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin # note that /usr/xpg4/bin/file does not use $'\t' as seperator - we
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin # have to use ':' instead.
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin file -h "$i" | IFS=' ' read dummy node.filetype
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin fi
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if ${nflags.dir} ; then
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin do_directory "${!node}" "$i"
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin fi
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin done
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin # remove empty lists
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin (( ${#tree.files[@]} == 0 )) && unset tree.files
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin (( ${#tree.dirs[@]} == 0 )) && unset tree.dirs
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin return 0
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin}
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chinfunction pathtovartree
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin{
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin nameref tree=$1
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin typeset basedir="$2"
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin do_directory tree "${basedir}"
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin return 0
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin}
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chinfunction usage
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin{
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin OPTIND=0
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin getopts -a "${progname}" "${filetree1_usage}" OPT '-?'
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin exit 2
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin}
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin# program start
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chinbuiltin basename
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chinbuiltin cat
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chinbuiltin dirname
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chinbuiltin date
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chinbuiltin uname
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chintypeset progname="${ basename "${0}" ; }"
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chintypeset -r filetree1_usage=$'+
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz[-?\n@(#)\$Id: filetree1 (Roland Mainz) 2009-05-06 \$\n]
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin[-author?Roland Mainz <roland.mainz@sun.com>]
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin[-author?Roland Mainz <roland.mainz@nrubsig.org>]
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin[+NAME?filetree1 - file tree demo]
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin[+DESCRIPTION?\bfiletree1\b is a small ksh93 compound variable demo
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin which accepts a directory name as input, and then builds tree
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin nodes for all files+directories and stores all file attributes
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin in these notes and then outputs the tree in the format
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz specified by viewmode (either "list", "namelist", "tree" or "compacttree")..]
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chinviewmode dirs
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin[+SEE ALSO?\bksh93\b(1), \bfile\b(1)]
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin'
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chinwhile getopts -a "${progname}" "${filetree1_usage}" OPT ; do
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin# printmsg "## OPT=|${OPT}|, OPTARG=|${OPTARG}|"
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin case ${OPT} in
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin *) usage ;;
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin esac
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chindone
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chinshift $((OPTIND-1))
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chintypeset viewmode="$1"
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chinshift
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainzif [[ "${viewmode}" != ~(Elr)(list|namelist|tree|compacttree) ]] ; then
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin fatal_error $"Invalid view mode \"${viewmode}\"."
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chinfi
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chintypeset -C myfiletree
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chinwhile (( $# > 0 )) ; do
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin print -u2 -f "# Scanning %s ...\n" "${1}"
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin pathtovartree myfiletree "${1}"
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin shift
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chindone
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chinprint -u2 $"#parsing completed."
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chincase "${viewmode}" in
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin list)
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin set | egrep "^myfiletree\[" | fgrep -v ']=$'
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin ;;
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin namelist)
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin typeset + | egrep "^myfiletree\["
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin ;;
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin tree)
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz print -v myfiletree
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz ;;
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz compacttree)
34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz print -C myfiletree
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin ;;
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin *)
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin fatal_error $"Invalid view mode \"${viewmode}\"."
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin ;;
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chinesac
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chinprint -u2 $"#done."
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chinexit 0
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin# EOF.