Eolian: adding new tool for extracting info on eolian classes

Eo_Info is a tool aimed to show specific Eolian information about Eo
classes. It enables easily graphical/text representation of chosen Eo
classes.
Eolian is used to get this information.
The output is a .dot file, convertible to other formats with Graphviz.
Write: "eolian_info -h" for more info.

src/Makefile_Emotion.am

@@ -243,6 +243,24 @@ tests_emotion_emotion_test_CPPFLAGS = -I$(top_builddir)/src/lib/efl \
 tests_emotion_emotion_test_LDADD = @USE_EDJE_LIBS@ @USE_EMOTION_LIBS@
 tests_emotion_emotion_test_DEPENDENCIES = @USE_EDJE_INTERNAL_LIBS@ @USE_EMOTION_INTERNAL_LIBS@
 
+bin_PROGRAMS += tests/emotion/emotion_test-eo
+
+tests_emotion_emotion_test_eo_SOURCES = \
+tests/emotion/emotion_test_main-eo.c
+
+tests_emotion_emotion_test_eo_CPPFLAGS = -I$(top_builddir)/src/lib/efl \
+-DPACKAGE_BIN_DIR=\"$(bindir)\" \
+-DPACKAGE_LIB_DIR=\"$(libdir)\" \
+-DPACKAGE_DATA_DIR=\"$(datadir)/emotion\" \
+-DPACKAGE_BUILD_DIR=\"$(abs_top_builddir)\" \
+@EDJE_CFLAGS@ \
+@EMOTION_CFLAGS@ \
+@EO_CFLAGS@
+
+tests_emotion_emotion_test_eo_LDADD = @USE_EDJE_LIBS@ @USE_EMOTION_LIBS@ @USE_EO_LIBS@
+tests_emotion_emotion_test_eo_DEPENDENCIES = @USE_EDJE_INTERNAL_LIBS@ @USE_EMOTION_INTERNAL_LIBS@ \
+@USE_EO_INTERNAL_LIBS@
+
 tests/emotion/data/theme.edj: tests/emotion/data/theme.edc bin/edje/edje_cc${EXEEXT}
 	$(AM_V_EDJ) \
 	$(MKDIR_P) tests/emotion/data; \

src/Makefile_Eolian.am

@@ -66,6 +66,16 @@ bin_eolian_eolian_gen_CPPFLAGS = -I$(top_builddir)/src/lib/efl @EOLIAN_CFLAGS@
 bin_eolian_eolian_gen_LDADD = @USE_EOLIAN_LIBS@
 bin_eolian_eolian_gen_DEPENDENCIES = @USE_EOLIAN_INTERNAL_LIBS@
 
+
+bin_PROGRAMS += \
+                bin/eolian/eolian_info
+
+bin_eolian_eolian_info_SOURCES = \
+                bin/eolian/eolian_info_main.c
+
+bin_eolian_eolian_info_CPPFLAGS = -I$(top_builddir)/src/lib/efl @EOLIAN_CFLAGS@
+bin_eolian_eolian_info_LDADD = @USE_EOLIAN_LIBS@
+
 ### Helper for other modules using Eolian
 include Makefile_Eolian_Helper.am
 

src/bin/eolian/eolian_info_main.c

