/*
   D-Bus Java Bindings
   Copyright (c) 2005-2006 Matthew Johnson

   This program is free software; you can redistribute it and/or modify it
   under the terms of either the GNU General Public License Version 2 or the
   Academic Free Licence Version 2.1.

   Full licence texts are included in the COPYING file with this program.
*/
#include "org_freedesktop_dbus_DBusConnection.h"
#include "org_freedesktop_dbus_DBusErrorMessage.h"
#include "org_freedesktop_dbus_MethodCall.h"
#include <dbus/dbus.h>
#include <stdbool.h>
#include <string.h>
#include <stdio.h>
#include <stdlib.h>
#include <stdint.h>

typedef struct nodestruct node;
struct nodestruct {
   DBusConnection* conn;
   jint cidx;
   node* next;
   node* last;
};
node* root = NULL;
bool debug = false;

jint storeconn(DBusConnection* conn)
{
   node* n = malloc(sizeof(node));
   n->conn = conn;
   n->next = NULL;
   if (NULL == root) {
      root = n;
      n->last = NULL;
      n->cidx = 1;
      return 1;
   } else {
      node* t = root;
      while (NULL != t->next) t = t->next; 
      n->last = t;
      t->next = n;
      n->cidx = t->cidx+1;
      return n->cidx;
   }
}
void removeconn(jint cidx)
{
   node* t = root;
   while (NULL != t && t->cidx != cidx) t = t->next;
   if (NULL != t) {
      if (t->last != NULL)
         t->last->next = t->next;
      if (t->next != NULL)
         t->next->last = t->last;
      free(t);
   }
}
DBusConnection* getconn(JNIEnv * env, jint cidx)
{
   node* t = root;
   while (NULL != t && t->cidx != cidx) t = t->next;
   if (NULL != t) 
      return t->conn;
   else {
      jclass dbeclass = (*env)->FindClass(env, "org/freedesktop/dbus/DBusException");
      char message[70];
      message[0] = '\0';
      strncat((char*) message, "Getting stored connection returned NULL, id = ", 70);
      char id[20];
      snprintf(id, 20, "%d", cidx);
      char* fmessage = strncat((char*)message, id, 70);
      (*env)->ThrowNew(env, dbeclass, fmessage);
      (*env)->DeleteLocalRef(env, dbeclass);
      return NULL;
   }
}

/*
 * Class:     org_freedesktop_dbus_DBusErrorMessage
 * Method:    createExceptionClass
 * Signature: (Ljava/lang/String;)Ljava/lang/Class;
 */
JNIEXPORT jclass JNICALL Java_org_freedesktop_dbus_DBusErrorMessage_createExceptionClass
  (JNIEnv * env, jclass emsg, jstring name)
{
   int j;
   const char* cname = (*env)->GetStringUTFChars(env, name, 0);
   int clen = strlen(cname);
   char* cclassname = malloc(clen+1);
   memset(cclassname, 0, clen+1);
   for (j = 0; j < clen; j++)
      if ('.' == cname[j]) 
         cclassname[j] = '/';
      else
         cclassname[j] = cname[j];
   jclass exclass = NULL;
   do {
      exclass = (*env)->FindClass(env, cclassname);
      (*env)->ExceptionClear(env);
      if (NULL == exclass) {
         while (j > 0 && cclassname[j] != '/') j--;
         if (j > 0) cclassname[j] = '$';
      }
   } while (NULL == exclass && j > 0);
   free(cclassname);
   (*env)->ReleaseStringUTFChars(env, name, cname);
   return exclass;
}

/*
 * Class:     org_freedesktop_dbus_DBusConnection
 * Method:    get_exception_debug_state
 * Signature: ()Z
 */
JNIEXPORT jboolean JNICALL Java_org_freedesktop_dbus_DBusConnection_get_1exception_1debug_1state
  (JNIEnv * env, jobject o)
{
   // check debug status
   return (NULL != getenv("DBUS_JAVA_EXCEPTION_DEBUG"));
}


/*
 * Class:     org_freedesktop_dbus_DBusConnection
 * Method:    dbus_connect
 * Signature: (I)I
 */
JNIEXPORT jint JNICALL Java_org_freedesktop_dbus_DBusConnection_dbus_1connect__I
  (JNIEnv * env, jobject o, jint bus)
{
   const char* address;
   const char* message = NULL;
   DBusError err;
   DBusConnection* conn;
   // initialise the errors
   dbus_error_init(&err);
   jclass dbeclass = (*env)->FindClass(env, "org/freedesktop/dbus/DBusException");

   // check debug status
   debug = (NULL != getenv("DBUS_JAVA_DEBUG"));

   // connect to the bus
   if (org_freedesktop_dbus_DBusConnection_SESSION == bus)
      address = getenv("DBUS_SESSION_BUS_ADDRESS");
   else if (org_freedesktop_dbus_DBusConnection_SYSTEM == bus) {
      address = getenv("DBUS_SYSTEM_BUS_ADDRESS");
      if (NULL == address)
         address = "unix:path=/var/run/dbus/system_bus_socket";
   } else {
      (*env)->ThrowNew(env, dbeclass, "Invalid Bus Type");
      return -1;
   }

   if (NULL == address) {
      (*env)->ThrowNew(env, dbeclass, "Failed to get Bus Address");
      return -1;
   }

   conn = dbus_connection_open_private(address, &err);
   
   if (dbus_error_is_set(&err)) {
      message = err.message;
   } 
   if (NULL == conn) {
      if (NULL == message)
         (*env)->ThrowNew(env, dbeclass, "Failed to Connect to Bus");
      else
         (*env)->ThrowNew(env, dbeclass, message);
      return -1;
   }

   if (debug) fprintf(stderr, "<connected: %s\n>", address);

   return storeconn(conn);
}

/*
 * Class:     org_freedesktop_dbus_DBusConnection
 * Method:    dbus_connect
 * Signature: (I)I
 */
JNIEXPORT jint JNICALL Java_org_freedesktop_dbus_DBusConnection_dbus_1connect__Ljava_lang_String_2
  (JNIEnv * env, jobject o, jstring address)
{
   const char* caddress;
   const char* message = NULL;
   DBusError err;
   DBusConnection* conn;
   // initialise the errors
   dbus_error_init(&err);
   jclass dbeclass = (*env)->FindClass(env, "org/freedesktop/dbus/DBusException");

   // check debug status
   debug = (NULL != getenv("DBUS_JAVA_DEBUG"));

   caddress = (*env)->GetStringUTFChars(env, address, 0);

   if (NULL == caddress) {
      (*env)->ThrowNew(env, dbeclass, "Failed to get Bus Address");
      return -1;
   }

   conn = dbus_connection_open_private(caddress, &err);
   if (debug) fprintf(stderr, "<connected: %s>\n", caddress);
   (*env)->ReleaseStringUTFChars(env, address, caddress);
   
   if (dbus_error_is_set(&err)) {
      message = err.message;
      dbus_error_free(&err); 
   } 
   if (NULL == conn) {
      if (NULL == message)
         (*env)->ThrowNew(env, dbeclass, "Failed to Connect to Bus");
      else
         (*env)->ThrowNew(env, dbeclass, message);
      return -1;
   }

   return storeconn(conn);
}

/*
 * Class:     org_freedesktop_dbus_DBusConnection
 * Method:    dbus_disconnect
 * Signature: ()V
 */
JNIEXPORT void JNICALL Java_org_freedesktop_dbus_DBusConnection_dbus_1disconnect
  (JNIEnv * env, jobject o, jint cidx)
{
   DBusConnection* conn;
   conn = getconn(env, cidx);
   if (NULL == conn || !dbus_connection_get_is_connected(conn)) return;
   removeconn(cidx);
   dbus_connection_close(conn);
   if (debug) fprintf(stderr, "<disconnect>\n");
}

