unsupported  hunsupported +lY>eJ}@?q1h aq_I|+;;/* +----------------------------------------------------------------------+ | PHP Version 5 | +----------------------------------------------------------------------+ | 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: Marcus Boerger | +----------------------------------------------------------------------+ */ /* $Id: 95ac9a8ea61cf97a1e4d5acd2efe1dd6092e9a39 $ */ #ifdef HAVE_CONFIG_H #include "config.h" #endif #include "php.h" #include "php_globals.h" #include #include #include #if HAVE_UNISTD_H #include #endif #include "inifile.h" /* ret = -1 means that database was opened for read-only * ret = 0 success * ret = 1 key already exists - nothing done */ /* {{{ inifile_version */ char *inifile_version() { return "1.0, $Id: 95ac9a8ea61cf97a1e4d5acd2efe1dd6092e9a39 $"; } /* }}} */ /* {{{ inifile_free_key */ void inifile_key_free(key_type *key) { if (key->group) { efree(key->group); } if (key->name) { efree(key->name); } memset(key, 0, sizeof(key_type)); } /* }}} */ /* {{{ inifile_free_val */ void inifile_val_free(val_type *val) { if (val->value) { efree(val->value); } memset(val, 0, sizeof(val_type)); } /* }}} */ /* {{{ inifile_free_val */ void inifile_line_free(line_type *ln) { inifile_key_free(&ln->key); inifile_val_free(&ln->val); ln->pos = 0; } /* }}} */ /* {{{ inifile_alloc */ inifile * inifile_alloc(php_stream *fp, int readonly, int persistent TSRMLS_DC) { inifile *dba; if (!readonly) { if (!php_stream_truncate_supported(fp)) { php_error_docref(NULL TSRMLS_CC, E_WARNING, "Can't truncate this stream"); return NULL; } } dba = pemalloc(sizeof(inifile), persistent); memset(dba, 0, sizeof(inifile)); dba->fp = fp; dba->readonly = readonly; return dba; } /* }}} */ /* {{{ inifile_free */ void inifile_free(inifile *dba, int persistent) { if (dba) { inifile_line_free(&dba->curr); inifile_line_free(&dba->next); pefree(dba, persistent); } } /* }}} */ /* {{{ inifile_key_split */ key_type inifile_key_split(const char *group_name) { key_type key; char *name; if (group_name[0] == '[' && (name = strchr(group_name, ']')) != NULL) { key.group = estrndup(group_name+1, name - (group_name + 1)); key.name = estrdup(name+1); } else { key.group = estrdup(""); key.name = estrdup(group_name); } return key; } /* }}} */ /* {{{ inifile_key_string */ char * inifile_key_string(const key_type *key) { if (key->group && *key->group) { char *result; spprintf(&result, 0, "[%s]%s", key->group, key->name ? key->name : ""); return result; } else if (key->name) { return estrdup(key->name); } else { return NULL; } } /* }}} */ /* {{{ etrim */ static char *etrim(const char *str) { char *val; size_t l; if (!str) { return NULL; } val = (char*)str; while (*val && strchr(" \t\r\n", *val)) { val++; } l = strlen(val); while (l && (strchr(" \t\r\n", val[l-1]))) { l--; } return estrndup(val, l); } /* }}} */ /* {{{ inifile_findkey */ static int inifile_read(inifile *dba, line_type *ln TSRMLS_DC) { char *fline; char *pos; inifile_val_free(&ln->val); while ((fline = php_stream_g