开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 多国语言处理 > 信息检索与抽取 > 查看源码
java.m
资源名称：swarm-2.2.tar.gz　[点击查看]
上传用户：shenzhenrh
上传日期：2013-05-12
资源大小：2904k
文件大小：65k
源码类别：

信息检索与抽取

开发平台：

Unix_Linux

java.m：源码内容
  1. #include <swarmconfig.h>
  2. #ifdef HAVE_JDK
  3. #import "java.h"
  4. #import <defobj/JavaProxy.h>
  5. #import <defobj/JavaClassProxy.h>
  6. #import <defobj/JavaCollection.h>
  7. #import <defobj/defalloc.h>
  8. #include <misc.h>
  10. // mframe_build_signature
  11. #ifdef GNUSTEP
  12. #include <Foundation/NSMethodSignature.h>
  13. #include <mframe.h>
  14. #else
  15. #ifdef USE_MFRAME
  16. #include <objc/mframe.h>
  17. #endif
  18. #endif
  20. #import "internal.h" // FCALL_TYPE_COUNT, objc_type_for_fcall_type
  22. #define extern
  23. #import "javavars.h"
  24. #undef extern
  26. #include <misc.h> // stpcpy
  28. static BOOL initFlag = NO;
  30. static jobject proxyClassLoader = 0;
  32. static const char *java_type_signature[FCALL_TYPE_COUNT] = {
  33.   "V", "C", "C", "C", "S", "S",
  34.   "I", "I", "J", "J", 
  36.   /* bogus */
  37.   "J", "J",
  39.   "F", "D",
  40.   "D", // long double
  41.   "X", // Object
  42.   "X", // Class
  43.   "Ljava/lang/String;", 
  44.   "Lswarm/Selector;",
  45.   "Ljava/lang/Object;",
  46.   "Ljava/lang/String;",
  47.   "Lswarm/Selector;",
  48.   "X" // iid
  49. };
  51. externvar id id_JavaClassProxy;
  54. const char *
  55. java_signature_for_fcall_type (fcall_type_t type)
  56. {
  57.   return java_type_signature[type];
  58. }
  60. static BOOL
  61. fcall_type_for_java_signature (const char *signature, fcall_type_t *typeptr)
  62. {
  63.   unsigned i;
  65.   for (i = 0; i < FCALL_TYPE_COUNT; i++)
  66.     if (strcmp (signature, java_type_signature[i]) == 0)
  67.       {
  68.         if (i == fcall_type_uint || i == fcall_type_ushort)
  69.           continue;
  70.         *typeptr = i;
  71.         return YES;
  72.       }
  73.   return NO;
  74. }
  76. static void
  77. fill_signature (char *buf, const char *className)
  78. {
  79.   char *bp = buf;
  80.   const char *cp = className;
  82.   *bp++ = 'L';
  83.   while (*cp)
  84.     {
  85.       *bp = (*cp == '.') ? '/' : *cp;
  86.       bp++;
  87.       cp++;
  88.     }
  89.   *bp++ = ';';
  90.   *bp = '';
  91. }
  93. static BOOL
  94. exactclassp (jclass class, jclass matchClass)
  95. {
  96.   return (*jniEnv)->IsSameObject (jniEnv, class, matchClass);
  97. }
  99. static BOOL
  100. classp (jclass class, jclass matchClass)
  101. {
  102.   jobject clazz;
  103.   
  104.   if ((*jniEnv)->IsSameObject (jniEnv, class, matchClass))
  105.     return YES;
  106.   else
  107.     {
  108.       jclass nextClass;
  109.       
  110.       for (clazz = (*jniEnv)->GetSuperclass (jniEnv, class);
  111.            clazz;
  112.            nextClass = (*jniEnv)->GetSuperclass (jniEnv, clazz), 
  113.              (*jniEnv)->DeleteLocalRef (jniEnv, clazz),
  114.              clazz = nextClass)
  115.         if ((*jniEnv)->IsSameObject (jniEnv, clazz, matchClass))
  116.           {
  117.             (*jniEnv)->DeleteLocalRef (jniEnv, clazz);
  118.             return YES;
  119.           }
  120.       return NO;
  121.     }
  122. }
  124. static const char *
  125. java_signature_for_class (jclass class)
  126. {
  127.   const char *type;
  129.   if (classp (class, c_Selector))
  130.     type = "Lswarm/Selector;";
  131.   else if (classp (class, c_String))
  132.     type = "Ljava/lang/String;";
  133.   else if (classp (class, c_Class))
  134.     type = "Ljava/lang/Class;";
  135.   else if (exactclassp (class, c_int))
  136.     type = "I";
  137.   else if (exactclassp (class, c_short))
  138.     type = "S";
  139.   else if (exactclassp (class, c_long))
  140.     type = "J";
  141.   else if (exactclassp (class, c_boolean))
  142.     type = "Z";
  143.   else if (exactclassp (class, c_byte))
  144.     type = "B";
  145.   else if (exactclassp (class, c_char))
  146.     type = "C";
  147.   else if (exactclassp (class, c_float))
  148.     type = "F";
  149.   else if (exactclassp (class, c_double))
  150.     type = "D";
  151.   else if (exactclassp (class, c_void))
  152.     type = "V";
  153.   else if ((*jniEnv)->CallBooleanMethod (jniEnv, class, m_ClassIsArray))
  154.     {
  155.       char *cp;
  156.       type = java_get_class_name (class);
  157.       
  158.       for (cp = (char *) type; *cp; cp++)
  159.         if (*cp == '.')
  160.           *cp = '/';
  161.       return type;
  162.     }
  163.   else
  164.     {
  165.       const char *name = java_get_class_name (class);
  166.       char *buf = [scratchZone alloc: 1 + strlen (name) + 1 + 1];
  168.       fill_signature (buf, name);
  169.       FREECLASSNAME (name);
  170.       return buf;
  171.     }
  172.   return SSTRDUP (type);
  173. }
  175. BOOL
  176. java_objc_proxy_p (jclass class)
  177. {
  178.   return classp (class, c_ObjCProxy);
  179. }
  181. static fcall_type_t
  182. java_getTypeInfo (jobject javaObj, unsigned *rankptr, unsigned *dims)
  183. {
  184.   unsigned rank = 0;
  185.   fcall_type_t elementType = fcall_type_void;
  186.   void checkArray (jobject obj)
  187.     {
  188.       jclass class = (*jniEnv)->GetObjectClass (jniEnv, obj);
  189.       jboolean isArray =
  190.         (*jniEnv)->CallBooleanMethod (jniEnv, class, m_ClassIsArray);
  191.       unsigned len;
  192.       
  193.       if (isArray)
  194.         {
  195.           const char *sig = java_signature_for_class (class);
  197.           len = (*jniEnv)->GetArrayLength (jniEnv, obj);
  198.           
  199.           if (dims)
  200.             dims[rank] = len;
  201.           rank++;
  202.           
  203.           if (len > 0 && sig[1] == '[')
  204.             {
  205.               jobject subobj =
  206.                 (*jniEnv)->GetObjectArrayElement (jniEnv, obj, 0);
  207.               
  208.               checkArray (subobj);
  209.               (*jniEnv)->DeleteLocalRef (jniEnv, subobj);
  210.             }
  211.           else if (!fcall_type_for_java_signature (&sig[1], &elementType))
  212.             abort ();
  213.           
  214.           SFREEBLOCK (sig);
  215.         }
  216.       else
  217.         elementType = fcall_type_for_java_class (class);
  218.           
  219.       (*jniEnv)->DeleteLocalRef (jniEnv, class);
  220.     }
  221.   checkArray (javaObj);
  222.   *rankptr = rank;
  224.   return elementType;
  225. }
  227. static void
  228. java_expandArray (jobject fullary, void *inbuf)
  229. {
  230.   unsigned char *buf = inbuf;
  231.   unsigned offset = 0;
  232.   
  233.   void permute (jobject obj)
  234.     {
  235.       jclass lref = (*jniEnv)->GetObjectClass (jniEnv, obj);
  236.       const char *sig = java_signature_for_class (lref);
  237.       jsize len = (*jniEnv)->GetArrayLength (jniEnv, obj);
  238.       (*jniEnv)->DeleteLocalRef (jniEnv, lref);
  239.       
  240.       if (sig[1] == '[')
  241.         {
  242.           int i;
  244.           for (i = 0; i < len; i++)
  245.             {
  246.               jobject subobj =
  247.                 (*jniEnv)->GetObjectArrayElement (jniEnv, obj, i);
  249.               permute (subobj);
  250.               (*jniEnv)->DeleteLocalRef (jniEnv, subobj);
  251.             }
  252.         }
  253.       else if (sig[1] == 'L')
  254.         {
  255.           *((id *) &buf[offset]) = SD_JAVA_ENSURE_OBJECT_OBJC (obj);
  256.           offset += sizeof (id);
  257.         }
  258.       else
  259.         {
  260.           fcall_type_t type;
  262.           jboolean isCopy;
  263.           size_t size;
  264.           void *ptr;
  266.           if (!fcall_type_for_java_signature (&sig[1], &type))
  267.             abort ();
  269.           size = fcall_type_size (type) * len;
  271.           switch (type)
  272.             {
  273.             case fcall_type_boolean:
  274.               ptr = (*jniEnv)->GetBooleanArrayElements (jniEnv, obj, &isCopy);
  275.               memcpy (&buf[offset], ptr, size);
  276.               (*jniEnv)->ReleaseBooleanArrayElements (jniEnv, obj, ptr,
  277.                                                       JNI_ABORT);
  278.               break;
  279.             case fcall_type_uchar:
  280.               ptr = (*jniEnv)->GetByteArrayElements (jniEnv, obj, &isCopy);
  281.               memcpy (&buf[offset], ptr, size);
  282.               (*jniEnv)->ReleaseByteArrayElements (jniEnv, obj, ptr,
  283.                                                    JNI_ABORT);
  284.               break;
  285.             case fcall_type_schar:
  286.               ptr = (*jniEnv)->GetCharArrayElements (jniEnv, obj, &isCopy);
  287.               memcpy (&buf[offset], ptr, size);
  288.               (*jniEnv)->ReleaseCharArrayElements (jniEnv, obj, ptr,
  289.                                                    JNI_ABORT);
  290.               break;
  291.             case fcall_type_sshort:
  292.               ptr = (*jniEnv)->GetShortArrayElements (jniEnv, obj, &isCopy);
  293.               memcpy (&buf[offset], ptr, size);
  294.               (*jniEnv)->ReleaseShortArrayElements (jniEnv, obj, ptr,
  295.                                                     JNI_ABORT);
  296.               break;
  297.             case fcall_type_sint:
  298.               ptr = (*jniEnv)->GetIntArrayElements (jniEnv, obj, &isCopy);
  299.               memcpy (&buf[offset], ptr, size);
  300.               (*jniEnv)->ReleaseIntArrayElements (jniEnv, obj, ptr,
  301.                                                   JNI_ABORT);
  302.               break;
  303.             case fcall_type_slonglong:
  304.               ptr = (*jniEnv)->GetLongArrayElements (jniEnv, obj, &isCopy);
  305.               memcpy (&buf[offset], ptr, size);
  306.               (*jniEnv)->ReleaseLongArrayElements (jniEnv, obj, ptr,
  307.                                                    JNI_ABORT);
  308.               break;
  309.             case fcall_type_float:
  310.               ptr = (*jniEnv)->GetFloatArrayElements (jniEnv, obj, &isCopy);
  311.               memcpy (&buf[offset], ptr, size);
  312.               (*jniEnv)->ReleaseFloatArrayElements (jniEnv, obj, ptr,
  313.                                                     JNI_ABORT);
  314.               break;
  315.             case fcall_type_double:
  316.               ptr = (*jniEnv)->GetDoubleArrayElements (jniEnv, obj, &isCopy);
  317.               memcpy (&buf[offset], ptr, size);
  318.               (*jniEnv)->ReleaseDoubleArrayElements (jniEnv, obj, ptr,
  319.                                                      JNI_ABORT);
  320.               break;
  321.             default:
  322.               abort ();
  323.             }
  324.           offset += size;
  325.         }
  326.       SFREEBLOCK (sig);
  327.     }
  328.   permute (fullary);
  329. }
  331. static BOOL
  332. java_modifier_usable_p (int modifier)
  333. {
  334.   return (((*jniEnv)->CallStaticBooleanMethod (jniEnv,
  335.        c_Modifier,
  336.        m_ModifierIsPublic,
  337.        modifier)
  338.    == JNI_TRUE)
  339.   &&
  340.   ((*jniEnv)->CallStaticBooleanMethod (jniEnv,
  341.        c_Modifier,
  342.        m_ModifierIsStatic,
  343.        modifier))
  344.   == JNI_FALSE);
  345. }
  347. BOOL
  348. java_field_usable_p (jobject field)
  349. {
  350.   return
  351.     java_modifier_usable_p ((*jniEnv)->CallIntMethod (jniEnv,
  352.       field,
  353.       m_FieldGetModifiers));
  354. }
  356. BOOL
  357. java_method_usable_p (jobject method)
  358. {
  359.   return
  360.     java_modifier_usable_p ((*jniEnv)->CallIntMethod (jniEnv,
  361.     method,
  362.     m_MethodGetModifiers));
  363. }
  365. #define _GETVALUE(uptype) 
  366.     (*jniEnv)->Get##uptype##Field (jniEnv, 
  367.                                    javaObject, 
  368.                                    fid)
  369. #define GETVALUE(uptype) _GETVALUE(uptype)
  371. static void
  372. map_java_class_ivars_internal (jclass class,
  373.                                void (*process_array_ivar) (const char *name, jfieldID fid),
  374.                                void (*process_ivar) (const char *name, jfieldID fid, fcall_type_t type))
  375. {
  376.   jclass superClass = (*jniEnv)->GetSuperclass (jniEnv, class);
  377.   jarray fields;
  378.   jsize count;
  379.   int fi;
  380.   
  381.   if (superClass)
  382.     {
  383.       map_java_class_ivars_internal (superClass,
  384.                                      process_array_ivar, process_ivar);
  385.       (*jniEnv)->DeleteLocalRef (jniEnv, superClass);
  386.     }
  387.   
  388.   if (!(fields = (*jniEnv)->CallObjectMethod (jniEnv,
  389.                                               class,
  390.                                               m_ClassGetDeclaredFields)))
  391.     abort();
  392.       
  393.   count = (*jniEnv)->GetArrayLength (jniEnv, fields);
  394.       
  395.   for (fi = 0; fi < count; fi++)
  396.     {
  397.       jobject name, field;
  398.       jboolean isCopy;
  399.       const char *namestr;
  400.           
  401.       field = (*jniEnv)->GetObjectArrayElement (jniEnv, fields, fi);
  402.       if (!field)
  403.         raiseEvent (SourceMessage, "field %u unavailable", fi);
  404.       if (java_field_usable_p (field))
  405. {
  406.   name = (*jniEnv)->CallObjectMethod (jniEnv, field, m_FieldGetName);
  407.   namestr = (*jniEnv)->GetStringUTFChars (jniEnv, name, &isCopy);
  408.   {
  409.     jobject lref =
  410.       (*jniEnv)->CallObjectMethod (jniEnv,
  411.    field,
  412.    m_FieldGetType);
  413.     fcall_type_t type = fcall_type_for_java_class (lref);
  414.     const char *sig = java_signature_for_class (lref);
  415.     jboolean isArray = 
  416.       (*jniEnv)->CallBooleanMethod (jniEnv, lref, m_ClassIsArray);
  417.     jfieldID fid =
  418.       (*jniEnv)->GetFieldID (jniEnv, class, namestr, sig);
  419.             
  420.     (*jniEnv)->DeleteLocalRef (jniEnv, lref);
  421.     if (!fid)
  422.       abort ();
  423.             
  424.     SFREEBLOCK (sig);
  425.     if (isArray)
  426.               process_array_ivar (namestr, fid);
  427.     else
  428.               process_ivar (namestr, fid, type);
  429.     if (isCopy)
  430.       (*jniEnv)->ReleaseStringUTFChars (jniEnv, name, namestr);
  431.     (*jniEnv)->DeleteLocalRef (jniEnv, name);
  432.   }
  433. }
  434.       (*jniEnv)->DeleteLocalRef (jniEnv, field);
  435.     }
  436.   (*jniEnv)->DeleteLocalRef (jniEnv, fields);
  437. }
  439. void
  440. map_java_class_ivars (jclass class,
  441.                       void (*process_ivar) (const char *name,
  442.                                             fcall_type_t type))
  443. {
  444.   void process_array_ivar (const char *name, jfieldID fid)
  445.     {
  446.       // skip (unknown until there is an object)
  447.     }
  448.   void process_simple_ivar (const char *name, jfieldID fid, fcall_type_t type)
  449.     {
  450.       process_ivar (name, type);
  451.     }
  452.   map_java_class_ivars_internal (class,
  453.                                  process_array_ivar,
  454.                                  process_simple_ivar);
  455. }
  457. void
  458. map_java_ivars (jobject javaObject,
  459.                 void (*process_object) (const char *name,
  460.                                         fcall_type_t type,
  461.                                         void *ptr,
  462.                                         unsigned rank,
  463.                                         unsigned *dims))
  464. {
  465.   void process_array_ivar (const char *name, jfieldID fid)
  466.     {
  467.       jobject obj = GETVALUE (Object);
  468.       fcall_type_t type;
  469.       unsigned rank;
  470.       
  471.       java_getTypeInfo (obj, &rank, NULL);
  472.       {
  473.         unsigned dims[rank], i;
  474.         unsigned count = 1;
  475.         
  476.         type = java_getTypeInfo (obj, &rank, dims);
  477.         
  478.         for (i = 0; i < rank; i++)
  479.           count *= dims[i];
  480.         {
  481.           unsigned buf[fcall_type_size (type) * count];
  482.           
  483.           java_expandArray (obj, buf);
  484.           process_object (name, type, buf, rank, dims);
  485.         }
  486.       }
  487.       (*jniEnv)->DeleteLocalRef (jniEnv, obj);
  488.     }
  489.   
  490.   void process_simple_ivar (const char *name, jfieldID fid, fcall_type_t type)
  491.     {
  492.       types_t val;
  493.       
  494.       switch (type)
  495.         {
  496.         case fcall_type_boolean:
  497.           val.boolean = GETVALUE (Boolean);
  498.           break;
  499.         case fcall_type_schar:
  500.           val.schar = GETVALUE (Char);
  501.           break;
  502.         case fcall_type_uchar:
  503.           val.uchar = GETVALUE (Byte);
  504.           break;
  505.         case fcall_type_sshort:
  506.           val.sshort = GETVALUE (Short);
  507.           break;
  508.         case fcall_type_sint:
  509.           val.sint = GETVALUE (Int);
  510.           break;
  511.         case fcall_type_slonglong:
  512.           val.slonglong = GETVALUE (Long);
  513.           break;
  514.         case fcall_type_float:
  515.           val._float = GETVALUE (Float);
  516.           break;
  517.         case fcall_type_double:
  518.           val._double = GETVALUE (Double);
  519.           break;
  520.         case fcall_type_object:
  521.           {
  522.             jobject obj = GETVALUE (Object);
  523.             
  524.             val.object = SD_JAVA_ENSURE_OBJECT_OBJC (obj);
  525.             if (obj)
  526.               (*jniEnv)->DeleteLocalRef (jniEnv, obj);
  527.           }
  528.           break;
  529.         case fcall_type_string:
  530.           {
  531.             BOOL isCopy;
  532.             jobject string = GETVALUE (Object);
  533.             const char *utf =
  534.               (*jniEnv)->GetStringUTFChars (jniEnv, string, &isCopy);
  535.             
  536.             val.string = SSTRDUP (utf);
  537.             if (isCopy)
  538.               (*jniEnv)->ReleaseStringUTFChars (jniEnv, string, utf);
  539.             (*jniEnv)->DeleteLocalRef (jniEnv, string);
  540.           }
  541.           break;
  542.         case fcall_type_selector:
  543.           {
  544.             jobject sel = GETVALUE (Object);
  545.             
  546.             val.object = SD_JAVA_FIND_OBJECT_OBJC (sel);
  547.             (*jniEnv)->DeleteLocalRef (jniEnv, sel);
  548.           }
  549.           break;
  550.         case fcall_type_void:
  551.         case fcall_type_ushort:
  552.         case fcall_type_uint:
  553.         case fcall_type_ulong:
  554.         case fcall_type_slong:
  555.         case fcall_type_ulonglong:
  556.         case fcall_type_long_double:
  557.         case fcall_type_class:
  558.         case fcall_type_jobject:
  559.         case fcall_type_jstring:
  560.         case fcall_type_jselector:
  561.         case fcall_type_iid:
  562.           abort ();
  563.         }
  564.       process_object (name, type, &val, 0, NULL);
  565.     }
  566.   jclass class = (*jniEnv)->GetObjectClass (jniEnv, javaObject);
  567.   map_java_class_ivars_internal (class,
  568.                                  process_array_ivar,
  569.                                  process_simple_ivar);
  570.   (*jniEnv)->DeleteLocalRef (jniEnv, class);
  571. }
  572.                         
  573. static jfieldID
  574. class_java_find_field (jclass javaClass, const char *fieldName,
  575.                        fcall_type_t *typePtr, BOOL *isArrayPtr)
  576. {
  577.   jarray fields;
  578.   jsize count;
  579.   int i;
  580.   BOOL match = NO;
  581.   jobject field = NULL;
  582.   jobject name;
  583.   const char *namestr;
  584.   jboolean isCopy;
  586.   void release (void)
  587.     {
  588.       if (isCopy)
  589.         (*jniEnv)->ReleaseStringUTFChars (jniEnv, name, namestr);
  590.       (*jniEnv)->DeleteLocalRef (jniEnv, name);
  591.       (*jniEnv)->DeleteLocalRef (jniEnv, field);
  592.     }
  594.   if (!(fields = (*jniEnv)->CallObjectMethod (jniEnv,
  595.                                               javaClass,
  596.                                               m_ClassGetFields)))
  597.     abort();
  598.   
  599.   count = (*jniEnv)->GetArrayLength (jniEnv, fields);
  601.   for (i = 0; i < count; i++)
  602.     {
  603.       field = (*jniEnv)->GetObjectArrayElement (jniEnv, fields, i);
  604.       if (!field)
  605.         raiseEvent (SourceMessage, "field %u unavailable", i);
  606.       name = (*jniEnv)->CallObjectMethod (jniEnv, field, m_FieldGetName);
  607.       namestr = (*jniEnv)->GetStringUTFChars (jniEnv, name, &isCopy);
  608.       match = (strcmp (namestr, fieldName) == 0);
  609.       if (match)
  610.         break;
  611.       else
  612.         release ();
  613.     }
  614.   (*jniEnv)->DeleteLocalRef (jniEnv, fields);
  615.   if (match)
  616.     {
  617.       jobject lref = (*jniEnv)->CallObjectMethod (jniEnv,
  618.                                                   field,
  619.                                                   m_FieldGetType);
  620.       const char *sig = java_signature_for_class (lref);
  621.       fcall_type_t type = fcall_type_for_java_class (lref);
  622.       jfieldID fid;
  623.       jboolean isArray =
  624.         (*jniEnv)->CallBooleanMethod (jniEnv, lref, m_ClassIsArray);
  625.       
  626.       (*jniEnv)->DeleteLocalRef (jniEnv, lref);
  628.       fid = (*jniEnv)->GetFieldID (jniEnv, javaClass, namestr, sig);
  629.       if (!fid)
  630.         abort ();
  631.       SFREEBLOCK (sig);
  632.       release ();
  633.       if (typePtr)
  634.         *typePtr = type;
  635.       if (isArrayPtr)
  636.         *isArrayPtr = isArray;
  637.       return fid;
  638.     }
  639.   else
  640.     return NULL;
  641. }
  643. static void
  644. java_storeArray (jobject javaObject,
  645.                  fcall_type_t type, unsigned rank, unsigned *dims, void *buf)
  646. {
  647.   jobject values[rank];
  648.   unsigned vec[rank];
  649.   unsigned di;
  650.     
  651.   void start_dim (unsigned dimnum)
  652.     {
  653.       di = dimnum;
  654.       vec[di] = 0;
  655.       if (dimnum > 0)
  656.         values[di] =
  657.           (*jniEnv)->GetObjectArrayElement (jniEnv,
  658.                                             values[di - 1],
  659.                                             vec[di - 1]);
  660.     }
  661.   void end_dim (void)
  662.     {
  663.       if (di == rank - 1)
  664.         {
  665.           unsigned len = vec[di];
  666.           switch (type)
  667.             {
  668.             case fcall_type_boolean:
  669.               (*jniEnv)->SetBooleanArrayRegion (jniEnv,
  670.                                                 values[di],
  671.                                                 0, len,
  672.                                                 (jboolean *) buf);
  673.               break;
  674.             case fcall_type_uchar:
  675.               (*jniEnv)->SetByteArrayRegion (jniEnv,
  676.                                              values[di],
  677.                                              0, len,
  678.                                              (jbyte *) buf);
  679.               break;
  680.             case fcall_type_schar:
  681.               (*jniEnv)->SetCharArrayRegion (jniEnv,
  682.                                              values[di],
  683.                                              0, len,
  684.                                              (jchar *) buf);
  685.               break;
  686.             case fcall_type_sshort:
  687.               (*jniEnv)->SetShortArrayRegion (jniEnv,
  688.                                               values[di],
  689.                                               0, len,
  690.                                               (jshort *) buf);
  691.               break;
  692.             case fcall_type_sint:
  693.               (*jniEnv)->SetIntArrayRegion (jniEnv,
  694.                                             values[di],
  695.                                             0, len,
  696.                                             (jint *) buf);
  697.               break;
  698.             case fcall_type_slonglong:
  699.               (*jniEnv)->SetLongArrayRegion (jniEnv,
  700.                                              values[di],
  701.                                              0, len,
  702.                                              (jlong *) buf);
  703.               break;
  704.             case fcall_type_float:
  705.               (*jniEnv)->SetFloatArrayRegion (jniEnv,
  706.                                               values[di],
  707.                                               0, len,
  708.                                               (jfloat *) buf);
  709.               break;
  710.             case fcall_type_double:
  711.               (*jniEnv)->SetDoubleArrayRegion (jniEnv,
  712.                                                values[di],
  713.                                                0, len,
  714.                                                (jdouble *) buf);
  715.               break;
  716.             default:
  717.               abort ();
  718.             }
  719.         }
  720.     }
  721.   void end_element (void)
  722.     {
  723.       vec[di]++;
  724.     }
  725.     
  726.   values[0] = javaObject;
  727.   process_array (rank, dims, type,
  728.                  start_dim, end_dim, NULL, end_element, NULL,
  729.                  buf, NULL);
  730. }
  732. const char *
  733. java_ensure_selector_type_signature (jobject jsel)
  734. {
  735.   unsigned argCount, typeSigLen = 0;
  737.   jobject typeSignature =
  738.     (*jniEnv)->GetObjectField (jniEnv, jsel, f_typeSignatureFid);
  740.   if (!typeSignature)
  741.     {
  742.       jobject argTypes = 
  743.         (*jniEnv)->GetObjectField (jniEnv, jsel, f_argTypesFid);
  745.       argCount = (*jniEnv)->GetArrayLength (jniEnv, argTypes);
  746.       {
  747.         const char *argSigs[argCount];
  748.         const char *retSig;
  749.         char *sig, *p;
  750.         unsigned ai;
  751.         
  752.         typeSigLen = 1;
  753.         for (ai = 0; ai < argCount; ai++)
  754.           {
  755.             jclass member =
  756.               (*jniEnv)->GetObjectArrayElement (jniEnv, argTypes, ai);
  757.             
  758.             argSigs[ai] = java_signature_for_class (member);
  759.             typeSigLen += strlen (argSigs[ai]);
  760.             (*jniEnv)->DeleteLocalRef (jniEnv, member);
  761.           }
  762.         typeSigLen++;
  764.         {
  765.           jobject retType =
  766.             (*jniEnv)->GetObjectField (jniEnv, jsel, f_retTypeFid);
  767.           
  768.           retSig = java_signature_for_class (retType);
  769.           (*jniEnv)->DeleteLocalRef (jniEnv, retType);
  770.         }
  771.         typeSigLen += strlen (retSig);
  772.         
  773.         sig = [scratchZone alloc: typeSigLen + 1];
  774.         
  775.         p = sig;
  776.         *p++ = '(';
  777.         for (ai = 0; ai < argCount; ai++)
  778.           p = stpcpy (p, argSigs[ai]);
  779.         *p++ = ')';
  780.         p = stpcpy (p, retSig);
  782.         for (ai = 0; ai < argCount; ai++)
  783.           [scratchZone free: (void *) argSigs[ai]];
  784. [scratchZone free: (void *) retSig];
  786.         {
  787.           jobject str = (*jniEnv)->NewStringUTF (jniEnv, sig);
  788.           (*jniEnv)->SetObjectField (jniEnv,
  789.                                      jsel,
  790.                                      f_typeSignatureFid,
  791.                                      str);
  792.           (*jniEnv)->DeleteLocalRef (jniEnv, str);
  793.         }
  794.         (*jniEnv)->DeleteLocalRef (jniEnv, argTypes);
  795.         return sig;
  796.       }
  797.     }
  798.   else
  799.     {
  800.       jboolean copyFlag;
  801.       const char *sig;
  803.       const char *utf =
  804.         (*jniEnv)->GetStringUTFChars (jniEnv, typeSignature, &copyFlag);
  806.       sig = SSTRDUP (utf);
  807.       if (copyFlag)
  808.         (*jniEnv)->ReleaseStringUTFChars (jniEnv, typeSignature, utf);
  809.       (*jniEnv)->DeleteLocalRef (jniEnv, typeSignature);
  810.       return sig;
  811.     }
  812. }
  814. fcall_type_t
  815. fcall_type_for_java_class (jclass class)
  816. {
  817.   fcall_type_t type;
  819.   if (classp (class, c_Selector))
  820.     type = fcall_type_selector;
  821.   else if (classp (class, c_String))
  822.     type = fcall_type_string;
  823.   else if (classp (class, c_Class))
  824.     type = fcall_type_class;
  825.   else if (exactclassp (class, c_int))
  826.     type = fcall_type_sint;
  827.   else if (exactclassp (class, c_short))
  828.     type = fcall_type_sshort;
  829.   else if (exactclassp (class, c_long))
  830.     type = fcall_type_slong;
  831.   else if (exactclassp (class, c_boolean))
  832.     type = fcall_type_boolean;
  833.   else if (exactclassp (class, c_byte))
  834.     type = fcall_type_uchar;
  835.   else if (exactclassp (class, c_char))
  836.     type = fcall_type_schar;
  837.   else if (exactclassp (class, c_float))
  838.     type = fcall_type_float;
  839.   else if (exactclassp (class, c_double))
  840.     type = fcall_type_double;
  841.   else if (exactclassp (class, c_void))
  842.     type = fcall_type_void;
  843.   else
  844.     type = fcall_type_object;
  845.   return type;
  846. }
  848. const char *
  849. java_get_class_name (jclass class)
  850. {
  851.   jobject string;
  852.   const char *ret;
  854.   if (!(string = (*jniEnv)->CallObjectMethod (jniEnv, class, m_ClassGetName)))
  855.     abort ();
  857.   ret = JAVA_COPY_STRING (string);
  858.   (*jniEnv)->DeleteLocalRef (jniEnv, string);
  859.   return ret;
  860. }
  862. void
  863. java_object_setVariable (jobject javaObject, const char *ivarName,
  864.                          fcall_type_t dataType, unsigned rank, unsigned *dims,
  865.                          void *inbuf)
  866. {
  867.   if (!javaObject)
  868.     abort ();
  869.   {
  870.     jclass javaClass = (*jniEnv)->GetObjectClass (jniEnv, javaObject);
  871.     jfieldID fid;
  872.     fcall_type_t type;
  873.     BOOL isArray;
  874.     
  875.     if (!javaClass)
  876.       abort ();
  877.     fid = class_java_find_field (javaClass, ivarName, &type, &isArray);
  878.     if (!fid)
  879.       raiseEvent (WarningMessage,
  880.                   "field `%s' was not found in java class `%s'n",
  881.                   ivarName,
  882.                   java_get_class_name (javaClass));
  883.     else
  884.       {
  885.         if (isArray)
  886.           {
  887.             jobject ary = 0;
  889.             if (rank > 1)
  890.               abort ();
  892.             switch (dataType)
  893.               {
  894.               case fcall_type_boolean:
  895.                 ary = (*jniEnv)->NewBooleanArray (jniEnv, dims[0]);
  896.                 break;
  897.               case fcall_type_uchar:
  898.                 ary = (*jniEnv)->NewByteArray (jniEnv, dims[0]);
  899.                 break;
  900.               case fcall_type_schar:
  901.                 ary = (*jniEnv)->NewCharArray (jniEnv, dims[0]);
  902.                 break;
  903.               case fcall_type_sshort:
  904.                 ary = (*jniEnv)->NewShortArray (jniEnv, dims[0]);
  905.                 break;
  906.               case fcall_type_sint:
  907.                 ary = (*jniEnv)->NewIntArray (jniEnv, dims[0]);
  908.                 break;
  909.               case fcall_type_slong:
  910.                 ary = (*jniEnv)->NewLongArray (jniEnv, dims[0]);
  911.                 break;
  912.               case fcall_type_float:
  913.                 ary = (*jniEnv)->NewFloatArray (jniEnv, dims[0]);
  914.                 break;
  915.               case fcall_type_double:
  916.                 ary = (*jniEnv)->NewDoubleArray (jniEnv, dims[0]);
  917.                 break;
  918.               default:
  919.                 abort ();
  920.               }
  921.             java_storeArray (ary, dataType, rank, dims, inbuf);
  922.             (*jniEnv)->SetObjectField (jniEnv, javaObject, fid, ary);
  923.             (*jniEnv)->DeleteLocalRef (jniEnv, ary);
  924.           }
  925.         else if (rank == 0 || (rank == 1 && dims[0] == 1))
  926.           {
  927. #define _SETVALUE(uptype,value) 
  928.     (*jniEnv)->Set##uptype##Field (jniEnv, javaObject, fid, value)
  929. #define SETVALUE(uptype, value) _SETVALUE(uptype, value)
  930.         
  931.             types_t *buf = inbuf;
  933.             // dataType of void means unspecified
  934.             // (e.g. from object_setVariable)
  935.             if (dataType != fcall_type_void && type != dataType)
  936.               raiseEvent (InvalidArgument,
  937.                           "Type mismatch setting `%s' data %u ivar %u",
  938.                           ivarName,
  939.                           (unsigned) dataType, (unsigned) type);
  941.             switch (type)
  942.               {
  943.               case fcall_type_object:
  944.                 SETVALUE (Object, SD_JAVA_ENSURE_OBJECT_JAVA (buf->object));
  945.                 break;
  946.               case fcall_type_class:
  947.                 SETVALUE (Object, SD_JAVA_FIND_CLASS_JAVA (buf->_class));
  948.                 break;
  949.               case fcall_type_string:
  950.                 {
  951.                   jobject lref = (*jniEnv)->NewStringUTF (jniEnv, buf->string);
  952.                   
  953.                   SETVALUE (Object, lref);
  954.                   (*jniEnv)->DeleteLocalRef (jniEnv, lref);
  955.                 }
  956.                 break;
  957.               case fcall_type_long_double:
  958.                 abort ();
  959.               case fcall_type_double:
  960.                 SETVALUE (Double, buf->_double);
  961.                 break;
  962.               case fcall_type_float:
  963.                 SETVALUE (Float, buf->_float);
  964.                 break;
  965.               case fcall_type_boolean:
  966.                 SETVALUE (Boolean, buf->boolean);
  967.                 break;
  968.               case fcall_type_sint:
  969.                 SETVALUE (Int, buf->sint);
  970.                 break;
  971.               case fcall_type_sshort:
  972.                 SETVALUE (Short, buf->sshort);
  973.                 break;
  974.               case fcall_type_slonglong:
  975.                 SETVALUE (Long, buf->slonglong);
  976.                 break;
  977.               case fcall_type_uchar:
  978.                 SETVALUE (Byte, buf->uchar);
  979.                 break;
  980.               case fcall_type_schar:
  981.                 SETVALUE (Char, buf->schar);
  982.               case fcall_type_void:
  983.               case fcall_type_ushort:
  984.               case fcall_type_uint:
  985.               case fcall_type_ulong:
  986.               case fcall_type_slong:
  987.               case fcall_type_ulonglong:
  988.               case fcall_type_selector:
  989.               case fcall_type_jobject:
  990.               case fcall_type_jstring:
  991.               case fcall_type_jselector:
  992.               case fcall_type_iid:
  993.                 abort ();
  994.               }
  995. #undef SETVALUE
  996. #undef _SETVALUE
  997.           }
  998.         else
  999.           raiseEvent (InvalidArgument,
  1000.                       "ivar %s fcall_type: %u rank: %u dims[0]: %un",
  1001.                       ivarName, type, rank, dims[0]);
  1002.       }
  1003.     (*jniEnv)->DeleteLocalRef (jniEnv, javaClass);
  1004.   }
  1005. }
  1007. fcall_type_t
  1008. java_object_ivar_type (jobject javaObject, const char *ivarName, BOOL *isArrayPtr)
  1009. {
  1010.   jclass javaClass;
  1011.   fcall_type_t type;
  1013.   if (!javaObject)
  1014.     abort ();
  1015.   javaClass = (*jniEnv)->GetObjectClass (jniEnv, javaObject);
  1016.   if (!class_java_find_field (javaClass, ivarName, &type, isArrayPtr))
  1017.     abort ();
  1018.   (*jniEnv)->DeleteLocalRef (jniEnv, javaClass);
  1019.   return type;
  1020. }
  1022. static jobject
  1023. get_swarmEnvironment_field (jobject swarmEnvironment,
  1024.     const char *fieldName)
  1025. {
  1026.   jobject fieldObject, ret;
  1027.   jstring str = (*jniEnv)->NewStringUTF (jniEnv, fieldName);
  1029.   if (!(fieldObject =
  1030. (*jniEnv)->CallObjectMethod (jniEnv,
  1031.                                      c_SwarmEnvironmentImpl,
  1032.                                      m_ClassGetDeclaredField,
  1033.                                      str)))
  1034.     raiseEvent (InternalError, "Could not find field `%s'n", fieldName);
  1035.   (*jniEnv)->DeleteLocalRef (jniEnv, str);
  1036.   
  1037.   ret = (*jniEnv)->CallObjectMethod (jniEnv,
  1038.                                      fieldObject,
  1039.                                      m_FieldGetObject,
  1040.                                      swarmEnvironment);
  1041.   (*jniEnv)->DeleteLocalRef (jniEnv, fieldObject);
  1042.   return ret;
  1043. }
  1045. static void
  1046. create_bootstrap_refs (void)
  1047. {
  1048.   jclass lref;
  1050.   if (!(lref = (*jniEnv)->FindClass (jniEnv, "swarm/Primitives")))
  1051.     abort ();
  1052.   c_Primitives = (*jniEnv)->NewGlobalRef (jniEnv, lref);
  1053.   (*jniEnv)->DeleteLocalRef (jniEnv, lref);
  1054.   
  1055.   if (!(m_PrimitivesGetTypeMethod =
  1056.         (*jniEnv)->GetStaticMethodID (jniEnv, c_Primitives, "getTypeMethod",
  1057.                                       "(Ljava/lang/String;)Ljava/lang/reflect/Method;")))
  1058.     abort ();
  1059.   
  1060.   if (!(lref = (*jniEnv)->FindClass (jniEnv, "java/lang/reflect/Method")))
  1061.     abort ();
  1062.   c_Method = (*jniEnv)->NewGlobalRef (jniEnv, lref);
  1063.   (*jniEnv)->DeleteLocalRef (jniEnv, lref);
  1065.   if (!(m_MethodGetReturnType =
  1066.         (*jniEnv)->GetMethodID (jniEnv, c_Method, "getReturnType",
  1067.                                 "()Ljava/lang/Class;")))
  1068.     abort();
  1069. }
  1071. static jclass
  1072. get_java_lang_class (const char *name)
  1073. {
  1074.   char class_name_buf[10 + strlen (name) + 1];
  1075.   char *p;
  1076.   jclass ret, clazz;
  1077.   
  1078.   p = stpcpy (class_name_buf, "java/lang/");
  1079.   p = stpcpy (p, name);
  1080.   if (!(clazz = (*jniEnv)->FindClass (jniEnv, class_name_buf)))
  1081.     abort ();
  1082.   
  1083.   ret = (*jniEnv)->NewGlobalRef (jniEnv, clazz);
  1084.   (*jniEnv)->DeleteLocalRef (jniEnv, clazz);
  1085.   return ret;
  1086. }
  1088. static void
  1089. create_class_refs (void)
  1090. {
  1091.   jobject lref;
  1093.   jclass get_primitive (const char *name)
  1094.     {
  1095. #if 0
  1096.       return get_type_field_for_class (get_java_lang_class (name));
  1097. #else
  1098.       jobject nameString = (*jniEnv)->NewStringUTF (jniEnv, name);
  1099.       jobject method;
  1100.       jclass lref, returnType;
  1101.       
  1102.       if (!(method = (*jniEnv)->CallStaticObjectMethod (jniEnv,
  1103.                                                         c_Primitives,
  1104.                                                         m_PrimitivesGetTypeMethod,
  1105.                                                         nameString)))
  1106.         abort ();
  1107.       (*jniEnv)->DeleteLocalRef (jniEnv, nameString);
  1108.       if (!(lref = (*jniEnv)->CallObjectMethod (jniEnv,
  1109.                                                 method,
  1110.                                                 m_MethodGetReturnType,
  1111.                                                 method)))
  1112.         abort ();
  1113.       returnType = (*jniEnv)->NewGlobalRef (jniEnv, lref);
  1114.       (*jniEnv)->DeleteLocalRef (jniEnv, lref);
  1115.       return returnType;
  1116. #endif
  1117.     }
  1118.   if (!initFlag)
  1119.    {
  1121.       c_char = get_primitive ("Character");
  1122.       c_byte = get_primitive ("Byte");
  1123.       c_int = get_primitive ("Integer");
  1124.       c_short = get_primitive ("Short");
  1125.       c_long = get_primitive ("Long");
  1126.       c_float = get_primitive ("Float");
  1127.       c_double = get_primitive ("Double");
  1128.       c_void = get_primitive ("Void");
  1129.       c_boolean = get_primitive ("Boolean");
  1131.       c_Boolean = get_java_lang_class ("Boolean");
  1132.       c_Char = get_java_lang_class ("Character");
  1133.       c_Byte= get_java_lang_class ("Byte");
  1134.       c_Integer = get_java_lang_class ("Integer");
  1135.       c_Short = get_java_lang_class ("Short");
  1136.       c_Long = get_java_lang_class ("Long");
  1137.       c_Float = get_java_lang_class ("Float");
  1138.       c_Double = get_java_lang_class ("Double");
  1139.      
  1140.       c_String = get_java_lang_class ("String");
  1141.       c_Object = get_java_lang_class ("Object");
  1142.       c_Class = get_java_lang_class ("Class");
  1144.       if (!(lref = (*jniEnv)->FindClass (jniEnv, "java/lang/reflect/Field")))
  1145.         abort ();
  1146.       c_Field = (*jniEnv)->NewGlobalRef (jniEnv, lref);
  1147.       (*jniEnv)->DeleteLocalRef (jniEnv, lref);
  1149.       if (!(lref = (*jniEnv)->FindClass (jniEnv,
  1150.                                          "java/lang/reflect/Modifier")))
  1151. abort ();
  1152.       c_Modifier = (*jniEnv)->NewGlobalRef (jniEnv, lref);
  1153.       (*jniEnv)->DeleteLocalRef (jniEnv, lref);
  1155.       if (!(lref = (*jniEnv)->FindClass (jniEnv, "java/util/Collection")))
  1156.         abort ();
  1157.       c_Collection = (*jniEnv)->NewGlobalRef (jniEnv, lref);
  1158.       (*jniEnv)->DeleteLocalRef (jniEnv, lref);
  1160.       if (!(lref = (*jniEnv)->FindClass (jniEnv, "swarm/BaseImpl")))
  1161.         abort ();
  1162.       c_Base = (*jniEnv)->NewGlobalRef (jniEnv, lref);
  1163.       (*jniEnv)->DeleteLocalRef (jniEnv, lref);
  1165.       if (!(lref = (*jniEnv)->FindClass (jniEnv, "swarm/Selector")))
  1166.         abort ();
  1167.       c_Selector = (*jniEnv)->NewGlobalRef (jniEnv, lref);
  1168.       (*jniEnv)->DeleteLocalRef (jniEnv, lref);
  1169.       
  1170.       if (!(lref = (*jniEnv)->FindClass (jniEnv, "swarm/PhaseCImpl")))
  1171.         abort ();
  1172.       c_PhaseCImpl = (*jniEnv)->NewGlobalRef (jniEnv, lref);
  1173.       (*jniEnv)->DeleteLocalRef (jniEnv, lref);
  1175.       if (!(lref = (*jniEnv)->FindClass (jniEnv,
  1176.                                          "swarm/SwarmEnvironmentImpl")))
  1177. abort ();
  1178.       c_SwarmEnvironmentImpl = (*jniEnv)->NewGlobalRef (jniEnv, lref);
  1179.       (*jniEnv)->DeleteLocalRef (jniEnv, lref);
  1181.       if ((lref = (*jniEnv)->FindClass (jniEnv,
  1182.                                         "swarm/ProxyClassLoader")))
  1183.         {
  1184.           c_ProxyClassLoader = (*jniEnv)->NewGlobalRef (jniEnv, lref);
  1185.           (*jniEnv)->DeleteLocalRef (jniEnv, lref);
  1186.           
  1187.           if (!(lref = (*jniEnv)->FindClass (jniEnv,
  1188.                                              "swarm/ObjCProxy")))
  1189.             abort ();
  1190.           c_ObjCProxy = (*jniEnv)->NewGlobalRef (jniEnv, lref);
  1191.           (*jniEnv)->DeleteLocalRef (jniEnv, lref);
  1192.         }
  1193.       else
  1194.         (*jniEnv)->ExceptionClear (jniEnv);
  1195.       initFlag = YES;
  1196.    }
  1197. }
  1199. static void 
  1200. create_method_refs (void)
  1201. {
  1202.   jmethodID findMethodID (const char *name, jclass clazz)
  1203.     {
  1204.       char sig[31 + strlen (name) + 1 + 1];
  1205.       char *p;
  1207.       jmethodID res;
  1208.       p = stpcpy (sig, "(Ljava/lang/String;)Ljava/lang/");
  1209.       p = stpcpy (p, name);
  1210.       p = stpcpy (p, ";");
  1212.       if (!(res = (*jniEnv)->GetStaticMethodID (jniEnv, clazz, "valueOf", sig)))
  1213. abort ();
  1215.       return res;
  1216.     }   
  1217.   
  1218.   m_BooleanValueOf = findMethodID ("Boolean", c_Boolean);
  1219.   
  1220.   m_ByteValueOf = findMethodID ("Byte", c_Byte);
  1221.   
  1222.   m_IntegerValueOf = findMethodID ("Integer", c_Integer);
  1223.   
  1224.   m_ShortValueOf = findMethodID ("Short", c_Short);
  1225.   
  1226.   m_LongValueOf = findMethodID ("Long", c_Long);
  1227.   
  1228.   m_FloatValueOf = findMethodID ("Float", c_Float);
  1229.   
  1230.   m_DoubleValueOf = findMethodID ("Double", c_Double);
  1231.   
  1232.   if (!(m_StringValueOfBoolean = 
  1233.       (*jniEnv)->GetStaticMethodID (jniEnv, c_String, "valueOf", 
  1234.                                     "(Z)Ljava/lang/String;")))
  1235.     abort ();
  1236.   
  1237.   if (!(m_StringValueOfChar = 
  1238.         (*jniEnv)->GetStaticMethodID (jniEnv, c_String, "valueOf", 
  1239.                                       "(C)Ljava/lang/String;")))
  1240.     abort ();
  1242.   if (!(m_StringValueOfInt = 
  1243.       (*jniEnv)->GetStaticMethodID (jniEnv, c_String, "valueOf", 
  1244.                                     "(I)Ljava/lang/String;")))
  1245.     abort ();
  1247.   if (!(m_StringValueOfLong = 
  1248.       (*jniEnv)->GetStaticMethodID (jniEnv, c_String, "valueOf", 
  1249.                                     "(J)Ljava/lang/String;")))
  1250.     abort ();
  1251.   
  1252.   if (!(m_StringValueOfFloat = 
  1253.         (*jniEnv)->GetStaticMethodID (jniEnv, c_String, "valueOf", 
  1254.                                       "(F)Ljava/lang/String;")))
  1255.     abort ();
  1256.   
  1257.   if (!(m_StringValueOfDouble = 
  1258.         (*jniEnv)->GetStaticMethodID (jniEnv, c_String, "valueOf", 
  1259.                                       "(D)Ljava/lang/String;")))
  1260.     abort ();
  1261.   
  1262.   if (!(m_StringValueOfObject = 
  1263.         (*jniEnv)->GetStaticMethodID (jniEnv, c_String, "valueOf", 
  1264.                                       "(Ljava/lang/Object;)Ljava/lang/String;")))
  1265.     abort ();
  1266.   
  1267.   if (!(m_FieldSet = 
  1268. (*jniEnv)->GetMethodID (jniEnv, c_Field, "set", 
  1269.                                 "(Ljava/lang/Object;Ljava/lang/Object;)V")))
  1270.     abort ();
  1271.   
  1272.   if (!(m_FieldSetChar = 
  1273. (*jniEnv)->GetMethodID (jniEnv, c_Field, "setChar", 
  1274.                                 "(Ljava/lang/Object;C)V")))
  1275.     abort ();
  1277.   if (!(m_FieldSetFloat = 
  1278. (*jniEnv)->GetMethodID (jniEnv, c_Field, "setFloat", 
  1279.                                 "(Ljava/lang/Object;F)V")))
  1280.     abort ();
  1281.   
  1282.   if (!(m_FieldSetDouble = 
  1283. (*jniEnv)->GetMethodID (jniEnv, c_Field, "setDouble", 
  1284.                                 "(Ljava/lang/Object;D)V")))
  1285.     abort ();
  1287.   if (!(m_ClassGetField =
  1288.       (*jniEnv)->GetMethodID (jniEnv, c_Class, "getField",
  1289.                               "(Ljava/lang/String;)Ljava/lang/reflect/Field;")))
  1290.     abort ();
  1292.   if (!(m_ClassGetDeclaredField =
  1293.       (*jniEnv)->GetMethodID (jniEnv, c_Class, "getDeclaredField",
  1294.                               "(Ljava/lang/String;)Ljava/lang/reflect/Field;")))
  1295.     abort ();
  1296.   
  1297.   if (!(m_ClassGetDeclaredFields =
  1298.    (*jniEnv)->GetMethodID (jniEnv, c_Class, "getDeclaredFields",
  1299.                                 "()[Ljava/lang/reflect/Field;")))
  1300.     abort ();
  1301.   
  1302.   if (!(m_ClassGetDeclaredMethods =
  1303.    (*jniEnv)->GetMethodID (jniEnv, c_Class, "getDeclaredMethods",
  1304.                                 "()[Ljava/lang/reflect/Method;")))
  1305.     abort ();
  1307.   if (!(m_ClassGetFields =
  1308.    (*jniEnv)->GetMethodID (jniEnv, c_Class, "getFields",
  1309.                                 "()[Ljava/lang/reflect/Field;")))
  1310.     abort ();
  1311.   
  1312.   if (!(m_ClassGetName = 
  1313. (*jniEnv)->GetMethodID (jniEnv, c_Class, "getName", "()Ljava/lang/String;")))
  1314.     abort ();
  1315.   
  1316.   if (!(m_ClassIsArray =
  1317. (*jniEnv)->GetMethodID (jniEnv, c_Class, "isArray", "()Z")))
  1318.     abort ();
  1320.   if (!(m_FieldGetName = 
  1321. (*jniEnv)->GetMethodID (jniEnv, c_Field, "getName", "()Ljava/lang/String;")))
  1322.     abort ();
  1324.   if (!(m_FieldGetType =
  1325. (*jniEnv)->GetMethodID (jniEnv, c_Field, "getType", "()Ljava/lang/Class;")))
  1326.     abort ();
  1327.   
  1328.   if (!(m_FieldGetBoolean =
  1329.       (*jniEnv)->GetMethodID (jniEnv, c_Field, "getBoolean", 
  1330.                               "(Ljava/lang/Object;)Z")))
  1331.     abort ();
  1332.   
  1333.   if (!(m_FieldGetChar =
  1334.       (*jniEnv)->GetMethodID (jniEnv, c_Field, "getChar", 
  1335.                               "(Ljava/lang/Object;)C")))
  1336.     abort ();
  1338.   if (!(m_FieldGetShort =
  1339.       (*jniEnv)->GetMethodID (jniEnv, c_Field, "getShort", 
  1340.                               "(Ljava/lang/Object;)S")))
  1341.     abort ();
  1343.   if (!(m_FieldGetInt =
  1344.       (*jniEnv)->GetMethodID (jniEnv, c_Field, "getInt", 
  1345.                               "(Ljava/lang/Object;)I")))
  1346.     abort ();
  1348.   if (!(m_FieldGetLong =
  1349.       (*jniEnv)->GetMethodID (jniEnv, c_Field, "getLong", 
  1350.                               "(Ljava/lang/Object;)J")))
  1351.     abort ();
  1352.   
  1353.   if (!(m_FieldGetFloat =
  1354.       (*jniEnv)->GetMethodID (jniEnv, c_Field, "getFloat", 
  1355.                               "(Ljava/lang/Object;)F")))
  1356.     abort ();
  1358.   if (!(m_FieldGetDouble =
  1359.       (*jniEnv)->GetMethodID (jniEnv, c_Field, "getDouble", 
  1360.                               "(Ljava/lang/Object;)D")))
  1361.     abort ();
  1363.   if (!(m_FieldGetObject =
  1364.         (*jniEnv)->GetMethodID (jniEnv, c_Field, "get",
  1365.                                 "(Ljava/lang/Object;)Ljava/lang/Object;")))
  1366.     abort ();
  1368.   if (!(m_FieldGetModifiers =
  1369. (*jniEnv)->GetMethodID (jniEnv, c_Field, "getModifiers", "()I")))
  1370.     abort ();
  1372.   if (!(m_MethodGetName =
  1373. (*jniEnv)->GetMethodID (jniEnv, c_Method, "getName",
  1374.                                 "()Ljava/lang/String;")))
  1375.     abort ();
  1377.   if (!(m_MethodGetModifiers =
  1378.         (*jniEnv)->GetMethodID (jniEnv, c_Method, "getModifiers", "()I")))
  1379.     abort ();
  1381.   if (!(m_ModifierIsPublic = 
  1382.         (*jniEnv)->GetStaticMethodID (jniEnv, c_Modifier, "isPublic", "(I)Z")))
  1383.     abort ();
  1385.   if (!(m_ModifierIsStatic = 
  1386.         (*jniEnv)->GetStaticMethodID (jniEnv, c_Modifier, "isStatic", "(I)Z")))
  1387.     abort ();
  1388.   
  1389.   if (!(m_SelectorConstructor =
  1390. (*jniEnv)->GetMethodID (jniEnv, c_Selector, "<init>", 
  1391.                                 "(Ljava/lang/Class;Ljava/lang/String;Z)V")))
  1392.     abort ();
  1394.   if (!(m_HashCode =
  1395.         (*jniEnv)->GetMethodID (jniEnv, c_Object, "hashCode", "()I")))
  1396.     abort ();
  1397.   
  1398.   if (!(m_Equals =
  1399.         (*jniEnv)->GetMethodID (jniEnv, c_Object, "equals",
  1400.                                 "(Ljava/lang/Object;)Z")))
  1401.     abort ();
  1402.   
  1403.   if (!(m_PhaseCImpl_copy_creating_phase_to_using_phase = 
  1404.         (*jniEnv)->GetMethodID (jniEnv,
  1405.                                 c_PhaseCImpl,
  1406.                                 "_copy_creating_phase_to_using_phase",
  1407.                                 "()V")))
  1408.     abort ();
  1410.   if (c_ProxyClassLoader)
  1411.     if (!(m_ProxyClassLoaderLoadClass =
  1412.           (*jniEnv)->GetMethodID (jniEnv, c_ProxyClassLoader, "loadClass",
  1413.                                   "(Ljava/lang/String;)Ljava/lang/Class;")))
  1414.       abort ();
  1415. }
  1417. static void
  1418. create_field_refs (void)
  1419. {
  1420.   if (!(f_objcPtrFid = (*jniEnv)->GetFieldID (jniEnv, c_Base, "objcPtr", "I")))
  1421.     abort ();
  1422.   if (!(f_nameFid = (*jniEnv)->GetFieldID (jniEnv, c_Selector, "signature", "Ljava/lang/String;")))
  1423.     abort ();
  1424.   if (!(f_retTypeFid = (*jniEnv)->GetFieldID (jniEnv, c_Selector, "retType", "Ljava/lang/Class;")))
  1425.     abort ();
  1426.   if (!(f_argTypesFid = (*jniEnv)->GetFieldID (jniEnv, c_Selector, "argTypes", "[Ljava/lang/Class;")))
  1427.     abort ();
  1428.   if (!(f_typeSignatureFid = (*jniEnv)->GetFieldID (jniEnv, c_Selector, "typeSignature", "Ljava/lang/String;")))
  1429.     abort ();
  1430.   if (!(f_objcFlagFid = (*jniEnv)->GetFieldID (jniEnv, c_Selector, "objcFlag", "Z")))
  1431.     abort ();
  1432.   
  1433.   if (!(f_nextPhase = (*jniEnv)->GetFieldID (jniEnv, c_PhaseCImpl, "nextPhase", 
  1434.                                              "Ljava/lang/Object;")))
  1435.     abort();
  1436. }
  1438. static void
  1439. create_object_refs ()
  1440. {
  1441.   jmethodID mid;
  1442.   jobject lref;
  1443.   
  1444.   if (c_ProxyClassLoader)
  1445.     {
  1446.       if (!(mid = (*jniEnv)->GetMethodID (jniEnv, c_ProxyClassLoader,
  1447.                                           "<init>", "()V")))
  1448.         abort ();
  1449.       lref = (*jniEnv)->NewObject (jniEnv, c_ProxyClassLoader, mid);
  1450.       proxyClassLoader = (*jniEnv)->NewGlobalRef (jniEnv, lref);
  1451.       (*jniEnv)->DeleteLocalRef (jniEnv, lref);
  1452.     }
  1453. }
  1455. void
  1456. java_create_refs (void)
  1457. {
  1458.   create_bootstrap_refs ();
  1459.   create_class_refs ();
  1460.   create_method_refs ();
  1461.   create_field_refs ();
  1462.   create_object_refs ();
  1463. }
  1465. static void
  1466. associate (jobject swarmEnvironment, const char *fieldName, id objcObject)
  1467. {
  1468.   jobject lref;
  1469.   
  1470.   lref = get_swarmEnvironment_field (swarmEnvironment, fieldName);
  1471.   if (!lref)
  1472.     raiseEvent (InternalError, "Could not find field name `%s'n",
  1473.                 fieldName);
  1474.   SD_JAVA_ADD_OBJECT (lref, objcObject);
  1475.   (*jniEnv)->DeleteLocalRef (jniEnv, lref);
  1476. }
  1478. #define ASSOCIATE(fieldName) associate (swarmEnvironment, #fieldName, fieldName)
  1480. void
  1481. swarm_directory_java_associate_objects_startup (jobject swarmEnvironment)
  1482. {
  1483.   ASSOCIATE (scratchZone);
  1484.   ASSOCIATE (globalZone);
  1485. }
  1487. void
  1488. swarm_directory_java_associate_objects (jobject swarmEnvironment)
  1489. {
  1490.   extern BOOL swarmGUIMode;
  1492.   ASSOCIATE (arguments);
  1494.   if (hdf5Archiver)
  1495.     ASSOCIATE (hdf5Archiver);
  1496.   ASSOCIATE (lispArchiver);
  1497.   if (hdf5AppArchiver)
  1498.     ASSOCIATE (hdf5AppArchiver);
  1499.   ASSOCIATE (lispAppArchiver);
  1501.   {
  1502.     extern id <Symbol> LanguageCOM, LanguageJava, LanguageObjc;
  1504.     ASSOCIATE (LanguageCOM);
  1505.     ASSOCIATE (LanguageJava);
  1506.     ASSOCIATE (LanguageObjc);
  1507.   }
  1509.   {
  1510.     extern id <Symbol> Start, Member, End;
  1512.     ASSOCIATE (Start);
  1513.     ASSOCIATE (Member);
  1514.     ASSOCIATE (End);
  1515.   }
  1517.   {
  1518.     extern id <Symbol> Randomized;
  1519.     extern id <Symbol> Sequential;
  1520.     
  1521.     ASSOCIATE (Randomized);
  1522.     ASSOCIATE (Sequential);
  1523.   }
  1525.   {
  1526.     extern id probeLibrary;
  1527.     
  1528.     ASSOCIATE (probeLibrary);
  1529.   }
  1530.    
  1531.   {
  1532.     extern id randomGenerator, uniformIntRand, uniformDblRand;
  1533.     
  1534.     ASSOCIATE (randomGenerator);
  1535.     ASSOCIATE (uniformIntRand);
  1536.     ASSOCIATE (uniformDblRand);
  1537.   }
  1539. #ifndef DISABLE_GUI
  1540.   if (swarmGUIMode)
  1541.     {
  1542.       extern id probeDisplayManager;
  1543.       
  1544.       extern id <Symbol> ControlStateRunning, ControlStateStopped,
  1545.         ControlStateStepping, ControlStateQuit,ControlStateNextTime;
  1546.       
  1547.       ASSOCIATE (probeDisplayManager);
  1548.       
  1549.       ASSOCIATE (ControlStateRunning);
  1550.       ASSOCIATE (ControlStateStopped);
  1551.       ASSOCIATE (ControlStateStepping);
  1552.       ASSOCIATE (ControlStateQuit);
  1553.       ASSOCIATE (ControlStateNextTime);
  1554.     }
  1555. #endif
  1556.   
  1557.   {
  1558.     extern id <Symbol> Initialized, Running, Stopped, Holding, Released, 
  1559.       Terminated, Completed;
  1561.     ASSOCIATE (Initialized);
  1562.     ASSOCIATE (Running);
  1563.     ASSOCIATE (Stopped);
  1564.     ASSOCIATE (Holding);
  1565.     ASSOCIATE (Released);
  1566.     ASSOCIATE (Terminated);
  1567.     ASSOCIATE (Completed);
  1568.   }
  1569.   {
  1570.     jfieldID fid;
  1571.     
  1572.     if (!(fid = (*jniEnv)->GetFieldID (jniEnv, c_SwarmEnvironmentImpl, "guiFlag", "Z")))
  1573.       abort ();
  1574.     
  1575.     (*jniEnv)->SetBooleanField (jniEnv, swarmEnvironment, fid, (jboolean) swarmGUIMode);
  1576.   }
  1577. }
  1579. unsigned
  1580. swarm_directory_java_hash_code (jobject javaObject)
  1581. {
  1582.   int hashCode;
  1584.   hashCode = (*jniEnv)->CallIntMethod (jniEnv, javaObject, m_HashCode);
  1585.   return (hashCode < 0 ? - hashCode : hashCode) % DIRECTORY_SIZE;
  1586. }
  1589. static ObjectEntry *
  1590. swarm_directory_java_find (jobject javaObject)
  1591. {
  1592.   if (javaObject)
  1593.     {
  1594.       id ret;
  1595.       unsigned index = swarm_directory_java_hash_code (javaObject);
  1596.       id <Map> m = swarmDirectory->javaTable[index];
  1597.       ObjectEntry *findEntry = JAVA_FIND_OBJECT_ENTRY (javaObject);
  1598.       ret = m ? [m at: findEntry] : nil;
  1599.       return ret;
  1600.     }
  1601.   return nil;
  1602. }
  1604. id
  1605. swarm_directory_java_find_swarm_objc (jobject javaObject)
  1606. {
  1607.   return (id) (*jniEnv)->GetIntField (jniEnv, javaObject, f_objcPtrFid);
  1608. }
  1610. static id
  1611. find_swarm_objc_safe (jobject javaObject)
  1612. {
  1613.   id result;
  1615.   if (javaObject)
  1616.     {
  1617.       jclass class = (*jniEnv)->GetObjectClass (jniEnv, javaObject);
  1619.       result = (classp (class, c_Base)
  1620.                 ? swarm_directory_java_find_swarm_objc (javaObject)
  1621.                 : nil);
  1622.       (*jniEnv)->DeleteLocalRef (jniEnv, class);
  1623.     }
  1624.   else
  1625.     result = nil;
  1627.   return result;
  1628. }
  1630. id
  1631. swarm_directory_java_ensure_objc (jobject javaObject)
  1632. {
  1633.   id result;
  1635.   if (!javaObject)
  1636.     result = nil;
  1637.   else if(!(result = find_swarm_objc_safe (javaObject)))
  1638.     {
  1639.       ObjectEntry *resultEntry; 
  1640.       
  1641.       resultEntry = swarm_directory_java_find (javaObject);
  1642.       
  1643.       if ((*jniEnv)->IsInstanceOf (jniEnv, javaObject, c_String))
  1644.         {
  1645.           jboolean isCopy;
  1646.           const char *utf, *str;
  1647.           
  1648.           utf = (*jniEnv)->GetStringUTFChars (jniEnv, javaObject, &isCopy);
  1649.           str = ZSTRDUP (getZone (swarmDirectory), utf);
  1650.           if (isCopy)
  1651.             (*jniEnv)->ReleaseStringUTFChars (jniEnv, javaObject, utf);
  1652.           
  1653.           if (resultEntry)
  1654.             {
  1655.               const char *last = (const char *) resultEntry->object;
  1657.               resultEntry = SD_JAVA_SWITCHOBJC (resultEntry->foreignObject.java, (id) str);
  1658.       ZFREEBLOCK (getZone (swarmDirectory), (void *) last);
  1659.             }
  1660.           else
  1661.             resultEntry = SD_JAVA_ADD_STRING (javaObject, str);
  1662.         }
  1663.       else if (!resultEntry)
  1664.         resultEntry =
  1665.           SD_JAVA_ADD_OBJECT (javaObject, 
  1666.                               ((*jniEnv)->IsInstanceOf (jniEnv, javaObject, c_Collection)
  1667.                                ? [JavaCollection create: globalZone]
  1668.                                : [JavaProxy create: globalZone]));
  1669.       
  1670.       result = resultEntry->object;
  1671.     }
  1672.   return result;
  1673. }
  1675. static jobject
  1676. java_instantiate (jclass clazz)
  1677. {
  1678.   jmethodID mid;
  1680.   if (!(mid = (*jniEnv)->GetMethodID (jniEnv, clazz, "<init>", "()V")))
  1681.     abort ();
  1682.   return (*jniEnv)->NewObject (jniEnv, clazz, mid);
  1683. }
  1685. ObjectEntry *
  1686. java_instantiate_pair (jclass clazz)
  1687. {
  1688.   id proxy;
  1689.   ObjectEntry *entry;
  1690.   jobject lref = java_instantiate (clazz);
  1691.   
  1692.   proxy = [JavaProxy create: globalZone];
  1693.   entry = SD_JAVA_ADD_OBJECT (lref, proxy);
  1694.   (*jniEnv)->DeleteLocalRef (jniEnv, lref);
  1695.   return entry;
  1696. }
  1698. jclass
  1699. java_find_class (const char *javaClassName, BOOL failFlag)
  1700. {
  1701.   jobject ret;
  1702.   jobject throwable;
  1703.   size_t i, len = strlen (javaClassName);
  1704.   char buf[len + 1];
  1706.   for (i = 0; i < len; i++)
  1707.     buf[i] = (javaClassName[i] == '.') ? '/' : javaClassName[i];
  1708.   buf[len] = '';
  1709.   
  1710.   (*jniEnv)->ExceptionClear (jniEnv);
  1711.   ret = (*jniEnv)->FindClass (jniEnv, buf);
  1712.   
  1713.   if (failFlag)
  1714.     {
  1715.       if ((throwable = (*jniEnv)->ExceptionOccurred (jniEnv)) != NULL)
  1716.         (*jniEnv)->ExceptionDescribe (jniEnv);
  1717.     }
  1718.   else
  1719.     (*jniEnv)->ExceptionClear (jniEnv);
  1720.   return ret;
  1721. }
  1723. static jclass
  1724. find_java_wrapper_class (Class class)
  1725. {
  1726.   const char *name = language_independent_class_name_for_objc_class (class);
  1727.   jclass ret = 0;
  1729.   if (name)
  1730.     {
  1731.       ret = java_find_class (name, YES);
  1732.       FREECLASSNAME (name);
  1733.     }
  1734.   else if (proxyClassLoader)
  1735.     {
  1736.       jstring str = (*jniEnv)->NewStringUTF (jniEnv, class->name);
  1738.       ret = (*jniEnv)->CallObjectMethod (jniEnv,
  1739.                                          proxyClassLoader,
  1740.                                          m_ProxyClassLoaderLoadClass,
  1741.                                          str);
  1742.       (*jniEnv)->DeleteLocalRef (jniEnv, str);
  1743.     }
  1744.   return ret;
  1745. }
  1748. jobject
  1749. swarm_directory_objc_ensure_java (id object)
  1750. {
  1751.   jobject jobj;
  1753.   if (!object)
  1754.     return 0;
  1756.   jobj = SD_JAVA_FIND_OBJECT_JAVA (object);
  1757.   if (!jobj)
  1758.     {
  1759.       Class class = getClass (object);
  1760.       jclass javaClass = SD_JAVA_FIND_CLASS_JAVA (class);
  1761.       jobject lref;
  1763.       if (!javaClass) // e.g., a native class and no class loader (no kawa.jar)
  1764.         abort ();
  1765.       lref = java_instantiate (javaClass);
  1767.       jobj = SD_JAVA_ADD_OBJECT_JAVA (lref, object);
  1768.       (*jniEnv)->DeleteLocalRef (jniEnv, lref);
  1769.     }
  1770.   return jobj;
  1771. }
  1773. id
  1774. swarm_directory_java_find_objc (jobject javaObject)
  1775. {
  1776.   if (!javaObject)
  1777.     return nil;
  1778.   else
  1779.     {
  1780.       id swarmObj = find_swarm_objc_safe (javaObject);
  1782.       if (swarmObj)
  1783.         return swarmObj;
  1784.       else
  1785.         {
  1786.           ObjectEntry *entry = swarm_directory_java_find (javaObject);
  1787.           
  1788.           return entry ? entry->object : nil;
  1789.         }
  1790.     }
  1791. }
  1793. jobject
  1794. swarm_directory_java_next_phase (jobject jobj)
  1795. {
  1796.   (*jniEnv)->CallVoidMethod (jniEnv, jobj, 
  1797.                              m_PhaseCImpl_copy_creating_phase_to_using_phase);
  1798.   return (*jniEnv)->GetObjectField (jniEnv, jobj, f_nextPhase);
  1799. }
  1801. static int
  1802. java_compareDirectoryEntries (DirectoryEntry *obj1, DirectoryEntry* obj2)
  1803. {
  1804. #if 0
  1805.   return (int) !(*jniEnv)->CallBooleanMethod (jniEnv,
  1806.                                               obj1->foreignObject.java,
  1807.                                               m_Equals,
  1808.                                               obj2->foreignObject.java);
  1809. #else
  1810.   return (int) !(*jniEnv)->IsSameObject (jniEnv,
  1811.                                          obj1->foreignObject.java,
  1812.                                          obj2->foreignObject.java);
  1813. #endif
  1814. }
  1816. static id <Map>
  1817. createDirectoryEntryMap (void)
  1818. {
  1819.   return [[[Map createBegin: getZone (swarmDirectory)]
  1820.             setCompareFunction: java_compareDirectoryEntries]
  1821.            createEnd];
  1822. }
  1824. static void
  1825. swarm_directory_switch_java_entry (ObjectEntry *entry, jobject javaObject)
  1826. {
  1827.   jclass class = (*jniEnv)->GetObjectClass (jniEnv, javaObject);
  1829.   if (classp (class, c_Base))
  1830.     {
  1831.       (*jniEnv)->SetIntField (jniEnv, javaObject, f_objcPtrFid,
  1832.                               (jint) entry->object);
  1833.       entry->foreignObject.java = javaObject;
  1834.     }
  1835.  else
  1836.    {
  1837.       unsigned index;
  1838.       id <Map> m;
  1839.       id <Map> *javaTable = swarmDirectory->javaTable;
  1840.       
  1841.       index = swarm_directory_java_hash_code (entry->foreignObject.java);
  1842.       m = javaTable[index];
  1843.       [m remove: entry];
  1844.       (*jniEnv)->DeleteGlobalRef (jniEnv, entry->foreignObject.java);
  1845.       
  1846.       index = swarm_directory_java_hash_code (javaObject);
  1847.       entry->foreignObject.java = javaObject;
  1848.       if (!javaTable[index])
  1849.         javaTable[index] = createDirectoryEntryMap ();
  1850.       
  1851.       [javaTable[index] at: entry insert: entry];
  1852.     }
  1853.   (*jniEnv)->DeleteLocalRef (jniEnv, class);
  1854. }
  1856. ObjectEntry *
  1857. swarm_directory_java_switch_phase (Object_s *nextPhase,
  1858.                                    jobject currentJavaPhase)
  1859. {
  1860.   jobject lref = SD_JAVA_NEXTPHASE (currentJavaPhase);
  1861.   Object_s *currentPhase = SD_JAVA_FIND_OBJECT_OBJC (currentJavaPhase);
  1862.   ObjectEntry *retEntry;
  1863.   jobject nextJavaPhase = (*jniEnv)->NewGlobalRef (jniEnv, lref);
  1865.   (*jniEnv)->DeleteLocalRef (jniEnv, lref);
  1867.   if (currentPhase != nextPhase)
  1868.     {
  1869.       id entry = JAVA_OBJECT_ENTRY (currentJavaPhase, nextPhase);
  1871.       nextPhase->foreignEntry = entry;
  1873.       swarm_directory_switch_java_entry (entry, nextJavaPhase);
  1875.       swarm_directory_entry_drop (currentPhase->foreignEntry);
  1876.       currentPhase->foreignEntry = NULL;
  1878.       retEntry = entry;
  1879.     }
  1880.   else
  1881.     {
  1882.       swarm_directory_switch_java_entry (nextPhase->foreignEntry,
  1883.                                          nextJavaPhase);
  1885.       retEntry = nextPhase->foreignEntry;
  1886.     }
  1887.   return retEntry;
  1888. }
  1890. SEL
  1891. swarm_directory_java_ensure_selector (jobject jsel)
  1892. {
  1893.   SEL sel;
  1895.   if (!jsel)
  1896.     sel = NULL;
  1897.   else if (!(sel = (SEL) SD_JAVA_FIND_OBJECT_OBJC (jsel)))
  1898.     {
  1899.       char *name, *p;
  1900.       int i;
  1901.       jboolean copyFlag;
  1902.       jboolean objcFlag;
  1903.       jarray argTypes;
  1904.       jsize argCount;
  1905.         
  1906.       objcFlag = (*jniEnv)->GetBooleanField (jniEnv, jsel, f_objcFlagFid);
  1907.       argTypes = (*jniEnv)->GetObjectField (jniEnv, jsel, f_argTypesFid);
  1908.       argCount = (*jniEnv)->GetArrayLength (jniEnv, argTypes);
  1910.       {
  1911.         jstring string;
  1912.         const char *utf;
  1913.         
  1914.         string = (*jniEnv)->GetObjectField (jniEnv, jsel, f_nameFid);
  1915.         utf = (*jniEnv)->GetStringUTFChars (jniEnv, string, &copyFlag);
  1916.         
  1917.         if (objcFlag)
  1918.           {
  1919.             size_t len = strlen (utf);
  1920.             BOOL needTrailingColon = argCount > 0 && utf[len - 1] != '$';
  1921.             
  1922.             p = name = [scratchZone alloc: len + (int) needTrailingColon + 1];
  1923.             strcpy (name, utf);
  1924.             while (*p)
  1925.               {
  1926.                 if (*p == '$')
  1927.                   *p = ':';
  1928.                 p++;
  1929.               }
  1930.             if (needTrailingColon)
  1931.     {
  1932.               *p++ = ':';
  1933.               *p = '';
  1934.             }
  1935.           }
  1936.         else
  1937.           {
  1938.             name = [scratchZone alloc: strlen (utf) + argCount + 1];
  1939.             p = stpcpy (name, utf);
  1940.             for (i = 0; i < argCount; i++)
  1941.               *p++ = ':';
  1942.             *p = '';
  1943.           }
  1944.         if (copyFlag)
  1945.           (*jniEnv)->ReleaseStringUTFChars (jniEnv, string, utf);
  1946.         (*jniEnv)->DeleteLocalRef (jniEnv, string);
  1947.       }
  1949.       {
  1950.         jsize ti;
  1951.         char signatureBuf[(argCount + 3) * 3 + 1], *p = signatureBuf;
  1952.           
  1953.         void add_type (fcall_type_t type)
  1954.           {
  1955.             const char *objctype =  objc_type_for_fcall_type (type);
  1957.             p = stpcpy (p, objctype);
  1958.             *p++ = '0';
  1959.             *p = '';
  1960.             [globalZone free: (void *) objctype];
  1961.           }
  1962.         void add (jclass class)
  1963.           {
  1964.             add_type (fcall_type_for_java_class (class));
  1965.           }
  1966.         {
  1967.           jobject retType = (*jniEnv)->GetObjectField (jniEnv, jsel, f_retTypeFid);
  1968.           
  1969.           add (retType);
  1970.           (*jniEnv)->DeleteLocalRef (jniEnv, retType);
  1971.         }
  1972.         add_type (fcall_type_object);
  1973.         add_type (fcall_type_selector);
  1975.         for (ti = 0; ti < argCount; ti++)
  1976.           {
  1977.             jobject lref = (*jniEnv)->GetObjectArrayElement (jniEnv, argTypes, ti);
  1979.             add (lref);
  1980.             (*jniEnv)->DeleteLocalRef (jniEnv, lref);
  1981.           }
  1982.       
  1983.         sel = sel_get_any_typed_uid (name);
  1984.         {
  1985.           BOOL needSelector = NO;
  1986.           
  1987.           if (sel)
  1988.             {
  1989.               if (!sel_get_typed_uid (name, signatureBuf))
  1990.                 {
  1991. #if 1
  1992.                   raiseEvent (WarningMessage,
  1993.                               "Method `%s' type (%s) differs from Swarm "
  1994.                               "method's type (%s)n",
  1995.                             name, signatureBuf, sel->sel_types);
  1996. #endif
  1997.                   needSelector = YES;
  1998.                 }
  1999.               
  2000.             }
  2001.           else
  2002.             needSelector = YES;
  2003.           
  2004.           if (needSelector)
  2005.             {
  2006.               const char *type =
  2007.                 mframe_build_signature (signatureBuf, NULL, NULL, NULL);
  2008.               
  2009.               sel = sel_register_typed_name (name, type);
  2010.             }
  2011.         }
  2012.       }
  2013.       
  2014.       SD_JAVA_ADD_SELECTOR (jsel, sel);
  2016.       (*jniEnv)->DeleteLocalRef (jniEnv, argTypes);
  2017.       SFREEBLOCK (name);
  2018.     }
  2019.   return sel;
  2020. }
  2022. jclass
  2023. swarm_directory_objc_find_class_java (Class class)
  2024. {
  2025.   if (swarmDirectory)
  2026.     {
  2027.       ObjectEntry *entry = swarm_directory_objc_find_class (class);
  2028.       
  2029.       if (!entry)
  2030.         {
  2031.           if (![class respondsTo: M(isJavaProxy)])
  2032.             {
  2033.               jclass lref, javaClass;
  2034.               
  2035.               lref = find_java_wrapper_class (class);
  2036.               javaClass = (jclass) SD_JAVA_ADD_CLASS_JAVA (lref, class);
  2037.               (*jniEnv)->DeleteLocalRef (jniEnv, lref);
  2038.               return javaClass;
  2039.             }
  2040.           else
  2041.             abort ();
  2042.         } 
  2043.       else
  2044.         return entry->foreignObject.java;
  2045.     }
  2046.   else
  2047.     return 0;
  2048. }
  2050. Class
  2051. swarm_directory_java_ensure_class (jclass javaClass)
  2052. {
  2053.   Class objcClass;
  2055.   if (!(objcClass = SD_JAVA_FIND_OBJECT_OBJC (javaClass)))
  2056.     {
  2057.       const char *className = java_get_class_name (javaClass);
  2059.       objcClass = objc_class_for_class_name (className);
  2060.       
  2061.       // if the corresponding class does not exist create new Java Proxy
  2062.       
  2063.       if (objcClass == nil)
  2064.         {
  2065.           objcClass = [JavaClassProxy create: globalZone];
  2066.           
  2067.           (void) SD_JAVA_ADD_CLASS_JAVA (javaClass, objcClass);
  2068.         }
  2069.       FREECLASSNAME (className);
  2070.     }
  2071.   return objcClass;
  2072. }
  2074. jobject
  2075. swarm_directory_objc_find_object_java (id object)
  2076. {
  2077.   ObjectEntry *entry = swarm_directory_objc_find_object (object);
  2078.   
  2079.   if (entry)
  2080.     {
  2081.       if (entry->type == foreign_java)
  2082.         return entry->foreignObject.java;
  2083.     }
  2084.   return NULL;
  2085. }
  2087. jobject
  2088. swarm_directory_objc_find_selector_java (SEL sel)
  2089. {
  2090.   SelectorEntry *entry = swarm_directory_objc_find_selector (sel);
  2092.   if (entry)
  2093.     {
  2094.       if (entry->type == foreign_java)
  2095.         return entry->foreignObject.java;
  2096.     }
  2097.   return NULL;
  2098. }
  2100. jobject
  2101. swarm_directory_objc_ensure_selector_java (jclass jClass, SEL sel)
  2102. {
  2103.   SelectorEntry *entry = swarm_directory_objc_find_selector (sel);
  2105.   if (entry && entry->type == foreign_java)
  2106.     return entry->foreignObject.java;
  2107.   else
  2108.     {
  2109.       jobject jSelName = (*jniEnv)->NewStringUTF (jniEnv, sel_get_name (sel));
  2110.       jobject jSel, ret;
  2112.       jSel =
  2113.         (*jniEnv)->NewObject (jniEnv, c_Selector, m_SelectorConstructor,
  2114.                               jClass,
  2115.                               jSelName, 
  2116.                               JNI_TRUE);
  2117.       if (jSel)
  2118.         {
  2119.           ret = SD_JAVA_ADD_SELECTOR (jSel, sel)->foreignObject.java;
  2120.           (*jniEnv)->DeleteLocalRef (jniEnv, jSelName);
  2121.           (*jniEnv)->DeleteLocalRef (jniEnv, jSel);
  2122.         }
  2123.       else
  2124.         {
  2125.           (*jniEnv)->ExceptionClear (jniEnv);
  2126.           ret = 0;
  2127.         }
  2128.       return ret;
  2129.     }
  2130. }
  2132. static void
  2133. add (ObjectEntry *entry)
  2134. {
  2135.   unsigned index;
  2136.   id <Map> m;
  2137.   id *javaTable = swarmDirectory->javaTable;
  2138.   
  2139.   index = swarm_directory_java_hash_code (entry->foreignObject.java);
  2140.   m = javaTable[index];
  2141.   
  2142.   if (m == nil)
  2143.     {
  2144.       m = createDirectoryEntryMap ();
  2145.       javaTable[index] = m;
  2146.     }
  2147.   [m at: entry insert: entry];
  2148. }
  2150. ObjectEntry *
  2151. swarm_directory_java_add_object (jobject lref, Object_s *object)
  2152. {
  2153.   jclass class = (*jniEnv)->GetObjectClass (jniEnv, lref);
  2154.   jobject javaObject = (*jniEnv)->NewGlobalRef (jniEnv, lref);
  2155.   ObjectEntry *entry;
  2157.   entry = JAVA_OBJECT_ENTRY (javaObject, object);
  2159.   if (classp (class, c_Base))
  2160.     (*jniEnv)->SetIntField (jniEnv, lref, f_objcPtrFid, (jint) object);
  2161.   else
  2162.     add (entry);
  2163.   (*jniEnv)->DeleteLocalRef (jniEnv, class);
  2164.   object->foreignEntry = entry;
  2165.   return entry;
  2166. }
  2168. ObjectEntry *
  2169. swarm_directory_java_add_class (jobject lref, Class oClass)
  2170. {
  2171.   ObjectEntry *entry;
  2172.   jclass jClass = (*jniEnv)->NewGlobalRef (jniEnv, lref);
  2174.   entry = JAVA_OBJECT_ENTRY (jClass, (id) oClass);
  2176.   add (entry);
  2177.   avl_probe (swarmDirectory->class_tree, entry);
  2178.   return entry;
  2179. }
  2181. SelectorEntry *
  2182. swarm_directory_java_add_selector (jobject lref, SEL sel)
  2183. {
  2184.   unsigned index;
  2185.   id <Map> m;
  2186.   SelectorEntry *entry;
  2187.   jobject javaObject = (*jniEnv)->NewGlobalRef (jniEnv, lref);
  2188.   id *javaTable = swarmDirectory->javaTable;
  2189.   
  2190.   entry = JAVA_SELECTOR_ENTRY (javaObject, sel);
  2191.   index = swarm_directory_java_hash_code (javaObject);
  2192.   m = javaTable[index];
  2194.   if (m == nil)
  2195.     {
  2196.       m = createDirectoryEntryMap ();
  2197.       javaTable[index] = m;
  2198.     }
  2199.   [m at: entry insert: entry];
  2200.   avl_probe (swarmDirectory->selector_tree, entry);
  2201.   return entry;
  2202. }
  2204. ObjectEntry *
  2205. swarm_directory_java_switch_objc (Object_s *object, jobject javaObject)
  2206. {
  2207.   jclass class = (*jniEnv)->GetObjectClass (jniEnv, javaObject);
  2208.   ObjectEntry *entry;
  2210.   if (classp (class, c_Base))
  2211.     {
  2212.       id prev = (id) (*jniEnv)->GetIntField (jniEnv, javaObject, f_objcPtrFid);
  2213.       (*jniEnv)->SetIntField (jniEnv, javaObject, f_objcPtrFid, (jint) object);
  2214.       
  2215.       entry = JAVA_OBJECT_ENTRY (javaObject, prev);
  2216.     }
  2217.   else
  2218.     {
  2219.       unsigned index;
  2220.       id <Map> m;
  2221.       id *javaTable = swarmDirectory->javaTable;
  2222.       
  2223.       index = swarm_directory_java_hash_code (javaObject);
  2224.       m = javaTable[index];
  2225.       entry = [javaTable[index] at: JAVA_FIND_OBJECT_ENTRY (javaObject)];
  2226.     }
  2227.   if (entry)
  2228.     {
  2229.       entry->object->foreignEntry = NULL;
  2230.       entry->object = object;
  2231.     }
  2232.   else
  2233.     SD_JAVA_ADD_STRING (javaObject, object);
  2234.   return entry;
  2235. }
  2237. Class
  2238. swarm_directory_java_find_class_named_objc (const char *className)
  2239. {
  2240.   jclass javaClass = java_find_class (className, NO);
  2241.   
  2242.   if (javaClass)
  2243.     {
  2244.       Class objcClass = swarm_directory_java_ensure_class (javaClass);
  2246.       (*jniEnv)->DeleteLocalRef (jniEnv, javaClass);
  2247.       return objcClass;
  2248.     }
  2249.   return Nil;
  2250. }
  2252. Class
  2253. swarm_directory_java_class_for_object_objc (jobject jobj)
  2254. {
  2255.   jclass jcls;
  2256.   const char *className;
  2257.   Class result;
  2258.   
  2259.   jcls = (*jniEnv)->GetObjectClass (jniEnv, jobj);
  2260.   className = java_class_name (jobj);
  2261.   result = objc_class_for_class_name (className);
  2262.   FREECLASSNAME (className);
  2263.   if (!result)
  2264.     if (!(result = SD_JAVA_FIND_OBJECT_OBJC (jcls)))
  2265.       result = SD_JAVA_ENSURE_CLASS_OBJC (jcls);
  2266.   (*jniEnv)->DeleteLocalRef (jniEnv, jcls);
  2267.   return result;
  2268. }
  2270. const char *
  2271. java_class_name (jobject obj)
  2272. {
  2273.   jclass class;
  2274.   const char *ret;
  2276.   if (!(class = (*jniEnv)->GetObjectClass (jniEnv, obj)))
  2277.     abort ();
  2279.   ret = java_get_class_name (class);
  2280.   (*jniEnv)->DeleteLocalRef (jniEnv, class);
  2281.   return ret;
  2282. }
  2284. const char *
  2285. java_copy_string (jstring javaString)
  2286. {
  2287.   if (javaString)
  2288.     {
  2289.       jboolean isCopy;
  2290.       const char *str =
  2291.         (*jniEnv)->GetStringUTFChars (jniEnv, javaString, &isCopy);
  2292.       const char *ret = SSTRDUP (str);
  2293.       
  2294.       if (isCopy)
  2295.         (*jniEnv)->ReleaseStringUTFChars (jniEnv, javaString, str);
  2296.       return ret;
  2297.     }
  2298.   return 0;
  2299. }
  2301. void
  2302. java_cleanup_strings (const char **stringArray, size_t count)
  2303. {
  2304.   size_t i;
  2306.   for (i = 0; i < count; i++)
  2307.     if (stringArray[i])
  2308.       SFREEBLOCK (stringArray[i]);
  2309. }
  2311. const char **
  2312. java_convert_string_array (jobjectArray ary)
  2313. {
  2314.   jsize size = (*jniEnv)->GetArrayLength (jniEnv, ary);
  2315.   jsize i;
  2316.   const char **ret = [scratchZone alloc: sizeof (const char *) * (size + 1)];
  2317.   
  2318.   for (i = 0; i < size; i++)
  2319.     {
  2320.       jstring string = (*jniEnv)->GetObjectArrayElement (jniEnv, ary, i);
  2321.       
  2322.       ret[i] = JAVA_COPY_STRING (string);
  2323.       (*jniEnv)->DeleteLocalRef (jniEnv, string);
  2324.     }
  2325.   ret[size] = NULL;
  2326.   return ret;
  2327. }
  2330. void
  2331. java_drop (jobject jobj)
  2332. {
  2333.   (*jniEnv)->DeleteGlobalRef (jniEnv, jobj);
  2334. }
  2336. #endif