|
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 |
- |
|
|