Changeset 353 for trunk/nom/class_c/nomobj.c

Timestamp:

Jun 7, 2008, 10:41:05 AM (17 years ago)

Author:

cinc

Message:

Started implementing method query methods. Renamed nomGetClass() to nomQueryClass().

File:

• trunk/nom/class_c/nomobj.c (modified) (6 diffs)

trunk/nom/class_c/nomobj.c

@@ -54 +54 @@
 #include "nomobj.ih"
 
+#include "nomstring.h"
+#include "nommethod.h"
 #include "gc.h"
 
@@ -124 +126 @@
 
 /**
-    \brief This function implements the method nomGetClass() of class NOMObject.
+    \brief This function implements the method nomQueryClass() of class NOMObject.
     It returns a pointer to the class object of this object.
 
@@ -131 +133 @@
     \retval PNOMClass A pointer to the class object for this object. This can never be NULL.
  */
-NOM_Scope PNOMClass NOMLINK impl_NOMObject_nomGetClass(NOMObject* nomSelf, CORBA_Environment *ev)
+NOM_Scope PNOMClass NOMLINK impl_NOMObject_nomQueryClass(NOMObject* nomSelf, CORBA_Environment *ev)
 {
 /* NOMObjectData* nomThis=NOMObjectGetData(nomSelf); */
@@ -158 +160 @@
      It is possible that we are called by a subclass. So get the class object and let the
      class object create the correct class. */
-  nomCls=NOMObject_nomGetClass(nomSelf, NULL);
+  nomCls=NOMObject_nomQueryClass(nomSelf, NULL);
   return NOMClass_nomNew(nomCls, NULL);
 }
@@ -206 +208 @@
   }
  
-  if(nomClass==_nomGetClass(nomSelf, NULL))
+  if(nomClass==_nomQueryClass(nomSelf, NULL))
     return TRUE;
   
@@ -220 +222 @@
   return nomSelf->mtab->nomClassName;
 }
+
+
+NOMDLLEXPORT NOM_Scope void NOMLINK impl_NOMObject_nomGetMethodList(NOMObject* nomSelf,
+                                                                    const CORBA_boolean bIncludingParents,
+                                                                    CORBA_Environment *ev)
+{
+  NOMClassPriv* ncPriv;
+  
+  /* NOMObjectData* nomThis = NOMObjectGetData(nomSelf); */
+
+  g_message("In %s (%d): %s", __FUNCTION__, __LINE__, _nomGetClassName(_nomQueryClass(nomSelf, NULL), NULL));
+  
+  ncPriv=(NOMClassPriv*)_nomGetObjectCreateInfo(_nomQueryClass(nomSelf, NULL), NULL);
+  
+  if(ncPriv){
+    gulong a, ulNumIntroducedMethods;
+
+    ulNumIntroducedMethods=ncPriv->sci->ulNumStaticMethods;
+    for(a=0;a< ulNumIntroducedMethods;a++)
+    {
+      NOMMethod* nMethod=NOMMethodNew();
+      NOMString* ns;
+      
+      _initData(nMethod, (gpointer) &ncPriv->sci->nomSMethods[a], NULL);
+      g_message("In %s (%d): %s %X", __FUNCTION__, __LINE__, *ncPriv->sci->nomSMethods[a].nomMethodId, nMethod /*chrMethodDescriptor*/);
+
+      g_message("  In %s (%d): %s\n", __FUNCTION__, __LINE__, _nomGetClassName(_getName(nMethod, NULL), NULL));
+      
+      
+      //g_message("    In %s (%d): %X NOMString: %x", __FUNCTION__, __LINE__, nMethod, _getName(nMethod, NULL));
+      
+      g_message("    In %s (%d): NOMMethod: %x %s 3\n", __FUNCTION__, __LINE__, nMethod, _queryString(_getName(nMethod, NULL), NULL));
+      
+    }
+    //nomPrintf("     %s %s \n", nomSelf->mtab->nomClassName, ncPriv->mtab->nomClassName);
+  }
+  
+  //nomPrintf("In %s: metaclass: %s, class: %s\n", __FUNCTION__, _nomGetClassName(_nomQueryClass(nomSelf, NULL), NULL),
+    //        _nomGetClassName(nomSelf, NULL));
+
+}
+