tools/cmake/scripts/fixup_simgrid_dtd_l.pl

   1 #! /usr/bin/env perl
   2 use strict;
   3
   4 while (<>) {
   5     # Skip the line " * Generated 2018/10/15 12:32:06." (Reproducible Builds)
   6     next if (m#^ \* Generated [0-9/]* [0-9:]*#);
   7
   8     # Informative error message for files using a very old DTD
   9     s#"Bad declaration %s."#"Bad declaration %s.\\nIf you are using an XML v3 file (check the version attribute in <platform>), please update it with tools/simgrid_update_xml.pl"#;
  10
  11     # Accept the alternative DTD location
  12     if (/DOCTYPE.*simgrid.org.simgrid.dtd/)  {
  13         print ' "<!DOCTYPE"{S}"platform"{S}SYSTEM{S}("\'http://simgrid.gforge.inria.fr/simgrid/simgrid.dtd\'"|"\\"http://simgrid.gforge.inria.fr/simgrid/simgrid.dtd\\""){s}">" SET(ROOT_surfxml_platform);'."\n";
  14     }
  15
  16     # Completely rewrite the error handling mechanism to use exceptions instead of printing to stderr
  17     if (/fprintf.stderr, .*? flexml_err_msg.;/) {
  18         print('    surf_parse_error(flexml_err_msg);'."\n");
  19         next;
  20     }
  21
  22     # Actually outputs the resulting line
  23     print;
  24 }