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
96
97
98
99
100
101
102
103
104
|
package XbelGenerator;
use strict;
use warnings;
use QtCore4;
use QtGui4;
use QtCore4::isa qw(Qt::Object);
sub treeWidget() {
return this->{treeWidget};
}
sub out() {
return this->{out};
}
sub NEW
{
my ($class, $treeWidget) = @_;
$class->SUPER::NEW();
this->{treeWidget} = $treeWidget;
this->{out} = Qt::TextStream();
}
sub write
{
my ($device) = @_;
out->setDevice($device);
out->setCodec('UTF-8');
no warnings 'void';
out << "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n";
out << "<!DOCTYPE xbel>\n";
out << "<xbel version=\"1.0\">\n";
use warnings;
for (my $i = 0; $i < treeWidget->topLevelItemCount(); ++$i) {
generateItem(treeWidget->topLevelItem($i), 1);
}
no warnings 'void';
out << "</xbel>\n";
use warnings;
return 1;
}
sub indent
{
my ($depth) = @_;
my $IndentSize = 4;
return ' ' x ($IndentSize * $depth);
}
sub escapedText
{
my ($str) = @_;
my $result = $str;
$result =~ s/&/&/g;
$result =~ s/</</g;
$result =~ s/>/>/g;
return $result;
}
sub escapedAttribute
{
my ($str) = @_;
my $result = escapedText($str);
$result =~ s/"/"/g;
$result = "\"$result\"";
return $result;
}
sub generateItem
{
my ($item, $depth) = @_;
my $tagName = $item->data(0, Qt::UserRole())->toString();
no warnings 'void';
if ($tagName eq 'folder') {
my $folded = !treeWidget->isItemExpanded($item);
out << indent($depth) . '<folder folded="' . ($folded ? 'yes' : 'no')
. "\">\n"
. indent($depth + 1) . '<title>' . escapedText($item->text(0))
. "</title>\n";
for (my $i = 0; $i < $item->childCount(); ++$i) {
generateItem($item->child($i), $depth + 1);
}
out << indent($depth) . "</folder>\n";
} elsif ($tagName eq 'bookmark') {
out << indent($depth) . '<bookmark';
if ($item->text(1)) {
out << ' href=' . escapedAttribute($item->text(1));
}
out << ">\n"
. indent($depth + 1) . '<title>' . escapedText($item->text(0))
. "</title>\n"
. indent($depth) . "</bookmark>\n";
} elsif ($tagName eq 'separator') {
out << indent($depth) . "<separator/>\n";
}
use warnings;
}
1;
|
