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;
}
///
// Locate the last config item at a specified depth
QmlZconfig *QmlZconfig::atDepth (int level) {
QmlZconfig *retQ_ = new QmlZconfig ();
retQ_->self = zconfig_at_depth (self, level);
return retQ_;
};
JNIEXPORT jlong JNICALL
Java_zconfig__1_1at_depth (JNIEnv *env, jclass c, jlong self, jint level)
{
jlong at_depth_ = (jlong) zconfig_at_depth ((zconfig_t *) self, (int) level);
return at_depth_;
}
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;
}
JNIEXPORT jlong JNICALL
Java_org_zeromq_czmq_Zconfig__1_1atDepth (JNIEnv *env, jclass c, jlong self, jint level)
{
jlong at_depth_ = (jlong) (intptr_t) zconfig_at_depth ((zconfig_t *) (intptr_t) self, (int) level);
return at_depth_;
}
