tsiry-sandratraina.com
A modern Music Player Daemon based on Rockbox open source high quality audio player
libadwaita
audio
rust
zig
deno
mpris
rockbox
mpd
initial take at upgrade script from v1 to v2 file format
git-svn-id: svn://svn.rockbox.org/rockbox/trunk@9162 a1c6a512-1295-4272-9138-f99709370657
+54
tools/langv1tov2
+54
tools/langv1tov2
···
1
+
#!/usr/bin/perl -s
2
+
3
+
while(<STDIN>) {
4
+
$line++;
5
+
if($_ =~ / *\#/) {
6
+
# comment
7
+
next;
8
+
}
9
+
# get rid of DOS newlines
10
+
$_ =~ s/\r//g;
11
+
if($_ =~ / *([a-z]+): *(.*)/) {
12
+
($var, $value) = ($1, $2);
13
+
# print "$var => $value\n";
14
+
15
+
$set{$var} = $value;
16
+
17
+
if( (($var eq "new") && $value && ($value !~ /^\"(.*)\"\W*$/)) ||
18
+
(($var eq "voice") && $value && ($value !~ /^\"(.*)\"\W*$/)) ||
19
+
(($var eq "eng") && ($value !~ /^\"(.*)\"\W*$/)) ) {
20
+
print "$input:$line:missing quotes for ".$set{'id'}."\n";
21
+
$errors++;
22
+
next;
23
+
}
24
+
25
+
if($var eq "new") {
26
+
# the last one for a single phrase
27
+
28
+
if(!$value || ($value eq "\"\"") ) {
29
+
# if not set, get the english version
30
+
$value = $set{'eng'};
31
+
}
32
+
print <<MOO
33
+
<phrase>
34
+
id: $set{'id'}
35
+
desc: $set{'desc'}
36
+
user:
37
+
<source>
38
+
*: $set{'eng'}
39
+
</source>
40
+
<dest>
41
+
*: $value
42
+
</dest>
43
+
<voice>
44
+
*: $set{'voice'}
45
+
</voice>
46
+
</phrase>
47
+
MOO
48
+
;
49
+
undef %set;
50
+
}
51
+
52
+
}
53
+
54
+
}