From 6bc4123e40a3fe3ffc768fa7f943dfcda034e571 Mon Sep 17 00:00:00 2001
From: Thomas Grill <xovo@users.sourceforge.net>
Date: Wed, 8 Mar 2006 17:37:25 +0000
Subject: some small additions, like ability to set pd class type

svn path=/trunk/externals/clr/; revision=4659
---
 clr.cpp | 19 +++++++++++++++++--
 1 file changed, 17 insertions(+), 2 deletions(-)

(limited to 'clr.cpp')

diff --git a/clr.cpp b/clr.cpp
index 7a5af73..656a5f8 100755
--- a/clr.cpp
+++ b/clr.cpp
@@ -381,6 +381,7 @@ static void PD_OutletBang(t_clr *obj,int n)
 {
     assert(obj);
     assert(obj->outlets);
+    assert(n >= 0 && n < obj->outlets->size());
     outlet_bang((*obj->outlets)[n]);
 }
 
@@ -388,6 +389,7 @@ static void PD_OutletFloat(t_clr *obj,int n,float f)
 {
     assert(obj);
     assert(obj->outlets);
+    assert(n >= 0 && n < obj->outlets->size());
     outlet_float((*obj->outlets)[n],f);
 }
 
@@ -395,6 +397,7 @@ static void PD_OutletSymbol(t_clr *obj,int n,t_symbol *s)
 {
     assert(obj);
     assert(obj->outlets);
+    assert(n >= 0 && n < obj->outlets->size());
     outlet_symbol((*obj->outlets)[n],s);
 }
 
@@ -402,6 +405,7 @@ static void PD_OutletPointer(t_clr *obj,int n,t_gpointer *p)
 {
     assert(obj);
     assert(obj->outlets);
+    assert(n >= 0 && n < obj->outlets->size());
     outlet_pointer((*obj->outlets)[n],p);
 }
 
@@ -409,6 +413,7 @@ static void PD_OutletAtom(t_clr *obj,int n,t_atom l)
 {
     assert(obj);
     assert(obj->outlets);
+    assert(n >= 0 && n < obj->outlets->size());
     t_outlet *out = (*obj->outlets)[n];
     switch(l.a_type) {
         case A_FLOAT: outlet_float(out,l.a_w.w_float); break;
@@ -423,6 +428,7 @@ static void PD_OutletAnything(t_clr *obj,int n,t_symbol *s,AtomList l)
 {
     assert(obj);
     assert(obj->outlets);
+    assert(n >= 0 && n < obj->outlets->size());
     outlet_anything((*obj->outlets)[n],s,l.argc,l.argv);
 }
 
@@ -430,6 +436,7 @@ static void PD_OutletAnything2(t_clr *obj,int n,t_symbol *s,MonoArray *l)
 {
     assert(obj);
     assert(obj->outlets);
+    assert(n >= 0 && n < obj->outlets->size());
 //    assert(mono_object_get_class(&l->obj) == clr_atom);
     outlet_anything((*obj->outlets)[n],s,mono_array_length(l),mono_array_addr(l,t_atom,0));
 }
@@ -555,7 +562,8 @@ static int classloader(char *dirname, char *classname)
 
     // make new class (with classname)
     classsym = gensym(classname);
-    clr_class->pd_class = class_new(classsym,(t_newmethod)clr_new,(t_method)clr_free, sizeof(t_clr), CLASS_DEFAULT, A_GIMME, 0);
+    clr_class->pd_class = NULL;
+    int flags = CLASS_DEFAULT;
 
     clr_class->obj_field = mono_class_get_field_from_name(clr_class->mono_class,"ptr");
     assert(clr_class->obj_field);
@@ -582,7 +590,11 @@ static int classloader(char *dirname, char *classname)
         // call static Main method
 	    gpointer args = obj;
         MonoObject *exc;
-        mono_runtime_invoke(method,NULL,&args,&exc);
+        MonoObject *ret = mono_runtime_invoke(method,NULL,&args,&exc);
+        if(ret) {
+            // \TODO check return type
+            flags = *(int *)mono_object_unbox(ret);
+        }
 
         // unset current class
         clr_setup_class = NULL;
@@ -598,6 +610,9 @@ static int classloader(char *dirname, char *classname)
     // find and save constructor
     clr_class->mono_ctor = mono_method_desc_search_in_class(clr_desc_ctor,clr_class->mono_class);
 
+    // make pd class
+    clr_class->pd_class = class_new(classsym,(t_newmethod)clr_new,(t_method)clr_free, sizeof(t_clr), flags, A_GIMME, A_NULL);
+
     // find && register methods
     if(clr_class->method_bang)
         class_addbang(clr_class->pd_class,clr_method_bang);
-- 
cgit v1.2.1