pike.git
/
src
/
modules
/
Gz
/
zlibmod.c
version
»
Context lines:
10
20
40
80
file
none
3
pike.git/src/modules/Gz/zlibmod.c:1:
/*\ ||| This file is part of Pike. For copyright information see COPYRIGHT. ||| Pike is distributed under GPL, LGPL and MPL. See the file COPYING ||| for more information. \*/ /**/ #include "global.h"
-
RCSID("$Id: zlibmod.c,v 1.
47
2002/08/25
11
:
03
:
54
agehall Exp $");
+
RCSID("$Id: zlibmod.c,v 1.
48
2002/08/25
12
:
27
:
12
agehall Exp $");
#include "zlib_machine.h" #if !defined(HAVE_LIBZ) && !defined(HAVE_LIBGZ) #undef HAVE_ZLIB_H #endif #ifdef HAVE_ZLIB_H #include "interpret.h"
pike.git/src/modules/Gz/zlibmod.c:557:
Pike_error("Bad parameter 1 to file->open()\n"); } if (args == 2 && sp[1-args].type != PIKE_T_STRING) { Pike_error("Bad parameter 2 to file->open()\n"); } else if (args == 2) { mode = sp[1-args].u.string->str; } if (sp[-args].type == PIKE_T_INT) {
-
// We got an FD.
-
THIS->gzfile = gzdopen(
dup(
sp[-args].u.integer
)
,
+
THIS->gzfile = gzdopen(sp[-args].u.integer,
mode); } else { THIS->gzfile = gzopen(sp[-args].u.string->str, mode); } pop_n_elems(args); push_int(THIS->gzfile != NULL); }