jobjectArray read_params(JNIEnv* env, DBusMessageIter* args, jsize len, jobject connobj, jstring jsource)
{
   DBusMessageIter sub;
   jobject vval, jval = NULL;
   jobjectArray members;
   jmethodID mid;
   jstring sig;

   char cbyteval;
   dbus_bool_t cboolval;
   double cdoubleval;
   uint32_t cuintval;
   uint16_t cushortval;
   uint64_t culongval;
   int32_t cintval;
   int16_t cshortval;
   int64_t clongval;
   const char* cstringval;
   jsize i, j;
   void* data;
   jboolean* buf2;
   dbus_bool_t* buf1;
   int a;

   jclass fooclass;
   
   fooclass = (*env)->FindClass(env, "java/lang/Object");
   jobjectArray params = (*env)->NewObjectArray(env, len, fooclass, NULL);
   (*env)->DeleteLocalRef(env, fooclass);

   i = 0;
   do {
      if ((*env)->ExceptionOccurred(env)) {
         return params;
      }
      switch (dbus_message_iter_get_arg_type(args)) {
         case DBUS_TYPE_BYTE:
            dbus_message_iter_get_basic(args, &cbyteval);
            fooclass = (*env)->FindClass(env, "java/lang/Byte");
            mid = (*env)->GetMethodID(env, fooclass, "<init>", "(B)V");
            jval = (*env)->NewObject(env, fooclass, mid, cbyteval);
            (*env)->SetObjectArrayElement(env, params, i, jval);
            (*env)->DeleteLocalRef(env, jval);
            (*env)->DeleteLocalRef(env, fooclass);
            break;
         case DBUS_TYPE_BOOLEAN:
            dbus_message_iter_get_basic(args, &cboolval);
            fooclass = (*env)->FindClass(env, "java/lang/Boolean");
            mid = (*env)->GetMethodID(env, fooclass, "<init>", "(Z)V");
            jval = (*env)->NewObject(env, fooclass, mid, cboolval);
            (*env)->SetObjectArrayElement(env, params, i, jval);
            (*env)->DeleteLocalRef(env, jval);
            (*env)->DeleteLocalRef(env, fooclass);
            break;
         case DBUS_TYPE_INT16:
            dbus_message_iter_get_basic(args, &cshortval);
            fooclass = (*env)->FindClass(env, "java/lang/Short");
            mid = (*env)->GetMethodID(env, fooclass, "<init>", "(S)V");
            jval = (*env)->NewObject(env, fooclass, mid, cshortval);
            (*env)->SetObjectArrayElement(env, params, i, jval);
            (*env)->DeleteLocalRef(env, jval);
            (*env)->DeleteLocalRef(env, fooclass);
            break;
         case DBUS_TYPE_UINT16:
            dbus_message_iter_get_basic(args, &cushortval);
            fooclass = (*env)->FindClass(env, "org/freedesktop/dbus/UInt16");
            jint jintval = cushortval;
            mid = (*env)->GetMethodID(env, fooclass, "<init>", "(I)V");
            jval = (*env)->NewObject(env, fooclass, mid, jintval);
            (*env)->SetObjectArrayElement(env, params, i, jval);
            (*env)->DeleteLocalRef(env, jval);
            (*env)->DeleteLocalRef(env, fooclass);
            break;
         case DBUS_TYPE_INT32:
            dbus_message_iter_get_basic(args, &cintval);
            fooclass = (*env)->FindClass(env, "java/lang/Integer");
            mid = (*env)->GetMethodID(env, fooclass, "<init>", "(I)V");
            jval = (*env)->NewObject(env, fooclass, mid, cintval);
            (*env)->SetObjectArrayElement(env, params, i, jval);
            (*env)->DeleteLocalRef(env, jval);
            (*env)->DeleteLocalRef(env, fooclass);
            break;
         case DBUS_TYPE_UINT32:
            dbus_message_iter_get_basic(args, &cuintval);
            fooclass = (*env)->FindClass(env, "org/freedesktop/dbus/UInt32");
            jlong jlongval = cuintval;
            mid = (*env)->GetMethodID(env, fooclass, "<init>", "(J)V");
            jval = (*env)->NewObject(env, fooclass, mid, jlongval);
            (*env)->SetObjectArrayElement(env, params, i, jval);
            (*env)->DeleteLocalRef(env, jval);
            (*env)->DeleteLocalRef(env, fooclass);
            break;
         case DBUS_TYPE_INT64:
            dbus_message_iter_get_basic(args, &clongval);
            fooclass = (*env)->FindClass(env, "java/lang/Long");
            mid = (*env)->GetMethodID(env, fooclass, "<init>", "(J)V");
            jval = (*env)->NewObject(env, fooclass, mid, clongval);
            (*env)->SetObjectArrayElement(env, params, i, jval);
            (*env)->DeleteLocalRef(env, jval);
            (*env)->DeleteLocalRef(env, fooclass);
            break;
         case DBUS_TYPE_UINT64:
            dbus_message_iter_get_basic(args, &culongval);
            jlongval = culongval/4;
            jlong ofs = culongval%4;
            fooclass = (*env)->FindClass(env, "org/freedesktop/dbus/UInt64");
            mid = (*env)->GetMethodID(env, fooclass, "<init>", "(JJ)V");
            jval = (*env)->NewObject(env, fooclass, mid, jlongval, ofs);
            (*env)->SetObjectArrayElement(env, params, i, jval);
            (*env)->DeleteLocalRef(env, jval);
            (*env)->DeleteLocalRef(env, fooclass);
            break;
         case DBUS_TYPE_DOUBLE:
            dbus_message_iter_get_basic(args, &cdoubleval);
            fooclass = (*env)->FindClass(env, "java/lang/Double");
            mid = (*env)->GetMethodID(env, fooclass, "<init>", "(D)V");
            jval = (*env)->NewObject(env, fooclass, mid, cdoubleval);
            (*env)->SetObjectArrayElement(env, params, i, jval);
            (*env)->DeleteLocalRef(env, jval);
            (*env)->DeleteLocalRef(env, fooclass);
            break;
         case DBUS_TYPE_STRING:
            dbus_message_iter_get_basic(args, &cstringval);
            jval = (*env)->NewStringUTF(env, cstringval);
            (*env)->SetObjectArrayElement(env, params, i, jval);
            (*env)->DeleteLocalRef(env, jval);
            break;
         case DBUS_TYPE_OBJECT_PATH:
            dbus_message_iter_get_basic(args, &cstringval);
            vval = (*env)->NewStringUTF(env, cstringval);
            fooclass = (*env)->FindClass(env, "org/freedesktop/dbus/ObjectPath");
            mid = (*env)->GetMethodID(env, fooclass, "<init>", "(Ljava/lang/String;Ljava/lang/String;Lorg/freedesktop/dbus/DBusConnection;)V");
            jval = (*env)->NewObject(env, fooclass, mid, jsource, vval, connobj);
            if (NULL == jval) break;
            (*env)->SetObjectArrayElement(env, params, i, jval);
            (*env)->DeleteLocalRef(env, jval);
            (*env)->DeleteLocalRef(env, vval);
            (*env)->DeleteLocalRef(env, fooclass);
            break;
         case DBUS_TYPE_STRUCT:
            dbus_message_iter_recurse(args, &sub);
            if (DBUS_TYPE_INVALID == dbus_message_iter_get_arg_type(&sub)) j = 0;
            else for (j = 1; dbus_message_iter_has_next(&sub); j++) 
               dbus_message_iter_next(&sub);
            dbus_message_iter_recurse(args, &sub);
            jval = read_params(env, &sub, j, connobj, jsource);
            (*env)->SetObjectArrayElement(env, params, i, jval);
            (*env)->DeleteLocalRef(env, jval);
            break;
         case DBUS_TYPE_VARIANT:
            dbus_message_iter_recurse(args, &sub);
            cstringval = dbus_message_iter_get_signature(&sub);
            sig = (*env)->NewStringUTF(env, cstringval);
            members = read_params(env, &sub, 1, connobj, jsource);
            vval = (*env)->GetObjectArrayElement(env, members, 0);
            fooclass = (*env)->FindClass(env, "org/freedesktop/dbus/Variant");
            mid = (*env)->GetMethodID(env, fooclass, "<init>", "(Ljava/lang/Object;Ljava/lang/String;)V");
            jval = (*env)->NewObject(env, fooclass, mid, vval, sig);
            (*env)->SetObjectArrayElement(env, params, i, jval);
            (*env)->DeleteLocalRef(env, vval);
            (*env)->DeleteLocalRef(env, jval);
            (*env)->DeleteLocalRef(env, sig);
            (*env)->DeleteLocalRef(env, members);
            (*env)->DeleteLocalRef(env, fooclass);
            break;
         case DBUS_TYPE_ARRAY:

            dbus_message_iter_recurse(args, &sub);

            // get the type signature
            cstringval = dbus_message_iter_get_signature(&sub); 
            sig = (*env)->NewStringUTF(env, cstringval);

            
            switch (cstringval[0]) {

               // it's a primative array. Special case these for performance reasons.
               case DBUS_TYPE_BYTE:
               case DBUS_TYPE_BOOLEAN:
               case DBUS_TYPE_INT16:
               case DBUS_TYPE_INT32:
               case DBUS_TYPE_INT64:
               case DBUS_TYPE_DOUBLE:

                  // dbus_message_iter_get_fixed_array returns the element count, 
                  // dbus_message_iter_get_array_len is deprecated.
                  j = 0;

                  switch (cstringval[0]) {
                     case DBUS_TYPE_BYTE:
                        dbus_message_iter_get_fixed_array(&sub,&data,&j);
                        jval = (*env)->NewByteArray(env, j);
                        if (0 != j) (*env)->SetByteArrayRegion(env, (jbyteArray) jval, 0, j, (jbyte*) data);
                        break;
                     case DBUS_TYPE_BOOLEAN:
                        dbus_message_iter_get_fixed_array(&sub,&data,&j);
                        buf2 = malloc(j*sizeof(jboolean));
                        buf1 = data;
                        for (a = 0; a < j; a++)
                           buf2[a] = buf1[a];
                        jval = (*env)->NewBooleanArray(env, j);
                        if (0 != j) (*env)->SetBooleanArrayRegion(env, (jbooleanArray) jval, 0, j, buf2);
                        free(buf2);
                        break;
                     case DBUS_TYPE_INT16:
                        dbus_message_iter_get_fixed_array(&sub,&data,&j);
                        jval = (*env)->NewShortArray(env, j);
                        if (0 != j) (*env)->SetShortArrayRegion(env, (jshortArray) jval, 0, j, (jshort*) data);
                        break;
                     case DBUS_TYPE_INT32:
                        dbus_message_iter_get_fixed_array(&sub,&data,&j);
                        jval = (*env)->NewIntArray(env, j);
                        if (0 != j) (*env)->SetIntArrayRegion(env, (jintArray) jval, 0, j, (jint*) data);
                        break;
                     case DBUS_TYPE_INT64:
                        dbus_message_iter_get_fixed_array(&sub,&data,&j);
                        jval = (*env)->NewLongArray(env, j);
                        if (0 != j) (*env)->SetLongArrayRegion(env, (jlongArray) jval, 0, j, (jlong*) data);
                        break;
                     case DBUS_TYPE_DOUBLE:
                        dbus_message_iter_get_fixed_array(&sub,&data,&j);
                        jval = (*env)->NewDoubleArray(env, j);
                        if (0 != j) (*env)->SetDoubleArrayRegion(env, (jdoubleArray) jval, 0, j, (jdouble*) data);
                        break;
                  }

                  if (NULL == jval) break;
                  (*env)->SetObjectArrayElement(env, params, i, jval);
                  (*env)->DeleteLocalRef(env, jval);

                  break;

               // its a map
               case '{':

                  // recurse over array
                  if (DBUS_TYPE_INVALID == dbus_message_iter_get_arg_type(&sub)) j = 0;
                  else for (j = 1; dbus_message_iter_has_next(&sub); j++) 
                     dbus_message_iter_next(&sub);
                  if (0 == j) {
                     fooclass = (*env)->FindClass(env, "java/lang/Object");
                     members = (*env)->NewObjectArray(env, 0, fooclass, NULL);
                     (*env)->DeleteLocalRef(env, fooclass);
                  } else {
                     dbus_message_iter_recurse(args, &sub);
                     members = read_params(env, &sub, j, connobj, jsource);
                  }
                  fooclass = (*env)->FindClass(env, "org/freedesktop/dbus/MapContainer");
                  mid = (*env)->GetMethodID(env, fooclass, "<init>", "([[Ljava/lang/Object;Ljava/lang/String;)V");
                  jval = (*env)->NewObject(env, fooclass, mid, members, sig);
                  (*env)->DeleteLocalRef(env, fooclass);
                  (*env)->DeleteLocalRef(env, members);
                  if (NULL == jval) break;
                  (*env)->SetObjectArrayElement(env, params, i, jval);
                  (*env)->DeleteLocalRef(env, jval);
                  break;

            // it's an array of non-primatives
            default:

                  // recurse over array
                  if (DBUS_TYPE_INVALID == dbus_message_iter_get_arg_type(&sub)) j = 0;
                  else for (j = 1; dbus_message_iter_has_next(&sub); j++) 
                     dbus_message_iter_next(&sub);

                  if (0 == j) {
                     fooclass = (*env)->FindClass(env, "java/lang/Object");
                     members = (*env)->NewObjectArray(env, 0, fooclass, NULL);
                     (*env)->DeleteLocalRef(env, fooclass);
                  } else {
                     dbus_message_iter_recurse(args, &sub);
                     members = read_params(env, &sub, j, connobj, jsource);
                  }

                  fooclass = (*env)->FindClass(env, "org/freedesktop/dbus/ListContainer");
                  mid = (*env)->GetMethodID(env, fooclass, "<init>", "([Ljava/lang/Object;Ljava/lang/String;)V");
                  jval = (*env)->NewObject(env, fooclass, mid, members, sig);
                  (*env)->DeleteLocalRef(env, fooclass);
                  (*env)->DeleteLocalRef(env, members);
                  if (NULL == jval) break;
                  (*env)->SetObjectArrayElement(env, params, i, jval);
                  (*env)->DeleteLocalRef(env, jval);
            }
            /*
            // its an array
            else {
               fooclass = (*env)->FindClass(env, "org/freedesktop/dbus/DBusConnection");
               mid = (*env)->GetStaticMethodID(env, fooclass, "getJavaType", "(Ljava/lang/String;Ljava/util/Set;Ljava/util/Map;ZZ)Ljava/lang/String;");
               cname = (*env)->CallStaticObjectMethod(env, fooclass, mid, sig, NULL, NULL, true, true);
               (*env)->DeleteLocalRef(env, fooclass);
               if (NULL == cname) break;

               // find the corresponding java class object
               cstringval = (*env)->GetStringUTFChars(env, cname, 0);
               clen = strlen(cstringval);
               cclassname = malloc(clen+1);
               memset(cclassname, 0, clen+1);
               for (j = 0; j < clen; j++)
                  if ('.' == cstringval[j]) 
                     cclassname[j] = '/';
                  else
                     cclassname[j] = cstringval[j];
               vval = (*env)->FindClass(env, cclassname);
               free(cclassname);

               // convert the array to the new type
               fooclass = (*env)->FindClass(env, "org/freedesktop/dbus/ArrayFrob");
               mid = (*env)->GetStaticMethodID(env, fooclass, "type", "([Ljava/lang/Object;Ljava/lang/Class;)[Ljava/lang/Object;");
               jval = (*env)->CallStaticObjectMethod(env, fooclass, mid, members, vval);
               if (NULL == jval) break;
               (*env)->SetObjectArrayElement(env, params, i, jval);

               // tidy up
               (*env)->DeleteLocalRef(env, jval);
               (*env)->DeleteLocalRef(env, vval);
               (*env)->ReleaseStringUTFChars(env, cname, cstringval);
               (*env)->DeleteLocalRef(env, cname);
               (*env)->DeleteLocalRef(env, fooclass);
            }*/
            (*env)->DeleteLocalRef(env, sig);
            break;
         case DBUS_TYPE_DICT_ENTRY:
            // recurse over array
            dbus_message_iter_recurse(args, &sub);
            jval = read_params(env, &sub, 2, connobj, jsource);
            
            (*env)->SetObjectArrayElement(env, params, i, jval);
            (*env)->DeleteLocalRef(env, jval);
            break;
         case DBUS_TYPE_SIGNATURE:
            dbus_message_iter_get_basic(args, &cstringval);
            fooclass = (*env)->FindClass(env, "org/freedesktop/dbus/TypeSignature");
            sig = (*env)->NewStringUTF(env, cstringval);
            mid = (*env)->GetMethodID(env, fooclass, "<init>", "(Ljava/lang/String;)V");
            jval = (*env)->NewObject(env, fooclass, mid, sig);
            (*env)->SetObjectArrayElement(env, params, i, jval);
            (*env)->DeleteLocalRef(env, jval);
            (*env)->DeleteLocalRef(env, sig);
            (*env)->DeleteLocalRef(env, fooclass);
            break;
         default:
            fprintf(stderr, "Ignoring invalid type signature (%c = %d)\n", 
                  dbus_message_iter_get_arg_type(args),dbus_message_iter_get_arg_type(args));
            break;
      }
      i++;
      dbus_message_iter_next(args);
   } while (i < len);
   
   return params;
}

