/ext/gettext/gettext.c
C | 304 lines | 200 code | 62 blank | 42 comment | 41 complexity | 798fec5f558cd50fe98d9d289b6ab8c9 MD5 | raw file
Possible License(s): BSD-2-Clause, BSD-3-Clause, MPL-2.0-no-copyleft-exception, LGPL-2.1
- /*
- +----------------------------------------------------------------------+
- | Copyright (c) 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> |
- +----------------------------------------------------------------------+
- */
- #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"
- #include "gettext_arginfo.h"
- #include <libintl.h>
- zend_module_entry php_gettext_module_entry = {
- STANDARD_MODULE_HEADER,
- "gettext",
- ext_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(domain_len) \
- 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_FUNCTION(textdomain)
- {
- char *domain = NULL, *domain_name, *retval;
- size_t domain_len = 0;
- if (zend_parse_parameters(ZEND_NUM_ARGS(), "s!", &domain, &domain_len) == FAILURE) {
- RETURN_THROWS();
- }
- PHP_GETTEXT_DOMAIN_LENGTH_CHECK(domain_len)
- if (domain != NULL && 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_FUNCTION(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));
- if (msgstr != ZSTR_VAL(msgid)) {
- RETURN_STRING(msgstr);
- } else {
- RETURN_STR_COPY(msgid);
- }
- }
- /* }}} */
- /* {{{ 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_FUNCTION(dgettext)
- {
- char *msgstr;
- zend_string *domain, *msgid;
- if (zend_parse_parameters(ZEND_NUM_ARGS(), "SS", &domain, &msgid) == FAILURE) {
- RETURN_THROWS();
- }
- PHP_GETTEXT_DOMAIN_LENGTH_CHECK(ZSTR_LEN(domain))
- PHP_GETTEXT_LENGTH_CHECK("msgid", ZSTR_LEN(msgid))
- msgstr = dgettext(ZSTR_VAL(domain), ZSTR_VAL(msgid));
- if (msgstr != ZSTR_VAL(msgid)) {
- RETURN_STRING(msgstr);
- } else {
- RETURN_STR_COPY(msgid);
- }
- }
- /* }}} */
- /* {{{ proto string dcgettext(string domain_name, string msgid, int category)
- Return the translation of msgid for domain_name and category, or msgid unaltered if a translation does not exist */
- PHP_FUNCTION(dcgettext)
- {
- char *msgstr;
- zend_string *domain, *msgid;
- zend_long category;
- if (zend_parse_parameters(ZEND_NUM_ARGS(), "SSl", &domain, &msgid, &category) == FAILURE) {
- RETURN_THROWS();
- }
- PHP_GETTEXT_DOMAIN_LENGTH_CHECK(ZSTR_LEN(domain))
- PHP_GETTEXT_LENGTH_CHECK("msgid", ZSTR_LEN(msgid))
- msgstr = dcgettext(ZSTR_VAL(domain), ZSTR_VAL(msgid), category);
- if (msgstr != ZSTR_VAL(msgid)) {
- RETURN_STRING(msgstr);
- } else {
- RETURN_STR_COPY(msgid);
- }
- }
- /* }}} */
- /* {{{ 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_FUNCTION(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_THROWS();
- }
- PHP_GETTEXT_DOMAIN_LENGTH_CHECK(domain_len)
- 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_FUNCTION(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_THROWS();
- }
- PHP_GETTEXT_LENGTH_CHECK("msgid1", msgid1_len)
- PHP_GETTEXT_LENGTH_CHECK("msgid2", msgid2_len)
- msgstr = ngettext(msgid1, msgid2, count);
- ZEND_ASSERT(msgstr);
- RETURN_STRING(msgstr);
- }
- /* }}} */
- #endif
- #if HAVE_DNGETTEXT
- /* {{{ proto string dngettext(string domain, string msgid1, string msgid2, int count)
- Plural version of dgettext() */
- PHP_FUNCTION(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_THROWS();
- }
- PHP_GETTEXT_DOMAIN_LENGTH_CHECK(domain_len)
- PHP_GETTEXT_LENGTH_CHECK("msgid1", msgid1_len)
- PHP_GETTEXT_LENGTH_CHECK("msgid2", msgid2_len)
- msgstr = dngettext(domain, msgid1, msgid2, count);
- ZEND_ASSERT(msgstr);
- RETURN_STRING(msgstr);
- }
- /* }}} */
- #endif
- #if HAVE_DCNGETTEXT
- /* {{{ proto string dcngettext(string domain, string msgid1, string msgid2, int n, int category)
- Plural version of dcgettext() */
- PHP_FUNCTION(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_THROWS();
- }
- PHP_GETTEXT_DOMAIN_LENGTH_CHECK(domain_len)
- PHP_GETTEXT_LENGTH_CHECK("msgid1", msgid1_len)
- PHP_GETTEXT_LENGTH_CHECK("msgid2", msgid2_len)
- msgstr = dcngettext(domain, msgid1, msgid2, count, category);
- ZEND_ASSERT(msgstr);
- RETURN_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_FUNCTION(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_THROWS();
- }
- PHP_GETTEXT_DOMAIN_LENGTH_CHECK(domain_len)
- retval = bind_textdomain_codeset(domain, codeset);
- if (!retval) {
- RETURN_FALSE;
- }
- RETURN_STRING(retval);
- }
- /* }}} */
- #endif
- #endif /* HAVE_LIBINTL */