@@ -0,0 +1,569 @@
+/**
+* Eolian_Info is a tool aimed to show specific Eolian information about Eo classes.
+* It enables easily graphical/text representation of chosen Eo classes.
+* Eolian is used to get this information.
+* The output is a .dot file, convertible to other formats with Graphviz.
+* To get help about the supported commands run "$ eolian_info -h".
+*
+* Examples:
+*
+* To Get dot representation of inheritance tree of elm_layout.eo till depth 3.
+* Using system Eo files (used when no include is defined).
+* $ eolian_info -d 3 -o test.dot elm_layout.eo
+*
+* To Get dot representation of inheritors tree of elm_layout.eo and elm_button.eo till depth 3.
+* $ eolian_info -d 3 -n -i -o test.dot elm_layout.eo Elm.Button
+*
+* To Get dot representation of inheritance tree of elm_layout.eo till depth 3.
+* Using user defined Eo files dirs.
+* $ eolian_info -d 3 -o test.dot -I /home/avilog/git/efl/efl/src/lib/ -I /home/avilog/git/efl/elementary/src/lib/ elm_layout.eo
+*
+* Other:
+*
+* If you have Graphviz installed, you can convert the dot file to many other formats:
+* SVG:
+*  dot -Tsvg test.dot -o test.svg
+* PNG:
+*   dot -Tpng test.dot -o test.png
+*
+*/
+
+#define _GNU_SOURCE
+#include <stdio.h>
+#include <getopt.h>
+#include <Eina.h>
+#include <Eolian.h>
+
+int _eolian_info_log_dom;
+
+#ifdef ERR
+# undef ERR
+#endif
+#define ERR(...) EINA_LOG_DOM_ERR(_eolian_info_log_dom, __VA_ARGS__)
+
+#ifdef DBG
+# undef DBG
+#endif
+#define DBG(...) EINA_LOG_DOM_DBG(_eolian_info_log_dom, __VA_ARGS__)
+
+#ifdef INF
+# undef INF
+#endif
+#define INF(...) EINA_LOG_DOM_INFO(_eolian_info_log_dom, __VA_ARGS__)
+
+#ifdef WRN
+# undef WRN
+#endif
+#define WRN(...) EINA_LOG_DOM_WARN(_eolian_info_log_dom, __VA_ARGS__)
+
+#ifdef CRIT
+# undef CRIT
+#endif
+#define CRIT(...) EINA_LOG_DOM_CRIT(_eolian_info_log_dom, __VA_ARGS__)
+
+#define MAX_CHARS_FILTER 45
+
+static void _file_filter(const Eolian_Class *ekl,  Eina_Strbuf *buf);
+static void _event_filter(const Eolian_Class *ekl, Eina_Strbuf *buf);
+
+FILE* _file = NULL;
+Eina_Inlist *classes_edges_list = NULL;
+
+typedef struct
+{
+   const char* name;
+   void (*func)(const Eolian_Class*, Eina_Strbuf *);
+   Eina_Bool active;
+} _filter;
+
+static _filter _filters[] = {
+       {"events", _event_filter, EINA_FALSE},
+       {"file", _file_filter, EINA_FALSE},
+       {NULL, NULL, EINA_FALSE}
+};
+
+typedef struct
+{
+   EINA_INLIST;
+   const char *class, *parent;
+} _Class_Node;
+
+static void
+_file_filter(const Eolian_Class *ekl, Eina_Strbuf *buf)
+{
+   Eina_Stringshare* class_file  = eolian_class_file_get(ekl);
+
+   eina_strbuf_append(buf, "Class file: ");
+   eina_strbuf_append(buf, class_file);
+}
+
+static void
+_event_filter(const Eolian_Class *ekl, Eina_Strbuf *buf)
+{
+   Eina_Iterator *lst_events = eolian_class_events_get(ekl);
+   const Eolian_Event* event;
+   const char* event_title = "Events: ";
+   int dist_start = strlen(event_title)+3;
+
+   if(lst_events){
+        eina_strbuf_append(buf, event_title);
+   }
+
+   int chars = 0;
+   EINA_ITERATOR_FOREACH(lst_events, event){
+        const char* event_name = eolian_event_name_get(event);
+        chars += strlen(event_name)+1;
+        if(chars-3 + dist_start > MAX_CHARS_FILTER)
+          {
+             /* willl write in a new line */
+             chars = strlen(event_name)+1;
+             eina_strbuf_append(buf, "\\l");
+             for (int i = 0;  i < dist_start;  i++, eina_strbuf_append(buf, "&nbsp;"));
+          }
+        eina_strbuf_append(buf, event_name);
+        eina_strbuf_append(buf, " ");
+   }
+
+   eina_iterator_free(lst_events);
+}
+
+static void
+_print_class(const char *class_name)
+{
+   const Eolian_Class *ekl = eolian_class_get_by_name(class_name);
+   const char* desc = eolian_class_description_get(ekl);
+   fprintf(_file, "\"%s\" [tooltip= \"%s\" ",
+         class_name, ( desc ? eina_str_escape(desc) : class_name));
+
+   _filter *current_f =  _filters;
+   int i = 0;
+
+   fprintf(_file, "label=\"{");
+
+/* Allways print class name */
+   fprintf(_file, "<f%d> ", i);
+   i++;
+   fprintf(_file, "%s\n", class_name);
+
+
+   Eina_Strbuf *buf = eina_strbuf_new(); 
+
+   while(current_f->name != NULL )
+     {
+        if(current_f->active)
+          {
+             current_f->func(ekl, buf);
+             if(eina_strbuf_length_get(buf)>0){
+                  if(i>0)
+                     fprintf(_file, "|");
+                  fflush(_file);
+                  fprintf(_file, "<f%d> ", i);
+                  i++;
+
+                  fprintf(_file, "%s\\l", eina_strbuf_string_get(buf));
+                  eina_strbuf_reset(buf);
+             }
+
+          }
+
+        current_f++;
+     }
+   eina_strbuf_free(buf);
+   fprintf(_file, "}\"]\n");
+}
+
+static void
+_print_graph()
+{
+   _Class_Node *node = NULL;
+   Eina_Inlist *nnode;
+   Eina_Hash *classes_hash = NULL;
+   classes_hash  = eina_hash_string_superfast_new(NULL);
+
+   fprintf(_file, "digraph \"Best Eo Graph Ever\" { \n\
+         fontname = \"Bitstream Vera Sans\" \n\
+         fontsize = 8 \n\
+         \n\
+         node [ \n\
+         fontname = \"Bitstream Vera Sans\"\n \
+         fontsize = 8\n \
+         shape = \"record\"\n \
+         ]\n \
+         \n\
+         edge [\n\
+         arrowtail = \"empty\" \n\
+         ]\n");
+
+   /* print classes info */
+   EINA_INLIST_FOREACH_SAFE(classes_edges_list, nnode, node)
+     {
+        if(node->class && !eina_hash_find(classes_hash, node->class))
+          {
+             _print_class(node->class);
+             eina_hash_add(classes_hash, node->class, node->class);
+          }
+        if(node->parent && !eina_hash_find(classes_hash, node->parent))
+          {
+             _print_class(node->parent);
+             eina_hash_add(classes_hash, node->parent, node->parent);
+          }
+     }
+   eina_hash_free(classes_hash);
+
+   /* mark the roots */
+   fprintf(_file, "{rank=same; ");
+   EINA_INLIST_FOREACH_SAFE(classes_edges_list, nnode, node)
+     {
+        if(!node->parent)
+          {
+             fprintf(_file, "\"%s\" ", node->class);
+          }
+     }
+    fprintf(_file, "}\n");
+
+/*print classes edges */
+   EINA_INLIST_FOREACH_SAFE(classes_edges_list, nnode, node)
+     {
+        if(node->parent && node->class)
+          fprintf(_file, "\"%s\" -> \"%s\"\n [dir=back]",  node->parent, node->class);
+     }
+
+   fprintf(_file, "}\n");
+
+   /* Delete the inlist */
+   EINA_INLIST_FOREACH_SAFE(classes_edges_list, nnode, node)
+     {
+        classes_edges_list = eina_inlist_remove(classes_edges_list,
+              EINA_INLIST_GET(node));
+
+        free(node);
+     }
+}
+
+static void
+_add_class_edge(const char *class_name, const char *parent_name)
+{
+   _Class_Node* d;
+   _Class_Node *node = NULL;
+   Eina_Inlist *nnode;
+
+   /* dont add double edges */
+   if(parent_name)
+      EINA_INLIST_FOREACH_SAFE(classes_edges_list, nnode, node)
+        {
+           if((node->parent && !strcmp(parent_name, node->parent)) &&
+                 !strcmp(class_name, node->class))
+              return;
+        }
+
+   d = malloc(sizeof(*d));
+   d->parent = parent_name;
+   d->class = class_name;
+
+   classes_edges_list = eina_inlist_append(classes_edges_list, EINA_INLIST_GET(d));
+}
+
+static void
+_inherit_tree_scope_rec(const Eolian_Class *ekl, int depth)
+{
+   if(depth<= 0 )
+      return;
+
+   Eina_Iterator *lst = eolian_class_inherits_get(ekl);
+   const char* class_name = eolian_class_full_name_get(ekl);
+   const char* ekl_name;
+
+   EINA_ITERATOR_FOREACH(lst, ekl_name)
+     {
+        ekl=eolian_class_get_by_name(ekl_name);
+
+        _add_class_edge(
+              class_name, eolian_class_full_name_get(ekl));
+
+        _inherit_tree_scope_rec(ekl, depth - 1);
+     }
+   eina_iterator_free(lst);
+}
+
+static void
+_inherit_tree_scope(const Eolian_Class *ekl, int depth_max)
+{
+   if(depth_max<= 0 )
+      return;
+
+   _add_class_edge(
+         eolian_class_full_name_get(ekl), NULL);
+
+   _inherit_tree_scope_rec(ekl, depth_max);
+}
+
+static int
+_inherits_from_scope_recur(const Eolian_Class *ekl,
+      Eina_Hash *classes_hash, const char *des_class_name, int depth_max)
+{
+   const char *class_name = eolian_class_full_name_get(ekl);
+   if(class_name == des_class_name)
+      return 1;
+
+   int min_found_depth = -1;
+   Eina_Iterator *lst_i = eolian_class_inherits_get(ekl);
+   const char *ekl_i;
+
+   if(!lst_i) return -1;
+
+   EINA_ITERATOR_FOREACH(lst_i, ekl_i)
+     {
+        ekl = eolian_class_get_by_name(ekl_i);
+        void *hash = eina_hash_find(classes_hash, ekl);
+        int depth_class = -1;
+        if(!hash)
+          {
+             depth_class = _inherits_from_scope_recur(
+                   ekl, classes_hash, des_class_name, depth_max);
+             eina_hash_add(classes_hash, ekl, (void*)(uintptr_t)depth_class );
+
+          }
+        else  depth_class = (int)(uintptr_t)hash;
+
+        if(depth_class>=0){
+             if(depth_class<=depth_max){
+                  _add_class_edge(
+                        class_name, ekl_i);
+             }
+             if((min_found_depth == -1) ||(min_found_depth>depth_class))
+                min_found_depth = depth_class;
+        }
+     }
+   eina_iterator_free(lst_i);
+
+   return min_found_depth>=0 ?  min_found_depth+1 : -1;
+}
+
+static void
+_inherits_from_scope(const Eolian_Class *ekl, int depth_max)
+{
+   const char* class_name = eolian_class_full_name_get(ekl);
+   if(depth_max<= 0 )
+      return;
+
+   Eina_Hash *classes_hash = eina_hash_string_superfast_new(NULL);
+
+   _add_class_edge(
+         class_name, NULL);
+
+   Eina_Iterator *lst = eolian_all_classes_get();
+
+   EINA_ITERATOR_FOREACH(lst, ekl)
+     {
+        if(!eina_hash_find(classes_hash, ekl))
+          {
+             _inherits_from_scope_recur(
+                   ekl, classes_hash, class_name, depth_max);
+          }
+     }
+
+   eina_iterator_free(lst);
+}
+
+static void
+_print_help(const char *program)
+{
+   printf("Usage: %s [options] class_path/class_name...\n", program);
+   printf("Options:\n");
+   printf("  --help/-h                  Display this information\n");
+   printf("  --no-inheritance/-n        By default, we create the Inheritance tree, this flag disables it\n");
+   printf("  --inheritors/-i            Add the Inheritors tree (classes that inherit from this class)\n");
+   printf("  --output/-o <outFile>      Set output filename to <outFile>\n");
+   printf("  --depth/-d <deptth>        Set <depth> to be the the max depth (up and down from the class of the printed tree)\n");
+   printf("  --include/-I <includeDir>  Add <includeDir> to the list of include\n" \
+          "                             dirs for scanning. If no directory included we scan the system dir.\n");
+   printf("  --filters/-f <filter1,...> Set filters (the info of the class that will be printed)\n" \
+          "                             as a comma-separated list of:\n" \
+          "                                ");
+   _filter *current_f =  _filters;
+   while(current_f->name != NULL ) printf("%s, ", current_f++->name);
+   printf("\b\b  \n");
+
+   printf("\nFor example:\n");
+   printf("eo_info_cmd -d 3 -o test.dot -f events,file elm_layout.eo Elm.Button\n");
+}
+
+int main(int argc, char **argv)
+{
+   int ret = 1;
+   int max_depth = 0;
+   char *output = NULL, *filter = NULL;
+   Eina_Bool help = EINA_FALSE, includes = EINA_FALSE;
+   Eina_Bool no_inheritance = EINA_FALSE, inheritors = EINA_FALSE;
+   Eina_Bool no_input = EINA_TRUE;
+
+   eina_init();
+   eolian_init();
+
+   const char *log_dom = "eolian_info";
+   _eolian_info_log_dom = eina_log_domain_register(log_dom, EINA_COLOR_GREEN);
+   if (_eolian_info_log_dom < 0)
+     {
+        EINA_LOG_ERR("Could not register log domain: %s", log_dom);
+        goto end;
+     }
+
+   static struct option long_options[] =
+     {
+        /* These options set a flag. */
+          {"help",       no_argument,         0, 'h'},
+          {"no-inheritance", no_argument,   0, 'n'},
+          {"inheritors", no_argument,   0, 'i'},
+          {"output",    required_argument,   0, 'o'},
+          {"depth",    required_argument,   0, 'd'},
+          {"filters",    required_argument,   0, 'f'},
+          {"Include",    required_argument,   0, 'I'},
+          {0, 0, 0, 0}
+     };
+   int long_index = 0, opt;
+   while ((opt = getopt_long(argc, argv,"hnio:d:f:I:", long_options, &long_index )) != -1)
+     {
+        switch (opt) {
+           case 0: break;
+           case 'h': help = EINA_TRUE; break;
+           case 'o':
+                     {
+                        output = optarg;
+
+                        break;
+                     }
+           case 'd':
+                     {
+                        max_depth = atoi(optarg);
+                        break;
+                     }
+           case 'n':
+                     {
+                        no_inheritance = EINA_TRUE;
+
+                        break;
+                     }
+           case 'i':
+                     {
+                        inheritors = EINA_TRUE;
+
+                        break;
+                     }
+           case 'I':
+                     {
+                        includes = EINA_TRUE;
+                        const char *dir = optarg;
+                        if (!eolian_directory_scan(dir))//todo works even if dir dont exist
+                          {
+                             ERR("Failed to scan %s", dir);
+                             goto end;
+                          }
+                        break;
+                     }
+           case 'f':
+                     {
+                        filter = optarg;
+
+                        break;
+                     }
+           default: {
+                         ERR("Unrecognized option %s\n", argv[optind-1]);
+                         help = EINA_TRUE;
+                    }
+        }
+     }
+   int name_start = optind++, name_end = argc;
+
+   if (help)
+     {
+        _print_help(argv[0]);
+        goto end;
+     }
+
+   if(filter)
+     {
+        unsigned int elements = 0, i;
+        char **f_names = eina_str_split_full(filter, ",", 100, &elements);
+
+        for(i = 0; i < elements; i++)/* go over all given filter names*/
+          {
+
+             _filter *current_f =  _filters;
+
+             while(current_f->name != NULL )
+               {
+
+                  if(!strcmp(current_f->name, f_names[i]))
+                    {
+                       current_f->active = EINA_TRUE;
+                       break;
+                    }
+
+                  current_f++;
+               }
+          }
+     }
+
+   if(!includes) eolian_system_directory_scan();
+   eolian_all_eo_files_parse();
+   while(name_start < name_end)
+     {
+        char *class_path = argv[name_start++];
+        const Eolian_Class *ekl = NULL;
+        if(eina_str_has_extension(class_path, ".eo"))
+          {
+             ekl =  eolian_class_get_by_file(class_path);
+          }
+        else
+          {
+             ekl = eolian_class_get_by_name(class_path);
+          }
+        if(!ekl)
+          {
+             ERR("Class %s not found", class_path);
+             goto end;
+          }
+        no_input = EINA_FALSE;
+
+        if(!no_inheritance)
+          {
+             _inherit_tree_scope(ekl, max_depth);
+          }
+        if(inheritors)
+          {
+             _inherits_from_scope(ekl, max_depth);
+          }
+
+     }
+   if (no_input)
+     {
+        ERR("No input files given");
+        _print_help(argv[0]);
+        goto end;
+     }
+   _file = stdout;
+   if(output)
+     {
+        _file = fopen(output, "w");
+        if (_file == NULL)
+          {
+             ERR("Error opening file!\n");
+             goto end;
+          }
+     }
+   _print_graph();
+   if(output)
+      fclose(_file);
+
+end:
+
+   eina_log_timing(_eolian_info_log_dom,
+         EINA_LOG_STATE_START,
+         EINA_LOG_STATE_SHUTDOWN);
+   eina_log_domain_unregister(_eolian_info_log_dom);
+   _eolian_info_log_dom = -1;
+
+   eolian_shutdown();
+   eina_shutdown();
+   return ret;
+}

