/*

 * Java ATK Wrapper for GNOME

 * Copyright (C) 2009 Sun Microsystems Inc.

 *

 * This library is free software; you can redistribute it and/or

 * modify it under the terms of the GNU Lesser General Public

 * License as published by the Free Software Foundation; either

 * version 2.1 of the License, or (at your option) any later version.

 *

 * This library is distributed in the hope that it will be useful,

 * but WITHOUT ANY WARRANTY; without even the implied warranty of

 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU

 * Lesser General Public License for more details.

 *

 * You should have received a copy of the GNU Lesser General Public

 * License along with this library; if not, write to the Free Software

 * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA

 */

#include <atk/atk.h>

#include <glib.h>

#include "jawimpl.h"

#include "jawutil.h"

extern void	jaw_value_interface_init (AtkValueIface*);

extern gpointer	jaw_value_data_init (jobject ac);

extern void	jaw_value_data_finalize (gpointer);

static void jaw_value_get_current_value(AtkValue *obj, GValue *value);

static void jaw_value_get_maximum_value(AtkValue *obj, GValue *value);

static void jaw_value_get_minimum_value(AtkValue *obj, GValue *value);

static gboolean jaw_value_set_current_value(AtkValue *obj, const GValue *value);

static gdouble jaw_value_get_increment (AtkValue *obj);

typedef struct _ValueData {

  jobject atk_value;

} ValueData;

void

jaw_value_interface_init (AtkValueIface *iface)

{

  iface->get_current_value = jaw_value_get_current_value;

  iface->get_maximum_value = jaw_value_get_maximum_value;

  iface->get_minimum_value = jaw_value_get_minimum_value;

  iface->set_current_value = jaw_value_set_current_value;

  iface->get_increment = jaw_value_get_increment;

}

gpointer

jaw_value_data_init (jobject ac)

{

  ValueData *data = g_new0(ValueData, 1);

  JNIEnv *jniEnv = jaw_util_get_jni_env();

  jclass classValue = (*jniEnv)->FindClass(jniEnv,

                                           "org/GNOME/Accessibility/AtkValue");

  jmethodID jmid = (*jniEnv)->GetMethodID(jniEnv,

                                          classValue,

                                          "<init>",

                                          "(Ljavax/accessibility/AccessibleContext;)V");

  jobject jatk_value = (*jniEnv)->NewObject(jniEnv, classValue, jmid, ac);

  data->atk_value = (*jniEnv)->NewGlobalRef(jniEnv, jatk_value);

  return data;

}

void

jaw_value_data_finalize (gpointer p)

{

  ValueData *data = (ValueData*)p;

  JNIEnv *jniEnv = jaw_util_get_jni_env();

  if (data && data->atk_value)

  {

    (*jniEnv)->DeleteGlobalRef(jniEnv, data->atk_value);

    data->atk_value = NULL;

  }

}

static void

get_g_value_from_java_number (JNIEnv *jniEnv, jobject jnumber, GValue *value)