/*
 * Class:     org_freedesktop_dbus_DBusConnection
 * Method:    dbus_read_write_pop
 * Signature: (I)Lorg/freedesktop/dbus/DBusMessage;
 */
JNIEXPORT jobject JNICALL Java_org_freedesktop_dbus_DBusConnection_dbus_1read_1write_1pop
  (JNIEnv * env, jobject connobj, jint cidx, jint timeout, jobject outgoing)
{
   DBusMessage* msg = NULL;
   DBusMessageIter args;
   jobject jmsg = NULL;
   jmethodID mid;
   const char* csource;
   const char* cdestination;
   const char* cbusname;
   const char* cobjectpath;
   const char* ctype;
   const char* cname;
   const char* csig;
   char* cclassname;
   jstring source;
   jstring destination;
   jstring busname;
   jstring objectpath;
   jstring type;
   jstring name;
   jstring sig;
   jobjectArray params = NULL;
   jlong serial;
   jlong replyserial;
   jsize len, typelen;
   int i; 
   DBusConnection* conn;
   jint flags;
   jfieldID fid;
   bool b;

   conn = getconn(env, cidx);
   if (NULL == conn || !dbus_connection_get_is_connected(conn)) {
      jclass dbeclass = (*env)->FindClass(env, "org/freedesktop/dbus/NotConnected");
      (*env)->ThrowNew(env, dbeclass, "Disconnected");
      (*env)->DeleteLocalRef(env, dbeclass);
      return NULL;
   }

   jclass clazz = (*env)->FindClass(env, "org/freedesktop/dbus/EfficientQueue");
   mid = (*env)->GetMethodID(env, clazz, "isEmpty", "()Z");
   clazz = (*env)->FindClass(env, "org/freedesktop/dbus/DBusConnection");
   fid = (*env)->GetFieldID(env, clazz, "_run", "Z");
   
   // loop here checking for outgoing messages frequently
   while (NULL == msg) {
      /* sychronized (outgoing) */ { 
         (*env)->MonitorEnter(env,outgoing);
         b = (*env)->CallBooleanMethod(env, outgoing, mid);
         (*env)->MonitorExit(env,outgoing);
      }
      if (!b) return NULL;
      if (false == (*env)->GetBooleanField(env, connobj, fid)) return NULL;
         
      // blocking for timeout ms read of the next available message
      dbus_connection_read_write(conn, timeout);
      msg = dbus_connection_pop_message(conn);
   }
   if (NULL == msg) return NULL;
   
   jclass sigclass; 
   jclass callclass = (*env)->FindClass(env, "org/freedesktop/dbus/MethodCall");
   jclass errclass = (*env)->FindClass(env, "org/freedesktop/dbus/DBusErrorMessage");
   jclass replyclass = (*env)->FindClass(env, "org/freedesktop/dbus/MethodReply");
   jclass dsigclass = (*env)->FindClass(env, "org/freedesktop/dbus/DBusSignal");
 
   serial = dbus_message_get_serial(msg);
   replyserial = dbus_message_get_reply_serial(msg);
   cobjectpath = dbus_message_get_path(msg);
   if (NULL == cobjectpath) objectpath = NULL;
   else objectpath = (*env)->NewStringUTF(env, cobjectpath);

   ctype = dbus_message_get_interface(msg);
   if (NULL == ctype) type = NULL;
   else type = (*env)->NewStringUTF(env, ctype);

   cname = dbus_message_get_member(msg);
   if (NULL == cname) name = NULL;
   else name = (*env)->NewStringUTF(env, cname);

   csource = dbus_message_get_sender (msg);
   if (NULL == csource) source = NULL;
   else source = (*env)->NewStringUTF(env, csource);

   cdestination = dbus_message_get_destination(msg);
   if (NULL == cdestination) destination = NULL;
   else destination = (*env)->NewStringUTF(env, cdestination);

   cbusname = dbus_message_get_destination(msg);
   if (NULL == cbusname) busname = NULL;
   else busname = (*env)->NewStringUTF(env, cbusname);

   csig = dbus_message_get_signature(msg);
   if (NULL == csig) sig = (*env)->NewStringUTF(env, "");
   else sig = (*env)->NewStringUTF(env, csig);
   
   if (dbus_message_iter_init(msg, &args)) {
      if (DBUS_TYPE_INVALID == dbus_message_iter_get_arg_type(&args)) len = 0;
      else for (len = 1; dbus_message_iter_has_next(&args); len++) 
         dbus_message_iter_next(&args);
      if (!dbus_message_iter_init(msg, &args)) {
         fprintf(stderr, "Reinitialising arguments failed\n");
         return NULL;
      }
      params = read_params(env, &args, len, connobj, source);
   } else
      params = NULL;

   if ((*env)->ExceptionOccurred(env)) {
      if (NULL != getenv("DBUS_JAVA_EXCEPTION_DEBUG"))
         (*env)->ExceptionDescribe(env);
      (*env)->ExceptionClear(env);
      char* cname = "org.freedesktop.dbus.DBusExecutionException";
      jstring name = (*env)->NewStringUTF(env, cname);
      jclass fooclass = (*env)->FindClass(env, "java/lang/String");
      jobjectArray args = (*env)->NewObjectArray(env, 1, fooclass, NULL);
      char* cerror = "An exception occurred during message reciept.";
      jstring error = (*env)->NewStringUTF(env, cerror);
      (*env)->SetObjectArrayElement(env, args, 0, error);
      (*env)->DeleteLocalRef(env, fooclass);
      (*env)->DeleteLocalRef(env, error);
      Java_org_freedesktop_dbus_DBusConnection_dbus_1send_1error_1message
      (env, connobj, cidx, source, name, serial, args);
      (*env)->DeleteLocalRef(env, name);
      (*env)->DeleteLocalRef(env, args);
      return NULL;
   }

   switch (dbus_message_get_type(msg)) {
      case DBUS_MESSAGE_TYPE_METHOD_CALL:
         if (debug) fprintf(stderr, "=> CALL: (%s) %s%s[%s.%s](%s) {%ld}\n",csource, cbusname,cobjectpath,ctype,cname,csig,(long int) serial);
         mid = (*env)->GetMethodID(env, callclass, "<init>", "(Ljava/lang/String;Ljava/lang/String;Ljava/lang/String;Ljava/lang/String;Ljava/lang/String;Ljava/lang/String;[Ljava/lang/Object;J)V");
         jmsg = (*env)->NewObject(env, callclass, mid, source, busname, objectpath, type, name, sig, params, serial);
         if (NULL != params)
            (*env)->DeleteLocalRef(env, params);
         flags = 0;
         if (dbus_message_get_no_reply(msg)) flags |= org_freedesktop_dbus_MethodCall_NO_REPLY;
         if (dbus_message_get_auto_start(msg)) flags |= org_freedesktop_dbus_MethodCall_AUTO_START;
         if (flags) {
            mid = (*env)->GetMethodID(env, callclass, "setFlags", "(I)V");
            (*env)->CallVoidMethod(env, jmsg, mid, flags);
         }
         break;
      case DBUS_MESSAGE_TYPE_METHOD_RETURN:
         if (debug) fprintf(stderr, "=> REPLY: (%s)%s[%s.%s](%s) {%ld,%ld}\n",csource,cobjectpath,ctype,cname,csig,(long int) serial,(long int) replyserial);
         mid = (*env)->GetMethodID(env, replyclass, "<init>", "(Ljava/lang/String;Ljava/lang/String;Ljava/lang/String;Ljava/lang/String;Ljava/lang/String;[Ljava/lang/Object;JJ)V");
         jmsg = (*env)->NewObject(env, replyclass, mid, source, objectpath, type, name, sig, params, serial, replyserial);
         if (NULL != params)
            (*env)->DeleteLocalRef(env, params);
         break;
      case DBUS_MESSAGE_TYPE_ERROR:
         cname = dbus_message_get_error_name(msg);
         if (debug) fprintf(stderr, "=> ERROR: (%s => %s) %s {%ld,%ld}\n",csource, cdestination, cname, (long int) serial,(long int) replyserial);
         if (NULL == cname) name = NULL;
         else name = (*env)->NewStringUTF(env, cname);
         mid = (*env)->GetMethodID(env, errclass, "<init>", "(Ljava/lang/String;Ljava/lang/String;Ljava/lang/String;Ljava/lang/String;[Ljava/lang/Object;JJ)V");
         jmsg = (*env)->NewObject(env, errclass, mid, source, destination, name, sig, params, serial, replyserial);
         if (NULL != params)
            (*env)->DeleteLocalRef(env, params);
         break;
      case DBUS_MESSAGE_TYPE_SIGNAL:

         if (debug) 
            fprintf(stderr, "=> SIG: %s%s[%s.%s](%s) {%ld}\n",csource, cobjectpath,ctype,cname,csig,(long int) serial);
         if (NULL != ctype) {
            // create a new type string with /, not .
            typelen = strlen(ctype);
            cclassname = malloc(typelen+2+strlen(cname));
            memset(cclassname, 0, typelen+2+strlen(cname));
            for (i = 0; i < typelen; i++)
               if ('.' == ctype[i]) 
                  cclassname[i] = '/';
               else
                  cclassname[i] = ctype[i];

            // append name as a member class
            cclassname[typelen] = '$';
            for (i = 0; i < strlen(cname); i++)
               if ('.' == cname[i]) 
                  cclassname[i+1+typelen] = '/';
               else
                  cclassname[i+1+typelen] = cname[i];
            i += typelen;

            // iterate back trying member classes in turn
            sigclass = NULL;
            do {
               sigclass = (*env)->FindClass(env, cclassname);
               (*env)->ExceptionClear(env);
               if (NULL == sigclass) {
                  while (i > 0 && cclassname[i] != '/') i--;
                  if (i > 0) cclassname[i] = '$';
               }
            } while (NULL == sigclass && i > 0);
            free(cclassname);
            (*env)->ExceptionClear(env);
         } else 
            sigclass = NULL;
         
         if (NULL == sigclass) {
            sigclass = (*env)->FindClass(env, "org/freedesktop/dbus/InternalSignal");
            mid = (*env)->GetMethodID(env, sigclass, "<init>", "(Ljava/lang/String;Ljava/lang/String;Ljava/lang/String;Ljava/lang/String;Ljava/lang/String;J[Ljava/lang/Object;)V");
            jmsg = (*env)->NewObject(env, sigclass, mid, source, objectpath, name, type, sig, params, serial);
         } else {
            mid = (*env)->GetStaticMethodID(env, dsigclass, "createSignal", "(Ljava/lang/Class;Ljava/lang/String;Ljava/lang/String;Ljava/lang/String;J[Ljava/lang/Object;)Lorg/freedesktop/dbus/DBusSignal;");
            jmsg = (*env)->CallStaticObjectMethod(env, dsigclass, mid, sigclass, source, objectpath, sig, serial, params);
         }
         
         if (NULL != params)
            (*env)->DeleteLocalRef(env, params);
         
         (*env)->DeleteLocalRef(env, sigclass);
         break;
      default:
         jmsg = NULL;
   }


   if ((*env)->ExceptionOccurred(env)) {
      if (NULL != getenv("DBUS_JAVA_EXCEPTION_DEBUG"))
         (*env)->ExceptionDescribe(env);
      (*env)->ExceptionClear(env);
      char* cname = "org.freedesktop.dbus.DBusExecutionException";
      jstring name = (*env)->NewStringUTF(env, cname);
      jclass fooclass = (*env)->FindClass(env, "java/lang/String");
      jobjectArray args = (*env)->NewObjectArray(env, 1, fooclass, NULL);
      char* cerror = "An exception occurred during message reciept.";
      jstring error = (*env)->NewStringUTF(env, cerror);
      (*env)->SetObjectArrayElement(env, args, 0, error);
      (*env)->DeleteLocalRef(env, fooclass);
      Java_org_freedesktop_dbus_DBusConnection_dbus_1send_1error_1message
      (env, connobj, cidx, source, name, serial, args);
      (*env)->DeleteLocalRef(env, error);
      (*env)->DeleteLocalRef(env, name);
      (*env)->DeleteLocalRef(env, args);
      return NULL;
   }

   // free the message
   dbus_message_unref(msg);

   return jmsg;
}

