kghostview/update-to-xt-names.pl


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

#!/usr/bin/perl

my $group = '';
my $key = '';
my $value = '';

while (<>) {
	if (/^\s.*$/) { next }
	if (/^\s*#.*$/) { next }
	if (/\[(.*)\]/) {
		$group = $1;
	} elsif (/^(.*)=(.*)$/) {
		$key = $1;
		$value = $2;
	} else { next }

	if (!$group || !$key) { next }

	if ( $group eq 'General' ) {
		if ( $key eq 'Palette' ) {
			if ($value eq 'color') {
				print "Palette=Color\n";
			} elsif ($value eq 'monochrome') {
				print "Palette=Monochrome\n";
			} elsif ($value eq 'grayscale') {
				print "Palette=Grayscale\n";
			} else {
				print "Palette=Color\n";
			}
		}
		if ( $key eq 'Interpreter' ) {
			print "# DELETE [General]Interpreter\n";
		}
	}
}