|
Lines 158-172
sub text_extract {
Link Here
|
| 158 |
|
158 |
|
| 159 |
############################################################################### |
159 |
############################################################################### |
| 160 |
|
160 |
|
| 161 |
sub generate_strings_list { |
|
|
| 162 |
# Emit all extracted strings. |
| 163 |
for my $t (string_list) { |
| 164 |
printf $OUTPUT "%s\n", $t; |
| 165 |
} |
| 166 |
} |
| 167 |
|
| 168 |
############################################################################### |
| 169 |
|
| 170 |
sub generate_po_file { |
161 |
sub generate_po_file { |
| 171 |
# We don't emit the Plural-Forms header; it's meaningless for us |
162 |
# We don't emit the Plural-Forms header; it's meaningless for us |
| 172 |
my $pot_charset = (defined $charset_out? $charset_out: 'CHARSET'); |
163 |
my $pot_charset = (defined $charset_out? $charset_out: 'CHARSET'); |
| 173 |
- |
|
|