Please valgrind.

[simgrid.git] / tools / simgrid_update_xml.pl

diff --git a/tools/simgrid_update_xml.pl b/tools/simgrid_update_xml.pl
index 829a61c..daea1f0 100755 (executable)
--- a/tools/simgrid_update_xml.pl
+++ b/tools/simgrid_update_xml.pl
@@ -5,7 +5,7 @@ eval 'exec perl -S $0 ${1+"$@"}'
 # This script updates the simgrid XML file passed as argument (modification in place)
 # It is built to do the conversion incrementally.
 
-# Copyright (c) 2006-2019. The SimGrid Team.
+# Copyright (c) 2006-2022. The SimGrid Team.
 # All rights reserved.
 #
 # This program is free software; you can redistribute it and/or modify it
@@ -123,7 +123,7 @@ Units are now mandatory in attributes. USE THE SCRIPT sg_xml_unit_converter.py T
 
 =back
 
-=item B<Version 4.1:> Introduced in SimGrid 3.16 (this is the current version)
+=item B<Version 4.1:> Introduced in SimGrid 3.16 (this is the current version).
 
 =over 4
 
@@ -146,17 +146,21 @@ Rename a few tags, but in a backward-compatible manner: the old names are still
 
 Rename the FULLDUPLEX sharing into SPLITDUPLEX.
 
+=item
+
+In <host> and <peer>, rename the 'availability_file' attribute into 'speed_file'.
+
 =back
 
 =back
 
 =head1 AUTHORS
 
- The SimGrid team (simgrid-devel@lists.gforge.inria.fr)
+ The SimGrid team
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (c) 2006-2019. The SimGrid Team. All rights reserved.
+Copyright (c) 2006-2022. The SimGrid Team. All rights reserved.
 
 This program is free software; you may redistribute it and/or modify it
 under the terms of GNU LGPL (v2.1) license.
@@ -243,11 +247,11 @@ while (defined($line = <INPUT>)) {
            $output_string .=  " <AS  id=\"AS0\"  routing=\"Full\">\n";
            $AS_opened=1;
        }
-       
+
        if($line=~/<route /){$line =~ s/\<route/\<route symmetrical=\"NO\"/g;}
     }
     if ($fromversion < 4) {
-       $line =~ s/\bpower\b/speed/g;   
+       $line =~ s/\bpower\b/speed/g;
        $line =~ s/\bkind="POWER"/kind="SPEED"/g;
     }
     if ($fromversion < 4.1) {
@@ -257,7 +261,8 @@ while (defined($line = <INPUT>)) {
        $line =~ s/\bprocess\b/actor/g;
     }
     $line =~ s/\bFULLDUPLEX\b/SPLITDUPLEX/g;
-       
+    $line =~ s/\bavailability_file\b/speed_file/g;
+
     $output_string .= "$line\n";
 }