xbot/include/libconfig-1.7.3/lib/libconfig.c
2024-02-13 01:22:10 -06:00

1778 lines
43 KiB
C
Executable File

/* ----------------------------------------------------------------------------
libconfig - A library for processing structured configuration files
Copyright (C) 2005-2020 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 <locale.h>
#if defined(HAVE_XLOCALE_H) || defined(__APPLE__)
#include <xlocale.h>
#endif
#include <ctype.h>
#include <float.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <sys/stat.h>
#include <sys/types.h>
#include "libconfig.h"
#include "parsectx.h"
#include "scanctx.h"
#include "strvec.h"
#include "wincompat.h"
#include "grammar.h"
#include "scanner.h"
#include "util.h"
#define PATH_TOKENS ":./"
#define CHUNK_SIZE 16
#define DEFAULT_TAB_WIDTH 2
#define DEFAULT_FLOAT_PRECISION 6
/* ------------------------------------------------------------------------- */
#ifndef LIBCONFIG_STATIC
#if (defined(WIN32) || defined(_WIN32) || defined(__WIN32__) \
|| defined(WIN64) || defined(_WIN64) || defined(__WIN64__))
BOOL WINAPI DllMain(HINSTANCE hinstDLL, DWORD fdwReason, LPVOID lpvReserved)
{
return(TRUE);
}
#endif /* WIN32 || WIN64 */
#endif /* LIBCONFIG_STATIC */
/* ------------------------------------------------------------------------- */
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_t *config,
const config_setting_t *setting,
FILE *stream, int depth);
/* ------------------------------------------------------------------------- */
static void __config_locale_override(void)
{
#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(void)
{
#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_indent(FILE *stream, int depth, unsigned short w)
{
if(w)
fprintf(stream, "%*s", (depth - 1) * w, " ");
else
{
int i;
for(i = 0; i < (depth - 1); ++i)
fputc('\t', stream);
}
}
/* ------------------------------------------------------------------------- */
static void __config_write_value(const config_t *config,
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%X", value->ival);
break;
case CONFIG_FORMAT_DEFAULT:
default:
fprintf(stream, "%d", 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:
{
const int sci_ok = config_get_option(
config, CONFIG_OPTION_ALLOW_SCIENTIFIC_NOTATION);
libconfig_format_double(value->fval, config->float_precision, sci_ok,
fbuf, sizeof(fbuf));
fputs(fbuf, stream);
break;
}
/* string */
case CONFIG_TYPE_STRING:
{
char *p;
fputc('\"', stream);
if(value->sval)
{
for(p = value->sval; *p; p++)
{
int c = (int)*p & 0xFF;
switch(c)
{
case '\"':
case '\\':
fputc('\\', stream);
fputc(c, 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:
if(c >= ' ')
fputc(c, stream);
else
fprintf(stream, "\\x%02X", c);
}
}
}
fputc('\"', stream);
break;
}
/* list */
case CONFIG_TYPE_LIST:
{
config_list_t *list = value->list;
fputs("( ", stream);
if(list)
{
int len = list->length;
config_setting_t **s;
for(s = list->elements; len--; s++)
{
__config_write_value(config, &((*s)->value), (*s)->type,
config_setting_get_format(*s), depth + 1,
stream);
if(len)
fputc(',', stream);
fputc(' ', stream);
}
}
fputc(')', stream);
break;
}
/* array */
case CONFIG_TYPE_ARRAY:
{
config_list_t *list = value->list;
fputs("[ ", stream);
if(list)
{
int len = list->length;
config_setting_t **s;
for(s = list->elements; len--; s++)
{
__config_write_value(config, &((*s)->value), (*s)->type,
config_setting_get_format(*s), 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)
{
if(config_get_option(config, CONFIG_OPTION_OPEN_BRACE_ON_SEPARATE_LINE))
{
fputc('\n', stream);
if(depth > 1)
__config_indent(stream, depth, config->tab_width);
}
fputs("{\n", stream);
}
if(list)
{
int len = list->length;
config_setting_t **s;
for(s = list->elements; len--; s++)
__config_write_setting(config, *s, stream, depth + 1);
}
if(depth > 1)
__config_indent(stream, depth, config->tab_width);
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 % CHUNK_SIZE) == 0)
{
list->elements = (config_setting_t **)realloc(
list->elements,
(list->length + CHUNK_SIZE) * 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--;
/* possibly 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(config_setting_is_aggregate(setting))
{
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_list_checktype(const config_setting_t *setting, int type)
{
/* if the array is empty, then it has no type yet */
if(! setting->value.list)
return(CONFIG_TRUE);
if(setting->value.list->length == 0)
return(CONFIG_TRUE);
/* if it's a list, any type is allowed */
if(setting->type == CONFIG_TYPE_LIST)
return(CONFIG_TRUE);
/* otherwise the first element added determines the type of the array */
return((setting->value.list->elements[0]->type == type)
? CONFIG_TRUE : CONFIG_FALSE);
}
/* ------------------------------------------------------------------------- */
static int __config_type_is_scalar(int type)
{
return((type >= CONFIG_TYPE_INT) && (type <= CONFIG_TYPE_BOOL));
}
/* ------------------------------------------------------------------------- */
static int __config_validate_name(const char *name)
{
const char *p = name;
if(*p == '\0')
return(CONFIG_FALSE);
if(! isalpha((int)*p) && (*p != '*'))
return(CONFIG_FALSE);
for(++p; *p; ++p)
{
if(! (isalpha((int)*p) || isdigit((int)*p) || strchr("*_-", (int)*p)))
return(CONFIG_FALSE);
}
return(CONFIG_TRUE);
}
/* ------------------------------------------------------------------------- */
static int __config_read(config_t *config, FILE *stream, const char *filename,
const char *str)
{
yyscan_t scanner;
struct scan_context scan_ctx;
struct parse_context parse_ctx;
int r;
config_clear(config);
libconfig_parsectx_init(&parse_ctx);
parse_ctx.config = config;
parse_ctx.parent = config->root;
parse_ctx.setting = config->root;
__config_locale_override();
libconfig_scanctx_init(&scan_ctx, filename);
config->root->file = libconfig_scanctx_current_filename(&scan_ctx);
scan_ctx.config = config;
libconfig_yylex_init_extra(&scan_ctx, &scanner);
if(stream)
libconfig_yyrestart(stream, scanner);
else /* read from string */
(void)libconfig_yy_scan_string(str, scanner);
libconfig_yyset_lineno(1, scanner);
r = libconfig_yyparse(scanner, &parse_ctx, &scan_ctx);
if(r != 0)
{
YY_BUFFER_STATE buf;
config->error_file = libconfig_scanctx_current_filename(&scan_ctx);
config->error_type = CONFIG_ERR_PARSE;
/* Unwind the include stack, freeing the buffers and closing the files. */
while((buf = (YY_BUFFER_STATE)libconfig_scanctx_pop_include(&scan_ctx))
!= NULL)
libconfig_yy_delete_buffer(buf, scanner);
}
libconfig_yylex_destroy(scanner);
config->filenames = libconfig_scanctx_cleanup(&scan_ctx);
libconfig_parsectx_cleanup(&parse_ctx);
__config_locale_restore();
return(r == 0 ? CONFIG_TRUE : CONFIG_FALSE);
}
/* ------------------------------------------------------------------------- */
int config_read(config_t *config, FILE *stream)
{
return(__config_read(config, stream, NULL, NULL));
}
/* ------------------------------------------------------------------------- */
int config_read_string(config_t *config, const char *str)
{
return(__config_read(config, NULL, NULL, str));
}
/* ------------------------------------------------------------------------- */
static void __config_write_setting(const config_t *config,
const config_setting_t *setting,
FILE *stream, int depth)
{
char group_assign_char = config_get_option(
config, CONFIG_OPTION_COLON_ASSIGNMENT_FOR_GROUPS) ? ':' : '=';
char nongroup_assign_char = config_get_option(
config, CONFIG_OPTION_COLON_ASSIGNMENT_FOR_NON_GROUPS) ? ':' : '=';
if(depth > 1)
__config_indent(stream, depth, config->tab_width);
if(setting->name)
{
fputs(setting->name, stream);
fprintf(stream, " %c ", ((setting->type == CONFIG_TYPE_GROUP)
? group_assign_char
: nongroup_assign_char));
}
__config_write_value(config, &(setting->value), setting->type,
config_setting_get_format(setting), depth, stream);
if(depth > 0)
{
if(config_get_option(config, CONFIG_OPTION_SEMICOLON_SEPARATORS))
fputc(';', stream);
fputc('\n', stream);
}
}
/* ------------------------------------------------------------------------- */
void config_write(const config_t *config, FILE *stream)
{
__config_locale_override();
__config_write_setting(config, config->root, stream, 0);
__config_locale_restore();
}
/* ------------------------------------------------------------------------- */
int config_read_file(config_t *config, const char *filename)
{
int ret, ok = 0;
FILE *stream = fopen(filename, "rt");
if(stream != NULL)
{
// On some operating systems, fopen() succeeds on a directory.
int fd = fileno(stream);
struct stat statbuf;
if(fstat(fd, &statbuf) == 0)
{
// Only proceed if this is not a directory.
if(!S_ISDIR(statbuf.st_mode))
ok = 1;
}
}
if(!ok)
{
if(stream != NULL)
fclose(stream);
config->error_text = __io_error;
config->error_type = CONFIG_ERR_FILE_IO;
return(CONFIG_FALSE);
}
ret = __config_read(config, stream, filename, NULL);
fclose(stream);
return(ret);
}
/* ------------------------------------------------------------------------- */
int config_write_file(config_t *config, const char *filename)
{
FILE *stream = fopen(filename, "wt");
if(stream == NULL)
{
config->error_text = __io_error;
config->error_type = CONFIG_ERR_FILE_IO;
return(CONFIG_FALSE);
}
config_write(config, stream);
if(config_get_option(config, CONFIG_OPTION_FSYNC))
{
int fd = fileno(stream);
if(fd >= 0)
{
if(fsync(fd) != 0)
{
fclose(stream);
config->error_text = __io_error;
config->error_type = CONFIG_ERR_FILE_IO;
return(CONFIG_FALSE);
}
}
}
fclose(stream);
config->error_type = CONFIG_ERR_NONE;
return(CONFIG_TRUE);
}
/* ------------------------------------------------------------------------- */
void config_destroy(config_t *config)
{
__config_setting_destroy(config->root);
libconfig_strvec_delete(config->filenames);
__delete(config->include_dir);
__zero(config);
}
/* ------------------------------------------------------------------------- */
void config_clear(config_t *config)
{
/* Destroy the root setting (recursively) and then create a new one. */
__config_setting_destroy(config->root);
libconfig_strvec_delete(config->filenames);
config->filenames = NULL;
config->root = __new(config_setting_t);
config->root->type = CONFIG_TYPE_GROUP;
config->root->config = config;
}
/* ------------------------------------------------------------------------- */
void config_set_tab_width(config_t *config, unsigned short width)
{
/* As per documentation: valid range is 0 - 15. */
config->tab_width = (width <= 15) ? width : 15;
}
/* ------------------------------------------------------------------------- */
unsigned short config_get_tab_width(const config_t *config)
{
return config->tab_width;
}
/* ------------------------------------------------------------------------- */
void config_set_float_precision(config_t *config, unsigned short digits)
{
config->float_precision = digits;
}
/* ------------------------------------------------------------------------- */
unsigned short config_get_float_precision(const config_t *config)
{
return config->float_precision;
}
/* ------------------------------------------------------------------------- */
void config_init(config_t *config)
{
__zero(config);
config_clear(config);
/* Set default options. */
config->options = (CONFIG_OPTION_SEMICOLON_SEPARATORS
| CONFIG_OPTION_COLON_ASSIGNMENT_FOR_GROUPS
| CONFIG_OPTION_OPEN_BRACE_ON_SEPARATE_LINE);
config->tab_width = DEFAULT_TAB_WIDTH;
config->float_precision = DEFAULT_FLOAT_PRECISION;
config->include_fn = config_default_include_func;
}
/* ------------------------------------------------------------------------- */
void config_set_options(config_t *config, int options)
{
config->options = options;
}
/* ------------------------------------------------------------------------- */
int config_get_options(const config_t *config)
{
return(config->options);
}
/* ------------------------------------------------------------------------- */
void config_set_option(config_t *config, int option, int flag)
{
if(flag)
config->options |= option;
else
config->options &= ~option;
}
/* ------------------------------------------------------------------------- */
int config_get_option(const config_t *config, int option)
{
return((config->options & option) == option);
}
/* ------------------------------------------------------------------------- */
void config_set_hook(config_t *config, void *hook)
{
config->hook = hook;
}
/* ------------------------------------------------------------------------- */
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(!config_setting_is_aggregate(parent))
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);
}
/* ------------------------------------------------------------------------- */
static int __config_setting_get_int(const config_setting_t *setting,
int *value)
{
switch(setting->type)
{
case CONFIG_TYPE_INT:
*value = setting->value.ival;
return(CONFIG_TRUE);
case CONFIG_TYPE_INT64:
if((setting->value.llval >= INT_MIN)
&& (setting->value.llval <= INT_MAX))
{
*value = (int)(setting->value.llval);
return(CONFIG_TRUE);
}
else
return(CONFIG_FALSE);
case CONFIG_TYPE_FLOAT:
if(config_get_option(setting->config, CONFIG_OPTION_AUTOCONVERT))
{
*value = (int)(setting->value.fval);
return(CONFIG_TRUE);
}
else
return(CONFIG_FALSE);
default:
return(CONFIG_FALSE);
}
}
/* ------------------------------------------------------------------------- */
int config_setting_get_int(const config_setting_t *setting)
{
int value = 0;
__config_setting_get_int(setting, &value);
return(value);
}
/* ------------------------------------------------------------------------- */
static int __config_setting_get_int64(const config_setting_t *setting,
long long *value)
{
switch(setting->type)
{
case CONFIG_TYPE_INT64:
*value = setting->value.llval;
return(CONFIG_TRUE);
case CONFIG_TYPE_INT:
*value = (long long)(setting->value.ival);
return(CONFIG_TRUE);
case CONFIG_TYPE_FLOAT:
if(config_get_option(setting->config, CONFIG_OPTION_AUTOCONVERT))
{
*value = (long long)(setting->value.fval);
return(CONFIG_TRUE);
}
else
return(CONFIG_FALSE);
default:
return(CONFIG_FALSE);
}
}
/* ------------------------------------------------------------------------- */
long long config_setting_get_int64(const config_setting_t *setting)
{
long long value = 0;
__config_setting_get_int64(setting, &value);
return(value);
}
/* ------------------------------------------------------------------------- */
int config_setting_lookup_int(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);
return(__config_setting_get_int(member, value));
}
/* ------------------------------------------------------------------------- */
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);
return(__config_setting_get_int64(member, value));
}
/* ------------------------------------------------------------------------- */
static int __config_setting_get_float(const config_setting_t *setting,
double *value)
{
switch(setting->type)
{
case CONFIG_TYPE_FLOAT:
*value = setting->value.fval;
return(CONFIG_TRUE);
case CONFIG_TYPE_INT:
if(config_get_auto_convert(setting->config))
{
*value = (double)(setting->value.ival);
return(CONFIG_TRUE);
}
else
return(CONFIG_FALSE);
case CONFIG_TYPE_INT64:
if(config_get_auto_convert(setting->config))
{
*value = (double)(setting->value.llval);
return(CONFIG_TRUE);
}
else
return(CONFIG_FALSE);
default:
return(CONFIG_FALSE);
}
}
/* ------------------------------------------------------------------------- */
double config_setting_get_float(const config_setting_t *setting)
{
double value = 0.0;
__config_setting_get_float(setting, &value);
return(value);
}
/* ------------------------------------------------------------------------- */
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);
return(__config_setting_get_float(member, value));
}
/* ------------------------------------------------------------------------- */
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, int 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 >= INT_MIN) && (value <= INT_MAX))
{
setting->value.ival = (int)value;
return(CONFIG_TRUE);
}
else
return(CONFIG_FALSE);
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_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(config_get_option(setting->config, CONFIG_OPTION_AUTOCONVERT))
{
setting->value.ival = (int)value;
return(CONFIG_TRUE);
}
else
return(CONFIG_FALSE);
case CONFIG_TYPE_INT64:
if(config_get_option(setting->config, CONFIG_OPTION_AUTOCONVERT))
{
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(const config_setting_t *setting)
{
return(setting->format != 0 ? setting->format
: setting->config->default_format);
}
/* ------------------------------------------------------------------------- */
config_setting_t *config_setting_lookup(config_setting_t *setting,
const char *path)
{
const char *p = path;
config_setting_t *found = setting;
for(;;)
{
while(*p && strchr(PATH_TOKENS, *p))
p++;
if(! *p)
break;
if(*p == '[')
found = config_setting_get_elem(found, atoi(++p));
else
found = config_setting_get_member(found, p);
if(! found)
break;
while(! strchr(PATH_TOKENS, *p))
p++;
}
return(*p || (found == setting) ? NULL : found);
}
/* ------------------------------------------------------------------------- */
config_setting_t *config_lookup(const config_t *config, const char *path)
{
return(config_setting_lookup(config->root, path));
}
/* ------------------------------------------------------------------------- */
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,
int *value)
{
const config_setting_t *s = config_lookup(config, path);
if(! s)
return(CONFIG_FALSE);
return(__config_setting_get_int(s, value));
}
/* ------------------------------------------------------------------------- */
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);
return(__config_setting_get_int64(s, value));
}
/* ------------------------------------------------------------------------- */
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);
return(__config_setting_get_float(s, value));
}
/* ------------------------------------------------------------------------- */
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);
}
/* ------------------------------------------------------------------------- */
int config_setting_get_int_elem(const config_setting_t *setting, int idx)
{
const config_setting_t *element = config_setting_get_elem(setting, idx);
return(element ? config_setting_get_int(element) : 0);
}
/* ------------------------------------------------------------------------- */
config_setting_t *config_setting_set_int_elem(config_setting_t *setting,
int idx, int value)
{
config_setting_t *element = NULL;
if((setting->type != CONFIG_TYPE_ARRAY)
&& (setting->type != CONFIG_TYPE_LIST))
return(NULL);
if(idx < 0)
{
if(! __config_list_checktype(setting, CONFIG_TYPE_INT))
return(NULL);
element = config_setting_create(setting, NULL, CONFIG_TYPE_INT);
}
else
{
element = config_setting_get_elem(setting, 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 *setting,
int idx)
{
const config_setting_t *element = config_setting_get_elem(setting, idx);
return(element ? config_setting_get_int64(element) : 0);
}
/* ------------------------------------------------------------------------- */
config_setting_t *config_setting_set_int64_elem(config_setting_t *setting,
int idx, long long value)
{
config_setting_t *element = NULL;
if((setting->type != CONFIG_TYPE_ARRAY)
&& (setting->type != CONFIG_TYPE_LIST))
return(NULL);
if(idx < 0)
{
if(! __config_list_checktype(setting, CONFIG_TYPE_INT64))
return(NULL);
element = config_setting_create(setting, NULL, CONFIG_TYPE_INT64);
}
else
{
element = config_setting_get_elem(setting, 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 *setting, int idx)
{
config_setting_t *element = config_setting_get_elem(setting, idx);
return(element ? config_setting_get_float(element) : 0.0);
}
/* ------------------------------------------------------------------------- */
config_setting_t *config_setting_set_float_elem(config_setting_t *setting,
int idx, double value)
{
config_setting_t *element = NULL;
if((setting->type != CONFIG_TYPE_ARRAY)
&& (setting->type != CONFIG_TYPE_LIST))
return(NULL);
if(idx < 0)
{
if(! __config_list_checktype(setting, CONFIG_TYPE_FLOAT))
return(NULL);
element = config_setting_create(setting, NULL, CONFIG_TYPE_FLOAT);
}
else
element = config_setting_get_elem(setting, 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 *setting, int idx)
{
config_setting_t *element = config_setting_get_elem(setting, 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 *setting,
int idx, int value)
{
config_setting_t *element = NULL;
if((setting->type != CONFIG_TYPE_ARRAY)
&& (setting->type != CONFIG_TYPE_LIST))
return(NULL);
if(idx < 0)
{
if(! __config_list_checktype(setting, CONFIG_TYPE_BOOL))
return(NULL);
element = config_setting_create(setting, NULL, CONFIG_TYPE_BOOL);
}
else
element = config_setting_get_elem(setting, 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 *setting,
int idx)
{
config_setting_t *element = config_setting_get_elem(setting, 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 *setting,
int idx, const char *value)
{
config_setting_t *element = NULL;
if((setting->type != CONFIG_TYPE_ARRAY)
&& (setting->type != CONFIG_TYPE_LIST))
return(NULL);
if(idx < 0)
{
if(! __config_list_checktype(setting, CONFIG_TYPE_STRING))
return(NULL);
element = config_setting_create(setting, NULL, CONFIG_TYPE_STRING);
}
else
element = config_setting_get_elem(setting, 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 *setting,
unsigned int idx)
{
config_list_t *list;
if(! config_setting_is_aggregate(setting))
return(NULL);
list = setting->value.list;
if(! 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;
}
/* ------------------------------------------------------------------------- */
void config_set_include_dir(config_t *config, const char *include_dir)
{
__delete(config->include_dir);
config->include_dir = strdup(include_dir);
}
/* ------------------------------------------------------------------------- */
void config_set_include_func(config_t *config, config_include_fn_t func)
{
config->include_fn = func ? func : config_default_include_func;
}
/* ------------------------------------------------------------------------- */
int config_setting_length(const config_setting_t *setting)
{
if(! config_setting_is_aggregate(setting))
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) && !__config_type_is_scalar(type))
return(NULL); /* only scalars can be added to arrays */
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)
{
if(config_get_option(parent->config, CONFIG_OPTION_ALLOW_OVERRIDES))
config_setting_remove(parent, name);
else
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;
const char *settingName;
const char *lastFound;
if(! parent)
return(CONFIG_FALSE);
if(parent->type != CONFIG_TYPE_GROUP)
return(CONFIG_FALSE);
setting = config_setting_lookup(parent, name);
if(! setting)
return(CONFIG_FALSE);
settingName = name;
do
{
lastFound = settingName;
while(settingName && !strchr(PATH_TOKENS, *settingName))
++settingName;
if(*settingName == '\0')
{
settingName = lastFound;
break;
}
}while(*++settingName);
if(!(setting = __config_list_search(setting->parent->value.list, settingName, &idx)))
return(CONFIG_FALSE);
__config_list_remove(setting->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);
if(! config_setting_is_aggregate(parent))
return(CONFIG_FALSE);
list = parent->value.list;
if(! 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 < (int)list->length; ++i, ++found)
{
if(*found == setting)
return(i);
}
return(-1);
}
/* ------------------------------------------------------------------------- */
const char **config_default_include_func(config_t *config,
const char *include_dir,
const char *path,
const char **error)
{
char *file;
const char **files;
if(include_dir && IS_RELATIVE_PATH(path))
{
file = (char *)malloc(strlen(include_dir) + strlen(path) + 2);
strcpy(file, include_dir);
strcat(file, FILE_SEPARATOR);
strcat(file, path);
}
else
file = strdup(path);
*error = NULL;
files = (const char **)malloc(sizeof(char **) * 2);
files[0] = file;
files[1] = NULL;
return(files);
}
/* ------------------------------------------------------------------------- */
int config_setting_is_scalar(const config_setting_t *setting)
{
return(__config_type_is_scalar(setting->type));
}
/* ------------------------------------------------------------------------- */
int config_setting_is_aggregate(const config_setting_t *setting)
{
return((setting->type == CONFIG_TYPE_ARRAY)
|| (setting->type == CONFIG_TYPE_LIST)
|| (setting->type == CONFIG_TYPE_GROUP));
}
/* ------------------------------------------------------------------------- */