661 lines
13 KiB
C
661 lines
13 KiB
C
/*
|
|
* vim:ts=8:sw=3:sts=8:noexpandtab:cino=>5n-3f0^-2{2
|
|
*/
|
|
|
|
#ifdef HAVE_CONFIG_H
|
|
# include <config.h>
|
|
#endif
|
|
|
|
#ifdef HAVE_ALLOCA_H
|
|
# include <alloca.h>
|
|
#elif defined __GNUC__
|
|
# define alloca __builtin_alloca
|
|
#elif defined _AIX
|
|
# define alloca __alloca
|
|
#elif defined _MSC_VER
|
|
# include <malloc.h>
|
|
# define alloca _alloca
|
|
#else
|
|
# include <stddef.h>
|
|
# ifdef __cplusplus
|
|
extern "C"
|
|
# endif
|
|
void *alloca(size_t);
|
|
#endif
|
|
|
|
#include "edje_private.h"
|
|
|
|
/*
|
|
* ALREADY EXPORTED BY EMBRYO:
|
|
*
|
|
* enum Float_Round_Method {
|
|
* ROUND, FLOOR, CEIL, TOZERO
|
|
* };
|
|
* enum Float_Angle_Mode {
|
|
* RADIAN, DEGREES, GRADES
|
|
* };
|
|
*
|
|
* numargs();
|
|
* getarg(arg, index=0);
|
|
* setarg(arg, index=0, value);
|
|
*
|
|
* Float:atof(string[]);
|
|
* Float:fract(Float:value);
|
|
* round(Float:value, Float_Round_Method:method=ROUND);
|
|
* Float:sqrt(Float:value);
|
|
* Float:pow(Float:value, Float:exponent);
|
|
* Float:log(Float:value, Float:base=10.0);
|
|
* Float:sin(Float:value, Float_Angle_Mode:mode=RADIAN);
|
|
* Float:cos(Float:value, Float_Angle_Mode:mode=RADIAN);
|
|
* Float:tan(Float:value, Float_Angle_Mode:mode=RADIAN);
|
|
* Float:abs(Float:value);
|
|
* atoi(str[]);
|
|
* fnmatch(glob[], str[]);
|
|
* strcmp(str1[], str2[]);
|
|
* strncmp(str1[], str2[]);
|
|
* strcpy(dst[], src[]);
|
|
* strncpy(dst[], src[], n);
|
|
* strlen(str[]);
|
|
* strcat(dst[], src[]);
|
|
* strncat(dst[], src[], n);
|
|
* strprep(dst[], src[]);
|
|
* strnprep(dst[], src[], n);
|
|
* strcut(dst[], str[], n, n2);
|
|
* snprintf(dst[], dstn, fmt[], ...);
|
|
* strstr(str[], ndl[]);
|
|
* strchr(str[], ch[]);
|
|
* strrchr(str[], ch[]);
|
|
* rand();
|
|
* Float:randf();
|
|
* Float:seconds();
|
|
* date(&year, &month, &day, &yearday, &weekday, &hr, &min, &Float:sec);
|
|
*
|
|
*/
|
|
|
|
typedef struct _Sinfo Sinfo;
|
|
|
|
struct _Sinfo
|
|
{
|
|
struct
|
|
{
|
|
Embryo_Function
|
|
obj_init, obj_shutdown, obj_show, obj_show_immediate,
|
|
obj_hide, obj_hide_immediate, obj_move, obj_move_immediate,
|
|
obj_resize, obj_resize_immediate, obj_message;
|
|
} fn;
|
|
struct
|
|
{
|
|
Ecore_Job * show, *hide, *move, *resize;
|
|
} job;
|
|
struct
|
|
{
|
|
int id;
|
|
Eina_Hash *hash; // FIXME: hash -> bad. too big. one-way lookup etc.
|
|
} oid;
|
|
};
|
|
|
|
static void _call_fn(Edje * ed, const char *fname, Embryo_Function fn);
|
|
|
|
/* frankly - these make the code shorter to type and read - just sanity for
|
|
* development */
|
|
#define IFFN(func) if (si->fn.func != EMBRYO_FUNCTION_NONE)
|
|
#define IFNO(func) if (si->fn.func == EMBRYO_FUNCTION_NONE)
|
|
#define CLFN(func) IFFN(func) {_call_fn(ed, #func, si->fn.func);}
|
|
#define SI Sinfo *si; si = ed->script_only_data; if (!si) return
|
|
#define SI_RETURN(ret) Sinfo *si; si = ed->script_only_data; if (!si) return (ret)
|
|
#define PINT(val) embryo_parameter_cell_push(ed->collection->script, (Embryo_Cell)(val))
|
|
#define PSTR(val) embryo_parameter_string_push(ed->collection->script, val)
|
|
#define GTFN(func) si->fn.func = embryo_program_function_find(ed->collection->script, #func)
|
|
#define DELJ(type) if (si->job.type) ecore_job_del(si->job.type);
|
|
#define ADDJ(type, func) si->job.type = ecore_job_add(func, ed);
|
|
#define ZERJ(type) si->job.type = NULL;
|
|
#define IFNJ(type) if (!si->job.type)
|
|
#define EXPF(func) embryo_program_native_call_add(ed->collection->script, #func, _exp_##func)
|
|
|
|
typedef struct _Oid Oid;
|
|
|
|
struct _Oid
|
|
{
|
|
Edje *ed;
|
|
Evas_Object *obj;
|
|
Evas_Coord x, y, w, h;
|
|
int oid;
|
|
};
|
|
|
|
/* FIXME: using eina_hash and strings is just nasty! make a custom int hash */
|
|
static int
|
|
_oid_alloc(Edje * ed)
|
|
{
|
|
SI_RETURN(0);
|
|
|
|
si->oid.id++;
|
|
return si->oid.id;
|
|
}
|
|
|
|
static Oid *
|
|
_oid_track(Edje * ed, Evas_Object * o)
|
|
{
|
|
Oid *oi;
|
|
|
|
char buf[64];
|
|
|
|
SI_RETURN(NULL);
|
|
|
|
oi = calloc(1, sizeof(Oid));
|
|
if (!oi)
|
|
return NULL;
|
|
oi->oid = _oid_alloc(ed);
|
|
if (!oi->oid)
|
|
{
|
|
free(oi);
|
|
return NULL;
|
|
}
|
|
oi->ed = ed;
|
|
oi->obj = o;
|
|
evas_object_smart_member_add(oi->obj, oi->ed->obj);
|
|
evas_object_clip_set(oi->obj, oi->ed->clipper);
|
|
evas_object_geometry_get(oi->obj, &(oi->x), &(oi->y), &(oi->w), &(oi->h));
|
|
snprintf(buf, sizeof(buf), "%i", oi->oid);
|
|
if (!si->oid.hash)
|
|
si->oid.hash = eina_hash_string_superfast_new(NULL);
|
|
eina_hash_add(si->oid.hash, buf, oi);
|
|
return oi;
|
|
}
|
|
|
|
static Oid *
|
|
_oid_find(Edje * ed, int oid)
|
|
{
|
|
char buf[64];
|
|
|
|
SI_RETURN(NULL);
|
|
|
|
snprintf(buf, sizeof(buf), "%i", oid);
|
|
return eina_hash_find(si->oid.hash, buf);
|
|
}
|
|
|
|
static void
|
|
_oid_del(Edje * ed, int oid)
|
|
{
|
|
char buf[64];
|
|
|
|
SI;
|
|
|
|
snprintf(buf, sizeof(buf), "%i", oid);
|
|
eina_hash_del(si->oid.hash, buf, NULL);
|
|
}
|
|
|
|
static void
|
|
_oid_free(Oid * oid)
|
|
{
|
|
free(oid);
|
|
}
|
|
|
|
static Eina_Bool
|
|
_oid_freeall_cb(const Eina_Hash *hash __UNUSED__, const void *key __UNUSED__, void *data, void *fdata __UNUSED__)
|
|
{
|
|
Oid *oid = data;
|
|
|
|
evas_object_del(oid->obj);
|
|
free(oid);
|
|
return 1;
|
|
}
|
|
|
|
static void
|
|
_oid_freeall(Edje * ed)
|
|
{
|
|
SI;
|
|
if (!si->oid.hash)
|
|
return;
|
|
eina_hash_foreach(si->oid.hash, _oid_freeall_cb, ed);
|
|
eina_hash_free(si->oid.hash);
|
|
si->oid.hash = NULL;
|
|
}
|
|
|
|
static Eina_Bool
|
|
_oid_moveall_cb(const Eina_Hash *hash __UNUSED__, const void *key __UNUSED__, void *data, void *fdata __UNUSED__)
|
|
{
|
|
Oid *oid = data;
|
|
|
|
evas_object_move(oid->obj, oid->ed->x + oid->x, oid->ed->y + oid->y);
|
|
return 1;
|
|
}
|
|
|
|
static void
|
|
_oid_moveall(Edje * ed)
|
|
{
|
|
SI;
|
|
if (!si->oid.hash)
|
|
return;
|
|
eina_hash_foreach(si->oid.hash, _oid_moveall_cb, ed);
|
|
}
|
|
|
|
/**********/
|
|
|
|
static Embryo_Cell
|
|
_exp_e_obj_del(Embryo_Program * ep, Embryo_Cell * params)
|
|
{
|
|
Edje *ed = embryo_program_data_get(ep);
|
|
|
|
Oid *oid;
|
|
|
|
SI_RETURN(-1);
|
|
|
|
CHKPARAM(1);
|
|
if (!(oid = _oid_find(ed, params[1])))
|
|
return -1;
|
|
evas_object_del(oid->obj);
|
|
_oid_del(ed, oid->oid);
|
|
_oid_free(oid);
|
|
return 0;
|
|
}
|
|
|
|
static Embryo_Cell
|
|
_exp_e_obj_rect_add(Embryo_Program * ep, Embryo_Cell * params __UNUSED__)
|
|
{
|
|
Edje *ed = embryo_program_data_get(ep);
|
|
|
|
Evas_Object *o;
|
|
|
|
Oid *oid;
|
|
|
|
SI_RETURN(-1);
|
|
|
|
o = evas_object_rectangle_add(evas_object_evas_get(ed->obj));
|
|
if (!o)
|
|
return 0;
|
|
oid = _oid_track(ed, o);
|
|
if (oid)
|
|
return oid->oid;
|
|
return 0;
|
|
}
|
|
|
|
static Embryo_Cell
|
|
_exp_e_obj_show(Embryo_Program * ep, Embryo_Cell * params)
|
|
{
|
|
Edje *ed = embryo_program_data_get(ep);
|
|
|
|
Oid *oid;
|
|
|
|
SI_RETURN(-1);
|
|
|
|
CHKPARAM(1);
|
|
if (!(oid = _oid_find(ed, params[1])))
|
|
return -1;
|
|
evas_object_show(oid->obj);
|
|
return 0;
|
|
}
|
|
|
|
static Embryo_Cell
|
|
_exp_e_obj_hide(Embryo_Program * ep, Embryo_Cell * params)
|
|
{
|
|
Edje *ed = embryo_program_data_get(ep);
|
|
|
|
Oid *oid;
|
|
|
|
SI_RETURN(-1);
|
|
|
|
CHKPARAM(1);
|
|
if (!(oid = _oid_find(ed, params[1])))
|
|
return -1;
|
|
evas_object_hide(oid->obj);
|
|
return 0;
|
|
}
|
|
|
|
static Embryo_Cell
|
|
_exp_e_obj_move(Embryo_Program * ep, Embryo_Cell * params)
|
|
{
|
|
Edje *ed = embryo_program_data_get(ep);
|
|
|
|
Oid *oid;
|
|
|
|
SI_RETURN(-1);
|
|
|
|
CHKPARAM(3);
|
|
if (!(oid = _oid_find(ed, params[1])))
|
|
return -1;
|
|
if ((oid->x == params[2]) && (oid->y == params[3]))
|
|
return -1;
|
|
oid->x = params[2];
|
|
oid->y = params[3];
|
|
evas_object_move(oid->obj, ed->x + oid->x, ed->y + oid->y);
|
|
return 0;
|
|
}
|
|
|
|
static Embryo_Cell
|
|
_exp_e_obj_resize(Embryo_Program * ep, Embryo_Cell * params)
|
|
{
|
|
Edje *ed = embryo_program_data_get(ep);
|
|
|
|
Oid *oid;
|
|
|
|
SI_RETURN(-1);
|
|
|
|
CHKPARAM(3);
|
|
if (!(oid = _oid_find(ed, params[1])))
|
|
return -1;
|
|
if ((oid->w == params[2]) && (oid->h == params[3]))
|
|
return -1;
|
|
oid->w = params[2];
|
|
oid->h = params[3];
|
|
evas_object_resize(oid->obj, oid->w, oid->h);
|
|
return 0;
|
|
}
|
|
|
|
static Embryo_Cell
|
|
_exp_e_obj_geometry_set(Embryo_Program * ep, Embryo_Cell * params)
|
|
{
|
|
Edje *ed = embryo_program_data_get(ep);
|
|
|
|
Oid *oid;
|
|
|
|
SI_RETURN(-1);
|
|
|
|
CHKPARAM(5);
|
|
if (!(oid = _oid_find(ed, params[1])))
|
|
return -1;
|
|
if ((oid->x == params[2]) && (oid->y == params[3]) &&
|
|
(oid->w == params[4]) && (oid->h == params[5]))
|
|
return -1;
|
|
oid->x = params[2];
|
|
oid->y = params[3];
|
|
oid->w = params[4];
|
|
oid->h = params[5];
|
|
evas_object_move(oid->obj, ed->x + oid->x, ed->y + oid->y);
|
|
evas_object_resize(oid->obj, oid->w, oid->h);
|
|
return 0;
|
|
}
|
|
|
|
static Embryo_Cell
|
|
_exp_e_obj_geometry_get(Embryo_Program * ep, Embryo_Cell * params)
|
|
{
|
|
Edje *ed = embryo_program_data_get(ep);
|
|
|
|
Oid *oid;
|
|
|
|
SI_RETURN(-1);
|
|
|
|
CHKPARAM(5);
|
|
if (!(oid = _oid_find(ed, params[1])))
|
|
return -1;
|
|
SETINT(oid->x, params[2]);
|
|
SETINT(oid->y, params[3]);
|
|
SETINT(oid->w, params[4]);
|
|
SETINT(oid->h, params[5]);
|
|
return 0;
|
|
}
|
|
|
|
static Embryo_Cell
|
|
_exp_e_obj_color_set(Embryo_Program * ep, Embryo_Cell * params)
|
|
{
|
|
Edje *ed = embryo_program_data_get(ep);
|
|
|
|
Oid *oid;
|
|
|
|
SI_RETURN(-1);
|
|
|
|
CHKPARAM(5);
|
|
if (!(oid = _oid_find(ed, params[1])))
|
|
return -1;
|
|
evas_object_color_set(oid->obj, params[2], params[3], params[4], params[5]);
|
|
return 0;
|
|
}
|
|
|
|
static Embryo_Cell
|
|
_exp_e_obj_color_get(Embryo_Program * ep, Embryo_Cell * params)
|
|
{
|
|
Edje *ed = embryo_program_data_get(ep);
|
|
|
|
Oid *oid;
|
|
|
|
int r, g, b, a;
|
|
|
|
SI_RETURN(-1);
|
|
|
|
CHKPARAM(5);
|
|
if (!(oid = _oid_find(ed, params[1])))
|
|
return -1;
|
|
evas_object_color_get(oid->obj, &r, &g, &b, &a);
|
|
SETINT(r, params[2]);
|
|
SETINT(g, params[3]);
|
|
SETINT(b, params[4]);
|
|
SETINT(a, params[5]);
|
|
return 0;
|
|
}
|
|
|
|
static Embryo_Cell
|
|
_exp_e_signal_emit(Embryo_Program * ep, Embryo_Cell * params)
|
|
{
|
|
Edje *ed = embryo_program_data_get(ep);
|
|
|
|
char *sig = NULL, *src = NULL;
|
|
|
|
SI_RETURN(-1);
|
|
|
|
CHKPARAM(2);
|
|
GETSTR(sig, params[1]);
|
|
GETSTR(src, params[2]);
|
|
if ((!sig) || (!src))
|
|
return -1;
|
|
_edje_emit(ed, sig, src);
|
|
return 0;
|
|
}
|
|
|
|
/**********/
|
|
|
|
int
|
|
_edje_script_only(Edje * ed)
|
|
{
|
|
if ((ed->collection) && (ed->collection->script) &&
|
|
(ed->collection->script_only))
|
|
return 1;
|
|
return 0;
|
|
}
|
|
|
|
void
|
|
_edje_script_only_init(Edje * ed)
|
|
{
|
|
Sinfo *si;
|
|
|
|
si = calloc(1, sizeof(Sinfo));
|
|
if (!si)
|
|
return;
|
|
ed->script_only_data = si;
|
|
|
|
embryo_program_data_set(ed->collection->script, ed);
|
|
|
|
EXPF(e_obj_del);
|
|
EXPF(e_obj_rect_add);
|
|
EXPF(e_obj_show);
|
|
EXPF(e_obj_hide);
|
|
EXPF(e_obj_move);
|
|
EXPF(e_obj_resize);
|
|
EXPF(e_obj_geometry_set);
|
|
EXPF(e_obj_geometry_get);
|
|
EXPF(e_obj_color_set);
|
|
EXPF(e_obj_color_get);
|
|
EXPF(e_signal_emit);
|
|
|
|
embryo_program_vm_push(ed->collection->script);
|
|
embryo_program_max_cycle_run_set(ed->collection->script, 5000000);
|
|
|
|
GTFN(obj_init);
|
|
GTFN(obj_shutdown);
|
|
GTFN(obj_show);
|
|
GTFN(obj_show_immediate);
|
|
GTFN(obj_hide);
|
|
GTFN(obj_hide_immediate);
|
|
GTFN(obj_move);
|
|
GTFN(obj_move_immediate);
|
|
GTFN(obj_resize);
|
|
GTFN(obj_resize_immediate);
|
|
GTFN(obj_message);
|
|
|
|
CLFN(obj_init);
|
|
_edje_script_only_move(ed);
|
|
}
|
|
|
|
void
|
|
_edje_script_only_shutdown(Edje * ed)
|
|
{
|
|
SI;
|
|
|
|
CLFN(obj_shutdown);
|
|
DELJ(show);
|
|
DELJ(hide);
|
|
DELJ(move);
|
|
DELJ(resize);
|
|
_oid_freeall(ed);
|
|
}
|
|
|
|
static void
|
|
_show_job(void *data)
|
|
{
|
|
Edje *ed = data;
|
|
|
|
SI;
|
|
|
|
ZERJ(show);
|
|
CLFN(obj_show);
|
|
}
|
|
void
|
|
_edje_script_only_show(Edje * ed)
|
|
{
|
|
SI;
|
|
|
|
IFFN(obj_show)
|
|
{
|
|
IFNJ(hide)
|
|
{
|
|
DELJ(show);
|
|
ADDJ(show, _show_job);
|
|
}
|
|
else
|
|
{
|
|
DELJ(hide);
|
|
}
|
|
}
|
|
IFNO(obj_show_immediate) return;
|
|
CLFN(obj_show_immediate);
|
|
}
|
|
|
|
static void
|
|
_hide_job(void *data)
|
|
{
|
|
Edje *ed = data;
|
|
|
|
SI;
|
|
|
|
ZERJ(hide);
|
|
CLFN(obj_hide);
|
|
}
|
|
void
|
|
_edje_script_only_hide(Edje * ed)
|
|
{
|
|
SI;
|
|
|
|
IFFN(obj_hide)
|
|
{
|
|
IFNJ(show)
|
|
{
|
|
DELJ(hide);
|
|
ADDJ(hide, _hide_job);
|
|
}
|
|
else
|
|
{
|
|
DELJ(show);
|
|
}
|
|
}
|
|
IFNO(obj_hide_immediate) return;
|
|
CLFN(obj_hide_immediate);
|
|
}
|
|
|
|
static void
|
|
_move_job(void *data)
|
|
{
|
|
Edje *ed = data;
|
|
|
|
SI;
|
|
|
|
_oid_moveall(ed);
|
|
ZERJ(move);
|
|
IFNO(obj_move) return;
|
|
PINT(ed->x);
|
|
PINT(ed->y);
|
|
CLFN(obj_move);
|
|
}
|
|
void
|
|
_edje_script_only_move(Edje * ed)
|
|
{
|
|
SI;
|
|
|
|
DELJ(move);
|
|
ADDJ(move, _move_job);
|
|
IFNO(obj_move_immediate) return;
|
|
PINT(ed->x);
|
|
PINT(ed->y);
|
|
CLFN(obj_move_immediate);
|
|
}
|
|
|
|
static void
|
|
_resize_job(void *data)
|
|
{
|
|
Edje *ed = data;
|
|
|
|
SI;
|
|
|
|
ZERJ(resize);
|
|
PINT(ed->w);
|
|
PINT(ed->h);
|
|
CLFN(obj_resize);
|
|
}
|
|
void
|
|
_edje_script_only_resize(Edje * ed)
|
|
{
|
|
SI;
|
|
|
|
IFFN(obj_resize)
|
|
{
|
|
DELJ(resize);
|
|
ADDJ(resize, _resize_job);
|
|
}
|
|
PINT(ed->w);
|
|
PINT(ed->h);
|
|
CLFN(obj_resize_immediate);
|
|
}
|
|
|
|
void
|
|
_edje_script_only_message(Edje * ed, Edje_Message * em)
|
|
{
|
|
SI;
|
|
|
|
IFNO(obj_message) return;
|
|
_edje_message_parameters_push(em);
|
|
CLFN(obj_message);
|
|
}
|
|
|
|
/**************************************************/
|
|
|
|
static void
|
|
_call_fn(Edje * ed, const char *fname, Embryo_Function fn)
|
|
{
|
|
int ret;
|
|
|
|
ret = embryo_program_run(ed->collection->script, fn);
|
|
if (ret == EMBRYO_PROGRAM_FAIL)
|
|
{
|
|
ERR("ERROR with embryo script.\n"
|
|
"ENTRY POINT: %s\n"
|
|
"ERROR: %s",
|
|
fname,
|
|
embryo_error_string_get(embryo_program_error_get
|
|
(ed->collection->script)));
|
|
}
|
|
else if (ret == EMBRYO_PROGRAM_TOOLONG)
|
|
{
|
|
ERR("ERROR with embryo script.\n"
|
|
"ENTRY POINT: %s\n"
|
|
"ERROR: Script exceeded maximum allowed cycle count of %i",
|
|
fname, embryo_program_max_cycle_run_get(ed->collection->script));
|
|
}
|
|
}
|