blob: ecd1ae2713ff5840813c820eeec42e9973b08e32 (
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 TDEConfigXT 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/</</;
$value =~ s/>/>/;
$value =~ s/"/"/;
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";
|
