Imported from ../bash-2.04.tar.gz.

examples/functions/array-stuff

@@ -0,0 +1,103 @@
+# usage: reverse arrayname
+reverse()
+{
+	local -a R
+	local -i i
+	local rlen temp
+
+	# make r a copy of the array whose name is passed as an arg
+	eval R=\( \"\$\{$1\[@\]\}\" \)
+
+	# reverse R
+	rlen=${#R[@]}
+
+	for ((i=0; i < rlen/2; i++ ))
+	do
+		temp=${R[i]}
+		R[i]=${R[rlen-i-1]}
+		R[rlen-i-1]=$temp
+	done
+
+	# and assign R back to array whose name is passed as an arg
+	eval $1=\( \"\$\{R\[@\]\}\" \)
+}
+
+A=(1 2 3 4 5 6 7)
+echo "${A[@]}"
+reverse A
+echo "${A[@]}"
+reverse A
+echo "${A[@]}"
+
+# unset last element of A
+alen=${#A[@]}
+unset A[$alen-1]
+echo "${A[@]}"
+
+# ashift -- like shift, but for arrays
+
+ashift()
+{
+	local -a R
+	local n
+
+	case $# in
+	1)	n=1 ;;
+	2)	n=$2 ;;
+	*)	echo "$FUNCNAME: usage: $FUNCNAME array [count]" >&2
+		exit 2;;
+	esac
+
+	# make r a copy of the array whose name is passed as an arg
+	eval R=\( \"\$\{$1\[@\]\}\" \)
+
+	# shift R
+	R=( "${R[@]:$n}" )
+
+	# and assign R back to array whose name is passed as an arg
+	eval $1=\( \"\$\{R\[@\]\}\" \)
+}
+
+ashift A 2
+echo "${A[@]}"
+
+ashift A
+echo "${A[@]}"
+
+ashift A 7
+echo "${A[@]}"
+
+# Sort the members of the array whose name is passed as the first non-option
+# arg.  If -u is the first arg, remove duplicate array members.
+array_sort()
+{
+	local -a R
+	local u
+
+	case "$1" in
+	-u)	u=-u ; shift ;;
+	esac
+
+	if [ $# -eq 0 ]; then
+		echo "array_sort: argument expected" >&2
+		return 1
+	fi
+
+	# make r a copy of the array whose name is passed as an arg
+	eval R=\( \"\$\{$1\[@\]\}\" \)
+
+	# sort R
+	R=( $( printf "%s\n" "${A[@]}" | sort $u) )
+
+	# and assign R back to array whose name is passed as an arg
+	eval $1=\( \"\$\{R\[@\]\}\" \)
+	return 0
+}
+
+A=(3 1 4 1 5 9 2 6 5 3 2)
+array_sort A
+echo "${A[@]}"
+
+A=(3 1 4 1 5 9 2 6 5 3 2)
+array_sort -u A
+echo "${A[@]}"

examples/functions/isnum.bash

@@ -11,7 +11,7 @@
 # BASH NOTE: make sure you have executed `shopt -s extglob' before
 # trying to use this function, or it will not work
 
-function isnum # string
+isnum() # string
 {
     case $1 in
     ?([-+])+([0-9])?(.)*([0-9])?([Ee]?([-+])+([0-9])) )
@@ -21,3 +21,32 @@ function isnum # string
     *) return 1;;
     esac
 }
+
+isnum2() # string
+{
+    case $1 in
+    ?([-+])+([[:digit:]])?(.)*([[:digit:]])?([Ee]?([-+])+([[:digit:]])) )
+        return 0;;
+    ?([-+])*([[:digit:]])?(.)+([[:digit:]])?([Ee]?([-+])+([[:digit:]])) )
+        return 0;;
+    *) return 1;;
+    esac
+}
+
+isint() # string
+{
+    case $1 in
+    ?([-+])+([0-9]) )
+        return 0;;
+    *) return 1;;
+    esac
+}
+
+isint2() # string
+{
+    case $1 in
+    ?([-+])+([[:digit:]]) )
+        return 0;;
+    *) return 1;;
+    esac
+}

examples/functions/ksh-compat-test

