enlightenment/efl
enlightenment
/
efl
8
7
Fork 14
Code Issues 13 Pull Requests 3 Projects Releases Wiki Activity

spread edje_cc code out a little... it's goign to get big now. put parse 

result handlers in one place.


SVN revision: 7011
This commit is contained in:
Carsten Haitzler 2003-06-11 13:20:48 +00:00
parent 438b3ec082
commit 61586a277f
7 changed files with 633 additions and 578 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
legacy/edje/src/bin/Makefile.am
View File

@ -26,7 +26,11 @@ edje_LDFLAGS =
edje_DEPENDENCIES = $(top_builddir)/src/lib/libedje.la
edje_cc_SOURCES = \
edje_cc.c
edje_cc.c \
edje_cc.h \
edje_cc_out.c \
edje_cc_parse.c \
edje_cc_handlers.c
edje_cc_LDADD = \
$(top_builddir)/src/lib/libedje.la \

5
legacy/edje/src/bin/edje.h
View File

@ -1,3 +1,6 @@
#ifndef EDJE_H
#define EDJE_H
#include <Evas.h>
#include <Ecore.h>
#include <Ecore_Evas.h>
@ -6,3 +9,5 @@
#include "edje_private.h"
/* ... end testing */
#include "Edje.h"
#endif

580
legacy/edje/src/bin/edje_cc.c
View File

