From owner-svn-src-user@FreeBSD.ORG Thu Oct 17 12:43:30 2013 Return-Path: Delivered-To: svn-src-user@freebsd.org Received: from mx1.freebsd.org (mx1.freebsd.org [8.8.178.115]) (using TLSv1 with cipher ADH-AES256-SHA (256/256 bits)) (No client certificate requested) by hub.freebsd.org (Postfix) with ESMTP id 5F669DAC; Thu, 17 Oct 2013 12:43:30 +0000 (UTC) (envelope-from pho@FreeBSD.org) Received: from svn.freebsd.org (svn.freebsd.org [IPv6:2001:1900:2254:2068::e6a:0]) (using TLSv1.2 with cipher ECDHE-RSA-AES256-GCM-SHA384 (256/256 bits)) (No client certificate requested) by mx1.freebsd.org (Postfix) with ESMTPS id 336E32C80; Thu, 17 Oct 2013 12:43:30 +0000 (UTC) Received: from svn.freebsd.org ([127.0.1.70]) by svn.freebsd.org (8.14.7/8.14.7) with ESMTP id r9HChUGW076019; Thu, 17 Oct 2013 12:43:30 GMT (envelope-from pho@svn.freebsd.org) Received: (from pho@localhost) by svn.freebsd.org (8.14.7/8.14.5/Submit) id r9HChUda076018; Thu, 17 Oct 2013 12:43:30 GMT (envelope-from pho@svn.freebsd.org) Message-Id: <201310171243.r9HChUda076018@svn.freebsd.org> From: Peter Holm Date: Thu, 17 Oct 2013 12:43:30 +0000 (UTC) To: src-committers@freebsd.org, svn-src-user@freebsd.org Subject: svn commit: r256683 - user/pho/stress2/tools X-SVN-Group: user MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit X-BeenThere: svn-src-user@freebsd.org X-Mailman-Version: 2.1.14 Precedence: list List-Id: "SVN commit messages for the experimental " user" src tree" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , X-List-Received-Date: Thu, 17 Oct 2013 12:43:30 -0000 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" +}