blob: 47a7c0843ec4c22acaf6efded63328e310084e19 (
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
|
# usage: mergedict <##>
set mm [lindex $argv 0]
set enc [lindex $argv 1]
set fn "msgs/${mm}.msg"
# read in original msg file
if {[catch {open $fn r} id]} {
puts "Error: can't open $fn for reading"
return
}
fconfigure $id -encoding $enc
set orgmsg {}
while {[gets $id line] >= 0} {
lappend orgmsg $line
}
set orgmsg [lsort -unique $orgmsg]
catch {close $id}
# read current msgs
set curmsg {}
while {[gets stdin line] >= 0} {
set exp {.*msgcat::mc {([^\}]*)}}
if [regexp $exp $line foo aa] {
lappend curmsg "::msgcat::mcset $mm {$aa} "
}
}
set curmsg [lsort -unique $curmsg]
# now merge original against current
set mermsg {}
foreach ll $curmsg {
set ii [lsearch -glob $orgmsg "$ll*"]
if {$ii != -1} {
lappend mermsg [lindex $orgmsg $ii]
} else {
lappend mermsg $ll
}
}
set mermsg [lsort -unique $mermsg]
# now find unused entries in original
foreach ll $orgmsg {
set ii [lsearch -exact $mermsg $ll]
if {$ii == -1} {
if {[string range $ll 0 0] != {#}} {
lappend mermsg "# $ll"
} else {
lappend mermsg "$ll"
}
}
}
set mermsg [lsort -unique $mermsg]
# write new msg file
if {[catch {open $fn w} id]} {
puts "Error: can't open $fn for writing"
return
}
fconfigure $id -encoding $enc
foreach ll $mermsg {
puts $id $ll
}
catch {close $id}
|