src/tests/emotion/emotion_test_main-eo.c

@@ -0,0 +1,845 @@
+#ifdef HAVE_CONFIG_H
+#include "config.h"
+#else
+#define EFL_EO_API_SUPPORT
+#define EFL_BETA_API_SUPPORT
+#endif
+
+#include <Eo.h>
+#include <stdlib.h>
+#include <stdio.h>
+#include <string.h>
+
+#include <Evas.h>
+#include <Ecore.h>
+#include <Ecore_Getopt.h>
+#include <Ecore_Evas.h>
+#include <Edje.h>
+
+#include "Emotion.h"
+
+static const Ecore_Getopt options = {
+   "emotion_test",
+   "%prog [options] <filename>",
+   "1.0.0",
+   "(C) 2011-2014 Enlightenment",
+   "BSD\nThis is a 3 clause bsd bla bla",
+   "a simple test program for emotion.",
+   1,
+   {
+      ECORE_GETOPT_STORE_STR('e', "engine", "ecore-evas engine to use"),
+      ECORE_GETOPT_CALLBACK_NOARGS('E', "list-engines", "list ecore-evas engines",
+                                   ecore_getopt_callback_ecore_evas_list_engines, NULL),
+      ECORE_GETOPT_CALLBACK_ARGS('g', "geometry", "geometry to use in x:y:w:h form.", "X:Y:W:H",
+                                 ecore_getopt_callback_geometry_parse, NULL),
+      ECORE_GETOPT_STORE_STR('b', "backend", "backend to use"),
+      ECORE_GETOPT_STORE_INT('v', "vis", "visualization type"),
+      ECORE_GETOPT_STORE_TRUE('w', "webcams", "show all the available v4l streams"),
+      ECORE_GETOPT_STORE_TRUE('r', "reflex", "show video reflex effect"),
+      ECORE_GETOPT_STORE_TRUE('l', "loop", "restart the video when end reached"),
+      ECORE_GETOPT_STORE_TRUE('p', "position", "start the video from last know position"),
+      ECORE_GETOPT_VERSION('V', "version"),
+      ECORE_GETOPT_COPYRIGHT('R', "copyright"),
+      ECORE_GETOPT_LICENSE('L', "license"),
+      ECORE_GETOPT_HELP('h', "help"),
+      ECORE_GETOPT_SENTINEL
+   }
+};
+
+typedef struct _Frame_Data Frame_Data;
+
+struct _Frame_Data
+{
+   unsigned char moving : 1;
+   unsigned char resizing : 1;
+   int        button;
+   Evas_Coord x, y;
+};
+
+static void main_resize(Ecore_Evas *ee);
+static Eina_Bool  main_signal_exit(void *data, int ev_type, void *ev);
+static void main_delete_request(Ecore_Evas *ee);
+
+static void bg_setup(void);
+static void bg_resize(Evas_Coord w, Evas_Coord h);
+static Eina_Bool bg_key_down(void *data EINA_UNUSED, Eo *obj EINA_UNUSED,
+      const Eo_Event_Description *desc EINA_UNUSED, void *event_info);
+
+
+static Evas_Object *o_bg = NULL;
+
+static Ecore_Evas  *ecore_evas = NULL;
+static Evas        *evas       = NULL;
+static int          startw     = 800;
+static int          starth     = 600;
+
+static Eina_List   *video_objs = NULL;
+static Emotion_Vis  vis        = EMOTION_VIS_NONE;
+static unsigned char reflex    = 0;
+static unsigned char loop      = 0;
+static unsigned char last_position_load  = 0;
+static const char  *theme_file = NULL;
+
+static void
+main_resize(Ecore_Evas *ee)
+{
+   Evas_Coord w, h;
+
+   eo_do(ecore_evas_get(ee),
+         evas_canvas_output_viewport_get(NULL, NULL, &w, &h));
+   bg_resize(w, h);
+}
+
+static Eina_Bool
+main_signal_exit(void *data EINA_UNUSED, int ev_type EINA_UNUSED, void *ev EINA_UNUSED)
+{
+   Evas_Object *o;
+
+   ecore_main_loop_quit();
+   EINA_LIST_FREE(video_objs, o)
+     {
+        emotion_object_last_position_save(o);
+        evas_object_del(o);
+     }
+   return EINA_TRUE;
+}
+
+void
+main_delete_request(Ecore_Evas *ee EINA_UNUSED)
+{
+   ecore_main_loop_quit();
+}
+
+static void
+bg_setup(void)
+{
+   Evas_Object *o;
+
+   o = eo_add(EDJE_OBJECT_CLASS, evas);
+   eo_do(o, efl_file_set(theme_file, "background"),
+         efl_gfx_position_set(0, 0),
+         efl_gfx_size_set(startw, starth),
+         efl_gfx_stack_layer_set(-999),
+         efl_gfx_visible_set(EINA_TRUE),
+         evas_obj_focus_set(1)
+        );
+   eo_do(o, eo_event_callback_add(EVAS_OBJECT_EVENT_KEY_DOWN
+            ,  bg_key_down, NULL));
+
+   o_bg = o;
+}
+
+static void
+bg_resize(Evas_Coord w, Evas_Coord h)
+{
+   eo_do(o_bg, efl_gfx_size_set(w, h));
+}
+
+static void
+broadcast_event(Emotion_Event ev)
+{
+   Eina_List *l;
+   Evas_Object *obj;
+
+   EINA_LIST_FOREACH(video_objs, l, obj)
+     emotion_object_event_simple_send(obj, ev);
+}
+
+static Eina_Bool
+bg_key_down(void *data EINA_UNUSED, Eo *obj EINA_UNUSED,
+      const Eo_Event_Description *desc EINA_UNUSED, void *event_info)
+{
+   Evas_Event_Key_Down *ev = event_info;
+   Eina_List *l;
+   Evas_Object *o;
+
+   if      (!strcmp(ev->keyname, "Escape"))
+     ecore_main_loop_quit();
+   else if (!strcmp(ev->keyname, "Up"))
+     broadcast_event(EMOTION_EVENT_UP);
+   else if (!strcmp(ev->keyname, "Down"))
+     broadcast_event(EMOTION_EVENT_DOWN);
+   else if (!strcmp(ev->keyname, "Left"))
+     broadcast_event(EMOTION_EVENT_LEFT);
+   else if (!strcmp(ev->keyname, "Right"))
+     broadcast_event(EMOTION_EVENT_RIGHT);
+   else if (!strcmp(ev->keyname, "Return"))
+     broadcast_event(EMOTION_EVENT_SELECT);
+   else if (!strcmp(ev->keyname, "m"))
+     broadcast_event(EMOTION_EVENT_MENU1);
+   else if (!strcmp(ev->keyname, "Prior"))
+     broadcast_event(EMOTION_EVENT_PREV);
+   else if (!strcmp(ev->keyname, "Next"))
+     broadcast_event(EMOTION_EVENT_NEXT);
+   else if (!strcmp(ev->keyname, "0"))
+     broadcast_event(EMOTION_EVENT_0);
+   else if (!strcmp(ev->keyname, "1"))
+     broadcast_event(EMOTION_EVENT_1);
+   else if (!strcmp(ev->keyname, "2"))
+     broadcast_event(EMOTION_EVENT_2);
+   else if (!strcmp(ev->keyname, "3"))
+     broadcast_event(EMOTION_EVENT_3);
+   else if (!strcmp(ev->keyname, "4"))
+     broadcast_event(EMOTION_EVENT_4);
+   else if (!strcmp(ev->keyname, "5"))
+     broadcast_event(EMOTION_EVENT_5);
+   else if (!strcmp(ev->keyname, "6"))
+     broadcast_event(EMOTION_EVENT_6);
+   else if (!strcmp(ev->keyname, "7"))
+     broadcast_event(EMOTION_EVENT_7);
+   else if (!strcmp(ev->keyname, "8"))
+     broadcast_event(EMOTION_EVENT_8);
+   else if (!strcmp(ev->keyname, "9"))
+     broadcast_event(EMOTION_EVENT_9);
+   else if (!strcmp(ev->keyname, "-"))
+     broadcast_event(EMOTION_EVENT_10);
+   else if (!strcmp(ev->keyname, "v"))
+     {
+        EINA_LIST_FOREACH(video_objs, l, o)
+          {
+             if (emotion_object_video_mute_get(o))
+               emotion_object_video_mute_set(o, 0);
+             else
+               emotion_object_video_mute_set(o, 1);
+          }
+     }
+   else if (!strcmp(ev->keyname, "a"))
+     {
+        EINA_LIST_FOREACH(video_objs, l, o)
+          {
+            if (emotion_object_audio_mute_get(o))
+              {
+                 emotion_object_audio_mute_set(o, 0);
+                 printf("unmute\n");
+              }
+            else
+              {
+                 emotion_object_audio_mute_set(o, 1);
+                 printf("mute\n");
+              }
+          }
+     }
+   else if (!strcmp(ev->keyname, "i"))
+     {
+        EINA_LIST_FOREACH(video_objs, l, o)
+          {
+             printf("audio channels: %i\n", emotion_object_audio_channel_count(o));
+             printf("video channels: %i\n", emotion_object_video_channel_count(o));
+             printf("spu channels: %i\n", emotion_object_spu_channel_count(o));
+             printf("seekable: %i\n", emotion_object_seekable_get(o));
+          }
+     }
+   else if (!strcmp(ev->keyname, "f"))
+     {
+       if (!ecore_evas_fullscreen_get(ecore_evas))
+         ecore_evas_fullscreen_set(ecore_evas, 1);
+       else
+         ecore_evas_fullscreen_set(ecore_evas, 0);
+     }
+   else if (!strcmp(ev->keyname, "d"))
+     {
+        if (!ecore_evas_avoid_damage_get(ecore_evas))
+          ecore_evas_avoid_damage_set(ecore_evas, 1);
+        else
+          ecore_evas_avoid_damage_set(ecore_evas, 0);
+     }
+   else if (!strcmp(ev->keyname, "s"))
+     {
+        if (!ecore_evas_shaped_get(ecore_evas))
+          {
+             ecore_evas_shaped_set(ecore_evas, 1);
+             evas_object_hide(o_bg);
+          }
+        else
+          {
+             ecore_evas_shaped_set(ecore_evas, 0);
+             evas_object_show(o_bg);
+          }
+     }
+   else if (!strcmp(ev->keyname, "b"))
+     {
+        if (!ecore_evas_borderless_get(ecore_evas))
+          ecore_evas_borderless_set(ecore_evas, 1);
+        else
+          ecore_evas_borderless_set(ecore_evas, 0);
+     }
+   else if (!strcmp(ev->keyname, "q"))
+     {
+        ecore_main_loop_quit();
+        while (video_objs)
+          {
+             printf("del obj!\n");
+             evas_object_del(video_objs->data);
+             video_objs = eina_list_remove_list(video_objs, video_objs);
+             printf("done\n");
+          }
+     }
+   else if (!strcmp(ev->keyname, "z"))
+     {
+        vis = (vis + 1) % EMOTION_VIS_LAST;
+        printf("new visualization: %d\n", vis);
+
+        EINA_LIST_FOREACH(video_objs, l, o)
+          {
+             Eina_Bool supported;
+
+             supported = emotion_object_vis_supported(o, vis);
+             if (supported)
+               emotion_object_vis_set(o, vis);
+             else
+               {
+                  const char *file;
+
+                  file = emotion_object_file_get(o);
+                  printf("object %p (%s) does not support visualization %d\n",
+                  o, file, vis);
+               }
+          }
+     }
+   else
+     {
+        printf("UNHANDLED: %s\n", ev->keyname);
+     }
+
+   return EINA_TRUE;
+}
+
+static void
+_oe_free_cb(void *data, Evas *e EINA_UNUSED, Evas_Object *obj EINA_UNUSED,
+            void *event_info EINA_UNUSED)
+{
+   free(data);
+}
+
+static void
+video_obj_time_changed(Evas_Object *obj, Evas_Object *edje)
+{
+   double pos, len, scale;
+   char buf[256];
+   int ph, pm, ps, pf, lh, lm, ls;
+
+   pos = emotion_object_position_get(obj);
+   len = emotion_object_play_length_get(obj);
+   scale = (len > 0.0) ? pos / len : 0.0;
+   eo_do(edje, edje_obj_part_drag_value_set("video_progress", scale, 0.0));
+
+   lh = len / 3600;
+   lm = len / 60 - (lh * 60);
+   ls = len - (lh * 3600) - (lm * 60);
+
+   ph = pos / 3600;
+   pm = pos / 60 - (ph * 60);
+   ps = pos - (ph * 3600) - (pm * 60);
+
+   pf = pos * 100 - (ps * 100) - (pm * 60 * 100) - (ph * 60 * 60 * 100);
+
+   snprintf(buf, sizeof(buf), "%i:%02i:%02i.%02i / %i:%02i:%02i",
+            ph, pm, ps, pf, lh, lm, ls);
+   eo_do(edje, edje_obj_part_text_set("video_progress_txt", buf));
+}
+
+static Eina_Bool
+video_obj_frame_decode_cb(void *data,
+      Eo *obj, const Eo_Event_Description *desc EINA_UNUSED, void *event_info EINA_UNUSED)
+{
+   video_obj_time_changed(obj, data);
+
+   if (0)
+     {
+        double t;
+        static double pt = 0.0;
+        t = ecore_time_get();
+        printf("FPS: %3.3f\n", 1.0 / (t - pt));
+        pt = t;
+     }
+   return EINA_TRUE;
+}
+
+static Eina_Bool
+video_obj_frame_resize_cb(void *data,
+      Eo *obj, const Eo_Event_Description *desc EINA_UNUSED, void *event_info EINA_UNUSED)
+{
+   Evas_Object *oe;
+   int iw, ih;
+   Evas_Coord w, h;
+   double ratio;
+
+   oe = data;
+   emotion_object_size_get(obj, &iw, &ih);
+   ratio = emotion_object_ratio_get(obj);
+   printf("HANDLE %ix%i @ %3.3f\n", iw, ih, ratio);
+   if (ratio > 0.0) iw = (ih * ratio) + 0.5;
+   evas_object_size_hint_min_set(obj, iw, ih);
+   eo_do(oe, edje_obj_part_swallow( "video_swallow", obj),
+         edje_obj_size_min_calc(&w, &h),
+         efl_gfx_size_set(w, h)
+        );
+   eo_do(obj, evas_obj_size_hint_min_set(0, 0));
+   eo_do(oe, edje_obj_part_swallow( "video_swallow", obj));
+
+   return EINA_TRUE;
+}
+
+static Eina_Bool
+video_obj_length_change_cb(void *data,
+      Eo *obj, const Eo_Event_Description *desc EINA_UNUSED, void *event_info EINA_UNUSED)
+{
+   printf("len change!\n");
+   video_obj_time_changed(obj, data);
+
+   return EINA_TRUE;
+}
+
+static Eina_Bool
+video_obj_position_update_cb(void *data,
+      Eo *obj, const Eo_Event_Description *desc EINA_UNUSED, void *event_info EINA_UNUSED)
+{
+   printf("pos up!\n");
+   video_obj_time_changed(obj, data);
+
+   return EINA_TRUE;
+}
+
+static Eina_Bool
+video_obj_stopped_cb(void *data EINA_UNUSED,
+      Eo *obj, const Eo_Event_Description *desc EINA_UNUSED, void *event_info EINA_UNUSED)
+{
+   printf("video stopped!!!\n");
+   if (loop)
+     {
+        emotion_object_position_set(obj, 0.0);
+        emotion_object_play_set(obj, 1);
+     }
+
+   return EINA_TRUE;
+}
+
+static Eina_Bool
+video_obj_channels_cb(void *data EINA_UNUSED,
+      Eo *obj, const Eo_Event_Description *desc EINA_UNUSED, void *event_info EINA_UNUSED)
+{
+   printf("channels changed: [AUD %i][VID %i][SPU %i]\n",
+          emotion_object_audio_channel_count(obj),
+          emotion_object_video_channel_count(obj),
+          emotion_object_spu_channel_count(obj));
+
+   return EINA_TRUE;
+}
+
+static Eina_Bool
+ video_obj_title_cb(void *data EINA_UNUSED,
+      Eo *obj, const Eo_Event_Description *desc EINA_UNUSED, void *event_info EINA_UNUSED)
+{
+   printf("video title to: \"%s\"\n", emotion_object_title_get(obj));
+
+   return EINA_TRUE;
+}
+
+static Eina_Bool
+video_obj_progress_cb(void *data EINA_UNUSED,
+      Eo *obj, const Eo_Event_Description *desc EINA_UNUSED, void *event_info EINA_UNUSED)
+{
+   printf("progress: \"%s\" %3.3f\n",
+          emotion_object_progress_info_get(obj),
+          emotion_object_progress_status_get(obj));
+
+   return EINA_TRUE;
+}
+
+static Eina_Bool
+video_obj_ref_cb(void *data EINA_UNUSED,
+      Eo *obj, const Eo_Event_Description *desc EINA_UNUSED, void *event_info EINA_UNUSED)
+{
+   printf("video ref to: \"%s\" %i\n",
+          emotion_object_ref_file_get(obj),
+          emotion_object_ref_num_get(obj));
+
+   return EINA_TRUE;
+}
+
+static Eina_Bool
+video_obj_button_num_cb(void *data EINA_UNUSED,
+      Eo *obj, const Eo_Event_Description *desc EINA_UNUSED, void *event_info EINA_UNUSED)
+{
+   printf("video spu buttons to: %i\n",
+          emotion_object_spu_button_count_get(obj));
+
+   return EINA_TRUE;
+}
+
+static Eina_Bool
+video_obj_button_cb(void *data EINA_UNUSED,
+      Eo *obj, const Eo_Event_Description *desc EINA_UNUSED, void *event_info EINA_UNUSED)
+{
+   printf("video selected spu button: %i\n",
+          emotion_object_spu_button_get(obj));
+
+   return EINA_TRUE;
+}
+
+static void
+video_obj_signal_play_cb(void *data, Evas_Object *o, const char *emission EINA_UNUSED, const char *source EINA_UNUSED)
+{
+   Evas_Object *ov = data;
+   emotion_object_play_set(ov, 1);
+   eo_do(o, edje_obj_signal_emit("video_state", "play"));
+}
+
+static void
+video_obj_signal_pause_cb(void *data, Evas_Object *o, const char *emission EINA_UNUSED, const char *source EINA_UNUSED)
+{
+   Evas_Object *ov = data;
+   emotion_object_play_set(ov, 0);
+   eo_do(o, edje_obj_signal_emit("video_state", "pause"));
+}
+
+static void
+video_obj_signal_stop_cb(void *data, Evas_Object *o, const char *emission EINA_UNUSED, const char *source EINA_UNUSED)
+{
+   Evas_Object *ov = data;
+   emotion_object_play_set(ov, 0);
+   emotion_object_position_set(ov, 0);
+   eo_do(o, edje_obj_signal_emit("video_state", "stop"));
+}
+
+static void
+video_obj_signal_jump_cb(void *data, Evas_Object *o, const char *emission EINA_UNUSED, const char *source)
+{
+   Evas_Object *ov = data;
+   double len;
+   double x, y;
+
+   eo_do(o, edje_obj_part_drag_value_get(source, &x, &y));
+   len = emotion_object_play_length_get(ov);
+   emotion_object_position_set(ov, x * len);
+}
+
+static void
+video_obj_signal_alpha_cb(void *data, Evas_Object *o, const char *emission EINA_UNUSED, const char *source)
+{
+   Evas_Object *ov = data;
+   double alpha;
+   double x, y;
+   char buf[256];
+
+   eo_do(o, edje_obj_part_drag_value_get(source, &x, &y));
+   alpha = 255 * y;
+   eo_do(ov, efl_gfx_color_set(alpha, alpha, alpha, alpha));
+   snprintf(buf, sizeof(buf), "alpha %.0f", alpha);
+   eo_do(o, edje_obj_part_text_set("video_alpha_txt", buf));
+}
+
+static void
+video_obj_signal_vol_cb(void *data, Evas_Object *o, const char *emission EINA_UNUSED, const char *source)
+{
+   Evas_Object *ov = data;
+   double vol;
+   char buf[256];
+
+   eo_do(o, edje_obj_part_drag_value_get(source, NULL, &vol));
+   emotion_object_audio_volume_set(ov, vol);
+   snprintf(buf, sizeof(buf), "vol %.2f", vol);
+   eo_do(o, edje_obj_part_text_set("video_volume_txt", buf));
+}
+
+static void
+video_obj_signal_frame_move_start_cb(void *data EINA_UNUSED, Evas_Object *o, const char *emission EINA_UNUSED, const char *source EINA_UNUSED)
+{
+   Frame_Data *fd;
+   Evas_Coord x, y;
+
+   eo_do(o, fd = eo_key_data_get("frame_data"));
+   if (!fd) return;
+   fd->moving = 1;
+   eo_do(evas_object_evas_get(o),
+         evas_canvas_pointer_canvas_xy_get(&x, &y));
+   fd->x = x;
+   fd->y = y;
+   eo_do(o, efl_gfx_stack_raise());
+}
+
+static void
+video_obj_signal_frame_move_stop_cb(void *data EINA_UNUSED, Evas_Object *o, const char *emission EINA_UNUSED, const char *source EINA_UNUSED)
+{
+   Frame_Data *fd;
+
+   eo_do(o, fd = eo_key_data_get("frame_data"));
+   if (!fd) return;
+   fd->moving = 0;
+}
+
+static void
+video_obj_signal_frame_resize_start_cb(void *data EINA_UNUSED, Evas_Object *o, const char *emission EINA_UNUSED, const char *source EINA_UNUSED)
+{
+   Frame_Data *fd;
+   Evas_Coord x, y;
+
+   eo_do(o, fd = eo_key_data_get("frame_data"));
+   if (!fd) return;
+   fd->resizing = 1;
+   eo_do(evas_object_evas_get(o),
+         evas_canvas_pointer_canvas_xy_get(&x, &y));
+   fd->x = x;
+   fd->y = y;
+   eo_do(o, efl_gfx_stack_raise());
+}
+
+static void
+video_obj_signal_frame_resize_stop_cb(void *data EINA_UNUSED, Evas_Object *o, const char *emission EINA_UNUSED, const char *source EINA_UNUSED)
+{
+   Frame_Data *fd;
+
+   eo_do(o, fd = eo_key_data_get("frame_data"));
+   if (!fd) return;
+   fd->resizing = 0;
+}
+
+static void
+video_obj_signal_frame_move_cb(void *data EINA_UNUSED, Evas_Object *o, const char *emission EINA_UNUSED, const char *source EINA_UNUSED)
+{
+   Frame_Data *fd;
+
+   eo_do(o, fd = eo_key_data_get("frame_data"));
+   if (!fd) return;
+   if (fd->moving)
+     {
+        Evas_Coord x, y, ox, oy;
+
+        eo_do(evas_object_evas_get(o),
+              evas_canvas_pointer_canvas_xy_get(&x, &y));
+        eo_do(o,
+              efl_gfx_position_get(&ox, &oy),
+              efl_gfx_position_set(ox + (x - fd->x), oy + (y - fd->y))
+             );
+        fd->x = x;
+        fd->y = y;
+     }
+   else if (fd->resizing)
+     {
+        Evas_Coord x, y, ow, oh;
+
+        eo_do(evas_object_evas_get(o),
+              evas_canvas_pointer_canvas_xy_get(&x, &y));
+        eo_do(o, efl_gfx_size_get(&ow, &oh));
+        evas_object_resize(o, ow + (x - fd->x), oh + (y - fd->y));
+        fd->x = x;
+        fd->y = y;
+     }
+}
+
+static const Eo_Callback_Array_Item emotion_object_test_callbacks[] = {
+       { EMOTION_OBJECT_EVENT_FRAME_DECODE, video_obj_frame_decode_cb },
+       { EMOTION_OBJECT_EVENT_FRAME_RESIZE, video_obj_frame_resize_cb },
+       { EMOTION_OBJECT_EVENT_LENGTH_CHANGE, video_obj_length_change_cb },
+       { EMOTION_OBJECT_EVENT_POSITION_UPDATE, video_obj_position_update_cb },
+       { EMOTION_OBJECT_EVENT_DECODE_STOP, video_obj_stopped_cb },
+       { EMOTION_OBJECT_EVENT_CHANNELS_CHANGE, video_obj_channels_cb },
+       { EMOTION_OBJECT_EVENT_TITLE_CHANGE, video_obj_title_cb },
+       { EMOTION_OBJECT_EVENT_PROGRESS_CHANGE, video_obj_progress_cb },
+       { EMOTION_OBJECT_EVENT_REF_CHANGE, video_obj_ref_cb },
+       { EMOTION_OBJECT_EVENT_BUTTON_NUM_CHANGE, video_obj_button_num_cb },
+       { EMOTION_OBJECT_EVENT_BUTTON_CHANGE, video_obj_button_cb },
+       { NULL, NULL }
+};
+
+static void
+init_video_object(const char *module_filename, const char *filename)
+{
+   Evas_Object *o, *oe;
+   Evas_Coord w, h, offset;
+   Frame_Data *fd;
+
+   /* basic video object setup */
+   o = emotion_object_add(evas);
+   if ((module_filename) && (!emotion_object_init(o, module_filename)))
+     return;
+   emotion_object_vis_set(o, vis);
+   if (!emotion_object_file_set(o, filename))
+     return;
+   if (last_position_load)
+     emotion_object_last_position_load(o);
+   emotion_object_play_set(o, 1);
+   emotion_object_audio_volume_set(o, 0.5);
+   evas_object_move(o, 0, 0);
+   evas_object_resize(o, 320, 240);
+   emotion_object_smooth_scale_set(o, 1);
+   evas_object_show(o);
+
+   video_objs = eina_list_append(video_objs, o);
+   /* end basic video setup. all the rest here is just to be fancy */
+
+
+   fd = calloc(1, sizeof(Frame_Data));
+   if (!fd) exit(1);
+
+   oe = eo_add(EDJE_OBJECT_CLASS, evas);
+   evas_object_event_callback_add(oe, EVAS_CALLBACK_FREE, _oe_free_cb, fd);
+   eo_do(oe, eo_key_data_set("frame_data", fd));
+   if (reflex)
+     eo_do(oe, efl_file_set(theme_file, "video_controller/reflex"));
+   else
+     eo_do(oe, efl_file_set(theme_file, "video_controller"));
+   eo_do(oe, edje_obj_part_swallow("video_swallow", o));
+
+   offset = 20 * (eina_list_count(video_objs) - 1);
+   eo_do(oe, efl_gfx_position_set(offset, offset));
+   eo_do(oe, edje_obj_size_min_calc(&w, &h));
+
+   eo_do(oe, efl_gfx_size_set(w, h));
+
+   eo_do(o, eo_event_callback_array_add(emotion_object_test_callbacks, oe));
+
+   eo_do(oe,
+         edje_obj_signal_callback_add("video_control", "play", video_obj_signal_play_cb, o),
+         edje_obj_signal_callback_add("video_control", "pause", video_obj_signal_pause_cb, o),
+         edje_obj_signal_callback_add("video_control", "stop", video_obj_signal_stop_cb, o),
+         edje_obj_signal_callback_add("drag", "video_progress", video_obj_signal_jump_cb, o),
+         edje_obj_signal_callback_add("drag", "video_alpha", video_obj_signal_alpha_cb, o),
+         edje_obj_signal_callback_add("drag", "video_volume", video_obj_signal_vol_cb, o),
+         edje_obj_signal_callback_add("frame_move", "start", video_obj_signal_frame_move_start_cb, oe),
+         edje_obj_signal_callback_add("frame_move", "stop", video_obj_signal_frame_move_stop_cb, oe),
+         edje_obj_signal_callback_add("frame_resize", "start", video_obj_signal_frame_resize_start_cb, oe),
+         edje_obj_signal_callback_add("frame_resize", "stop", video_obj_signal_frame_resize_stop_cb, oe),
+         edje_obj_signal_callback_add("mouse,move", "*", video_obj_signal_frame_move_cb, oe),
+
+         edje_obj_part_drag_value_set("video_alpha", 0.0, 1.0),
+         edje_obj_part_text_set("video_alpha_txt", "alpha 255"),
+         edje_obj_part_drag_value_set("video_volume", 0.0, 0.5),
+         edje_obj_part_text_set("video_volume_txt", "vol 0.50")
+        );
+
+   eo_do(oe, edje_obj_signal_emit("video_state", "play"));
+
+   eo_do(oe, efl_gfx_visible_set(EINA_TRUE));
+}
+
+int
+main(int argc, char **argv)
+{
+   int args;
+   Eina_Rectangle     geometry = {0, 0, startw, starth};
+   char              *engine = NULL;
+   char              *backend = NULL;
+   Eina_Bool          webcams = EINA_FALSE;
+   int                visual = EMOTION_VIS_NONE;
+   unsigned char      help = 0;
+   unsigned char      engines_listed = 0;
+   Ecore_Getopt_Value values[] = {
+      ECORE_GETOPT_VALUE_STR(engine),
+      ECORE_GETOPT_VALUE_BOOL(engines_listed),
+      ECORE_GETOPT_VALUE_PTR_CAST(geometry),
+      ECORE_GETOPT_VALUE_STR(backend),
+      ECORE_GETOPT_VALUE_INT(visual),
+      ECORE_GETOPT_VALUE_BOOL(webcams),
+      ECORE_GETOPT_VALUE_BOOL(reflex),
+      ECORE_GETOPT_VALUE_BOOL(loop),
+      ECORE_GETOPT_VALUE_BOOL(last_position_load),
+      ECORE_GETOPT_VALUE_NONE,
+      ECORE_GETOPT_VALUE_NONE,
+      ECORE_GETOPT_VALUE_NONE,
+      ECORE_GETOPT_VALUE_BOOL(help),
+      ECORE_GETOPT_VALUE_NONE
+    };
+
+   // init ecore_evas
+   if (!ecore_evas_init())
+     return -1;
+
+   // init edje
+   if (!edje_init())
+     goto shutdown_ecore_evas;
+   edje_frametime_set(1.0 / 30.0);
+
+   // search the theme file
+   struct stat st;
+   if (stat(PACKAGE_BUILD_DIR"/src/tests/emotion/data/theme.edj", &st) == 0)
+      theme_file = PACKAGE_BUILD_DIR"/src/tests/emotion/data/theme.edj";
+   else if (stat(PACKAGE_DATA_DIR"/data/theme.edj", &st) == 0)
+      theme_file = PACKAGE_DATA_DIR"/data/theme.edj";
+   else
+     {
+        printf("Cannot find the theme file\n");
+        goto shutdown_edje;
+     }
+   printf("theme file: %s\n", theme_file);
+
+   // parse command line arguments
+   ecore_app_args_set(argc, (const char **)argv);
+   args = ecore_getopt_parse(&options, values, argc, argv);
+   if (args < 0) goto shutdown_edje;
+   else if (help) goto shutdown_edje;
+   else if (engines_listed) goto shutdown_edje;
+   else if ((args == argc) && (!webcams))
+     {
+        printf("must provide at least one file to play!\n");
+        goto shutdown_edje;
+     }
+   if (geometry.w == 0) geometry.w = 320;
+   if (geometry.h == 0) geometry.h = 240;
+   vis = visual;
+
+   printf("evas engine: %s\n", engine ? engine : "<auto>");
+   printf("emotion backend: %s\n", backend ? backend : "<auto>");
+   printf("vis: %d\n", vis);
+   printf("geometry: %d %d %dx%d\n", geometry.x, geometry.y, geometry.w, geometry.h);
+
+   ecore_event_handler_add(ECORE_EVENT_SIGNAL_EXIT, main_signal_exit, NULL);
+
+   // create the ecore_evas window
+   ecore_evas = ecore_evas_new(engine, geometry.x, geometry.y,
+                               geometry.w, geometry.h, NULL);
+   if (!ecore_evas) goto shutdown_edje;
+   ecore_evas_callback_delete_request_set(ecore_evas, main_delete_request);
+   ecore_evas_callback_resize_set(ecore_evas, main_resize);
+   ecore_evas_title_set(ecore_evas, "Evas Media Test Program");
+   ecore_evas_name_class_set(ecore_evas, "evas_media_test", "main");
+   ecore_evas_show(ecore_evas);
+   evas = ecore_evas_get(ecore_evas);
+   evas_image_cache_set(evas, 8 * 1024 * 1024);
+   evas_font_cache_set(evas, 1 * 1024 * 1024);
+
+   // init emotion
+   emotion_init();
+
+   // create the checkboard background edje object
+   bg_setup();
+
+   // open files and webcams
+   for (; args < argc; args++)
+     init_video_object(backend, argv[args]);
+
+   if (webcams)
+     {
+        const Eina_List *wl, *l;
+        Emotion_Webcam *webcam;
+
+        wl = emotion_webcams_get();
+        EINA_LIST_FOREACH(wl, l, webcam)
+          {
+             printf("Playing stream: '%s' url: '%s'\n",
+                     emotion_webcam_name_get(webcam),
+                     emotion_webcam_device_get(webcam));
+             init_video_object(backend, emotion_webcam_device_get(webcam));
+          }
+     }
+
+   // start the main loop
+   ecore_main_loop_begin();
+
+   // shutdown
+   main_signal_exit(NULL, 0, NULL);
+
+   emotion_shutdown();
+   ecore_evas_free(ecore_evas);
+   ecore_evas_shutdown();
+   edje_shutdown();
+
+   return 0;
+
+ shutdown_edje:
+   edje_shutdown();
+ shutdown_ecore_evas:
+   ecore_evas_shutdown();
+
+   return -1;
+}