#ifdef HAVE_CONFIG_H
# include <config.h>
#endif

#include "ephysics_test.h"

#define EPHYSICS_TEST_LOG_COLOR EINA_COLOR_GREEN

int _ephysics_test_log_dom = -1;

typedef struct _EPhysics_Test EPhysics_Test;
struct _EPhysics_Test {
     const char *name;
     void (*func)(void *data, Evas_Object *obj, void *event_info);
};

/* examples prototypes */
void test_bouncing_3d(void *data, Evas_Object *obj, void *event_info);
void test_bouncing_ball(void *data, Evas_Object *obj, void *event_info);
void test_bouncing_text(void *data, Evas_Object *obj, void *event_info);
void test_camera(void *data, Evas_Object *obj, void *event_info);
void test_camera_track(void *data, Evas_Object *obj, void *event_info);
void test_coins(void *data, Evas_Object *obj, void *event_info);
void test_colliding_balls(void *data, Evas_Object *obj, void *event_info);
void test_collision(void *data, Evas_Object *obj, void *event_info);
void test_collision_filter(void *data, Evas_Object *obj, void *event_info);
void test_collision_speed(void *data, Evas_Object *obj, void *event_info);
void test_constraint(void *data, Evas_Object *obj, void *event_info);
void test_cube_3d(void *data, Evas_Object *obj, void *event_info);
void test_delete(void *data, Evas_Object *obj, void *event_info);
void test_dices(void *data, Evas_Object *obj, void *event_info);
void test_falling_letters(void *data, Evas_Object *obj, void *event_info);
void test_flag(void *data, Evas_Object *obj, void *event_info);
void test_flip_page(void *data, Evas_Object *obj, void *event_info);
void test_forces(void *data, Evas_Object *obj, void *event_info);
void test_grab(void *data, Evas_Object *obj, void *event_info);
void test_growing_balls(void *data, Evas_Object *obj, void *event_info);
void test_heavy(void *data, Evas_Object *obj, void *event_info);
void test_hinge(void *data, Evas_Object *obj, void *event_info);
void test_jumping_balls(void *data, Evas_Object *obj, void *event_info);
void test_light(void *data, Evas_Object *obj, void *event_info);
void test_material(void *data, Evas_Object *obj, void *event_info);
void test_no_gravity(void *data, Evas_Object *obj, void *event_info);
void test_rotate(void *data, Evas_Object *obj, void *event_info);
void test_rotating_forever(void *data, Evas_Object *obj, void *event_info);
void test_velocity(void *data, Evas_Object *obj, void *event_info);
void test_shapes(void *data, Evas_Object *obj, void *event_info);
void test_sleeping(void *data, Evas_Object *obj, void *event_info);
void test_slider(void *data, Evas_Object *obj, void *event_info);
void test_soft_body(void *data, Evas_Object *obj, void *event_info);
void test_soft_button(void *data, Evas_Object *obj, void *event_info);
void test_soft_sphere(void *data, Evas_Object *obj, void *event_info);
void test_win_resize(void *data, Evas_Object *obj, void *event_info);

static const EPhysics_Test tests[] = {
       {"Bouncing 3D", test_bouncing_3d},
       {"Bouncing Ball", test_bouncing_ball},
       {"Bouncing Text", test_bouncing_text},
       {"Camera", test_camera},
       {"Camera Track", test_camera_track},
       {"Colliding Balls", test_colliding_balls},
       {"Collision Detection", test_collision},
       {"Collision Filter", test_collision_filter},
       {"Collision High Speed", test_collision_speed},
       {"Constraint", test_constraint},
       {"Cube 3D", test_cube_3d},
       {"Dices", test_dices},
       {"Delete Body", test_delete},
       {"Falling Letters", test_falling_letters},
       {"Flag - Cloth", test_flag},
       {"Flip Page", test_flip_page},
       {"Forces", test_forces},
       {"Grab", test_grab},
       {"Growing Balls", test_growing_balls},
       {"Heavy", test_heavy},
       {"Hinge", test_hinge},
       {"Jumping Balls", test_jumping_balls},
       {"Light", test_light},
       {"Material", test_material},
       {"No Gravity", test_no_gravity},
       {"Raster's Coins", test_coins},
       {"Rotate", test_rotate},
       {"Rotating Forever", test_rotating_forever},
       {"Velocity", test_velocity},
       {"Shapes", test_shapes},
       {"Sleeping Threshold", test_sleeping},
       {"Slider", test_slider},
       {"Soft Body", test_soft_body},
       {"Soft Button", test_soft_button},
       {"Soft Sphere", test_soft_sphere},
       {"Win Resize", test_win_resize},
};

static void
_win_del(void *data __UNUSED__, Evas_Object *obj __UNUSED__, void *event_info __UNUSED__)
{
   elm_exit();
}

static void
_subwin_del_cb(void *data, Evas *e __UNUSED__, Evas_Object *obj __UNUSED__, void *event_info __UNUSED__)
{
   test_data_del(data);
   ephysics_shutdown();
}

void
update_object_cb(void *data, EPhysics_Body *body, void *event_info)
{
   Evas_Object *sphere = event_info;
   Evas_Object *shadow = data;
   Edje_Message_Float msg;
   Evas_Object *edje;
   int x, y, w, h;

   ephysics_body_evas_object_update(body);
   evas_object_geometry_get(sphere, &x, &y, &w, &h);

   if (y > SH_THRESHOLD)
     {
        int sh_w;

        msg.val = (double) (y - SH_THRESHOLD) / (FLOOR_Y - SH_THRESHOLD - h);
        sh_w = (1 + 2 * msg.val) * w / 3;
        evas_object_resize(shadow, sh_w, 3);
        evas_object_move(shadow, x + (w - sh_w) / 2, FLOOR_Y);
     }
   else
        msg.val = 0;

   edje = elm_layout_edje_get(shadow);
   edje_object_message_send(edje, EDJE_MESSAGE_FLOAT, SHADOW_ALPHA_ID, &msg);
}

