From a89a3c9fecd05a623aef900114cf936ba9ecd9e7 Mon Sep 17 00:00:00 2001
From: "N.N." <matju@users.sourceforge.net>
Date: Wed, 15 Mar 2006 04:55:34 +0000
Subject: 0.8.1

svn path=/trunk/; revision=4710
---
 externals/gridflow/bridge/placebo.rb  |  7 +++++--
 externals/gridflow/bridge/puredata.c  | 37 ++++++++++++++++++-----------------
 externals/gridflow/bridge/puredata.rb |  2 +-
 3 files changed, 25 insertions(+), 21 deletions(-)

(limited to 'externals/gridflow/bridge')

diff --git a/externals/gridflow/bridge/placebo.rb b/externals/gridflow/bridge/placebo.rb
index 3d712d1d..b52e196e 100644
--- a/externals/gridflow/bridge/placebo.rb
+++ b/externals/gridflow/bridge/placebo.rb
@@ -1,5 +1,5 @@
 =begin
-	$Id: placebo.rb,v 1.1 2005-10-04 02:02:13 matju Exp $
+	$Id: placebo.rb,v 1.2 2006-03-15 04:38:20 matju Exp $
 
 	GridFlow
 	Copyright (c) 2001,2002,2003,2004,2005 by Mathieu Bouchard
@@ -23,7 +23,9 @@
 
 class Object
   def self.dummy(sel)
-    self.module_eval "def #{sel}(*args) GridFlow.post \"dummy #{sel}: %s\", args.inspect end"
+    self.module_eval "def #{sel}(*args)
+	#GridFlow.post \"dummy #{sel}: %s\", args.inspect
+    end"
   end
 end
 
@@ -36,6 +38,7 @@ module GridFlow
   class Clock
     def initialize(victim) @victim=victim end
     dummy :delay
+    dummy :unset
   end
   class Pointer
     dummy :initialize
diff --git a/externals/gridflow/bridge/puredata.c b/externals/gridflow/bridge/puredata.c
index dd6fd88f..1109b59c 100644
--- a/externals/gridflow/bridge/puredata.c
+++ b/externals/gridflow/bridge/puredata.c
@@ -1,5 +1,5 @@
 /*
-	$Id: puredata.c,v 1.1 2005-10-04 02:02:13 matju Exp $
+	$Id: puredata.c,v 1.2 2006-03-15 04:38:20 matju Exp $
 
 	GridFlow
 	Copyright (c) 2001,2002,2003,2004,2005 by Mathieu Bouchard
@@ -43,6 +43,9 @@ tries to call a Ruby method of the proper name.
 #include <unistd.h>
 #include "g_canvas.h"
 
+#define CObject_free CObject_freeee
+#define gfpost post
+
 /* **************************************************************** */
 struct BFObject;
 struct FMessage {
@@ -61,11 +64,11 @@ static const char *rb_sym_name(Ruby sym) {return rb_id2name(SYM2ID(sym));}
 
 static BuiltinSymbols *syms;
 
-void CObject_freeee (void *victim) {
+void CObject_free (void *victim) {
 	CObject *self = (CObject *)victim;
 	self->check_magic();
 	if (!self->rself) {
-		fprintf(stderr,"attempt to free object that has no rself\n");
+		L fprintf(stderr,"attempt to free object that has no rself\n");
 		abort();
 	}
 	self->rself = 0; /* paranoia */
@@ -81,7 +84,7 @@ static Ruby mPointer=0;
 \class Pointer < CObject
 struct Pointer : CObject {
 	void *p;
-	Pointer() { assert(!"DYING HORRIBLY"); }
+	Pointer() { assert(!"DYING HORRIBLY (GASP)"); }
 	Pointer(void *_p) : p(_p) {}
 	\decl Ruby ptr ();
 };
@@ -94,7 +97,10 @@ struct Pointer : CObject {
 );}
 \end class Pointer
 Ruby Pointer_s_new (void *ptr) {
-	return Data_Wrap_Struct(EVAL("GridFlow::Pointer"), 0, 0, new Pointer(ptr));
+	Pointer *self = new Pointer(ptr);
+	Ruby rself = Data_Wrap_Struct(EVAL("GridFlow::Pointer"), 0, CObject_free, self);
+	self->rself = rself;
+	return rself;
 }
 void *Pointer_get (Ruby rself) {
 	DGS(Pointer);
@@ -129,18 +135,13 @@ static int noutlets_of (Ruby qlass) {
 #endif
 extern "C" void Init_stack(VALUE *addr);
 static VALUE *localize_sysstack () {
-	long bp;
-	sscanf(RUBY_STACK_END,"0x%08lx",&bp);
-	//fprintf(stderr,"old RUBY_STACK_END = %08lx\n",bp);
+	long bp0,bp1;
+	sscanf(STACK_END,"0x%08lx",&bp0);
 	// HACK (2004.08.29: alx has a problem; i hope it doesn't get worse)
-	// this rounds to the last word of a 4k block
-	// cross fingers that no other OS does it too different
-	// !@#$ doesn't use STACK_GROW_DIRECTION
-	// bp=((bp+0xfff)&~0xfff)-sizeof(void*);
-	// GAAAH
-	bp=((bp+0xffff)&~0xffff)-sizeof(void*);
-	//fprintf(stderr,"new RUBY_STACK_END = %08lx\n",bp);
-	return (VALUE *)bp;
+	// this rounds to the last word of a 64k block (bug: doesn't use STACK_GROW_DIRECTION)
+	bp1=((bp0+0xffff)&~0xffff)-sizeof(void*);
+	fprintf(stderr,"STACK_END old=0x%08lx; new=0x%08lx\n",bp0,bp1);
+	return (VALUE *)bp1;
 }
 
 //****************************************************************
@@ -312,7 +313,7 @@ static void BFObject_delete_1 (FMessage *fm) {
 	if (fm->self->rself) {
 		rb_funcall(fm->self->rself,SI(delete),0);
 	} else {
-		post("BFObject_delete is NOT handling BROKEN object at %08x",(int)fm);
+		post("BFObject_delete is NOT handling BROKEN object at %*lx",2*sizeof(long),(long)fm);
 	}
 }
 
@@ -652,7 +653,7 @@ struct Clock : CObject {
 
 void Clock_fn (Ruby rself) { rb_funcall_myrescue(rself,SI(call),0); }
 void Clock_mark (Clock *self) { rb_gc_mark(self->owner); }
-void Clock_free (Clock *self) { clock_free(self->serf); CObject_freeee(self); }
+void Clock_free (Clock *self) { clock_free(self->serf); CObject_free(self); }
 
 Ruby Clock_s_new (Ruby qlass, Ruby owner) {
 	Clock *self = new Clock();
diff --git a/externals/gridflow/bridge/puredata.rb b/externals/gridflow/bridge/puredata.rb
index fffda1c2..184bb2a7 100644
--- a/externals/gridflow/bridge/puredata.rb
+++ b/externals/gridflow/bridge/puredata.rb
@@ -1,5 +1,5 @@
 =begin
-	$Id: puredata.rb,v 1.1 2005-10-04 02:02:13 matju Exp $
+	$Id: puredata.rb,v 1.2 2006-03-15 04:38:20 matju Exp $
 
 	GridFlow
 	Copyright (c) 2001,2002 by Mathieu Bouchard
-- 
cgit v1.2.1