root/zlib/zlib.c

/* [<][>][^][v][top][bottom][index][help] */

DEFINITIONS

This source file includes following definitions.
  1. php_zlib_alloc
  2. php_zlib_free
  3. php_zlib_output_conflict_check
  4. php_zlib_output_encoding
  5. php_zlib_output_handler_ex
  6. php_zlib_output_handler
  7. php_zlib_output_handler_context_init
  8. php_zlib_output_handler_context_dtor
  9. php_zlib_output_handler_init
  10. php_zlib_output_compression_start
  11. php_zlib_encode
  12. php_zlib_inflate_rounds
  13. php_zlib_decode
  14. php_zlib_cleanup_ob_gzhandler_mess
  15. PHP_FUNCTION
  16. PHP_FUNCTION
  17. PHP_FUNCTION
  18. PHP_FUNCTION
  19. PHP_FUNCTION
  20. PHP_INI_MH
  21. PHP_INI_MH
  22. PHP_INI_BEGIN
  23. PHP_MSHUTDOWN_FUNCTION
  24. PHP_RINIT_FUNCTION
  25. PHP_RSHUTDOWN_FUNCTION
  26. PHP_MINFO_FUNCTION
  27. ZEND_MODULE_GLOBALS_CTOR_D

/*
   +----------------------------------------------------------------------+
   | PHP Version 5                                                        |
   +----------------------------------------------------------------------+
   | Copyright (c) 1997-2013 The PHP Group                                |
   +----------------------------------------------------------------------+
   | This source file is subject to version 3.01 of the PHP license,      |
   | that is bundled with this package in the file LICENSE, and is        |
   | available through the world-wide-web at the following url:           |
   | http://www.php.net/license/3_01.txt                                  |
   | If you did not receive a copy of the PHP license and are unable to   |
   | obtain it through the world-wide-web, please send a note to          |
   | license@php.net so we can mail you a copy immediately.               |
   +----------------------------------------------------------------------+
   | Authors: Rasmus Lerdorf <rasmus@lerdorf.on.ca>                       |
   |          Stefan Röhrich <sr@linux.de>                                |
   |          Zeev Suraski <zeev@zend.com>                                |
   |          Jade Nicoletti <nicoletti@nns.ch>                           |
   |          Michael Wallner <mike@php.net>                              |
   +----------------------------------------------------------------------+
 */

/* $Id$ */

#ifdef HAVE_CONFIG_H
#include "config.h"
#endif

#include "php.h"
#include "SAPI.h"
#include "php_ini.h"
#include "ext/standard/info.h"
#include "ext/standard/file.h"
#include "ext/standard/php_string.h"
#include "php_zlib.h"

ZEND_DECLARE_MODULE_GLOBALS(zlib);

/* {{{ Memory management wrappers */

static voidpf php_zlib_alloc(voidpf opaque, uInt items, uInt size)
{
        return (voidpf)safe_emalloc(items, size, 0);
}

static void php_zlib_free(voidpf opaque, voidpf address)
{
        efree((void*)address);
}
/* }}} */

/* {{{ php_zlib_output_conflict_check() */
static int php_zlib_output_conflict_check(const char *handler_name, size_t handler_name_len TSRMLS_DC)
{
        if (php_output_get_level(TSRMLS_C) > 0) {
                if (php_output_handler_conflict(handler_name, handler_name_len, ZEND_STRL(PHP_ZLIB_OUTPUT_HANDLER_NAME) TSRMLS_CC)
                ||      php_output_handler_conflict(handler_name, handler_name_len, ZEND_STRL("ob_gzhandler") TSRMLS_CC)
                ||  php_output_handler_conflict(handler_name, handler_name_len, ZEND_STRL("mb_output_handler") TSRMLS_CC)
                ||      php_output_handler_conflict(handler_name, handler_name_len, ZEND_STRL("URL-Rewriter") TSRMLS_CC)) {
                        return FAILURE;
                }
        }
        return SUCCESS;
}
/* }}} */

/* {{{ php_zlib_output_encoding() */
static int php_zlib_output_encoding(TSRMLS_D)
{
        zval **enc;

        if (!ZLIBG(compression_coding)) {
                zend_is_auto_global(ZEND_STRL("_SERVER") TSRMLS_CC);
                if (PG(http_globals)[TRACK_VARS_SERVER] && SUCCESS == zend_hash_find(Z_ARRVAL_P(PG(http_globals)[TRACK_VARS_SERVER]), "HTTP_ACCEPT_ENCODING", sizeof("HTTP_ACCEPT_ENCODING"), (void *) &enc)) {
                        convert_to_string(*enc);
                        if (strstr(Z_STRVAL_PP(enc), "gzip")) {
                                ZLIBG(compression_coding) = PHP_ZLIB_ENCODING_GZIP;
                        } else if (strstr(Z_STRVAL_PP(enc), "deflate")) {
                                ZLIBG(compression_coding) = PHP_ZLIB_ENCODING_DEFLATE;
                        }
                }
        }
        return ZLIBG(compression_coding);
}
/* }}} */

