diff --git a/bin/sde-list-files b/bin/sde-list-files
new file mode 100755
index 0000000..ca9e050
--- /dev/null
+++ b/bin/sde-list-files
@@ -0,0 +1,114 @@
+#!/bin/sh
+# --- SDE-COPYRIGHT-NOTE-BEGIN ---
+# This copyright note is auto-generated by ./scripts/Create-CopyPatch.
+# 
+# Filename: bin/sde-list-files
+# Copyright (C) 2007 The OpenSDE Project
+# 
+# More information can be found in the files COPYING and README.
+# 
+# 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; version 2 of the License. A copy of the
+# GNU General Public License can be found in the file COPYING.
+# --- SDE-COPYRIGHT-NOTE-END ---
+
+# This script returns a list of locations in SDEROOT relative form
+#
+
+[ -n "$SDEROOT" ] ||
+	export SDEROOT=$( cd "${0%/*}/.."; pwd -P )
+
+. $SDEROOT/lib/libsde.in
+
+list_usage() {
+	local progname=${0##*/}
+	cat <<EOT
+Usage:	$progname [--absolute] [--roots] [FILES...]
+EOT
+}
+
+shortopts='a'
+longopts='roots,absolute'
+options=$( getopt -o "$shortopts" -l "$longopts" -- "$@" )
+if [ $? -ne 0 ]; then
+	list_usage
+	exit -1
+fi
+
+# load new arguments list
+eval set -- "$options"
+
+show_roots=
+show_absolute_path=
+
+while [ $# -gt 0 ]; do
+	case "$1" in
+		--roots)	show_roots=1 ;;
+		-a|--absolute)	show_absolute_path=1 ;;
+
+		--)	shift; break ;;
+		*)	echo_abort 1 "Unknown argument '$1', aborting."
+	esac
+	shift
+done
+
+print_error() { echo "$@" >&2; }
+
+print_file() {
+	local file="$1" root="$2"
+
+	if [ -z "$root" ]; then
+		# only filename
+		[ -n "$show_absolute_path" ] || file="${file#$SDEROOT/}"
+	elif [ "$root" == "." ]; then
+		# $SDEROOT is the root
+
+		[ -z "$show_absolute_path" ] || root="$SDEROOT"
+	else
+		[ -z "$show_absolute_path" ] || root="$SDEROOT/$root"
+	fi
+		
+	if [ -n "$root" ]; then
+		echo "$root	${file#$SDEROOT/}"
+	else
+		echo "$file"
+	fi
+}
+
+for x; do
+	y=
+	if [ -e "$x" ]; then
+		if [ "${x:0:1}" == "/" ]; then
+			# absolute
+			y="$x"
+		else
+			# $PWD relative
+			y="$PWD/$x"
+		fi
+	elif [ -e "$SDEROOT/$x" ]; then
+		# $SDEROOT relative
+		y="$SDEROOT/$x"
+	fi
+
+	# canonicalize
+	[ -z "$y" ] || y=$( readlink -f "$y" )
+
+	# analyse
+	if [ -z "$y" ]; then
+		# missing
+		print_error "$x: not found."
+	elif [ "$y" == "$SDEROOT" ]; then
+		# uh, the root itself
+		print_file "." "."
+	elif ! expr "$y" : "$SDEROOT/*" > /dev/null; then
+		# missing
+		print_error "$x: outside the tree."
+	elif [ -n "$show_roots" ]; then
+		# detect the right VCS roots and split the output accordingly
+		print_file "$y" "."
+	else
+		# just output the list
+		print_file "$y"
+	fi
+done