int ini_read_ini(s_ini_handle* hdl)
{
unsigned int i, current_line;
s_ini_section* current_section = 0;
char* current_section_name = 0;
char* current_key_name = 0;
char* current_value = 0;
unsigned int name_start, value_start;
int current_state;
if (hdl == 0)
return -1;
if (hdl->buffer == 0)
return -1;
/* printf("ini_read_ini\n"); */
current_state = STATE_EMPTY;
name_start = 0;
value_start = 0;
current_line = 1;
for (i = 0; i < hdl->buffer_size; ++i)
{
switch (current_state)
{
case STATE_EMPTY:
switch (hdl->buffer[i])
{
case '[':
name_start = i;
current_state = STATE_SECTION_NAME;
if (current_section_name != 0)
{
free(current_section_name);
current_section_name = 0;
}
break;
case ' ':
case '\t':
case '\n':
case '\r':
/* Skip white spaces */
break;
case '#':
/* Skip comment line */
current_state = STATE_SKIP;
break;
default:
if ( IS_ALPHA_NUMERIC(hdl->buffer[i]) )
{
current_state = STATE_KEYNAME;
name_start = i;
if (current_key_name != 0)
{
free(current_key_name);
current_key_name = 0;
}
}
else
{
printf("Unkown char %c found at line %d\n", hdl->buffer[i], current_line);
}
break;
}
break;
case STATE_SECTION_NAME:
switch(hdl->buffer[i])
{
case '\r':
case '\n':
printf("Misformated INI file (missing ']') at line %d\n", current_line);
case ']':
{
unsigned int section_name_len = i - (name_start);
current_section_name = (char*)malloc(section_name_len);
memcpy(current_section_name, &hdl->buffer[name_start+1], section_name_len);
current_section_name[section_name_len-1] = 0x00;
/* printf("Found section: '%s' at line %d\n", current_section_name, current_line); */
current_section = ini_add_section(hdl, current_section_name);
current_section_name = 0; /* prevent current_section_name from being freed */
current_state = STATE_EMPTY;
}
break;
}
break;
case STATE_KEYNAME:
if (hdl->buffer[i] == '=')
{
unsigned int key_name_len = i - name_start + 1;
current_key_name = (char*)malloc(key_name_len);
memcpy(current_key_name, &hdl->buffer[name_start], key_name_len);
current_key_name[key_name_len-1] = 0x00;
/* printf("Found key: '%s' at line %d\n", current_key_name, current_line); */
value_start = i;
if (current_value != 0)
{
free(current_value);
current_value = 0;
}
current_state = STATE_VALUE;
}
else if (hdl->buffer[i] == '\n' || hdl->buffer[i] == '\r')
{
printf("Missing '=' at line %d\n", current_line);
current_state = STATE_SKIP;
}
#if 0
else if ( IS_ALPHA_NUMERIC(hdl->buffer[i]) || IS_POINT(hdl->buffer[i]) || hdl->buffer[i] == '[' || hdl->buffer[i] == ']' )
{
/* Do nothing */
}
else
{
printf("Unkown char %c found at line %d\n", hdl->buffer[i], current_line);
current_state = STATE_SKIP;
}
#endif
break;
case STATE_VALUE:
if (hdl->buffer[i] == '\n' || hdl->buffer[i] == '\r')
{
unsigned int value_len = i - value_start;
current_value = (char*)malloc(value_len);
memcpy(current_value, &hdl->buffer[value_start+1], value_len);
current_value[value_len-1] = 0x00;
/* printf("Value: %s\n", current_value); */
current_state = STATE_EMPTY;
ini_add_parameter(hdl, current_section, current_key_name, current_value);
current_key_name = 0;
current_value = 0;
}
#if 0
else if ( IS_ALPHA_NUMERIC(hdl->buffer[i]) || IS_POINT(hdl->buffer[i]) || hdl->buffer[i] == '[' || hdl->buffer[i] == ']' )
{
/* Do nothing */
}
else
{
printf("Unkown char %c found at line %d\n", hdl->buffer[i], current_line);
current_state = STATE_SKIP;
}
#endif
break;
case STATE_SKIP:
if (hdl->buffer[i] == '\n' || hdl->buffer[i] == '\r')
{
current_state = STATE_EMPTY;
}
break;
}
if (hdl->buffer[i] == '\n')
{
++current_line;
}
}
/* Free used memory */
if (current_section_name != 0)
{
free(current_section_name);
}
if (current_value != 0)
{
free(current_value);
}
if (current_key_name != 0)
{
free(current_key_name);
}
return 0;
}
static int str_copy(CONF *conf, char *section, char **pto, char *from)
{
int q, r, rr = 0, to = 0, len = 0;
char *s, *e, *rp, *p, *rrp, *np, *cp, v;
BUF_MEM *buf;
if ((buf = BUF_MEM_new()) == NULL)
return (0);
len = sgx_strlen(from) + 1;
if (!BUF_MEM_grow(buf, len))
goto err;
for (;;) {
if (IS_QUOTE(conf, *from)) {
q = *from;
from++;
while (!IS_EOF(conf, *from) && (*from != q)) {
if (IS_ESC(conf, *from)) {
from++;
if (IS_EOF(conf, *from))
break;
}
buf->data[to++] = *(from++);
}
if (*from == q)
from++;
} else if (IS_DQUOTE(conf, *from)) {
q = *from;
from++;
while (!IS_EOF(conf, *from)) {
if (*from == q) {
if (*(from + 1) == q) {
from++;
} else {
break;
}
}
buf->data[to++] = *(from++);
}
if (*from == q)
from++;
} else if (IS_ESC(conf, *from)) {
from++;
v = *(from++);
if (IS_EOF(conf, v))
break;
else if (v == 'r')
v = '\r';
else if (v == 'n')
v = '\n';
else if (v == 'b')
v = '\b';
else if (v == 't')
v = '\t';
buf->data[to++] = v;
} else if (IS_EOF(conf, *from))
break;
else if (*from == '$') {
/* try to expand it */
rrp = NULL;
s = &(from[1]);
if (*s == '{')
q = '}';
else if (*s == '(')
q = ')';
else
q = 0;
if (q)
s++;
cp = section;
e = np = s;
while (IS_ALPHA_NUMERIC(conf, *e))
e++;
if ((e[0] == ':') && (e[1] == ':')) {
cp = np;
rrp = e;
rr = *e;
*rrp = '\0';
e += 2;
np = e;
while (IS_ALPHA_NUMERIC(conf, *e))
e++;
}
r = *e;
*e = '\0';
rp = e;
if (q) {
if (r != q) {
CONFerr(CONF_F_STR_COPY, CONF_R_NO_CLOSE_BRACE);
goto err;
}
e++;
}
/*-
* So at this point we have
* np which is the start of the name string which is
* '\0' terminated.
* cp which is the start of the section string which is
* '\0' terminated.
* e is the 'next point after'.
* r and rr are the chars replaced by the '\0'
* rp and rrp is where 'r' and 'rr' came from.
*/
p = _CONF_get_string(conf, cp, np);
if (rrp != NULL)
*rrp = rr;
*rp = r;
if (p == NULL) {
CONFerr(CONF_F_STR_COPY, CONF_R_VARIABLE_HAS_NO_VALUE);
goto err;
}
BUF_MEM_grow_clean(buf, (strlen(p) + buf->length - (e - from)));
while (*p)
buf->data[to++] = *(p++);
/*
* Since we change the pointer 'from', we also have to change the
* perceived length of the string it points at. /RL
*/
len -= e - from;
from = e;
/*
* In case there were no braces or parenthesis around the
* variable reference, we have to put back the character that was
* replaced with a '\0'. /RL
*/
*rp = r;
} else
buf->data[to++] = *(from++);
}
buf->data[to] = '\0';
if (*pto != NULL)
OPENSSL_free(*pto);
*pto = buf->data;
OPENSSL_free(buf);
return (1);
err:
if (buf != NULL)
BUF_MEM_free(buf);
return (0);
}
