/**
* Returns a string that corresponds to correct section and key in inifile.
*
* Returns NULL if value was not found in inifile. Otherwise returns a copy
* of string pointed by "section" and "key". Returned string should be freed
* after use.
*/
gchar *read_ini_string(INIFile *inifile, const gchar *section, const gchar *key)
{
GString *section_string;
GString *key_string;
gchar *value = NULL;
gpointer section_hash, key_hash;
GHashTable *section_table;
g_return_val_if_fail(inifile, NULL);
section_string = g_string_new(section);
key_string = g_string_new(key);
value = NULL;
strip_lower_string(section_string);
strip_lower_string(key_string);
section_hash = GINT_TO_POINTER(g_string_hash(section_string));
key_hash = GINT_TO_POINTER(g_string_hash(key_string));
section_table = g_hash_table_lookup(inifile, section_hash);
if (section_table)
{
value =
g_strdup(g_hash_table_lookup
(section_table, GINT_TO_POINTER(key_hash)));
}
g_string_free(section_string, TRUE);
g_string_free(key_string, TRUE);
g_return_val_if_fail(value, NULL);
return value;
}
/**
* hash function for GString
*/
guint g_hash_table_string_hash(gconstpointer _key) {
return g_string_hash(_key);
}
INIFile * open_ini_file (VFSFile * file)
{
GHashTable *ini_file = NULL;
GHashTable *section = NULL;
GString *section_name, *key_name, *value;
gpointer section_hash, key_hash;
gsize off = 0;
gint64 filesize = vfs_fsize (file);
if (filesize < 1)
return NULL;
gchar * buffer = g_malloc (filesize);
filesize = vfs_fread (buffer, 1, filesize, file);
section_name = g_string_new("");
key_name = g_string_new(NULL);
value = g_string_new(NULL);
ini_file =
g_hash_table_new_full(NULL, NULL, NULL, close_ini_file_free_section);
section =
g_hash_table_new_full(NULL, NULL, NULL, close_ini_file_free_value);
/* make a nameless section which should store all entries that are not
* embedded in a section */
section_hash = GINT_TO_POINTER(g_string_hash(section_name));
g_hash_table_insert(ini_file, section_hash, section);
while (off < filesize)
{
/* ignore the following characters */
if (buffer[off] == '\r' || buffer[off] == '\n' || buffer[off] == ' '
|| buffer[off] == '\t')
{
if (buffer[off] == '\n')
{
g_string_free(key_name, TRUE);
g_string_free(value, TRUE);
key_name = g_string_new(NULL);
value = g_string_new(NULL);
}
off++;
continue;
}
/* if we encounter a possible section statement */
if (buffer[off] == '[')
{
g_string_free(section_name, TRUE);
section_name = g_string_new(NULL);
off++;
if (off >= filesize)
goto return_sequence;
while (buffer[off] != ']')
{
/* if the section statement has not been closed before a
* linebreak */
if (buffer[off] == '\n')
break;
g_string_append_c(section_name, buffer[off]);
off++;
if (off >= filesize)
goto return_sequence;
}
if (buffer[off] == '\n')
continue;
if (buffer[off] == ']')
{
off++;
if (off >= filesize)
goto return_sequence;
strip_lower_string(section_name);
section_hash = GINT_TO_POINTER(g_string_hash(section_name));
/* if this section already exists, we don't make a new one,
* but reuse the old one */
if (g_hash_table_lookup(ini_file, section_hash) != NULL)
section = g_hash_table_lookup(ini_file, section_hash);
else
{
section =
g_hash_table_new_full(NULL, NULL, NULL,
close_ini_file_free_value);
g_hash_table_insert(ini_file, section_hash, section);
}
continue;
}
}
if (buffer[off] == '=')
{
off++;
if (off >= filesize)
goto return_sequence;
while (buffer[off] != '\n' && buffer[off] != '\r')
{
g_string_append_c(value, buffer[off]);
off++;
if (off >= filesize)
break;
}
strip_lower_string(key_name);
key_hash = GINT_TO_POINTER(g_string_hash(key_name));
strip_string(value);
if (key_name->len > 0 && value->len > 0)
g_hash_table_insert(section, key_hash, g_strdup(value->str));
}
else
{
g_string_append_c(key_name, buffer[off]);
off++;
if (off >= filesize)
goto return_sequence;
}
}
return_sequence:
g_string_free(section_name, TRUE);
g_string_free(key_name, TRUE);
g_string_free(value, TRUE);
g_free(buffer);
return ini_file;
}
INIFile *open_ini_file(const gchar *filename)
{
GHashTable *ini_file = NULL;
GHashTable *section = NULL;
GString *section_name, *key_name, *value;
gpointer section_hash, key_hash;
guchar * buffer = NULL;
gsize off = 0;
gint64 filesize = 0;
unsigned char x[] = { 0xff, 0xfe, 0x00 };
g_return_val_if_fail(filename, NULL);
void * vbuf = NULL;
vfs_file_get_contents (filename, & vbuf, & filesize);
if (! vbuf)
return NULL;
buffer = vbuf;
/*
* Convert UTF-16 into something useful. Original implementation
* by incomp@#audacious. Cleanups \nenolod
* FIXME: can't we use a GLib function for that? -- 01mf02
*/
if (filesize > 2 && !memcmp(&buffer[0], &x, 2))
{
guchar *outbuf = g_malloc (filesize); /* it's safe to waste memory. */
guint counter;
for (counter = 2; counter < filesize; counter += 2)
{
if (!memcmp(&buffer[counter + 1], &x[2], 1))
{
outbuf[(counter - 2) / 2] = buffer[counter];
}
else
{
g_free(buffer);
g_free(outbuf);
return NULL;
}
}
outbuf[(counter - 2) / 2] = '\0';
if ((filesize - 2) / 2 == (counter - 2) / 2)
{
g_free(buffer);
buffer = outbuf;
}
else
{
g_free(buffer);
g_free(outbuf);
return NULL; /* XXX wrong encoding */
}
}
section_name = g_string_new("");
key_name = g_string_new(NULL);
value = g_string_new(NULL);
ini_file =
g_hash_table_new_full(NULL, NULL, NULL, close_ini_file_free_section);
section =
g_hash_table_new_full(NULL, NULL, NULL, close_ini_file_free_value);
/* make a nameless section which should store all entries that are not
* embedded in a section */
section_hash = GINT_TO_POINTER(g_string_hash(section_name));
g_hash_table_insert(ini_file, section_hash, section);
while (off < filesize)
{
/* ignore the following characters */
if (buffer[off] == '\r' || buffer[off] == '\n' || buffer[off] == ' '
|| buffer[off] == '\t')
{
if (buffer[off] == '\n')
{
g_string_free(key_name, TRUE);
g_string_free(value, TRUE);
key_name = g_string_new(NULL);
value = g_string_new(NULL);
}
off++;
continue;
}
/* if we encounter a possible section statement */
if (buffer[off] == '[')
{
g_string_free(section_name, TRUE);
section_name = g_string_new(NULL);
off++;
if (off >= filesize)
goto return_sequence;
while (buffer[off] != ']')
{
/* if the section statement has not been closed before a
* linebreak */
if (buffer[off] == '\n')
break;
g_string_append_c(section_name, buffer[off]);
off++;
if (off >= filesize)
goto return_sequence;
}
if (buffer[off] == '\n')
continue;
if (buffer[off] == ']')
{
off++;
if (off >= filesize)
goto return_sequence;
strip_lower_string(section_name);
section_hash = GINT_TO_POINTER(g_string_hash(section_name));
/* if this section already exists, we don't make a new one,
* but reuse the old one */
if (g_hash_table_lookup(ini_file, section_hash) != NULL)
section = g_hash_table_lookup(ini_file, section_hash);
else
{
section =
g_hash_table_new_full(NULL, NULL, NULL,
close_ini_file_free_value);
g_hash_table_insert(ini_file, section_hash, section);
}
continue;
}
}
if (buffer[off] == '=')
{
off++;
if (off >= filesize)
goto return_sequence;
while (buffer[off] != '\n' && buffer[off] != '\r')
{
g_string_append_c(value, buffer[off]);
off++;
if (off >= filesize)
break;
}
strip_lower_string(key_name);
key_hash = GINT_TO_POINTER(g_string_hash(key_name));
strip_string(value);
if (key_name->len > 0 && value->len > 0)
g_hash_table_insert(section, key_hash, g_strdup(value->str));
}
else
{
g_string_append_c(key_name, buffer[off]);
off++;
if (off >= filesize)
goto return_sequence;
}
}
return_sequence:
g_string_free(section_name, TRUE);
g_string_free(key_name, TRUE);
g_string_free(value, TRUE);
g_free(buffer);
return ini_file;
}
