eval 'exec perl -S $0 ${1+"$@"}'
if $running_under_some_shell;
-# This script updates the simgrid XML file passed as argument (modification in place)
+# This script updates the SimGrid XML file passed as argument (modification in place)
# It is built to do the conversion incrementally.
-# Copyright (c) 2006-2018. The SimGrid Team.
+# Copyright (c) 2006-2023. The SimGrid Team.
# All rights reserved.
#
# This program is free software; you can redistribute it and/or modify it
=head1 NAME
-simgrid_update_xml - updates simgrid XML files to latest version
+simgrid_update_xml - updates SimGrid XML files to latest version
=head1 SYNOPSIS
=head1 DESCRIPTION
-simgrid_update_xml updates the simgrid XML file passed as argument. The file
+simgrid_update_xml updates the SimGrid XML file passed as argument. The file
is modified in place, without any kind of backup. You may want to save a copy
before running the script.
=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
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-2018. The SimGrid Team. All rights reserved.
+Copyright (c) 2006-2023. 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.
$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) {
$line =~ s/\bprocess\b/actor/g;
}
$line =~ s/\bFULLDUPLEX\b/SPLITDUPLEX/g;
-
+ $line =~ s/\bavailability_file\b/speed_file/g;
+
$output_string .= "$line\n";
}