/* Portion Copyright © 2008-09 Nokia Corporation and/or its subsidiary(-ies). All rights reserved.*/

#include <unistd.h>

#include <glib.h>

#include <glib-object.h>

#ifdef SYMBIAN

#include "glib_global.h"

#include "mrt2_glib2_test.h"

#define MULTITHREAD

//#define TEST_STOP_EMISSION

//#define VERBOSE

#define LOOP 3 

int TESTNUM;

int notifynum;

int handlernum;

gulong  hookid;

GValue gv ;

GSignalQuery gq;

guint gi;

#endif /*SYMBIAN*/

static GRand *grand;

typedef struct _GTest GTest;

typedef struct _GTestClass GTestClass;

struct _GTest

{

  GObject object;

  gint value;

};

struct _GTestClass

{

  GObjectClass parent_class;

  void (*test_signal1) (GTest * test, gint an_int);

  void (*test_signal2) (GTest * test, gint an_int);

};

static volatile gboolean stopping;

/* Element signals and args */

enum

{

  TEST_SIGNAL1,

  TEST_SIGNAL2,

  /* add more above */

  LAST_SIGNAL

};

enum

{

  ARG_0,

  ARG_TEST_PROP

};

static void signal2_handler (GTest * test, gint anint);

    const GValue * value, GParamSpec * pspec);

    GValue * value, GParamSpec * pspec);

static GObjectClass *parent_class = NULL;

static GType

{

  static GType test_type = 0;

  if (!test_type) {

    static const GTypeInfo test_info = {

      sizeof (GTestClass),

      NULL,

      NULL,

      NULL,

      NULL,

      sizeof (GTest),

      0,

      NULL

    };

    grand = g_rand_new();

    test_type = g_type_register_static (G_TYPE_OBJECT, "GTest",

        &test_info, 0);

  }

  return test_type;

}

static void

{

  GObjectClass *gobject_class;

  gobject_class = (GObjectClass *) klass;

  parent_class = g_type_class_ref (G_TYPE_OBJECT);

#ifndef SYMBIAN

  if (!g_thread_supported ())

    g_thread_init (NULL);

#else

#ifdef MULTITHREAD  

  if (!g_thread_supported ())

    g_thread_init (NULL);

#endif /*MULTITHREAD*/

#endif /*SYMBAIN*/

      g_signal_new ("test-signal1", G_TYPE_FROM_CLASS (klass),

      G_SIGNAL_RUN_LAST, G_STRUCT_OFFSET (GTestClass, test_signal1), NULL,

      NULL, g_cclosure_marshal_VOID__INT, G_TYPE_NONE, 1, G_TYPE_INT);

      g_signal_new ("test-signal2", G_TYPE_FROM_CLASS (klass),

      G_SIGNAL_RUN_LAST, G_STRUCT_OFFSET (GTestClass, test_signal2), NULL,

      NULL, g_cclosure_marshal_VOID__INT, G_TYPE_NONE, 1, G_TYPE_INT);

  g_object_class_install_property (G_OBJECT_CLASS (klass), ARG_TEST_PROP,

      g_param_spec_int ("test-prop", "Test Prop", "Test property",

          0, 1, 0, G_PARAM_READWRITE));

  klass->test_signal2 = signal2_handler;

}

static void

{

  #ifndef SYMBIAN

  g_print ("init %p\n", test);

  #else

  #ifdef VERBOSE

  g_print ("init %p\n", test);

  #endif

  #endif /*SYMBIAN*/  

  test->value = 0;

}

static void

{

  GTest *test;

  g_print ("dispose %p!\n", object);

  G_OBJECT_CLASS (parent_class)->dispose (object);

}

static void

{

  GTest *test;

  switch (prop_id) {

    case ARG_TEST_PROP:

      test->value = g_value_get_int (value);

      break;

    default:

      G_OBJECT_WARN_INVALID_PROPERTY_ID (object, prop_id, pspec);

      break;

  }

}

static void