{

  jclass classByte = (*jniEnv)->FindClass(jniEnv, "java/lang/Byte");

  jclass classDouble = (*jniEnv)->FindClass(jniEnv, "java/lang/Double");

  jclass classFloat = (*jniEnv)->FindClass(jniEnv, "java/lang/Float");

  jclass classInteger = (*jniEnv)->FindClass(jniEnv, "java/lang/Integer");

  jclass classLong = (*jniEnv)->FindClass(jniEnv, "java/lang/Long");

  jclass classShort = (*jniEnv)->FindClass(jniEnv, "java/lang/Short");

  jmethodID jmid;

  if ((*jniEnv)->IsInstanceOf(jniEnv, jnumber, classByte))

  {

    jmid = (*jniEnv)->GetMethodID(jniEnv, classByte, "byteValue", "()B");

    g_value_init(value, G_TYPE_CHAR);

    g_value_set_schar(value,

                      (gchar)(*jniEnv)->CallByteMethod(jniEnv, jnumber, jmid));

    return;

  }

  if ((*jniEnv)->IsInstanceOf(jniEnv, jnumber, classDouble))

  {

    jmid = (*jniEnv)->GetMethodID(jniEnv, classDouble, "doubleValue", "()D");

    g_value_init(value, G_TYPE_DOUBLE);

    g_value_set_double(value,

                       (gdouble)(*jniEnv)->CallDoubleMethod(jniEnv, jnumber, jmid));

    return;

  }

  if ((*jniEnv)->IsInstanceOf(jniEnv, jnumber, classFloat))

  {

    jmid = (*jniEnv)->GetMethodID(jniEnv, classFloat, "floatValue", "()F");

    g_value_init(value, G_TYPE_FLOAT);

    g_value_set_float(value,

                      (gfloat)(*jniEnv)->CallFloatMethod(jniEnv, jnumber, jmid));

    return;

  }

  if ((*jniEnv)->IsInstanceOf(jniEnv, jnumber, classInteger)

    || (*jniEnv)->IsInstanceOf(jniEnv, jnumber, classShort))

    {

    jmid = (*jniEnv)->GetMethodID(jniEnv, classInteger, "intValue", "()I");

    g_value_init(value, G_TYPE_INT);

    g_value_set_int(value,

                    (gint)(*jniEnv)->CallIntMethod(jniEnv, jnumber, jmid));

    return;

  }

  if ((*jniEnv)->IsInstanceOf(jniEnv, jnumber, classLong)) {

    jmid = (*jniEnv)->GetMethodID(jniEnv, classLong, "longValue", "()J");

    g_value_init(value, G_TYPE_INT64);

    g_value_set_int64(value,

                      (gint64)(*jniEnv)->CallLongMethod(jniEnv, jnumber, jmid));

    return;

  }

}

static void

jaw_value_get_current_value (AtkValue *obj, GValue *value)

{

  if (!value)

  {

    return;

  }

  JawObject *jaw_obj = JAW_OBJECT(obj);

  ValueData *data = jaw_object_get_interface_data(jaw_obj, INTERFACE_VALUE);

  jobject atk_value = data->atk_value;

  JNIEnv *jniEnv = jaw_util_get_jni_env();

  jclass classAtkValue = (*jniEnv)->FindClass(jniEnv,

                                              "org/GNOME/Accessibility/AtkValue");

  jmethodID jmid = (*jniEnv)->GetMethodID(jniEnv,

                                          classAtkValue,

                                          "get_current_value",

                                          "()Ljava/lang/Number;");

  jobject jnumber = (*jniEnv)->CallObjectMethod(jniEnv,

                                                atk_value,

                                                jmid);

  if (!jnumber)

  {

    return;

  }

  get_g_value_from_java_number(jniEnv, jnumber, value);

}

static void

jaw_value_get_maximum_value (AtkValue *obj, GValue *value)

{

  if (!value)

  {

    return;

  }

  JawObject *jaw_obj = JAW_OBJECT(obj);

  ValueData *data = jaw_object_get_interface_data(jaw_obj, INTERFACE_VALUE);

  jobject atk_value = data->atk_value;

  JNIEnv *jniEnv = jaw_util_get_jni_env();

  jclass classAtkValue = (*jniEnv)->FindClass(jniEnv,

                                              "org/GNOME/Accessibility/AtkValue");

  jmethodID jmid = (*jniEnv)->GetMethodID(jniEnv,

                                          classAtkValue,

                                          "get_maximum_value",

                                          "()Ljava/lang/Number;");

  jobject jnumber = (*jniEnv)->CallObjectMethod(jniEnv, atk_value, jmid);

  if (!jnumber)

  {

    return;

  }

  get_g_value_from_java_number(jniEnv, jnumber, value);

}

static void

jaw_value_get_minimum_value (AtkValue *obj, GValue *value)

{

  if (!value)

  {

    return;

  }

  JawObject *jaw_obj = JAW_OBJECT(obj);

  ValueData *data = jaw_object_get_interface_data(jaw_obj, INTERFACE_VALUE);

  jobject atk_value = data->atk_value;

  JNIEnv *jniEnv = jaw_util_get_jni_env();

  jclass classAtkValue = (*jniEnv)->FindClass(jniEnv,

                                              "org/GNOME/Accessibility/AtkValue");

  jmethodID jmid = (*jniEnv)->GetMethodID(jniEnv,

                                          classAtkValue,

                                          "get_minimum_value",

                                          "()Ljava/lang/Number;");

  jobject jnumber = (*jniEnv)->CallObjectMethod(jniEnv, atk_value, jmid);

  if (!jnumber)

  {

    return;

  }

  get_g_value_from_java_number(jniEnv, jnumber, value);

}