int append_args(JNIEnv * env, DBusMessageIter* args, jobjectArray params, jobject connobj)
{
   DBusMessageIter sub, sub2;
   jsize i, j;
   jobject item, vitem;
   jobjectArray members, keys, values;
   jclass clazz;
   jclass clazzclass;
   jmethodID mid, isarray;
   jstring type, sig;
   const char* ctype;
   int slen;

   char cbyteval;
   dbus_bool_t cboolval;
   double cdoubleval;
   int16_t cshortval;
   int32_t cintval;
   int64_t clongval;
   uint16_t cushortval;
   uint32_t cuintval;
   unsigned long long culongval;
   const char* cstringval;
   char* str;

   if (NULL == params) return 0;

   jsize len = (*env)->GetArrayLength(env, params);
   jclass objectclass = (*env)->FindClass(env, "java/lang/Object");
   jclass dbcclass = (*env)->FindClass(env, "org/freedesktop/dbus/DBusConnection");
   jclass dbiclass = (*env)->FindClass(env, "org/freedesktop/dbus/DBusInterface");
   jclass structclass = (*env)->FindClass(env, "org/freedesktop/dbus/Struct");
   jclass tupleclass = (*env)->FindClass(env, "org/freedesktop/dbus/Tuple");
   jclass listclass = (*env)->FindClass(env, "org/freedesktop/dbus/ListContainer");
   jclass mapclass = (*env)->FindClass(env, "org/freedesktop/dbus/MapContainer");
   jclass serialclass = (*env)->FindClass(env, "org/freedesktop/dbus/DBusSerializable");

   for (i = 0; i < len; i++) { 
      item = (*env)->GetObjectArrayElement(env, params, i);
      if (NULL == item) {
         (*env)->ExceptionClear(env);
         jclass dbeclass = (*env)->FindClass(env, "org/freedesktop/dbus/DBusExecutionException");
         (*env)->ThrowNew(env, dbeclass, "Cannot send NULL pointers over DBus");
         (*env)->DeleteLocalRef(env, dbeclass);
         return -1;
      }
      clazz = (*env)->GetObjectClass(env, item);
      clazzclass = (*env)->GetObjectClass(env, clazz);
      mid = (*env)->GetMethodID(env, clazzclass, "getName", "()Ljava/lang/String;");
      isarray = (*env)->GetMethodID(env, clazzclass, "isArray", "()Z");

      type = (jstring) (*env)->CallObjectMethod(env, clazz, mid);
      ctype = (*env)->GetStringUTFChars(env, type, 0);
      slen = strlen(ctype);
      if (0 == strncmp(ctype, "java.lang.Boolean", slen)) {
         mid = (*env)->GetMethodID(env, clazz, "booleanValue", "()Z");
         cboolval = (*env)->CallBooleanMethod(env, item, mid);
         if (!dbus_message_iter_append_basic(args, DBUS_TYPE_BOOLEAN, &cboolval)) 
            return -1;
      }
      else if (0 == strncmp(ctype, "org.freedesktop.dbus.UInt16", slen)) {
         mid = (*env)->GetMethodID(env, clazz, "intValue", "()I");
         cushortval = (*env)->CallIntMethod(env, item, mid);
         if (!dbus_message_iter_append_basic(args, DBUS_TYPE_UINT16, &cushortval)) 
            return -1;
      }
      else if (0 == strncmp(ctype, "org.freedesktop.dbus.UInt32", slen)) {
         mid = (*env)->GetMethodID(env, clazz, "longValue", "()J");
         cuintval = (*env)->CallLongMethod(env, item, mid);
         if (!dbus_message_iter_append_basic(args, DBUS_TYPE_UINT32, &cuintval)) 
            return -1;
      }
      else if (0 == strncmp(ctype, "org.freedesktop.dbus.UInt64", slen)) {
         mid = (*env)->GetMethodID(env, clazz, "longValueDiv", "()J");
         culongval = (*env)->CallLongMethod(env, item, mid);
         culongval*=4;
         mid = (*env)->GetMethodID(env, clazz, "longValueMod", "()I");
         culongval += (*env)->CallIntMethod(env, item, mid);
         if (!dbus_message_iter_append_basic(args, DBUS_TYPE_UINT64, &culongval)) 
            return -1;
      }
      else if (0 == strncmp(ctype, "java.lang.Short", slen)) {
         mid = (*env)->GetMethodID(env, clazz, "shortValue", "()S");
         cshortval = (*env)->CallShortMethod(env, item, mid);
         if (!dbus_message_iter_append_basic(args, DBUS_TYPE_INT16, &cshortval)) 
            return -1;
      }
      else if (0 == strncmp(ctype, "java.lang.Integer", slen)) {
         mid = (*env)->GetMethodID(env, clazz, "intValue", "()I");
         cintval = (*env)->CallIntMethod(env, item, mid);
         if (!dbus_message_iter_append_basic(args, DBUS_TYPE_INT32, &cintval)) 
            return -1;
      }
      else if (0 == strncmp(ctype, "java.lang.Long", slen)) {
         mid = (*env)->GetMethodID(env, clazz, "longValue", "()J");
         clongval = (*env)->CallLongMethod(env, item, mid);
         if (!dbus_message_iter_append_basic(args, DBUS_TYPE_INT64, &clongval)) 
            return -1;
      }
      else if (0 == strncmp(ctype, "java.lang.Byte", slen)) {
         mid = (*env)->GetMethodID(env, clazz, "byteValue", "()B");
         cbyteval = (*env)->CallLongMethod(env, item, mid);
         if (!dbus_message_iter_append_basic(args, DBUS_TYPE_BYTE, &cbyteval)) 
            return -1;
      }
      else if (0 == strncmp(ctype, "java.lang.Double", slen)) {
         mid = (*env)->GetMethodID(env, clazz, "doubleValue", "()D");
         cdoubleval = (*env)->CallDoubleMethod(env, item, mid);
         if (!dbus_message_iter_append_basic(args, DBUS_TYPE_DOUBLE, &cdoubleval)) 
            return -1;
      }
      else if (0 == strncmp(ctype, "java.lang.String", slen)) {
         cstringval = (*env)->GetStringUTFChars(env,(jstring) item, 0);
         if (!dbus_message_iter_append_basic(args, DBUS_TYPE_STRING, &cstringval)) 
            return -1;
         (*env)->ReleaseStringUTFChars(env, item, cstringval);
      }
      else if ((*env)->IsInstanceOf(env, item, mapclass)) {
         // get sig
         mid = (*env)->GetMethodID(env, mapclass, "getSig", "()Ljava/lang/String;");
         sig = (*env)->CallObjectMethod(env, item, mid);
         cstringval = (*env)->GetStringUTFChars(env, sig, 0);
         
         // get members
         mid = (*env)->GetMethodID(env, mapclass, "getKeys", "()[Ljava/lang/Object;");
         keys = (*env)->CallObjectMethod(env, item, mid);
         mid = (*env)->GetMethodID(env, mapclass, "getValues", "()[Ljava/lang/Object;");
         values = (*env)->CallObjectMethod(env, item, mid);
         slen = (*env)->GetArrayLength(env, keys);
         
         members = (*env)->NewObjectArray(env, 2, objectclass, NULL);

         dbus_message_iter_open_container(args, DBUS_TYPE_ARRAY, cstringval, &sub);
         // strip off the {}
         str = malloc(strlen(cstringval)-2);
         memset(str, 0, strlen(cstringval)-2);
         for (j = 0; j < (strlen(cstringval)-2); j++)
            str[j] = cstringval[j+1];
            
         // iterate over arrays
         for (j = 0; j < slen; j++) {
            // copy this key/value pair
            (*env)->SetObjectArrayElement(env, members, 0, 
               (*env)->GetObjectArrayElement(env, keys, j));
            (*env)->SetObjectArrayElement(env, members, 1, 
               (*env)->GetObjectArrayElement(env, values, j));
            
            // recurse
            dbus_message_iter_open_container(&sub, DBUS_TYPE_DICT_ENTRY, str, &sub2);
            if (0 > append_args(env, &sub2, members, connobj)) return -1;
            dbus_message_iter_close_container(&sub, &sub2);
         }

         dbus_message_iter_close_container(args, &sub);
         
         free(str);
         (*env)->ReleaseStringUTFChars(env, sig, cstringval);
         (*env)->DeleteLocalRef(env, sig);
         (*env)->DeleteLocalRef(env, keys);
         (*env)->DeleteLocalRef(env, values);
         (*env)->DeleteLocalRef(env, members);
      }
      else if ((*env)->IsInstanceOf(env, item, listclass)) {
         // get sig
         mid = (*env)->GetMethodID(env, listclass, "getSig", "()Ljava/lang/String;");
         sig = (*env)->CallObjectMethod(env, item, mid);
         cstringval = (*env)->GetStringUTFChars(env, sig, 0);
         
         // get members
         mid = (*env)->GetMethodID(env, listclass, "getValues", "()[Ljava/lang/Object;");
         values = (*env)->CallObjectMethod(env, item, mid);
         
         dbus_message_iter_open_container(args, DBUS_TYPE_ARRAY, cstringval, &sub);

         if (0 > append_args(env, &sub, values, connobj)) return -1;

         dbus_message_iter_close_container(args, &sub);
         
         (*env)->ReleaseStringUTFChars(env, sig, cstringval);
         (*env)->DeleteLocalRef(env, sig);
         (*env)->DeleteLocalRef(env, values);
      }
      else if ((*env)->CallBooleanMethod(env, clazz, isarray)) {
         mid = (*env)->GetMethodID(env, clazzclass, "getComponentType", "()Ljava/lang/Class;");
         vitem = (*env)->CallObjectMethod(env, clazz, mid);
         mid = (*env)->GetStaticMethodID(env, dbcclass, "getDBusType", "(Ljava/lang/reflect/Type;)[Ljava/lang/String;");
         values = (*env)->CallStaticObjectMethod(env, dbcclass, mid, vitem);
         if ((*env)->ExceptionOccurred(env)) return -1;
         if (1 != (*env)->GetArrayLength(env, values)) return -1;
         sig = (*env)->GetObjectArrayElement(env, values, 0);
         cstringval = (*env)->GetStringUTFChars(env, sig, 0);
         dbus_message_iter_open_container(args, DBUS_TYPE_ARRAY, cstringval, &sub);

         // special case primatives
         mid = (*env)->GetMethodID(env, clazzclass, "isPrimitive", "()Z");
         if ((*env)->CallBooleanMethod(env, vitem, mid)) {
            int l = (*env)->GetArrayLength(env, (jarray) item);
            void* buf;
            jboolean* buf1;
            dbus_bool_t* buf2;
            int a;
            switch (cstringval[0]) {
               case DBUS_TYPE_BYTE:
                  buf = malloc(l);
                  (*env)->GetByteArrayRegion(env, (jbyteArray) item, 0, l, (jbyte*) buf);
                  dbus_message_iter_append_fixed_array(&sub, cstringval[0], &buf, l);
                  free(buf);
                  break;
               case DBUS_TYPE_BOOLEAN:
                  buf1 = malloc(l*sizeof(jboolean));
                  (*env)->GetBooleanArrayRegion(env, (jbooleanArray) item, 0, l, buf1);
                  buf2 = malloc(l*sizeof(dbus_bool_t));
                  for (a = 0; a < l; a++)
                     buf2[a] = buf1[a];
                  dbus_message_iter_append_fixed_array(&sub, cstringval[0], &buf2, l);
                  free(buf1);
                  free(buf2);
                  break;
               case DBUS_TYPE_INT16:
                  buf = malloc(l*sizeof(jshort));
                  (*env)->GetShortArrayRegion(env, (jshortArray) item, 0, l, (jshort*) buf);
                  dbus_message_iter_append_fixed_array(&sub, cstringval[0], &buf, l);
                  free(buf);
                  break;
               case DBUS_TYPE_INT32:
                  buf = malloc(l*sizeof(jint));
                  (*env)->GetIntArrayRegion(env, (jintArray) item, 0, l, (jint*) buf);
                  dbus_message_iter_append_fixed_array(&sub, cstringval[0], &buf, l);
                  free(buf);
                  break;
               case DBUS_TYPE_INT64:
                  buf = malloc(l*sizeof(jlong));
                  (*env)->GetLongArrayRegion(env, (jlongArray) item, 0, l, (jlong*) buf);
                  dbus_message_iter_append_fixed_array(&sub, cstringval[0], &buf, l);
                  free(buf);
                  break;
               case DBUS_TYPE_DOUBLE:
                  buf = malloc(l*sizeof(jdouble));
                  (*env)->GetDoubleArrayRegion(env, (jdoubleArray) item, 0, l, (jdouble*) buf);
                  dbus_message_iter_append_fixed_array(&sub, cstringval[0], &buf, l);
                  free(buf);
                  break;
            }

         // other arrays
         } else  {
            if (0 > append_args(env, &sub, item, connobj)) return -1;
         }

         dbus_message_iter_close_container(args, &sub);
         (*env)->DeleteLocalRef(env, vitem);
         (*env)->ReleaseStringUTFChars(env, sig, cstringval);
         (*env)->DeleteLocalRef(env, sig);
         (*env)->DeleteLocalRef(env, values);
      }
      else if ((*env)->IsInstanceOf(env, item, structclass)) {
         mid = (*env)->GetMethodID(env, clazz, "getParameters", "()[Ljava/lang/Object;");
         if (NULL == mid) {
            return -1;
         }
         members = (*env)->CallObjectMethod(env, item, mid);
         mid = (*env)->GetMethodID(env, clazz, "getSig", "()Ljava/lang/String;");
         if (NULL == mid) {
            return -1;
         }
         sig = (*env)->CallObjectMethod(env, item, mid, clazz);
         if (NULL == sig) {
            return -1;
         }
         cstringval = (*env)->GetStringUTFChars(env, sig, 0);
         
         dbus_message_iter_open_container(args, DBUS_TYPE_STRUCT, cstringval, &sub);
         if (0 > append_args(env, &sub, members, connobj)) return -1;
         dbus_message_iter_close_container(args, &sub);
         
         (*env)->DeleteLocalRef(env, members);
         (*env)->ReleaseStringUTFChars(env, sig, cstringval);
         (*env)->DeleteLocalRef(env, sig);
      } 
      else if (0 == strncmp(ctype, "org.freedesktop.dbus.Variant", slen)) {
         // get the value out
         mid = (*env)->GetMethodID(env, clazz, "getValue", "()Ljava/lang/Object;");
         members = (*env)->NewObjectArray(env, 1, objectclass, NULL);
         vitem = (*env)->CallObjectMethod(env, item, mid);
         if (NULL == vitem) return -1;
         (*env)->SetObjectArrayElement(env, members, 0, vitem);

         // get its type
         mid = (*env)->GetMethodID(env, clazz, "getSig", "()Ljava/lang/String;");
         sig = (*env)->CallObjectMethod(env, item, mid);
         if ((*env)->ExceptionOccurred(env)) return -1;
         cstringval = (*env)->GetStringUTFChars(env, sig, 0);

         // add container
         dbus_message_iter_open_container(args, DBUS_TYPE_VARIANT, cstringval, &sub);
         if (0 > append_args(env, &sub, members, connobj)) return -1;
         dbus_message_iter_close_container(args, &sub);

         (*env)->DeleteLocalRef(env, vitem);
         (*env)->ReleaseStringUTFChars(env, sig, cstringval);
         (*env)->DeleteLocalRef(env, sig);
         (*env)->DeleteLocalRef(env, members);
      }
      else if ((*env)->IsInstanceOf(env, item, dbiclass)) {
         mid = (*env)->GetMethodID(env, dbcclass, "getExportedObject", "(Lorg/freedesktop/dbus/DBusInterface;)Ljava/lang/String;");
         vitem = (*env)->CallObjectMethod(env, connobj, mid, item);
         if ((*env)->ExceptionOccurred(env)) return -1;
         cstringval = (*env)->GetStringUTFChars(env, vitem, 0);
         if (!dbus_message_iter_append_basic(args, DBUS_TYPE_OBJECT_PATH, &cstringval)) 
            return -1;
         (*env)->ReleaseStringUTFChars(env, vitem, cstringval);
         (*env)->DeleteLocalRef(env, vitem);
      }
      else if ((*env)->IsInstanceOf(env, item, serialclass)) {
         
         // get members
         mid = (*env)->GetMethodID(env, serialclass, "serialize", "()[Ljava/lang/Object;");
         values = (*env)->CallObjectMethod(env, item, mid);
         
         if (0 > append_args(env, args, values, connobj)) return -1;

         (*env)->DeleteLocalRef(env, values);
      }
      else if (0 == strncmp(ctype, "org.freedesktop.dbus.TypeSignature", slen)) {
         mid = (*env)->GetMethodID(env, clazz, "getSig", "()Ljava/lang/String;");
         sig = (*env)->CallObjectMethod(env, item, mid);
         cstringval = (*env)->GetStringUTFChars(env, sig, 0);
         if (!dbus_message_iter_append_basic(args, DBUS_TYPE_SIGNATURE, &cstringval)) 
            return -1;
         (*env)->ReleaseStringUTFChars(env, sig, cstringval);
         (*env)->DeleteLocalRef(env, sig);
      }
      else {
         fprintf(stderr, "Unknown type %s\n", ctype);
      }
      (*env)->DeleteLocalRef(env, item);
      (*env)->ReleaseStringUTFChars(env, type, ctype);
      (*env)->DeleteLocalRef(env, type);
      (*env)->DeleteLocalRef(env, clazz);
      (*env)->DeleteLocalRef(env, clazzclass);
   }
   (*env)->DeleteLocalRef(env, structclass);
   (*env)->DeleteLocalRef(env, tupleclass);
   (*env)->DeleteLocalRef(env, listclass);
   (*env)->DeleteLocalRef(env, mapclass);
   (*env)->DeleteLocalRef(env, serialclass);
   (*env)->DeleteLocalRef(env, objectclass);
   (*env)->DeleteLocalRef(env, dbcclass);
   (*env)->DeleteLocalRef(env, dbiclass);
   return 0;
}