{

  GTest *test;

  switch (prop_id) {

    case ARG_TEST_PROP:

      g_value_set_int (value, test->value);

      break;

    default:

      G_OBJECT_WARN_INVALID_PROPERTY_ID (object, prop_id, pspec);

      break;

  }

}

static void

{

}

static void

signal2_handler (GTest * test, gint anint)

{

	#ifdef VERBOSE

	g_print ("Function: signal2_handler called\n");

	#endif

	handlernum++;

}

static void

{

}

static void

{

  test->value = g_rand_int (grand);

  g_object_notify (G_OBJECT (test), "test-prop");

}

static gpointer

run_thread (GTest * test)

{

  gint i = 1;

#ifndef SYMBIAN

  while (!stopping)

   {

    if (TESTNUM == 1)

    if (TESTNUM == 2)

    if (TESTNUM == 3)

    if ((i++ % 10000) == 0) {

      g_print (".");

    }

   }

#else

#ifdef MULTITHREAD

  while (!stopping)

   {

    if (TESTNUM == 1)

    if (TESTNUM == 2)

    if (TESTNUM == 3)

    if ((i++ % 10/*000*/) == 0) 

    {

    #ifdef VERBOSE

      g_print (".");

    #endif  /*VERBOSE*/

     g_thread_yield(); /* force context switch */

    }

   }

#else

  for(i=0;i <= LOOP;i++)    

  {

    if (TESTNUM == 1)

    if (TESTNUM == 2)

    if (TESTNUM == 3)

    #ifdef 	VERBOSE

    g_print(".");

    #endif

  }

#endif /*MULTITHREAD*/

#endif /*SYMBIAN*/ 

  return NULL;

}

static void

notify (GObject *object, GParamSpec *spec, gpointer user_data)

{

  gint value;

  notifynum++;

	#ifdef VERBOSE

	g_print ("Function: notify called\n");

	#endif

  g_object_get (object, "test-prop", &value, NULL);

}

#ifdef SYMBIAN

void hook_function()

{

	#ifdef VERBOSE

	g_print ("Function: hook_function called\n");

	#endif

	handlernum++;

}

#endif

int

main (int argc, char **argv)

