Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
README	5.85 KB	-rw-r--r--
clmerge	3.79 KB	-rwxr-xr-x
cln_hist	2.41 KB	-rwxr-xr-x
cvs2vendor	5.1 KB	-rwxr-xr-x
debug_check_log	4.74 KB	-rwxr-xr-x
descend.man	2.39 KB	-rw-r--r--
descend.sh	3 KB	-rwxr-xr-x
pvcs2rcs	42.87 KB	-rwxr-xr-x
rcs-to-cvs	5 KB	-rwxr-xr-x
rcs2log	19.19 KB	-rwxr-xr-x
rcs2log.1	2.49 KB	-rw-r--r--
rcs2sccs.sh	4.53 KB	-rwxr-xr-x
sandbox_status	2.77 KB	-rwxr-xr-x
sandbox_status.man	1.37 KB	-rw-r--r--
validate_repo	23.98 KB	-rwxr-xr-x

Code Editor : descend.sh

#! /bin/sh
#
# Copyright (C) 1995-2005 The Free Software Foundation, Inc.
#
# This program 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 2, or (at your option)
# any later version.
#
# This program 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.
#
# descend - walk down a directory tree and execute a command at each node

fullname=$0
name=descend
usage="Usage: $name [-afqrv] command [directory ...]\n
\040\040-a\040\040All: descend into directories starting with '.'\n
\040\040-f\040\040Force: ignore errors during descent\n
\040\040-q\040\040Quiet: don't print directory names\n
\040\040-r\040\040Restricted: don't descend into RCS, CVS.adm, SCCS directories\n
\040\040-v\040\040Verbose: print command before executing it"

# Scan for options
while getopts afqrv option; do
    case $option in
	a)
	    alldirs=$option
	    options=$options" "-$option
	    ;;
	f)
	    force=$option
	    options=$options" "-$option
	    ;;
	q)
	    verbose=
	    quiet=$option
	    options=$options" "-$option
	    ;;
	r)
	    restricted=$option
	    options=$options" "-$option
	    ;;
	v)
	    verbose=$option
	    quiet=
	    options=$options" "-$option
	    ;;
	\?)
	    /usr/5bin/echo $usage 1>&2
	    exit 1
	    ;;
    esac
done
shift `expr $OPTIND - 1`

# Get command to execute
if [ $# -lt 1 ] ; then
    /usr/5bin/echo $usage 1>&2
    exit 1
else
    command=$1
    shift
fi

# If no directory specified, use '.'
if [ $# -lt 1 ] ; then
    default_dir=.
fi

# For each directory specified
for dir in $default_dir "$@" ; do

# Spawn sub-shell so we return to starting directory afterward
    (cd $dir

# Execute specified command
	if [ -z "$quiet" ] ; then
	    echo In directory `hostname`:`pwd`
	fi
	if [ -n "$verbose" ] ; then
	    echo $command
	fi
	eval "$command" || if [ -z "$force" ] ; then exit 1; fi

# Collect dot file names if necessary
	if [ -n "$alldirs" ] ; then
	    dotfiles=.*
	else
	    dotfiles=
	fi

# For each file in current directory
	for file in $dotfiles * ; do

# Skip '.' and '..'
	    if [ "$file" = "." -o "$file" = ".." ] ; then
		continue
	    fi

# If a directory but not a symbolic link
	    if [ -d "$file" -a ! -h "$file" ] ; then

# If not skipping this type of directory
		if [ $ "$file" != "RCS" -a \
			"$file" != "SCCS" -a \
			"$file" != "CVS" -a \
			"$file" != "CVS.adm" $ \
			-o -z "$restricted" ] ; then

# Recursively descend into it
		    $fullname $options "$command" "$file" \
		    || if [ -z "$force" ] ; then exit 1; fi
		fi

# Else if a directory AND a symbolic link
	    elif [ -d "$file" -a -h "$file" ] ; then

if [ -z "$quiet" ] ; then
		    echo In directory `hostname`:`pwd`/$file: symbolic link: skipping
		fi
	    fi
	done
    ) || if [ -z "$force" ] ; then exit 1; fi
done

${this.title}

Code Editor : descend.sh