misc/lua/lzlib/zlibtest.lua

   1 -- --- T2-COPYRIGHT-NOTE-BEGIN ---
   2 -- This copyright note is auto-generated by ./scripts/Create-CopyPatch.
   3 --
   4 -- T2 SDE: misc/lua/lzlib/zlibtest.lua
   5 -- Copyright (C) 2005 - 2006 The T2 SDE Project
   6 --
   7 -- More information can be found in the files COPYING and README.
   8 --
   9 -- This program is free software; you can redistribute it and/or modify
  10 -- it under the terms of the GNU General Public License as published by
  11 -- the Free Software Foundation; version 2 of the License. A copy of the
  12 -- GNU General Public License can be found in the file COPYING.
  13 -- --- T2-COPYRIGHT-NOTE-END ---
  14
  15 -- output all lines of compressed file ./test.gz
  16
  17 require "lzlib"
  18
  19 zf,error = lzlib.open("./test.gz", "r");
  20 if not zf then             -- failed to open file, print error
  21    print(error);
  22 else
  23    lines = zf:lines();     -- obtain line iterator
  24
  25    for x in lines do       -- output contents
  26       print (x);
  27    end
  28
  29    _,normal_eof,error = zf:eof ();
  30    if not normal_eof then  -- check if stream ended because of error
  31       print ("-- abnormal end of stream: ", error);
  32    end
  33
  34    ok,error = zf:close();
  35    if not ok then
  36       print ("could not close stream: ", error);
  37    end
  38
  39 end