@@ -0,0 +1,40 @@
+#
+# replacements for test/[ that do arithmetic expansion on the operands to
+# the arithmetic operators, like ksh.
+#
+function test()
+{
+        local -i n1 n3
+        case "$#" in
+        3)      case "$2" in
+                -lt|-gt|-eq|-ne|-le|-ge)        n1=$(( $1 ))
+                                                n3=$(( $3 ))
+                                                builtin test "$n1" $2 "$n3"
+                                                return $?;;
+                *)      builtin test "$@" ;;
+                esac;;                                                          
+        *)      builtin test "$@" ;;
+        esac
+}
+
+function [()
+{
+        local -i n1 n3
+        case "$#" in
+        4)      case "$2" in
+                -lt|-gt|-eq|-ne|-le|-ge)        n1=$(( $1 ))
+                                                n3=$(( $3 ))
+                                                builtin [ "$n1" $2 "$n3" ]
+                                                return $?;;
+                *)      builtin [ "$@" ;;
+                esac;;                                                          
+        *)      builtin [ "$@" ;;
+        esac
+}
+
+q=7
+
+[ q -lt 10 ]
+echo $?
+[ $q -lt 10 ]
+echo $?

examples/functions/kshenv

@@ -10,12 +10,13 @@
 # are others, but we already have substitutes for them: "history", "type",
 # and "hash".
 #
-alias r="fc -e -"
+alias r="fc -s"
 alias functions="typeset -f"
 alias integer="typeset -i"
 alias nohup="nohup "
-alias true=":"
-alias false="let 0"
+alias command="command "
+alias stop="kill -s STOP"
+alias redirect="command exec"
 alias hist="fc"
 
 #
@@ -29,38 +30,65 @@ alias hist="fc"
 
 whence()
 {
-	local vflag
+	local vflag pflag fflag defarg c
 	local path
 
-	vflag=
+	vflag= aflag= pflag= fflag=
 	path=
 	if [ "$#" = "0" ] ; then
-		echo "whence: argument expected"
-		return 1
+		echo "whence: usage: whence [-afpv] name..." >&2
+		return 2
 	fi
-	case "$1" in
-	-v) vflag=1 ; shift 1 ;;
-	-*) echo "whence: bad option: $1" ; return 1 ;;
-	 *) ;;
-	esac
+
+	OPTIND=1
+	while getopts "avfp" c
+	do
+		case "$c" in
+		a) defarg=-a ;;
+		f) fflag=1 ;;	# no-op
+		p) pflag=1 ;;
+		v) vflag=1 ;;
+		?) echo "whence: $1: unknown option" >&2
+		   echo "whence: usage: whence [-afpv] name..." >&2
+		   return 2 ;;
+		esac
+	done
+
+	shift $(( $OPTIND - 1 ))
 
 	if [ "$#" = "0" ] ; then
-		echo "whence: bad argument count"
-		return 1
+		echo "whence: usage: whence [-afpv] name..." >&2
+		return 2
 	fi
 
 	for cmd
 	do
 		if [ "$vflag" ]	 ; then
-			echo $(builtin type $cmd | sed 1q)
+			if [ -z "$defarg" ]; then
+				builtin type $cmd | sed 1q
+			else
+				if builtin type $defarg -t $cmd | grep 'function$' >/dev/null 2>&1; then
+					# HAIRY awk script to suppress
+					# printing of function body -- could
+					# do it with sed, but I don't have
+					# that kind of time
+					builtin type $defarg $cmd | awk '
+BEGIN {printit = 1;}
+$1 == "'$cmd'" && $2 == "()" {printit=0; next; }
+/^}$/ { if (printit == 0) printit=1 ; else print $0; next ; }
+/.*/ { if (printit) print $0; }'
+				else
+					builtin type $defarg $cmd
+				fi
+			fi
 		else
