[Gridflow-cvs] [svn] commit: r3249 - /trunk/base/flow_objects.c

gridflow-cvs at artengine.ca gridflow-cvs at artengine.ca
Wed Mar 19 22:17:00 EDT 2008


Author: matju
Date: Wed Mar 19 22:17:00 2008
New Revision: 3249

Log:
[#print]: added _0_dest, undocumented feature for [display]

Modified:
    trunk/base/flow_objects.c

Modified: trunk/base/flow_objects.c
==============================================================================
--- trunk/base/flow_objects.c (original)
+++ trunk/base/flow_objects.c Wed Mar 19 22:17:00 2008
@@ -301,9 +301,16 @@
 	this->dest = 0;
 	this->name = name;
 	base=10; trunc=70; maxrows=50;
-}
+	fprintf(stderr,"#print:initialize rself=%lx self=%p bself=%p\n",rself,this,bself);
+}
+/*static t_pd *rp_to_pd (Ruby pointer) {
+       Pointer *foo;
+       Data_Get_Struct(pointer,Pointer,foo);
+       return (t_pd *)foo->p;
+}*/
 \def void _0_dest (Pointer *p) {
-
+	fprintf(stderr,"#print:_0_dest    rself=%lx self=%p bself=%p\n",rself,this,bself);
+	dest = (t_pd *)(p->p);
 }
 \def void end_hook () {}
 \def void _0_base (int x) { if (x==2 || x==8 || x==10 || x==16) base=x; else RAISE("base %d not supported",x); }



More information about the Gridflow-cvs mailing list