void
test_clean(Test_Data *test_data)
{
   EPhysics_Constraint *constraint;
   Evas_Object *evas_obj;
   EPhysics_Body *body;

   EINA_LIST_FREE(test_data->constraints, constraint)
      ephysics_constraint_del(constraint);

   EINA_LIST_FREE(test_data->bodies, body)
      ephysics_body_del(body);

   EINA_LIST_FREE(test_data->evas_objs, evas_obj)
      evas_object_del(evas_obj);
}

void
test_data_del(Test_Data *test_data)
{
   Evas_Object *evas_obj;
   EINA_LIST_FREE(test_data->evas_objs, evas_obj)
      evas_object_del(evas_obj);

   eina_list_free(test_data->bodies);
   eina_list_free(test_data->constraints);

   evas_object_del(test_data->layout);
   ephysics_world_del(test_data->world);
   free(test_data);
}

Test_Data *
test_data_new(void)
{
   Test_Data *test_data;

   test_data = calloc(1, sizeof(Test_Data));
   if (!test_data)
     ERR("Failed to create test data");

   return test_data;
}

void
test_win_add(Test_Data *test_data, const char *title, Eina_Bool autodel)
{
   Evas_Object *win, *ly;

   win = elm_win_add(NULL, title, ELM_WIN_BASIC);
   elm_win_title_set(win, title);
   elm_win_autodel_set(win, EINA_TRUE);
   evas_object_show(win);
   test_data->win = win;
   if (autodel)
     evas_object_event_callback_add(win, EVAS_CALLBACK_DEL,
                                    _subwin_del_cb, test_data);

   ly = elm_layout_add(win);
   elm_win_resize_object_add(win, ly);
   evas_object_size_hint_min_set(ly, WIDTH, HEIGHT);
   evas_object_size_hint_max_set(ly, WIDTH, HEIGHT);
   elm_layout_file_set(ly, PACKAGE_DATA_DIR "/" EPHYSICS_TEST_THEME ".edj",
                       "frame");
   evas_object_show(ly);
   test_data->layout = ly;
}

static void
_test_run(char *autorun)
{
   unsigned int i;

   for (i = 0; i < EINA_C_ARRAY_LENGTH(tests); i++)
     {
        EPhysics_Test test = tests[i];
        if (!strcmp(test.name, autorun))
          {
             test.func(NULL, NULL, NULL);
             return;
          }
     }
}

static void
_main_win_add(char *autorun)
{
   Elm_Object_Item *selected = NULL;
   Evas_Object *win, *list;
   unsigned int i;

   win = elm_win_add(NULL, "main", ELM_WIN_BASIC);
   elm_win_title_set(win, "EPhysics Tests");
   evas_object_smart_callback_add(win, "delete,request", _win_del, NULL);
   elm_win_autodel_set(win, EINA_TRUE);
   evas_object_resize(win, 460, 560);
   evas_object_show(win);

   list = elm_list_add(win);
   elm_object_style_set(list, "ephysics-test");
   elm_list_select_mode_set(list, ELM_OBJECT_SELECT_MODE_ALWAYS);
   evas_object_size_hint_weight_set(list, EVAS_HINT_EXPAND, EVAS_HINT_EXPAND);
   elm_win_resize_object_add(win, list);
   evas_object_show(list);

   for (i = 0; i < EINA_C_ARRAY_LENGTH(tests); i++)
     {
        Elm_Object_Item *item;
        EPhysics_Test test;

        test = tests[i];
        item = elm_list_item_append(list, test.name, NULL, NULL, test.func,
                                    NULL);

        if ((autorun) && (!strcmp(test.name, autorun)))
          selected = item;
     }

   elm_list_go(list);

   if (selected)
     elm_list_item_bring_in(selected);

   if (autorun)
     _test_run(autorun);
}

EAPI_MAIN int
elm_main(int argc, char **argv)
{
   Eina_Bool test_win_only = EINA_FALSE;
   char *autorun = NULL;

   _ephysics_test_log_dom = eina_log_domain_register(
      "ephysics-test", EPHYSICS_TEST_LOG_COLOR);
   if (_ephysics_test_log_dom < 0)
     {
        EINA_LOG_CRIT("Could not register log domain: ephysics-test");
        return -1;
     }

   elm_policy_set(ELM_POLICY_QUIT, ELM_POLICY_QUIT_LAST_WINDOW_CLOSED);
   elm_policy_set(ELM_POLICY_EXIT, ELM_POLICY_EXIT_WINDOWS_DEL);

   elm_app_compile_bin_dir_set(PACKAGE_BIN_DIR);
   elm_app_compile_data_dir_set(PACKAGE_DATA_DIR);

   /* if called with a single argument try to autorun a test with
    * the same name as the given param
    * ex: ephysics_test "Jumping Balls" */
   if (argc == 2)
     autorun = argv[1];
   else if (argc == 3)
     {
        if ((!strcmp(argv[1], "--test-win-only")) ||
            (!strcmp(argv[1], "-to")))
          {
             test_win_only = EINA_TRUE;
             autorun = argv[2];
          }
     }

   elm_theme_extension_add(NULL,
                           PACKAGE_DATA_DIR "/" EPHYSICS_TEST_THEME ".edj");

   if (test_win_only)
       _test_run(autorun);
   else
       _main_win_add(autorun);

   elm_run();

   eina_log_domain_unregister(_ephysics_test_log_dom);
   _ephysics_test_log_dom = -1;

   elm_shutdown();
   return 0;
}
ELM_MAIN()