static char *
s_collect_value (char **start, int lineno)
{
char *value = NULL;
char *readptr = *start;
int rc = 0;
while (isspace ((byte) *readptr))
readptr++;
if (*readptr == '=') {
readptr++;
while (isspace ((byte) *readptr))
readptr++;
// If value starts with quote or apost, collect it
if (*readptr == '"' || *readptr == '\'') {
char *endquote = strchr (readptr + 1, *readptr);
if (endquote) {
size_t value_length = endquote - readptr - 1;
value = (char *) zmalloc (value_length + 1);
if (!value)
return NULL;
memcpy (value, readptr + 1, value_length);
value [value_length] = 0;
rc = s_verify_eoln (endquote + 1, lineno);
}
else {
zclock_log ("E (zconfig): (%d) missing %c", lineno, *readptr);
rc = -1;
}
}
else {
// Collect unquoted value up to comment
char *comment = strchr (readptr, '#');
if (comment) {
while (isspace ((byte) comment [-1]))
comment--;
*comment = 0;
}
value = strdup (readptr);
}
}
else {
value = strdup ("");
rc = s_verify_eoln (readptr, lineno);
}
// If we had an error, drop value and return NULL
if (rc) {
free (value);
value = NULL;
}
return value;
}
zconfig_t *
zconfig_load (char *filename)
{
FILE *file = fopen (filename, "r");
if (!file)
return NULL; // File not found, or unreadable
// Parse the file line by line
zconfig_t *self = zconfig_new ("root", NULL);
char cur_line [1024];
bool valid = true;
int lineno = 0;
while (fgets (cur_line, 1024, file)) {
// Trim line
int length = strlen (cur_line);
while (length && isspace ((byte) cur_line [length - 1]))
cur_line [--length] = 0;
// Collect indentation level and name, if any
lineno++;
// Handle whole-line comment if present
if (cur_line [0] == '#') {
if (!self->comments) {
self->comments = zlist_new ();
zlist_autofree (self->comments);
}
zlist_append (self->comments, cur_line + 1);
}
char *scanner = cur_line;
int level = s_collect_level (&scanner, lineno);
if (level == -1) {
valid = false;
break;
}
char *name = s_collect_name (&scanner, lineno);
if (name == NULL) {
valid = false;
break;
}
// If name is not empty, collect property value
if (*name) {
char *value = s_collect_value (&scanner, lineno);
if (value == NULL)
valid = false;
else {
// Navigate to parent for this element
zconfig_t *parent = zconfig_at_depth (self, level);
if (parent) {
zconfig_t *item = zconfig_new (name, parent);
item->value = value;
}
else {
fprintf (stderr, "E: (%d) indentation error\n", lineno);
free (value);
valid = false;
}
}
}
else
if (s_verify_eoln (scanner, lineno))
valid = false;
free (name);
if (!valid)
break;
}
// Either the whole ZPL file is valid or none of it is
if (!valid)
zconfig_destroy (&self);
fclose (file);
return self;
}
zconfig_t *
zconfig_chunk_load (zchunk_t *chunk)
{
// Parse the chunk line by line
zconfig_t *self = zconfig_new ("root", NULL);
if (!self)
return NULL;
bool valid = true;
int lineno = 0;
char *data_ptr = (char *) zchunk_data (chunk);
size_t remaining = zchunk_size (chunk);
while (remaining) {
// Copy stuff into cur_line; not fastest but safest option
// since chunk may not be null terminated, etc.
char *eoln = (char *) memchr (data_ptr, '\n', remaining);
size_t cur_size;
if (eoln)
cur_size = eoln - data_ptr;
else
cur_size = remaining;
if (cur_size > 1024)
cur_size = 1024;
char cur_line [1024 + 1];
memcpy (cur_line, data_ptr, cur_size);
cur_line [cur_size] = '\0';
data_ptr = eoln? eoln + 1: NULL;
remaining -= cur_size + (eoln? 1: 0);
// Trim line
size_t length = strlen (cur_line);
while (length && isspace ((byte) cur_line [length - 1]))
cur_line [--length] = 0;
// Collect indentation level and name, if any
lineno++;
// Handle whole-line comment if present
if (cur_line [0] == '#') {
if (!self->comments) {
self->comments = zlist_new ();
assert (self->comments);
zlist_autofree (self->comments);
}
zlist_append (self->comments, cur_line + 1);
}
char *scanner = cur_line;
int level = s_collect_level (&scanner, lineno);
if (level == -1) {
valid = false;
break;
}
char *name = s_collect_name (&scanner, lineno);
if (name == NULL) {
valid = false;
break;
}
// If name is not empty, collect property value
if (*name) {
char *value = s_collect_value (&scanner, lineno);
if (value == NULL)
valid = false;
else {
// Navigate to parent for this element
zconfig_t *parent = zconfig_at_depth (self, level);
if (parent) {
zconfig_t *item = zconfig_new (name, parent);
assert (item);
item->value = value;
}
else {
zclock_log ("E (zconfig): (%d) indentation error", lineno);
free (value);
valid = false;
}
}
}
else
if (s_verify_eoln (scanner, lineno))
valid = false;
free (name);
if (!valid)
break;
}
// Either the whole ZPL stream is valid or none of it is
if (!valid)
zconfig_destroy (&self);
return self;
}
