A
lgorithmique
N
umérique
D
istribuée
Public GIT Repository
projects
/
simgrid.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Lua: Changed names for attribute 'policy' to 'sharing_policy'
[simgrid.git]
/
examples
/
platforms
/
syscoord
/
generate_peer_platform.pl
diff --git
a/examples/platforms/syscoord/generate_peer_platform.pl
b/examples/platforms/syscoord/generate_peer_platform.pl
index
91f8ca5
..
7b530e3
100755
(executable)
--- a/
examples/platforms/syscoord/generate_peer_platform.pl
+++ b/
examples/platforms/syscoord/generate_peer_platform.pl
@@
-1,5
+1,13
@@
-#!/usr/bin/perl -w
+#!/usr/bin/env perl
+
+# Copyright (c) 2011, 2014. The SimGrid Team.
+# All rights reserved.
+
+# This program is free software; you can redistribute it and/or modify it
+# under the terms of the license (GNU LGPL) which comes with this package.
+
use strict;
use strict;
+use warnings;
my $toversion=3;
my $nb_peer = $ARGV[0];
my $toversion=3;
my $nb_peer = $ARGV[0];
@@
-27,9
+35,8
@@
while(defined($line=<SITES_LIGNE>))
print "\t\tbw_in=\"13380000\" bw_out=\"1024000\" lat=\"5E-4\" />\n\n";
}
}
print "\t\tbw_in=\"13380000\" bw_out=\"1024000\" lat=\"5E-4\" />\n\n";
}
}
-print "\t\t<ASroute src=\"(.*)\"\n\t\t\tdst=\"(.*)\"\n\t\t\tgw_src=\"router_\$1src\"\n\t\t\tgw_dst=\"router_\$1dst\">\n\t\t</ASroute>\n";
print "\t</AS>\n";
print "</platform>";
print "\t</AS>\n";
print "</platform>";
-print " \n";
\ No newline at end of file
+print " \n";