/* {{{ php_zlib_output_handler_ex() */
static int php_zlib_output_handler_ex(php_zlib_context *ctx, php_output_context *output_context)
{
        int flags = Z_SYNC_FLUSH;
        PHP_OUTPUT_TSRMLS(output_context);

        if (output_context->op & PHP_OUTPUT_HANDLER_START) {
                /* start up */
                if (Z_OK != deflateInit2(&ctx->Z, ZLIBG(output_compression_level), Z_DEFLATED, ZLIBG(compression_coding), MAX_MEM_LEVEL, Z_DEFAULT_STRATEGY)) {
                        return FAILURE;
                }
        }

        if (output_context->op & PHP_OUTPUT_HANDLER_CLEAN) {
                /* free buffers */
                deflateEnd(&ctx->Z);

                if (output_context->op & PHP_OUTPUT_HANDLER_FINAL) {
                        /* discard */
                        return SUCCESS;
                } else {
                        /* restart */
                        if (Z_OK != deflateInit2(&ctx->Z, ZLIBG(output_compression_level), Z_DEFLATED, ZLIBG(compression_coding), MAX_MEM_LEVEL, Z_DEFAULT_STRATEGY)) {
                                return FAILURE;
                        }
                        ctx->buffer.used = 0;
                }
        } else {
                if (output_context->in.used) {
                        /* append input */
                        if (ctx->buffer.free < output_context->in.used) {
                                if (!(ctx->buffer.aptr = erealloc_recoverable(ctx->buffer.data, ctx->buffer.used + ctx->buffer.free + output_context->in.used))) {
                                        deflateEnd(&ctx->Z);
                                        return FAILURE;
                                }
                                ctx->buffer.data = ctx->buffer.aptr;
                                ctx->buffer.free += output_context->in.used;
                        }
                        memcpy(ctx->buffer.data + ctx->buffer.used, output_context->in.data, output_context->in.used);
                        ctx->buffer.free -= output_context->in.used;
                        ctx->buffer.used += output_context->in.used;
                }
                output_context->out.size = PHP_ZLIB_BUFFER_SIZE_GUESS(output_context->in.used);
                output_context->out.data = emalloc(output_context->out.size);
                output_context->out.free = 1;
                output_context->out.used = 0;

                ctx->Z.avail_in = ctx->buffer.used;
                ctx->Z.next_in = (Bytef *) ctx->buffer.data;
                ctx->Z.avail_out = output_context->out.size;
                ctx->Z.next_out = (Bytef *) output_context->out.data;

                if (output_context->op & PHP_OUTPUT_HANDLER_FINAL) {
                        flags = Z_FINISH;
                } else if (output_context->op & PHP_OUTPUT_HANDLER_FLUSH) {
                        flags = Z_FULL_FLUSH;
                }

                switch (deflate(&ctx->Z, flags)) {
                        case Z_OK:
                                if (flags == Z_FINISH) {
                                        deflateEnd(&ctx->Z);
                                        return FAILURE;
                                }
                        case Z_STREAM_END:
                                if (ctx->Z.avail_in) {
                                        memmove(ctx->buffer.data, ctx->buffer.data + ctx->buffer.used - ctx->Z.avail_in, ctx->Z.avail_in);
                                }
                                ctx->buffer.free += ctx->buffer.used - ctx->Z.avail_in;
                                ctx->buffer.used = ctx->Z.avail_in;
                                output_context->out.used = output_context->out.size - ctx->Z.avail_out;
                                break;
                        default:
                                deflateEnd(&ctx->Z);
                                return FAILURE;
                }

                if (output_context->op & PHP_OUTPUT_HANDLER_FINAL) {
                        deflateEnd(&ctx->Z);
                }
        }

        return SUCCESS;
}
/* }}} */

/* {{{ php_zlib_output_handler() */
static int php_zlib_output_handler(void **handler_context, php_output_context *output_context)
{
        php_zlib_context *ctx = *(php_zlib_context **) handler_context;
        PHP_OUTPUT_TSRMLS(output_context);

        if (!php_zlib_output_encoding(TSRMLS_C)) {
                /* "Vary: Accept-Encoding" header sent along uncompressed content breaks caching in MSIE,
                        so let's just send it with successfully compressed content or unless the complete
                        buffer gets discarded, see http://bugs.php.net/40325;

                        Test as follows:
                        +Vary: $ HTTP_ACCEPT_ENCODING=gzip ./sapi/cgi/php <<<'<?php ob_start("ob_gzhandler"); echo "foo\n";'
                        +Vary: $ HTTP_ACCEPT_ENCODING= ./sapi/cgi/php <<<'<?php ob_start("ob_gzhandler"); echo "foo\n";'
                        -Vary: $ HTTP_ACCEPT_ENCODING=gzip ./sapi/cgi/php <<<'<?php ob_start("ob_gzhandler"); echo "foo\n"; ob_end_clean();'
                        -Vary: $ HTTP_ACCEPT_ENCODING= ./sapi/cgi/php <<<'<?php ob_start("ob_gzhandler"); echo "foo\n"; ob_end_clean();'
                */
                if ((output_context->op & PHP_OUTPUT_HANDLER_START)
                &&      (output_context->op != (PHP_OUTPUT_HANDLER_START|PHP_OUTPUT_HANDLER_CLEAN|PHP_OUTPUT_HANDLER_FINAL))
                ) {
                        sapi_add_header_ex(ZEND_STRL("Vary: Accept-Encoding"), 1, 1 TSRMLS_CC);
                }
                return FAILURE;
        }

        if (SUCCESS != php_zlib_output_handler_ex(ctx, output_context)) {
                return FAILURE;
        }

        if (!(output_context->op & PHP_OUTPUT_HANDLER_CLEAN)) {
                int flags;

                if (SUCCESS == php_output_handler_hook(PHP_OUTPUT_HANDLER_HOOK_GET_FLAGS, &flags TSRMLS_CC)) {
                        /* only run this once */
                        if (!(flags & PHP_OUTPUT_HANDLER_STARTED)) {
                                if (SG(headers_sent) || !ZLIBG(output_compression)) {
                                        deflateEnd(&ctx->Z);
                                        return FAILURE;
                                }
                                switch (ZLIBG(compression_coding)) {
                                        case PHP_ZLIB_ENCODING_GZIP:
                                                sapi_add_header_ex(ZEND_STRL("Content-Encoding: gzip"), 1, 1 TSRMLS_CC);
                                                break;
                                        case PHP_ZLIB_ENCODING_DEFLATE:
                                                sapi_add_header_ex(ZEND_STRL("Content-Encoding: deflate"), 1, 1 TSRMLS_CC);
                                                break;
                                        default:
                                                deflateEnd(&ctx->Z);
                                                return FAILURE;
                                }
                                sapi_add_header_ex(ZEND_STRL("Vary: Accept-Encoding"), 1, 1 TSRMLS_CC);
                                php_output_handler_hook(PHP_OUTPUT_HANDLER_HOOK_IMMUTABLE, NULL TSRMLS_CC);
                        }
                }
        }

        return SUCCESS;
}
/* }}} */

