Mercurial > pygar
annotate config/bm/Pygar/sim.cfx @ 76:8bd0e4d37ad2 pygar svn.77 tip
[svn r77] I don't know why my last change didn't go through grumble grumble....
author | rlm |
---|---|
date | Wed, 12 May 2010 08:58:23 -0400 |
parents | bbd58fb592c9 |
children |
rev | line source |
---|---|
rlm@70 | 1 : # -*-Perl-*- |
rlm@70 | 2 eval 'exec perl -w "$0" ${1+"$@"}' |
rlm@70 | 3 if 0; |
rlm@70 | 4 |
rlm@70 | 5 ## |
rlm@70 | 6 ## Directory of hasim benchmarks |
rlm@70 | 7 ## Remember to set this file as executable |
rlm@70 | 8 |
rlm@70 | 9 use Asim; |
rlm@70 | 10 use strict; |
rlm@70 | 11 |
rlm@70 | 12 my $gcfg = Asim::GenCFG->new(); |
rlm@70 | 13 |
rlm@70 | 14 my @networks = ( |
rlm@70 | 15 "net0", |
rlm@70 | 16 "net1" |
rlm@70 | 17 ); |
rlm@70 | 18 |
rlm@70 | 19 my @music = ( |
rlm@70 | 20 "train", |
rlm@70 | 21 "blah" |
rlm@70 | 22 ); |
rlm@70 | 23 |
rlm@70 | 24 |
rlm@70 | 25 |
rlm@70 | 26 |
rlm@70 | 27 |
rlm@70 | 28 |
rlm@70 | 29 |
rlm@70 | 30 |
rlm@70 | 31 foreach my $net (@networks) { |
rlm@70 | 32 foreach my $mus (@music){ |
rlm@70 | 33 |
rlm@70 | 34 $gcfg->add(name => "$net-$mus", |
rlm@70 | 35 tree => [ "tests-sim" ], |
rlm@70 | 36 setup => "pygar-benchmarks/setup/sim-benchmark-setup.pl --network=$net --music=$mus", |
rlm@70 | 37 feeder => "", |
rlm@70 | 38 feedflags => "", |
rlm@70 | 39 ccount => 800000, |
rlm@70 | 40 ); |
rlm@70 | 41 }} |
rlm@70 | 42 |
rlm@70 | 43 |
rlm@70 | 44 $gcfg->action(@ARGV); |