/*
 * Class:     org_freedesktop_dbus_DBusConnection
 * Method:    dbus_send_signal
 * Signature: (Ljava/lang/String;Ljava/lang/String;[Ljava/lang/Object;)I
 */
   JNIEXPORT jint JNICALL Java_org_freedesktop_dbus_DBusConnection_dbus_1send_1signal
(JNIEnv * env, jobject connobj, jint cidx, jstring objectpath, jstring type, jstring name, jobjectArray params)
{
   int rv;
   dbus_uint32_t serial = 0; // unique number to associate replies with requests
   DBusMessage* msg;
   DBusMessageIter args;
   DBusConnection* conn;

   const char* cobjectpath = (*env)->GetStringUTFChars(env, objectpath, 0);
   const char* cname = (*env)->GetStringUTFChars(env, name, 0);
   const char* ctype = (*env)->GetStringUTFChars(env, type, 0);


   // create a signal and check for errors 
   msg = dbus_message_new_signal(cobjectpath, // object name of the signal
         ctype, // interface name of the signal
         cname); // name of the signal
   if (NULL == msg) 
      return -1;

   // append arguments onto signal
   dbus_message_iter_init_append(msg, &args);
   rv = append_args(env, &args, params, connobj);
   if (0 != rv) {
      dbus_message_unref(msg);
      return rv;
   }
   
   conn = getconn(env, cidx);
   if (NULL == conn || !dbus_connection_get_is_connected(conn)) {
      jclass dbeclass = (*env)->FindClass(env, "org/freedesktop/dbus/NotConnected");
      (*env)->ThrowNew(env, dbeclass, "Disconnected");
      (*env)->DeleteLocalRef(env, dbeclass);
      return -1;
   }
   // send the message and flush the connection
   if (!dbus_connection_send(conn, msg, &serial)) {
      dbus_message_unref(msg);
      return -1;
   }
   if (debug) {
      const char* sig = dbus_message_get_signature(msg);
      fprintf(stderr, "<= SIG: %s[%s.%s](%s) {%d}\n", cobjectpath,ctype,cname,sig,serial);
   }
   
   dbus_connection_flush(conn);

   // free the message 
   dbus_message_unref(msg);
   (*env)->ReleaseStringUTFChars(env, type, ctype);
   (*env)->ReleaseStringUTFChars(env, name, cname);
   (*env)->ReleaseStringUTFChars(env, objectpath, cobjectpath);
   return serial;
}