/* {{{ php_zlib_output_handler_context_init() */
static php_zlib_context *php_zlib_output_handler_context_init(TSRMLS_D)
{
        php_zlib_context *ctx = (php_zlib_context *) ecalloc(1, sizeof(php_zlib_context));
        ctx->Z.zalloc = php_zlib_alloc;
        ctx->Z.zfree = php_zlib_free;
        return ctx;
}
/* }}} */

/* {{{ php_zlib_output_handler_context_dtor() */
static void php_zlib_output_handler_context_dtor(void *opaq TSRMLS_DC)
{
        php_zlib_context *ctx = (php_zlib_context *) opaq;

        if (ctx) {
                if (ctx->buffer.data) {
                        efree(ctx->buffer.data);
                }
                efree(ctx);
        }
}
/* }}} */

/* {{{ php_zlib_output_handler_init() */
static php_output_handler *php_zlib_output_handler_init(const char *handler_name, size_t handler_name_len, size_t chunk_size, int flags TSRMLS_DC)
{
        php_output_handler *h = NULL;

        if (!ZLIBG(output_compression)) {
                ZLIBG(output_compression) = chunk_size ? chunk_size : PHP_OUTPUT_HANDLER_DEFAULT_SIZE;
        }

    ZLIBG(handler_registered) = 1;

        if ((h = php_output_handler_create_internal(handler_name, handler_name_len, php_zlib_output_handler, chunk_size, flags TSRMLS_CC))) {
                php_output_handler_set_context(h, php_zlib_output_handler_context_init(TSRMLS_C), php_zlib_output_handler_context_dtor TSRMLS_CC);
        }

        return h;
}
/* }}} */

/* {{{ php_zlib_output_compression_start() */
static void php_zlib_output_compression_start(TSRMLS_D)
{
        zval *zoh;
        php_output_handler *h;

        switch (ZLIBG(output_compression)) {
                case 0:
                        break;
                case 1:
                        ZLIBG(output_compression) = PHP_OUTPUT_HANDLER_DEFAULT_SIZE;
                        /* break omitted intentionally */
                default:
                        if (    php_zlib_output_encoding(TSRMLS_C) &&
                                        (h = php_zlib_output_handler_init(ZEND_STRL(PHP_ZLIB_OUTPUT_HANDLER_NAME), ZLIBG(output_compression), PHP_OUTPUT_HANDLER_STDFLAGS TSRMLS_CC)) &&
                                        (SUCCESS == php_output_handler_start(h TSRMLS_CC))) {
                                if (ZLIBG(output_handler) && *ZLIBG(output_handler)) {
                                        MAKE_STD_ZVAL(zoh);
                                        ZVAL_STRING(zoh, ZLIBG(output_handler), 1);
                                        php_output_start_user(zoh, ZLIBG(output_compression), PHP_OUTPUT_HANDLER_STDFLAGS TSRMLS_CC);
                                        zval_ptr_dtor(&zoh);
                                }
                        }
                        break;
        }
}
/* }}} */

/* {{{ php_zlib_encode() */
static int php_zlib_encode(const char *in_buf, size_t in_len, char **out_buf, size_t *out_len, int encoding, int level TSRMLS_DC)
{
        int status;
        z_stream Z;

        memset(&Z, 0, sizeof(z_stream));
        Z.zalloc = php_zlib_alloc;
        Z.zfree = php_zlib_free;

        if (Z_OK == (status = deflateInit2(&Z, level, Z_DEFLATED, encoding, MAX_MEM_LEVEL, Z_DEFAULT_STRATEGY))) {
                *out_len = PHP_ZLIB_BUFFER_SIZE_GUESS(in_len);
                *out_buf = emalloc(*out_len);

                Z.next_in = (Bytef *) in_buf;
                Z.next_out = (Bytef *) *out_buf;
                Z.avail_in = in_len;
                Z.avail_out = *out_len;

                status = deflate(&Z, Z_FINISH);
                deflateEnd(&Z);

                if (Z_STREAM_END == status) {
                        /* size buffer down to actual length */
                        *out_buf = erealloc(*out_buf, Z.total_out + 1);
                        (*out_buf)[*out_len = Z.total_out] = '\0';
                        return SUCCESS;
                } else {
                        efree(*out_buf);
                }
        }

        *out_buf = NULL;
        *out_len = 0;

        php_error_docref(NULL TSRMLS_CC, E_WARNING, "%s", zError(status));
        return FAILURE;
}
/* }}} */

/* {{{ php_zlib_inflate_rounds() */
static inline int php_zlib_inflate_rounds(z_stream *Z, size_t max, char **buf, size_t *len)
{
        int status, round = 0;
        php_zlib_buffer buffer = {NULL, NULL, 0, 0, 0};

        *buf = NULL;
        *len = 0;

        buffer.size = (max && (max < Z->avail_in)) ? max : Z->avail_in;

        do {
                if ((max && (max <= buffer.used)) || !(buffer.aptr = erealloc_recoverable(buffer.data, buffer.size))) {
                        status = Z_MEM_ERROR;
                } else {
                        buffer.data = buffer.aptr;
                        Z->avail_out = buffer.free = buffer.size - buffer.used;
                        Z->next_out = (Bytef *) buffer.data + buffer.used;
#if 0
                        fprintf(stderr, "\n%3d: %3d PRIOR: size=%7lu,\tfree=%7lu,\tused=%7lu,\tavail_in=%7lu,\tavail_out=%7lu\n", round, status, buffer.size, buffer.free, buffer.used, Z->avail_in, Z->avail_out);
#endif
                        status = inflate(Z, Z_NO_FLUSH);

                        buffer.used += buffer.free - Z->avail_out;
                        buffer.free = Z->avail_out;
#if 0
                        fprintf(stderr, "%3d: %3d AFTER: size=%7lu,\tfree=%7lu,\tused=%7lu,\tavail_in=%7lu,\tavail_out=%7lu\n", round, status, buffer.size, buffer.free, buffer.used, Z->avail_in, Z->avail_out);
#endif
                        buffer.size += (buffer.size >> 3) + 1;
                }
        } while ((Z_BUF_ERROR == status || (Z_OK == status && Z->avail_in)) && ++round < 100);

        if (status == Z_STREAM_END) {
                buffer.data = erealloc(buffer.data, buffer.used + 1);
                buffer.data[buffer.used] = '\0';
                *buf = buffer.data;
                *len = buffer.used;
        } else {
                if (buffer.data) {
                        efree(buffer.data);
                }
                /* HACK: See zlib/examples/zpipe.c inf() function for explanation. */
                /* This works as long as this function is not used for streaming. Required to catch very short invalid data. */
                status = (status == Z_OK) ? Z_DATA_ERROR : status;
        }
        return status;
}
/* }}} */

/* {{{ php_zlib_decode() */
static int php_zlib_decode(const char *in_buf, size_t in_len, char **out_buf, size_t *out_len, int encoding, size_t max_len TSRMLS_DC)
{
        int status = Z_DATA_ERROR;
        z_stream Z;

        memset(&Z, 0, sizeof(z_stream));
        Z.zalloc = php_zlib_alloc;
        Z.zfree = php_zlib_free;

        if (in_len) {
retry_raw_inflate:
                status = inflateInit2(&Z, encoding);
                if (Z_OK == status) {
                        Z.next_in = (Bytef *) in_buf;
                        Z.avail_in = in_len + 1; /* NOTE: data must be zero terminated */

                        switch (status = php_zlib_inflate_rounds(&Z, max_len, out_buf, out_len)) {
                                case Z_STREAM_END:
                                        inflateEnd(&Z);
                                        return SUCCESS;

                                case Z_DATA_ERROR:
                                        /* raw deflated data? */
                                        if (PHP_ZLIB_ENCODING_ANY == encoding) {
                                                inflateEnd(&Z);
                                                encoding = PHP_ZLIB_ENCODING_RAW;
                                                goto retry_raw_inflate;
                                        }
                        }
                        inflateEnd(&Z);
                }
        }

        *out_buf = NULL;
        *out_len = 0;

        php_error_docref(NULL TSRMLS_CC, E_WARNING, "%s", zError(status));
        return FAILURE;
}
/* }}} */

/* {{{ php_zlib_cleanup_ob_gzhandler_mess() */
static void php_zlib_cleanup_ob_gzhandler_mess(TSRMLS_D)
{
        if (ZLIBG(ob_gzhandler)) {
                deflateEnd(&(ZLIBG(ob_gzhandler)->Z));
                php_zlib_output_handler_context_dtor(ZLIBG(ob_gzhandler) TSRMLS_CC);
                ZLIBG(ob_gzhandler) = NULL;
        }
}
/* }}} */

/* {{{ proto string ob_gzhandler(string data, int flags)
   Legacy hack */
static PHP_FUNCTION(ob_gzhandler)
{
        char *in_str;
        int in_len;
        long flags = 0;
        php_output_context ctx = {0};
        int encoding, rv;

        /*
         * NOTE that the real ob_gzhandler is an alias to "zlib output compression".
         * This is a really bad hack, because
         * - we have to initialize a php_zlib_context on demand
         * - we have to clean it up in RSHUTDOWN
         * - OG(running) is not set or set to any other output handler
         * - we have to mess around with php_output_context */

        if (SUCCESS != zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "sl", &in_str, &in_len, &flags)) {
                RETURN_FALSE;
        }

        if (!(encoding = php_zlib_output_encoding(TSRMLS_C))) {
                RETURN_FALSE;
        }

        if (flags & PHP_OUTPUT_HANDLER_START) {
                switch (encoding) {
                        case PHP_ZLIB_ENCODING_GZIP:
                                sapi_add_header_ex(ZEND_STRL("Content-Encoding: gzip"), 1, 1 TSRMLS_CC);
                                break;
                        case PHP_ZLIB_ENCODING_DEFLATE:
                                sapi_add_header_ex(ZEND_STRL("Content-Encoding: deflate"), 1, 1 TSRMLS_CC);
                                break;
                }
                sapi_add_header_ex(ZEND_STRL("Vary: Accept-Encoding"), 1, 1 TSRMLS_CC);
        }

        if (!ZLIBG(ob_gzhandler)) {
                ZLIBG(ob_gzhandler) = php_zlib_output_handler_context_init(TSRMLS_C);
        }

        TSRMLS_SET_CTX(ctx.tsrm_ls);
        ctx.op = flags;
        ctx.in.data = in_str;
        ctx.in.used = in_len;

        rv = php_zlib_output_handler_ex(ZLIBG(ob_gzhandler), &ctx);

        if (SUCCESS != rv) {
                if (ctx.out.data && ctx.out.free) {
                        efree(ctx.out.data);
                }
                php_zlib_cleanup_ob_gzhandler_mess(TSRMLS_C);
                RETURN_FALSE;
        }

        if (ctx.out.data) {
                RETVAL_STRINGL(ctx.out.data, ctx.out.used, 1);
                if (ctx.out.free) {
                        efree(ctx.out.data);
                }
        } else {
                RETVAL_EMPTY_STRING();
        }
}
/* }}} */

/* {{{ proto string zlib_get_coding_type(void)
   Returns the coding type used for output compression */
static PHP_FUNCTION(zlib_get_coding_type)
{
        if (zend_parse_parameters_none() == FAILURE) {
                return;
        }
        switch (ZLIBG(compression_coding)) {
                case PHP_ZLIB_ENCODING_GZIP:
                        RETURN_STRINGL("gzip", sizeof("gzip") - 1, 1);
                case PHP_ZLIB_ENCODING_DEFLATE:
                        RETURN_STRINGL("deflate", sizeof("deflate") - 1, 1);
                default:
                        RETURN_FALSE;
        }
}
/* }}} */

/* {{{ proto array gzfile(string filename [, int use_include_path])
   Read and uncompress entire .gz-file into an array */
static PHP_FUNCTION(gzfile)
{
        char *filename;
        int filename_len;
        int flags = REPORT_ERRORS;
        char buf[8192] = {0};
        register int i = 0;
        long use_include_path = 0;
        php_stream *stream;

        if (SUCCESS != zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "p|l", &filename, &filename_len, &use_include_path)) {
                return;
        }

        if (use_include_path) {
                flags |= USE_PATH;
        }

        /* using a stream here is a bit more efficient (resource wise) than php_gzopen_wrapper */
        stream = php_stream_gzopen(NULL, filename, "rb", flags, NULL, NULL STREAMS_CC TSRMLS_CC);

        if (!stream) {
                /* Error reporting is already done by stream code */
                RETURN_FALSE;
        }

        /* Initialize return array */
        array_init(return_value);

        /* Now loop through the file and do the magic quotes thing if needed */
        memset(buf, 0, sizeof(buf));
            
        while (php_stream_gets(stream, buf, sizeof(buf) - 1) != NULL) {
                add_index_string(return_value, i++, buf, 1);
        }
        php_stream_close(stream);
}
/* }}} */

/* {{{ proto resource gzopen(string filename, string mode [, int use_include_path])
   Open a .gz-file and return a .gz-file pointer */
static PHP_FUNCTION(gzopen)
{
        char *filename;
        char *mode;
        int filename_len, mode_len;
        int flags = REPORT_ERRORS;
        php_stream *stream;
        long use_include_path = 0;

        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "ss|l", &filename, &filename_len, &mode, &mode_len, &use_include_path) == FAILURE) {
                return;
        }

        if (use_include_path) {
                flags |= USE_PATH;
        }

        stream = php_stream_gzopen(NULL, filename, mode, flags, NULL, NULL STREAMS_CC TSRMLS_CC);

        if (!stream) {
                RETURN_FALSE;
        }
        php_stream_to_zval(stream, return_value);
}
/* }}} */

/* {{{ proto int readgzfile(string filename [, int use_include_path])
   Output a .gz-file */
static PHP_FUNCTION(readgzfile)
{
        char *filename;
        int filename_len;
        int flags = REPORT_ERRORS;
        php_stream *stream;
        int size;
        long use_include_path = 0;

        if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "s|l", &filename, &filename_len, &use_include_path) == FAILURE) {
                return;
        }

        if (use_include_path) {
                flags |= USE_PATH;
        }

        stream = php_stream_gzopen(NULL, filename, "rb", flags, NULL, NULL STREAMS_CC TSRMLS_CC);

        if (!stream) {
                RETURN_FALSE;
        }
        size = php_stream_passthru(stream);
        php_stream_close(stream);
        RETURN_LONG(size);
}
/* }}} */

#define PHP_ZLIB_ENCODE_FUNC(name, default_encoding) \
static PHP_FUNCTION(name) \
{ \
        char *in_buf, *out_buf; \
        int in_len; \
        size_t out_len; \
        long level = -1; \
        long encoding = default_encoding; \
        if (default_encoding) { \
                if (SUCCESS != zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "s|ll", &in_buf, &in_len, &level, &encoding)) { \
                        return; \
                } \
        } else { \
                if (SUCCESS != zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "sl|l", &in_buf, &in_len, &encoding, &level)) { \
                        return; \
                } \
        } \
        if (level < -1 || level > 9) { \
                php_error_docref(NULL TSRMLS_CC, E_WARNING, "compression level (%ld) must be within -1..9", level); \
                RETURN_FALSE; \
        } \
        switch (encoding) { \
                case PHP_ZLIB_ENCODING_RAW: \
                case PHP_ZLIB_ENCODING_GZIP: \
                case PHP_ZLIB_ENCODING_DEFLATE: \
                        break; \
                default: \
                        php_error_docref(NULL TSRMLS_CC, E_WARNING, "encoding mode must be either ZLIB_ENCODING_RAW, ZLIB_ENCODING_GZIP or ZLIB_ENCODING_DEFLATE"); \
                        RETURN_FALSE; \
        } \
        if (SUCCESS != php_zlib_encode(in_buf, in_len, &out_buf, &out_len, encoding, level TSRMLS_CC)) { \
                RETURN_FALSE; \
        } \
        RETURN_STRINGL(out_buf, out_len, 0); \
}

#define PHP_ZLIB_DECODE_FUNC(name, encoding) \
static PHP_FUNCTION(name) \
{ \
        char *in_buf, *out_buf; \
        int in_len; \
        size_t out_len; \
        long max_len = 0; \
        if (SUCCESS != zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "s|l", &in_buf, &in_len, &max_len)) { \
                return; \
        } \
        if (max_len < 0) { \
                php_error_docref(NULL TSRMLS_CC, E_WARNING, "length (%ld) must be greater or equal zero", max_len); \
                RETURN_FALSE; \
        } \
        if (SUCCESS != php_zlib_decode(in_buf, in_len, &out_buf, &out_len, encoding, max_len TSRMLS_CC)) { \
                RETURN_FALSE; \
        } \
        RETURN_STRINGL(out_buf, out_len, 0); \
}

/* {{{ proto binary zlib_encode(binary data, int encoding[, int level = -1])
   Compress data with the specified encoding */
PHP_ZLIB_ENCODE_FUNC(zlib_encode, 0);
/* }}} */

/* {{{ proto binary zlib_decode(binary data[, int max_decoded_len])
   Uncompress any raw/gzip/zlib encoded data */
PHP_ZLIB_DECODE_FUNC(zlib_decode, PHP_ZLIB_ENCODING_ANY);
/* }}} */

/* NOTE: The naming of these userland functions was quite unlucky */
/* {{{ proto binary gzdeflate(binary data[, int level = -1[, int encoding = ZLIB_ENCODING_RAW])
   Encode data with the raw deflate encoding */
PHP_ZLIB_ENCODE_FUNC(gzdeflate, PHP_ZLIB_ENCODING_RAW);
/* }}} */

/* {{{ proto binary gzencode(binary data[, int level = -1[, int encoding = ZLIB_ENCODING_GZIP])
   Encode data with the gzip encoding */
PHP_ZLIB_ENCODE_FUNC(gzencode, PHP_ZLIB_ENCODING_GZIP);
/* }}} */

/* {{{ proto binary gzcompress(binary data[, int level = -1[, int encoding = ZLIB_ENCODING_DEFLATE])
   Encode data with the zlib encoding */
PHP_ZLIB_ENCODE_FUNC(gzcompress, PHP_ZLIB_ENCODING_DEFLATE);
/* }}} */

/* {{{ proto binary gzinflate(binary data[, int max_decoded_len])
   Decode raw deflate encoded data */
PHP_ZLIB_DECODE_FUNC(gzinflate, PHP_ZLIB_ENCODING_RAW);
/* }}} */

/* {{{ proto binary gzdecode(binary data[, int max_decoded_len])
   Decode gzip encoded data */
PHP_ZLIB_DECODE_FUNC(gzdecode, PHP_ZLIB_ENCODING_GZIP);
/* }}} */

/* {{{ proto binary gzuncompress(binary data[, int max_decoded_len])
   Decode zlib encoded data */
PHP_ZLIB_DECODE_FUNC(gzuncompress, PHP_ZLIB_ENCODING_DEFLATE);
/* }}} */

#ifdef COMPILE_DL_ZLIB
ZEND_GET_MODULE(php_zlib)
#endif

/* {{{ arginfo */
ZEND_BEGIN_ARG_INFO_EX(arginfo_ob_gzhandler, 0, 0, 2)
        ZEND_ARG_INFO(0, data)
        ZEND_ARG_INFO(0, flags)
ZEND_END_ARG_INFO()

ZEND_BEGIN_ARG_INFO(arginfo_zlib_get_coding_type, 0)
ZEND_END_ARG_INFO()

ZEND_BEGIN_ARG_INFO_EX(arginfo_gzfile, 0, 0, 1)
        ZEND_ARG_INFO(0, filename)
        ZEND_ARG_INFO(0, use_include_path)
ZEND_END_ARG_INFO()

ZEND_BEGIN_ARG_INFO_EX(arginfo_gzopen, 0, 0, 2)
        ZEND_ARG_INFO(0, filename)
        ZEND_ARG_INFO(0, mode)
        ZEND_ARG_INFO(0, use_include_path)
ZEND_END_ARG_INFO()

ZEND_BEGIN_ARG_INFO_EX(arginfo_readgzfile, 0, 0, 1)
        ZEND_ARG_INFO(0, filename)
        ZEND_ARG_INFO(0, use_include_path)
ZEND_END_ARG_INFO()

ZEND_BEGIN_ARG_INFO_EX(arginfo_zlib_encode, 0, 0, 2)
        ZEND_ARG_INFO(0, data)
        ZEND_ARG_INFO(0, encoding)
        ZEND_ARG_INFO(0, level)
ZEND_END_ARG_INFO()

ZEND_BEGIN_ARG_INFO_EX(arginfo_zlib_decode, 0, 0, 1)
        ZEND_ARG_INFO(0, data)
        ZEND_ARG_INFO(0, max_decoded_len)
ZEND_END_ARG_INFO()

ZEND_BEGIN_ARG_INFO_EX(arginfo_gzdeflate, 0, 0, 1)
        ZEND_ARG_INFO(0, data)
        ZEND_ARG_INFO(0, level)
        ZEND_ARG_INFO(0, encoding)
ZEND_END_ARG_INFO()

ZEND_BEGIN_ARG_INFO_EX(arginfo_gzencode, 0, 0, 1)
        ZEND_ARG_INFO(0, data)
        ZEND_ARG_INFO(0, level)
        ZEND_ARG_INFO(0, encoding)
ZEND_END_ARG_INFO()

ZEND_BEGIN_ARG_INFO_EX(arginfo_gzcompress, 0, 0, 1)
        ZEND_ARG_INFO(0, data)
        ZEND_ARG_INFO(0, level)
        ZEND_ARG_INFO(0, encoding)
ZEND_END_ARG_INFO()

ZEND_BEGIN_ARG_INFO_EX(arginfo_gzinflate, 0, 0, 1)
        ZEND_ARG_INFO(0, data)
        ZEND_ARG_INFO(0, max_decoded_len)
ZEND_END_ARG_INFO()

ZEND_BEGIN_ARG_INFO_EX(arginfo_gzdecode, 0, 0, 1)
        ZEND_ARG_INFO(0, data)
        ZEND_ARG_INFO(0, max_decoded_len)
ZEND_END_ARG_INFO()

ZEND_BEGIN_ARG_INFO_EX(arginfo_gzuncompress, 0, 0, 1)
        ZEND_ARG_INFO(0, data)
        ZEND_ARG_INFO(0, max_decoded_len)
ZEND_END_ARG_INFO()

ZEND_BEGIN_ARG_INFO_EX(arginfo_gzputs, 0, 0, 2)
        ZEND_ARG_INFO(0, fp)
        ZEND_ARG_INFO(0, str)
        ZEND_ARG_INFO(0, length)
ZEND_END_ARG_INFO()

ZEND_BEGIN_ARG_INFO(arginfo_gzpassthru, 0)
        ZEND_ARG_INFO(0, fp)
ZEND_END_ARG_INFO()

ZEND_BEGIN_ARG_INFO_EX(arginfo_gzseek, 0, 0, 2)
        ZEND_ARG_INFO(0, fp)
        ZEND_ARG_INFO(0, offset)
        ZEND_ARG_INFO(0, whence)
ZEND_END_ARG_INFO()

ZEND_BEGIN_ARG_INFO(arginfo_gzread, 0)
        ZEND_ARG_INFO(0, fp)
        ZEND_ARG_INFO(0, length)
ZEND_END_ARG_INFO()

ZEND_BEGIN_ARG_INFO_EX(arginfo_gzgetss, 0, 0, 1)
        ZEND_ARG_INFO(0, fp)
        ZEND_ARG_INFO(0, length)
        ZEND_ARG_INFO(0, allowable_tags)
ZEND_END_ARG_INFO()

ZEND_BEGIN_ARG_INFO_EX(arginfo_gzgets, 0, 0, 1)
        ZEND_ARG_INFO(0, fp)
        ZEND_ARG_INFO(0, length)
ZEND_END_ARG_INFO()
/* }}} */

/* {{{ php_zlib_functions[] */
static const zend_function_entry php_zlib_functions[] = {
        PHP_FE(readgzfile,                                              arginfo_readgzfile)
        PHP_FALIAS(gzrewind,    rewind,                 arginfo_gzpassthru)
        PHP_FALIAS(gzclose,             fclose,                 arginfo_gzpassthru)
        PHP_FALIAS(gzeof,               feof,                   arginfo_gzpassthru)
        PHP_FALIAS(gzgetc,              fgetc,                  arginfo_gzpassthru)
        PHP_FALIAS(gzgets,              fgets,                  arginfo_gzgets)
        PHP_FALIAS(gzgetss,             fgetss,                 arginfo_gzgetss)
        PHP_FALIAS(gzread,              fread,                  arginfo_gzread)
        PHP_FE(gzopen,                                                  arginfo_gzopen)
        PHP_FALIAS(gzpassthru,  fpassthru,              arginfo_gzpassthru)
        PHP_FALIAS(gzseek,              fseek,                  arginfo_gzseek)
        PHP_FALIAS(gztell,              ftell,                  arginfo_gzpassthru)
        PHP_FALIAS(gzwrite,             fwrite,                 arginfo_gzputs)
        PHP_FALIAS(gzputs,              fwrite,                 arginfo_gzputs)
        PHP_FE(gzfile,                                                  arginfo_gzfile)
        PHP_FE(gzcompress,                                              arginfo_gzcompress)
        PHP_FE(gzuncompress,                                    arginfo_gzuncompress)
        PHP_FE(gzdeflate,                                               arginfo_gzdeflate)
        PHP_FE(gzinflate,                                               arginfo_gzinflate)
        PHP_FE(gzencode,                                                arginfo_gzencode)
        PHP_FE(gzdecode,                                                arginfo_gzdecode)
        PHP_FE(zlib_encode,                                             arginfo_zlib_encode)
        PHP_FE(zlib_decode,                                             arginfo_zlib_decode)
        PHP_FE(zlib_get_coding_type,                    arginfo_zlib_get_coding_type)
        PHP_FE(ob_gzhandler,                                    arginfo_ob_gzhandler)
        PHP_FE_END
};
/* }}} */

/* {{{ OnUpdate_zlib_output_compression */
static PHP_INI_MH(OnUpdate_zlib_output_compression)
{
        int status, int_value;
        char *ini_value;

        if (new_value == NULL) {
                return FAILURE;
        }

        if (!strncasecmp(new_value, "off", sizeof("off"))) {
                new_value = "0";
                new_value_length = sizeof("0");
        } else if (!strncasecmp(new_value, "on", sizeof("on"))) {
                new_value = "1";
                new_value_length = sizeof("1");
        }

        int_value = zend_atoi(new_value, new_value_length);
        ini_value = zend_ini_string("output_handler", sizeof("output_handler"), 0);

        if (ini_value && *ini_value && int_value) {
                php_error_docref("ref.outcontrol" TSRMLS_CC, E_CORE_ERROR, "Cannot use both zlib.output_compression and output_handler together!!");
                return FAILURE;
        }
        if (stage == PHP_INI_STAGE_RUNTIME) {
                status = php_output_get_status(TSRMLS_C);
                if (status & PHP_OUTPUT_SENT) {
                        php_error_docref("ref.outcontrol" TSRMLS_CC, E_WARNING, "Cannot change zlib.output_compression - headers already sent");
                        return FAILURE;
                }
        }

        status = OnUpdateLong(entry, new_value, new_value_length, mh_arg1, mh_arg2, mh_arg3, stage TSRMLS_CC);

        ZLIBG(output_compression) = ZLIBG(output_compression_default);
        if (stage == PHP_INI_STAGE_RUNTIME && int_value) {
                if (!php_output_handler_started(ZEND_STRL(PHP_ZLIB_OUTPUT_HANDLER_NAME) TSRMLS_CC)) {
                        php_zlib_output_compression_start(TSRMLS_C);
                }
        }

        return status;
}
/* }}} */

