You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
436 lines
9.3 KiB
436 lines
9.3 KiB
2 months ago
|
/*
|
||
|
|
* UCW Library -- Shell Interface to Configuration Files
|
||
|
|
*
|
||
|
|
* (c) 2002--2005 Martin Mares <mj@ucw.cz>
|
||
|
|
* (c) 2006 Robert Spalek <robert@ucw.cz>
|
||
|
|
* (c) 2006 Pavel Charvat <pchar@ucw.cz>
|
||
|
|
*
|
||
|
|
* Once we were using this beautiful Shell version, but it turned out
|
||
|
|
* that it doesn't work with nested config files:
|
||
|
|
*
|
||
|
|
* eval `sed <cf/sherlock '/^#/d;/^ *$/d;s/ \+$//;
|
||
|
|
* h;s@[^ ]*@@;x;s@[ ].*@@;y/abcdefghijklmnopqrstuvwxyz/ABCDEFGHIJKLMNOPQRSTUVWXYZ/;G;s/\n//;
|
||
|
|
* /^\[SECTION\]/,/^\[/ {; /^[A-Z]/ { s/^\([^ ]\+\)[ ]*\(.*\)$/SH_\1="\2"/; p; }; };
|
||
|
|
* d;'`
|
||
|
|
*
|
||
|
|
* This software may be freely distributed and used according to the terms
|
||
|
|
* of the GNU Lesser General Public License.
|
||
|
|
*/
|
||
|
|
|
||
|
|
#include <ucw/lib.h>
|
||
|
|
#include <ucw/conf.h>
|
||
|
|
#include <ucw/getopt.h>
|
||
|
|
#include <ucw/conf-internal.h>
|
||
|
|
#include <ucw/clists.h>
|
||
|
|
#include <ucw/mempool.h>
|
||
|
|
#include <ucw/chartype.h>
|
||
|
|
#include <ucw/bbuf.h>
|
||
|
|
#include <ucw/string.h>
|
||
|
|
|
||
|
|
#include <stdlib.h>
|
||
|
|
#include <stdio.h>
|
||
|
|
#include <string.h>
|
||
|
|
#include <alloca.h>
|
||
|
|
|
||
|
|
static void
|
||
|
|
help(void)
|
||
|
|
{
|
||
|
|
fputs("\n\
|
||
|
|
Usage: ucw-config [-C<configfile>] [-S<section>.<option>=<value>] <sections>\n\
|
||
|
|
\n\
|
||
|
|
<sections>\t<section>[;<sections>]\n\
|
||
|
|
<section>\t[!]<name>{[<items>]}\n\
|
||
|
|
<items>\t\t[-]<item>[;<items>]\n\
|
||
|
|
<item>\t\t<static> | <array> | <list>\n\
|
||
|
|
<static>\t<type><name>[=<value>]\n\
|
||
|
|
<list>\t\t@<name>{[<items>]}\n\
|
||
|
|
<array>\t\t<type><name><left-bracket>[<number>]<right-bracket>\n\
|
||
|
|
<value>\t\t[a-zA-Z0-9.-/]* | 'string without single quotes'<value> | \"c-like string\"<value>\n\
|
||
|
|
\n\
|
||
|
|
Types:\n\
|
||
|
|
<empty>\t\tString\n\
|
||
|
|
#\t\t32-bit integer\n\
|
||
|
|
##\t\t64-bit integer\n\
|
||
|
|
$\t\tFloating point number\n\
|
||
|
|
\n\
|
||
|
|
Modifiers:\n\
|
||
|
|
!\t\tReport unknown items as errors\n\
|
||
|
|
-\t\tDo not dump item's value\n\
|
||
|
|
", stderr);
|
||
|
|
exit(1);
|
||
|
|
}
|
||
|
|
|
||
|
|
union value {
|
||
|
|
void *v_ptr;
|
||
|
|
int v_int;
|
||
|
|
u64 v_u64;
|
||
|
|
double v_double;
|
||
|
|
clist list;
|
||
|
|
};
|
||
|
|
|
||
|
|
#define FLAG_HIDE 0x1
|
||
|
|
#define FLAG_NO_UNKNOWN 0x2
|
||
|
|
|
||
|
|
struct item {
|
||
|
|
cnode node;
|
||
|
|
uint flags;
|
||
|
|
struct cf_item cf;
|
||
|
|
union value value;
|
||
|
|
uint index;
|
||
|
|
};
|
||
|
|
|
||
|
|
struct section {
|
||
|
|
struct item item;
|
||
|
|
clist list;
|
||
|
|
uint count;
|
||
|
|
uint size;
|
||
|
|
};
|
||
|
|
|
||
|
|
static struct mempool *pool;
|
||
|
|
static clist sections;
|
||
|
|
static byte *pos;
|
||
|
|
|
||
|
|
static void
|
||
|
|
parse_white(void)
|
||
|
|
{
|
||
|
|
while (Cspace(*pos))
|
||
|
|
pos++;
|
||
|
|
}
|
||
|
|
|
||
|
|
static void
|
||
|
|
parse_char(byte c)
|
||
|
|
{
|
||
|
|
if (*pos++ != c)
|
||
|
|
die("Missing '%c'", c);
|
||
|
|
}
|
||
|
|
|
||
|
|
static byte *
|
||
|
|
parse_name(void)
|
||
|
|
{
|
||
|
|
byte *name = pos;
|
||
|
|
while (Cword(*pos))
|
||
|
|
pos++;
|
||
|
|
uint len = pos - name;
|
||
|
|
if (!len)
|
||
|
|
die("Expected item/section name");
|
||
|
|
byte *buf = mp_alloc(pool, len + 1);
|
||
|
|
memcpy(buf, name, len);
|
||
|
|
buf[len] = 0;
|
||
|
|
return buf;
|
||
|
|
}
|
||
|
|
|
||
|
|
static void
|
||
|
|
parse_section(struct section *section)
|
||
|
|
{
|
||
|
|
#define TRY(x) do{ byte *_err=(x); if (_err) die("%s", _err); }while(0)
|
||
|
|
for (uint sep = 0; ; sep = 1)
|
||
|
|
{
|
||
|
|
parse_white();
|
||
|
|
if (!*pos || *pos == '}')
|
||
|
|
break;
|
||
|
|
if (sep)
|
||
|
|
parse_char(';');
|
||
|
|
parse_white();
|
||
|
|
|
||
|
|
struct item *item;
|
||
|
|
|
||
|
|
if (*pos == '@')
|
||
|
|
{
|
||
|
|
pos++;
|
||
|
|
struct section *sec = mp_alloc_zero(pool, sizeof(*sec));
|
||
|
|
sec->size = sizeof(cnode);
|
||
|
|
clist_init(&sec->list);
|
||
|
|
item = &sec->item;
|
||
|
|
item->cf.name = parse_name();
|
||
|
|
item->cf.cls = CC_LIST;
|
||
|
|
item->cf.number = 1;
|
||
|
|
parse_white();
|
||
|
|
parse_char('{');
|
||
|
|
parse_section(sec);
|
||
|
|
parse_char('}');
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
item = mp_alloc_zero(pool, sizeof(*item));
|
||
|
|
if (*pos == '-')
|
||
|
|
{
|
||
|
|
item->flags |= FLAG_HIDE;
|
||
|
|
pos++;
|
||
|
|
}
|
||
|
|
item->cf.cls = CC_STATIC;
|
||
|
|
item->cf.number = 1;
|
||
|
|
switch (*pos)
|
||
|
|
{
|
||
|
|
case '#':
|
||
|
|
if (*++pos == '#')
|
||
|
|
{
|
||
|
|
pos++;
|
||
|
|
item->cf.type = CT_U64;
|
||
|
|
}
|
||
|
|
else
|
||
|
|
item->cf.type = CT_INT;
|
||
|
|
break;
|
||
|
|
case '$':
|
||
|
|
pos++;
|
||
|
|
item->cf.type = CT_DOUBLE;
|
||
|
|
break;
|
||
|
|
default:
|
||
|
|
if (!Cword(*pos))
|
||
|
|
die("Invalid type syntax");
|
||
|
|
item->cf.type = CT_STRING;
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
parse_white();
|
||
|
|
item->cf.name = parse_name();
|
||
|
|
parse_white();
|
||
|
|
if (*pos == '[')
|
||
|
|
{
|
||
|
|
pos++;
|
||
|
|
parse_white();
|
||
|
|
item->cf.cls = CC_DYNAMIC;
|
||
|
|
byte *num = pos;
|
||
|
|
while (*pos && *pos != ']')
|
||
|
|
pos++;
|
||
|
|
if (!*pos)
|
||
|
|
die("Missing ']'");
|
||
|
|
*pos++ = 0;
|
||
|
|
if (!*num)
|
||
|
|
item->cf.number = CF_ANY_NUM;
|
||
|
|
else
|
||
|
|
{
|
||
|
|
int inum;
|
||
|
|
TRY(cf_parse_int(num, &inum));
|
||
|
|
if (!inum)
|
||
|
|
die("Invalid array length");
|
||
|
|
item->cf.number = inum;
|
||
|
|
}
|
||
|
|
parse_white();
|
||
|
|
}
|
||
|
|
if (*pos == '=')
|
||
|
|
{
|
||
|
|
pos++;
|
||
|
|
parse_white();
|
||
|
|
if (section->item.cf.cls == CC_LIST)
|
||
|
|
die("List items can not have default values");
|
||
|
|
if (item->cf.cls == CC_DYNAMIC)
|
||
|
|
die("Arrays can not have default values");
|
||
|
|
byte *def = pos, *d = def;
|
||
|
|
while (*pos != ';' && *pos != '}' && !Cspace(*pos))
|
||
|
|
{
|
||
|
|
if (*pos == '\'')
|
||
|
|
{
|
||
|
|
pos++;
|
||
|
|
while (*pos != '\'')
|
||
|
|
{
|
||
|
|
if (!*pos)
|
||
|
|
die("Unterminated string");
|
||
|
|
*d++ = *pos++;
|
||
|
|
}
|
||
|
|
pos++;
|
||
|
|
}
|
||
|
|
else if (*pos == '"')
|
||
|
|
{
|
||
|
|
pos++;
|
||
|
|
byte *start = d;
|
||
|
|
uint esc = 0;
|
||
|
|
while (*pos != '"' || esc)
|
||
|
|
{
|
||
|
|
if (!*pos)
|
||
|
|
die("Unterminated string");
|
||
|
|
if (*pos == '\\')
|
||
|
|
esc ^= 1;
|
||
|
|
else
|
||
|
|
esc = 0;
|
||
|
|
*d++ = *pos++;
|
||
|
|
}
|
||
|
|
pos++;
|
||
|
|
*d = 0;
|
||
|
|
d = str_unesc(start, start);
|
||
|
|
}
|
||
|
|
else
|
||
|
|
*d++ = *pos++;
|
||
|
|
}
|
||
|
|
uint len = d - def;
|
||
|
|
byte *buf = mp_alloc(pool, len + 1);
|
||
|
|
memcpy(buf, def, len);
|
||
|
|
buf[len] = 0;
|
||
|
|
switch (item->cf.type)
|
||
|
|
{
|
||
|
|
case CT_STRING:
|
||
|
|
item->value.v_ptr = buf;
|
||
|
|
break;
|
||
|
|
case CT_INT:
|
||
|
|
TRY(cf_parse_int(buf, &item->value.v_int));
|
||
|
|
break;
|
||
|
|
case CT_U64:
|
||
|
|
TRY(cf_parse_u64(buf, &item->value.v_u64));
|
||
|
|
break;
|
||
|
|
case CT_DOUBLE:
|
||
|
|
TRY(cf_parse_double(buf, &item->value.v_double));
|
||
|
|
break;
|
||
|
|
default:
|
||
|
|
ASSERT(0);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
if (section->item.cf.cls == CC_LIST)
|
||
|
|
{
|
||
|
|
item->cf.ptr = (void *)(uintptr_t)section->size;
|
||
|
|
section->size += sizeof(union value);
|
||
|
|
}
|
||
|
|
else
|
||
|
|
item->cf.ptr = &item->value;
|
||
|
|
clist_add_tail(§ion->list, &item->node);
|
||
|
|
section->count++;
|
||
|
|
}
|
||
|
|
#undef TRY
|
||
|
|
}
|
||
|
|
|
||
|
|
static void
|
||
|
|
parse_outer(void)
|
||
|
|
{
|
||
|
|
for (uint sep = 0; ; sep = 1)
|
||
|
|
{
|
||
|
|
parse_white();
|
||
|
|
if (!*pos)
|
||
|
|
break;
|
||
|
|
if (sep)
|
||
|
|
parse_char(';');
|
||
|
|
parse_white();
|
||
|
|
struct section *sec = mp_alloc_zero(pool, sizeof(*sec));
|
||
|
|
if (*pos == '!')
|
||
|
|
{
|
||
|
|
pos++;
|
||
|
|
sec->item.flags |= FLAG_NO_UNKNOWN;
|
||
|
|
}
|
||
|
|
sec->item.cf.name = parse_name();
|
||
|
|
parse_white();
|
||
|
|
parse_char('{');
|
||
|
|
clist_add_tail(§ions, &sec->item.node);
|
||
|
|
clist_init(&sec->list);
|
||
|
|
parse_section(sec);
|
||
|
|
parse_char('}');
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
static struct cf_section *
|
||
|
|
generate_section(struct section *section)
|
||
|
|
{
|
||
|
|
struct cf_section *sec = mp_alloc_zero(pool, sizeof(*sec));
|
||
|
|
if (section->item.cf.cls == CC_LIST)
|
||
|
|
sec->size = section->size;
|
||
|
|
struct cf_item *c = sec->cfg = mp_alloc_zero(pool, sizeof(struct cf_item) * (section->count + 1));
|
||
|
|
CLIST_FOR_EACH(struct item *, item, section->list)
|
||
|
|
{
|
||
|
|
*c = item->cf;
|
||
|
|
if (c->cls == CC_LIST)
|
||
|
|
c->u.sec = generate_section((struct section *)item);
|
||
|
|
c++;
|
||
|
|
}
|
||
|
|
c->cls = CC_END;
|
||
|
|
return sec;
|
||
|
|
}
|
||
|
|
|
||
|
|
static bb_t path;
|
||
|
|
|
||
|
|
static void
|
||
|
|
dump_value(uint array, struct item *item, void *v)
|
||
|
|
{
|
||
|
|
byte buf[128], *value = buf;
|
||
|
|
if (!array)
|
||
|
|
printf("CF_%s_%s='", path.ptr, item->cf.name);
|
||
|
|
else
|
||
|
|
printf("CF_%s_%s[%u]='", path.ptr, item->cf.name, ++item->index);
|
||
|
|
switch (item->cf.type)
|
||
|
|
{
|
||
|
|
case CT_INT:
|
||
|
|
sprintf(buf, "%d", *(int *)v);
|
||
|
|
break;
|
||
|
|
case CT_U64:
|
||
|
|
sprintf(buf, "%llu", (long long) *(u64 *)v);
|
||
|
|
break;
|
||
|
|
case CT_DOUBLE:
|
||
|
|
sprintf(buf, "%g", *(double *)v);
|
||
|
|
break;
|
||
|
|
case CT_STRING:
|
||
|
|
if (*(byte **)v)
|
||
|
|
value = *(byte **)v;
|
||
|
|
else
|
||
|
|
*value = 0;
|
||
|
|
break;
|
||
|
|
default:
|
||
|
|
ASSERT(0);
|
||
|
|
}
|
||
|
|
while (*value) {
|
||
|
|
if (*value == '\'')
|
||
|
|
printf("'\\''");
|
||
|
|
else
|
||
|
|
putchar(*value);
|
||
|
|
value++;
|
||
|
|
}
|
||
|
|
printf("'\n");
|
||
|
|
}
|
||
|
|
|
||
|
|
static void
|
||
|
|
dump_item(struct item *item, void *ptr, uint path_len)
|
||
|
|
{
|
||
|
|
if (item->flags & FLAG_HIDE)
|
||
|
|
return;
|
||
|
|
byte *val = (byte *)((uintptr_t)ptr + (uintptr_t)item->cf.ptr);
|
||
|
|
if (item->cf.cls == CC_LIST)
|
||
|
|
{
|
||
|
|
uint len = strlen(item->cf.name);
|
||
|
|
bb_grow(&path, path_len + len + 1);
|
||
|
|
path.ptr[path_len] = '_';
|
||
|
|
memcpy(path.ptr + path_len + 1, item->cf.name, len);
|
||
|
|
CLIST_FOR_EACH(cnode *, ptr2, *(clist *)val)
|
||
|
|
CLIST_FOR_EACH(struct item *, item2, ((struct section *)item)->list)
|
||
|
|
dump_item(item2, ptr2, path_len + len + 1);
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
bb_grow(&path, path_len + 1)[path_len] = 0;
|
||
|
|
if (item->cf.cls == CC_STATIC)
|
||
|
|
dump_value(!!ptr, item, val);
|
||
|
|
else
|
||
|
|
{
|
||
|
|
val = *(void **)val;
|
||
|
|
uint len = DARY_LEN(val);
|
||
|
|
uint size = cf_type_size(item->cf.type, NULL);
|
||
|
|
for (uint i = 0; i < len; i++, val += size)
|
||
|
|
dump_value(1, item, val);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
int main(int argc, char **argv)
|
||
|
|
{
|
||
|
|
log_init("ucw-config");
|
||
|
|
if (argc < 2)
|
||
|
|
help();
|
||
|
|
pos = argv[argc - 1];
|
||
|
|
argv[argc - 1] = NULL;
|
||
|
|
|
||
|
|
pool = mp_new(0x1000);
|
||
|
|
clist_init(§ions);
|
||
|
|
parse_outer();
|
||
|
|
CLIST_FOR_EACH(struct section *, sec, sections)
|
||
|
|
cf_declare_section(sec->item.cf.name, generate_section(sec), !(sec->item.flags & FLAG_NO_UNKNOWN));
|
||
|
|
|
||
|
|
if (cf_getopt(argc - 1, argv, CF_SHORT_OPTS, CF_NO_LONG_OPTS, NULL) != -1)
|
||
|
|
help();
|
||
|
|
|
||
|
|
bb_init(&path);
|
||
|
|
CLIST_FOR_EACH(struct section *, section, sections)
|
||
|
|
{
|
||
|
|
uint len = strlen(section->item.cf.name);
|
||
|
|
memcpy(bb_grow(&path, len), section->item.cf.name, len);
|
||
|
|
CLIST_FOR_EACH(struct item *, item, section->list)
|
||
|
|
dump_item(item, NULL, len);
|
||
|
|
}
|
||
|
|
bb_done(&path);
|
||
|
|
|
||
|
|
return 0;
|
||
|
|
}
|
||
|
|
|