620 lines
16 KiB
C
620 lines
16 KiB
C
#ifdef HAVE_CONFIG_H
|
|
# include <config.h>
|
|
#endif /* ifdef HAVE_CONFIG_H */
|
|
|
|
#include <stdio.h>
|
|
#include <string.h>
|
|
#include <math.h>
|
|
|
|
#include <Eina.h>
|
|
|
|
#include "Eet.h"
|
|
#include "Eet_private.h"
|
|
|
|
Eet_Dictionary *
|
|
eet_dictionary_add(void)
|
|
{
|
|
Eet_Dictionary *ed;
|
|
|
|
ed = eet_dictionary_calloc(1);
|
|
if (!ed) return NULL;
|
|
memset(ed->hash, -1, sizeof(int) * 256);
|
|
eina_rwlock_new(&ed->rwlock);
|
|
return ed;
|
|
}
|
|
|
|
void
|
|
eet_dictionary_free(Eet_Dictionary *ed)
|
|
{
|
|
int i;
|
|
|
|
if (!ed) return;
|
|
eina_rwlock_free(&ed->rwlock);
|
|
|
|
for (i = 0; i < ed->count; i++)
|
|
{
|
|
if (ed->all_allocated[i >> 3] & (1 << (i & 0x7)))
|
|
{
|
|
eina_stringshare_del(ed->all[i].str);
|
|
}
|
|
}
|
|
free(ed->all);
|
|
free(ed->all_hash);
|
|
free(ed->all_allocated);
|
|
|
|
if (ed->converts) eina_hash_free(ed->converts);
|
|
if (ed->add_hash) eina_hash_free(ed->add_hash);
|
|
eet_dictionary_mp_free(ed);
|
|
}
|
|
|
|
void
|
|
eet_dictionary_lock_read(const Eet_Dictionary *ed)
|
|
{
|
|
eina_rwlock_take_read((Eina_RWLock *)&ed->rwlock);
|
|
}
|
|
|
|
void
|
|
eet_dictionary_lock_write(Eet_Dictionary *ed)
|
|
{
|
|
eina_rwlock_take_write((Eina_RWLock *)&ed->rwlock);
|
|
}
|
|
|
|
void
|
|
eet_dictionary_unlock(const Eet_Dictionary *ed)
|
|
{
|
|
eina_rwlock_release((Eina_RWLock *)&ed->rwlock);
|
|
}
|
|
|
|
static Eina_Bool
|
|
_eet_dictionary_write_prepare_hash_cb(const Eina_Hash *hashtab EINA_UNUSED, const void *key, void *value, void *data)
|
|
{
|
|
Eet_Dictionary *ed = data;
|
|
const char *str, *string = key;
|
|
Eet_String *current;
|
|
int hash, len, idx = (int)((uintptr_t)value) - 1;
|
|
|
|
hash = _eet_hash_gen_len(string, 8, &len);
|
|
len++;
|
|
|
|
str = eina_stringshare_add(string);
|
|
if (!str) goto on_error;
|
|
|
|
current = ed->all + idx;
|
|
|
|
ed->all_allocated[idx >> 3] |= (1 << (idx & 0x7));
|
|
ed->all_hash[idx] = hash;
|
|
|
|
current->str = str;
|
|
current->len = len;
|
|
|
|
current->next = ed->hash[hash];
|
|
ed->hash[hash] = idx;
|
|
|
|
on_error:
|
|
return EINA_TRUE;
|
|
}
|
|
|
|
void
|
|
eet_dictionary_write_prepare(Eet_Dictionary *ed)
|
|
{
|
|
eina_rwlock_take_write(&ed->rwlock);
|
|
if (!ed->add_hash)
|
|
{
|
|
eina_rwlock_release(&ed->rwlock);
|
|
return;
|
|
}
|
|
|
|
ed->all = malloc(ed->count * sizeof(Eet_String));
|
|
ed->all_hash = malloc(ed->count);
|
|
ed->all_allocated = malloc(((ed->count >> 3) + 1));
|
|
|
|
eina_hash_foreach(ed->add_hash, _eet_dictionary_write_prepare_hash_cb, ed);
|
|
eina_hash_free(ed->add_hash);
|
|
ed->add_hash = NULL;
|
|
eina_rwlock_release(&ed->rwlock);
|
|
}
|
|
|
|
static int
|
|
_eet_dictionary_lookup(Eet_Dictionary *ed,
|
|
const char *string,
|
|
int len,
|
|
int hash,
|
|
int *previous)
|
|
{
|
|
int prev = -1, current, i;
|
|
|
|
for (i = 0; i < 16; i++)
|
|
{
|
|
if ((ed->cache[i].hash == hash) &&
|
|
(((ed->cache[i].str) &&
|
|
(ed->cache[i].str == string)) ||
|
|
((ed->cache[i].len == len) &&
|
|
(!strcmp(ed->cache[i].str, string)))))
|
|
{
|
|
if (previous) *previous = ed->cache[i].previous;
|
|
current = ed->cache[i].current;
|
|
return current;
|
|
}
|
|
}
|
|
|
|
current = ed->hash[hash];
|
|
while (current != -1)
|
|
{
|
|
if ((ed->all[current].str) &&
|
|
((ed->all[current].str == string) ||
|
|
((ed->all[current].len == len) &&
|
|
(!strcmp(ed->all[current].str, string)))))
|
|
{
|
|
ed->cache[ed->cache_id].hash = hash;
|
|
ed->cache[ed->cache_id].current = current;
|
|
ed->cache[ed->cache_id].previous = prev;
|
|
ed->cache[ed->cache_id].str = ed->all[current].str;
|
|
ed->cache[ed->cache_id].len = len;
|
|
ed->cache_id++;
|
|
if (ed->cache_id >= 16) ed->cache_id = 0;
|
|
break;
|
|
}
|
|
prev = current;
|
|
current = ed->all[current].next;
|
|
}
|
|
if (previous) *previous = prev;
|
|
return current;
|
|
}
|
|
|
|
int
|
|
eet_dictionary_string_add(Eet_Dictionary *ed,
|
|
const char *string)
|
|
{
|
|
Eet_String *current;
|
|
const char *str;
|
|
int hash, idx, pidx, len, cnt;
|
|
uintptr_t ret;
|
|
|
|
if (!ed) return -1;
|
|
|
|
// fast path in initial dict build - add hashes to eina hash not eet one
|
|
// as eina is much faster - prepare for write later
|
|
eina_rwlock_take_write(&ed->rwlock);
|
|
if (ed->count == 0)
|
|
{
|
|
if (!ed->add_hash) ed->add_hash = eina_hash_string_superfast_new(NULL);
|
|
}
|
|
if (ed->add_hash)
|
|
{
|
|
ret = (uintptr_t)eina_hash_find(ed->add_hash, string);
|
|
if (ret > 0)
|
|
{
|
|
idx = (int)(ret - 1);
|
|
eina_rwlock_release(&ed->rwlock);
|
|
return idx;
|
|
}
|
|
ret = ed->count + 1;
|
|
eina_hash_add(ed->add_hash, string, (void *)ret);
|
|
ed->count++;
|
|
eina_rwlock_release(&ed->rwlock);
|
|
return (int)(ret - 1);
|
|
}
|
|
eina_rwlock_release(&ed->rwlock);
|
|
|
|
// fall back - we converted/prepared the dict for writing so go to slow
|
|
// mode - we still have a little cache for looking it up though
|
|
hash = _eet_hash_gen_len(string, 8, &len);
|
|
len++;
|
|
|
|
eina_rwlock_take_read(&ed->rwlock);
|
|
|
|
idx = _eet_dictionary_lookup(ed, string, len, hash, &pidx);
|
|
if (idx != -1)
|
|
{
|
|
eina_rwlock_release(&ed->rwlock);
|
|
return idx;
|
|
}
|
|
|
|
str = eina_stringshare_add(string);
|
|
if (!str) goto on_error;
|
|
|
|
eina_rwlock_release(&ed->rwlock);
|
|
eina_rwlock_take_write(&ed->rwlock);
|
|
if (ed->total == ed->count)
|
|
{
|
|
Eet_String *s;
|
|
unsigned char *new_hash, *new_allocated;
|
|
int total;
|
|
|
|
total = ed->total + 64;
|
|
|
|
s = realloc(ed->all, total * sizeof(Eet_String));
|
|
if (!s) goto on_error;
|
|
ed->all = s;
|
|
|
|
new_hash = realloc(ed->all_hash, total);
|
|
if (!new_hash) goto on_error;
|
|
ed->all_hash = new_hash;
|
|
|
|
new_allocated = realloc(ed->all_allocated, ((total >> 3) + 1));
|
|
if (!new_allocated) goto on_error;
|
|
ed->all_allocated = new_allocated;
|
|
|
|
ed->total = total;
|
|
}
|
|
|
|
current = ed->all + ed->count;
|
|
|
|
ed->all_allocated[ed->count >> 3] |= (1 << (ed->count & 0x7));
|
|
ed->all_hash[ed->count] = hash;
|
|
|
|
current->str = str;
|
|
current->len = len;
|
|
|
|
current->next = ed->hash[hash];
|
|
ed->hash[hash] = ed->count;
|
|
|
|
cnt = ed->count++;
|
|
eina_rwlock_release(&ed->rwlock);
|
|
return cnt;
|
|
|
|
on_error:
|
|
eina_rwlock_release(&ed->rwlock);
|
|
return -1;
|
|
}
|
|
|
|
int
|
|
eet_dictionary_string_get_size_unlocked(const Eet_Dictionary *ed,
|
|
int idx)
|
|
{
|
|
int length = 0;
|
|
|
|
if (!ed) goto done;
|
|
if (idx < 0) goto done;
|
|
|
|
if (idx < ed->count) length = ed->all[idx].len;
|
|
done:
|
|
return length;
|
|
}
|
|
|
|
int
|
|
eet_dictionary_string_get_size(Eet_Dictionary *ed,
|
|
int idx)
|
|
{
|
|
int length;
|
|
|
|
eet_dictionary_write_prepare(ed);
|
|
eina_rwlock_take_read((Eina_RWLock *)&ed->rwlock);
|
|
length = eet_dictionary_string_get_size_unlocked(ed, idx);
|
|
eina_rwlock_release((Eina_RWLock *)&ed->rwlock);
|
|
return length;
|
|
}
|
|
|
|
EAPI int
|
|
eet_dictionary_count(const Eet_Dictionary *ed)
|
|
{
|
|
int cnt;
|
|
|
|
if (!ed) return 0;
|
|
|
|
eina_rwlock_take_read((Eina_RWLock *)&ed->rwlock);
|
|
cnt = ed->count;
|
|
eina_rwlock_release((Eina_RWLock *)&ed->rwlock);
|
|
return cnt;
|
|
}
|
|
|
|
int
|
|
eet_dictionary_string_get_hash_unlocked(const Eet_Dictionary *ed,
|
|
int idx)
|
|
{
|
|
int hash = -1;
|
|
|
|
if (!ed) goto done;
|
|
if (idx < 0) goto done;
|
|
|
|
if (idx < ed->count) hash = ed->all_hash[idx];
|
|
done:
|
|
return hash;
|
|
}
|
|
|
|
int
|
|
eet_dictionary_string_get_hash(Eet_Dictionary *ed,
|
|
int idx)
|
|
{
|
|
int hash;
|
|
|
|
eet_dictionary_write_prepare(ed);
|
|
eina_rwlock_take_read((Eina_RWLock *)&ed->rwlock);
|
|
hash = eet_dictionary_string_get_hash_unlocked(ed, idx);
|
|
eina_rwlock_release((Eina_RWLock *)&ed->rwlock);
|
|
return hash;
|
|
}
|
|
|
|
const char *
|
|
eet_dictionary_string_get_char_unlocked(const Eet_Dictionary *ed,
|
|
int idx)
|
|
{
|
|
const char *s = NULL;
|
|
|
|
if (!ed) goto done;
|
|
if (idx < 0) goto done;
|
|
|
|
if (idx < ed->count)
|
|
{
|
|
#ifdef _WIN32
|
|
/* Windows file system could change the mmaped file when replacing a file. So we need to copy all string in memory to avoid bugs. */
|
|
if (!(ed->all_allocated[idx >> 3] & (1 << (idx & 0x7))))
|
|
{
|
|
ed->all[idx].str = eina_stringshare_add(ed->all[idx].str);
|
|
ed->all_allocated[idx >> 3] |= (1 << (idx & 0x7));
|
|
}
|
|
#endif /* ifdef _WIN32 */
|
|
s = ed->all[idx].str;
|
|
}
|
|
done:
|
|
return s;
|
|
}
|
|
|
|
const char *
|
|
eet_dictionary_string_get_char(Eet_Dictionary *ed,
|
|
int idx)
|
|
{
|
|
const char *s = NULL;
|
|
|
|
eet_dictionary_write_prepare(ed);
|
|
eina_rwlock_take_read((Eina_RWLock *)&ed->rwlock);
|
|
s = eet_dictionary_string_get_char_unlocked(ed, idx);
|
|
eina_rwlock_release((Eina_RWLock *)&ed->rwlock);
|
|
return s;
|
|
}
|
|
|
|
static inline Eina_Bool
|
|
_eet_dictionary_string_get_me_cache(const char *s,
|
|
int len,
|
|
int *mantisse,
|
|
int *exponent)
|
|
{
|
|
if ((len == 6) && (s[0] == '0') && (s[1] == 'x') && (s[3] == 'p'))
|
|
{
|
|
*mantisse = (s[2] >= 'a') ? (s[2] - 'a' + 10) : (s[2] - '0');
|
|
*exponent = (s[5] - '0');
|
|
return EINA_TRUE;
|
|
}
|
|
return EINA_FALSE;
|
|
}
|
|
|
|
static inline Eina_Bool
|
|
_eet_dictionary_string_get_float_cache(const char *s,
|
|
int len,
|
|
float *result)
|
|
{
|
|
int mantisse, exponent;
|
|
|
|
if (_eet_dictionary_string_get_me_cache(s, len, &mantisse, &exponent))
|
|
{
|
|
if (s[4] == '+') *result = (float)(mantisse << exponent);
|
|
else *result = (float)mantisse / (float)(1 << exponent);
|
|
return EINA_TRUE;
|
|
}
|
|
return EINA_FALSE;
|
|
}
|
|
|
|
static inline Eina_Bool
|
|
_eet_dictionary_string_get_double_cache(const char *s,
|
|
int len,
|
|
double *result)
|
|
{
|
|
int mantisse, exponent;
|
|
|
|
if (_eet_dictionary_string_get_me_cache(s, len, &mantisse, &exponent))
|
|
{
|
|
if (s[4] == '+') *result = (double)(mantisse << exponent);
|
|
else *result = (double)mantisse / (float)(1 << exponent);
|
|
return EINA_TRUE;
|
|
}
|
|
return EINA_FALSE;
|
|
}
|
|
|
|
static inline Eina_Bool
|
|
_eet_dictionary_test_unlocked(const Eet_Dictionary *ed,
|
|
int idx,
|
|
void *result)
|
|
{
|
|
Eina_Bool limit = EINA_FALSE;
|
|
|
|
if (!result) goto done;
|
|
if (!ed) goto done;
|
|
if (idx < 0) goto done;
|
|
|
|
if (!(idx < ed->count)) goto done;
|
|
limit = EINA_TRUE;
|
|
done:
|
|
return limit;
|
|
}
|
|
|
|
static Eet_Convert *
|
|
eet_dictionary_convert_get_unlocked(const Eet_Dictionary *ed,
|
|
int idx,
|
|
const char **str)
|
|
{
|
|
Eet_Convert *result;
|
|
|
|
*str = ed->all[idx].str;
|
|
|
|
if (!ed->converts)
|
|
{
|
|
((Eet_Dictionary *)ed)->converts = eina_hash_int32_new(free);
|
|
goto add_convert;
|
|
}
|
|
|
|
result = eina_hash_find(ed->converts, &idx);
|
|
if (result) goto done;
|
|
|
|
add_convert:
|
|
result = calloc(1, sizeof (Eet_Convert));
|
|
eina_hash_add(ed->converts, &idx, result);
|
|
done:
|
|
return result;
|
|
}
|
|
|
|
Eina_Bool
|
|
eet_dictionary_string_get_float_unlocked(const Eet_Dictionary *ed,
|
|
int idx,
|
|
float *result)
|
|
{
|
|
Eet_Convert *convert;
|
|
const char *str;
|
|
|
|
if (!_eet_dictionary_test_unlocked(ed, idx, result)) return EINA_FALSE;
|
|
|
|
convert = eet_dictionary_convert_get_unlocked(ed, idx, &str);
|
|
if (!convert) return EINA_FALSE;
|
|
|
|
if (!(convert->type & EET_D_FLOAT))
|
|
{
|
|
if (!_eet_dictionary_string_get_float_cache(str, ed->all[idx].len,
|
|
&convert->f))
|
|
{
|
|
long long mantisse = 0;
|
|
long exponent = 0;
|
|
|
|
if (eina_convert_atod(str, ed->all[idx].len, &mantisse,
|
|
&exponent) == EINA_FALSE)
|
|
{
|
|
return EINA_FALSE;
|
|
}
|
|
convert->f = ldexpf((float)mantisse, exponent);
|
|
}
|
|
convert->type |= EET_D_FLOAT;
|
|
}
|
|
*result = convert->f;
|
|
return EINA_TRUE;
|
|
}
|
|
|
|
Eina_Bool
|
|
eet_dictionary_string_get_float(const Eet_Dictionary *ed,
|
|
int idx,
|
|
float *result)
|
|
{
|
|
Eina_Bool ret;
|
|
|
|
eina_rwlock_take_read((Eina_RWLock *)&ed->rwlock);
|
|
ret = eet_dictionary_string_get_float_unlocked(ed, idx, result);
|
|
eina_rwlock_release((Eina_RWLock *)&ed->rwlock);
|
|
return ret;
|
|
}
|
|
|
|
Eina_Bool
|
|
eet_dictionary_string_get_double_unlocked(const Eet_Dictionary *ed,
|
|
int idx,
|
|
double *result)
|
|
{
|
|
Eet_Convert *convert;
|
|
const char *str;
|
|
|
|
if (!_eet_dictionary_test_unlocked(ed, idx, result)) return EINA_FALSE;
|
|
|
|
convert = eet_dictionary_convert_get_unlocked(ed, idx, &str);
|
|
if (!convert) return EINA_FALSE;
|
|
|
|
if (!(convert->type & EET_D_DOUBLE))
|
|
{
|
|
if (!_eet_dictionary_string_get_double_cache(str, ed->all[idx].len,
|
|
&convert->d))
|
|
{
|
|
long long mantisse = 0;
|
|
long exponent = 0;
|
|
|
|
if (eina_convert_atod(str, ed->all[idx].len, &mantisse,
|
|
&exponent) == EINA_FALSE)
|
|
{
|
|
return EINA_FALSE;
|
|
}
|
|
convert->d = ldexp((double)mantisse, exponent);
|
|
}
|
|
convert->type |= EET_D_DOUBLE;
|
|
}
|
|
|
|
*result = convert->d;
|
|
return EINA_TRUE;
|
|
}
|
|
|
|
Eina_Bool
|
|
eet_dictionary_string_get_double(const Eet_Dictionary *ed,
|
|
int idx,
|
|
double *result)
|
|
{
|
|
Eina_Bool ret;
|
|
|
|
eina_rwlock_take_read((Eina_RWLock *)&ed->rwlock);
|
|
ret = eet_dictionary_string_get_double_unlocked(ed, idx, result);
|
|
eina_rwlock_release((Eina_RWLock *)&ed->rwlock);
|
|
return ret;
|
|
}
|
|
|
|
Eina_Bool
|
|
eet_dictionary_string_get_fp_unlocked(const Eet_Dictionary *ed,
|
|
int idx,
|
|
Eina_F32p32 *result)
|
|
{
|
|
Eet_Convert *convert;
|
|
const char *str;
|
|
|
|
if (!_eet_dictionary_test_unlocked(ed, idx, result)) return EINA_FALSE;
|
|
|
|
convert = eet_dictionary_convert_get_unlocked(ed, idx, &str);
|
|
if (!convert) return EINA_FALSE;
|
|
|
|
if (!(convert->type & EET_D_FIXED_POINT))
|
|
{
|
|
Eina_F32p32 fp;
|
|
|
|
if (!eina_convert_atofp(str, ed->all[idx].len, &fp))
|
|
{
|
|
return EINA_FALSE;
|
|
}
|
|
|
|
convert->fp = fp;
|
|
convert->type |= EET_D_FIXED_POINT;
|
|
}
|
|
|
|
*result = convert->fp;
|
|
return EINA_TRUE;
|
|
}
|
|
|
|
Eina_Bool
|
|
eet_dictionary_string_get_fp(const Eet_Dictionary *ed,
|
|
int idx,
|
|
Eina_F32p32 *result)
|
|
{
|
|
Eina_Bool ret;
|
|
|
|
eina_rwlock_take_read((Eina_RWLock *)&ed->rwlock);
|
|
ret = eet_dictionary_string_get_fp_unlocked(ed, idx, result);
|
|
eina_rwlock_release((Eina_RWLock *)&ed->rwlock);
|
|
return ret;
|
|
}
|
|
|
|
EAPI int
|
|
eet_dictionary_string_check(Eet_Dictionary *ed,
|
|
const char *string)
|
|
{
|
|
int res = 0, i;
|
|
|
|
if ((!ed) || (!string)) return 0;
|
|
|
|
eet_dictionary_write_prepare(ed);
|
|
eina_rwlock_take_read((Eina_RWLock *)&ed->rwlock);
|
|
if ((ed->start <= string) && (string < ed->end)) res = 1;
|
|
|
|
if (!res)
|
|
{
|
|
for (i = 0; i < ed->count; i++)
|
|
{
|
|
if ((ed->all_allocated[i >> 3] & (1 << (i & 0x7))) && ed->all[i].str == string)
|
|
{
|
|
res = 1;
|
|
break;
|
|
}
|
|
}
|
|
}
|
|
eina_rwlock_release((Eina_RWLock *)&ed->rwlock);
|
|
return res;
|
|
}
|
|
|