/*
 * Class:     org_freedesktop_dbus_DBusConnection
 * Method:    dbus_send_error_message
 * Signature: ([Ljava/lang/Object;)I
 */
JNIEXPORT jint JNICALL Java_org_freedesktop_dbus_DBusConnection_dbus_1send_1error_1message
  (JNIEnv *env, jobject connobj, jint cidx, jstring destination, jstring name, jlong replyserial, jobjectArray params)
{
   int rv;
   dbus_uint32_t serial = 0; // unique number to associate replies with requests
   DBusMessage* msg;
   DBusMessageIter args;
   DBusConnection* conn;

   const char* cdestination = NULL;
   if (NULL != destination)
      cdestination = (*env)->GetStringUTFChars(env, destination, 0);
   const char* cname = NULL;
   if (NULL != name)
      cname = (*env)->GetStringUTFChars(env, name, 0);

  
   // create a message and check for errors 
   msg = dbus_message_new(DBUS_MESSAGE_TYPE_ERROR);
   if (NULL == msg) 
      return -1;
   if (0 != replyserial)
      dbus_message_set_reply_serial(msg, replyserial);
   dbus_message_set_error_name(msg, cname);
   dbus_message_set_destination(msg, cdestination);

   // append arguments onto signal
   dbus_message_iter_init_append(msg, &args);
   rv = append_args(env, &args, params, connobj);
   if (0 != rv) {
      dbus_message_unref(msg);
      return rv;
   }
   
   conn = getconn(env, cidx);
   if (NULL == conn || !dbus_connection_get_is_connected(conn)) {
      jclass dbeclass = (*env)->FindClass(env, "org/freedesktop/dbus/NotConnected");
      (*env)->ThrowNew(env, dbeclass, "Disconnected");
      (*env)->DeleteLocalRef(env, dbeclass);
      return -1;
   }
   // send the message and flush the connection
   if (!dbus_connection_send(conn, msg, &serial)) {
      dbus_message_unref(msg);
      return -1;
   }
   if (debug) fprintf(stderr, "<= ERROR: (=> %s) %s {%ld,%ld}\n", cdestination, cname, (long int) serial,(long int) replyserial);
         
   dbus_connection_flush(conn);

   // free the message 
   dbus_message_unref(msg);
   if (NULL != cname) (*env)->ReleaseStringUTFChars(env, name, cname);
   if (NULL != cdestination) (*env)->ReleaseStringUTFChars(env, destination, cdestination);
   return serial;
}


