X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/bd99b1d06dd70aa739697de68cd200bd3ea54246..47a89aa9b4dea9c91feb54eb632b693c5b41f6ff:/tools/simgrid_update_xml.pl diff --git a/tools/simgrid_update_xml.pl b/tools/simgrid_update_xml.pl index 24ff690fe1..2ca57b959b 100755 --- a/tools/simgrid_update_xml.pl +++ b/tools/simgrid_update_xml.pl @@ -1,7 +1,7 @@ #! /usr/bin/perl # This script updates the simgrid XML file passed as argument (modification in place) -# It is built to do the conversion incrementally (even if for now, only 2 versions are defined) +# It is built to do the conversion incrementally. # Copyright (C) 2006-2010. The SimGrid team. All rights reserved. # @@ -71,11 +71,13 @@ while (defined($line = )) { $line =~ s/\broute_element\b/link:ctn/g; } - if($line =~ /^(.*)<\/platform>(.*)$/) { - $output_string .= " <\/AS>\n<\/platform>"; - } else { - $output_string .= "$line\n"; + if ($fromversion < 3) { + $line =~ s/\blink:ctn\b/link_ctn/g; + $line =~ s/\btrace:connect\b/trace_connect/g; + $line =~ s/^(.*)<\/platform>(.*)$/ <\/AS>\n<\/platform>/; } + + $output_string .= "$line\n"; } close INPUT;