Lines Matching full:zfile
87 zfile: gzFile;
92 zfile := gzopen(fname, 'wb');
93 if zfile = NIL then
98 gzputc(zfile, 'h');
99 if gzputs(zfile, 'ello') <> 4 then
101 WriteLn('gzputs err: ', gzerror(zfile, err));
105 if gzprintf(zfile, ', %s!', 'hello') <> 8 then
107 WriteLn('gzprintf err: ', gzerror(zfile, err));
111 if gzputs(zfile, ', hello!') <> 8 then
113 WriteLn('gzputs err: ', gzerror(zfile, err));
117 gzseek(zfile, 1, SEEK_CUR); (* add one zero byte *)
118 gzclose(zfile);
120 zfile := gzopen(fname, 'rb');
121 if zfile = NIL then
129 if gzread(zfile, uncompr, uncomprLen) <> len then
131 WriteLn('gzread err: ', gzerror(zfile, err));
142 pos := gzseek(zfile, -8, SEEK_CUR);
143 if (pos <> 6) or (gztell(zfile) <> pos) then
145 WriteLn('gzseek error, pos=', pos, ', gztell=', gztell(zfile));
149 if gzgetc(zfile) <> ' ' then
155 if gzungetc(' ', zfile) <> ' ' then
161 gzgets(zfile, PChar(uncompr), uncomprLen);
165 WriteLn('gzgets err after gzseek: ', gzerror(zfile, err));
176 gzclose(zfile);
