blob: 56e0147a553b630173a011b409e79376c2af5a1b [file] [log] [blame]
/*
* Copyright © 2013 Intel Corporation
*
* Permission is hereby granted, free of charge, to any person obtaining a
* copy of this software and associated documentation files (the "Software"),
* to deal in the Software without restriction, including without limitation
* the rights to use, copy, modify, merge, publish, distribute, sublicense,
* and/or sell copies of the Software, and to permit persons to whom the
* Software is furnished to do so, subject to the following conditions:
*
* The above copyright notice and this permission notice (including the next
* paragraph) shall be included in all copies or substantial portions of the
* Software.
*
* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
* THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
* LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
* FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS
* IN THE SOFTWARE.
*
*/
#include <sys/types.h>
#include <sys/stat.h>
#include <sys/mman.h>
#include <stdlib.h>
#include <stdio.h>
#include <string.h>
#include <ctype.h>
#include <unistd.h>
#include <fcntl.h>
#include <errno.h>
#include "overlay.h"
#define DEFAULT_SECTION "window"
static const char *skip_whitespace(const char *s, const char *end)
{
while (s < end && isspace(*s))
s++;
return s;
}
static const char *trim_whitespace(const char *s, const char *end)
{
if (end == NULL)
return end;
while (end > s && isspace(*--end))
;
return end + 1;
}
static int is_eol(int c)
{
return c == '\n' || c == '\r';
}
static const char *skip_past_eol(const char *s, const char *end)
{
while (s < end && !is_eol(*s++))
;
return s;
}
static const char *find(const char *s, const char *end, int c)
{
while (s < end && *s != c) {
if (*s == '#')
break;
if (*s == '\n')
return NULL;
s++;
}
return c == '\n' ? s : s < end ? s : NULL;
}
static int parse(const char *buf, int len,
int (*func)(const char *section,
const char *name,
const char *value,
void *data),
void *data)
{
char section[128] = DEFAULT_SECTION, name[128], value[128];
const char *buf_end = buf + len;
const char *end;
int has_section = 0;
int line;
for (line = 0 ; ++line; buf = skip_past_eol(buf, buf_end)) {
buf = skip_whitespace(buf, buf_end);
if (buf >= buf_end)
break;
if (*buf == ';' || *buf == '#') {
/* comment */
} else if (*buf == '[') { /* new section */
end = find(++buf, buf_end, ']');
if (end == NULL)
return line;
end = trim_whitespace(buf, end);
if (end <= buf)
continue;
len = end - buf;
if (len == 0 || len >= sizeof(section))
return line;
memcpy(section, buf, len);
section[len] = '\0';
has_section = 1;
} else { /* name = value */
const char *sep;
int has_value = 1;
sep = find(buf, buf_end, '=');
if (sep == NULL)
sep = find(buf, buf_end, ':');
if (sep == NULL) {
sep = find(buf, buf_end, '\n');
has_value = 0;
}
end = trim_whitespace(buf, sep);
if (end <= buf)
continue;
len = end - buf;
if (len == 0 || len >= sizeof(name))
return line;
memcpy(name, buf, len);
name[len] = '\0';
if (has_value) {
buf = skip_whitespace(sep + 1, buf_end);
end = find(buf, buf_end, '\n');
end = trim_whitespace(buf, end);
len = end - buf;
if (len >= sizeof(name))
return line;
memcpy(value, buf, len);
value[len] = '\0';
} else
*value = '\0';
if (!has_section) {
char *dot;
dot = strchr(name, '.');
if (dot && dot[1]) {
*dot = '\0';
if (!func(name, dot+1, value, data))
return line;
continue;
}
}
if (!func(section, name, value, data))
return line;
}
}
return 0;
}
static int add_value(const char *section,
const char *name,
const char *value,
void *data)
{
struct config *c = data;
struct config_section *s;
struct config_value *v, **prev;
for (s = c->sections; s != NULL; s = s->next)
if (strcmp(s->name, section) == 0)
break;
if (s == NULL) {
int len = strlen(section) + 1;
s = malloc(sizeof(*s)+len);
if (s == NULL)
return 0;
memcpy(s->name, section, len);
s->next = c->sections;
c->sections = s;
}
for (prev = &s->values; (v = *prev) != NULL; prev = &v->next) {
if (strcmp(v->name, name) == 0) {
*prev = v->next;
free(v);
break;
}
}
{
int name_len = strlen(name) + 1;
int value_len = strlen(value) + 1;
v = malloc(sizeof(*v) + name_len + value_len);
if (v == NULL)
return 0;
v->name = memcpy(v+1, name, name_len);
v->value = memcpy(v->name + name_len, value, value_len);
v->next = s->values;
s->values = v;
}
return 1;
}
static int config_init_from_file(struct config *config, const char *filename)
{
struct stat st;
int fd, err = -1;
char *str;
fd = open(filename, 0);
if (fd < 0)
return -1;
if (fstat(fd, &st) < 0)
goto err_fd;
if ((str = mmap(0, st.st_size, PROT_READ, MAP_SHARED, fd, 0)) == (void *)-1)
goto err_fd;
err = parse(str, st.st_size, add_value, config);
munmap(str, st.st_size);
err_fd:
close(fd);
return err;
}
void config_init(struct config *config)
{
memset(config, 0, sizeof(*config));
}
void config_parse_string(struct config *config, const char *str)
{
int err;
if (str == NULL)
return;
err = config_init_from_file(config, str);
if (err == -1)
err = parse(str, strlen(str), add_value, config);
if (err) {
fprintf(stderr, "Failed to parse config string at line %d\n", err);
exit(1);
}
}
void config_set_value(struct config *c,
const char *section,
const char *name,
const char *value)
{
add_value(section, name, value, c);
}
const char *config_get_value(struct config *c,
const char *section,
const char *name)
{
struct config_section *s;
struct config_value *v;
for (s = c->sections; s != NULL; s = s->next) {
if (strcmp(s->name, section))
continue;
for (v = s->values; v != NULL; v = v->next) {
if (strcmp(v->name, name))
continue;
return v->value;
}
}
return NULL;
}