+# -*- mode: perl; -*-
package parsePoLine;
use strict;
BEGIN {
use Exporter ();
- @ISA = qw(Exporter);
- @EXPORT = qw(parse_po_file getLineSortedKeys);
+ @ISA = qw(Exporter);
+ @EXPORT = qw(parse_po_file getLineSortedKeys);
}
+# Prototypes
+sub parse_po_file($\%);
+sub parse_po_line($$$$$ );
+sub getLineSortedKeys(\%);
+############
+
my ($status, $foundline, $msgid, $msgstr, $fuzzy);
my @entry = ();
my %entries = ();
-sub parse_po_file($$)
+sub parse_po_file($\%)
{
$alternative = 0;
@entry = ();
my $lineno = 0;
while (my $line = <FI>) {
$lineno++;
- &parse_po_line($line, $lineno, $rMessages, \@result, \$resindex);
+ parse_po_line($line, $lineno, $rMessages, \@result, \$resindex);
push(@entry, $line);
}
- &parse_po_line("", $lineno + 1, $rMessages, \@result, \$resindex);
+ parse_po_line("", $lineno + 1, $rMessages, \@result, \$resindex);
my @entr1 = @entry;
$result[$resindex] = ["zzzzzzzzzzzz", \@entr1];
close(FI);
return(@result);
}
-sub parse_po_line($$$$$)
+sub parse_po_line($$$$$)
{
my ($line, $lineno, $rMessages, $rresult, $rresindex) = @_;
chomp($line);
$foundline = $lineno;
$status = "msgid";
$msgid = "";
- &parse_po_line($line, $lineno, $rMessages, $rresult, $rresindex);
+ parse_po_line($line, $lineno, $rMessages, $rresult, $rresindex);
}
elsif ($line =~ s/^\#\~ msgid\s+//) {
$alternative = 1;
$foundline = $lineno;
$status = "msgid";
$msgid = "";
- &parse_po_line($line, $lineno, $rMessages, $rresult, $rresindex);
+ parse_po_line($line, $lineno, $rMessages, $rresult, $rresindex);
}
}
elsif ($status eq "msgid") {
$alternative = 0;
$status = "msgstr";
$msgstr = "";
- &parse_po_line($line, $lineno, $rMessages, $rresult, $rresindex);
+ parse_po_line($line, $lineno, $rMessages, $rresult, $rresindex);
}
elsif ($line =~ s/^\#\~ msgstr\s+//) {
$alternative = 1;
$status = "msgstr";
$msgstr = "";
- &parse_po_line($line, $lineno, $rMessages, $rresult, $rresindex);
+ parse_po_line($line, $lineno, $rMessages, $rresult, $rresindex);
}
}
elsif ($status eq "msgstr") {
}
}
-sub getLineSortedKeys($)
+sub getLineSortedKeys(\%)
{
my ($rMessages) = @_;
use parsePoLine; #imports functions 'parse_po_file() and getLineSortedKeys()'
my %Messages = ();
- my @entries = parse_po_file("sk.po", \%Messages);
+ my @entries = parse_po_file("sk.po", %Messages);
=head1 DESCRIPTION