Lines 97-119
sub remember {
Link Here
|
97 |
|
97 |
|
98 |
############################################################################### |
98 |
############################################################################### |
99 |
|
99 |
|
100 |
sub string_list { |
|
|
101 |
my @t = keys %text; |
102 |
# The real gettext tools seems to sort case sensitively; I don't know why |
103 |
@t = sort { $a cmp $b } @t if $sort eq 's'; |
104 |
@t = sort { |
105 |
my @aa = sort { $a->pathname cmp $b->pathname |
106 |
|| $a->line_number <=> $b->line_number } @{$text{$a}}; |
107 |
my @bb = sort { $a->pathname cmp $b->pathname |
108 |
|| $a->line_number <=> $b->line_number } @{$text{$b}}; |
109 |
$aa[0]->pathname cmp $bb[0]->pathname |
110 |
|| $aa[0]->line_number <=> $bb[0]->line_number; |
111 |
} @t if $sort eq 'F'; |
112 |
return @t; |
113 |
} |
114 |
|
115 |
############################################################################### |
116 |
|
117 |
sub text_extract { |
100 |
sub text_extract { |
118 |
my($h) = @_; |
101 |
my($h) = @_; |
119 |
for (;;) { |
102 |
for (;;) { |
120 |
- |
|
|