pike.git / src / modules / Gz / zlibmod.c

version» Context lines:

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);   }