+
+ my($count)=0;
+
+ print OUTPUT <<EOF;
+<?xml version='1.0'?>
+<!DOCTYPE platform SYSTEM "simgrid.dtd">
+<platform version="2">
+EOF
+
+ foreach $p (keys %pairs) {
+ my($src,$dst)=split(/ /,$p);
+ print OUTPUT " <process host='$src' function='master'>\n";
+ print OUTPUT " <argument value='10000000'/>\n";
+ print OUTPUT " <argument value='$dst'/>\n";
+ print OUTPUT " <argument value='$count'/>\n";
+ print OUTPUT " </process>\n";
+ print OUTPUT " <process host='$dst' function='slave'>\n";
+ print OUTPUT " <argument value='$count'/>\n";
+ print OUTPUT " </process>\n";
+ $count++;
+ }
+
+ print OUTPUT <<EOF;
+</platform>
+EOF
+ close(OUTPUT);
+}
+
+
+sub generate_random_deployment2{
+ my($host_list,$nflows,$filename)=@_;
+ my(%pairs);
+ my($nhost) = scalar(@$host_list);
+ my(%taken);
+
+ melange($host_list);
+ $nflows< $nhost/2 or die "Too much flows! I can't do it\n";
+
+ open(OUTPUT,"> $filename");
+ foreach (0..$nflows-1) {
+ my($src)=shift(@$host_list);
+ my($dst)=shift(@$host_list);
+
+ $pairs{"$src $dst"}=1;
+ }
+ my($p);
+
+ my($count)=0;
+