/*
 * Class:     org_freedesktop_dbus_DBusConnection
 * Method:    dbus_call_method
 * Signature: ([Ljava/lang/Object;)I
 */
JNIEXPORT jint JNICALL Java_org_freedesktop_dbus_DBusConnection_dbus_1call_1method
  (JNIEnv * env, jobject connobj, jint cidx, jstring busname, jstring objectpath, jstring type, jstring name, jint flags, jobjectArray params)
{
   int rv;
   dbus_uint32_t serial = 0; // unique number to associate replies with requests
   DBusMessage* msg;
   DBusMessageIter args;
   DBusConnection* conn;

   const char* cbusname = NULL;
   if (NULL != busname)
      cbusname = (*env)->GetStringUTFChars(env, busname, 0);
   const char* cobjectpath = NULL;
   if (NULL != objectpath)
      cobjectpath = (*env)->GetStringUTFChars(env, objectpath, 0);
   const char* cname = NULL;
   if (NULL != name)
      cname = (*env)->GetStringUTFChars(env, name, 0);
   const char* ctype = NULL;
   if (NULL != type)
      ctype = (*env)->GetStringUTFChars(env, type, 0);
  
   // create a message and check for errors 
   msg = dbus_message_new_method_call(cbusname, // busname name to call
         cobjectpath, // object name of the method
         ctype, // interface name of the method
         cname); // name of the method

   if (flags & org_freedesktop_dbus_MethodCall_NO_REPLY) dbus_message_set_no_reply(msg, TRUE);
   dbus_message_set_auto_start(msg, flags & org_freedesktop_dbus_MethodCall_AUTO_START);
   
   if (NULL == msg) 
      return -1;

   // append arguments onto signal
   dbus_message_iter_init_append(msg, &args);
   rv = append_args(env, &args, params, connobj);
   if (0 != rv) return rv;
   
   conn = getconn(env, cidx);
   if (NULL == conn || !dbus_connection_get_is_connected(conn)) {
      jclass dbeclass = (*env)->FindClass(env, "org/freedesktop/dbus/NotConnected");
      (*env)->ThrowNew(env, dbeclass, "Disconnected");
      (*env)->DeleteLocalRef(env, dbeclass);
      return -1;
   }
   // send the message and flush the connection
   if (!dbus_connection_send(conn, msg, &serial)) {
      dbus_message_unref(msg);
      return -1;
   }

   dbus_connection_flush(conn);

   if (debug) {
      const char* sig = dbus_message_get_signature(msg);
      fprintf(stderr, "<= CALL: %s%s[%s.%s](%s) {%d}\n", cbusname,cobjectpath,ctype,cname,sig,serial);
   }

   if (NULL != cname) (*env)->ReleaseStringUTFChars(env, name, cname);
   if (NULL != ctype) (*env)->ReleaseStringUTFChars(env, type, ctype);
   if (NULL != cbusname) (*env)->ReleaseStringUTFChars(env, busname, cbusname);
   if (NULL != cobjectpath) (*env)->ReleaseStringUTFChars(env, objectpath, cobjectpath);
   
   // free the message 
   dbus_message_unref(msg);
   return serial;
}

