diff options
author | nobody <nobody@localhost> | 2002-11-01 21:26:26 +0800 |
---|---|---|
committer | nobody <nobody@localhost> | 2002-11-01 21:26:26 +0800 |
commit | 0ffd79d9eacd8e9049779e19c9f9c0f3e11e48c4 (patch) | |
tree | 8ae783cd6c35d09da0b72d5d0a203f8980c8eddf /camel/tests/data | |
parent | 8ae8cb35257f42c905c86eb424759fdfde97eb41 (diff) | |
download | gsoc2013-evolution-0ffd79d9eacd8e9049779e19c9f9c0f3e11e48c4.tar gsoc2013-evolution-0ffd79d9eacd8e9049779e19c9f9c0f3e11e48c4.tar.gz gsoc2013-evolution-0ffd79d9eacd8e9049779e19c9f9c0f3e11e48c4.tar.bz2 gsoc2013-evolution-0ffd79d9eacd8e9049779e19c9f9c0f3e11e48c4.tar.lz gsoc2013-evolution-0ffd79d9eacd8e9049779e19c9f9c0f3e11e48c4.tar.xz gsoc2013-evolution-0ffd79d9eacd8e9049779e19c9f9c0f3e11e48c4.tar.zst gsoc2013-evolution-0ffd79d9eacd8e9049779e19c9f9c0f3e11e48c4.zip |
This commit was manufactured by cvs2svn to create tagRELEASE_1_0_1
'RELEASE_1_0_1'.
svn path=/tags/RELEASE_1_0_1/; revision=18481
Diffstat (limited to 'camel/tests/data')
-rwxr-xr-x | camel/tests/data/gendoc.pl | 65 | ||||
-rwxr-xr-x | camel/tests/data/genline.pl | 72 | ||||
-rwxr-xr-x | camel/tests/data/getaddr.pl | 32 |
3 files changed, 0 insertions, 169 deletions
diff --git a/camel/tests/data/gendoc.pl b/camel/tests/data/gendoc.pl deleted file mode 100755 index 732f05a4ed..0000000000 --- a/camel/tests/data/gendoc.pl +++ /dev/null @@ -1,65 +0,0 @@ -#!/usr/bin/perl - -# Generate 'documents' in different encodings, from po files - -if ($#ARGV < 0) { - print "Usage: gendoc.pl pofile pofile ...\n"; - exit 1; -} - -$fmt = "| fmt -u "; - -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"; - -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++; - } - - print "Building $poname.$charset.txt from $name\n"; - - open OUT,"$fmt > $poname.$charset.txt"; - while (!eof(IN)) { - $msg = read_msgstr; - # de-escape - $msg =~ s/\\n/\n/gso; - $msg =~ s/\\t/\t/gso; - $msg =~ s/\\(.)/$1/gso; - print OUT $msg." "; - } - close OUT; - close IN; - } else { - printf("ignoring $name, probably not intended\n"); - } -} - 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; diff --git a/camel/tests/data/getaddr.pl b/camel/tests/data/getaddr.pl deleted file mode 100755 index 74a8a81f74..0000000000 --- a/camel/tests/data/getaddr.pl +++ /dev/null @@ -1,32 +0,0 @@ -#!/usr/bin/perl - -# get addresses out of messages - -if ($#ARGV < 0) { - print "Usage: $0 message(s) mbox(es)\n"; - exit 1; -} - -foreach $name (@ARGV) { - open IN,"<$name"; - while (<IN>) { - if (/^From: (.*)/i - || /^To: (.*)/i - || /^Cc: (.*)/i) { - $base = $1; - while (<IN>) { - if (/^\s+(.*)/) { - $base .= " ".$1; - } else { - last; - } - } - $uniq{$base} = 1; - } - } - close IN; -} - -foreach $key (sort keys %uniq) { - print $key."\n"; -} |