130 lines
2.2 KiB
C
130 lines
2.2 KiB
C
#include "readwrite.h"
|
|
#include "open.h"
|
|
#include "getln.h"
|
|
#include "stralloc.h"
|
|
#include "substdio.h"
|
|
#include "error.h"
|
|
#include "control.h"
|
|
#include "alloc.h"
|
|
#include "scan.h"
|
|
|
|
static char inbuf[64];
|
|
static stralloc line = {0};
|
|
static stralloc me = {0};
|
|
static int meok = 0;
|
|
|
|
static void striptrailingwhitespace(sa)
|
|
stralloc *sa;
|
|
{
|
|
while (sa->len > 0)
|
|
switch(sa->s[sa->len - 1])
|
|
{
|
|
case '\n': case ' ': case '\t':
|
|
--sa->len;
|
|
break;
|
|
default:
|
|
return;
|
|
}
|
|
}
|
|
|
|
int control_init()
|
|
{
|
|
int r;
|
|
r = control_readline(&me,"control/me");
|
|
if (r == 1) meok = 1;
|
|
return r;
|
|
}
|
|
|
|
int control_rldef(sa,fn,flagme,def)
|
|
stralloc *sa;
|
|
char *fn;
|
|
int flagme;
|
|
char *def;
|
|
{
|
|
int r;
|
|
r = control_readline(sa,fn);
|
|
if (r) return r;
|
|
if (flagme) if (meok) return stralloc_copy(sa,&me) ? 1 : -1;
|
|
if (def) return stralloc_copys(sa,def) ? 1 : -1;
|
|
return r;
|
|
}
|
|
|
|
int control_readline(sa,fn)
|
|
stralloc *sa;
|
|
char *fn;
|
|
{
|
|
substdio ss;
|
|
int fd;
|
|
int match;
|
|
|
|
fd = open_read(fn);
|
|
if (fd == -1) { if (errno == error_noent) return 0; return -1; }
|
|
|
|
substdio_fdbuf(&ss,read,fd,inbuf,sizeof(inbuf));
|
|
|
|
if (getln(&ss,sa,&match,'\n') == -1) { close(fd); return -1; }
|
|
|
|
striptrailingwhitespace(sa);
|
|
close(fd);
|
|
return 1;
|
|
}
|
|
|
|
int control_readint(i,fn)
|
|
int *i;
|
|
char *fn;
|
|
{
|
|
unsigned long u;
|
|
switch(control_readline(&line,fn))
|
|
{
|
|
case 0: return 0;
|
|
case -1: return -1;
|
|
}
|
|
if (!stralloc_0(&line)) return -1;
|
|
if (!scan_ulong(line.s,&u)) return 0;
|
|
*i = u;
|
|
return 1;
|
|
}
|
|
|
|
int control_readfile(sa,fn,flagme)
|
|
stralloc *sa;
|
|
char *fn;
|
|
int flagme;
|
|
{
|
|
substdio ss;
|
|
int fd;
|
|
int match;
|
|
|
|
if (!stralloc_copys(sa,"")) return -1;
|
|
|
|
fd = open_read(fn);
|
|
if (fd == -1)
|
|
{
|
|
if (errno == error_noent)
|
|
{
|
|
if (flagme && meok)
|
|
{
|
|
if (!stralloc_copy(sa,&me)) return -1;
|
|
if (!stralloc_0(sa)) return -1;
|
|
return 1;
|
|
}
|
|
return 0;
|
|
}
|
|
return -1;
|
|
}
|
|
|
|
substdio_fdbuf(&ss,read,fd,inbuf,sizeof(inbuf));
|
|
|
|
for (;;)
|
|
{
|
|
if (getln(&ss,&line,&match,'\n') == -1) break;
|
|
if (!match && !line.len) { close(fd); return 1; }
|
|
striptrailingwhitespace(&line);
|
|
if (!stralloc_0(&line)) break;
|
|
if (line.s[0])
|
|
if (line.s[0] != '#')
|
|
if (!stralloc_cat(sa,&line)) break;
|
|
if (!match) { close(fd); return 1; }
|
|
}
|
|
close(fd);
|
|
return -1;
|
|
}
|