d2289f6d14
git-svn-id: svn://localhost/ardour2/branches/3.0@8587 d708f5d6-7413-0410-9779-e7cbd77b26cf
24 lines
454 B
Perl
Executable File
24 lines
454 B
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
%colors;
|
|
|
|
while (<>) {
|
|
if (/^#\@define/) {
|
|
@words = split;
|
|
$colors{$words[1]} = $words[2];
|
|
next;
|
|
} elsif (/\@COLOR_SCHEME\@/) {
|
|
$scheme_string="";
|
|
foreach $key (sort keys %colors) {
|
|
$scheme_string .= "A_$key:$colors{$key};"
|
|
}
|
|
chop $scheme_string;
|
|
s/\@COLOR_SCHEME\@/$scheme_string/;
|
|
print;
|
|
next;
|
|
} else {
|
|
print;
|
|
}
|
|
}
|
|
|