svn commit: r256683 - user/pho/stress2/tools

[Peter Holm]

Author: pho
Date: Thu Oct 17 12:43:29 2013
New Revision: 256683
URL: http://svnweb.freebsd.org/changeset/base/256683

Log:
  Added tool for shuffling tests for hosts that does not have perl or
  random(6) installed.
  
  Sponsored by:	EMC / Isilon storage division

Added:
  user/pho/stress2/tools/shuffle   (contents, props changed)

Added: user/pho/stress2/tools/shuffle
==============================================================================
--- /dev/null	00:00:00 1970	(empty, because file is newly added)
+++ user/pho/stress2/tools/shuffle	Thu Oct 17 12:43:29 2013	(r256683)
@@ -0,0 +1,49 @@
+#!/usr/bin/awk -f
+
+#
+# Copyright (c) 2013 EMC Corp.
+# All rights reserved.
+#
+# Redistribution and use in source and binary forms, with or without
+# modification, are permitted provided that the following conditions
+# are met:
+# 1. Redistributions of source code must retain the above copyright
+#    notice, this list of conditions and the following disclaimer.
+# 2. Redistributions in binary form must reproduce the above copyright
+#    notice, this list of conditions and the following disclaimer in the
+#    documentation and/or other materials provided with the distribution.
+#
+# THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
+# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+# ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
+# FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+# OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+# HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+# LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+# SUCH DAMAGE.
+#
+# $FreeBSD$
+#
+
+# Shuffle arguments. Alternative to:
+# perl -e 'print splice(@ARGV,rand(@ARGV),1), " " while @ARGV;'
+# or
+# echo $list | tr ' ' '\n' | random -w | tr '\n' ' '
+
+BEGIN {
+	srand(); rand
+}
+{
+	n = split($0, a, " ")
+	for (i = 1; i <= n ; i++) {
+		do
+			ix = int(rand * n) + 1
+		while (! (ix in a))
+		printf "%s ", a[ix]
+		delete a[ix]
+	}
+	printf "\n"
+}