summaryrefslogtreecommitdiff
path: root/tools/gen-color-table.pl
blob: e62994e10077d5b1a4840989b0c9ae1b30d8f79c (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
#!/usr/bin/perl -w

if (@ARGV != 1) {
    die "Usage: gen-colors.pl rgb.txt > pango-color-table.h\n";
}

open IN, $ARGV[0] || die "Cannot open $ARGV[0]: $!\n";

@colors = ();
while (defined($_ = <IN>)) {
    next if /^!/;
    if (!/^\s*([0-9]+)\s+([0-9]+)\s+([0-9]+)\s+(.*\S)\s+$/) {
	die "Cannot parse line $_";
    }

    push @colors, [$1, $2, $3, $4];
}

@colors = sort { lc($a->[3]) cmp lc($b->[3]) } @colors;

$offset = 0;

$date = gmtime;

print <<EOT;
/* pango-color-table.h: Generated by gen-color-table.pl from rgb.txt
 *
 *  Date: $date
 *
 * Do not edit.   
 */
static const char color_names[] =
EOT

for $color (@colors) {
    $name = $color->[3];

    if ($offset != 0) {
	print qq(\n);
    }
    print qq(  "$name\\0");

    $color->[4] = $offset;
    $offset += length($name) + 1;
}

print ";\n\n";

print <<EOT;
typedef struct {
    guint16 name_offset;
    guchar red;
    guchar green;
    guchar blue;
} ColorEntry;

static const ColorEntry color_entries[] = {
EOT

$i = 0;
for $color (@colors) {
    $red = $color->[0];
    $green = $color->[1];
    $blue = $color->[2];
    $offset = $color->[4];

    if ($i != 0) {
	print ",\n";
    }
    print "  { $offset, $red, $green, $blue }";
    $i++;
}

print "\n};\n";