path: root/camel/tests/data/genline.pl

#!/usr/bin/perl

# Generate 'documents' in different encodings, from po files

if ($#ARGV < 0) {
    print "Usage: genline.pl pofile pofile ...\n";
    exit 1;
}

sub read_msgstr()
{
    my $str = "";
    while (<IN>) {
    if (m/^msgstr \"(.*)\"/) {
        $str = $1;
        if ($str eq "") {
        while (<IN>) {
            if (m/\"(.*)\"/) {
            $str .= $1;
            } else {
            last;
            }
        }
        }
        return $str;
    }
    }
    return "";
}

$unknown = "x-unknown-1";
open OUT, ">test-lines.h";

print OUT <<END;
struct _l {
    char *type;
    char *line;
} test_lines[] = {
END

foreach $name (@ARGV) {
    if ($name =~ m@([^/]*).po$@) {
    $poname = $1;
        
    open IN,"<$name";

    $header = read_msgstr;
    if ($header =~ /Content-Type:.*charset=([-a-zA-Z0-9]*)/i) {
        $charset = $1;
    } else {
        $charset = $unknown++;
    }

    while (!eof(IN)) {
        $msg = read_msgstr;
        if (length($msg) > 60 && length($msg) < 160) {
        print OUT "\t{ \"$charset\", \"$msg\" },\n";
        last;
        }
#       $msg =~ s/\\n/\n/gso;
#       $msg =~ s/\\t/\t/gso;
#       $msg =~ s/\\(.)/$1/gso;
#       print OUT $msg." ";
    }
    close IN;
    } else {
    printf("ignoring $name, probably not intended\n");
    }
}

print OUT "};\n";
close OUT;