{

  gint i;

  GTest *test1, *test2;

  GArray *test_threads;

  const gint n_threads = 1;

  #ifdef SYMBIAN

  g_log_set_handler (NULL,  G_LOG_FLAG_FATAL| G_LOG_FLAG_RECURSION | G_LOG_LEVEL_CRITICAL | G_LOG_LEVEL_WARNING | G_LOG_LEVEL_MESSAGE | G_LOG_LEVEL_INFO | G_LOG_LEVEL_DEBUG, &mrtLogHandler, NULL);

  g_set_print_handler(mrtPrintHandler);

  g_thread_init (NULL);

  #ifndef SYMBIAN

  g_print ("START: %s\n", argv[0]);

  #else

  #ifdef VERBOSE

  g_print ("START: %s\n", argv[0]);

  #endif

  #endif /*SYMBIAN*/  

  g_log_set_always_fatal (G_LOG_LEVEL_WARNING | G_LOG_LEVEL_CRITICAL | g_log_set_always_fatal (G_LOG_FATAL_MASK));

  g_type_init ();

  test1 = g_object_new (G_TYPE_TEST, NULL);

  test2 = g_object_new (G_TYPE_TEST, NULL);

  g_signal_connect (test1, "notify::test-prop", G_CALLBACK (notify), NULL);

  g_signal_connect (test1, "test-signal1", G_CALLBACK (notify), NULL);

  g_signal_connect (test1, "test-signal2", G_CALLBACK (notify), NULL);

#ifndef SYMBIAN

  test_threads = g_array_new (FALSE, FALSE, sizeof (GThread *));

  stopping = FALSE;

  for (i = 0; i < n_threads; i++) {

    GThread *thread;

    thread = g_thread_create ((GThreadFunc) run_thread, test1, TRUE, NULL);

    g_array_append_val (test_threads, thread);

    thread = g_thread_create ((GThreadFunc) run_thread, test2, TRUE, NULL);

    g_array_append_val (test_threads, thread);

  }

  g_usleep (500000);

  stopping = TRUE;

  g_print ("\nstopping\n");

  /* join all threads */

  for (i = 0; i < 2 * n_threads; i++) {

    GThread *thread;

    thread = g_array_index (test_threads, GThread *, i);

    g_thread_join (thread);

  }

  g_print ("stopped:%d\n",TESTNUM);

#else

#ifdef MULTITHREAD

  test_threads = g_array_new (FALSE, FALSE, sizeof (GThread *));

  stopping = FALSE;

  TESTNUM=1;

  notifynum=0;

  handlernum=0;

  for (i = 0; i < n_threads; i++) 

  {

    GThread *thread;

    thread = g_thread_create ((GThreadFunc) run_thread, test1, TRUE, NULL);

    g_array_append_val (test_threads, thread);

    thread = g_thread_create ((GThreadFunc) run_thread, test2, TRUE, NULL);

    g_array_append_val (test_threads, thread);

  }

  g_usleep (500000);

  stopping = TRUE;

  #ifdef VERBOSE	

  g_print ("\nstopping\n");

  #endif

  /* join all threads */

  for (i = 0; i < 2 * n_threads; i++) 

  {

    GThread *thread;

    thread = g_array_index (test_threads, GThread *, i);

    g_thread_join (thread);

  }    

  g_assert(notifynum != 0);

  g_assert(handlernum == 0);

  g_array_free (test_threads, TRUE);

  #ifdef VERBOSE

  g_print ("Signals.c: completed for TESTNUM = %d\n",TESTNUM);

  #endif

  test_threads = g_array_new (FALSE, FALSE, sizeof (GThread *));

  stopping = FALSE;

  TESTNUM=2;

  notifynum=0;

  handlernum=0;

  for (i = 0; i < n_threads; i++) 

  {

    GThread *thread;

    thread = g_thread_create ((GThreadFunc) run_thread, test1, TRUE, NULL);

    g_array_append_val (test_threads, thread);

    thread = g_thread_create ((GThreadFunc) run_thread, test2, TRUE, NULL);

    g_array_append_val (test_threads, thread);

  }

  g_usleep (500000);

  stopping = TRUE;

  #ifdef VERBOSE	

  g_print ("\nstopping\n");

  #endif

  /* join all threads */

  for (i = 0; i < 2 * n_threads; i++) 

  {

    GThread *thread;

    thread = g_array_index (test_threads, GThread *, i);

    g_thread_join (thread);

  }

  g_assert(notifynum != 0);

  g_assert(handlernum != 0);

  g_array_free (test_threads, TRUE);

  #ifdef VERBOSE

  g_print ("Signals.c: completed for TESTNUM = %d\n",TESTNUM);

  #endif  

  test_threads = g_array_new (FALSE, FALSE, sizeof (GThread *));

  stopping = FALSE;

  TESTNUM=3;

  notifynum=0;

  handlernum=0;

  for (i = 0; i < n_threads; i++) 

  {

    GThread *thread;

    thread = g_thread_create ((GThreadFunc) run_thread, test1, TRUE, NULL);

    g_array_append_val (test_threads, thread);

    thread = g_thread_create ((GThreadFunc) run_thread, test2, TRUE, NULL);

    g_array_append_val (test_threads, thread);

  }

  g_usleep (5000000);

  stopping = TRUE;

  #ifdef VERBOSE	

  g_print ("\nstopping\n");

  #endif

  /* join all threads */

  for (i = 0; i < 2 * n_threads; i++) 

  {

    GThread *thread;

    thread = g_array_index (test_threads, GThread *, i);

    g_thread_join (thread);

  }

  g_assert(notifynum != 0);

  g_assert(handlernum == 0);

  g_array_free (test_threads, TRUE);

  #ifdef VERBOSE

  g_print ("Signals.c: completed for TESTNUM = %d\n",TESTNUM);