Improve user agent stylesheet minification

Source/core/css/make-css-file-arrays.pl

 #!/usr/bin/perl -w
 #
 #  Copyright (C) 2006 Apple Computer, Inc.
 #
 #  This library is free software; you can redistribute it and/or
 #  modify it under the terms of the GNU Library General Public
 #  License as published by the Free Software Foundation; either
 #  version 2 of the License, or (at your option) any later version.
 #
 #  This library is distributed in the hope that it will be useful,
@@ skipping 47 matching lines @@
         require preprocessor;
         $text = join('', applyPreprocessor($in, $defines, $preprocessor));
     }
 
     # Remove comments in a simple-minded way that will work fine for our files.
     # Could do this a fancier way if we were worried about arbitrary CSS source.
     $text =~ s|/\*.*?\*/||gs;
 
     # Crunch whitespace just to make it a little smaller.
     # Could do work to avoid doing this inside quote marks but our files don't have runs of spaces in quotes.
-    # Could crunch further based on places where whitespace is optional.
-    $text =~ s|\s+| |gs;
-    $text =~ s|^ ||;
-    $text =~ s| $||;
+    # FIXME: Use a proper css minifier to crunch this further.
+    $text =~ s|^[\s]+||gm; # remove optional leading spaces.
+    $text =~ s|[\s]*:[\s]*|:|gm; # remove optional spaces around colons.
+    $text =~ s|[\s]*{[\s]*|{|gm; # remove optional spaces around open braces.
+    $text =~ s|[\s;]*}[\s]*|}|gm; # remove optional spaces around end braces and semicolons before end braces.
+    $text =~ s|[\s]*,[\s]*|,|gm; # remove optional spaces around commas.
+    $text =~ s|\R||g; # remove newlines.
 
     # Write out a C array of the characters.
     my $length = length $text;
     if ($in =~ /(\w+)\.css$/) {
         print HEADER "extern const char ${name}UserAgentStyleSheet[${length}];\n";
         print OUT "extern const char ${name}UserAgentStyleSheet[${length}] = {\n";
     } else {
         print HEADER "extern const char ${name}JavaScript[${length}];\n";
         print OUT "extern const char ${name}JavaScript[${length}] = {\n";
     }
     my $i = 0;
     while ($i < $length) {
         print OUT "    ";
         my $j = 0;
         while ($j < 16 && $i < $length) {
             print OUT ", " unless $j == 0;
             print OUT ord substr $text, $i, 1;
             ++$i;
             ++$j;
         }
         print OUT "," unless $i == $length;
         print OUT "\n";
     }
     print OUT "};\n";
 
 }
 
 print HEADER "}\n";
 print OUT "}\n";