static gboolean

jaw_value_set_current_value (AtkValue *obj, const GValue *value)

{

  if (!value)

  {

    return FALSE;

  }

  if (!G_TYPE_IS_FUNDAMENTAL (G_VALUE_TYPE (value)))

  {

    return FALSE;

  }

  JawObject *jaw_obj = JAW_OBJECT(obj);

  ValueData *data = jaw_object_get_interface_data(jaw_obj, INTERFACE_VALUE);

  jobject atk_value = data->atk_value;

  JNIEnv *jniEnv = jaw_util_get_jni_env();

  jclass classAtkValue = (*jniEnv)->FindClass(jniEnv,

                                              "org/GNOME/Accessibility/AtkValue");

  jmethodID jmid = (*jniEnv)->GetMethodID(jniEnv,

                                          classAtkValue,

                                          "set_current_value",

                                          "(Ljava/lang/Number;)Z");

  jboolean jbool;

  jclass klass;

  jmethodID jmidInit;

  jobject o;

  switch (value->g_type) {

    case G_TYPE_CHAR:

    {

      gchar c = g_value_get_schar(value);

      klass = (*jniEnv)->FindClass(jniEnv, "java/lang/Byte");

      jmidInit = (*jniEnv)->GetMethodID(jniEnv, klass, "<init>", "(B)V");

      o = (*jniEnv)->NewObject(jniEnv, klass, jmidInit, (jbyte)c);

      jbool = (*jniEnv)->CallBooleanMethod(jniEnv, atk_value, jmid, o);

      break;

    }

    case G_TYPE_DOUBLE:

    {

      gdouble d = g_value_get_double(value);

      klass = (*jniEnv)->FindClass(jniEnv, "java/lang/Double");

      jmidInit = (*jniEnv)->GetMethodID(jniEnv, klass, "<init>", "(D)V");

      o = (*jniEnv)->NewObject(jniEnv, klass, jmidInit, (jdouble)d);

      jbool = (*jniEnv)->CallBooleanMethod(jniEnv, atk_value, jmid, o);

      break;

    }

    case G_TYPE_FLOAT:

    {

      gfloat f = g_value_get_float(value);

      klass = (*jniEnv)->FindClass(jniEnv, "java/lang/Float");

      jmidInit = (*jniEnv)->GetMethodID(jniEnv, klass, "<init>", "(F)V");

      o = (*jniEnv)->NewObject(jniEnv, klass, jmidInit, (jfloat)f);

      jbool = (*jniEnv)->CallBooleanMethod(jniEnv, atk_value, jmid, o);

      break;

    }

    case G_TYPE_INT:

    {

      gint i = g_value_get_int(value);

      klass = (*jniEnv)->FindClass(jniEnv, "java/lang/Integer");

      jmidInit = (*jniEnv)->GetMethodID(jniEnv, klass, "<init>", "(I)V");

      o = (*jniEnv)->NewObject(jniEnv, klass, jmidInit, (jint)i);

      jbool = (*jniEnv)->CallBooleanMethod(jniEnv, atk_value, jmid, o);

      break;

    }

    case G_TYPE_INT64:

    {

      gint64 i64 = g_value_get_int64(value);

      klass = (*jniEnv)->FindClass(jniEnv, "java/lang/Long");

      jmidInit = (*jniEnv)->GetMethodID(jniEnv, klass, "<init>", "(J)V");

      o = (*jniEnv)->NewObject(jniEnv, klass, jmidInit, (jlong)i64);

      jbool = (*jniEnv)->CallBooleanMethod(jniEnv, atk_value, jmid, o);

      break;

    }

    default:

      return FALSE;

  }

  return (jbool == JNI_TRUE) ? TRUE : FALSE;

}

static gdouble

jaw_value_get_increment (AtkValue *obj)

{

 return atk_value_get_increment(obj);

}