diff options
author | nobody <nobody@localhost> | 2001-03-02 09:33:29 +0800 |
---|---|---|
committer | nobody <nobody@localhost> | 2001-03-02 09:33:29 +0800 |
commit | 8f499493bcc9621194631e29a277a8f685e48eba (patch) | |
tree | cda39502324bf50b451e5c7f58e5dee7c7476bad /camel/tests/data/genline.pl | |
parent | 50ef074887b43f43dad3edb120d9abf30092c681 (diff) | |
download | gsoc2013-evolution-GNOME_UTILS_1_4_0.tar gsoc2013-evolution-GNOME_UTILS_1_4_0.tar.gz gsoc2013-evolution-GNOME_UTILS_1_4_0.tar.bz2 gsoc2013-evolution-GNOME_UTILS_1_4_0.tar.lz gsoc2013-evolution-GNOME_UTILS_1_4_0.tar.xz gsoc2013-evolution-GNOME_UTILS_1_4_0.tar.zst gsoc2013-evolution-GNOME_UTILS_1_4_0.zip |
This commit was manufactured by cvs2svn to create tagGNOME_UTILS_1_4_0
'GNOME_UTILS_1_4_0'.
svn path=/tags/GNOME_UTILS_1_4_0/; revision=8493
Diffstat (limited to 'camel/tests/data/genline.pl')
-rwxr-xr-x | camel/tests/data/genline.pl | 72 |
1 files changed, 0 insertions, 72 deletions
diff --git a/camel/tests/data/genline.pl b/camel/tests/data/genline.pl deleted file mode 100755 index 99ff43c882..0000000000 --- a/camel/tests/data/genline.pl +++ /dev/null @@ -1,72 +0,0 @@ -#!/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; |