| 1 | $ if f$search("ioapi.h_orig") .eqs. "" then copy ioapi.h ioapi.h_orig | 
 
 
 
 
 | 2 | $ open/write zdef vmsdefs.h | 
 
 
 
 
 | 3 | $ copy sys$input: zdef | 
 
 
 
 
 | 4 | $ deck | 
 
 
 
 
 | 5 | #define unix | 
 
 
 
 
 | 6 | #define fill_zlib_filefunc64_32_def_from_filefunc32 fillzffunc64from | 
 
 
 
 
 | 7 | #define Write_Zip64EndOfCentralDirectoryLocator Write_Zip64EoDLocator | 
 
 
 
 
 | 8 | #define Write_Zip64EndOfCentralDirectoryRecord Write_Zip64EoDRecord | 
 
 
 
 
 | 9 | #define Write_EndOfCentralDirectoryRecord Write_EoDRecord | 
 
 
 
 
 | 10 | $ eod | 
 
 
 
 
 | 11 | $ close zdef | 
 
 
 
 
 | 12 | $ copy vmsdefs.h,ioapi.h_orig ioapi.h | 
 
 
 
 
 | 13 | $ cc/include=[--]/prefix=all ioapi.c | 
 
 
 
 
 | 14 | $ cc/include=[--]/prefix=all miniunz.c | 
 
 
 
 
 | 15 | $ cc/include=[--]/prefix=all unzip.c | 
 
 
 
 
 | 16 | $ cc/include=[--]/prefix=all minizip.c | 
 
 
 
 
 | 17 | $ cc/include=[--]/prefix=all zip.c | 
 
 
 
 
 | 18 | $ link miniunz,unzip,ioapi,[--]libz.olb/lib | 
 
 
 
 
 | 19 | $ link minizip,zip,ioapi,[--]libz.olb/lib | 
 
 
 
 
 | 20 | $ mcr []minizip test minizip_info.txt | 
 
 
 
 
 | 21 | $ mcr []miniunz -l test.zip | 
 
 
 
 
 | 22 | $ rename minizip_info.txt; minizip_info.txt_old | 
 
 
 
 
 | 23 | $ mcr []miniunz test.zip | 
 
 
 
 
 | 24 | $ delete test.zip;* | 
 
 
 
 
 | 25 | $exit |