-			path=$(builtin type -path $cmd)
+			path=$(builtin type $defarg -p $cmd)
 			if [ "$path" ] ; then
 				echo $path
 			else
 				case "$cmd" in
 				/*) echo "" ;;
-				 *) case "$(builtin type -type $cmd)" in
+				 *) case "$(builtin type -t $cmd)" in
 				    "") echo "" ;;
 				    *) echo "$cmd" ;;
 				    esac
@@ -88,22 +116,27 @@ cd()
 	1) 	builtin cd "$@" ;;
 	2)	old="$1"
 		new="$2"
-		dir=$(echo "$PWD" | sed "s:$old:$new:g")
+		# dir=$(echo "$PWD" | sed "s:$old:$new:g")
+		dir=${PWD//$old/$new}
 		case "$dir" in
-		"$PWD")	echo "bash: cd: bad substitution" >&2 ; return 1 ;;
+		"$PWD")	case "$PWD" in
+			*$old*) ;;
+			*) echo "$FUNCNAME: bad substitution" >&2 ; return 1 ;;
+			esac ;;
 		*)	echo "$dir"
 			builtin cd "$dir"
 			;;
 		esac
 		;;
-	*)	echo "cd: wrong arg count" >&2 ; return 1 ;;
+	*)	echo "$FUNCNAME: usage: $FUNCNAME [-LP] [dir] [change]" >&2
+		return 1 ;;
 	esac
 }
 
 #
 # ksh print emulation
 #
-#	print [-Rnprsu[n]] [arg ...]
+#	print [-Rnprsu[n]] [-f format] [arg ...]
 #
 #	-	end of options
 #	-R	BSD-style -- only accept -n, no escapes
@@ -112,27 +145,34 @@ cd()
 #	-r	no escapes
 #	-s	print to the history file
 #	-u n	redirect output to fd n
+#	-f format	printf "$format" "$@"
 #
 
 print()
 {
 	local eflag=-e
-	local nflag=
+	local nflag= fflag= c
 	local fd=1
 
 	OPTIND=1
-	while getopts "Rnprsu:" c
+	while getopts "fRnprsu:" c
 	do
 		case $c in
 		R)	eflag= ;;
 		r)	eflag= ;;
 		n)	nflag=-n ;;
 		s)	sflag=y ;;
+		f)	fflag=y ;;
 		u)	fd=$OPTARG ;;
 		p)	;;
 		esac
 	done
-	shift $[ $OPTIND - 1 ]
+	shift $(( $OPTIND - 1 ))
+
+	if [ -n "$fflag" ]; then
+		builtin printf "$@" >&$fd
+		return
+	fi
 
 	case "$sflag" in
 	y)	builtin history -s "$*" ;;

examples/functions/lowercase

@@ -9,6 +9,7 @@
 lowercase()
 {
 	for file; do
+		[ -f "$file" ] || continue
 		filename=${file##*/}
 		case "$filename" in
 		*/*)    dirname=${file%/*} ;;

examples/functions/pathfuncs

@@ -17,9 +17,6 @@
 # AUTHOR:
 #	Simon J. Gerraty <sjg@zen.void.oz.au>
 
-# RCSid:
-#	$Id: add_path.sh,v 1.1 1995/09/30 12:45:23 sjg Exp $
-#
 #	@(#)Copyright (c) 1991 Simon J. Gerraty
 #
 #	This file is provided in the hope that it will

examples/functions/which

@@ -6,7 +6,7 @@
 
 which()
 {
-	local aflag sflag ES a
+	local aflag sflag ES a opt
 
 	OPTIND=1
 	while builtin getopts as opt ; do

examples/functions/xfind.bash

@@ -0,0 +1,52 @@
+#! /bin/bash
+#From: kaz@cafe.net (Kaz Kylheku)
+#Newsgroups: comp.unix.shell
+#Subject: Why not roll your own @#$% find! (was: splitting directory off from filename)
+#Message-ID: <6n1117$tp1@espresso.cafe.net>
+#Date: Fri, 26 Jun 1998 20:47:34 GMT
+
+# $1 = dirname, $2 = pattern, optional $3 = action
+xfind()
+{
+	local x
+	local dir="$1"
+
+	# descend into specified directory
+
+	builtin cd -L "$1" || {
+		echo "${FUNCNAME}: cannot change dir to $1" >&2
+		return 1
+	}
+
+	#
+	# default action is to print the filename
+	#
+	if [ -n "$3" ]; then
+		action="$3"
+	else
+		action='printf -- "%s\n"'
+	fi
+
+	# process ordinary files that match pattern
+
+	for x in $2 ; do 
+		if [ -f "$x" ] ; then
+			eval "$action" "$x"
+		fi
+	done
+
+	# now descend into subdirectories, avoiding symbolic links
+	# and directories that start with a period.
+
+	for x in * ; do
+		if [ -d "$x" -a ! -L "$x" ] ; then 
+			$FUNCNAME "$x" "$2" "$action"
+		fi
+	done
+
+	# finally, pop back up
+
+	builtin cd -L ..
+}
+
+#xfind "$@"