From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.3 required=5.0 tests=BAYES_00,INVALID_MSGID
	autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,6cea66d93bc8380f,start
X-Google-Attributes: gid103376,public
From: Gautier <gautier.demontmollin@maths.unine.ch>
Subject: Ann: unzip-ada, v.06 (streams)
Date: 2000/02/10
Message-ID: <38A313E2.6DE9A18B@maths.unine.ch>#1/1
X-Deja-AN: 584208421
Content-Transfer-Encoding: 7bit
X-Accept-Language: en
Content-Type: text/plain; charset=us-ascii
X-Trace: 10 Feb 2000 19:37:54 +0100, mac13-32.unine.ch
MIME-Version: 1.0
Newsgroups: comp.lang.ada
Date: 2000-02-10T00:00:00+00:00
List-Id: <comp.lang.ada>

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) );
...