@ -1,587 +1,13 @@
#include "edje.h"
/* Imlib2 stuff for loading up input images */
#define X_DISPLAY_MISSING
#include <Imlib2.h>
/* done Imlib2 stuff */
#include "edje_cc.h"
#include <stdio.h>
#include <stdlib.h>
#include <unistd.h>
#include <fcntl.h>
#include <errno.h>
#include <sys/mman.h>
#include <sys/types.h>
#include <sys/stat.h>
static void main_help(void);
Evas_List *img_dirs = NULL;
char *file_in = NULL;
char *file_out = NULL;
char *progname = NULL;
int line = 0;
Evas_List *stack = NULL;
Evas_List *params = NULL;
Edje_File *edje_file = NULL;
Eet_Data_Descriptor *edd_edje_file;
Eet_Data_Descriptor *edd_edje_image_directory;
Eet_Data_Descriptor *edd_edje_image_directory_entry;
void data_setup(void);
void data_write(void);
void new_object(void);
void new_statement(void);
int isdelim(char c);
char *next_token(char *p, char *end, char **new_p, int *delim);
char *stack_id(void);
void stack_chop_top(void);
void parse(char *data, off_t size);
void compile(void);
void main_help(void);
typedef struct _New_Object_Handler New_Object_Handler;
typedef struct _New_Statement_Handler New_Statement_Handler;
struct _New_Object_Handler
{
char *type;
void (*func)(void);
};
struct _New_Statement_Handler
{
char *type;
void (*func)(void);
};
void
ob_images(void)
{
edje_file->image_dir = calloc(1, sizeof(Edje_Image_Directory));
if (!edje_file->image_dir)
{
fprintf(stderr, "%s: Error. memory allocation of %i bytes failed. %s\n",
progname, sizeof(Edje_Image_Directory), strerror(errno));
exit(-1);
}
}
void
ob_images_image(void)
{
Edje_Image_Directory_Entry *img;
img = calloc(1, sizeof(Edje_Image_Directory_Entry));
edje_file->image_dir->entries = evas_list_append(edje_file->image_dir->entries, img);
img->id = evas_list_count(edje_file->image_dir->entries) - 1;
}
void
st_images_image(void)
{
Edje_Image_Directory_Entry *img;
char *str;
img = evas_list_data(evas_list_last(edje_file->image_dir->entries));
str = evas_list_nth(params, 0);
if (str)
{
img->entry = strdup(str);
if (!str)
{
fprintf(stderr, "%s: Error. memory allocation of %i bytes failed. %s\n",
progname, strlen(str) + 1, strerror(errno));
exit(-1);
}
}
else
{
fprintf(stderr, "%s: Error. %s:%i: no filename for image as arg 1\n",
progname, file_in, line);
exit(-1);
}
str = evas_list_nth(params, 1);
if (str)
{
if (!strcasecmp(str, "RAW"))
{
img->source_type = EDJE_IMAGE_SOURCE_TYPE_INLINE_PERFECT;
img->source_param = 0;
}
else if (!strcasecmp(str, "COMP"))
{
img->source_type = EDJE_IMAGE_SOURCE_TYPE_INLINE_PERFECT;
img->source_param = 1;
}
else if (!strcasecmp(str, "LOSSY"))
{
img->source_type = EDJE_IMAGE_SOURCE_TYPE_INLINE_LOSSY;
img->source_param = 0;
}
else if (!strcasecmp(str, "USER"))
{
img->source_type = EDJE_IMAGE_SOURCE_TYPE_EXTERNAL;
img->source_param = 0;
}
else
{
fprintf(stderr, "%s: Error. %s:%i: invalid encoding \"%s\" for image as arg 2\n",
progname, file_in, line, str);
exit(-1);
}
}
else
{
fprintf(stderr, "%s: Error. %s:%i: no encoding type for image as arg 2\n",
progname, file_in, line);
exit(-1);
}
if (img->source_type != EDJE_IMAGE_SOURCE_TYPE_INLINE_LOSSY) return;
str = evas_list_nth(params, 2);
if (str)
{
img->source_param = atoi(str);
}
else
{
fprintf(stderr, "%s: Error. %s:%i: no encoding quality for lossy as arg 3\n",
progname, file_in, line);
exit(-1);
}
}
New_Object_Handler object_handlers[] =
{
{"images", ob_images},
{"images.image", ob_images_image}
};
New_Statement_Handler statement_handlers[] =
{
{"images.image", st_images_image}
};
void
data_setup(void)
{
edd_edje_image_directory_entry = eet_data_descriptor_new("Edje_Image_Directory_Entry",
sizeof(Edje_Image_Directory_Entry),
evas_list_next,
evas_list_append,
evas_list_data,
evas_hash_foreach,
evas_hash_add);
EET_DATA_DESCRIPTOR_ADD_BASIC(edd_edje_image_directory_entry, Edje_Image_Directory_Entry, "entry", entry, EET_T_STRING);
EET_DATA_DESCRIPTOR_ADD_BASIC(edd_edje_image_directory_entry, Edje_Image_Directory_Entry, "source_type", source_type, EET_T_INT);
EET_DATA_DESCRIPTOR_ADD_BASIC(edd_edje_image_directory_entry, Edje_Image_Directory_Entry, "source_param", source_param, EET_T_INT);
EET_DATA_DESCRIPTOR_ADD_BASIC(edd_edje_image_directory_entry, Edje_Image_Directory_Entry, "id", id, EET_T_INT);
edd_edje_image_directory = eet_data_descriptor_new("Edje_Image_Directory",
sizeof(Edje_Image_Directory),
evas_list_next,
evas_list_append,
evas_list_data,
evas_hash_foreach,
evas_hash_add);
EET_DATA_DESCRIPTOR_ADD_LIST(edd_edje_image_directory, Edje_Image_Directory, "entries", entries, edd_edje_image_directory_entry);
edd_edje_file = eet_data_descriptor_new("Edje_File",
sizeof(Edje_File),
evas_list_next,
evas_list_append,
evas_list_data,
evas_hash_foreach,
evas_hash_add);
EET_DATA_DESCRIPTOR_ADD_SUB(edd_edje_file, Edje_File, "image_dir", image_dir, edd_edje_image_directory);
}
void
data_write(void)
{
Eet_File *ef;
Evas_List *l;
ef = eet_open(file_out, EET_FILE_MODE_WRITE);
if (!ef)
{
fprintf(stderr, "%s: Error. unable to open %s for writing output\n",
progname, file_out);
exit(-1);
}
eet_data_write(ef, edd_edje_file, "data", edje_file, 1);
for (l = edje_file->image_dir->entries; l; l = l->next)
{
Edje_Image_Directory_Entry *img;
img = l->data;
if (img->source_type != EDJE_IMAGE_SOURCE_TYPE_EXTERNAL)
{
Imlib_Image im;
Evas_List *l;
im = NULL;
for (l = img_dirs; l; l = l->next)
{
char buf[4096];
snprintf(buf, sizeof(buf), "%s/%s", l->data, img->entry);
im = imlib_load_image(buf);
if (im) break;
}
if (!im) im = imlib_load_image(img->entry);
if (im)
{
DATA32 *im_data;
int im_w, im_h;
int im_alpha;
char buf[256];
imlib_context_set_image(im);
im_w = imlib_image_get_width();
im_h = imlib_image_get_height();
im_alpha = imlib_image_has_alpha();
im_data = imlib_image_get_data_for_reading_only();
snprintf(buf, sizeof(buf), "/images/%i", img->id);
if (img->source_type == EDJE_IMAGE_SOURCE_TYPE_INLINE_PERFECT)
eet_data_image_write(ef, buf,
im_data, im_w, im_h, im_alpha,
img->source_param, 0, 0);
else
eet_data_image_write(ef, buf,
im_data, im_w, im_h, im_alpha,
0, img->source_param, 1);
imlib_image_put_back_data(im_data);
imlib_free_image();
}
else
{
fprintf(stderr, "%s: Warning. unable to open image %s for inclusion in output\n",
progname, img->entry);
}
}
}
eet_close(ef);
}
void
new_object(void)
{
char *id;
int i;
id = stack_id();
// printf("+++: %s\n", id);
for (i = 0; i < (sizeof(object_handlers) / sizeof (New_Object_Handler)); i++)
{
if (!strcmp(object_handlers[i].type, id))
{
if (object_handlers[i].func) object_handlers[i].func();
}
}
free(id);
}
void
new_statement(void)
{
char *id;
int i;
id = stack_id();
// {
// Evas_List *l;
// printf("===: %s", id);
// for (l = params; l; l = l->next) printf(" [%s]", l->data);
// printf("\n");
// }
for (i = 0; i < (sizeof(statement_handlers) / sizeof (New_Object_Handler)); i++)
{
if (!strcmp(statement_handlers[i].type, id))
{
if (statement_handlers[i].func) statement_handlers[i].func();
}
}
free(id);
}
int
isdelim(char c)
{
const char *delims = "{},;";
char *d;
d = (char *)delims;
while (*d)
{
if (c == *d) return 1;
d++;
}
return 0;
}
char *
next_token(char *p, char *end, char **new_p, int *delim)
{
char *tok_start = NULL, *tok_end = NULL, *tok = NULL, *sa_start = NULL;
int in_tok = 0;
int in_quote = 0;
int in_comment_ss = 0;
int in_comment_sa = 0;
int had_quote = 0;
*delim = 0;
if (p >= end) return NULL;
while (p < end)
{
if (*p == '\n')
{
in_comment_ss = 0;
line++;
}
if ((!in_comment_ss) && (!in_comment_sa))
{
if ((!in_quote) && (*p == '/') && (p < (end - 1)) && (*(p + 1) == '/'))
in_comment_ss = 1;
if ((!in_quote) && (*p == '/') && (p < (end - 1)) && (*(p + 1) == '*'))
{
in_comment_sa = 1;
sa_start = p;
}
}
if ((!in_comment_ss) && (!in_comment_sa))
{
if (!in_tok)
{
if (!in_quote)
{
if (!isspace(*p))
{
if (*p == '"')
{
in_quote = 1;
had_quote = 1;
}
in_tok = 1;
tok_start = p;
if (isdelim(*p)) *delim = 1;
}
}
}
else
{
if (in_quote)
{
if (((*p) == '"') && (*(p - 1) != '\\'))
{
in_quote = 0;
had_quote = 1;
}
}
else
{
if (*p == '"')
{
in_quote = 1;
had_quote = 1;
}
if (
(isspace(*p)) ||
((*delim) && (!isdelim(*p))) ||
(isdelim(*p))
)
{
in_tok = 0;
tok_end = p - 1;
goto done;
}
}
}
}
if (in_comment_sa)
{
if ((*p == '/') && (*(p - 1) == '*') && ((p - sa_start) > 2))
in_comment_sa = 0;
}
p++;
}
if (!in_tok) return NULL;
tok_end = p - 1;
done:
*new_p = p;
tok = malloc(tok_end - tok_start + 2);
if (!tok)
{
fprintf(stderr, "%s: Error. memory allocation of %i bytes failed. %s\n",
progname, tok_end - tok_start + 2, strerror(errno));
exit(-1);
}
strncpy(tok, tok_start, tok_end - tok_start + 1);
tok[tok_end - tok_start + 1] = 0;
if (had_quote)
{
p = tok;
while (*p)
{
if (*p == '"')
strcpy(p, p + 1);
else if ((*p == '\\') && (*(p + 1) == '"'))
strcpy(p, p + 1);
else if ((*p == '\\') && (*(p + 1) == '\\'))
strcpy(p, p + 1);
p++;
}
}
return tok;
}
char *
stack_id(void)
{
char *id;
int len;
Evas_List *l;
len = 0;
for (l = stack; l; l = l->next)
len += strlen(l->data) + 1;
id = malloc(len);
if (!id)
{
fprintf(stderr, "%s: Error. memory allocation of %i bytes failed. %s\n",
progname, len, strerror(errno));
exit(-1);
}
id[0] = 0;
for (l = stack; l; l = l->next)
{
strcat(id, l->data);
if (l->next) strcat(id, ".");
}
return id;
}
void
stack_chop_top(void)
{
char *top;
/* remove top from stack */
top = evas_list_data(evas_list_last(stack));
if (top)
{
free(top);
stack = evas_list_remove(stack, top);
}
else
{
fprintf(stderr, "%s: Error. parse error %s:%i. } marker without matching { marker\n",
progname, file_in, line);
exit(-1);
}
}
void
parse(char *data, off_t size)
{
char *p, *end, *token;
int delim = 0;
int do_params = 0;
p = data;
end = data + size;
line = 1;
while ((token = next_token(p, end, &p, &delim)) != NULL)
{
if (delim)
{
if (!strcmp(token, ",")) do_params = 1;
else if (!strcmp(token, "}"))
{
if (do_params)
{
fprintf(stderr, "%s: Error. parse error %s:%i. } marker before ; marker\n",
progname, file_in, line);
exit(-1);
}
else
stack_chop_top();
}
else if (!strcmp(token, ";"))
{
if (do_params)
{
do_params = 0;
new_statement();
/* clear out params */
while (params)
{
free(params->data);
params = evas_list_remove(params, params->data);
}
/* remove top from stack */
stack_chop_top();
}
}
else if (!strcmp(token, "{"))
{
if (do_params)
{
fprintf(stderr, "%s: Error. parse error %s:%i. { marker before ; marker\n",
progname, file_in, line);
exit(-1);
}
}
free(token);
}
else
{
if (do_params)
params = evas_list_append(params, token);
else
{
stack = evas_list_append(stack, token);
new_object();
}
}
}
}
void
compile(void)
{
int fd;
off_t size;
char *data;
fd = open(file_in, O_RDONLY);
if (fd < 0)
{
fprintf(stderr, "%s: Error. cannot open file %s for input. %s\n",
progname, file_in, strerror(errno));
exit(-1);
}
size = lseek(fd, 0, SEEK_END);
lseek(fd, 0, SEEK_SET);
data = mmap(NULL, size, PROT_READ, MAP_PRIVATE, fd, 0);
if (data)
{
parse(data, size);
munmap(data, size);
}
else
{
fprintf(stderr, "%s: Error. cannot mmap file %s for input. %s\n",
progname, file_in, strerror(errno));
exit(-1);
}
close(fd);
}
void
static void
main_help(void)
{
printf

51
legacy/edje/src/bin/edje_cc.h Normal file
View File

@ -0,0 +1,51 @@
#ifndef EDJE_CC_H
#define EDJE_CC_H
#include "edje.h"
/* Imlib2 stuff for loading up input images */
#define X_DISPLAY_MISSING
#include <Imlib2.h>
/* done Imlib2 stuff */
#include <stdio.h>
#include <stdlib.h>
#include <unistd.h>
#include <fcntl.h>
#include <errno.h>
#include <sys/mman.h>
#include <sys/types.h>
#include <sys/stat.h>
typedef struct _New_Object_Handler New_Object_Handler;
typedef struct _New_Statement_Handler New_Statement_Handler;
struct _New_Object_Handler
{
char *type;
void (*func)(void);
};
struct _New_Statement_Handler
{
char *type;
void (*func)(void);
};
void data_setup(void);
void data_write(void);
void compile(void);
int object_handler_num(void);
int statement_handler_num(void);
extern Evas_List *img_dirs;
extern char *file_in;
extern char *file_out;
extern char *progname;
extern int line;
extern Evas_List *stack;
extern Evas_List *params;
extern Edje_File *edje_file;
extern New_Object_Handler object_handlers[];
extern New_Statement_Handler statement_handlers[];
#endif

130
legacy/edje/src/bin/edje_cc_handlers.c Normal file
View File

@ -0,0 +1,130 @@
#include "edje_cc.h"
static void ob_images(void);
static void ob_images_image(void);
static void st_images_image(void);
/*****/
New_Object_Handler object_handlers[] =
{
{"images", ob_images},
{"images.image", ob_images_image}
};
New_Statement_Handler statement_handlers[] =
{
{"images.image", st_images_image}
};
/*****/
int
object_handler_num(void)
{
return sizeof(object_handlers) / sizeof (New_Object_Handler);
}
int
statement_handler_num(void)
{
return sizeof(statement_handlers) / sizeof (New_Object_Handler);
}
/*****/
static void
ob_images(void)
{
edje_file->image_dir = calloc(1, sizeof(Edje_Image_Directory));
if (!edje_file->image_dir)
{
fprintf(stderr, "%s: Error. memory allocation of %i bytes failed. %s\n",
progname, sizeof(Edje_Image_Directory), strerror(errno));
exit(-1);
}
}
static void
ob_images_image(void)
{
Edje_Image_Directory_Entry *img;
img = calloc(1, sizeof(Edje_Image_Directory_Entry));
edje_file->image_dir->entries = evas_list_append(edje_file->image_dir->entries, img);
img->id = evas_list_count(edje_file->image_dir->entries) - 1;
}
static void
st_images_image(void)
{
Edje_Image_Directory_Entry *img;
char *str;
img = evas_list_data(evas_list_last(edje_file->image_dir->entries));
str = evas_list_nth(params, 0);
if (str)
{
img->entry = strdup(str);
if (!str)
{
fprintf(stderr, "%s: Error. memory allocation of %i bytes failed. %s\n",
progname, strlen(str) + 1, strerror(errno));
exit(-1);
}
}
else
{
fprintf(stderr, "%s: Error. %s:%i: no filename for image as arg 1\n",
progname, file_in, line);
exit(-1);
}
str = evas_list_nth(params, 1);
if (str)
{
if (!strcasecmp(str, "RAW"))
{
img->source_type = EDJE_IMAGE_SOURCE_TYPE_INLINE_PERFECT;
img->source_param = 0;
}
else if (!strcasecmp(str, "COMP"))
{
img->source_type = EDJE_IMAGE_SOURCE_TYPE_INLINE_PERFECT;
img->source_param = 1;
}
else if (!strcasecmp(str, "LOSSY"))
{
img->source_type = EDJE_IMAGE_SOURCE_TYPE_INLINE_LOSSY;
img->source_param = 0;
}
else if (!strcasecmp(str, "USER"))
{
img->source_type = EDJE_IMAGE_SOURCE_TYPE_EXTERNAL;
img->source_param = 0;
}
else
{
fprintf(stderr, "%s: Error. %s:%i: invalid encoding \"%s\" for image as arg 2\n",
progname, file_in, line, str);
exit(-1);
}
}
else
{
fprintf(stderr, "%s: Error. %s:%i: no encoding type for image as arg 2\n",
progname, file_in, line);
exit(-1);
}
if (img->source_type != EDJE_IMAGE_SOURCE_TYPE_INLINE_LOSSY) return;
str = evas_list_nth(params, 2);
if (str)
{
img->source_param = atoi(str);
}
else
{
fprintf(stderr, "%s: Error. %s:%i: no encoding quality for lossy as arg 3\n",
progname, file_in, line);
exit(-1);
}
}

107
legacy/edje/src/bin/edje_cc_out.c Normal file
View File

@ -0,0 +1,107 @@
#include "edje_cc.h"
Edje_File *edje_file = NULL;
static Eet_Data_Descriptor *edd_edje_file;
static Eet_Data_Descriptor *edd_edje_image_directory;
static Eet_Data_Descriptor *edd_edje_image_directory_entry;
void
data_setup(void)
{
edd_edje_image_directory_entry = eet_data_descriptor_new("Edje_Image_Directory_Entry",
sizeof(Edje_Image_Directory_Entry),
evas_list_next,
evas_list_append,
evas_list_data,
evas_hash_foreach,
evas_hash_add);
EET_DATA_DESCRIPTOR_ADD_BASIC(edd_edje_image_directory_entry, Edje_Image_Directory_Entry, "entry", entry, EET_T_STRING);
EET_DATA_DESCRIPTOR_ADD_BASIC(edd_edje_image_directory_entry, Edje_Image_Directory_Entry, "source_type", source_type, EET_T_INT);
EET_DATA_DESCRIPTOR_ADD_BASIC(edd_edje_image_directory_entry, Edje_Image_Directory_Entry, "source_param", source_param, EET_T_INT);
EET_DATA_DESCRIPTOR_ADD_BASIC(edd_edje_image_directory_entry, Edje_Image_Directory_Entry, "id", id, EET_T_INT);
edd_edje_image_directory = eet_data_descriptor_new("Edje_Image_Directory",
sizeof(Edje_Image_Directory),
evas_list_next,
evas_list_append,
evas_list_data,
evas_hash_foreach,
evas_hash_add);
EET_DATA_DESCRIPTOR_ADD_LIST(edd_edje_image_directory, Edje_Image_Directory, "entries", entries, edd_edje_image_directory_entry);
edd_edje_file = eet_data_descriptor_new("Edje_File",
sizeof(Edje_File),
evas_list_next,
evas_list_append,
evas_list_data,
evas_hash_foreach,
evas_hash_add);
EET_DATA_DESCRIPTOR_ADD_SUB(edd_edje_file, Edje_File, "image_dir", image_dir, edd_edje_image_directory);
}
void
data_write(void)
{
Eet_File *ef;
Evas_List *l;
ef = eet_open(file_out, EET_FILE_MODE_WRITE);
if (!ef)
{
fprintf(stderr, "%s: Error. unable to open %s for writing output\n",
progname, file_out);
exit(-1);
}
eet_data_write(ef, edd_edje_file, "data", edje_file, 1);
for (l = edje_file->image_dir->entries; l; l = l->next)
{
Edje_Image_Directory_Entry *img;
img = l->data;
if (img->source_type != EDJE_IMAGE_SOURCE_TYPE_EXTERNAL)
{
Imlib_Image im;
Evas_List *l;
im = NULL;
for (l = img_dirs; l; l = l->next)
{
char buf[4096];
snprintf(buf, sizeof(buf), "%s/%s", l->data, img->entry);
im = imlib_load_image(buf);
if (im) break;
}
if (!im) im = imlib_load_image(img->entry);
if (im)
{
DATA32 *im_data;
int im_w, im_h;
int im_alpha;
char buf[256];
imlib_context_set_image(im);
im_w = imlib_image_get_width();
im_h = imlib_image_get_height();
im_alpha = imlib_image_has_alpha();
im_data = imlib_image_get_data_for_reading_only();
snprintf(buf, sizeof(buf), "/images/%i", img->id);
if (img->source_type == EDJE_IMAGE_SOURCE_TYPE_INLINE_PERFECT)
eet_data_image_write(ef, buf,
im_data, im_w, im_h, im_alpha,
img->source_param, 0, 0);
else
eet_data_image_write(ef, buf,
im_data, im_w, im_h, im_alpha,
0, img->source_param, 1);
imlib_image_put_back_data(im_data);
imlib_free_image();
}
else
{
fprintf(stderr, "%s: Warning. unable to open image %s for inclusion in output\n",
progname, img->entry);
}
}
}
eet_close(ef);
}

332
legacy/edje/src/bin/edje_cc_parse.c Normal file
View File

@ -0,0 +1,332 @@
#include "edje_cc.h"
static void new_object(void);
static void new_statement(void);
static int isdelim(char c);
static char *next_token(char *p, char *end, char **new_p, int *delim);
static char *stack_id(void);
static void stack_chop_top(void);
static void parse(char *data, off_t size);
int line = 0;
Evas_List *stack = NULL;
Evas_List *params = NULL;
static void
new_object(void)
{
char *id;
int i;
id = stack_id();
// printf("+++: %s\n", id);
for (i = 0; i < object_handler_num(); i++)
{
if (!strcmp(object_handlers[i].type, id))
{
if (object_handlers[i].func) object_handlers[i].func();
}
}
free(id);
}
static void
new_statement(void)
{
char *id;
int i;
id = stack_id();
// {
// Evas_List *l;
// printf("===: %s", id);
// for (l = params; l; l = l->next) printf(" [%s]", l->data);
// printf("\n");
// }
for (i = 0; i < statement_handler_num(); i++)
{
if (!strcmp(statement_handlers[i].type, id))
{
if (statement_handlers[i].func) statement_handlers[i].func();
}
}
free(id);
}
static int
isdelim(char c)
{
const char *delims = "{},;";
char *d;
d = (char *)delims;
while (*d)
{
if (c == *d) return 1;
d++;
}
return 0;
}
static char *
next_token(char *p, char *end, char **new_p, int *delim)
{
char *tok_start = NULL, *tok_end = NULL, *tok = NULL, *sa_start = NULL;
int in_tok = 0;
int in_quote = 0;
int in_comment_ss = 0;
int in_comment_sa = 0;
int had_quote = 0;
*delim = 0;
if (p >= end) return NULL;
while (p < end)
{
if (*p == '\n')
{
in_comment_ss = 0;
line++;
}
if ((!in_comment_ss) && (!in_comment_sa))
{
if ((!in_quote) && (*p == '/') && (p < (end - 1)) && (*(p + 1) == '/'))
in_comment_ss = 1;
if ((!in_quote) && (*p == '/') && (p < (end - 1)) && (*(p + 1) == '*'))
{
in_comment_sa = 1;
sa_start = p;
}
}
if ((!in_comment_ss) && (!in_comment_sa))
{
if (!in_tok)
{
if (!in_quote)
{
if (!isspace(*p))
{
if (*p == '"')
{
in_quote = 1;
had_quote = 1;
}
in_tok = 1;
tok_start = p;
if (isdelim(*p)) *delim = 1;
}
}
}
else
{
if (in_quote)
{
if (((*p) == '"') && (*(p - 1) != '\\'))
{
in_quote = 0;
had_quote = 1;
}
}
else
{
if (*p == '"')
{
in_quote = 1;
had_quote = 1;
}
if (
(isspace(*p)) ||
((*delim) && (!isdelim(*p))) ||
(isdelim(*p))
)
{
in_tok = 0;
tok_end = p - 1;
goto done;
}
}
}
}
if (in_comment_sa)
{
if ((*p == '/') && (*(p - 1) == '*') && ((p - sa_start) > 2))
in_comment_sa = 0;
}
p++;
}
if (!in_tok) return NULL;
tok_end = p - 1;
done:
*new_p = p;
tok = malloc(tok_end - tok_start + 2);
if (!tok)
{
fprintf(stderr, "%s: Error. memory allocation of %i bytes failed. %s\n",
progname, tok_end - tok_start + 2, strerror(errno));
exit(-1);
}
strncpy(tok, tok_start, tok_end - tok_start + 1);
tok[tok_end - tok_start + 1] = 0;
if (had_quote)
{
p = tok;
while (*p)
{
if (*p == '"')
strcpy(p, p + 1);
else if ((*p == '\\') && (*(p + 1) == '"'))
strcpy(p, p + 1);
else if ((*p == '\\') && (*(p + 1) == '\\'))
strcpy(p, p + 1);
p++;
}
}
return tok;
}
static char *
stack_id(void)
{
char *id;
int len;
Evas_List *l;
len = 0;
for (l = stack; l; l = l->next)
len += strlen(l->data) + 1;
id = malloc(len);
if (!id)
{
fprintf(stderr, "%s: Error. memory allocation of %i bytes failed. %s\n",
progname, len, strerror(errno));
exit(-1);
}
id[0] = 0;
for (l = stack; l; l = l->next)
{
strcat(id, l->data);
if (l->next) strcat(id, ".");
}
return id;
}
static void
stack_chop_top(void)
{
char *top;
/* remove top from stack */
top = evas_list_data(evas_list_last(stack));
if (top)
{
free(top);
stack = evas_list_remove(stack, top);
}
else
{
fprintf(stderr, "%s: Error. parse error %s:%i. } marker without matching { marker\n",
progname, file_in, line);
exit(-1);
}
}
static void
parse(char *data, off_t size)
{
char *p, *end, *token;
int delim = 0;
int do_params = 0;
p = data;
end = data + size;
line = 1;
while ((token = next_token(p, end, &p, &delim)) != NULL)
{
if (delim)
{
if (!strcmp(token, ",")) do_params = 1;
else if (!strcmp(token, "}"))
{
if (do_params)
{
fprintf(stderr, "%s: Error. parse error %s:%i. } marker before ; marker\n",
progname, file_in, line);
exit(-1);
}
else
stack_chop_top();
}
else if (!strcmp(token, ";"))
{
if (do_params)
{
do_params = 0;
new_statement();
/* clear out params */
while (params)
{
free(params->data);
params = evas_list_remove(params, params->data);
}
/* remove top from stack */
stack_chop_top();
}
}
else if (!strcmp(token, "{"))
{
if (do_params)
{
fprintf(stderr, "%s: Error. parse error %s:%i. { marker before ; marker\n",
progname, file_in, line);
exit(-1);
}
}
free(token);
}
else
{
if (do_params)
params = evas_list_append(params, token);
else
{
stack = evas_list_append(stack, token);
new_object();
}
}
}
}
void
compile(void)
{
int fd;
off_t size;
char *data;
fd = open(file_in, O_RDONLY);
if (fd < 0)
{
fprintf(stderr, "%s: Error. cannot open file %s for input. %s\n",
progname, file_in, strerror(errno));
exit(-1);
}
size = lseek(fd, 0, SEEK_END);
lseek(fd, 0, SEEK_SET);
data = mmap(NULL, size, PROT_READ, MAP_PRIVATE, fd, 0);
if (data)
{
parse(data, size);
munmap(data, size);
}
else
{
fprintf(stderr, "%s: Error. cannot mmap file %s for input. %s\n",
progname, file_in, strerror(errno));
exit(-1);
}
close(fd);
}