blob: 8b02fe583659b4a46948dc0c8bd4623e983d5592 (
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-color-table.pl rgb.txt > xpm-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;
/* xpm-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;
} XPMColorEntry;
static const XPMColorEntry xColors[] = {
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";
|
