diff options
Diffstat (limited to 'libconfig.c')
| -rw-r--r-- | libconfig.c | 1489 |
1 files changed, 0 insertions, 1489 deletions
diff --git a/libconfig.c b/libconfig.c deleted file mode 100644 index c09921d..0000000 --- a/libconfig.c +++ /dev/null @@ -1,1489 +0,0 @@ -/* ---------------------------------------------------------------------------- - libconfig - A library for processing structured configuration files - Copyright (C) 2005-2009 Mark A Lindner - - This file is part of libconfig. - - This library is free software; you can redistribute it and/or - modify it under the terms of the GNU Lesser General Public License - as published by the Free Software Foundation; either version 2.1 of - the License, or (at your option) any later version. - - This library is distributed in the hope that it will be useful, but - WITHOUT ANY WARRANTY; without even the implied warranty of - MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU - Lesser General Public License for more details. - - You should have received a copy of the GNU Library General Public - License along with this library; if not, see - <http://www.gnu.org/licenses/>. - ---------------------------------------------------------------------------- -*/ - -#ifdef HAVE_CONFIG_H -#include "ac_config.h" -#endif - -#include "libconfig.h" -#include "grammar.h" -#include "scanner.h" -#include "private.h" -#include "wincompat.h" - -#include <locale.h> - -#ifdef HAVE_XLOCALE_H -#include <xlocale.h> -#endif - -#include <stdlib.h> -#include <ctype.h> - -#define PATH_TOKENS ":./" -#define CHUNK_SIZE 10 -#define FLOAT_PRECISION 10 - -#define _new(T) (T *)calloc(sizeof(T), 1) /* zeroed */ -#define _delete(P) free((void *)(P)) - -/* ------------------------------------------------------------------------- */ - -#if (defined(WIN32) || defined(_WIN32) || defined(__WIN32__)) - -BOOL WINAPI DllMain(HINSTANCE hinstDLL, DWORD fdwReason, LPVOID lpvReserved) -{ - return(TRUE); -} - -#endif - -/* ------------------------------------------------------------------------- */ - -static const char *__io_error = "file I/O error"; - -static void __config_list_destroy(config_list_t *list); -static void __config_write_setting(const config_setting_t *setting, - FILE *stream, int depth); - -extern int libconfig_yyparse(void *scanner, struct parse_context *ctx); - -/* ------------------------------------------------------------------------- */ - -static void __config_locale_override() -{ -#if (defined(WIN32) || defined(_WIN32) || defined(__WIN32__)) \ - && ! defined(__MINGW32__) - - _configthreadlocale(_ENABLE_PER_THREAD_LOCALE); - setlocale(LC_NUMERIC, "C"); - -#elif defined(__APPLE__) - - locale_t loc = newlocale(LC_NUMERIC_MASK, "C", NULL); - uselocale(loc); - -#elif ((defined HAVE_NEWLOCALE) && (defined HAVE_USELOCALE)) - - locale_t loc = newlocale(LC_NUMERIC, "C", NULL); - uselocale(loc); - -#else - -#warning "No way to modify calling thread's locale!" - -#endif -} - -/* ------------------------------------------------------------------------- */ - -static void __config_locale_restore() -{ -#if (defined(WIN32) || defined(_WIN32) || defined(__WIN32__)) \ - && ! defined(__MINGW32__) - - _configthreadlocale(_DISABLE_PER_THREAD_LOCALE); - -#elif ((defined HAVE_USELOCALE) && (defined HAVE_FREELOCALE)) - - locale_t loc = uselocale(LC_GLOBAL_LOCALE); - freelocale(loc); - -#else - -#warning "No way to modify calling thread's locale!" - -#endif -} - -/* ------------------------------------------------------------------------- */ - -static int __config_name_compare(const char *a, const char *b) -{ - const char *p, *q; - - for(p = a, q = b; ; p++, q++) - { - int pd = ((! *p) || strchr(PATH_TOKENS, *p)); - int qd = ((! *q) || strchr(PATH_TOKENS, *q)); - - if(pd && qd) - break; - else if(pd) - return(-1); - else if(qd) - return(1); - else if(*p < *q) - return(-1); - else if(*p > *q) - return(1); - } - - return(0); -} - -/* ------------------------------------------------------------------------- */ - -static void __config_write_value(const config_value_t *value, int type, - int format, int depth, FILE *stream) -{ - char fbuf[64]; - - switch(type) - { - /* boolean */ - case CONFIG_TYPE_BOOL: - fputs(value->ival ? "true" : "false", stream); - break; - - /* int */ - case CONFIG_TYPE_INT: - switch(format) - { - case CONFIG_FORMAT_HEX: - fprintf(stream, "0x%lX", value->ival); - break; - - case CONFIG_FORMAT_DEFAULT: - default: - fprintf(stream, "%ld", value->ival); - break; - } - break; - - /* 64-bit int */ - case CONFIG_TYPE_INT64: - switch(format) - { - case CONFIG_FORMAT_HEX: - fprintf(stream, "0x" INT64_HEX_FMT "L", value->llval); - break; - - case CONFIG_FORMAT_DEFAULT: - default: - fprintf(stream, INT64_FMT "L", value->llval); - break; - } - break; - - /* float */ - case CONFIG_TYPE_FLOAT: - { - char *q; - - snprintf(fbuf, sizeof(fbuf) - 3, "%.*g", FLOAT_PRECISION, value->fval); - - /* check for exponent */ - - q = strchr(fbuf, 'e'); - if(! q) - { - /* no exponent */ - - if(! strchr(fbuf, '.')) /* no decimal point */ - strcat(fbuf, ".0"); - else - { - /* has decimal point */ - - char *p; - - for(p = fbuf + strlen(fbuf) - 1; p > fbuf; --p) - { - if(*p != '0') - { - *(++p) = '\0'; - break; - } - } - } - } - - fputs(fbuf, stream); - break; - } - - /* string */ - case CONFIG_TYPE_STRING: - { - char *p; - - fputc('\"', stream); - - if(value->sval) - { - for(p = value->sval; *p; p++) - { - switch(*p) - { - case '\"': - case '\\': - fputc('\\', stream); - fputc(*p, stream); - break; - - case '\n': - fputs("\\n", stream); - break; - - case '\r': - fputs("\\r", stream); - break; - - case '\f': - fputs("\\f", stream); - break; - - case '\t': - fputs("\\t", stream); - break; - - default: - fputc(*p, stream); - } - } - } - fputc('\"', stream); - break; - } - - /* list */ - case CONFIG_TYPE_LIST: - { - config_list_t *list = value->list; - - fprintf(stream, "( "); - - if(list) - { - int len = list->length; - config_setting_t **s; - - for(s = list->elements; len--; s++) - { - __config_write_value(&((*s)->value), (*s)->type, (*s)->format, - depth + 1, stream); - - if(len) - fputc(',', stream); - - fputc(' ', stream); - } - } - - fputc(')', stream); - break; - } - - /* array */ - case CONFIG_TYPE_ARRAY: - { - config_list_t *list = value->list; - - fprintf(stream, "[ "); - - if(list) - { - int len = list->length; - config_setting_t **s; - - for(s = list->elements; len--; s++) - { - __config_write_value(&((*s)->value), (*s)->type, (*s)->format, - depth + 1, stream); - - if(len) - fputc(',', stream); - - fputc(' ', stream); - } - } - - fputc(']', stream); - break; - } - - /* group */ - case CONFIG_TYPE_GROUP: - { - config_list_t *list = value->list; - - if(depth > 0) - { -#ifdef K_AND_R_STYLE /* Horrendous, but many people like it. */ - fputc(' ', stream); -#else - fputc('\n', stream); - - if(depth > 1) - fprintf(stream, "%*s", (depth - 1) * 2, " "); -#endif - fprintf(stream, "{\n"); - } - - if(list) - { - int len = list->length; - config_setting_t **s; - - for(s = list->elements; len--; s++) - __config_write_setting(*s, stream, depth + 1); - } - - if(depth > 1) - fprintf(stream, "%*s", (depth - 1) * 2, " "); - - if(depth > 0) - fputc('}', stream); - - break; - } - - default: - /* this shouldn't happen, but handle it gracefully... */ - fputs("???", stream); - break; - } -} - -/* ------------------------------------------------------------------------- */ - -static void __config_list_add(config_list_t *list, config_setting_t *setting) -{ - if(list->length == list->capacity) - { - list->capacity += CHUNK_SIZE; - list->elements = (config_setting_t **)realloc( - list->elements, list->capacity * sizeof(config_setting_t *)); - } - - list->elements[list->length] = setting; - list->length++; -} - -/* ------------------------------------------------------------------------- */ - -static config_setting_t *__config_list_search(config_list_t *list, - const char *name, - unsigned int *idx) -{ - config_setting_t **found = NULL; - unsigned int i; - - if(! list) - return(NULL); - - for(i = 0, found = list->elements; i < list->length; i++, found++) - { - if(! (*found)->name) - continue; - - if(! __config_name_compare(name, (*found)->name)) - { - if(idx) - *idx = i; - - return(*found); - } - } - - return(NULL); -} - -/* ------------------------------------------------------------------------- */ - -static config_setting_t *__config_list_remove(config_list_t *list, int idx) -{ - config_setting_t *removed = *(list->elements + idx); - int offset = (idx * sizeof(config_setting_t *)); - int len = list->length - 1 - idx; - char *base = (char *)list->elements + offset; - - memmove(base, base + sizeof(config_setting_t *), - len * sizeof(config_setting_t *)); - - list->length--; - - if((list->capacity - list->length) >= CHUNK_SIZE) - { - /* realloc smaller? */ - } - - return(removed); -} - -/* ------------------------------------------------------------------------- */ - -static void __config_setting_destroy(config_setting_t *setting) -{ - if(setting) - { - if(setting->name) - _delete(setting->name); - - if(setting->type == CONFIG_TYPE_STRING) - _delete(setting->value.sval); - - else if((setting->type == CONFIG_TYPE_GROUP) - || (setting->type == CONFIG_TYPE_ARRAY) - || (setting->type == CONFIG_TYPE_LIST)) - { - if(setting->value.list) - __config_list_destroy(setting->value.list); - } - - if(setting->hook && setting->config->destructor) - setting->config->destructor(setting->hook); - - _delete(setting); - } -} - -/* ------------------------------------------------------------------------- */ - -static void __config_list_destroy(config_list_t *list) -{ - config_setting_t **p; - unsigned int i; - - if(! list) - return; - - if(list->elements) - { - for(p = list->elements, i = 0; i < list->length; p++, i++) - __config_setting_destroy(*p); - - _delete(list->elements); - } - - _delete(list); -} - -/* ------------------------------------------------------------------------- */ - -static int __config_vector_checktype(const config_setting_t *vector, int type) -{ - /* if the array is empty, then it has no type yet */ - - if(! vector->value.list) - return(CONFIG_TRUE); - - if(vector->value.list->length == 0) - return(CONFIG_TRUE); - - /* if it's a list, any type is allowed */ - - if(vector->type == CONFIG_TYPE_LIST) - return(CONFIG_TRUE); - - /* otherwise the first element added determines the type of the array */ - - return((vector->value.list->elements[0]->type == type) - ? CONFIG_TRUE : CONFIG_FALSE); -} - -/* ------------------------------------------------------------------------- */ - -static int __config_validate_name(const char *name) -{ - const char *p = name; - - if(*p == '\0') - return(CONFIG_FALSE); - - if(! isalpha(*p) && (*p != '*')) - return(CONFIG_FALSE); - - for(++p; *p; ++p) - { - if(! (isalpha(*p) || isdigit(*p) || strchr("*_-", (int)*p))) - return(CONFIG_FALSE); - } - - return(CONFIG_TRUE); -} - -/* ------------------------------------------------------------------------- */ - -int config_read(config_t *config, FILE *stream) -{ - yyscan_t scanner; - struct parse_context ctx; - int r; - - /* Reinitialize the config (keep the destructor) */ - void (*destructor)(void *) = config->destructor; - config_destroy(config); - config_init(config); - config->destructor = destructor; - - ctx.config = config; - ctx.parent = config->root; - ctx.setting = config->root; - - __config_locale_override(); - - libconfig_yylex_init(&scanner); - libconfig_yyrestart(stream, scanner); - r = libconfig_yyparse(scanner, &ctx); - libconfig_yylex_destroy(scanner); - - __config_locale_restore(); - - return(r == 0 ? CONFIG_TRUE : CONFIG_FALSE); -} - -/* ------------------------------------------------------------------------- */ - -static void __config_write_setting(const config_setting_t *setting, - FILE *stream, int depth) -{ - if(depth > 1) - fprintf(stream, "%*s", (depth - 1) * 2, " "); - - if(setting->name) - { - fputs(setting->name, stream); - fprintf(stream, " %c ", (setting->type == CONFIG_TYPE_GROUP ? ':' : '=')); - } - - __config_write_value(&(setting->value), setting->type, setting->format, - depth, stream); - - if(depth > 0) - { - fputc(';', stream); - fputc('\n', stream); - } -} - -/* ------------------------------------------------------------------------- */ - -void config_write(const config_t *config, FILE *stream) -{ - __config_locale_override(); - - __config_write_setting(config->root, stream, 0); - - __config_locale_restore(); -} - -/* ------------------------------------------------------------------------- */ - -int config_read_file(config_t *config, const char *filename) -{ - int ret; - FILE *f = fopen(filename, "rt"); - if(! f) - { - config->error_text = __io_error; - return(CONFIG_FALSE); - } - - ret = config_read(config, f); - fclose(f); - return(ret); -} - -/* ------------------------------------------------------------------------- */ - -int config_write_file(config_t *config, const char *filename) -{ - FILE *f = fopen(filename, "wt"); - if(! f) - { - config->error_text = __io_error; - return(CONFIG_FALSE); - } - - config_write(config, f); - fclose(f); - return(CONFIG_TRUE); -} - -/* ------------------------------------------------------------------------- */ - -void config_destroy(config_t *config) -{ - __config_setting_destroy(config->root); - - memset((void *)config, 0, sizeof(config_t)); -} - -/* ------------------------------------------------------------------------- */ - -void config_init(config_t *config) -{ - memset((void *)config, 0, sizeof(config_t)); - - config->root = _new(config_setting_t); - config->root->type = CONFIG_TYPE_GROUP; - config->root->config = config; -} - -/* ------------------------------------------------------------------------- */ - -void config_set_auto_convert(config_t *config, int flag) -{ - if(flag) - config->flags |= CONFIG_OPTION_AUTOCONVERT; - else - config->flags &= ~CONFIG_OPTION_AUTOCONVERT; -} - -/* ------------------------------------------------------------------------- */ - -int config_get_auto_convert(const config_t *config) -{ - return((config->flags & CONFIG_OPTION_AUTOCONVERT) != 0); -} - -/* ------------------------------------------------------------------------- */ - -static config_setting_t *config_setting_create(config_setting_t *parent, - const char *name, int type) -{ - config_setting_t *setting; - config_list_t *list; - - if((parent->type != CONFIG_TYPE_GROUP) - && (parent->type != CONFIG_TYPE_ARRAY) - && (parent->type != CONFIG_TYPE_LIST)) - return(NULL); - - setting = _new(config_setting_t); - setting->parent = parent; - setting->name = (name == NULL) ? NULL : strdup(name); - setting->type = type; - setting->config = parent->config; - setting->hook = NULL; - setting->line = 0; - - list = parent->value.list; - - if(! list) - list = parent->value.list = _new(config_list_t); - - __config_list_add(list, setting); - - return(setting); -} - -/* ------------------------------------------------------------------------- */ - -long config_setting_get_int(const config_setting_t *setting) -{ - switch(setting->type) - { - case CONFIG_TYPE_INT: - return(setting->value.ival); - - case CONFIG_TYPE_INT64: - if((setting->value.llval > INT32_MAX) - || (setting->value.llval < INT32_MIN)) - return(0); - else - return((long)setting->value.llval); - - case CONFIG_TYPE_FLOAT: - if((setting->config->flags & CONFIG_OPTION_AUTOCONVERT) != 0) - return((long)(setting->value.fval)); - else - /* fall through */; - - default: - return(0); - } -} - -/* ------------------------------------------------------------------------- */ - -long long config_setting_get_int64(const config_setting_t *setting) -{ - switch(setting->type) - { - case CONFIG_TYPE_INT64: - return(setting->value.llval); - - case CONFIG_TYPE_INT: - return((long long)setting->value.ival); - - case CONFIG_TYPE_FLOAT: - if((setting->config->flags & CONFIG_OPTION_AUTOCONVERT) != 0) - return((long long)(setting->value.fval)); - else - /* fall through */; - - default: - return(0); - } -} - -/* ------------------------------------------------------------------------- */ - -int config_setting_lookup_int(const config_setting_t *setting, - const char *name, long *value) -{ - config_setting_t *member = config_setting_get_member(setting, name); - if(! member) - return(CONFIG_FALSE); - - if(config_setting_type(member) != CONFIG_TYPE_INT) - return(CONFIG_FALSE); - - *value = config_setting_get_int(member); - return(CONFIG_TRUE); -} - -/* ------------------------------------------------------------------------- */ - -int config_setting_lookup_int64(const config_setting_t *setting, - const char *name, long long *value) -{ - config_setting_t *member = config_setting_get_member(setting, name); - if(! member) - return(CONFIG_FALSE); - - if(config_setting_type(member) != CONFIG_TYPE_INT64) - return(CONFIG_FALSE); - - *value = config_setting_get_int64(member); - return(CONFIG_TRUE); -} - -/* ------------------------------------------------------------------------- */ - -int config_setting_lookup_float(const config_setting_t *setting, - const char *name, double *value) -{ - config_setting_t *member = config_setting_get_member(setting, name); - if(! member) - return(CONFIG_FALSE); - - if(config_setting_type(member) != CONFIG_TYPE_FLOAT) - return(CONFIG_FALSE); - - *value = config_setting_get_float(member); - return(CONFIG_TRUE); -} - -/* ------------------------------------------------------------------------- */ - -int config_setting_lookup_string(const config_setting_t *setting, - const char *name, const char **value) -{ - config_setting_t *member = config_setting_get_member(setting, name); - if(! member) - return(CONFIG_FALSE); - - if(config_setting_type(member) != CONFIG_TYPE_STRING) - return(CONFIG_FALSE); - - *value = config_setting_get_string(member); - return(CONFIG_TRUE); -} - -/* ------------------------------------------------------------------------- */ - -int config_setting_lookup_bool(const config_setting_t *setting, - const char *name, int *value) -{ - config_setting_t *member = config_setting_get_member(setting, name); - if(! member) - return(CONFIG_FALSE); - - if(config_setting_type(member) != CONFIG_TYPE_BOOL) - return(CONFIG_FALSE); - - *value = config_setting_get_bool(member); - return(CONFIG_TRUE); -} - -/* ------------------------------------------------------------------------- */ - -int config_setting_set_int(config_setting_t *setting, long value) -{ - switch(setting->type) - { - case CONFIG_TYPE_NONE: - setting->type = CONFIG_TYPE_INT; - /* fall through */ - - case CONFIG_TYPE_INT: - setting->value.ival = value; - return(CONFIG_TRUE); - - case CONFIG_TYPE_FLOAT: - if(config_get_auto_convert(setting->config)) - { - setting->value.fval = (float)value; - return(CONFIG_TRUE); - } - else - return(CONFIG_FALSE); - - default: - return(CONFIG_FALSE); - } -} - -/* ------------------------------------------------------------------------- */ - -int config_setting_set_int64(config_setting_t *setting, long long value) -{ - switch(setting->type) - { - case CONFIG_TYPE_NONE: - setting->type = CONFIG_TYPE_INT64; - /* fall through */ - - case CONFIG_TYPE_INT64: - setting->value.llval = value; - return(CONFIG_TRUE); - - case CONFIG_TYPE_INT: - if((value > INT32_MAX) || (value < INT32_MIN)) - setting->value.ival = 0; - else - setting->value.ival = (long)value; - return(CONFIG_TRUE); - - case CONFIG_TYPE_FLOAT: - if(config_get_auto_convert(setting->config)) - { - setting->value.fval = (float)value; - return(CONFIG_TRUE); - } - else - return(CONFIG_FALSE); - - default: - return(CONFIG_FALSE); - } -} - -/* ------------------------------------------------------------------------- */ - -double config_setting_get_float(const config_setting_t *setting) -{ - switch(setting->type) - { - case CONFIG_TYPE_FLOAT: - return(setting->value.fval); - - case CONFIG_TYPE_INT: - if(config_get_auto_convert(setting->config)) - return((double)(setting->value.ival)); - else - return(0.0); - - case CONFIG_TYPE_INT64: - if(config_get_auto_convert(setting->config)) - return((double)(setting->value.llval)); - else - return(0.0); - - default: - return(0.0); - } -} - -/* ------------------------------------------------------------------------- */ - -int config_setting_set_float(config_setting_t *setting, double value) -{ - switch(setting->type) - { - case CONFIG_TYPE_NONE: - setting->type = CONFIG_TYPE_FLOAT; - /* fall through */ - - case CONFIG_TYPE_FLOAT: - setting->value.fval = value; - return(CONFIG_TRUE); - - case CONFIG_TYPE_INT: - if((setting->config->flags & CONFIG_OPTION_AUTOCONVERT) != 0) - { - setting->value.ival = (long)value; - return(CONFIG_TRUE); - } - else - return(CONFIG_FALSE); - - case CONFIG_TYPE_INT64: - if((setting->config->flags & CONFIG_OPTION_AUTOCONVERT) != 0) - { - setting->value.llval = (long long)value; - return(CONFIG_TRUE); - } - else - return(CONFIG_FALSE); - - default: - return(CONFIG_FALSE); - } -} - -/* ------------------------------------------------------------------------- */ - -int config_setting_get_bool(const config_setting_t *setting) -{ - return((setting->type == CONFIG_TYPE_BOOL) ? setting->value.ival : 0); -} - -/* ------------------------------------------------------------------------- */ - -int config_setting_set_bool(config_setting_t *setting, int value) -{ - if(setting->type == CONFIG_TYPE_NONE) - setting->type = CONFIG_TYPE_BOOL; - else if(setting->type != CONFIG_TYPE_BOOL) - return(CONFIG_FALSE); - - setting->value.ival = value; - return(CONFIG_TRUE); -} - -/* ------------------------------------------------------------------------- */ - -const char *config_setting_get_string(const config_setting_t *setting) -{ - return((setting->type == CONFIG_TYPE_STRING) ? setting->value.sval : NULL); -} - -/* ------------------------------------------------------------------------- */ - -int config_setting_set_string(config_setting_t *setting, const char *value) -{ - if(setting->type == CONFIG_TYPE_NONE) - setting->type = CONFIG_TYPE_STRING; - else if(setting->type != CONFIG_TYPE_STRING) - return(CONFIG_FALSE); - - if(setting->value.sval) - _delete(setting->value.sval); - - setting->value.sval = (value == NULL) ? NULL : strdup(value); - return(CONFIG_TRUE); -} - -/* ------------------------------------------------------------------------- */ - -int config_setting_set_format(config_setting_t *setting, short format) -{ - if(((setting->type != CONFIG_TYPE_INT) - && (setting->type != CONFIG_TYPE_INT64)) - || ((format != CONFIG_FORMAT_DEFAULT) && (format != CONFIG_FORMAT_HEX))) - return(CONFIG_FALSE); - - setting->format = format; - - return(CONFIG_TRUE); -} - -/* ------------------------------------------------------------------------- */ - -short config_setting_get_format(config_setting_t *setting) -{ - return(setting->format); -} - -/* ------------------------------------------------------------------------- */ - -config_setting_t *config_lookup(const config_t *config, const char *path) -{ - const char *p = path; - config_setting_t *setting = config->root, *found; - - for(;;) - { - while(*p && strchr(PATH_TOKENS, *p)) - p++; - - if(! *p) - break; - - if(*p == '[') - found = config_setting_get_elem(setting, atoi(++p)); - else - found = config_setting_get_member(setting, p); - - if(! found) - break; - - setting = found; - - while(! strchr(PATH_TOKENS, *p)) - p++; - } - - return(*p ? NULL : setting); -} - -/* ------------------------------------------------------------------------- */ - -int config_lookup_string(const config_t *config, const char *path, - const char **value) -{ - const config_setting_t *s = config_lookup(config, path); - if(! s) - return(CONFIG_FALSE); - - if(config_setting_type(s) != CONFIG_TYPE_STRING) - return(CONFIG_FALSE); - - *value = config_setting_get_string(s); - - return(CONFIG_TRUE); -} - -/* ------------------------------------------------------------------------- */ - -int config_lookup_int(const config_t *config, const char *path, - long *value) -{ - const config_setting_t *s = config_lookup(config, path); - if(! s) - return(CONFIG_FALSE); - - if(config_setting_type(s) != CONFIG_TYPE_INT) - return(CONFIG_FALSE); - - *value = config_setting_get_int(s); - - return(CONFIG_TRUE); -} - -/* ------------------------------------------------------------------------- */ - -int config_lookup_int64(const config_t *config, const char *path, - long long *value) -{ - const config_setting_t *s = config_lookup(config, path); - if(! s) - return(CONFIG_FALSE); - - if(config_setting_type(s) != CONFIG_TYPE_INT64) - return(CONFIG_FALSE); - - *value = config_setting_get_int64(s); - - return(CONFIG_TRUE); -} - -/* ------------------------------------------------------------------------- */ - -int config_lookup_float(const config_t *config, const char *path, - double *value) -{ - const config_setting_t *s = config_lookup(config, path); - if(! s) - return(CONFIG_FALSE); - - if(config_setting_type(s) != CONFIG_TYPE_FLOAT) - return(CONFIG_FALSE); - - *value = config_setting_get_float(s); - return(CONFIG_TRUE); -} - -/* ------------------------------------------------------------------------- */ - -int config_lookup_bool(const config_t *config, const char *path, int *value) -{ - const config_setting_t *s = config_lookup(config, path); - if(! s) - return(CONFIG_FALSE); - - if(config_setting_type(s) != CONFIG_TYPE_BOOL) - return(CONFIG_FALSE); - - *value = config_setting_get_bool(s); - return(CONFIG_TRUE); -} - -/* ------------------------------------------------------------------------- */ - -long config_setting_get_int_elem(const config_setting_t *vector, int idx) -{ - const config_setting_t *element = config_setting_get_elem(vector, idx); - - return(element ? config_setting_get_int(element) : 0); -} - -/* ------------------------------------------------------------------------- */ - -config_setting_t *config_setting_set_int_elem(config_setting_t *vector, - int idx, long value) -{ - config_setting_t *element = NULL; - - if((vector->type != CONFIG_TYPE_ARRAY) && (vector->type != CONFIG_TYPE_LIST)) - return(NULL); - - if(idx < 0) - { - if(! __config_vector_checktype(vector, CONFIG_TYPE_INT)) - return(NULL); - - element = config_setting_create(vector, NULL, CONFIG_TYPE_INT); - } - else - { - element = config_setting_get_elem(vector, idx); - - if(! element) - return(NULL); - } - - if(! config_setting_set_int(element, value)) - return(NULL); - - return(element); -} - -/* ------------------------------------------------------------------------- */ - -long long config_setting_get_int64_elem(const config_setting_t *vector, - int idx) -{ - const config_setting_t *element = config_setting_get_elem(vector, idx); - - return(element ? config_setting_get_int64(element) : 0); -} - -/* ------------------------------------------------------------------------- */ - -config_setting_t *config_setting_set_int64_elem(config_setting_t *vector, - int idx, long long value) -{ - config_setting_t *element = NULL; - - if((vector->type != CONFIG_TYPE_ARRAY) && (vector->type != CONFIG_TYPE_LIST)) - return(NULL); - - if(idx < 0) - { - if(! __config_vector_checktype(vector, CONFIG_TYPE_INT64)) - return(NULL); - - element = config_setting_create(vector, NULL, CONFIG_TYPE_INT64); - } - else - { - element = config_setting_get_elem(vector, idx); - - if(! element) - return(NULL); - } - - if(! config_setting_set_int64(element, value)) - return(NULL); - - return(element); -} - -/* ------------------------------------------------------------------------- */ - -double config_setting_get_float_elem(const config_setting_t *vector, int idx) -{ - config_setting_t *element = config_setting_get_elem(vector, idx); - - return(element ? config_setting_get_float(element) : 0.0); -} - -/* ------------------------------------------------------------------------- */ - -config_setting_t *config_setting_set_float_elem(config_setting_t *vector, - int idx, double value) -{ - config_setting_t *element = NULL; - - if((vector->type != CONFIG_TYPE_ARRAY) && (vector->type != CONFIG_TYPE_LIST)) - return(NULL); - - if(idx < 0) - { - if(! __config_vector_checktype(vector, CONFIG_TYPE_FLOAT)) - return(NULL); - - element = config_setting_create(vector, NULL, CONFIG_TYPE_FLOAT); - } - else - element = config_setting_get_elem(vector, idx); - - if(! element) - return(NULL); - - if(! config_setting_set_float(element, value)) - return(NULL); - - return(element); -} - -/* ------------------------------------------------------------------------- */ - -int config_setting_get_bool_elem(const config_setting_t *vector, int idx) -{ - config_setting_t *element = config_setting_get_elem(vector, idx); - - if(! element) - return(CONFIG_FALSE); - - if(element->type != CONFIG_TYPE_BOOL) - return(CONFIG_FALSE); - - return(element->value.ival); -} - -/* ------------------------------------------------------------------------- */ - -config_setting_t *config_setting_set_bool_elem(config_setting_t *vector, - int idx, int value) -{ - config_setting_t *element = NULL; - - if((vector->type != CONFIG_TYPE_ARRAY) && (vector->type != CONFIG_TYPE_LIST)) - return(NULL); - - if(idx < 0) - { - if(! __config_vector_checktype(vector, CONFIG_TYPE_BOOL)) - return(NULL); - - element = config_setting_create(vector, NULL, CONFIG_TYPE_BOOL); - } - else - element = config_setting_get_elem(vector, idx); - - if(! element) - return(NULL); - - if(! config_setting_set_bool(element, value)) - return(NULL); - - return(element); -} - -/* ------------------------------------------------------------------------- */ - -const char *config_setting_get_string_elem(const config_setting_t *vector, - int idx) -{ - config_setting_t *element = config_setting_get_elem(vector, idx); - - if(! element) - return(NULL); - - if(element->type != CONFIG_TYPE_STRING) - return(NULL); - - return(element->value.sval); -} - -/* ------------------------------------------------------------------------- */ - -config_setting_t *config_setting_set_string_elem(config_setting_t *vector, - int idx, const char *value) -{ - config_setting_t *element = NULL; - - if((vector->type != CONFIG_TYPE_ARRAY) && (vector->type != CONFIG_TYPE_LIST)) - return(NULL); - - if(idx < 0) - { - if(! __config_vector_checktype(vector, CONFIG_TYPE_STRING)) - return(NULL); - - element = config_setting_create(vector, NULL, CONFIG_TYPE_STRING); - } - else - element = config_setting_get_elem(vector, idx); - - if(! element) - return(NULL); - - if(! config_setting_set_string(element, value)) - return(NULL); - - return(element); -} - -/* ------------------------------------------------------------------------- */ - -config_setting_t *config_setting_get_elem(const config_setting_t *vector, - unsigned int idx) -{ - config_list_t *list = vector->value.list; - - if(((vector->type != CONFIG_TYPE_ARRAY) - && (vector->type != CONFIG_TYPE_LIST) - && (vector->type != CONFIG_TYPE_GROUP)) || ! list) - return(NULL); - - if(idx >= list->length) - return(NULL); - - return(list->elements[idx]); -} - -/* ------------------------------------------------------------------------- */ - -config_setting_t *config_setting_get_member(const config_setting_t *setting, - const char *name) -{ - if(setting->type != CONFIG_TYPE_GROUP) - return(NULL); - - return(__config_list_search(setting->value.list, name, NULL)); -} - -/* ------------------------------------------------------------------------- */ - -void config_set_destructor(config_t *config, void (*destructor)(void *)) -{ - config->destructor = destructor; -} - -/* ------------------------------------------------------------------------- */ - -int config_setting_length(const config_setting_t *setting) -{ - if((setting->type != CONFIG_TYPE_GROUP) - && (setting->type != CONFIG_TYPE_ARRAY) - && (setting->type != CONFIG_TYPE_LIST)) - return(0); - - if(! setting->value.list) - return(0); - - return(setting->value.list->length); -} - -/* ------------------------------------------------------------------------- */ - -void config_setting_set_hook(config_setting_t *setting, void *hook) -{ - setting->hook = hook; -} - -/* ------------------------------------------------------------------------- */ - -config_setting_t *config_setting_add(config_setting_t *parent, - const char *name, int type) -{ - if((type < CONFIG_TYPE_NONE) || (type > CONFIG_TYPE_LIST)) - return(NULL); - - if(! parent) - return(NULL); - - if((parent->type == CONFIG_TYPE_ARRAY) || (parent->type == CONFIG_TYPE_LIST)) - name = NULL; - - if(name) - { - if(! __config_validate_name(name)) - return(NULL); - } - - if(config_setting_get_member(parent, name) != NULL) - return(NULL); /* already exists */ - - return(config_setting_create(parent, name, type)); -} - -/* ------------------------------------------------------------------------- */ - -int config_setting_remove(config_setting_t *parent, const char *name) -{ - unsigned int idx; - config_setting_t *setting; - - if(! parent) - return(CONFIG_FALSE); - - if(parent->type != CONFIG_TYPE_GROUP) - return(CONFIG_FALSE); - - if(! (setting = __config_list_search(parent->value.list, name, &idx))) - return(CONFIG_FALSE); - - __config_list_remove(parent->value.list, idx); - __config_setting_destroy(setting); - - return(CONFIG_TRUE); -} - -/* ------------------------------------------------------------------------- */ - -int config_setting_remove_elem(config_setting_t *parent, unsigned int idx) -{ - config_list_t *list; - config_setting_t *removed = NULL; - - if(! parent) - return(CONFIG_FALSE); - - list = parent->value.list; - - if(((parent->type != CONFIG_TYPE_ARRAY) - && (parent->type != CONFIG_TYPE_LIST) - && (parent->type != CONFIG_TYPE_GROUP)) || ! list) - return(CONFIG_FALSE); - - if(idx >= list->length) - return(CONFIG_FALSE); - - removed = __config_list_remove(list, idx); - __config_setting_destroy(removed); - - return(CONFIG_TRUE); -} - -/* ------------------------------------------------------------------------- */ - -int config_setting_index(const config_setting_t *setting) -{ - config_setting_t **found = NULL; - config_list_t *list; - int i; - - if(! setting->parent) - return(-1); - - list = setting->parent->value.list; - - for(i = 0, found = list->elements; i < list->length; ++i, ++found) - { - if(*found == setting) - return(i); - } - - return(-1); -} - -/* ------------------------------------------------------------------------- */ -/* eof */ |