source: trunk/zoo-project/zoo-kernel/service_internal_java.c @ 770

Last change on this file since 770 was 767, checked in by djay, 8 years ago

Fix issue with headers located in extern C. Define java.library.path at runtime to search for libZOO.so from the Java zoo-api.
  • Property svn:eol-style set to native
  • Property svn:mime-type set to text/x-csrc
File size: 24.1 KB
Line 
1/*
2 * Author : Gérald FENOY
3 *
4 * Copyright (c) 2009-2013 GeoLabs SARL
5 *
6 * Permission is hereby granted, free of charge, to any person obtaining a copy
7 * of this software and associated documentation files (the "Software"), to deal
8 * in the Software without restriction, including without limitation the rights
9 * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
10 * copies of the Software, and to permit persons to whom the Software is
11 * furnished to do so, subject to the following conditions:
12 *
13 * The above copyright notice and this permission notice shall be included in
14 * all copies or substantial portions of the Software.
15 *
16 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
17 * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
18 * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
19 * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
20 * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
21 * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
22 * THE SOFTWARE.
23 */
24
25#include "service_internal_java.h"
26#include "response_print.h"
27
28/**
29 * Load a JAVA class then run the static public method corresponding to the
30 * service by passing the conf, inputs and outputs parameters by reference.
31 *
32 * @param main_conf the conf maps containing the main.cfg settings
33 * @param request the map containing the HTTP request
34 * @param s the service structure
35 * @param real_inputs the maps containing the inputs
36 * @param real_outputs the maps containing the outputs
37 */
38int zoo_java_support(maps** main_conf,map* request,service* s,maps **real_inputs,maps **real_outputs){
39  maps* m=*main_conf;
40  maps* inputs=*real_inputs;
41  maps* outputs=*real_outputs;
42  map* cwdMap=getMapFromMaps(*main_conf,"lenv","cwd");
43  char *ntmp=NULL;
44  if(cwdMap!=NULL)
45    ntmp=zStrdup(cwdMap->value);
46  map* tmp=getMap(request,"metapath");
47  char *classpath;
48  char *oclasspath;
49  int res=SERVICE_FAILED;
50  char *cclasspath=getenv("CLASSPATH");
51  if(tmp!=NULL){
52    if(cclasspath!=NULL){
53      classpath=(char*) malloc((strlen(ntmp)+strlen(tmp->value)+strlen(cclasspath)+4)*sizeof(char));
54      oclasspath=(char*) malloc((strlen(ntmp)+strlen(tmp->value)+strlen(cclasspath)+22)*sizeof(char));
55#ifndef WIN32
56      sprintf(classpath,"%s/%s/:%s",ntmp,tmp->value,cclasspath);
57#else
58      sprintf(classpath,"%s/%s/;%s",ntmp,tmp->value,cclasspath);
59#endif
60    }
61    else{
62      classpath=(char*) malloc((strlen(ntmp)+strlen(tmp->value)+3)*sizeof(char));
63      oclasspath=(char*) malloc((strlen(ntmp)+strlen(tmp->value)+21)*sizeof(char));
64      sprintf(classpath,"%s/%s/",ntmp,tmp->value);
65    }
66  }else{
67    if(cclasspath!=NULL){
68      classpath=(char*) malloc((strlen(ntmp)+strlen(cclasspath)+3)*sizeof(char));
69      oclasspath=(char*) malloc((strlen(ntmp)+strlen(cclasspath)+21)*sizeof(char));
70#ifndef WIN32
71      sprintf(classpath,"%s/:%s",ntmp,cclasspath);
72#else
73      sprintf(classpath,"%s/;%s",ntmp,cclasspath);
74#endif
75    }
76    else{
77      classpath=(char*) malloc((strlen(ntmp)+2)*sizeof(char));
78      oclasspath=(char*) malloc((strlen(ntmp)+20)*sizeof(char));
79      sprintf(classpath,"%s/",ntmp);
80    }
81
82  }
83  sprintf(oclasspath,"-Djava.class.path=%s",classpath);
84#ifdef DEBUG
85  fprintf(stderr,"CLASSPATH=%s\n",classpath);
86  fprintf(stderr,"(%s)\n",oclasspath);
87#endif
88#ifndef USE_JDB
89  int njdb=0;
90#else
91  int njdb=2;
92#endif
93#ifndef WIN32
94  int nb=3+njdb;
95#endif
96  int nbc0=0;
97  maps* javaXXMap=getMaps(*main_conf,"javaxx");
98  if(javaXXMap!=NULL){
99    nbc0+=count(javaXXMap->content);
100  }
101  int nbc1=0;
102  maps* javaXMap=getMaps(*main_conf,"javax");
103  if(javaXMap!=NULL){
104    nbc1+=count(javaXMap->content);
105  }
106#ifdef WIN32
107  //#define nb (2+nbc0+nbc1)
108  const int nb=2+nbc0+nbc1;
109  JavaVMOption *options=(JavaVMOption*)malloc(nb*sizeof(JavaVMOption));
110#else
111  JavaVMOption options[nb+nbc0+nbc1+1];
112#endif
113  JavaVMInitArgs vm_args;
114  JavaVM *jvm;
115  JNIEnv *env;
116  long result;
117  jmethodID pmid;
118  jclass cls;
119#ifdef JAVA7
120  jobject cls_gr;
121#else
122  jclass cls_gr;
123#endif
124  int i,start;
125  map *cursorxx=NULL;
126  if(javaXXMap!=NULL)
127    cursorxx=javaXXMap->content;
128  map *cursorx=NULL;
129  if(javaXMap!=NULL)
130    cursorx=javaXMap->content;
131  options[0].optionString = oclasspath;
132  options[0].extraInfo=NULL;
133  options[1].optionString = "-server";
134  options[1].extraInfo=NULL;
135  char tmp1[100];
136  sprintf(tmp1,"-Djava.library.path=%s",cwdMap->value);
137  fprintf(stderr,"%s\n",tmp1);
138  options[2].optionString = tmp1;
139  options[2].extraInfo=NULL;
140#ifdef USE_JDB
141  options[3].optionString = "-Xdebug";
142  options[3].extraInfo=NULL;
143  options[4].optionString = "-Xrunjdwp:transport=dt_socket,server=y,suspend=n,address=7896";
144  options[4].extraInfo=NULL;
145#endif
146#ifdef WIN32
147  start=2;
148  options[1].optionString = "-Xmx512m";
149#else
150  start=3+njdb;
151#endif
152  for(i=0;i<nbc0;i++){
153    char *tmp=parseJVMXXOption(cursorxx);
154    options[start+i].optionString = zStrdup(tmp);
155    options[start+i].extraInfo=NULL;
156    free(tmp);
157    cursorxx=cursorxx->next;
158  }
159  for(;i<nbc1+nbc0;i++){
160    char *tmp=parseJVMXOption(cursorx);
161    options[start+i].optionString = zStrdup(tmp);
162    options[start+i].extraInfo=NULL;
163    free(tmp);
164    cursorx=cursorx->next;
165  }
166
167  JNI_GetDefaultJavaVMInitArgs(&vm_args);
168  vm_args.version = JNI_VERSION_1_6;
169  vm_args.options = options;
170  vm_args.nOptions = start+nbc0+nbc1;
171  vm_args.ignoreUnrecognized = JNI_TRUE;
172
173  result = JNI_CreateJavaVM(&jvm,(void **)&env, &vm_args);
174  if(result == JNI_ERR ) {
175    fprintf(stderr,"Error invoking the JVM");
176    return -1;
177  }
178#ifdef DEBUG
179  else
180    fprintf(stderr,"JAVA VM Started\n");
181#endif
182
183  tmp=getMap(s->content,"serviceProvider");
184#ifdef JAVA7
185  cls = (*env).FindClass(tmp->value);
186#else
187  cls = (*env)->FindClass(env,tmp->value);
188#endif
189  if( cls == NULL ) {
190    displayStack(env,*main_conf);
191#ifdef JAVA7
192    (*jvm).DestroyJavaVM();
193#else
194    (*jvm)->DestroyJavaVM(jvm);
195#endif
196    return -1;
197  }
198#ifdef DEBUG
199  else{
200    fprintf(stderr,"%s loaded\n",tmp->value);
201  }
202#endif
203#ifdef JAVA7
204  cls_gr = (*env)NewGlobalRef(cls);
205#else
206  cls_gr = (*env)->NewGlobalRef(env, cls);
207#endif
208
209  if (cls != NULL) {
210#ifdef JAVA7
211    (*env).ExceptionClear();
212    pmid=(*env).GetStaticMethodID(cls, s->name, "(Ljava/util/HashMap;Ljava/util/HashMap;Ljava/util/HashMap;)I");
213#else
214    (*env)->ExceptionClear(env);
215    pmid=(*env)->GetStaticMethodID(env,cls_gr, s->name, "(Ljava/util/HashMap;Ljava/util/HashMap;Ljava/util/HashMap;)I");
216#endif
217    if (pmid!=0){
218#ifdef DEBUG
219      fprintf(stderr,"Function successfully loaded\n");
220#endif
221      jclass scHashMapClass,scHashMap_class;
222      jmethodID scHashMap_constructor;
223#ifdef JAVA7
224      scHashMapClass = (*env).FindClass("java/util/HashMap");
225      scHashMap_class = (jclass)(*env).NewGlobalRef(scHashMapClass);
226      scHashMap_constructor = (*env).GetMethodID(scHashMap_class, "<init>", "()V");
227#else
228      scHashMapClass = (*env)->FindClass(env, "java/util/HashMap");
229      scHashMap_class = (*env)->NewGlobalRef(env, scHashMapClass);
230      scHashMap_constructor = (*env)->GetMethodID(env, scHashMap_class, "<init>", "()V");
231#endif
232      /**
233       * The 3 standard parameter for each services
234       */
235      jobject arg1=HashMap_FromMaps(env,m,scHashMapClass,scHashMap_class,scHashMap_constructor);
236      jobject arg2=HashMap_FromMaps(env,inputs,scHashMapClass,scHashMap_class,scHashMap_constructor);
237      jobject arg3=HashMap_FromMaps(env,outputs,scHashMapClass,scHashMap_class,scHashMap_constructor);
238      jint pValue=0;
239
240#ifdef JAVA7
241      pValue=(*env).CallStaticIntMethod(cls,pmid,arg1,arg2,arg3);
242#else
243      pValue=(*env)->CallStaticIntMethod(env,cls,pmid,arg1,arg2,arg3);
244#endif
245      if (pValue != (jint)NULL){
246        res=pValue;
247        m=mapsFromHashMap(env,arg1,scHashMapClass);
248        *main_conf=m;
249        outputs=mapsFromHashMap(env,arg3,scHashMapClass);
250        *real_outputs=outputs;
251
252#ifdef DEBUG
253        fprintf(stderr,"Result of call: %i\n", pValue);
254        dumpMaps(inputs);
255        dumpMaps(outputs);
256#endif
257      }else{
258        displayStack(env,*main_conf);
259#ifdef JAVA7
260        (*jvm).DestroyJavaVM();
261#else
262        (*jvm)->DestroyJavaVM(jvm);
263#endif
264        return -1;
265      }
266    }
267    else{
268      displayStack(env,*main_conf);
269#ifdef JAVA7
270      (*env).ExceptionDescribe();
271      (*jvm).DestroyJavaVM();
272#else
273      (*jvm)->DestroyJavaVM(jvm);
274#endif
275      return -1;
276    }
277  }
278#ifdef JAVA7
279      (*jvm).DestroyJavaVM();
280#else
281  (*jvm)->DestroyJavaVM(jvm);
282#endif
283  for(i=0;i<nbc1+nbc0;i++){
284    free(options[start+i].optionString);
285  }
286#ifdef WIN32
287  free(options);
288#endif
289  return res;
290}
291
292/**
293 * Error handling: display stack trace in an ExceptionReport Document
294 *
295 * @param env the JNI environment pointer
296 * @param main_conf the conf maps containing the main.cfg settings
297 */
298void displayStack(JNIEnv *env,maps* main_conf){
299  map *tmpm=getMapFromMaps(main_conf,"main","tmpPath");
300  char tmps[1024];
301  sprintf(tmps,"%s/%d.ztmp",tmpm->value,getpid());
302  FILE* new_stdout=fopen(tmps,"wb+");
303  if(new_stdout==NULL){
304    map* err=createMap("text","Unable to run your service, no debug informations can be provided (please verify privileges on tmpPath)");
305    addToMap(err,"code","InternalError");
306    printExceptionReportResponse(main_conf,err);
307    freeMap(&err);
308    free(err);
309    return;
310  }
311  fflush(stderr);
312  dup2(fileno(new_stdout),fileno(stderr));
313  fprintf(stderr,"Unable to run your java process properly: ");
314  fflush(stderr);
315#ifdef JAVA7
316  (*env).ExceptionDescribe();
317#else
318  (*env)->ExceptionDescribe(env);
319#endif
320  fflush(new_stdout);
321  fseek(new_stdout, 0, SEEK_END);
322  long flen=ftell(new_stdout);
323  fseek(new_stdout, 0, SEEK_SET);
324  char *tmps1=(char*)malloc((flen+1)*sizeof(char));
325  fread(tmps1,flen,1,new_stdout);
326  fclose(new_stdout);
327  tmps1[flen]=0;
328  map* err=createMap("text",tmps1);
329  addToMap(err,"code","InternalError");
330  printExceptionReportResponse(main_conf,err);
331  freeMap(&err);
332  free(err);
333}
334
335/**
336 * Create a string containing the JVM -XX:* option for a given map
337 * Depending on the map' name:
338 *  - in case the value is minus then the result will be : -XX:-name
339 *  - in case the value is plus then the result will be : -XX:+name
340 *  - in other cases the result will be : -XX:name=value
341 *
342 * @param m the map containing the option
343 * @return a char* containing the valide JVM option (-XX:*)
344 */
345char *parseJVMXXOption(map* m){
346  char *res=(char*)malloc((strlen(m->name)+strlen(m->value)+6)*sizeof(char));
347  if(strncasecmp(m->value,"minus",5)==0)
348    sprintf(res,"-XX:-%s",m->name);
349  else if(strncasecmp(m->value,"plus",4)==0)
350    sprintf(res,"-XX:+%s",m->name);
351  else
352    sprintf(res,"-XX:%s=%s",m->name,m->value);
353  return res;
354}
355
356/**
357 * Create a string containing the JVM -X** option for a given map.
358 * The result will be in the following format: -Xnamevalue
359 *
360 * @param m the map containing the option
361 * @return a char* containing the valide JVM option (-X**)
362 */
363char *parseJVMXOption(map* m){
364  char *res=(char*)malloc((strlen(m->name)+strlen(m->value)+5)*sizeof(char));
365  sprintf(res,"-X%s%s",m->name,m->value);
366  return res;
367}
368
369/**
370 * Convert a maps to a JAVA HashMap<String,HashMap<String,String>>
371 *
372 * @param env the JNI environment pointer
373 * @param t the maps to convert
374 * @param scHashMapClass the HashMap class
375 * @param scHashMap_class the HashMap class
376 * @param scHashMap_constructor the pointer to the hashMap constructor method
377 * @return a created JAVA HashMap containing the converted maps
378 * @warning make sure to free ressources returned by this function
379 */
380jobject HashMap_FromMaps(JNIEnv *env,maps* t,jclass scHashMapClass,jclass scHashMap_class,jmethodID scHashMap_constructor){
381  jobject scObject,scObject1;
382  if(scHashMap_constructor!=NULL){
383#ifdef JAVA7
384    scObject = (*env).NewObject(scHashMap_class, scHashMap_constructor);
385#else
386    scObject = (*env)->NewObject(env, scHashMap_class, scHashMap_constructor);
387#endif
388    jmethodID put_mid = 0;
389
390#ifdef JAVA7
391    put_mid = (*env).GetMethodID(scHashMapClass, "put",
392                                  "(Ljava/lang/Object;Ljava/lang/Object;)"
393                                  "Ljava/lang/Object;");
394#else
395    put_mid = (*env)->GetMethodID(env,scHashMapClass, "put",
396                                  "(Ljava/lang/Object;Ljava/lang/Object;)"
397                                  "Ljava/lang/Object;");
398#endif
399    maps* tmp=t;
400    while(tmp!=NULL){
401      map* tmap=getMapType(tmp->content);
402      map* tmp1=tmp->content;
403#ifdef JAVA7
404      scObject1 = (*env).NewObject(scHashMap_class, scHashMap_constructor);
405#else
406      scObject1 = (*env)->NewObject(env, scHashMap_class, scHashMap_constructor);
407#endif
408      map* sizeV=getMap(tmp1,"size");
409      map* isArray=getMap(tmp1,"isArray");
410      map* alen=getMap(tmp1,"length");
411      while(tmp1!=NULL){
412        if(strcmp(tmp1->name,"value")==0){
413          if(isArray==NULL){
414            if(sizeV!=NULL && strcmp(tmp1->name,"value")==0){
415#ifdef JAVA7
416              jbyteArray tmpData=(*env).NewByteArray(atoi(sizeV->value));
417              (*env).SetByteArrayRegion(tmpData,0,atoi(sizeV->value),(const jbyte *)tmp1->value);
418              (*env).CallObjectMethod(env,scObject1, put_mid, (*env).NewStringUTF(env,tmp1->name), tmpData);
419#else
420              jbyteArray tmpData=(*env)->NewByteArray(env,atoi(sizeV->value));
421              (*env)->SetByteArrayRegion(env,tmpData,0,atoi(sizeV->value),(jbyte*) tmp1->value);
422              (*env)->CallObjectMethod(env,scObject1, put_mid, (*env)->NewStringUTF(env,tmp1->name), tmpData);
423#endif
424            }else
425#ifdef JAVA7
426              (*env).CallObjectMethod(scObject1, put_mid, (*env).NewStringUTF(tmp1->name), (*env).NewStringUTF(tmp1->value));
427#else
428              (*env)->CallObjectMethod(env,scObject1, put_mid, (*env)->NewStringUTF(env,tmp1->name), (*env)->NewStringUTF(env,tmp1->value));
429#endif
430          }
431          else{
432            int alen1=atoi(alen->value);
433            fprintf(stderr,"LENGTH %d \n",alen1);
434           
435            jclass scArrayListClass,scArrayList_class;
436            jmethodID scArrayList_constructor;
437            jobject scObject2;
438#ifdef JAVA7
439            scArrayListClass = (*env).FindClass("java/util/ArrayList");
440            scArrayList_class = (jclass)(*env).NewGlobalRef(scArrayListClass);
441            scArrayList_constructor = (*env).GetMethodID(scArrayList_class, "<init>", "()V");
442            jmethodID add_mid = 0;
443            scObject2 = (*env).NewObject(scArrayList_class, scArrayList_constructor);
444
445            add_mid = (*env).GetMethodID(scArrayListClass,
446                                          "add","(Ljava/lang/Object;)Z");
447#else
448            scArrayListClass = (*env)->FindClass(env, "java/util/ArrayList");
449            scArrayList_class = (*env)->NewGlobalRef(env, scArrayListClass);
450            scArrayList_constructor = (*env)->GetMethodID(env, scArrayList_class, "<init>", "()V");
451            jmethodID add_mid = 0;
452            scObject2 = (*env)->NewObject(env, scArrayList_class, scArrayList_constructor);
453
454            add_mid = (*env)->GetMethodID(env,scArrayListClass,
455                                          "add","(Ljava/lang/Object;)Z");
456#endif     
457            int i;
458           
459            for(i=0;i<alen1;i++){
460              map* vMap=getMapArray(tmp->content,"value",i);       
461              map* sMap=getMapArray(tmp->content,"size",i);
462              map* mMap=getMapArray(tmp->content,tmap->value,i);
463             
464              if(sMap!=NULL && vMap!=NULL && strncmp(vMap->name,"value",5)==0){
465#ifdef JAVA7
466                jbyteArray tmpData=(*env).NewByteArray(atoi(sMap->value));
467                (*env).SetByteArrayRegion(tmpData,0,atoi(sMap->value),(const jbyte *)vMap->value);
468                (*env).CallObjectMethod(scObject2, add_mid, tmpData);
469#else
470                jbyteArray tmpData=(*env)->NewByteArray(env,atoi(sMap->value));
471                (*env)->SetByteArrayRegion(env,tmpData,0,atoi(sMap->value),vMap->value);
472                (*env)->CallObjectMethod(env,scObject2, add_mid, tmpData);
473#endif
474              }else{
475#ifdef JAVA7
476                jobject tmpData=(*env).NewStringUTF(vMap->value);
477                (*env).CallObjectMethod(scObject2, add_mid, tmpData);
478#else
479                jobject tmpData=(*env)->NewStringUTF(env,vMap->value);
480                (*env)->CallObjectMethod(env,scObject2, add_mid, tmpData);
481#endif
482              }
483             
484            }
485
486#ifdef JAVA7
487            (*env).CallObjectMethod(scObject1, put_mid, (*env).NewStringUTF(tmp1->name), scObject2);
488#else       
489            (*env)->CallObjectMethod(env,scObject1, put_mid, (*env)->NewStringUTF(env,tmp1->name), scObject2);
490#endif
491
492          }
493        }
494        else
495#ifdef JAVA7
496          (*env).CallObjectMethod(scObject1, put_mid, (*env).NewStringUTF(tmp1->name), (*env).NewStringUTF(tmp1->value));
497#else
498          (*env)->CallObjectMethod(env,scObject1, put_mid, (*env)->NewStringUTF(env,tmp1->name), (*env)->NewStringUTF(env,tmp1->value));
499#endif
500        tmp1=tmp1->next;
501      }
502#ifdef JAVA7
503      (*env).CallObjectMethod(scObject, put_mid, (*env).NewStringUTF(tmp->name), scObject1);
504#else
505      (*env)->CallObjectMethod(env,scObject, put_mid, (*env)->NewStringUTF(env,tmp->name), scObject1);
506#endif
507      tmp=tmp->next;
508    }
509    return scObject;
510  }
511  else
512    return NULL;
513}
514
515/**
516 * Convert a JAVA HashMap<String,HashMap<String,String>> to a maps
517 *
518 * @param env the JNI environment pointer
519 * @param t the HashMap
520 * @param scHashMapClass the hashMap class
521 * @return a created maps containing the converted HashMap
522 * @warning make sure to free ressources returned by this function
523 */
524maps* mapsFromHashMap(JNIEnv *env,jobject t,jclass scHashMapClass){
525#ifdef DEBUG
526  fprintf(stderr,"mapsFromHashMap start\n");
527#endif
528  /**
529   * What need to be done (in java).
530   * Set set = hm.entrySet();
531   * Iterator i = set.iterator();
532   * while(i.hasNext()){
533   *   Map.Entry me = (Map.Entry)i.next();
534   *   System.out.println(me.getKey() + " : " + me.getValue() );
535   * }
536   */
537  jclass scSetClass,scIteratorClass,scMapEntryClass;
538  jmethodID entrySet_mid,containsKey_mid,get_mid,iterator_mid,hasNext_mid,next_mid,getKey_mid,getValue_mid;
539  if(scHashMapClass==NULL){
540#ifdef DEBUG
541    fprintf(stderr,"Unable to load java.util.HashMap\n");
542#endif
543    return NULL;
544  }
545#ifdef JAVA7
546  entrySet_mid = (*env).GetMethodID(scHashMapClass, "entrySet", "()Ljava/util/Set;"); 
547  containsKey_mid = (*env).GetMethodID(scHashMapClass, "containsKey", "(Ljava/lang/Object;)Z");
548  get_mid = (*env).GetMethodID(scHashMapClass, "get", "(Ljava/lang/Object;)Ljava/lang/Object;"); 
549#else
550  entrySet_mid = (*env)->GetMethodID(env, scHashMapClass, "entrySet", "()Ljava/util/Set;"); 
551  containsKey_mid = (*env)->GetMethodID(env, scHashMapClass, "containsKey", "(Ljava/lang/Object;)Z");
552  get_mid = (*env)->GetMethodID(env, scHashMapClass, "get", "(Ljava/lang/Object;)Ljava/lang/Object;"); 
553#endif
554
555  if(containsKey_mid==0){
556#ifdef DEBUG
557    fprintf(stderr,"unable to load containsKey from HashMap object (%d) \n",entrySet_mid);
558#endif
559    return NULL;
560  }
561  if(get_mid==0){
562#ifdef DEBUG
563    fprintf(stderr,"unable to load get from HashMap object (%d) \n",entrySet_mid);
564#endif
565    return NULL;
566  }
567  if(entrySet_mid==0){
568#ifdef DEBUG
569    fprintf(stderr,"unable to load entrySet from HashMap object (%d) \n",entrySet_mid);
570#endif
571    return NULL;
572  }
573#ifdef DEBUG
574  else
575    fprintf(stderr,"entrySet loaded from HashMap object (%d) \n",entrySet_mid);
576#endif
577
578#ifdef JAVA7
579  scSetClass = (*env).FindClass("java/util/Set");
580  iterator_mid = (*env).GetMethodID(scSetClass, "iterator", "()Ljava/util/Iterator;"); 
581#else
582  scSetClass = (*env)->FindClass(env, "java/util/Set");
583  iterator_mid = (*env)->GetMethodID(env, scSetClass, "iterator", "()Ljava/util/Iterator;"); 
584#endif
585#ifdef DEBUG
586  fprintf(stderr,"mapsFromHashMap 1 (%d) \n",iterator_mid);
587#endif
588
589#ifdef JAVA7
590  scIteratorClass = (*env).FindClass("java/util/Iterator");
591  hasNext_mid = (*env).GetMethodID(scIteratorClass, "hasNext", "()Z");
592#else
593  scIteratorClass = (*env)->FindClass(env, "java/util/Iterator");
594  hasNext_mid = (*env)->GetMethodID(env, scIteratorClass, "hasNext", "()Z");
595#endif
596
597#ifdef DEBUG
598  fprintf(stderr,"mapsFromHashMap 2 (%d)\n",hasNext_mid);
599#endif
600
601#ifdef JAVA7
602  next_mid = (*env).GetMethodID(scIteratorClass, "next", "()Ljava/lang/Object;");
603#else
604  next_mid = (*env)->GetMethodID(env, scIteratorClass, "next", "()Ljava/lang/Object;");
605#endif
606#ifdef DEBUG
607  fprintf(stderr,"mapsFromHashMap 3 (%d)\n",next_mid);
608#endif
609
610#ifdef JAVA7
611  scMapEntryClass = (*env).FindClass("java/util/Map$Entry");
612  getKey_mid = (*env).GetMethodID(scMapEntryClass, "getKey", "()Ljava/lang/Object;");
613#else
614  scMapEntryClass = (*env)->FindClass(env, "java/util/Map$Entry");
615  getKey_mid = (*env)->GetMethodID(env, scMapEntryClass, "getKey", "()Ljava/lang/Object;");
616#endif
617#ifdef DEBUG
618  fprintf(stderr,"mapsFromHashMap 4 (%d)\n",getKey_mid);
619#endif
620#ifdef JAVA7
621  getValue_mid = (*env).GetMethodID(scMapEntryClass, "getValue", "()Ljava/lang/Object;");
622#else
623  getValue_mid = (*env)->GetMethodID(env, scMapEntryClass, "getValue", "()Ljava/lang/Object;");
624#endif
625#ifdef DEBUG
626  fprintf(stderr,"mapsFromHashMap 5 (%d)\n",getValue_mid);
627#endif
628
629#ifdef JAVA7
630  jobject final_set=(*env).CallObjectMethod(t,entrySet_mid);
631  jobject final_iterator=(*env).CallObjectMethod(final_set,iterator_mid);
632#else
633  jobject final_set=(*env)->CallObjectMethod(env,t,entrySet_mid);
634  jobject final_iterator=(*env)->CallObjectMethod(env,final_set,iterator_mid);
635#endif
636
637  maps* final_res=NULL;
638  map* res=NULL;
639#ifdef JAVA7
640  while((*env).CallBooleanMethod(final_iterator,hasNext_mid)){
641    jobject tmp=(*env).CallObjectMethod(final_iterator,next_mid);
642
643    jobject imap=(*env).CallObjectMethod(tmp,getValue_mid);
644    jobject set=(*env).CallObjectMethod(imap,entrySet_mid);
645    jobject iterator=(*env).CallObjectMethod(set,iterator_mid);
646
647#else
648  while((*env)->CallBooleanMethod(env,final_iterator,hasNext_mid)){
649    jobject tmp=(*env)->CallObjectMethod(env,final_iterator,next_mid);
650
651    jobject imap=(*env)->CallObjectMethod(env,tmp,getValue_mid);
652    jobject set=(*env)->CallObjectMethod(env,imap,entrySet_mid);
653    jobject iterator=(*env)->CallObjectMethod(env,set,iterator_mid);
654
655#endif
656    int size=-1;
657#ifdef JAVA7
658    if((*env).CallBooleanMethod(imap,containsKey_mid,(*env).NewStringUTF("size"))){
659      jobject sizeV=(*env).CallObjectMethod(imap, get_mid,(*env).NewStringUTF("size"));
660      const char* sizeVS=(*env).GetStringUTFChars((jstring)sizeV, NULL);
661#else
662    if((*env)->CallBooleanMethod(env,imap,containsKey_mid,(*env)->NewStringUTF(env,"size"))){
663      jobject sizeV=(*env)->CallObjectMethod(env, imap, get_mid,(*env)->NewStringUTF(env,"size"));
664      const char* sizeVS=(*env)->GetStringUTFChars(env, sizeV, NULL);
665#endif
666      size=atoi(sizeVS);
667      fprintf(stderr,"SIZE : %s\n",sizeVS);
668#ifdef JAVA7
669      (*env).ReleaseStringUTFChars((jstring)sizeV, sizeVS);
670#else
671      (*env)->ReleaseStringUTFChars(env, sizeV, sizeVS);
672#endif
673    }
674   
675#ifdef JAVA7
676    while((*env).CallBooleanMethod(iterator,hasNext_mid)){
677      jobject tmp1=(*env).CallObjectMethod(iterator,next_mid);
678      jobject jk=(*env).CallObjectMethod(tmp1,getKey_mid);
679      jobject jv=(*env).CallObjectMethod(tmp1,getValue_mid);
680
681      const char* jkd=(*env).GetStringUTFChars((jstring)jk, NULL);
682#else
683    while((*env)->CallBooleanMethod(env,iterator,hasNext_mid)){
684      jobject tmp1=(*env)->CallObjectMethod(env,iterator,next_mid);
685      jobject jk=(*env)->CallObjectMethod(env,tmp1,getKey_mid);
686      jobject jv=(*env)->CallObjectMethod(env,tmp1,getValue_mid);
687
688      const char* jkd=(*env)->GetStringUTFChars(env, jk, NULL);
689#endif
690      if(size>=0 && strcmp(jkd,"value")==0){
691#ifdef JAVA7
692        jobject value=(jobject)(*env).GetByteArrayElements((jbyteArray)jv, NULL);
693#else
694        jobject value=(*env)->GetByteArrayElements(env, jv, NULL);
695#endif
696        if(res==NULL){
697          res=createMap(jkd,"");
698        }else{
699          addToMap(res,jkd,"");
700        }
701        map* tmpR=getMap(res,"value");
702        free(tmpR->value);
703        tmpR->value=(char*)malloc((size+1)*sizeof(char));
704        memmove(tmpR->value,value,size*sizeof(char));
705        tmpR->value[size]=0;
706        char tmp[128];
707        sprintf(tmp,"%d",size);
708        addToMap(res,"size",tmp);
709      }
710      else{
711#ifdef JAVA7
712        const char* jvd=(*env).GetStringUTFChars((jstring)jv, NULL);
713#else
714        const char* jvd=(*env)->GetStringUTFChars(env, jv, NULL);
715#endif
716        if(res==NULL){
717          res=createMap(jkd,jvd);
718        }else{
719          addToMap(res,jkd,jvd);
720        }
721#ifdef JAVA7
722        (*env).ReleaseStringUTFChars((jstring)jv, jvd);
723#else
724        (*env)->ReleaseStringUTFChars(env, jv, jvd);
725#endif
726      }
727
728#ifdef JAVA7
729      (*env).ReleaseStringUTFChars((jstring)jk, jkd);
730#else
731      (*env)->ReleaseStringUTFChars(env, jk, jkd);
732#endif
733
734    }
735#ifdef JAVA7
736    jobject jk=(*env).CallObjectMethod(tmp,getKey_mid);
737#else
738    jobject jk=(*env)->CallObjectMethod(env,tmp,getKey_mid);
739#endif
740    maps* cmap=(maps*)malloc(sizeof(maps));
741#ifdef JAVA7
742    cmap->name=(char*)(*env).GetStringUTFChars((jstring)jk, NULL);
743#else
744    cmap->name=(*env)->GetStringUTFChars(env, jk, NULL);
745#endif
746#ifdef DEBUG
747    fprintf(stderr," / %s \n",cmap->name);
748#endif
749    cmap->content=res;
750    cmap->next=NULL;
751    if(final_res==NULL)
752      final_res=dupMaps(&cmap);
753    else
754      addMapsToMaps(&final_res,cmap);
755    freeMaps(&cmap);
756    free(cmap);
757    cmap=NULL;
758    res=NULL;
759  }
760#ifdef DEBUG
761  fprintf(stderr,"mapsFromHashMap end\n");
762#endif
763
764  return final_res;
765}
766
Note: See TracBrowser for help on using the repository browser.

Download now !

Search

Context Navigation

Main Navigation

ZOO Sponsors

http://www.zoo-project.org/trac/chrome/site/img/geolabs-logo.pnghttp://www.zoo-project.org/trac/chrome/site/img/neogeo-logo.png http://www.zoo-project.org/trac/chrome/site/img/apptech-logo.png http://www.zoo-project.org/trac/chrome/site/img/3liz-logo.png http://www.zoo-project.org/trac/chrome/site/img/gateway-logo.png

Become a sponsor !

Knowledge partners

http://www.zoo-project.org/trac/chrome/site/img/ocu-logo.png http://www.zoo-project.org/trac/chrome/site/img/gucas-logo.png http://www.zoo-project.org/trac/chrome/site/img/polimi-logo.png http://www.zoo-project.org/trac/chrome/site/img/fem-logo.png http://www.zoo-project.org/trac/chrome/site/img/supsi-logo.png http://www.zoo-project.org/trac/chrome/site/img/cumtb-logo.png

Become a knowledge partner

Related links

http://zoo-project.org/img/ogclogo.png http://zoo-project.org/img/osgeologo.png