2 * vim:ts=8:sw=3:sts=8:noexpandtab:cino=>5n-3f0^-2{2
15 #ifdef HAVE_NETINET_IN_H
16 # include <netinet/in.h>
20 # include <winsock2.h>
26 #include "Eet_private.h"
29 * routines for doing data -> struct and struct -> data conversion
49 * multiple entries ordered as...
51 * fixed size array [ of basic types ]
52 * variable size array [ of basic types ]
53 * linked list [ of basic types ]
54 * hash table [ of basic types ]
56 * need to provide builder/accessor funcs for:
68 typedef struct _Eet_Data_Element Eet_Data_Element;
69 typedef struct _Eet_Data_Basic_Type_Codec Eet_Data_Basic_Type_Codec;
70 typedef struct _Eet_Data_Group_Type_Codec Eet_Data_Group_Type_Codec;
71 typedef struct _Eet_Data_Chunk Eet_Data_Chunk;
72 typedef struct _Eet_Data_Stream Eet_Data_Stream;
73 typedef struct _Eet_Data_Descriptor_Hash Eet_Data_Descriptor_Hash;
74 typedef struct _Eet_Data_Encode_Hash_Info Eet_Data_Encode_Hash_Info;
75 typedef struct _Eet_Free Eet_Free;
76 typedef struct _Eet_Free_Context Eet_Free_Context;
77 typedef struct _Eet_Variant_Unknow Eet_Variant_Unknow;
82 * Eet_Data_Basic_Type_Codec (Coder, Decoder)
83 * Eet_Data_Group_Type_Codec (Coder, Decoder)
85 struct _Eet_Data_Basic_Type_Codec
89 int (*get) (const Eet_Dictionary *ed, const void *src, const void *src_end, void *dest);
90 void *(*put) (Eet_Dictionary *ed, const void *src, int *size_ret);
93 struct _Eet_Data_Group_Type_Codec
95 int (*get) (Eet_Free_Context *context, const Eet_Dictionary *ed, Eet_Data_Descriptor *edd, Eet_Data_Element *ede, Eet_Data_Chunk *echnk, int type, int group_type, void *data_in, char **p, int *size);
96 void (*put) (Eet_Dictionary *ed, Eet_Data_Descriptor *edd, Eet_Data_Element *ede, Eet_Data_Stream *ds, void *data_in);
99 struct _Eet_Data_Chunk
107 unsigned char group_type;
110 struct _Eet_Data_Stream
117 struct _Eet_Data_Descriptor_Hash
119 Eet_Data_Element *element;
120 Eet_Data_Descriptor_Hash *next;
123 struct _Eet_Data_Descriptor
126 const Eet_Dictionary *ed;
129 void *(*mem_alloc) (size_t size);
130 void (*mem_free) (void *mem);
131 char *(*str_alloc) (const char *str);
132 char *(*str_direct_alloc) (const char *str);
133 void (*str_free) (const char *str);
134 void (*str_direct_free) (const char *str);
135 void *(*list_next) (void *l);
136 void *(*list_append) (void *l, void *d);
137 void *(*list_data) (void *l);
138 void *(*list_free) (void *l);
139 void (*hash_foreach) (void *h, int (*func) (void *h, const char *k, void *dt, void *fdt), void *fdt);
140 void *(*hash_add) (void *h, const char *k, void *d);
141 void (*hash_free) (void *h);
142 const char *(*type_get) (const void *data, Eina_Bool *unknow);
143 Eina_Bool (*type_set) (const char *type, void *data, Eina_Bool unknow);
147 Eet_Data_Element *set;
150 Eet_Data_Descriptor_Hash *buckets;
154 Eina_Bool unified_type : 1;
159 struct _Eet_Data_Element
162 const char *counter_name;
163 const char *directory_name_ptr;
164 Eet_Data_Descriptor *subtype;
165 int offset; /* offset in bytes from the base element */
166 int count; /* number of elements for a fixed array */
167 int counter_offset; /* for a variable array we need the offset of the count variable */
168 unsigned char type; /* EET_T_XXX */
169 unsigned char group_type; /* EET_G_XXX */
172 struct _Eet_Data_Encode_Hash_Info
175 Eet_Data_Element *ede;
187 struct _Eet_Free_Context
190 Eet_Free freelist_list;
191 Eet_Free freelist_hash;
192 Eet_Free freelist_str;
193 Eet_Free freelist_direct_str;
196 struct _Eet_Variant_Unknow
206 static int eet_data_get_char(const Eet_Dictionary *ed, const void *src, const void *src_end, void *dest);
207 static void *eet_data_put_char(Eet_Dictionary *ed, const void *src, int *size_ret);
208 static int eet_data_get_short(const Eet_Dictionary *ed, const void *src, const void *src_end, void *dest);
209 static void *eet_data_put_short(Eet_Dictionary *ed, const void *src, int *size_ret);
210 static inline int eet_data_get_int(const Eet_Dictionary *ed, const void *src, const void *src_end, void *dest);
211 static void *eet_data_put_int(Eet_Dictionary *ed, const void *src, int *size_ret);
212 static int eet_data_get_long_long(const Eet_Dictionary *ed, const void *src, const void *src_end, void *dest);
213 static void *eet_data_put_long_long(Eet_Dictionary *ed, const void *src, int *size_ret);
214 static int eet_data_get_float(const Eet_Dictionary *ed, const void *src, const void *src_end, void *dest);
215 static void *eet_data_put_float(Eet_Dictionary *ed, const void *src, int *size_ret);
216 static int eet_data_get_double(const Eet_Dictionary *ed, const void *src, const void *src_end, void *dest);
217 static void *eet_data_put_double(Eet_Dictionary *ed, const void *src, int *size_ret);
218 static int eet_data_get_f32p32(const Eet_Dictionary *ed, const void *src, const void *src_end, void *dest);
219 static void *eet_data_put_f32p32(Eet_Dictionary *ed, const void *src, int *size_ret);
220 static int eet_data_get_f16p16(const Eet_Dictionary *ed, const void *src, const void *src_end, void *dest);
221 static void *eet_data_put_f16p16(Eet_Dictionary *ed, const void *src, int *size_ret);
222 static int eet_data_get_f8p24(const Eet_Dictionary *ed, const void *src, const void *src_end, void *dest);
223 static void *eet_data_put_f8p24(Eet_Dictionary *ed, const void *src, int *size_ret);
224 static inline int eet_data_get_string(const Eet_Dictionary *ed, const void *src, const void *src_end, void *dest);
225 static void *eet_data_put_string(Eet_Dictionary *ed, const void *src, int *size_ret);
226 static int eet_data_get_istring(const Eet_Dictionary *ed, const void *src, const void *src_end, void *dest);
227 static void *eet_data_put_istring(Eet_Dictionary *ed, const void *src, int *size_ret);
228 static int eet_data_get_null(const Eet_Dictionary *ed, const void *src, const void *src_end, void *dest);
229 static void *eet_data_put_null(Eet_Dictionary *ed, const void *src, int *size_ret);
231 static int eet_data_get_type(const Eet_Dictionary *ed, int type, const void *src, const void *src_end, void *dest);
232 static void *eet_data_put_type(Eet_Dictionary *ed, int type, const void *src, int *size_ret);
234 static Eet_Node *eet_data_node_simple_type(int type, const char *name, void *dd);
236 static int eet_data_get_unknown(Eet_Free_Context *context, const Eet_Dictionary *ed, Eet_Data_Descriptor *edd, Eet_Data_Element *ede, Eet_Data_Chunk *echnk, int type, int group_type, void *data_in, char **p, int *size);
237 static void eet_data_put_unknown(Eet_Dictionary *ed, Eet_Data_Descriptor *edd, Eet_Data_Element *ede, Eet_Data_Stream *ds, void *data_in);
238 static void eet_data_put_array(Eet_Dictionary *ed, Eet_Data_Descriptor *edd, Eet_Data_Element *ede, Eet_Data_Stream *ds, void *data_in);
239 static int eet_data_get_array(Eet_Free_Context *context, const Eet_Dictionary *ed, Eet_Data_Descriptor *edd, Eet_Data_Element *ede, Eet_Data_Chunk *echnk, int type, int group_type, void *data, char **p, int *size);
240 static int eet_data_get_list(Eet_Free_Context *context, const Eet_Dictionary *ed, Eet_Data_Descriptor *edd, Eet_Data_Element *ede, Eet_Data_Chunk *echnk, int type, int group_type, void *data_in, char **p, int *size);
241 static void eet_data_put_list(Eet_Dictionary *ed, Eet_Data_Descriptor *edd, Eet_Data_Element *ede, Eet_Data_Stream *ds, void *data_in);
242 static void eet_data_put_hash(Eet_Dictionary *ed, Eet_Data_Descriptor *edd, Eet_Data_Element *ede, Eet_Data_Stream *ds, void *data_in);
243 static int eet_data_get_hash(Eet_Free_Context *context, const Eet_Dictionary *ed, Eet_Data_Descriptor *edd, Eet_Data_Element *ede, Eet_Data_Chunk *echnk, int type, int group_type, void *data, char **p, int *size);
244 static void eet_data_put_union(Eet_Dictionary *ed, Eet_Data_Descriptor *edd, Eet_Data_Element *ede, Eet_Data_Stream *ds, void *data_in);
245 static int eet_data_get_union(Eet_Free_Context *context, const Eet_Dictionary *ed, Eet_Data_Descriptor *edd, Eet_Data_Element *ede, Eet_Data_Chunk *echnk, int type, int group_type, void *data, char **p, int *size);
246 static void eet_data_put_variant(Eet_Dictionary *ed, Eet_Data_Descriptor *edd, Eet_Data_Element *ede, Eet_Data_Stream *ds, void *data_in);
247 static int eet_data_get_variant(Eet_Free_Context *context, const Eet_Dictionary *ed, Eet_Data_Descriptor *edd, Eet_Data_Element *ede, Eet_Data_Chunk *echnk, int type, int group_type, void *data, char **p, int *size);
249 static void eet_data_chunk_get(const Eet_Dictionary *ed, Eet_Data_Chunk *chnk, const void *src, int size);
250 static Eet_Data_Chunk *eet_data_chunk_new(void *data, int size, const char *name, int type, int group_type);
251 static void eet_data_chunk_free(Eet_Data_Chunk *chnk);
253 static Eet_Data_Stream *eet_data_stream_new(void);
254 static void eet_data_stream_write(Eet_Data_Stream *ds, const void *data, int size);
255 static void eet_data_stream_free(Eet_Data_Stream *ds);
257 static void eet_data_chunk_put(Eet_Dictionary *ed, Eet_Data_Chunk *chnk, Eet_Data_Stream *ds);
259 static int eet_data_descriptor_encode_hash_cb(void *hash, const char *key, void *hdata, void *fdata);
260 static void *_eet_data_descriptor_encode(Eet_Dictionary *ed, Eet_Data_Descriptor *edd, const void *data_in, int *size_ret);
261 static void *_eet_data_descriptor_decode(Eet_Free_Context *context,
262 const Eet_Dictionary *ed,
263 Eet_Data_Descriptor *edd,
269 static const Eet_Data_Basic_Type_Codec eet_basic_codec[] =
271 {sizeof(char), "char", eet_data_get_char, eet_data_put_char },
272 {sizeof(short), "short", eet_data_get_short, eet_data_put_short },
273 {sizeof(int), "int", eet_data_get_int, eet_data_put_int },
274 {sizeof(long long), "long_long", eet_data_get_long_long, eet_data_put_long_long},
275 {sizeof(float), "float", eet_data_get_float, eet_data_put_float },
276 {sizeof(double), "double", eet_data_get_double, eet_data_put_double },
277 {sizeof(char), "uchar", eet_data_get_char, eet_data_put_char },
278 {sizeof(short), "ushort", eet_data_get_short, eet_data_put_short },
279 {sizeof(int), "uint", eet_data_get_int, eet_data_put_int },
280 {sizeof(long long), "ulong_long", eet_data_get_long_long, eet_data_put_long_long},
281 {sizeof(char *), "string", eet_data_get_string, eet_data_put_string },
282 {sizeof(char *), "inlined", eet_data_get_istring, eet_data_put_istring },
283 {sizeof(void *), "NULL", eet_data_get_null, eet_data_put_null },
284 {sizeof(Eina_F32p32),"f32p32", eet_data_get_f32p32, eet_data_put_f32p32 },
285 {sizeof(Eina_F16p16),"f16p16", eet_data_get_f16p16, eet_data_put_f16p16 },
286 {sizeof(Eina_F8p24),"f8p24", eet_data_get_f8p24, eet_data_put_f8p24 }
289 static const Eet_Data_Group_Type_Codec eet_group_codec[] =
291 { eet_data_get_unknown, eet_data_put_unknown },
292 { eet_data_get_array, eet_data_put_array },
293 { eet_data_get_array, eet_data_put_array },
294 { eet_data_get_list, eet_data_put_list },
295 { eet_data_get_hash, eet_data_put_hash },
296 { eet_data_get_union, eet_data_put_union },
297 { eet_data_get_variant, eet_data_put_variant }
300 static int _eet_data_words_bigendian = -1;
304 #define SWAP64(x) (x) = \
305 ((((unsigned long long)(x) & 0x00000000000000ffULL ) << 56) |\
306 (((unsigned long long)(x) & 0x000000000000ff00ULL ) << 40) |\
307 (((unsigned long long)(x) & 0x0000000000ff0000ULL ) << 24) |\
308 (((unsigned long long)(x) & 0x00000000ff000000ULL ) << 8) |\
309 (((unsigned long long)(x) & 0x000000ff00000000ULL ) >> 8) |\
310 (((unsigned long long)(x) & 0x0000ff0000000000ULL ) >> 24) |\
311 (((unsigned long long)(x) & 0x00ff000000000000ULL ) >> 40) |\
312 (((unsigned long long)(x) & 0xff00000000000000ULL ) >> 56))
313 #define SWAP32(x) (x) = \
314 ((((int)(x) & 0x000000ff ) << 24) |\
315 (((int)(x) & 0x0000ff00 ) << 8) |\
316 (((int)(x) & 0x00ff0000 ) >> 8) |\
317 (((int)(x) & 0xff000000 ) >> 24))
318 #define SWAP16(x) (x) = \
319 ((((short)(x) & 0x00ff ) << 8) |\
320 (((short)(x) & 0xff00 ) >> 8))
336 #define CONV16(x) {if (_eet_data_words_bigendian) SWAP16(x);}
337 #define CONV32(x) {if (_eet_data_words_bigendian) SWAP32(x);}
338 #define CONV64(x) {if (_eet_data_words_bigendian) SWAP64(x);}
340 #define IS_SIMPLE_TYPE(Type) (Type > EET_T_UNKNOW && Type < EET_T_LAST)
341 #define IS_POINTER_TYPE(Type) (Type >= EET_T_STRING && Type <= EET_T_NULL)
343 #define POINTER_TYPE_DECODE(Context, Ed, Edd, Ede, Echnk, Type, Data, P, Size, Label) \
346 ___r = eet_data_get_unknown(Context, \
350 Type, EET_G_UNKNOWN, \
352 if (!___r) goto Label; \
355 #define STRUCT_TYPE_DECODE(Data_Ret, Context, Ed, Ede, Data, Size, Label) \
356 Data_Ret = _eet_data_descriptor_decode(Context, \
361 if (!Data_Ret) goto Label;
363 #define EET_I_STRING 1 << 4
364 #define EET_I_INLINED_STRING 2 << 4
365 #define EET_I_NULL 3 << 4
367 #define EET_MAGIC_VARIANT 0xF1234BC
372 eet_data_get_char(const Eet_Dictionary *ed __UNUSED__, const void *src, const void *src_end, void *dst)
376 if (((char *)src + sizeof(char)) > (char *)src_end) return -1;
385 eet_data_put_char(Eet_Dictionary *ed __UNUSED__, const void *src, int *size_ret)
389 d = (char *)malloc(sizeof(char));
394 *size_ret = sizeof(char);
400 eet_data_get_short(const Eet_Dictionary *ed __UNUSED__, const void *src, const void *src_end, void *dst)
404 if (((char *)src + sizeof(short)) > (char *)src_end) return -1;
405 memcpy(dst, src, sizeof(short));
408 return sizeof(short);
412 eet_data_put_short(Eet_Dictionary *ed __UNUSED__, const void *src, int *size_ret)
416 d = (short *)malloc(sizeof(short));
421 *size_ret = sizeof(short);
427 eet_data_get_int(const Eet_Dictionary *ed __UNUSED__, const void *src, const void *src_end, void *dst)
431 if (((char *)src + sizeof(int)) > (char *)src_end) return -1;
432 memcpy(dst, src, sizeof(int));
439 eet_data_put_int(Eet_Dictionary *ed __UNUSED__, const void *src, int *size_ret)
443 d = (int *)malloc(sizeof(int));
448 *size_ret = sizeof(int);
454 eet_data_get_long_long(const Eet_Dictionary *ed __UNUSED__, const void *src, const void *src_end, void *dst)
456 unsigned long long *d;
458 if (((char *)src + sizeof(unsigned long long)) > (char *)src_end) return -1;
459 memcpy(dst, src, sizeof(unsigned long long));
460 d = (unsigned long long *)dst;
462 return sizeof(unsigned long long);
466 eet_data_put_long_long(Eet_Dictionary *ed __UNUSED__, const void *src, int *size_ret)
468 unsigned long long *s, *d;
470 d = (unsigned long long *)malloc(sizeof(unsigned long long));
472 s = (unsigned long long *)src;
475 *size_ret = sizeof(unsigned long long);
481 eet_data_get_string_hash(const Eet_Dictionary *ed, const void *src, const void *src_end)
487 if (eet_data_get_int(ed, src, src_end, &idx) < 0) return -1;
489 return eet_dictionary_string_get_hash(ed, idx);
496 eet_data_get_string(const Eet_Dictionary *ed, const void *src, const void *src_end, void *dst)
507 if (eet_data_get_int(ed, src, src_end, &idx) < 0) return -1;
509 str = eet_dictionary_string_get_char(ed, idx);
514 return eet_dictionary_string_get_size(ed, idx);
525 return strlen(s) + 1;
529 eet_data_put_string(Eet_Dictionary *ed, const void *src, int *size_ret)
539 str = *((const char **) src);
540 if (!str) return NULL;
542 idx = eet_dictionary_string_add(ed, str);
543 if (idx == -1) return NULL;
545 return eet_data_put_int(ed, &idx, size_ret);
548 s = (char *)(*((char **)src));
553 memcpy(d, s, len + 1);
558 /* ALWAYS INLINED STRING TYPE */
560 eet_data_get_istring(const Eet_Dictionary *ed __UNUSED__, const void *src, const void *src_end, void *dst)
562 return eet_data_get_string(NULL, src, src_end, dst);
566 eet_data_put_istring(Eet_Dictionary *ed __UNUSED__, const void *src, int *size_ret)
568 return eet_data_put_string(NULL, src, size_ret);
571 /* ALWAYS NULL TYPE */
573 eet_data_get_null(const Eet_Dictionary *ed __UNUSED__, const void *src __UNUSED__, const void *src_end __UNUSED__, void *dst)
584 eet_data_put_null(Eet_Dictionary *ed __UNUSED__, const void *src __UNUSED__, int *size_ret)
591 * Fast lookups of simple doubles/floats.
593 * These aren't properly a cache because they don't store pre-calculated
594 * values, but have a so simple math that is almost as fast.
597 _eet_data_float_cache_get(const char *s, int len, float *d)
599 /* fast handle of simple case 0xMp+E*/
600 if ((len == 6) && (s[0] == '0') && (s[1] == 'x') && (s[3] == 'p'))
602 int mantisse = (s[2] >= 'a') ? (s[2] - 'a' + 10) : (s[2] - '0');
603 int exponent = (s[5] - '0');
605 if (s[4] == '+') *d = (float)(mantisse << exponent);
606 else *d = (float)mantisse / (float)(1 << exponent);
614 _eet_data_double_cache_get(const char *s, int len, double *d)
616 /* fast handle of simple case 0xMp+E*/
617 if ((len == 6) && (s[0] == '0') && (s[1] == 'x') && (s[3] == 'p'))
619 int mantisse = (s[2] >= 'a') ? (s[2] - 'a' + 10) : (s[2] - '0');
620 int exponent = (s[5] - '0');
622 if (s[4] == '+') *d = (double)(mantisse << exponent);
623 else *d = (double)mantisse / (double)(1 << exponent);
632 eet_data_get_float(const Eet_Dictionary *ed, const void *src, const void *src_end, void *dst)
645 s = (const char *)src;
648 while ((p < (const char *)src_end) && (*p != 0)) {len++; p++;}
650 if (_eet_data_float_cache_get(s, len, d) != 0) return len + 1;
652 if (eina_convert_atod(s, len, &mantisse, &exponent) == EINA_FALSE) return -1;
653 *d = (float)ldexp((double)mantisse, exponent);
658 if (eet_data_get_int(ed, src, src_end, &idx) < 0) return -1;
660 if (!eet_dictionary_string_get_float(ed, idx, d))
666 eet_data_put_float(Eet_Dictionary *ed, const void *src, int *size_ret)
671 eina_convert_dtoa((double)(*(float *)src), buf);
681 memcpy(d, buf, len + 1);
686 idx = eet_dictionary_string_add(ed, buf);
687 if (idx == -1) return NULL;
689 return eet_data_put_int(ed, &idx, size_ret);
694 eet_data_get_double(const Eet_Dictionary *ed, const void *src, const void *src_end, void *dst)
704 long long mantisse = 0;
708 s = (const char *) src;
711 while ((p < (const char *)src_end) && (*p != 0)) {len++; p++;}
713 if (_eet_data_double_cache_get(s, len, d) != 0) return len + 1;
715 if (eina_convert_atod(s, len, &mantisse, &exponent) == EINA_FALSE) return -1;
716 *d = ldexp((double) mantisse, exponent);
721 if (eet_data_get_int(ed, src, src_end, &idx) < 0) return -1;
723 if (!eet_dictionary_string_get_double(ed, idx, d))
729 eet_data_put_double(Eet_Dictionary *ed, const void *src, int *size_ret)
734 eina_convert_dtoa((double)(*(double *)src), buf);
744 memcpy(d, buf, len + 1);
750 idx = eet_dictionary_string_add(ed, buf);
751 if (idx == -1) return NULL;
753 return eet_data_put_int(ed, &idx, size_ret);
757 eet_data_get_f32p32(const Eet_Dictionary *ed, const void *src, const void *src_end, void *dst)
762 fp = (Eina_F32p32*) dst;
769 s = (const char *) src;
772 while ((p < (const char *)src_end) && (*p != 0)) { len++; p++; }
774 if (!(eina_convert_atofp(s, len, fp)))
779 if (eet_data_get_int(ed, src, src_end, &idx) < 0) return -1;
781 if (!eet_dictionary_string_get_fp(ed, idx, fp))
787 eet_data_put_f32p32(Eet_Dictionary *ed, const void *src, int *size_ret)
792 eina_convert_fptoa((Eina_F32p32)(*(Eina_F32p32 *)src), buf);
802 memcpy(d, buf, len + 1);
808 idx = eet_dictionary_string_add(ed, buf);
809 if (idx == -1) return NULL;
811 return eet_data_put_int(ed, &idx, size_ret);
815 eet_data_get_f16p16(const Eet_Dictionary *ed, const void *src, const void *src_end, void *dst)
820 fp = (Eina_F16p16*) dst;
822 if (eet_data_get_f32p32(ed, src, src_end, &tmp) < 0) return -1;
824 *fp = eina_f32p32_to_f16p16(tmp);
829 eet_data_put_f16p16(Eet_Dictionary *ed, const void *src, int *size_ret)
833 tmp = eina_f16p16_to_f32p32((Eina_F16p16)(*(Eina_F16p16 *)src));
834 return eet_data_put_f32p32(ed, &tmp, size_ret);
838 eet_data_get_f8p24(const Eet_Dictionary *ed, const void *src, const void *src_end, void *dst)
843 fp = (Eina_F8p24*) dst;
845 if (eet_data_get_f32p32(ed, src, src_end, &tmp) < 0) return -1;
847 *fp = eina_f32p32_to_f8p24(tmp);
852 eet_data_put_f8p24(Eet_Dictionary *ed, const void *src, int *size_ret)
856 tmp = eina_f8p24_to_f32p32((Eina_F8p24)(*(Eina_F8p24 *)src));
857 return eet_data_put_f32p32(ed, &tmp, size_ret);
861 eet_data_get_type(const Eet_Dictionary *ed, int type, const void *src, const void *src_end, void *dest)
865 ret = eet_basic_codec[type - 1].get(ed, src, src_end, dest);
870 eet_data_put_type(Eet_Dictionary *ed, int type, const void *src, int *size_ret)
874 ret = eet_basic_codec[type - 1].put(ed, src, size_ret);
878 static inline Eina_Bool
879 eet_data_type_match(int type1, int type2)
881 if (type1 == type2) return EINA_TRUE;
883 /* Note: All floating point type are equivalent and could be read
884 without problem by any other floating point getter. */
913 * char[4] = "CHnK"; // untyped data ... or
914 * char[4] = "CHKx"; // typed data - x == type
916 * int = chunk size (including magic string);
917 * char[] = chunk magic/name string (0 byte terminated);
918 * ... sub-chunks (a chunk can contain chuncks recusrively) ...
920 * ... payload data ...
925 eet_data_chunk_get(const Eet_Dictionary *ed, Eet_Data_Chunk *chnk,
926 const void *src, int size)
932 if (size <= 8) return;
938 if ((s[0] != 'C') || (s[1] != 'H') || (s[2] != 'K'))
941 chnk->type = (unsigned char)(s[3]);
942 if (chnk->type >= EET_I_LIMIT)
944 chnk->group_type = ((chnk->type - EET_I_LIMIT) & 0xF) + EET_G_UNKNOWN;
945 switch ((chnk->type - EET_I_LIMIT) & 0xF0)
947 #define EET_UNMATCH_TYPE(Type) \
948 case EET_I_##Type: chnk->type = EET_T_##Type; break;
950 EET_UNMATCH_TYPE(STRING);
951 EET_UNMATCH_TYPE(INLINED_STRING);
952 EET_UNMATCH_TYPE(NULL);
957 else if (chnk->type > EET_T_LAST)
959 chnk->group_type = chnk->type;
960 chnk->type = EET_T_UNKNOW;
963 chnk->group_type = EET_G_UNKNOWN;
964 if ((chnk->type >= EET_T_LAST) ||
965 (chnk->group_type >= EET_G_LAST))
968 chnk->group_type = 0;
973 if ((s[0] != 'C') || (s[1] != 'H') || (s[2] != 'n') || (s[3] != 'K'))
976 ret1 = eet_data_get_type(ed, EET_T_INT, (s + 4), (s + size), &(chnk->size));
978 if (ret1 <= 0) return;
979 if ((chnk->size < 0) || ((chnk->size + 8) > size)) return;
980 ret2 = eet_data_get_type(ed, EET_T_STRING, (s + 8), (s + size), &(chnk->name));
982 if (ret2 <= 0) return;
987 chnk->hash = eet_data_get_string_hash(ed, (s + 8), (s + size));
991 chnk->data = (char *)src + 4 + ret1 + sizeof(int);
992 chnk->size -= sizeof(int);
996 chnk->data = (char *)src + 4 + ret1 + chnk->len;
997 chnk->size -= chnk->len;
1003 static inline Eet_Data_Chunk *
1004 eet_data_chunk_new(void *data, int size, const char *name, int type, int group_type)
1006 Eet_Data_Chunk *chnk;
1008 if (!name) return NULL;
1009 chnk = calloc(1, sizeof(Eet_Data_Chunk));
1010 if (!chnk) return NULL;
1012 /* Note: Another security, so older eet library could read file
1013 saved with fixed point value. */
1014 if (type == EET_T_F32P32
1015 || type == EET_T_F16P16
1016 || type == EET_T_F8P24)
1017 type = EET_T_DOUBLE;
1019 chnk->name = strdup(name);
1020 chnk->len = strlen(name) + 1;
1024 chnk->group_type = group_type;
1029 eet_data_chunk_free(Eet_Data_Chunk *chnk)
1031 if (chnk->name) free(chnk->name);
1035 static inline Eet_Data_Stream *
1036 eet_data_stream_new(void)
1038 Eet_Data_Stream *ds;
1040 ds = calloc(1, sizeof(Eet_Data_Stream));
1041 if (!ds) return NULL;
1046 eet_data_stream_free(Eet_Data_Stream *ds)
1048 if (ds->data) free(ds->data);
1053 eet_data_stream_flush(Eet_Data_Stream *ds)
1059 eet_data_stream_write(Eet_Data_Stream *ds, const void *data, int size)
1063 if ((ds->pos + size) > ds->size)
1065 ds->data = realloc(ds->data, ds->size + size + 512);
1072 ds->size = ds->size + size + 512;
1075 memcpy(p + ds->pos, data, size);
1080 eet_data_chunk_put(Eet_Dictionary *ed, Eet_Data_Chunk *chnk, Eet_Data_Stream *ds)
1087 unsigned char buf[4] = "CHK";
1089 /* disable this check - it will allow empty chunks to be written. this is
1090 * right for corner-cases when y have a struct with empty fields (empty
1091 * strings or empty list ptrs etc.) */
1092 /* if (!chnk->data && chnk->type != EET_T_NULL) return; */
1095 /* eet_data_stream_write(ds, "CHnK", 4);*/
1096 if (chnk->type != EET_T_UNKNOW)
1098 if (chnk->group_type != EET_G_UNKNOWN)
1100 int type = EET_I_LIMIT + chnk->group_type - EET_G_UNKNOWN;
1104 /* Only make sense with pointer type. */
1105 #define EET_MATCH_TYPE(Type) \
1106 case EET_T_##Type: type += EET_I_##Type; break;
1108 EET_MATCH_TYPE(STRING);
1109 EET_MATCH_TYPE(INLINED_STRING);
1110 EET_MATCH_TYPE(NULL);
1118 buf[3] = chnk->type;
1120 else buf[3] = chnk->group_type;
1122 string = eet_data_put_string(ed, &chnk->name, &string_ret);
1126 /* size of chunk payload data + name */
1127 s = chnk->size + string_ret;
1128 size = eet_data_put_int(ed, &s, &size_ret);
1130 /* FIXME: If something goes wrong the resulting file will be corrupted. */
1134 eet_data_stream_write(ds, buf, 4);
1136 /* write chunk length */
1137 eet_data_stream_write(ds, size, size_ret);
1139 /* write chunk name */
1140 eet_data_stream_write(ds, string, string_ret);
1144 eet_data_stream_write(ds, chnk->data, chnk->size);
1154 _eet_descriptor_hash_new(Eet_Data_Descriptor *edd)
1158 edd->elements.hash.size = 1 << 6;
1159 edd->elements.hash.buckets = calloc(1, sizeof(Eet_Data_Descriptor_Hash) * edd->elements.hash.size);
1160 for (i = 0; i < edd->elements.num; i++)
1162 Eet_Data_Element *ede;
1165 ede = &(edd->elements.set[i]);
1166 hash = _eet_hash_gen((char *) ede->name, 6);
1167 if (!edd->elements.hash.buckets[hash].element)
1168 edd->elements.hash.buckets[hash].element = ede;
1171 Eet_Data_Descriptor_Hash *bucket;
1173 bucket = calloc(1, sizeof(Eet_Data_Descriptor_Hash));
1174 bucket->element = ede;
1175 bucket->next = edd->elements.hash.buckets[hash].next;
1176 edd->elements.hash.buckets[hash].next = bucket;
1182 _eet_descriptor_hash_free(Eet_Data_Descriptor *edd)
1186 for (i = 0; i < edd->elements.hash.size; i++)
1188 Eet_Data_Descriptor_Hash *bucket, *pbucket;
1190 bucket = edd->elements.hash.buckets[i].next;
1194 bucket = bucket->next;
1198 if (edd->elements.hash.buckets) free(edd->elements.hash.buckets);
1201 static Eet_Data_Element *
1202 _eet_descriptor_hash_find(Eet_Data_Descriptor *edd, char *name, int hash)
1204 Eet_Data_Descriptor_Hash *bucket;
1206 if (hash < 0) hash = _eet_hash_gen(name, 6);
1208 if (!edd->elements.hash.buckets[hash].element) return NULL;
1210 When we use the dictionnary as a source for chunk name, we will always
1211 have the same pointer in name. It's a good idea to just compare pointer
1212 instead of running strcmp on both string.
1214 if (edd->elements.hash.buckets[hash].element->directory_name_ptr == name)
1215 return edd->elements.hash.buckets[hash].element;
1216 if (!strcmp(edd->elements.hash.buckets[hash].element->name, name))
1218 edd->elements.hash.buckets[hash].element->directory_name_ptr = name;
1219 return edd->elements.hash.buckets[hash].element;
1221 bucket = edd->elements.hash.buckets[hash].next;
1224 if (bucket->element->directory_name_ptr == name) return bucket->element;
1225 if (!strcmp(bucket->element->name, name))
1227 bucket->element->directory_name_ptr = name;
1228 return bucket->element;
1230 bucket = bucket->next;
1236 _eet_mem_alloc(size_t size)
1238 return calloc(1, size);
1242 _eet_mem_free(void *mem)
1248 _eet_str_alloc(const char *str)
1254 _eet_str_free(const char *str)
1260 _eet_eina_hash_add_alloc(Eina_Hash *hash, const char *key, void *data)
1262 if (!hash) hash = eina_hash_string_small_new(NULL);
1263 if (!hash) return NULL;
1265 eina_hash_add(hash, key, data);
1270 _eet_eina_hash_direct_add_alloc(Eina_Hash *hash, const char *key, void *data)
1272 if (!hash) hash = eina_hash_string_small_new(NULL);
1273 if (!hash) return NULL;
1275 eina_hash_direct_add(hash, key, data);
1280 _eet_str_direct_alloc(const char *str)
1286 _eet_str_direct_free(__UNUSED__ const char *str)
1291 _eet_eina_hash_foreach(void *hash, Eina_Hash_Foreach cb, void *fdata)
1293 if (hash) eina_hash_foreach(hash, cb, fdata);
1297 _eet_eina_hash_free(void *hash)
1299 if (hash) eina_hash_free(hash);
1304 eet_eina_stream_data_descriptor_class_set(Eet_Data_Descriptor_Class *eddc, const char *name, int size)
1306 if (!eddc || !name) return EINA_FALSE;
1312 eddc->func.mem_alloc = _eet_mem_alloc;
1313 eddc->func.mem_free = _eet_mem_free;
1314 eddc->func.str_alloc = (char *(*)(const char *))eina_stringshare_add;
1315 eddc->func.str_free = eina_stringshare_del;
1316 eddc->func.list_next = (void *(*)(void *))eina_list_next;
1317 eddc->func.list_append = (void *(*)(void *, void *))eina_list_append;
1318 eddc->func.list_data = (void *(*)(void *))eina_list_data_get;
1319 eddc->func.list_free = (void *(*)(void *))eina_list_free;
1320 eddc->func.hash_foreach = (void (*)(void *, int (*)(void *, const char *, void *, void *), void *))_eet_eina_hash_foreach;
1321 eddc->func.hash_add = (void* (*)(void *, const char *, void *)) _eet_eina_hash_add_alloc;
1322 eddc->func.hash_free = (void (*)(void *))_eet_eina_hash_free;
1328 eet_eina_file_data_descriptor_class_set(Eet_Data_Descriptor_Class *eddc, const char *name, int size)
1330 if (!eet_eina_stream_data_descriptor_class_set(eddc, name, size))
1335 eddc->func.hash_add = (void* (*)(void *, const char *, void *)) _eet_eina_hash_direct_add_alloc;
1336 eddc->func.str_direct_alloc = _eet_str_direct_alloc;
1337 eddc->func.str_direct_free = _eet_str_direct_free;
1342 static Eet_Data_Descriptor *
1343 _eet_data_descriptor_new(const Eet_Data_Descriptor_Class *eddc, int version)
1345 Eet_Data_Descriptor *edd;
1347 if (!eddc) return NULL;
1349 edd = calloc(1, sizeof (Eet_Data_Descriptor));
1350 if (!edd) return NULL;
1352 edd->name = eddc->name;
1354 edd->size = eddc->size;
1355 edd->func.mem_alloc = _eet_mem_alloc;
1356 edd->func.mem_free = _eet_mem_free;
1357 edd->func.str_alloc = _eet_str_alloc;
1358 edd->func.str_free = _eet_str_free;
1359 if (eddc->func.mem_alloc)
1360 edd->func.mem_alloc = eddc->func.mem_alloc;
1361 if (eddc->func.mem_free)
1362 edd->func.mem_free = eddc->func.mem_free;
1363 if (eddc->func.str_alloc)
1364 edd->func.str_alloc = eddc->func.str_alloc;
1365 if (eddc->func.str_free)
1366 edd->func.str_free = eddc->func.str_free;
1367 edd->func.list_next = eddc->func.list_next;
1368 edd->func.list_append = eddc->func.list_append;
1369 edd->func.list_data = eddc->func.list_data;
1370 edd->func.list_free = eddc->func.list_free;
1371 edd->func.hash_foreach = eddc->func.hash_foreach;
1372 edd->func.hash_add = eddc->func.hash_add;
1373 edd->func.hash_free = eddc->func.hash_free;
1375 if (eddc->version > 1 && version > 1)
1377 edd->func.str_direct_alloc = eddc->func.str_direct_alloc;
1378 edd->func.str_direct_free = eddc->func.str_direct_free;
1380 if (eddc->version > 2)
1382 edd->func.type_get = eddc->func.type_get;
1383 edd->func.type_set = eddc->func.type_set;
1389 EAPI Eet_Data_Descriptor *
1390 eet_data_descriptor_new(const char *name,
1392 void *(*func_list_next) (void *l),
1393 void *(*func_list_append) (void *l, void *d),
1394 void *(*func_list_data) (void *l),
1395 void *(*func_list_free) (void *l),
1396 void (*func_hash_foreach) (void *h, int (*func) (void *h, const char *k, void *dt, void *fdt), void *fdt),
1397 void *(*func_hash_add) (void *h, const char *k, void *d),
1398 void (*func_hash_free) (void *h))
1400 Eet_Data_Descriptor_Class eddc;
1402 if (!name) return NULL;
1404 memset(&eddc, 0, sizeof (Eet_Data_Descriptor_Class));
1410 eddc.func.list_next = func_list_next;
1411 eddc.func.list_append = func_list_append;
1412 eddc.func.list_data = func_list_data;
1413 eddc.func.list_free = func_list_free;
1414 eddc.func.hash_foreach = func_hash_foreach;
1415 eddc.func.hash_add = func_hash_add;
1416 eddc.func.hash_free = func_hash_free;
1418 return _eet_data_descriptor_new(&eddc, 0);
1421 EAPI Eet_Data_Descriptor *
1422 eet_data_descriptor2_new(const Eet_Data_Descriptor_Class *eddc)
1424 return _eet_data_descriptor_new(eddc, 1);
1427 EAPI Eet_Data_Descriptor *
1428 eet_data_descriptor3_new(const Eet_Data_Descriptor_Class *eddc)
1430 return _eet_data_descriptor_new(eddc, 2);
1433 EAPI Eet_Data_Descriptor *
1434 eet_data_descriptor_stream_new(const Eet_Data_Descriptor_Class *eddc)
1436 return _eet_data_descriptor_new(eddc, 1);
1439 EAPI Eet_Data_Descriptor *
1440 eet_data_descriptor_file_new(const Eet_Data_Descriptor_Class *eddc)
1442 return _eet_data_descriptor_new(eddc, 2);
1446 eet_data_descriptor_free(Eet_Data_Descriptor *edd)
1449 _eet_descriptor_hash_free(edd);
1450 if (edd->elements.set) free(edd->elements.set);
1455 eet_data_descriptor_element_add(Eet_Data_Descriptor *edd,
1461 /* int counter_offset, */
1462 const char *counter_name /* FIXME: Useless should go on a major release */,
1463 Eet_Data_Descriptor *subtype)
1465 Eet_Data_Element *ede;
1466 Eet_Data_Element *tmp;
1468 /* UNION, VARIANT type would not work with simple type, we need a way to map the type. */
1469 if ((group_type == EET_G_UNION
1470 || group_type == EET_G_VARIANT)
1472 (type != EET_T_UNKNOW
1474 || subtype->func.type_get == NULL
1475 || subtype->func.type_set == NULL))
1478 /* VARIANT type will only work if the map only contains EET_G_*, but not UNION, VARIANT and ARRAY. */
1479 if (group_type == EET_G_VARIANT)
1483 for (i = 0; i < subtype->elements.num; ++i)
1484 if (subtype->elements.set[i].type != EET_T_UNKNOW
1485 && subtype->elements.set[i].group_type > EET_G_VAR_ARRAY
1486 && subtype->elements.set[i].group_type < EET_G_UNION)
1489 subtype->unified_type = EINA_TRUE;
1492 && subtype->unified_type
1493 && (type != EET_T_UNKNOW
1494 || group_type < EET_G_UNION))
1497 /* Sanity check done, let allocate ! */
1498 edd->elements.num++;
1499 tmp = realloc(edd->elements.set, edd->elements.num * sizeof(Eet_Data_Element));
1501 edd->elements.set = tmp;
1502 ede = &(edd->elements.set[edd->elements.num - 1]);
1504 ede->directory_name_ptr = NULL;
1507 * We do a special case when we do list,hash or whatever group of simple type.
1508 * Instead of handling it in encode/decode/dump/undump, we create an
1509 * implicit structure with only the simple type.
1511 if (group_type > EET_G_UNKNOWN
1512 && group_type < EET_G_LAST
1513 && ((type > EET_T_UNKNOW && type < EET_T_STRING)
1514 || (type > EET_T_NULL && type < EET_T_LAST))
1517 subtype = calloc(1, sizeof (Eet_Data_Descriptor));
1518 if (!subtype) return ;
1519 subtype->name = "implicit";
1520 subtype->size = eet_basic_codec[type - 1].size;
1521 memcpy(&subtype->func, &edd->func, sizeof(subtype->func));
1523 eet_data_descriptor_element_add(subtype, eet_basic_codec[type - 1].name, type,
1524 EET_G_UNKNOWN, 0, 0, /* 0, */NULL, NULL);
1525 type = EET_T_UNKNOW;
1529 ede->group_type = group_type;
1530 ede->offset = offset;
1532 /* FIXME: For the time being, VAR_ARRAY, UNION and VARIANT will put the counter_offset in count. */
1533 ede->counter_offset = count;
1534 /* ede->counter_offset = counter_offset; */
1535 ede->counter_name = counter_name;
1537 ede->subtype = subtype;
1541 eet_data_read_cipher(Eet_File *ef, Eet_Data_Descriptor *edd, const char *name, const char *cipher_key)
1543 const Eet_Dictionary *ed = NULL;
1544 const void *data = NULL;
1546 Eet_Free_Context context;
1547 int required_free = 0;
1550 ed = eet_dictionary_get(ef);
1553 data = eet_read_direct(ef, name, &size);
1557 data = eet_read_cipher(ef, name, &size, cipher_key);
1558 if (!data) return NULL;
1561 memset(&context, 0, sizeof (context));
1562 data_dec = _eet_data_descriptor_decode(&context, ed, edd, data, size);
1570 eet_data_node_read_cipher(Eet_File *ef, const char *name, const char *cipher_key)
1572 const Eet_Dictionary *ed = NULL;
1573 const void *data = NULL;
1575 Eet_Free_Context context;
1576 int required_free = 0;
1579 ed = eet_dictionary_get(ef);
1582 data = eet_read_direct(ef, name, &size);
1586 data = eet_read_cipher(ef, name, &size, cipher_key);
1587 if (!data) return NULL;
1590 memset(&context, 0, sizeof (context));
1591 result = _eet_data_descriptor_decode(&context, ed, NULL, data, size);
1599 eet_data_read(Eet_File *ef, Eet_Data_Descriptor *edd, const char *name)
1601 return eet_data_read_cipher(ef, edd, name, NULL);
1605 eet_data_write_cipher(Eet_File *ef, Eet_Data_Descriptor *edd, const char *name, const char *cipher_key, const void *data, int compress)
1612 ed = eet_dictionary_get(ef);
1614 data_enc = _eet_data_descriptor_encode(ed, edd, data, &size);
1615 if (!data_enc) return 0;
1616 val = eet_write_cipher(ef, name, data_enc, size, compress, cipher_key);
1622 eet_data_write(Eet_File *ef, Eet_Data_Descriptor *edd, const char *name, const void *data, int compress)
1624 return eet_data_write_cipher(ef, edd, name, NULL, data, compress);
1628 _eet_free_hash(void *data)
1630 unsigned long ptr = (unsigned long)(data);
1649 _eet_free_add(Eet_Free *ef, void *data)
1654 hash = _eet_free_hash(data);
1656 for (i = 0; i < ef->num[hash]; ++i)
1657 if (ef->list[hash][i] == data) return;
1660 if (ef->num[hash] > ef->len[hash])
1664 tmp = realloc(ef->list[hash], (ef->len[hash] + 16) * sizeof(void*));
1667 ef->len[hash] += 16;
1668 ef->list[hash] = tmp;
1670 ef->list[hash][ef->num[hash] - 1] = data;
1673 _eet_free_reset(Eet_Free *ef)
1677 if (ef->ref > 0) return ;
1678 for (i = 0; i < 256; ++i)
1682 if (ef->list[i]) free(ef->list[i]);
1687 _eet_free_ref(Eet_Free *ef)
1692 _eet_free_unref(Eet_Free *ef)
1697 #define _eet_freelist_add(Ctx, Data) _eet_free_add(&Ctx->freelist, Data);
1698 #define _eet_freelist_reset(Ctx) _eet_free_reset(&Ctx->freelist);
1699 #define _eet_freelist_ref(Ctx) _eet_free_ref(&Ctx->freelist);
1700 #define _eet_freelist_unref(Ctx) _eet_free_unref(&Ctx->freelist);
1703 _eet_freelist_free(Eet_Free_Context *context, Eet_Data_Descriptor *edd)
1708 if (context->freelist.ref > 0) return;
1709 for (j = 0; j < 256; ++j)
1710 for (i = 0; i < context->freelist.num[j]; ++i)
1713 edd->func.mem_free(context->freelist.list[j][i]);
1715 free(context->freelist.list[j][i]);
1717 _eet_free_reset(&context->freelist);
1720 #define _eet_freelist_list_add(Ctx, Data) _eet_free_add(&Ctx->freelist_list, Data);
1721 #define _eet_freelist_list_reset(Ctx) _eet_free_reset(&Ctx->freelist_list);
1722 #define _eet_freelist_list_ref(Ctx) _eet_free_ref(&Ctx->freelist_list);
1723 #define _eet_freelist_list_unref(Ctx) _eet_free_unref(&Ctx->freelist_list);
1726 _eet_freelist_list_free(Eet_Free_Context *context, Eet_Data_Descriptor *edd)
1731 if (context->freelist_list.ref > 0) return;
1732 for (j = 0; j < 256; ++j)
1733 for (i = 0; i < context->freelist_list.num[j]; ++i)
1736 edd->func.list_free(*((void**)(context->freelist_list.list[j][i])));
1738 _eet_free_reset(&context->freelist_list);
1741 #define _eet_freelist_str_add(Ctx, Data) _eet_free_add(&Ctx->freelist_str, Data);
1742 #define _eet_freelist_str_reset(Ctx) _eet_free_reset(&Ctx->freelist_str);
1743 #define _eet_freelist_str_ref(Ctx) _eet_free_ref(&Ctx->freelist_str);
1744 #define _eet_freelist_str_unref(Ctx) _eet_free_unref(&Ctx->freelist_str);
1747 _eet_freelist_str_free(Eet_Free_Context *context, Eet_Data_Descriptor *edd)
1752 if (context->freelist_str.ref > 0) return;
1753 for (j = 0; j < 256; ++j)
1754 for (i = 0; i < context->freelist_str.num[j]; ++i)
1757 edd->func.str_free(context->freelist_str.list[j][i]);
1759 free(context->freelist_str.list[j][i]);
1761 _eet_free_reset(&context->freelist_str);
1764 #define _eet_freelist_direct_str_add(Ctx, Data) _eet_free_add(&Ctx->freelist_direct_str, Data);
1765 #define _eet_freelist_direct_str_reset(Ctx) _eet_free_reset(&Ctx->freelist_direct_str);
1766 #define _eet_freelist_direct_str_ref(Ctx) _eet_free_ref(&Ctx->freelist_direct_str);
1767 #define _eet_freelist_direct_str_unref(Ctx) _eet_free_unref(&Ctx->freelist_direct_str);
1770 _eet_freelist_direct_str_free(Eet_Free_Context *context, Eet_Data_Descriptor *edd)
1775 if (context->freelist_direct_str.ref > 0) return;
1776 for (j = 0; j < 256; ++j)
1777 for (i = 0; i < context->freelist_direct_str.num[j]; ++i)
1780 edd->func.str_direct_free(context->freelist_direct_str.list[j][i]);
1782 free(context->freelist_direct_str.list[j][i]);
1784 _eet_free_reset(&context->freelist_direct_str);
1787 #define _eet_freelist_hash_add(Ctx, Data) _eet_free_add(&Ctx->freelist_hash, Data);
1788 #define _eet_freelist_hash_reset(Ctx) _eet_free_reset(&Ctx->freelist_hash);
1789 #define _eet_freelist_hash_ref(Ctx) _eet_free_ref(&Ctx->freelist_hash);
1790 #define _eet_freelist_hash_unref(Ctx) _eet_free_unref(&Ctx->freelist_hash);
1793 _eet_freelist_hash_free(Eet_Free_Context *context, Eet_Data_Descriptor *edd)
1798 if (context->freelist_hash.ref > 0) return;
1799 for (j = 0; j < 256; ++j)
1800 for (i = 0; i < context->freelist_hash.num[j]; ++i)
1803 edd->func.hash_free(context->freelist_hash.list[j][i]);
1805 free(context->freelist_hash.list[j][i]);
1807 _eet_free_reset(&context->freelist_hash);
1811 _eet_freelist_all_ref(Eet_Free_Context *freelist_context)
1813 _eet_freelist_ref(freelist_context);
1814 _eet_freelist_str_ref(freelist_context);
1815 _eet_freelist_list_ref(freelist_context);
1816 _eet_freelist_hash_ref(freelist_context);
1817 _eet_freelist_direct_str_ref(freelist_context);
1821 _eet_freelist_all_unref(Eet_Free_Context *freelist_context)
1823 _eet_freelist_unref(freelist_context);
1824 _eet_freelist_str_unref(freelist_context);
1825 _eet_freelist_list_unref(freelist_context);
1826 _eet_freelist_hash_unref(freelist_context);
1827 _eet_freelist_direct_str_unref(freelist_context);
1831 eet_data_descriptor_encode_hash_cb(void *hash __UNUSED__, const char *cipher_key, void *hdata, void *fdata)
1834 Eet_Data_Encode_Hash_Info *edehi;
1835 Eet_Data_Stream *ds;
1836 Eet_Data_Element *ede;
1837 Eet_Data_Chunk *echnk;
1847 data = eet_data_put_type(ed,
1853 echnk = eet_data_chunk_new(data, size, ede->name, ede->type, ede->group_type);
1854 eet_data_chunk_put(ed, echnk, ds);
1855 eet_data_chunk_free(echnk);
1860 EET_ASSERT(!((ede->type > EET_T_UNKNOW) && (ede->type < EET_T_STRING)), return );
1863 if (ede->type >= EET_T_STRING)
1864 eet_data_put_unknown(ed, NULL, ede, ds, &hdata);
1868 data = _eet_data_descriptor_encode(ed,
1874 echnk = eet_data_chunk_new(data, size, ede->name, ede->type, ede->group_type);
1875 eet_data_chunk_put(ed, echnk, ds);
1876 eet_data_chunk_free(echnk);
1886 _eet_data_dump_token_get(const char *src, int *len)
1892 int tlen = 0, tsize = 0;
1894 #define TOK_ADD(x) \
1897 if (tlen >= tsize) \
1900 tok = realloc(tok, tsize); \
1902 tok[tlen - 1] = x; \
1905 for (p = src; *len > 0; p++, (*len)--)
1911 if ((p[0] == '\"') && (p > src) && (p[-1] != '\\'))
1915 else if ((p[0] == '\\') && (*len > 1) && (p[1] == '\"'))
1919 else if ((p[0] == '\\') && (p > src) && (p[-1] == '\\'))
1923 else if ((p[0] == '\\') && (*len > 1) && (p[1] == 'n'))
1927 else if ((p[0] == 'n') && (p > src) && (p[-1] == '\\'))
1936 if (p[0] == '\"') in_quote = 1;
1939 if ((isspace(p[0])) || (p[0] == ';')) /* token ends here */
1952 if (!((isspace(p[0])) || (p[0] == ';')))
1970 eet_data_encode(Eet_Dictionary *ed, Eet_Data_Stream *ds, void *data, const char *name, int size, int type, int group_type)
1972 Eet_Data_Chunk *echnk;
1974 if (!data) type = EET_T_NULL;
1976 if (group_type != EET_G_UNKNOWN)
1977 if (type >= EET_T_LAST)
1978 type = EET_T_UNKNOW;
1980 echnk = eet_data_chunk_new(data, size, name, type, group_type);
1981 eet_data_chunk_put(ed, echnk, ds);
1982 eet_data_chunk_free(echnk);
1987 _eet_data_dump_encode(int parent_type,
1992 Eet_Data_Chunk *chnk = NULL;
1993 Eet_Data_Stream *ds;
2000 if (_eet_data_words_bigendian == -1)
2002 unsigned long int v;
2004 v = htonl(0x12345678);
2005 if (v == 0x12345678) _eet_data_words_bigendian = 1;
2006 else _eet_data_words_bigendian = 0;
2009 if (node == NULL) return NULL;
2011 ds = eet_data_stream_new();
2012 if (!ds) return NULL;
2017 for (n = node->values; n; n = n->next)
2019 data = _eet_data_dump_encode(node->type, ed, n, &size);
2022 eet_data_stream_write(ds, data, size);
2028 case EET_G_VAR_ARRAY:
2029 for (child_type = EET_T_NULL, n = node->values; n; n = n->next)
2031 if (n->type != EET_T_NULL)
2033 child_type = n->type;
2038 data = eet_data_put_type(ed,
2042 eet_data_encode(ed, ds, data, node->name, size, child_type, node->type);
2044 count = node->count;
2046 for (n = node->values; n; n = n->next)
2053 case EET_T_INLINED_STRING:
2054 data = eet_data_put_type(ed, n->type, &(n->data.value.str), &size);
2055 if (data) eet_data_encode(ed, ds, data, node->name, size, n->type, node->type);
2060 data = _eet_data_dump_encode(n->type, ed, n, &size);
2061 eet_data_encode(ed, ds, data, node->name, size, n->type, node->type);
2064 if (ds->pos != pos) count--;
2067 for (; count; count--)
2069 eet_data_encode(ed, ds, NULL, node->name, 0, EET_T_NULL, node->type);
2072 /* Array is somekind of special case, so we should embed it inside another chunk. */
2073 *size_ret = ds->pos;
2078 eet_data_stream_free(ds);
2083 for (n = node->values; n; n = n->next)
2088 case EET_T_INLINED_STRING:
2089 data = eet_data_put_type(ed, n->type, &(n->data.value.str), &size);
2090 if (data) eet_data_encode(ed, ds, data, node->name, size, n->type, node->type);
2095 data = _eet_data_dump_encode(node->type, ed, n, &size);
2096 eet_data_encode(ed, ds, data, node->name, size, n->type, node->type);
2100 /* List is another somekind of special case, every chunk is embed inside a list chunk. */
2101 *size_ret = ds->pos;
2106 eet_data_stream_free(ds);
2113 data = eet_data_put_type(ed,
2117 eet_data_encode(ed, ds, data, node->name, size, node->type, node->type);
2120 /* A Hash without key will not decode correctly. */
2123 for (n = node->values; n; n = n->next)
2128 case EET_T_INLINED_STRING:
2129 data = eet_data_put_type(ed, n->type, &(n->data.value.str), &size);
2130 if (data) eet_data_encode(ed, ds, data, node->name, size, n->type, node->type);
2135 data = _eet_data_dump_encode(node->type, ed, n, &size);
2136 eet_data_encode(ed, ds, data, node->name, size, n->type, node->type);
2140 /* Hash is somekind of special case, so we should embed it inside another chunk. */
2141 *size_ret = ds->pos;
2144 eet_data_stream_flush(ds);
2150 #define EET_DATA_NODE_ENCODE(Eet_Type, Type) \
2152 data = eet_data_put_type(ed, node->type, &(node->data.value.Type), &size); \
2155 eet_data_encode(ed, ds, data, node->name, size, node->type, parent_type); \
2157 *size_ret = ds->pos; \
2158 eet_data_stream_flush(ds); \
2163 EET_DATA_NODE_ENCODE(EET_T_CHAR, c);
2164 EET_DATA_NODE_ENCODE(EET_T_SHORT, s);
2165 EET_DATA_NODE_ENCODE(EET_T_INT, i);
2166 EET_DATA_NODE_ENCODE(EET_T_LONG_LONG, l);
2167 EET_DATA_NODE_ENCODE(EET_T_FLOAT, f);
2168 EET_DATA_NODE_ENCODE(EET_T_DOUBLE, d);
2169 EET_DATA_NODE_ENCODE(EET_T_UCHAR, uc);
2170 EET_DATA_NODE_ENCODE(EET_T_USHORT, us);
2171 EET_DATA_NODE_ENCODE(EET_T_UINT, ui);
2172 EET_DATA_NODE_ENCODE(EET_T_ULONG_LONG, ul);
2173 EET_DATA_NODE_ENCODE(EET_T_INLINED_STRING, str);
2174 EET_DATA_NODE_ENCODE(EET_T_STRING, str);
2179 if ((node->type >= EET_G_UNKNOWN) && (node->type < EET_G_LAST))
2180 chnk = eet_data_chunk_new(ds->data, ds->pos, node->name, EET_T_UNKNOW, node->type);
2182 chnk = eet_data_chunk_new(ds->data, ds->pos, node->name, node->type, EET_G_UNKNOWN);
2183 eet_data_stream_flush(ds);
2185 ds = eet_data_stream_new();
2186 eet_data_chunk_put(ed, chnk, ds);
2190 eet_data_stream_flush(ds);
2194 eet_data_chunk_free(chnk);
2200 _eet_data_dump_parse(Eet_Dictionary *ed,
2206 const char *p = NULL;
2211 Eet_Node *node_base = NULL;
2212 Eet_Node *node = NULL;
2213 Eet_Node *n = NULL, *nn = NULL;
2215 /* FIXME; handle parse errors */
2216 #define TOK_GET(t) \
2217 jump = left; t = _eet_data_dump_token_get(p, &left); p += jump - left;
2219 for (p = src; p < (src + size);)
2221 char *tok1, *tok2, *tok3, *tok4;
2226 if (!strcmp(tok1, "group"))
2237 if (!strcmp(tok4, "{"))
2239 /* we have 'group NAM TYP {' */
2255 for (nn = node->values; nn; nn = nn->next)
2265 n->name = eina_stringshare_add(tok2);
2266 if (!strcmp(tok3, "struct")) n->type = EET_G_UNKNOWN;
2267 else if (!strcmp(tok3, "array")) n->type = EET_G_ARRAY;
2268 else if (!strcmp(tok3, "var_array")) n->type = EET_G_VAR_ARRAY;
2269 else if (!strcmp(tok3, "list")) n->type = EET_G_LIST;
2270 else if (!strcmp(tok3, "hash")) n->type = EET_G_HASH;
2273 ERR("ERROR: group type '%s' invalid.", tok3);
2285 else if (!strcmp(tok1, "value"))
2296 /* we have 'value NAME TYP XXX' */
2308 for (nn = node->values; nn; nn = nn->next)
2317 n->name = eina_stringshare_add(tok2);
2318 if (!strcmp(tok3, "char:"))
2320 n->type = EET_T_CHAR;
2321 sscanf(tok4, "%hhi", &(n->data.value.c));
2323 else if (!strcmp(tok3, "short:"))
2325 n->type = EET_T_SHORT;
2326 sscanf(tok4, "%hi", &(n->data.value.s));
2328 else if (!strcmp(tok3, "int:"))
2330 n->type = EET_T_INT;
2331 sscanf(tok4, "%i", &(n->data.value.i));
2333 else if (!strcmp(tok3, "long_long:"))
2335 n->type = EET_T_LONG_LONG;
2336 sscanf(tok4, "%lli", &(n->data.value.l));
2338 else if (!strcmp(tok3, "float:"))
2340 n->type = EET_T_FLOAT;
2341 sscanf(tok4, "%f", &(n->data.value.f));
2343 else if (!strcmp(tok3, "double:"))
2345 n->type = EET_T_DOUBLE;
2346 sscanf(tok4, "%lf", &(n->data.value.d));
2348 else if (!strcmp(tok3, "uchar:"))
2350 n->type = EET_T_UCHAR;
2351 sscanf(tok4, "%hhu", &(n->data.value.uc));
2353 else if (!strcmp(tok3, "ushort:"))
2355 n->type = EET_T_USHORT;
2356 sscanf(tok4, "%hu", &(n->data.value.us));
2358 else if (!strcmp(tok3, "uint:"))
2360 n->type = EET_T_UINT;
2361 sscanf(tok4, "%u", &(n->data.value.ui));
2363 else if (!strcmp(tok3, "ulong_long:"))
2365 n->type = EET_T_ULONG_LONG;
2366 sscanf(tok4, "%llu", &(n->data.value.ul));
2368 else if (!strcmp(tok3, "string:"))
2370 n->type = EET_T_STRING;
2371 n->data.value.str = eina_stringshare_add(tok4);
2373 else if (!strcmp(tok3, "inlined:"))
2375 n->type = EET_T_INLINED_STRING;
2376 n->data.value.str = eina_stringshare_add(tok4);
2378 else if (!strcmp(tok3, "null"))
2380 n->type = EET_T_NULL;
2381 n->data.value.str = NULL;
2385 ERR("ERROR: value type '%s' invalid.", tok4);
2396 else if (!strcmp(tok1, "key"))
2401 /* we have 'key NAME' */
2404 node->key = eina_stringshare_add(tok2);
2409 else if (!strcmp(tok1, "count"))
2414 /* we have a 'count COUNT' */
2417 sscanf(tok2, "%i", &(node->count));
2422 else if (!strcmp(tok1, "}"))
2424 /* we have an end of the group */
2425 if (node) node = node->parent;
2433 cdata = _eet_data_dump_encode(EET_G_UNKNOWN, ed, node_base, size_ret);
2434 eet_node_del(node_base);
2439 #define NEXT_CHUNK(P, Size, Echnk, Ed) \
2442 tmp = Ed ? (int) (sizeof(int) * 2) : Echnk.len + 4;\
2443 P += (4 + Echnk.size + tmp); \
2444 Size -= (4 + Echnk.size + tmp); \
2448 _eet_data_descriptor_decode(Eet_Free_Context *context,
2449 const Eet_Dictionary *ed,
2450 Eet_Data_Descriptor *edd,
2451 const void *data_in,
2454 Eet_Node *result = NULL;
2458 Eet_Data_Chunk chnk;
2460 if (_eet_data_words_bigendian == -1)
2462 unsigned long int v;
2464 v = htonl(0x12345678);
2465 if (v == 0x12345678) _eet_data_words_bigendian = 1;
2466 else _eet_data_words_bigendian = 0;
2471 data = edd->func.mem_alloc(edd->size);
2472 if (!data) return NULL;
2475 for (i = 0; i < edd->elements.num; i++)
2476 edd->elements.set[i].directory_name_ptr = NULL;
2480 _eet_freelist_all_ref(context);
2481 if (data) _eet_freelist_add(context, data);
2482 memset(&chnk, 0, sizeof(Eet_Data_Chunk));
2483 eet_data_chunk_get(ed, &chnk, data_in, size_in);
2484 if (!chnk.name) goto error;
2487 if (strcmp(chnk.name, edd->name)) goto error;
2491 size = size_in - (4 + sizeof(int) * 2);
2493 size = size_in - (4 + 4 + chnk.len);
2496 if (!edd->elements.hash.buckets) _eet_descriptor_hash_new(edd);
2500 switch (chnk.group_type)
2506 return eet_node_string_new(chnk.name, chnk.data);
2507 case EET_T_INLINED_STRING:
2508 return eet_node_inlined_string_new(chnk.name, chnk.data);
2510 return eet_node_null_new(chnk.name);
2512 result = eet_node_struct_new(chnk.name, NULL);
2515 case EET_G_VAR_ARRAY:
2516 return eet_node_var_array_new(chnk.name, NULL);
2528 Eet_Data_Chunk echnk;
2529 Eet_Data_Element *ede = NULL;
2530 Eet_Node *child = NULL;
2531 int group_type = EET_G_UNKNOWN, type = EET_T_UNKNOW;
2534 /* get next data chunk */
2535 memset(&echnk, 0, sizeof(Eet_Data_Chunk));
2536 eet_data_chunk_get(ed, &echnk, p, size);
2537 if (!echnk.name) goto error;
2538 /* FIXME: don't REPLY on edd - work without */
2541 ede = _eet_descriptor_hash_find(edd, echnk.name, echnk.hash);
2544 group_type = ede->group_type;
2546 if ((echnk.type == 0) && (echnk.group_type == 0))
2549 group_type = ede->group_type;
2553 if (IS_SIMPLE_TYPE(echnk.type) &&
2554 eet_data_type_match(echnk.type, ede->type))
2555 /* Needed when converting on the fly from FP to Float */
2557 else if ((echnk.group_type > EET_G_UNKNOWN) &&
2558 (echnk.group_type < EET_G_LAST) &&
2559 (echnk.group_type == ede->group_type))
2560 group_type = echnk.group_type;
2564 /*...... dump to node */
2568 group_type = echnk.group_type;
2571 if (!edd && group_type == EET_G_UNKNOWN && IS_SIMPLE_TYPE(type))
2573 unsigned char dd[128];
2575 ret = eet_data_get_type(ed,
2578 ((char *)echnk.data) + echnk.size,
2580 if (ret <= 0) goto error;
2582 child = eet_data_node_simple_type(type, echnk.name, dd);
2584 eet_node_struct_append(result, echnk.name, child);
2588 ret = eet_group_codec[group_type - 100].get(context,
2589 ed, edd, ede, &echnk,
2590 type, group_type, ede ? (void*) (((char *)data) + ede->offset) : (void**) &result,
2593 if (ret <= 0) goto error;
2596 /* advance to next chunk */
2597 NEXT_CHUNK(p, size, echnk, ed);
2600 _eet_freelist_all_unref(context);
2603 _eet_freelist_str_free(context, edd);
2604 _eet_freelist_direct_str_free(context, edd);
2605 _eet_freelist_list_free(context, edd);
2606 _eet_freelist_hash_free(context, edd);
2607 _eet_freelist_free(context, edd);
2611 _eet_freelist_reset(context);
2612 _eet_freelist_str_reset(context);
2613 _eet_freelist_list_reset(context);
2614 _eet_freelist_hash_reset(context);
2615 _eet_freelist_direct_str_reset(context);
2624 eet_node_del(result);
2626 _eet_freelist_all_unref(context);
2627 _eet_freelist_str_free(context, edd);
2628 _eet_freelist_direct_str_free(context, edd);
2629 _eet_freelist_list_free(context, edd);
2630 _eet_freelist_hash_free(context, edd);
2631 _eet_freelist_free(context, edd);
2633 /* FIXME: Warn that something goes wrong here. */
2638 eet_data_get_list(Eet_Free_Context *context, const Eet_Dictionary *ed, Eet_Data_Descriptor *edd, Eet_Data_Element *ede, Eet_Data_Chunk *echnk,
2639 int type, int group_type __UNUSED__, void *data,
2640 char **p, int *size)
2642 Eet_Data_Descriptor *subtype = NULL;
2647 EET_ASSERT(!((type > EET_T_UNKNOW) && (type < EET_T_STRING)), return 0);
2651 subtype = ede->subtype;
2653 if (type != ede->type)
2657 ptr = (void **)data;
2661 if (IS_POINTER_TYPE(type))
2663 POINTER_TYPE_DECODE(context, ed, edd, ede, echnk, type, &data_ret, p, size, on_error);
2667 STRUCT_TYPE_DECODE(data_ret, context, ed, subtype, echnk->data, echnk->size, on_error);
2672 list = edd->func.list_append(list, data_ret);
2674 _eet_freelist_list_add(context, ptr);
2678 eet_node_list_append(*((Eet_Node**) data), echnk->name, data_ret);
2688 eet_data_get_hash(Eet_Free_Context *context, const Eet_Dictionary *ed, Eet_Data_Descriptor *edd, Eet_Data_Element *ede, Eet_Data_Chunk *echnk,
2689 int type, int group_type __UNUSED__, void *data,
2690 char **p, int *size)
2695 void *data_ret = NULL;
2698 EET_ASSERT(!((type > EET_T_UNKNOW) && (type < EET_T_STRING)), return 0);
2700 ptr = (void **)data;
2704 ret = eet_data_get_type(ed,
2707 ((char *)echnk->data) + echnk->size,
2709 if (ret <= 0) goto on_error;
2711 /* Advance to next chunk */
2712 NEXT_CHUNK((*p), (*size), (*echnk), ed);
2713 memset(echnk, 0, sizeof(Eet_Data_Chunk));
2716 eet_data_chunk_get(ed, echnk, *p, *size);
2717 if (!echnk->name) goto on_error;
2719 if (IS_POINTER_TYPE(echnk->type))
2721 POINTER_TYPE_DECODE(context, ed, edd, ede, echnk, echnk->type, &data_ret, p, size, on_error);
2725 STRUCT_TYPE_DECODE(data_ret, context, ed, ede ? ede->subtype : NULL, echnk->data, echnk->size, on_error);
2730 hash = edd->func.hash_add(hash, key, data_ret);
2732 _eet_freelist_hash_add(context, hash);
2736 eet_node_hash_add(*((Eet_Node **) data), echnk->name, key, data_ret);
2745 /* var arrays and fixed arrays have to
2746 * get all chunks at once. for fixed arrays
2747 * we can get each chunk and increment a
2748 * counter stored on the element itself but
2749 * it wont be thread safe. for var arrays
2750 * we still need a way to get the number of
2751 * elements from the data, so storing the
2752 * number of elements and the element data on
2753 * each chunk is pointless.
2756 eet_data_get_array(Eet_Free_Context *context, const Eet_Dictionary *ed, Eet_Data_Descriptor *edd,
2757 Eet_Data_Element *ede, Eet_Data_Chunk *echnk,
2758 int type, int group_type, void *data,
2759 char **p, int *size)
2761 Eina_List *childs = NULL;
2770 EET_ASSERT(!((type > EET_T_UNKNOW) && (type < EET_T_STRING)), return 0);
2773 /* read the number of elements */
2774 ret = eet_data_get_type(ed,
2777 ((char *)echnk->data) + echnk->size,
2779 if (ret <= 0) return ret;
2785 if (IS_POINTER_TYPE(type))
2786 subsize = eet_basic_codec[ede->type].size;
2788 subsize = ede->subtype->size;
2790 if (group_type == EET_G_VAR_ARRAY)
2792 /* store the number of elements
2793 * on the counter offset */
2794 *(int *)(((char *)data) + ede->count - ede->offset) = count;
2795 /* allocate space for the array of elements */
2796 *(void **)ptr = edd->func.mem_alloc(count * subsize);
2798 if (!*(void **)ptr) return 0;
2800 memset(*(void **)ptr, 0, count * subsize);
2802 _eet_freelist_add(context, *(void **)ptr);
2806 /* get all array elements */
2807 for (i = 0; i < count; i++)
2810 void *data_ret = NULL;
2812 /* Advance to next chunk */
2813 NEXT_CHUNK((*p), (*size), (*echnk), ed);
2814 memset(echnk, 0, sizeof(Eet_Data_Chunk));
2816 eet_data_chunk_get(ed, echnk, *p, *size);
2817 if (!echnk->name || strcmp(echnk->name, name) != 0) goto on_error;
2820 if (echnk->group_type != group_type
2821 || (echnk->type != type && echnk->type != EET_T_NULL))
2825 if (ede->group_type != echnk->group_type
2826 || (echnk->type != ede->type && echnk->type != EET_T_NULL))
2829 /* get the destination pointer */
2832 if (group_type == EET_G_ARRAY)
2833 dst = (char *)ptr + (subsize * i);
2835 dst = *(char **)ptr + (subsize * i);
2838 if (IS_POINTER_TYPE(echnk->type))
2840 POINTER_TYPE_DECODE(context, ed, edd, ede, echnk, echnk->type, &data_ret, p, size, on_error);
2841 if (dst) memcpy(dst, &data_ret, subsize);
2842 if (!edd) childs = eina_list_append(childs, data_ret);
2846 STRUCT_TYPE_DECODE(data_ret, context, ed, ede ? ede->subtype : NULL, echnk->data, echnk->size, on_error);
2849 memcpy(dst, data_ret, subsize);
2850 _eet_freelist_add(context, data_ret);
2852 if (!edd) childs = eina_list_append(childs, data_ret);
2858 Eet_Node *parent = *((Eet_Node **) data);
2861 if (group_type == EET_G_ARRAY)
2862 array = eet_node_array_new(name, count, childs);
2864 array = eet_node_var_array_new(name, childs);
2866 if (!array) goto on_error;
2868 eet_node_struct_append(parent, name, array);
2874 EINA_LIST_FREE(childs, tmp)
2881 eet_data_put_union(Eet_Dictionary *ed,
2882 __UNUSED__ Eet_Data_Descriptor *edd,
2883 Eet_Data_Element *ede, Eet_Data_Stream *ds, void *data_in)
2885 const char *union_type;
2888 EET_ASSERT(!((ede->type != EET_T_UNKNOW) || (!ede->subtype)), return );
2890 union_type = ede->subtype->func.type_get(((char*) data_in) + ede->count - ede->offset,
2893 if (!union_type) return ;
2895 /* Search the structure of the union to encode. */
2896 for (i = 0; i < ede->subtype->elements.num; ++i)
2897 if (strcmp(ede->subtype->elements.set[i].name, union_type) == 0)
2899 Eet_Data_Element *sede;
2903 /* Yeah we found it ! */
2904 data = eet_data_put_type(ed, EET_T_STRING, &union_type, &size);
2905 if (data) eet_data_encode(ed, ds, data, ede->name, size, ede->type, ede->group_type);
2907 sede = &(ede->subtype->elements.set[i]);
2908 data = _eet_data_descriptor_encode(ed,
2912 if (data) eet_data_encode(ed, ds, data, ede->name, size, ede->type, ede->group_type);
2918 eet_data_get_union(Eet_Free_Context *context, const Eet_Dictionary *ed,
2919 __UNUSED__ Eet_Data_Descriptor *edd,
2920 Eet_Data_Element *ede, Eet_Data_Chunk *echnk,
2921 int type, int group_type, void *data,
2922 char **p, int *size)
2924 const char *union_type;
2925 void *data_ret = NULL;
2930 ret = eet_data_get_type(ed,
2933 ((char *)echnk->data) + echnk->size,
2935 if (ret <= 0) goto on_error;
2937 /* Advance to next chunk */
2938 NEXT_CHUNK((*p), (*size), (*echnk), ed);
2939 memset(echnk, 0, sizeof(Eet_Data_Chunk));
2942 eet_data_chunk_get(ed, echnk, *p, *size);
2943 if (!echnk->name) goto on_error;
2947 EET_ASSERT(!(ede->group_type != group_type || ede->type != type), goto on_error);
2949 /* Search the structure of the union to decode */
2950 for (i = 0; i < ede->subtype->elements.num; ++i)
2951 if (strcmp(ede->subtype->elements.set[i].name, union_type) == 0)
2953 Eet_Data_Element *sede;
2956 /* Yeah we found it ! */
2957 sede = &(ede->subtype->elements.set[i]);
2958 EET_ASSERT(sede->subtype, goto on_error);
2960 data_ret = _eet_data_descriptor_decode(context,
2965 if (!data_ret) goto on_error;
2967 /* Memcopy the structure content to remove pointer indirection. */
2968 memcpy(data, data_ret, sede->subtype->size);
2970 /* data_ret is now useless. */
2971 sede->subtype->func.mem_free(data_ret);
2973 /* Set union type. */
2974 if ((!ed) || (!ede->subtype->func.str_direct_alloc))
2976 ut = ede->subtype->func.str_alloc(union_type);
2977 _eet_freelist_str_add(context, ut);
2981 ut = ede->subtype->func.str_direct_alloc(union_type);
2982 _eet_freelist_direct_str_add(context, ut);
2985 ede->subtype->func.type_set(ut,
2986 ((char*) data) + ede->count - ede->offset,
2994 /* FIXME: generate node structure. */
2995 data_ret = _eet_data_descriptor_decode(context,
2997 echnk->data, echnk->size);
3008 eet_data_put_variant(Eet_Dictionary *ed,
3009 __UNUSED__ Eet_Data_Descriptor *edd,
3010 Eet_Data_Element *ede, Eet_Data_Stream *ds, void *data_in)
3012 const char *union_type;
3014 Eina_Bool unknow = EINA_FALSE;
3018 EET_ASSERT(!((ede->type != EET_T_UNKNOW) || (!ede->subtype)), return );
3020 union_type = ede->subtype->func.type_get(((char*) data_in) + ede->count - ede->offset,
3023 if (!union_type && unknow == EINA_FALSE) return ;
3027 /* Handle opaque internal representation */
3028 Eet_Variant_Unknow *evu;
3030 data = eet_data_put_type(ed, EET_T_STRING, &union_type, &size);
3031 if (data) eet_data_encode(ed, ds, data, ede->name, size, ede->type, ede->group_type);
3033 evu = (Eet_Variant_Unknow*) data_in;
3034 if (evu && EINA_MAGIC_CHECK(evu, EET_MAGIC_VARIANT))
3035 eet_data_encode(ed, ds, evu->data, ede->name, evu->size, ede->type, ede->group_type);
3039 /* Search the structure of the union to encode. */
3040 for (i = 0; i < ede->subtype->elements.num; ++i)
3041 if (strcmp(ede->subtype->elements.set[i].name, union_type) == 0)
3043 Eet_Data_Element *sede;
3045 /* Yeah we found it ! */
3046 data = eet_data_put_type(ed, EET_T_STRING, &union_type, &size);
3047 if (data) eet_data_encode(ed, ds, data, ede->name, size, ede->type, ede->group_type);
3049 sede = &(ede->subtype->elements.set[i]);
3051 if (sede->group_type != EET_G_UNKNOWN)
3053 Eet_Data_Stream *lds;
3055 lds = eet_data_stream_new();
3056 eet_group_codec[sede->group_type - 100].put(ed,
3063 eet_data_encode(ed, ds, lds->data, ede->name, lds->pos,
3064 ede->type, ede->group_type);
3071 eet_data_encode(ed, ds, NULL, ede->name, 0,
3072 EET_T_NULL, ede->group_type);
3075 eet_data_stream_free(lds);
3079 data = _eet_data_descriptor_encode(ed,
3083 if (data) eet_data_encode(ed, ds, data, ede->name, size, ede->type, ede->group_type);
3092 eet_data_get_variant(Eet_Free_Context *context, const Eet_Dictionary *ed,
3093 __UNUSED__ Eet_Data_Descriptor *edd,
3094 Eet_Data_Element *ede, Eet_Data_Chunk *echnk,
3095 int type, int group_type, void *data,
3096 char **p, int *size)
3098 const char *union_type;
3099 void *data_ret = NULL;
3104 ret = eet_data_get_type(ed,
3107 ((char *)echnk->data) + echnk->size,
3109 if (ret <= 0) goto on_error;
3111 /* Advance to next chunk */
3112 NEXT_CHUNK((*p), (*size), (*echnk), ed);
3113 memset(echnk, 0, sizeof(Eet_Data_Chunk));
3116 eet_data_chunk_get(ed, echnk, *p, *size);
3117 if (!echnk->name) goto on_error;
3123 EET_ASSERT(ede->subtype, goto on_error);
3125 if ((!ed) || (!ede->subtype->func.str_direct_alloc))
3127 ut = ede->subtype->func.str_alloc(union_type);
3128 _eet_freelist_str_add(context, ut);
3132 ut = ede->subtype->func.str_direct_alloc(union_type);
3133 _eet_freelist_direct_str_add(context, ut);
3136 /* Search the structure of the union to decode */
3137 for (i = 0; i < ede->subtype->elements.num; ++i)
3138 if (strcmp(ede->subtype->elements.set[i].name, union_type) == 0)
3140 Eet_Data_Element *sede;
3142 /* Yeah we found it ! */
3143 sede = &(ede->subtype->elements.set[i]);
3145 if (sede->group_type != EET_G_UNKNOWN)
3147 Eet_Data_Chunk chnk;
3153 size2 = echnk->size;
3155 /* Didn't find a proper way to provide this
3156 without duplicating code */
3159 memset(&chnk, 0, sizeof(Eet_Data_Chunk));
3160 eet_data_chunk_get(ed, &chnk, p2, size2);
3162 if (!chnk.name) goto on_error;
3164 ret = eet_group_codec[sede->group_type - 100].get(context,
3167 sede->type, sede->group_type,
3170 if (ret <= 0) goto on_error;
3172 /* advance to next chunk */
3173 NEXT_CHUNK(p2, size2, chnk, ed);
3176 /* Put garbage so that we will not put eet_variant_unknow in it */
3177 data_ret = (void*) data;
3179 /* Set variant type. */
3180 ede->subtype->func.type_set(ut,
3181 ((char*) data) + ede->count - ede->offset,
3186 data_ret = _eet_data_descriptor_decode(context,
3191 if (!data_ret) break;
3193 /* And point to the variant data. */
3194 *(void**) data = data_ret;
3196 /* Set variant type. */
3197 ede->subtype->func.type_set(ut,
3198 ((char*) data) + ede->count - ede->offset,
3205 Eet_Variant_Unknow *evu;
3207 evu = calloc(1, sizeof (Eet_Variant_Unknow) + echnk->size - 1);
3208 if (!evu) goto on_error;
3210 evu->size = echnk->size;
3211 memcpy(evu->data, echnk->data, evu->size);
3212 EINA_MAGIC_SET(evu, EET_MAGIC_VARIANT);
3214 /* And point to the opaque internal data scructure */
3215 *(void**) data = evu;
3217 /* Set variant type. */
3218 ede->subtype->func.type_set(ut,
3219 ((char*) data) + ede->count - ede->offset,
3225 /* FIXME: dump node structure. */
3226 data_ret = _eet_data_descriptor_decode(context,
3228 echnk->data, echnk->size);
3239 eet_data_node_simple_type(int type, const char *name, void *dd)
3245 #define EET_T_TYPE(Eet_Type, Eet_Node_Type, Type) \
3247 return eet_node_##Eet_Node_Type##_new(name, *((Type *) dd)); \
3251 EET_T_TYPE(EET_T_CHAR, char, char);
3252 EET_T_TYPE(EET_T_SHORT, short, short);
3253 EET_T_TYPE(EET_T_INT, int, int);
3254 EET_T_TYPE(EET_T_LONG_LONG, long_long, long long);
3255 EET_T_TYPE(EET_T_FLOAT, float, float);
3256 EET_T_TYPE(EET_T_DOUBLE, double, double);
3257 EET_T_TYPE(EET_T_UCHAR, unsigned_char, unsigned char);
3258 EET_T_TYPE(EET_T_USHORT, unsigned_short, unsigned short);
3259 EET_T_TYPE(EET_T_UINT, unsigned_int, unsigned int);
3260 EET_T_TYPE(EET_T_ULONG_LONG, unsigned_long_long, unsigned long long);
3261 EET_T_TYPE(EET_T_STRING, string, char*);
3262 EET_T_TYPE(EET_T_INLINED_STRING, inlined_string, char*);
3264 return eet_node_null_new(name);
3266 ERR("Unknow type passed to eet_data_node_simple_type");
3272 eet_data_get_unknown(Eet_Free_Context *context, const Eet_Dictionary *ed, Eet_Data_Descriptor *edd, Eet_Data_Element *ede, Eet_Data_Chunk *echnk,
3273 int type, int group_type __UNUSED__, void *data,
3274 char **p __UNUSED__, int *size __UNUSED__)
3279 if (IS_SIMPLE_TYPE(type))
3281 unsigned char dd[128];
3283 ret = eet_data_get_type(ed, type, echnk->data, ((char *)echnk->data) + echnk->size, edd ? (char*) data : (char*) dd);
3284 if (ret <= 0) return ret;
3288 Eet_Node **parent = data;
3291 node = eet_data_node_simple_type(type, echnk->name, dd);
3293 if (*parent) eet_node_struct_append(*parent, echnk->name, node);
3294 else *parent = node;
3298 if (type == EET_T_STRING)
3302 str = (char **)(((char *)data));
3305 if ((ed == NULL) || (edd->func.str_direct_alloc == NULL))
3307 *str = edd->func.str_alloc(*str);
3308 _eet_freelist_str_add(context, *str);
3312 *str = edd->func.str_direct_alloc(*str);
3313 _eet_freelist_direct_str_add(context, *str);
3317 else if (edd && type == EET_T_INLINED_STRING)
3321 str = (char **)(((char *)data));
3324 *str = edd->func.str_alloc(*str);
3325 _eet_freelist_str_add(context, *str);
3332 Eet_Data_Descriptor *subtype;
3334 subtype = ede ? ede->subtype : NULL;
3336 if (subtype || !edd)
3338 Eet_Node **parent = data;
3341 data_ret = _eet_data_descriptor_decode(context, ed, subtype, echnk->data, echnk->size);
3342 if (!data_ret) return 0;
3346 ptr = (void **)(((char *)data));
3347 *ptr = (void *)data_ret;
3351 Eet_Node *node = data_ret;
3355 node = eet_node_struct_child_new(echnk->name, node);
3356 eet_node_struct_append(*parent, echnk->name, node);
3358 else *parent = node;
3367 eet_data_put_array(Eet_Dictionary *ed, Eet_Data_Descriptor *edd __UNUSED__, Eet_Data_Element *ede, Eet_Data_Stream *ds, void *data_in)
3376 EET_ASSERT(!((ede->type > EET_T_UNKNOW) && (ede->type < EET_T_STRING)), return );
3378 if (ede->group_type == EET_G_ARRAY)
3379 count = ede->counter_offset;
3381 count = *(int *)(((char *)data_in) + ede->count - ede->offset);
3383 if (count <= 0) return;
3384 /* Store number of elements */
3385 data = eet_data_put_type(ed, EET_T_INT, &count, &size);
3386 if (data) eet_data_encode(ed, ds, data, ede->name, size, ede->type, ede->group_type);
3388 if (IS_POINTER_TYPE(ede->type))
3389 subsize = eet_basic_codec[ede->type].size;
3391 subsize = ede->subtype->size;
3393 for (j = 0; j < count; j++)
3398 if (ede->group_type == EET_G_ARRAY)
3399 d = (void *)(((char *)data_in) + offset);
3401 d = *(((char **)data_in)) + offset;
3403 if (IS_POINTER_TYPE(ede->type))
3406 eet_data_put_unknown(ed, NULL, ede, ds, d);
3410 data = _eet_data_descriptor_encode(ed, ede->subtype, d, &size);
3411 if (data) eet_data_encode(ed, ds, data, ede->name, size, ede->type, ede->group_type);
3416 /* Add a NULL element just to have the correct array layout. */
3417 eet_data_encode(ed, ds, NULL, ede->name, 0, EET_T_NULL, ede->group_type);
3425 eet_data_put_unknown(Eet_Dictionary *ed, Eet_Data_Descriptor *edd __UNUSED__, Eet_Data_Element *ede, Eet_Data_Stream *ds, void *data_in)
3430 if (IS_SIMPLE_TYPE(ede->type))
3431 data = eet_data_put_type(ed, ede->type, data_in, &size);
3432 else if (ede->subtype)
3434 if (*((char **)data_in))
3435 data = _eet_data_descriptor_encode(ed,
3437 *((char **)((char *)(data_in))),
3440 if (data) eet_data_encode(ed, ds, data, ede->name, size, ede->type, ede->group_type);
3444 eet_data_put_list(Eet_Dictionary *ed, Eet_Data_Descriptor *edd, Eet_Data_Element *ede, Eet_Data_Stream *ds, void *data_in)
3450 EET_ASSERT(!(((ede->type > EET_T_UNKNOW) && (ede->type < EET_T_STRING))
3451 || ((ede->type > EET_T_NULL) && (ede->type < EET_T_LAST))),
3454 l = *((void **)(((char *)data_in)));
3455 for (; l; l = edd->func.list_next(l))
3457 if (IS_POINTER_TYPE(ede->type))
3459 const void *str = edd->func.list_data(l);
3460 eet_data_put_unknown(ed, NULL, ede, ds, &str);
3464 data = _eet_data_descriptor_encode(ed,
3466 edd->func.list_data(l),
3468 if (data) eet_data_encode(ed, ds, data, ede->name, size, ede->type, ede->group_type);
3474 eet_data_put_hash(Eet_Dictionary *ed, Eet_Data_Descriptor *edd, Eet_Data_Element *ede, Eet_Data_Stream *ds, void *data_in)
3476 Eet_Data_Encode_Hash_Info fdata;
3479 l = *((void **)(((char *)data_in)));
3483 edd->func.hash_foreach(l, eet_data_descriptor_encode_hash_cb, &fdata);
3487 eet_data_dump_cipher(Eet_File *ef,
3488 const char *name, const char *cipher_key,
3489 void (*dumpfunc) (void *data, const char *str),
3492 const Eet_Dictionary *ed = NULL;
3493 const void *data = NULL;
3495 Eet_Free_Context context;
3496 int required_free = 0;
3499 ed = eet_dictionary_get(ef);
3502 data = eet_read_direct(ef, name, &size);
3506 data = eet_read_cipher(ef, name, &size, cipher_key);
3507 if (!data) return 0;
3510 memset(&context, 0, sizeof (context));
3511 result = _eet_data_descriptor_decode(&context, ed, NULL, data, size);
3513 eet_node_dump(result, 0, dumpfunc, dumpdata);
3515 eet_node_del(result);
3520 return result ? 1 : 0;
3524 eet_data_dump(Eet_File *ef,
3526 void (*dumpfunc) (void *data, const char *str),
3529 return eet_data_dump_cipher(ef, name, NULL, dumpfunc, dumpdata);
3534 eet_data_text_dump_cipher(const void *data_in,
3535 const char *cipher_key, int size_in,
3536 void (*dumpfunc) (void *data, const char *str),
3541 Eet_Free_Context context;
3542 unsigned int ret_len = 0;
3544 if (!data_in) return 0;
3548 if (eet_decipher(data_in, size_in, cipher_key,
3549 strlen(cipher_key), &ret, &ret_len))
3557 ret = (void*) data_in;
3561 memset(&context, 0, sizeof (context));
3562 result = _eet_data_descriptor_decode(&context, NULL, NULL, ret, ret_len);
3564 eet_node_dump(result, 0, dumpfunc, dumpdata);
3566 eet_node_del(result);
3567 if (cipher_key) free(ret);
3569 return result ? 1 : 0;
3573 eet_data_text_dump(const void *data_in,
3575 void (*dumpfunc) (void *data, const char *str),
3578 return eet_data_text_dump_cipher(data_in, NULL, size_in, dumpfunc, dumpdata);
3582 eet_data_text_undump_cipher(const char *text,
3583 const char *cipher_key,
3589 ret = _eet_data_dump_parse(NULL, size_ret, text, textlen);
3590 if (ret && cipher_key)
3592 void *ciphered = NULL;
3593 unsigned int ciphered_len;
3595 if (eet_cipher(ret, *size_ret, cipher_key,
3596 strlen(cipher_key), &ciphered, &ciphered_len))
3598 if (ciphered) free(ciphered);
3604 *size_ret = ciphered_len;
3611 eet_data_text_undump(const char *text,
3615 return eet_data_text_undump_cipher(text, NULL, textlen, size_ret);
3619 eet_data_undump_cipher(Eet_File *ef,
3621 const char *cipher_key,
3631 ed = eet_dictionary_get(ef);
3633 data_enc = _eet_data_dump_parse(ed, &size, text, textlen);
3634 if (!data_enc) return 0;
3635 val = eet_write_cipher(ef, name, data_enc, size, compress, cipher_key);
3641 eet_data_undump(Eet_File *ef,
3647 return eet_data_undump_cipher(ef, name, NULL, text, textlen, compress);
3651 eet_data_descriptor_decode_cipher(Eet_Data_Descriptor *edd,
3652 const void *data_in,
3653 const char *cipher_key,
3656 void *deciphered = (void*) data_in;
3658 Eet_Free_Context context;
3659 unsigned int deciphered_len = size_in;
3661 if (cipher_key && data_in)
3663 if (eet_decipher(data_in, size_in, cipher_key,
3664 strlen(cipher_key), &deciphered, &deciphered_len))
3666 if (deciphered) free(deciphered);
3671 memset(&context, 0, sizeof (context));
3672 ret = _eet_data_descriptor_decode(&context, NULL, edd, deciphered, deciphered_len);
3674 if (data_in != deciphered) free(deciphered);
3680 eet_data_descriptor_decode(Eet_Data_Descriptor *edd,
3681 const void *data_in,
3684 return eet_data_descriptor_decode_cipher(edd, data_in, NULL, size_in);
3688 eet_data_node_decode_cipher(const void *data_in, const char *cipher_key, int size_in)
3690 void *deciphered = (void*) data_in;
3692 Eet_Free_Context context;
3693 unsigned int deciphered_len = size_in;
3695 if (cipher_key && data_in)
3697 if (eet_decipher(data_in, size_in, cipher_key,
3698 strlen(cipher_key), &deciphered, &deciphered_len))
3700 if (deciphered) free(deciphered);
3705 memset(&context, 0, sizeof (context));
3706 ret = _eet_data_descriptor_decode(&context, NULL, NULL, deciphered, deciphered_len);
3708 if (data_in != deciphered) free(deciphered);
3714 _eet_data_descriptor_encode(Eet_Dictionary *ed,
3715 Eet_Data_Descriptor *edd,
3716 const void *data_in,
3719 Eet_Data_Stream *ds;
3720 Eet_Data_Chunk *chnk;
3725 if (_eet_data_words_bigendian == -1)
3727 unsigned long int v;
3729 v = htonl(0x12345678);
3730 if (v == 0x12345678) _eet_data_words_bigendian = 1;
3731 else _eet_data_words_bigendian = 0;
3734 ds = eet_data_stream_new();
3735 for (i = 0; i < edd->elements.num; i++)
3737 Eet_Data_Element *ede;
3739 ede = &(edd->elements.set[i]);
3740 eet_group_codec[ede->group_type - 100].put(ed, edd, ede, ds, ((char *)data_in) + ede->offset);
3742 chnk = eet_data_chunk_new(ds->data, ds->pos, edd->name, EET_T_UNKNOW, EET_G_UNKNOWN);
3745 eet_data_stream_free(ds);
3747 ds = eet_data_stream_new();
3748 eet_data_chunk_put(ed, chnk, ds);
3754 eet_data_stream_free(ds);
3758 eet_data_chunk_free(chnk);
3764 eet_data_node_write_cipher(Eet_File *ef, const char *name, const char *cipher_key, Eet_Node *node, int compress)
3771 ed = eet_dictionary_get(ef);
3773 data_enc = _eet_data_dump_encode(EET_G_UNKNOWN, ed, node, &size);
3774 if (!data_enc) return 0;
3775 val = eet_write_cipher(ef, name, data_enc, size, compress, cipher_key);
3781 eet_data_node_encode_cipher(Eet_Node *node,
3782 const char *cipher_key,
3786 void *ciphered = NULL;
3787 unsigned int ciphered_len = 0;
3790 ret = _eet_data_dump_encode(EET_G_UNKNOWN, NULL, node, &size);
3791 if (cipher_key && ret)
3793 if (eet_cipher(ret, size, cipher_key,
3794 strlen(cipher_key), &ciphered, &ciphered_len))
3796 if (ciphered) free(ciphered);
3797 if (size_ret) *size_ret = 0;
3802 size = (int) ciphered_len;
3806 if (size_ret) *size_ret = size;
3811 eet_data_descriptor_encode_cipher(Eet_Data_Descriptor *edd,
3812 const void *data_in,
3813 const char *cipher_key,
3817 void *ciphered = NULL;
3818 unsigned int ciphered_len = 0;
3821 ret = _eet_data_descriptor_encode(NULL, edd, data_in, &size);
3822 if (cipher_key && ret)
3824 if (eet_cipher(ret, size, cipher_key,
3825 strlen(cipher_key), &ciphered, &ciphered_len))
3827 if (ciphered) free(ciphered);
3828 if (size_ret) *size_ret = 0;
3833 size = ciphered_len;
3837 if (size_ret) *size_ret = size;
3842 eet_data_descriptor_encode(Eet_Data_Descriptor *edd,
3843 const void *data_in,
3846 return eet_data_descriptor_encode_cipher(edd, data_in, NULL, size_ret);