diff options
author | Steve Block <steveblock@google.com> | 2011-05-06 11:45:16 +0100 |
---|---|---|
committer | Steve Block <steveblock@google.com> | 2011-05-12 13:44:10 +0100 |
commit | cad810f21b803229eb11403f9209855525a25d57 (patch) | |
tree | 29a6fd0279be608e0fe9ffe9841f722f0f4e4269 /WebCore/css/make-css-file-arrays.pl | |
parent | 121b0cf4517156d0ac5111caf9830c51b69bae8f (diff) | |
download | external_webkit-cad810f21b803229eb11403f9209855525a25d57.zip external_webkit-cad810f21b803229eb11403f9209855525a25d57.tar.gz external_webkit-cad810f21b803229eb11403f9209855525a25d57.tar.bz2 |
Merge WebKit at r75315: Initial merge by git.
Change-Id: I570314b346ce101c935ed22a626b48c2af266b84
Diffstat (limited to 'WebCore/css/make-css-file-arrays.pl')
-rwxr-xr-x | WebCore/css/make-css-file-arrays.pl | 80 |
1 files changed, 0 insertions, 80 deletions
diff --git a/WebCore/css/make-css-file-arrays.pl b/WebCore/css/make-css-file-arrays.pl deleted file mode 100755 index dad530c..0000000 --- a/WebCore/css/make-css-file-arrays.pl +++ /dev/null @@ -1,80 +0,0 @@ -#!/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, -# but WITHOUT ANY WARRANTY; without even the implied warranty of -# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -# Library General Public License for more details. -# -# You should have received a copy of the GNU Library General Public License -# along with this library; see the file COPYING.LIB. If not, write to -# the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, -# Boston, MA 02110-1301, USA. -# - -# Usage: make-css-file-arrays.pl <header> <output> <input> ... - -use strict; -use Getopt::Long; - -my $header = $ARGV[0]; -shift; - -my $out = $ARGV[0]; -shift; - -open HEADER, ">", $header or die; -open OUT, ">", $out or die; - -print HEADER "namespace WebCore {\n"; -print OUT "namespace WebCore {\n"; - -for my $in (@ARGV) { - $in =~ /(\w+)\.css$/ or die; - my $name = $1; - - # Slurp in the CSS file. - open IN, "<", $in or die; - my $text; { local $/; $text = <IN>; } - close IN; - - # 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| $||; - - # Write out a C array of the characters. - my $length = length $text; - print HEADER "extern const char ${name}UserAgentStyleSheet[${length}];\n"; - print OUT "extern const char ${name}UserAgentStyleSheet[${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"; |