/* $Id$ * $URL$ * * plugin for config file access * * Copyright (C) 2003, 2004 Michael Reinelt <michael@reinelt.co.at> * Copyright (C) 2004 The LCD4Linux Team <lcd4linux-devel@users.sourceforge.net> * * This file is part of LCD4Linux. * * LCD4Linux is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2, or (at your option) * any later version. * * LCD4Linux 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 General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. * */ /* * exported functions: * * int plugin_init_cfg (void) * adds cfg() function for config access * initializes variables from the config file * */ #include "config.h" #include <stdlib.h> #include <stdio.h> #include <string.h> #include "debug.h" #include "evaluator.h" #include "plugin.h" #include "cfg.h" #ifdef WITH_DMALLOC #include <dmalloc.h> #endif static void load_variables(void) { char *section = "Variables"; char *list, *l, *p; char *expression; void *tree; RESULT result = { 0, 0, 0, NULL }; list = cfg_list(section); l = list; while (l != NULL) { while (*l == '|') l++; if ((p = strchr(l, '|')) != NULL) *p = '\0'; if (strchr(l, '.') != NULL || strchr(l, ':') != 0) { error("ignoring variable '%s' from %s: structures not allowed", l, cfg_source()); } else { expression = cfg_get_raw(section, l, ""); if (expression != NULL && *expression != '\0') { tree = NULL; if (Compile(expression, &tree) == 0 && Eval(tree, &result) == 0) { SetVariable(l, &result); debug("Variable %s = '%s' (%g)", l, R2S(&result), R2N(&result)); DelResult(&result); } else { error("error evaluating variable '%s' from %s", list, cfg_source()); } DelTree(tree); } } l = p ? p + 1 : NULL; } free(list); } static void my_cfg(RESULT * result, const int argc, RESULT * argv[]) { int i, len; char *value; char *buffer; /* calculate key length */ len = 0; for (i = 0; i < argc; i++) { len += strlen(R2S(argv[i])) + 1; } /* allocate key buffer */ buffer = malloc(len + 1); /* prepare key buffer */ *buffer = '\0'; for (i = 0; i < argc; i++) { strcat(buffer, "."); strcat(buffer, R2S(argv[i])); } /* buffer starts with '.', so cut off first char */ value = cfg_get("", buffer + 1, ""); /* store result */ SetResult(&result, R_STRING, value); /* free buffer again */ free(buffer); free(value); } int plugin_init_cfg(void) { /* load "Variables" section from cfg */ load_variables(); /* register plugin */ AddFunction("cfg", -1, my_cfg); return 0; } void plugin_exit_cfg(void) { /* empty */ }