layout/mathml/content/src/mathml-css.pl

   1 # add mathml.css to the ua.css
   2
   3 $sep = '/'; # directory separator
   4
   5 $ua = $ARGV[0]; $ua =~ s|\\|$sep|g;
   6
   7 open(UA, $ua) || die "Cannot find ua.css\n";
   8 $css = join("", <UA>);
   9 close(UA);
  10
  11 if (!($css =~ m|\@import.*mathml\.css|))
  12 {
  13   # since bad end of lines cause troubles on some platforms
  14   # do a little perl magic for dos2{unix or mac} here
  15   $css =~ s#(\@import[^\@]+\;)(\cM?)(\n\cM?\n)#$1$2\n\@import url\(resource://gre/res/mathml\.css\);$2$3#;
  16   open(UA, ">$ua");
  17   print UA $css;
  18   close(UA);
  19 }
  20