From bbc13c86ac70b89c50a271006c301f9b13ebc01e Mon Sep 17 00:00:00 2001
From: marco <marco@3ad0048d-3df7-0310-abae-a5850022a9f2>
Date: Sun, 14 Mar 2010 11:41:54 +0000
Subject:  * unzipper unit basic extraction test. (related to mantis 15836)

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@15015 3ad0048d-3df7-0310-abae-a5850022a9f2
---
 packages/paszlib/examples/extractodt.pas | 30 ++++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)
 create mode 100755 packages/paszlib/examples/extractodt.pas

(limited to 'packages/paszlib')

diff --git a/packages/paszlib/examples/extractodt.pas b/packages/paszlib/examples/extractodt.pas
new file mode 100755
index 0000000000..f1f684a629
--- /dev/null
+++ b/packages/paszlib/examples/extractodt.pas
@@ -0,0 +1,30 @@
+program ExtractODT;
+// minimal function test zipper unit (related to mantis 15836)
+
+{$mode objfpc}{$H+}
+
+Uses Zipper,sysutils;
+
+procedure usage;
+begin
+  Writeln('ExtractOdt <filename>');
+  halt;
+end;
+
+var unzipper : TUnzipper;
+    EDir,
+    FileName : string;
+begin
+  if paramcount<1 then
+    Usage;
+  FileName:=paramstr(1);
+  if not fileexists(FileName) then
+    Usage;
+  edir:=extractfilename(filename)+'extractiondir';
+  mkdir(edir);
+  unzipper:=TUnzipper.create;
+  unzipper.FileName:=FileName;
+  unzipper.outputpath:=edir;
+  unzipper.UnzipAllFiles;
+ 
+end.
\ No newline at end of file
-- 
cgit v1.2.1