1
# script to add svg.css to the ua.css
2
# blatently stolen from the mathml code
5
$sep = '/'; # directory separator
7
$ua = $ARGV[0]; $ua =~ s|\\|$sep|g;
9
open(UA, $ua) || die "Cannot find ua.css\n";
10
$css = join("", <UA>);
13
if (!($css =~ m|\@import.*svg\.css|))
15
$css =~ s/\cM\n/\n/g; # dos2unix end of line
16
$css =~ s|(\@import[^\@]+\;)\n\n|$1\n\@import url\(resource:/res/svg\.css\);\n\n|;