From ab5c90f0b443065b988a5048e6b42ac965e87601 Mon Sep 17 00:00:00 2001
From: mquinson <mquinson@48e7efb5-ca39-0410-a469-dd3cf9ba447f>
Date: Thu, 15 Oct 2009 16:26:32 +0000
Subject: [PATCH] A script to generate neat DAX files of fork/joins

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/simgrid/simgrid/trunk@6794 48e7efb5-ca39-0410-a469-dd3cf9ba447f
---
 examples/simdag/dax/generate_forkjoin.pl | 30 ++++++++++++++++++++++++
 1 file changed, 30 insertions(+)
 create mode 100755 examples/simdag/dax/generate_forkjoin.pl

diff --git a/examples/simdag/dax/generate_forkjoin.pl b/examples/simdag/dax/generate_forkjoin.pl
new file mode 100755
index 0000000000..9a5fb51d9f
--- /dev/null
+++ b/examples/simdag/dax/generate_forkjoin.pl
@@ -0,0 +1,30 @@
+#! /usr/bin/perl
+
+use strict;
+
+my $node_count = int($ARGV[0]) || die "Usage: $0 node_count level_count\n";
+my $level_count = int($ARGV[1]) || die "Usage: $0 node_count level_count\n";
+
+print "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n";
+print "<!-- generated: ".(localtime())." -->\n";
+print "<adag xmlns=\"http://pegasus.isi.edu/schema/DAX\" xmlns:xsi=\"http://www.w3.org/2001/XMLSchema-instance\" xsi:schemaLocation=\"http://pegasus.isi.edu/schema/DAX http://pegasus.isi.edu/schema/dax-2.1.xsd\" version=\"2.1\" count=\"1\" index=\"0\" name=\"test\" jobCount=\"25\" fileCount=\"0\" childCount=\"20\">\n";
+
+for (my $level=1;$level<=$level_count;$level++) {
+    for (my $i=1;$i<=$node_count;$i++) {
+	print "<job id=\"node$i\" namespace=\"ForkJoin\" name=\"level$level\" version=\"1.0\" runtime=\"10\">\n";
+	print "  <uses file=\"n${i}_l${level}_in\" link=\"input\" register=\"true\" transfer=\"true\" optional=\"false\" type=\"data\" size=\"1000\"/>\n";
+	print "  <uses file=\"n${i}_l${level}_out\" link=\"output\" register=\"true\" transfer=\"true\" optional=\"false\" type=\"data\" size=\"1000\"/>\n";
+	print "</job>\n";
+    }
+
+    if ($level<$level_count) {
+	print "<job id=\"join$level\" namespace=\"ForkJoin\" name=\"join\" version=\"1.0\" runtime=\"10\">\n";
+	for (my $i=1;$i<=$node_count;$i++) {
+	    print "  <uses file=\"n${i}_l${level}_out\" link=\"input\" register=\"true\" transfer=\"true\" optional=\"false\" type=\"data\" size=\"1000\"/>\n";
+	    print "  <uses file=\"n${i}_l".(${level}+1)."_in\" link=\"output\" register=\"true\" transfer=\"true\" optional=\"false\" type=\"data\" size=\"1000\"/>\n";
+	}
+	print "</job>\n";
+    }
+}
+
+print "</adag>\n";
\ No newline at end of file
-- 
2.20.1