summaryrefslogtreecommitdiff
path: root/app/lzo/util/shortf.pl
diff options
context:
space:
mode:
authorParménides GV <parmegv@sdf.org>2014-04-08 11:38:09 +0200
committerParménides GV <parmegv@sdf.org>2014-04-08 11:43:27 +0200
commit5fc5d37330d3535a0f421632694d1e7918fc22d7 (patch)
tree1aad0c286e58962c8895854907e530b9bc9bce5a /app/lzo/util/shortf.pl
parentc206a91d320995f37f8abb33188bfd384249da3d (diff)
Compiles correctly: app/build-native + gradle.
Diffstat (limited to 'app/lzo/util/shortf.pl')
-rw-r--r--app/lzo/util/shortf.pl31
1 files changed, 31 insertions, 0 deletions
diff --git a/app/lzo/util/shortf.pl b/app/lzo/util/shortf.pl
new file mode 100644
index 00000000..380d3ebe
--- /dev/null
+++ b/app/lzo/util/shortf.pl
@@ -0,0 +1,31 @@
+#! /usr/bin/perl
+##
+## vi:ts=4
+##
+##---------------------------------------------------------------------------##
+##
+## Author:
+## Markus F.X.J. Oberhumer <markus@oberhumer.com>
+##
+## Description:
+## Create short files for compression test
+##
+## Copyright (C) 1996-2011 Markus Franz Xaver Johannes Oberhumer
+##
+##---------------------------------------------------------------------------##
+
+$c = "ABCDEFGHIJKLMNOPQRSTUVWXYZ";
+$c = "\x00\x01\x02";
+$c = "\x00";
+
+$x = $c x 1024;
+
+for $i (0 .. 50) {
+ $name = sprintf("f%04d.dat",$i);
+ open(OUTFILE,">$name") || die "$0: cannot open '$name': $!";
+ binmode(OUTFILE);
+ print OUTFILE substr($x,0,$i);
+ close(OUTFILE);
+}
+
+exit(0);