* Ann: unzip-ada, v.06 (streams)
@ 2000-02-10 0:00 Gautier
0 siblings, 0 replies; only message in thread
From: Gautier @ 2000-02-10 0:00 UTC (permalink / raw)
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) );
...
^ permalink raw reply [flat|nested] only message in thread
only message in thread, other threads:[~2000-02-10 0:00 UTC | newest]
Thread overview: (only message) (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2000-02-10 0:00 Ann: unzip-ada, v.06 (streams) Gautier
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox