text: /*
     +----------------------------------------------------------------------+
     | PHP Version 7                                                        |
     +----------------------------------------------------------------------+
     | Copyright (c) 1997-2016 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.               |
     +----------------------------------------------------------------------+
     | Author: Alex Plotnick <alex@wgate.com>                               |
     +----------------------------------------------------------------------+
   */
  
  /* $Id$ */
  
  #ifdef HAVE_CONFIG_H
  #include "config.h"
  #endif
  
  #include "php.h"
  
  #if HAVE_LIBINTL
  
  #include <stdio.h>
  #include "ext/standard/info.h"
  #include "php_gettext.h"
  
  /* {{{ arginfo */
  ZEND_BEGIN_ARG_INFO(arginfo_textdomain, 0)
  	ZEND_ARG_INFO(0, domain)
  ZEND_END_ARG_INFO()
  
  ZEND_BEGIN_ARG_INFO(arginfo_gettext, 0)
  	ZEND_ARG_INFO(0, msgid)
  ZEND_END_ARG_INFO()
  
  ZEND_BEGIN_ARG_INFO(arginfo_dgettext, 0)
  	ZEND_ARG_INFO(0, domain_name)
  	ZEND_ARG_INFO(0, msgid)
  ZEND_END_ARG_INFO()
  
  ZEND_BEGIN_ARG_INFO(arginfo_dcgettext, 0)
  	ZEND_ARG_INFO(0, domain_name)
  	ZEND_ARG_INFO(0, msgid)
  	ZEND_ARG_INFO(0, category)
  ZEND_END_ARG_INFO()
  
  ZEND_BEGIN_ARG_INFO(arginfo_bindtextdomain, 0)
  	ZEND_ARG_INFO(0, domain_name)
  	ZEND_ARG_INFO(0, dir)
  ZEND_END_ARG_INFO()
  
  #if HAVE_NGETTEXT
  ZEND_BEGIN_ARG_INFO(arginfo_ngettext, 0)
  	ZEND_ARG_INFO(0, msgid1)
  	ZEND_ARG_INFO(0, msgid2)
  	ZEND_ARG_INFO(0, count)
  ZEND_END_ARG_INFO()
  #endif
  
  #if HAVE_DNGETTEXT
  ZEND_BEGIN_ARG_INFO(arginfo_dngettext, 0)
  	ZEND_ARG_INFO(0, domain)
  	ZEND_ARG_INFO(0, msgid1)
  	ZEND_ARG_INFO(0, msgid2)
  	ZEND_ARG_INFO(0, count)
  ZEND_END_ARG_INFO()
  #endif
  
  #if HAVE_DCNGETTEXT
  ZEND_BEGIN_ARG_INFO(arginfo_dcngettext, 0)
  	ZEND_ARG_INFO(0, domain)
  	ZEND_ARG_INFO(0, msgid1)
  	ZEND_ARG_INFO(0, msgid2)
  	ZEND_ARG_INFO(0, count)
  	ZEND_ARG_INFO(0, category)
  ZEND_END_ARG_INFO()
  #endif
  
  #if HAVE_BIND_TEXTDOMAIN_CODESET
  ZEND_BEGIN_ARG_INFO(arginfo_bind_textdomain_codeset, 0)
  	ZEND_ARG_INFO(0, domain)
  	ZEND_ARG_INFO(0, codeset)
  ZEND_END_ARG_INFO()
  #endif
  /* }}} */
  
  /* {{{ php_gettext_functions[]
   */
  const zend_function_entry php_gettext_functions[] = {
  	PHP_NAMED_FE(textdomain,		zif_textdomain,		arginfo_textdomain)
  	PHP_NAMED_FE(gettext,			zif_gettext,		arginfo_gettext)
  	/* Alias for gettext() */
  	PHP_NAMED_FE(_,					zif_gettext,		arginfo_gettext)
  	PHP_NAMED_FE(dgettext,			zif_dgettext,		arginfo_dgettext)
  	PHP_NAMED_FE(dcgettext,			zif_dcgettext,		arginfo_dcgettext)
  	PHP_NAMED_FE(bindtextdomain,	zif_bindtextdomain,	arginfo_bindtextdomain)
  #if HAVE_NGETTEXT
  	PHP_NAMED_FE(ngettext,			zif_ngettext,		arginfo_ngettext)
  #endif
  #if HAVE_DNGETTEXT
  	PHP_NAMED_FE(dngettext,			zif_dngettext,		arginfo_dngettext)
  #endif
  #if HAVE_DCNGETTEXT
  	PHP_NAMED_FE(dcngettext,		zif_dcngettext,		arginfo_dcngettext)
  #endif
  #if HAVE_BIND_TEXTDOMAIN_CODESET
  	PHP_NAMED_FE(bind_textdomain_codeset,	zif_bind_textdomain_codeset,	arginfo_bind_textdomain_codeset)
  #endif
      PHP_FE_END
  };
  /* }}} */
  
  #include <libintl.h>
  
  zend_module_entry php_gettext_module_entry = {
  	STANDARD_MODULE_HEADER,
  	"gettext",
  	php_gettext_functions,
  	NULL,
  	NULL,
  	NULL,
  	NULL,
  	PHP_MINFO(php_gettext),
  	PHP_GETTEXT_VERSION,
  	STANDARD_MODULE_PROPERTIES
  };
  
  #ifdef COMPILE_DL_GETTEXT
  ZEND_GET_MODULE(php_gettext)
  #endif
  
  #define PHP_GETTEXT_MAX_DOMAIN_LENGTH 1024
  #define PHP_GETTEXT_MAX_MSGID_LENGTH 4096
  
  #define PHP_GETTEXT_DOMAIN_LENGTH_CHECK \
  	if (UNEXPECTED(domain_len > PHP_GETTEXT_MAX_DOMAIN_LENGTH)) { \
  		php_error_docref(NULL, E_WARNING, "domain passed too long"); \
  		RETURN_FALSE; \
  	}
  
  #define PHP_GETTEXT_LENGTH_CHECK(check_name, check_len) \
  	if (UNEXPECTED(check_len > PHP_GETTEXT_MAX_MSGID_LENGTH)) { \
  		php_error_docref(NULL, E_WARNING, "%s passed too long", check_name); \
  		RETURN_FALSE; \
  	}
  
  PHP_MINFO_FUNCTION(php_gettext)
  {
  	php_info_print_table_start();
  	php_info_print_table_row(2, "GetText Support", "enabled");
  	php_info_print_table_end();
  }
  
  /* {{{ proto string textdomain(string domain)
     Set the textdomain to "domain". Returns the current domain */
  PHP_NAMED_FUNCTION(zif_textdomain)
  {
  	char *domain, *domain_name, *retval;
  	size_t domain_len;
  
  	if (zend_parse_parameters(ZEND_NUM_ARGS(), "s", &domain, &domain_len) == FAILURE) {
  		return;
  	}
  
  	PHP_GETTEXT_DOMAIN_LENGTH_CHECK
  
  	if (strcmp(domain, "") && strcmp(domain, "0")) {
  		domain_name = domain;
  	} else {
  		domain_name = NULL;
  	}
  
  	retval = textdomain(domain_name);
  
  	RETURN_STRING(retval);
  }
  /* }}} */
  
  /* {{{ proto string gettext(string msgid)
     Return the translation of msgid for the current domain, or msgid unaltered if a translation does not exist */
  PHP_NAMED_FUNCTION(zif_gettext)
  {
  	char *msgstr;
  	zend_string *msgid;
  
  	ZEND_PARSE_PARAMETERS_START(1, 1)
  		Z_PARAM_STR(msgid)
  	ZEND_PARSE_PARAMETERS_END();
  
  	PHP_GETTEXT_LENGTH_CHECK("msgid", ZSTR_LEN(msgid))
  	msgstr = gettext(ZSTR_VAL(msgid));
  
  	RETURN_STRING(msgstr);
  }
  /* }}} */
  
  /* {{{ proto string dgettext(string domain_name, string msgid)
     Return the translation of msgid for domain_name, or msgid unaltered if a translation does not exist */
  PHP_NAMED_FUNCTION(zif_dgettext)
  {
  	char *domain, *msgid, *msgstr;
  	size_t domain_len, msgid_len;
  
  	if (zend_parse_parameters(ZEND_NUM_ARGS(), "ss", &domain, &domain_len, &msgid, &msgid_len) == FAILURE)	{
  		return;
  	}
  
  	PHP_GETTEXT_DOMAIN_LENGTH_CHECK
  	PHP_GETTEXT_LENGTH_CHECK("msgid", msgid_len)
  
  	msgstr = dgettext(domain, msgid);
  
  	RETURN_STRING(msgstr);
  }
  /* }}} */
  
  /* {{{ proto string dcgettext(string domain_name, string msgid, long category)
     Return the translation of msgid for domain_name and category, or msgid unaltered if a translation does not exist */
  PHP_NAMED_FUNCTION(zif_dcgettext)
  {
  	char *domain, *msgid, *msgstr;
  	size_t domain_len, msgid_len;
  	zend_long category;
  
  	if (zend_parse_parameters(ZEND_NUM_ARGS(), "ssl", &domain, &domain_len, &msgid, &msgid_len, &category) == FAILURE) {
  		return;
  	}
  
  	PHP_GETTEXT_DOMAIN_LENGTH_CHECK
  	PHP_GETTEXT_LENGTH_CHECK("msgid", msgid_len)
  
  	msgstr = dcgettext(domain, msgid, category);
  
  	RETURN_STRING(msgstr);
  }
  /* }}} */
  
  /* {{{ proto string bindtextdomain(string domain_name, string dir)
     Bind to the text domain domain_name, looking for translations in dir. Returns the current domain */
  PHP_NAMED_FUNCTION(zif_bindtextdomain)
  {
  	char *domain, *dir;
  	size_t domain_len, dir_len;
  	char *retval, dir_name[MAXPATHLEN];
  
  	if (zend_parse_parameters(ZEND_NUM_ARGS(), "ss", &domain, &domain_len, &dir, &dir_len) == FAILURE) {
  		return;
  	}
  
  	PHP_GETTEXT_DOMAIN_LENGTH_CHECK
  
  	if (domain[0] == '\0') {
  		php_error(E_WARNING, "The first parameter of bindtextdomain must not be empty");
  		RETURN_FALSE;
  	}
  
  	if (dir[0] != '\0' && strcmp(dir, "0")) {
  		if (!VCWD_REALPATH(dir, dir_name)) {
  			RETURN_FALSE;
  		}
  	} else if (!VCWD_GETCWD(dir_name, MAXPATHLEN)) {
  		RETURN_FALSE;
  	}
  
  	retval = bindtextdomain(domain, dir_name);
  
  	RETURN_STRING(retval);
  }
  /* }}} */
  
  #if HAVE_NGETTEXT
  /* {{{ proto string ngettext(string MSGID1, string MSGID2, int N)
     Plural version of gettext() */
  PHP_NAMED_FUNCTION(zif_ngettext)
  {
  	char *msgid1, *msgid2, *msgstr;
  	size_t msgid1_len, msgid2_len;
  	zend_long count;
  
  	if (zend_parse_parameters(ZEND_NUM_ARGS(), "ssl", &msgid1, &msgid1_len, &msgid2, &msgid2_len, &count) == FAILURE) {
  		return;
  	}
  
  	PHP_GETTEXT_LENGTH_CHECK("msgid1", msgid1_len)
  	PHP_GETTEXT_LENGTH_CHECK("msgid2", msgid2_len)
  
  	msgstr = ngettext(msgid1, msgid2, count);
  	if (msgstr) {
  		RETVAL_STRING(msgstr);
  	}
  }
  /* }}} */
  #endif
  
  #if HAVE_DNGETTEXT
  /* {{{ proto string dngettext (string domain, string msgid1, string msgid2, int count)
     Plural version of dgettext() */
  PHP_NAMED_FUNCTION(zif_dngettext)
  {
  	char *domain, *msgid1, *msgid2, *msgstr = NULL;
  	size_t domain_len, msgid1_len, msgid2_len;
  	zend_long count;
  
  	if (zend_parse_parameters(ZEND_NUM_ARGS(), "sssl", &domain, &domain_len,
  		&msgid1, &msgid1_len, &msgid2, &msgid2_len, &count) == FAILURE) {
  		return;
  	}
  
  	PHP_GETTEXT_DOMAIN_LENGTH_CHECK
  	PHP_GETTEXT_LENGTH_CHECK("msgid1", msgid1_len)
  	PHP_GETTEXT_LENGTH_CHECK("msgid2", msgid2_len)
  
  	msgstr = dngettext(domain, msgid1, msgid2, count);
  	if (msgstr) {
  		RETVAL_STRING(msgstr);
  	}
  }
  /* }}} */
  #endif
  
  #if HAVE_DCNGETTEXT
  /* {{{ proto string dcngettext (string domain, string msgid1, string msgid2, int n, int category)
     Plural version of dcgettext() */
  PHP_NAMED_FUNCTION(zif_dcngettext)
  {
  	char *domain, *msgid1, *msgid2, *msgstr = NULL;
  	size_t domain_len, msgid1_len, msgid2_len;
  	zend_long count, category;
  
  	RETVAL_FALSE;
  
  	if (zend_parse_parameters(ZEND_NUM_ARGS(), "sssll", &domain, &domain_len,
  		&msgid1, &msgid1_len, &msgid2, &msgid2_len, &count, &category) == FAILURE) {
  		return;
  	}
  
  	PHP_GETTEXT_DOMAIN_LENGTH_CHECK
  	PHP_GETTEXT_LENGTH_CHECK("msgid1", msgid1_len)
  	PHP_GETTEXT_LENGTH_CHECK("msgid2", msgid2_len)
  
  	msgstr = dcngettext(domain, msgid1, msgid2, count, category);
  
  	if (msgstr) {
  		RETVAL_STRING(msgstr);
  	}
  }
  /* }}} */
  #endif
  
  #if HAVE_BIND_TEXTDOMAIN_CODESET
  
  /* {{{ proto string bind_textdomain_codeset (string domain, string codeset)
     Specify the character encoding in which the messages from the DOMAIN message catalog will be returned. */
  PHP_NAMED_FUNCTION(zif_bind_textdomain_codeset)
  {
  	char *domain, *codeset, *retval = NULL;
  	size_t domain_len, codeset_len;
  
  	if (zend_parse_parameters(ZEND_NUM_ARGS(), "ss", &domain, &domain_len, &codeset, &codeset_len) == FAILURE) {
  		return;
  	}
  
  	PHP_GETTEXT_DOMAIN_LENGTH_CHECK
  
  	retval = bind_textdomain_codeset(domain, codeset);
  
  	if (!retval) {
  		RETURN_FALSE;
  	}
  	RETURN_STRING(retval);
  }
  /* }}} */
  #endif
  
  
  #endif /* HAVE_LIBINTL */
  
  /*
   * Local variables:
   * tab-width: 4
   * c-basic-offset: 4
   * End:
   * vim600: sw=4 ts=4 fdm=marker
   * vim<600: sw=4 ts=4
   */
  
  