+#! /usr/bin/perl
+
+# This script updates the simgrid XML file passed as argument (modification in place)
+# It is built to do the conversion from a XML platfrom version 2 to a version 3
+
+# Copyright (C) 2006-2010. The SimGrid team. All rights reserved.
+#
+# This file is part of the SimGrid project. This is free software:
+# You can redistribute and/or modify it under the terms of the
+# GNU LGPL (v2.1) licence.
+
+use strict;
+
+my($line);
+my($command);
+my($Filecount)=1;
+my($file);
+my($filename_old);
+my($AScount);
+
+if($#ARGV!=0) {
+ die "Error: Wrong number of parameters\nUsage:\tperl transform_platform.perl [platform_v2.xml]\n";
+}
+
+my($file)=$ARGV[0];
+
+open FILE, "$file" or die "Error: Unable to open file: \"$file\".\n$!\n";
+while(defined($line=<FILE>))
+{
+ $AScount=0;
+ if($line =~ /^(.*)<platform version=\"2\"(.*)$/)
+ {
+ print "<platform version=\"3\">\n";
+ print "<AS id=\"AS$AScount\" routing=\"Full\">\n";
+ $AScount++;
+ }
+ else
+ {
+ if($line =~ /^(.*)<\/platform(.*)$/)
+ {
+ print "<\/AS>\n";
+ print "$line";
+ }
+ else
+ {
+ print "$line";
+ }
+ }
+}
+close(FILE);
\ No newline at end of file
