summaryrefslogtreecommitdiffstats
path: root/scripts/rc2kcfgxt.pl
blob: 4b015dee8a599377713c00d594ec02c97f4f04c7 (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
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
#! /usr/bin/env perl
#
# rc2kcfgxt.pl version 4 by Adriaan de Groot
#
#  This code is released to the Public Domain.
#

#
# Usage: rc2kcfgtxt.pl < rcfile > xmlfile
#
# Reads an rcfile (say, kmailrc) and writes out an KConfigXT XML
# file that represents a reasonable guess for representing the
# rc file. No guarantees about well-formedness of the XML are made.
#

#
# rc2kcfgxt.pl only guesses types Bool, UInt, and IntList. 
# Everything else is a String. You may need to edit the various
# types. As of 4-1-2003, valid types are:
#
#	  type (String|StringList|Font|Rect|Size|Color|
#	        Point|Int|UInt|Bool|Double|DateTime|
#		Int64|UInt64|IntList|Enum|Path) #REQUIRED
#

$group="" ;
$key="";

print <<EOF;
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE kcfg SYSTEM "http://www.kde.org/standards/kcfg/1.0/kcfg.dtd">
<kcfg>
EOF

while(<>)
{
	chomp;
	next unless $_;
	if (/\[([-A-Za-z 0-9]+)\]/)
	{
		$grp = $1;
		print "  </group>\n" if ($group && (not $group =~ /^MainWindow/));
		$group=$grp;
		next if ($group =~ /^MainWindow/);
		print "  <group name=\"$group\">\n";
		next;
	}

	next if $group =~ /^MainWindow/ ;

	@l = split /=/;
	$key = shift @l;
	$value = join "=",@l;
	$cfgkeyexpr = "";

	# Escape value values that are special to XML
	$value =~ s/</&lt;/;
	$value =~ s/>/&gt;/;
	$value =~ s/"/&quot;/;

	if ($key =~ /[ -,.<>;:!\]\[|}{]/)
	{
		$cfgkeyexpr = "key=\"$key\"";
		@key_parts = split /[ -,.<>;:!\]\[|}{]/,$key;
		$key = "";
		foreach $i (@key_parts)
		{
			next unless $i;
			$i =~ /([a-zA-Z0-9_])([a-zA-Z0-9_]*)/;
			$first = $1;
			$second = $2;
			$first =~ tr/a-z/A-Z/;
			$key .= $first . $second;
		}
	}

	# Find key type
	$type="";
	$type="Bool" if ( $value =~ /^(true|false|TRUE|FALSE)$/);
	$type="UInt" if ( $value =~ /^[0-9]+$/);
	$type="IntList" if ( ( not $type ) && ( $value =~ /^[0-9,]+$/ ));
	$type="String" unless $type;

	print <<EOF;
    <entry name="$key" $cfgkeyexpr type="$type">
        <label>
        </label>
        <default>$value</default>
    </entry>
EOF
}

print "  </group>\n" if ($group && (not $group =~ /^MainWindow/));

print "\n</kcfg>\n";