* unzipper unit basic extraction test. (related to mantis 15836)

git-svn-id: trunk@15015 -

.gitattributes

@@ -4824,6 +4824,7 @@ packages/paszlib/Makefile.fpc svneol=native#text/plain
 packages/paszlib/examples/Makefile svneol=native#text/plain
 packages/paszlib/examples/Makefile.fpc svneol=native#text/plain
 packages/paszlib/examples/example.pas svneol=native#text/plain
+packages/paszlib/examples/extractodt.pas svneol=native#text/plain
 packages/paszlib/examples/minigzip.pas svneol=native#text/plain
 packages/paszlib/examples/miniunz.pas svneol=native#text/plain
 packages/paszlib/examples/minizip.pas svneol=native#text/plain

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.