From 5fc5d37330d3535a0f421632694d1e7918fc22d7 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Parm=C3=A9nides=20GV?= <parmegv@sdf.org>
Date: Tue, 8 Apr 2014 11:38:09 +0200
Subject: Compiles correctly: app/build-native + gradle.

---
 app/lzo/util/uncompr.pl | 32 ++++++++++++++++++++++++++++++++
 1 file changed, 32 insertions(+)
 create mode 100644 app/lzo/util/uncompr.pl

(limited to 'app/lzo/util/uncompr.pl')

diff --git a/app/lzo/util/uncompr.pl b/app/lzo/util/uncompr.pl
new file mode 100644
index 00000000..df3e969d
--- /dev/null
+++ b/app/lzo/util/uncompr.pl
@@ -0,0 +1,32 @@
+#! /usr/bin/perl
+##
+## vi:ts=4
+##
+##---------------------------------------------------------------------------##
+##
+##  Author:
+##      Markus F.X.J. Oberhumer         <markus@oberhumer.com>
+##
+##  Description:
+##      Create incompressible files for compression test
+##
+##  Copyright (C) 1996-2011 Markus Franz Xaver Johannes Oberhumer
+##
+##---------------------------------------------------------------------------##
+
+$x = ' ' x 65536;
+$i = 0;
+while ($i < 65536) {
+    substr($x,$i,1) = pack('C',rand(256));
+    $i++;
+}
+
+for $i (1,2,4,8,16,32,64) {
+    $name = sprintf("u%04d.dat",$i);
+    open(OUTFILE,">$name") || die "$0: cannot open '$name': $!";
+    binmode(OUTFILE);
+    print OUTFILE substr($x,0,$i*1024);
+    close(OUTFILE);
+}
+
+exit(0);
-- 
cgit v1.2.3