Ann: unzip-ada, v.06 (streams)

Ann: unzip-ada, v.06 (streams)

[Gautier]

Hi. To be short, zipfile-to-stream (Unzip.Streams) is
now available.

Page: http://members.xoom.com/gdemont/unzipada.htm
Direct: http://members.xoom.com/gdemont/logiciel/unzada06.zip

--
Gautier

PS: examples:

(1)

with Ada.Text_IO;                       use Ada.Text_IO;
with Unzip.Streams;                     use Unzip.Streams;

procedure test_unz_streams is
  f: Zipped_File_Type;
  s: Stream_Access;
  c: character;
  begin
    Open(f,"adainc.zip","system.ads");
    s:= Stream(f);
    while not End_of_file(f) loop
      Character'Read(s,c);
      Put(c);
    end loop;
    Close(f);
  end;

(2)
  zip: constant string:= "demo3d00.dat";
  zif: Unzip.zip_info; -- zip directory structure for fast access

  procedure Load_zipped_BMP_texture(name: String; Texture: out 
p_Texture_map) is
    f: Zipped_File_Type;
    begin
      Open(f,zif,name);
      Load_BMP_texture( Stream(f), Texture );
      Close(f);
    end Load_zipped_BMP_texture;
...
  Unzip.Load_zip_info( zip, zif );
  Load_zipped_BMP_texture( "t004p000.bmp",  Duke3D_tex(1) );
...