← Back to branch summary

~ubuntu-branches/ubuntu/maverick/webkit/maverick

« back to all changes in this revision

Viewing changes to WebCore/css/make-css-file-arrays.pl

  • Committer: Bazaar Package Importer
  • Author(s): Mike Hommey
  • Date: 2007-08-19 15:54:12 UTC
  • Revision ID: james.westby@ubuntu.com-20070819155412-uxxg1h9plpghmtbi
Tags: upstream-0~svn25144
Import upstream version 0~svn25144

Show diffs side-by-side

added added

removed removed

Lines of Context:
WebCore/css/make-css-file-arrays.pl
 
1
#!/usr/bin/perl -w
 
2
#
 
3
#  Copyright (C) 2006 Apple Computer, Inc.
 
4
#
 
5
#  This library is free software; you can redistribute it and/or
 
6
#  modify it under the terms of the GNU Library General Public
 
7
#  License as published by the Free Software Foundation; either
 
8
#  version 2 of the License, or (at your option) any later version.
 
9
#
 
10
#  This library is distributed in the hope that it will be useful,
 
11
#  but WITHOUT ANY WARRANTY; without even the implied warranty of
 
12
#  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 
13
#  Library General Public License for more details.
 
14
#
 
15
#  You should have received a copy of the GNU Library General Public License
 
16
#  along with this library; see the file COPYING.LIB.  If not, write to
 
17
#  the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 
18
#  Boston, MA 02111-1307, USA.
 
19
#
 
20
 
 
21
# Usage: make-css-file-arrays.pl <header> <output> <input> ...
 
22
 
 
23
use strict;
 
24
use Getopt::Long;
 
25
 
 
26
my $preprocessor;
 
27
 
 
28
GetOptions('preprocessor=s' => \$preprocessor);
 
29
 
 
30
if (!$preprocessor) {
 
31
    $preprocessor = "/usr/bin/gcc -E -P -x c++";
 
32
}
 
33
 
 
34
my $header = $ARGV[0];
 
35
shift;
 
36
 
 
37
my $out = $ARGV[0];
 
38
shift;
 
39
 
 
40
open HEADER, ">", $header or die;
 
41
open OUT, ">", $out or die;
 
42
 
 
43
print HEADER "namespace WebCore {\n";
 
44
print OUT "namespace WebCore {\n";
 
45
 
 
46
for my $in (@ARGV) {
 
47
    $in =~ /(\w+)\.css$/ or die;
 
48
    my $name = $1;
 
49
 
 
50
    # Slurp in the CSS file.
 
51
    open IN, $preprocessor . " " . $in . "|" or die;
 
52
    my $text; { local $/; $text = <IN>; }
 
53
    close IN;
 
54
 
 
55
    # Remove comments in a simple-minded way that will work fine for our files.
 
56
    # Could do this a fancier way if we were worried about arbitrary CSS source.
 
57
    $text =~ s|/\*.*?\*/||gs;
 
58
 
 
59
    # Crunch whitespace just to make it a little smaller.
 
60
    # Could do work to avoid doing this inside quote marks but our files don't have runs of spaces in quotes.
 
61
    # Could crunch further based on places where whitespace is optional.
 
62
    $text =~ s|\s+| |gs;
 
63
    $text =~ s|^ ||;
 
64
    $text =~ s| $||;
 
65
 
 
66
    # Write out a C array of the characters.
 
67
    my $length = length $text;
 
68
    print HEADER "extern const char ${name}UserAgentStyleSheet[${length}];\n";
 
69
    print OUT "extern const char ${name}UserAgentStyleSheet[${length}] = {\n";
 
70
    my $i = 0;
 
71
    while ($i < $length) {
 
72
        print OUT "    ";
 
73
        my $j = 0;
 
74
        while ($j < 16 && $i < $length) {
 
75
            print OUT ", " unless $j == 0;
 
76
            print OUT ord substr $text, $i, 1;
 
77
            ++$i;
 
78
            ++$j;
 
79
        }
 
80
        print OUT "," unless $i == $length;
 
81
        print OUT "\n";
 
82
    }
 
83
    print OUT "};\n";
 
84
 
 
85
}
 
86
 
 
87
print HEADER "}\n";
 
88
print OUT "}\n";