/*
 * Class:     org_freedesktop_dbus_DBusConnection
 * Method:    dbus_reply_to_call
 * Signature: ([Ljava/lang/Object;)I
 */
JNIEXPORT jint JNICALL Java_org_freedesktop_dbus_DBusConnection_dbus_1reply_1to_1call
  (JNIEnv *env, jobject connobj, jint cidx, jstring destination, jstring type, jstring objectpath, jstring name, jlong replyserial, jobjectArray params)
{
   int rv;
   dbus_uint32_t serial = 0; // unique number to associate replies with requests
   DBusMessage* msg;
   DBusMessageIter args;
   DBusConnection* conn;

   const char* cdestination = NULL;
   if (NULL != destination)
      cdestination = (*env)->GetStringUTFChars(env, destination, 0);
   const char* cname = NULL;
   if (NULL != name)
      cname = (*env)->GetStringUTFChars(env, name, 0);
   const char* ctype = NULL;
   if (NULL != type)
      ctype = (*env)->GetStringUTFChars(env, type, 0);
   const char* cobjectpath = NULL;
   if (NULL != objectpath)
      cobjectpath = (*env)->GetStringUTFChars(env, objectpath, 0);
  
   // create a message and check for errors 
   msg = dbus_message_new(DBUS_MESSAGE_TYPE_METHOD_RETURN);
   if (NULL == msg) 
      return -1;
   dbus_message_set_reply_serial(msg, replyserial);
   dbus_message_set_member(msg, cname);
   dbus_message_set_destination(msg, cdestination);
   dbus_message_set_interface(msg, ctype);
   dbus_message_set_path(msg, cobjectpath);


   // append arguments onto signal
   dbus_message_iter_init_append(msg, &args);
   rv = append_args(env, &args, params, connobj);
   if (0 != rv) {
      dbus_message_unref(msg);
      return rv;
   }
   
   conn = getconn(env, cidx);
   if (NULL == conn || !dbus_connection_get_is_connected(conn)) {
      jclass dbeclass = (*env)->FindClass(env, "org/freedesktop/dbus/NotConnected");
      (*env)->ThrowNew(env, dbeclass, "Disconnected");
      (*env)->DeleteLocalRef(env, dbeclass);
      return -1;
   }
   // send the message and flush the connection
   if (!dbus_connection_send(conn, msg, &serial)) {
      dbus_message_unref(msg);
      return -1;
   }
   if (debug) {
      const char* sig = dbus_message_get_signature(msg);
      fprintf(stderr, "<= REPLY: %s%s[%s.%s](%s) {%ld,%ld}\n", cdestination, cobjectpath,ctype,cname,sig,(long int) serial,(long int) replyserial);
   }

   if (NULL != cname) (*env)->ReleaseStringUTFChars(env, name, cname);
   if (NULL != ctype) (*env)->ReleaseStringUTFChars(env, type, ctype);
   if (NULL != cobjectpath) (*env)->ReleaseStringUTFChars(env, objectpath, cobjectpath);
   if (NULL != cdestination) (*env)->ReleaseStringUTFChars(env, destination, cdestination);

   dbus_connection_flush(conn);

   // free the message 
   dbus_message_unref(msg);
   return serial;
}