Imported Upstream version 93u+upstream

1 files changed, 179 insertions, 0 deletions

diff --git a/src/cmd/INIT/execrate.sh b/src/cmd/INIT/execrate.sh
new file mode 100644
index 0000000..71ba78d
--- /dev/null
+++ b/src/cmd/INIT/execrate.sh
@@ -0,0 +1,179 @@
+########################################################################
+#                                                                      #
+#               This software is part of the ast package               #
+#          Copyright (c) 1994-2011 AT&T Intellectual Property          #
+#                      and is licensed under the                       #
+#                 Eclipse Public License, Version 1.0                  #
+#                    by AT&T Intellectual Property                     #
+#                                                                      #
+#                A copy of the License is available at                 #
+#          http://www.eclipse.org/org/documents/epl-v10.html           #
+#         (with md5 checksum b35adb5213ca9657e911e9befb180842)         #
+#                                                                      #
+#              Information and Software Systems Research               #
+#                            AT&T Research                             #
+#                           Florham Park NJ                            #
+#                                                                      #
+#                 Glenn Fowler <gsf@research.att.com>                  #
+#                                                                      #
+########################################################################
+: wrapper for .exe challenged win32 systems/commands
+
+command=execrate
+
+bins='/bin /usr/bin /usr/sbin'
+
+case `(getopts '[-][123:xyz]' opt --xyz; echo 0$opt) 2>/dev/null` in
+0123)	ARGV0="-a $command"
+	USAGE=$'
+[-?
+@(#)$Id: execrate (AT&T Labs Research) 2002-02-02 $
+]
+'$USAGE_LICENSE$'
+[+NAME?execrate - wrapper for .exe challenged commands]
+[+DESCRIPTION?\bexecrate\b runs \acommand\a after checking the \afile\a
+	operands for standard semantics with respect to \bwin32\b \b.exe\b
+	suffix conventions. This command is only needed on \bwin32\b
+	systems that inconsistently handle \b.exe\b across library and
+	command interfaces. \acommand\a may be one of \bcat\b(1), \bchmod\b(1),
+	\bcmp\b(1), \bcp\b(1), \bln\b(1), \bmv\b(1), or \brm\b(1).
+	Only the 2 argument forms of \bcp\b, \bln\b and \bmv\b are handled.
+	Unsupported commands and commands requiring no change are
+	silently executed.]
+[+?With no arguments \bexecrate\b exits with status 0 if the current system
+	is \b.exe\b challenged, 1 if the current system is normal.]
+[n:show?Show the underlying commands but do not execute.]
+
+command [ option ... ] file ...
+
+[+SEE ALSO?\bwebster\b(1)]
+'
+	usage()
+	{
+		OPTIND=0
+		getopts $ARGV0 "$USAGE" OPT '-?'
+		exit 2
+	}
+	exec=1
+	while	getopts $ARGV0 "$USAGE" OPT
+	do	case $OPT in
+		n)	exec=0 ;;
+		*)	usage ;;
+		esac
+	done
+	shift `expr $OPTIND - 1`
+	;;
+*)	usage()
+	{
+		echo "Usage: execrate [ -n ] [ command [ option ... ] file ... ]" >&2
+		exit 2
+	}
+	exec=1
+	while	:
+	do	case $1 in
+		-n)	exec=0 ;;
+		-*)	usage ;;
+		*)	break ;;
+		esac
+		shift
+	done
+	;;
+esac
+case $# in
+0)	if	test ! -x /bin/cat.exe
+	then	exit 1 # normal
+	fi
+	if	/bin/cat /bin/cat >/dev/null 2>&1
+	then	exit 1 # normal
+	fi
+	exit 0 # challenged
+	;;
+1)	usage
+	;;
+esac
+case $1 in
+*cat|*rm)
+	NUM=0
+	;;
+*chgrp|*chmod)
+	NUM=1
+	;;
+*cmp|*cp|*ln|*mv)
+	NUM=2
+	;;
+*)	case $exec in
+	0)	echo "$@" ;;
+	*)	"$@" ;;
+	esac
+	exit
+	;;
+esac
+CMD=$1
+shift
+case $CMD in
+*/*)	;;
+*)	for d in $bins
+	do	if	test -x $d/$1 -o -x $d/$1.exe
+		then	CMD=$d/$1
+			break
+		fi
+	done
+	;;
+esac
+while	:
+do	case $1 in
+	-*)	CMD="$CMD $1" ;;
+	*)	break ;;
+	esac
+	shift
+done
+case $exec in
+0)	CMD="echo $CMD" ;;
+esac
+case $NUM:$# in
+*:0)	;;
+1:*)	CMD="$CMD $1"
+	NUM=0
+	shift
+	;;
+esac
+case $NUM:$# in
+0:*)	status=0
+	for f
+	do	if	test "$f" -ef "$f".exe
+		then	f=$f.exe
+		fi
+		$CMD "$f"
+		case $? in
+		0)	;;
+		*)	status=$? ;;
+		esac
+	done
+	exit $status
+	;;
+2:2)	f=$1
+	case $f in
+	*.exe)	;;
+	*)	if	test "$f" -ef "$f".exe
+		then	f=$f.exe
+		fi
+		;;
+	esac
+	case $f in
+	*.exe)	if	test -d "$2"
+		then	t=$2/$f
+		else	t=$2
+		fi
+		case $t in
+		*/*)	b=`basename "$t"` ;;
+		*)	b=$t ;;
+		esac
+		case $b in
+		*.*)	$CMD "$f" "$t"; exit ;;
+		*)	$CMD "$f" "$t".exe; exit ;;
+		esac
+		;;
+	esac
+	;;
+esac
+$CMD "$@"