/* {{{ OnUpdate_zlib_output_handler */
static PHP_INI_MH(OnUpdate_zlib_output_handler)
{
        if (stage == PHP_INI_STAGE_RUNTIME && (php_output_get_status(TSRMLS_C) & PHP_OUTPUT_SENT)) {
                php_error_docref("ref.outcontrol" TSRMLS_CC, E_WARNING, "Cannot change zlib.output_handler - headers already sent");
                return FAILURE;
        }

        return OnUpdateString(entry, new_value, new_value_length, mh_arg1, mh_arg2, mh_arg3, stage TSRMLS_CC);
}
/* }}} */
 
/* {{{ INI */
PHP_INI_BEGIN()
        STD_PHP_INI_BOOLEAN("zlib.output_compression",      "0", PHP_INI_ALL, OnUpdate_zlib_output_compression,       output_compression_default,       zend_zlib_globals, zlib_globals)
        STD_PHP_INI_ENTRY("zlib.output_compression_level", "-1", PHP_INI_ALL, OnUpdateLong,                           output_compression_level, zend_zlib_globals, zlib_globals)
        STD_PHP_INI_ENTRY("zlib.output_handler",             "", PHP_INI_ALL, OnUpdate_zlib_output_handler,           output_handler,           zend_zlib_globals, zlib_globals)
PHP_INI_END()

/* }}} */

/* {{{ PHP_MINIT_FUNCTION */
static PHP_MINIT_FUNCTION(zlib)
{
        php_register_url_stream_wrapper("compress.zlib", &php_stream_gzip_wrapper TSRMLS_CC);
        php_stream_filter_register_factory("zlib.*", &php_zlib_filter_factory TSRMLS_CC);

        php_output_handler_alias_register(ZEND_STRL("ob_gzhandler"), php_zlib_output_handler_init TSRMLS_CC);
        php_output_handler_conflict_register(ZEND_STRL("ob_gzhandler"), php_zlib_output_conflict_check TSRMLS_CC);
        php_output_handler_conflict_register(ZEND_STRL(PHP_ZLIB_OUTPUT_HANDLER_NAME), php_zlib_output_conflict_check TSRMLS_CC);

        REGISTER_LONG_CONSTANT("FORCE_GZIP", PHP_ZLIB_ENCODING_GZIP, CONST_CS|CONST_PERSISTENT);
        REGISTER_LONG_CONSTANT("FORCE_DEFLATE", PHP_ZLIB_ENCODING_DEFLATE, CONST_CS|CONST_PERSISTENT);

        REGISTER_LONG_CONSTANT("ZLIB_ENCODING_RAW", PHP_ZLIB_ENCODING_RAW, CONST_CS|CONST_PERSISTENT);
        REGISTER_LONG_CONSTANT("ZLIB_ENCODING_GZIP", PHP_ZLIB_ENCODING_GZIP, CONST_CS|CONST_PERSISTENT);
        REGISTER_LONG_CONSTANT("ZLIB_ENCODING_DEFLATE", PHP_ZLIB_ENCODING_DEFLATE, CONST_CS|CONST_PERSISTENT);
        REGISTER_INI_ENTRIES();
        return SUCCESS;
}
/* }}} */

/* {{{ PHP_MSHUTDOWN_FUNCTION */
static PHP_MSHUTDOWN_FUNCTION(zlib)
{
        php_unregister_url_stream_wrapper("zlib" TSRMLS_CC);
        php_stream_filter_unregister_factory("zlib.*" TSRMLS_CC);

        UNREGISTER_INI_ENTRIES();

        return SUCCESS;
}
/* }}} */

/* {{{ PHP_RINIT_FUNCTION */
static PHP_RINIT_FUNCTION(zlib)
{
        ZLIBG(compression_coding) = 0;
    if (!ZLIBG(handler_registered)) {
        ZLIBG(output_compression) = ZLIBG(output_compression_default);
        php_zlib_output_compression_start(TSRMLS_C);
    }

        return SUCCESS;
}
/* }}} */

/* {{{ PHP_RSHUTDOWN_FUNCTION */
static PHP_RSHUTDOWN_FUNCTION(zlib)
{
        php_zlib_cleanup_ob_gzhandler_mess(TSRMLS_C);
    ZLIBG(handler_registered) = 0;

    return SUCCESS;
}
/* }}} */

/* {{{ PHP_MINFO_FUNCTION */
static PHP_MINFO_FUNCTION(zlib)
{
        php_info_print_table_start();
        php_info_print_table_header(2, "ZLib Support", "enabled");
        php_info_print_table_row(2, "Stream Wrapper", "compress.zlib://");
        php_info_print_table_row(2, "Stream Filter", "zlib.inflate, zlib.deflate");
        php_info_print_table_row(2, "Compiled Version", ZLIB_VERSION);
        php_info_print_table_row(2, "Linked Version", (char *) zlibVersion());
        php_info_print_table_end();

        DISPLAY_INI_ENTRIES();
}
/* }}} */

/* {{{ ZEND_MODULE_GLOBALS_CTOR */
static ZEND_MODULE_GLOBALS_CTOR_D(zlib)
{
        zlib_globals->ob_gzhandler = NULL;
    zlib_globals->handler_registered = 0;
}
/* }}} */

/* {{{ php_zlib_module_entry */
zend_module_entry php_zlib_module_entry = {
        STANDARD_MODULE_HEADER,
        "zlib",
        php_zlib_functions,
        PHP_MINIT(zlib),
        PHP_MSHUTDOWN(zlib),
        PHP_RINIT(zlib),
        PHP_RSHUTDOWN(zlib),
        PHP_MINFO(zlib),
        "2.0",
        PHP_MODULE_GLOBALS(zlib),
        ZEND_MODULE_GLOBALS_CTOR_N(zlib),
        NULL,
        NULL,
        STANDARD_MODULE_PROPERTIES_EX
};
/* }}} */

/*
 * Local variables:
 * tab-width: 4
 * c-basic-offset: 4
 * End:
 * vim600: sw=4 ts=4 fdm=marker
 * vim<600: sw=4 ts=4
 */

/* [<][>][^][v][top][bottom][index][help] */