1 files changed, 72 insertions, 0 deletions
diff --git a/camel/tests/data/genline.pl b/camel/tests/data/genline.pl
new file mode 100755
index 0000000000..99ff43c882
--- /dev/null
+++ b/camel/tests/data/genline.pl
@@ -0,0 +1,72 @@
+#!/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;