|
Lines 98-119
sub remember {
Link Here
|
| 98 |
|
98 |
|
| 99 |
############################################################################### |
99 |
############################################################################### |
| 100 |
|
100 |
|
| 101 |
sub string_list { |
|
|
| 102 |
my @t = keys %text; |
| 103 |
|
| 104 |
# The real gettext tools seems to sort case sensitively; I don't know why |
| 105 |
@t = sort { $a cmp $b } @t if $sort eq 's'; |
| 106 |
@t = sort { |
| 107 |
my @aa = sort { $a->pathname cmp $b->pathname || $a->line_number <=> $b->line_number } @{ $text{$a} }; |
| 108 |
my @bb = sort { $a->pathname cmp $b->pathname || $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 { |
101 |
sub text_extract { |
| 118 |
my ($h) = @_; |
102 |
my ($h) = @_; |
| 119 |
for ( ; ; ) { |
103 |
for ( ; ; ) { |
| 120 |
- |
|
|