1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
|
program MiniZip;
{ minizip demo package by Gilles Vollant
Usage : minizip [-o] file.zip [files_to_add]
a file.zip file is created, all files listed in [files_to_add] are added
to the new .zip file.
-o an existing .zip file with be overwritten without warning
Pascal tranlastion
Copyright (C) 2000 by Jacques Nomssi Nzali
For conditions of distribution and use, see copyright notice in readme.txt
}
uses
SysUtils, zlib, ctypes, ziputils, zip;
const
WRITEBUFFERSIZE = Z_BUFSIZE;
MAXFILENAME = Z_MAXFILENAMEINZIP;
function filetime(f: PChar; { name of file to get info on }
var tmzip: tm_zip): cuLong; { return value: access, modific. and creation times }
var
dtrec: TDateTime; { For Pack/UnpackTime}
stime: TSystemTime;
begin
if not FileExists(f) then exit;
dtrec := FileDateToDateTime(FileAge(f));
DateTimeToSystemTime(dtrec, stime);
tmzip.tm_sec := stime.second;
tmzip.tm_min := stime.minute;
tmzip.tm_hour := stime.hour;
tmzip.tm_mday := stime.day;
tmzip.tm_mon := stime.month;
tmzip.tm_year := stime.year;
filetime := 0;
end;
procedure do_banner;
begin
WriteLn('MiniZip 0.15, demo package written by Gilles Vollant');
WriteLn('Pascal port by Jacques Nomssi Nzali');
WriteLn('more info at http://www.tu-chemnitz.de/~nomssi/paszlib.html');
WriteLn;
end;
procedure do_help;
begin
WriteLn('Usage : minizip [-o] file.zip [files_to_add]');
WriteLn;
end;
function main: longint;
var
answer: string[128];
argstr: string;
buf: pointer;
c: char;
dot_found: longint;
err: longint;
errclose: longint;
filenameinzip: PChar;
filename_try: array[0..MAXFILENAME - 1] of char;
fin: FILEptr;
i: longint;
len: longint;
opt_compress_level: longint;
opt_overwrite: longint;
p: PChar;
rep: char;
size_buf: longint;
size_read: longint;
zf: zipFile;
zi: zip_fileinfo;
zipfilenamearg: longint;
zipok: longint;
begin
opt_overwrite := 0;
opt_compress_level := Z_DEFAULT_COMPRESSION;
zipfilenamearg := 0;
err := 0;
main := 0;
do_banner;
if (ParamCount = 0) then
begin
do_help;
main := 0;
exit;
end
else
for i := 1 to ParamCount - 1 + 1 do
begin
argstr := ParamStr(i) + #0;
if (argstr[1] = '-') then
begin
p := @argstr[1 + 1]; {const char *p=argv[i]+1;}
while (p^ <> #0) do
begin
c := p^;
Inc(p);
if (c = 'o') or (c = 'O') then
opt_overwrite := 1;
if (c >= '0') and (c <= '9') then
opt_compress_level := byte(c) - byte('0');
end;
end
else
if (zipfilenamearg = 0) then
zipfilenamearg := i;
end;
size_buf := WRITEBUFFERSIZE;
buf := AllocMem(size_buf);
if (buf = nil) then
begin
WriteLn('Error allocating memory');
main := ZIP_INTERNALERROR;
exit;
end;
if (zipfilenamearg = 0) then
zipok := 0
else
begin
dot_found := 0;
zipok := 1;
argstr := ParamStr(zipfilenamearg) + #0;
strcopy(filename_try, PChar(@argstr[1]));
len := strlen(filename_try);
for i := 0 to len - 1 do
if (filename_try[i] = '.') then
dot_found := 1;
if (dot_found = 0) then
strcat(filename_try, '.zip');
if (opt_overwrite = 0) then
if FileExists(filename_try) then
begin
repeat
WriteLn('The file ', filename_try,
' exist. Overwrite ? [y]es, [n]o : ');
ReadLn(answer);
rep := answer[1];
if (rep >= 'a') and (rep <= 'z') then
Dec(rep, $20);
until (rep = 'Y') or (rep = 'N');
if (rep = 'N') then
zipok := 0;
end;
end;
if (zipok = 1) then
begin
zf := zipOpen(filename_try, 0);
if (zf = nil) then
begin
WriteLn('error opening ', filename_try);
err := ZIP_ERRNO;
end
else
WriteLn('creating ', filename_try);
i := zipfilenamearg + 1;
while (i <= ParamCount) and (err = ZIP_OK) do
begin
argstr := ParamStr(i) + #0;
if (argstr[1] <> '-') and (argstr[1] <> '/') then
begin
filenameinzip := PChar(@argstr[1]);
zi.tmz_date.tm_sec := 0;
zi.tmz_date.tm_min := 0;
zi.tmz_date.tm_hour := 0;
zi.tmz_date.tm_mday := 0;
zi.tmz_date.tm_min := 0;
zi.tmz_date.tm_year := 0;
zi.dosDate := 0;
zi.internal_fa := 0;
zi.external_fa := 0;
filetime(filenameinzip, zi.tmz_date);
if (opt_compress_level <> 0) then
err := zipOpenNewFileInZip(zf, filenameinzip, @zi,
nil, 0, nil, 0, nil { comment}, Z_DEFLATED, opt_compress_level)
else
err := zipOpenNewFileInZip(zf, filenameinzip, @zi,
nil, 0, nil, 0, nil, 0, opt_compress_level);
if (err <> ZIP_OK) then
WriteLn('error in opening ', filenameinzip, ' in zipfile')
else
begin
fin := fopen(filenameinzip, fopenread);
if (fin = nil) then
begin
err := ZIP_ERRNO;
WriteLn('error in opening ', filenameinzip, ' for reading');
end;
if (err = ZIP_OK) then
repeat
err := ZIP_OK;
size_read := fread(buf, 1, size_buf, fin);
if (size_read < size_buf) then
if feof(fin) = 0 then
begin
WriteLn('error in reading ', filenameinzip);
err := ZIP_ERRNO;
end;
if (size_read > 0) then
begin
err := zipWriteInFileInZip(zf, buf, size_read);
if (err < 0) then
WriteLn('error in writing ', filenameinzip, ' in the zipfile');
end;
until (err <> ZIP_OK) or (size_read = 0);
fclose(fin);
end;
if (err < 0) then
err := ZIP_ERRNO
else
begin
err := zipCloseFileInZip(zf);
if (err <> ZIP_OK) then
WriteLn('error in closing ', filenameinzip, ' in the zipfile');
end;
Inc(i);
end; { while }
end; { if }
errclose := zipClose(zf, nil);
if (errclose <> ZIP_OK) then
WriteLn('error in closing ', filename_try);
end;
FreeMem(buf); {FreeMem(buf, size_buf);}
end;
begin
main;
Write('Done...');
ReadLn;
end.
|
