config.c

Go to the documentation of this file.

#include "open.h"
#include "readwrite.h"
#include "buffer.h"
#include "error.h"
#include "getln.h"
#include "stralloc.h"
#include "config.h"
#include "env.h"
 
int config_default(config_str *c,char *s)
{
  if (c->flagconf) return 0;
  if (!s) return 0;
  if (!stralloc_copys(&c->sa,s)) return -1;
  c->flagconf = 1;
  return 0;
}
 
int config_copy(config_str *c,config_str *d)
{
  if (c->flagconf) return 0;
  if (!d->flagconf) return 0;
  if (!stralloc_copy(&c->sa,&d->sa)) return -1;
  c->flagconf = 1;
  return 0;
}
 
int config_env(config_str *c,char *s)
{
  if (c->flagconf) return 0;
  s = env_get(s);
  if (!s) return 0;
  if (!stralloc_copys(&c->sa,s)) return -1;
  c->flagconf = 1;
  return 0;
}
 
static void process(stralloc *sa)
{
  int i;
 
  while (sa->len > 0)
    switch(sa->s[sa->len - 1]) {
      case '\n': case ' ': case '\t':
        --sa->len; break;
      default:
        for (i = 0;i < sa->len;++i)
          if (sa->s[i] == 0)
            sa->s[i] = '\n';
        return;
    }
}
 
static char inbuf[128];
static stralloc line = {0};
 
int config_readline(config_str *c,char *fn)
{
  buffer bi;
  int fd;
  int match;
 
  if (c->flagconf) return 0;
 
  fd = open_read(fn);
  if (fd == -1) {
    if (errno == error_noent) return 0;
    return -1;
  }
  buffer_init(&bi,read,fd,inbuf,sizeof inbuf);
 
  if (getln(&bi,&line,&match,'\n') == -1) {
    close(fd);
    return -1;
  }
  close(fd);
 
  process(&line);
  if (!stralloc_copy(&c->sa,&line)) return -1;
  c->flagconf = 1;
  return 0;
}
 
int config_readfile(config_str *c,char *fn)
{
  buffer bi;
  int fd;
  int match;
 
  if (c->flagconf) return 0;
 
  if (!stralloc_copys(&c->sa,"")) return -1;
 
  fd = open_read(fn);
  if (fd == -1) {
    if (errno == error_noent) return 0;
    return -1;
  }
  buffer_init(&bi,read,fd,inbuf,sizeof(inbuf));
 
  for (;;) {
    if (getln(&bi,&line,&match,'\n') == -1) { close(fd); return -1; }
    process(&line);
    if (!stralloc_0(&line)) { close(fd); return -1; }
    if (line.s[0])
      if (line.s[0] != '#')
    if (!stralloc_cat(&c->sa,&line)) { close(fd); return -1; }
    if (!match) break;
  }
  close(fd);
 
  c->flagconf = 1;
  return 0;
}