5 files changed, 168 insertions, 0 deletions
diff --git a/getdollarzero/getdollarzero-abs0.pd b/getdollarzero/getdollarzero-abs0.pd
new file mode 100755
index 0000000..73b842e
--- /dev/null
+++ b/getdollarzero/getdollarzero-abs0.pd
@@ -0,0 +1,16 @@
+#N canvas 186 97 466 316 10;
+#X obj 103 52 loadbang;
+#X obj 116 139 f \$0;
+#X obj 174 253 print;
+#X msg 122 178 abs0 dollarzero= \$1;
+#X obj 279 174 getdollarzero 1;
+#X obj 180 98 t b b;
+#X msg 275 204 parent dollarzero= \$1;
+#X obj 303 100 getdollarzero-abs1;
+#X connect 0 0 5 0;
+#X connect 1 0 3 0;
+#X connect 3 0 2 0;
+#X connect 4 0 6 0;
+#X connect 5 0 1 0;
+#X connect 5 1 4 0;
+#X connect 6 0 2 0;
diff --git a/getdollarzero/getdollarzero-abs1.pd b/getdollarzero/getdollarzero-abs1.pd
new file mode 100755
index 0000000..ef5f5bd
--- /dev/null
+++ b/getdollarzero/getdollarzero-abs1.pd
@@ -0,0 +1,15 @@
+#N canvas 0 0 470 320 10;
+#X obj 103 52 loadbang;
+#X obj 116 139 f \$0;
+#X obj 174 253 print;
+#X obj 180 98 t b b;
+#X msg 122 178 abs1 dollarzero= \$1;
+#X obj 280 174 getdollarzero 5;
+#X msg 275 204 abs1's parent's parent dollarzero= \$1;
+#X connect 0 0 3 0;
+#X connect 1 0 4 0;
+#X connect 3 0 1 0;
+#X connect 3 1 5 0;
+#X connect 4 0 2 0;
+#X connect 5 0 6 0;
+#X connect 6 0 2 0;
diff --git a/getdollarzero/getdollarzero-help.pd b/getdollarzero/getdollarzero-help.pd
new file mode 100755
index 0000000..1f9f127
--- /dev/null
+++ b/getdollarzero/getdollarzero-help.pd
@@ -0,0 +1,13 @@
+#N canvas 372 409 472 395 10;
+#X msg 42 73 bang;
+#X obj 41 149 print;
+#X obj 42 111 getdollarzero;
+#X symbolatom 87 148 10 0 0 0 - - -;
+#X obj 209 112 getdollarzero-abs0;
+#X text 17 22 Get the dollar zero of a patch.;
+#X text 28 199 Argument: How much recursion you want (If set to 1 \,
+it will get the parent's dollar zero \, if set to 2 \, it will get
+the parent's parent's dollar zero \, etc);
+#X connect 0 0 2 0;
+#X connect 2 0 1 0;
+#X connect 2 0 3 0;
diff --git a/getdollarzero/getdollarzero.c b/getdollarzero/getdollarzero.c
new file mode 100755
index 0000000..8a19486
--- /dev/null
+++ b/getdollarzero/getdollarzero.c
@@ -0,0 +1,64 @@
+/* (C) 2005 Guenter Geiger */
+
+#include "m_pd.h"
+#include "g_canvas.h"
+
+
+/* HACK
+
+struct _glist
+{
+    t_object gl_obj;            // header in case we're a glist
+    t_gobj *gl_list;            // the actual data
+    struct _gstub *gl_stub;     // safe pointer handler
+    int gl_valid;               // incremented when pointers might be stale
+    struct _glist *gl_owner;    // parent glist, supercanvas, or 0 if none
+};
+
+END HACK
+
+*/
+
+typedef struct getdollarzero
+{
+    t_object x_ob;
+    t_canvas * x_canvas;
+    t_outlet* x_outlet;
+    int x_level;
+} t_getdollarzero;
+
+
+
+
+static void getdollarzero_bang(t_getdollarzero *x)
+{
+    int i = x->x_level;
+    t_canvas* last = x->x_canvas;
+
+    while (i>0) {
+        i--;
+        if (last->gl_owner) last = last->gl_owner;
+    }
+// x->s_parent_unique = canvas_realizedollar((t_canvas *)this_canvas->gl_owner, gensym("$0"));
+    //outlet_symbol(x->x_outlet,canvas_getdir(last));
+    outlet_symbol(x->x_outlet,canvas_realizedollar(last, gensym("$0")));
+}
+
+t_class *getdollarzero_class;
+
+static void *getdollarzero_new(t_floatarg level)
+{
+    t_getdollarzero *x = (t_getdollarzero *)pd_new(getdollarzero_class);
+    x->x_canvas =  canvas_getcurrent();
+    x->x_outlet =  outlet_new(&x->x_ob, &s_);
+    x->x_level  =  level;
+    return (void *)x;
+}
+
+void getdollarzero_setup(void)
+{
+    getdollarzero_class = class_new(gensym("getdollarzero"), (t_newmethod)getdollarzero_new, 0,
+    	sizeof(t_getdollarzero), 0, A_DEFFLOAT,0);
+    class_addbang(getdollarzero_class, getdollarzero_bang);
+}
+
diff --git a/getdollarzero/makefile b/getdollarzero/makefile
new file mode 100755
index 0000000..14a52b3
--- /dev/null
+++ b/getdollarzero/makefile
@@ -0,0 +1,60 @@
+current:
+	echo make pd_linux, pd_win, or pd_darwin
+
+clean: ; rm -f *.pd_linux *.o
+
+# ----------------------- WINDOWS -----------------------
+
+pd_win: getdollarzero.dll
+
+.SUFFIXES: .dll
+
+WINCFLAGS = -Wall -W -Wshadow -Wstrict-prototypes -DPD -DNT -W3 -WX -Werror -Wno-unused -mms-bitfields -Wno-parentheses -Wno-switch -O6 -funroll-loops -fomit-frame-pointer
+
+PDPATH = /home/tom/pd0.4
+
+WININCLUDE =  -I.. -I../include -I$(PDPATH)/src
+
+LDFLAGS = -shared
+
+.c.dll:
+	gcc -mms-bitfields $(WINCFLAGS) $(WININCLUDE) -o $*.o -c $*.c
+	gcc $(LDFLAGS) -o $*.dll $*.o $(PDPATH)/bin/pd.dll 	
+	strip --strip-unneeded $*.dll
+	rm -f $*.o
+	
+
+# ----------------------- LINUX i386 -----------------------
+
+pd_linux: getdollarzero.pd_linux
+
+.SUFFIXES: .pd_linux
+
+PDPATH = /home/tom/pd/cvs/pd
+
+LINUXCFLAGS = -DPD -O2 -funroll-loops -fomit-frame-pointer \
+    -Wall -W -Wshadow -Wstrict-prototypes -Werror \
+    -Wno-unused -Wno-parentheses -Wno-switch
+
+LINUXINCLUDE =  -I$(PDPATH)/src
+
+.c.pd_linux:
+	cc $(LINUXCFLAGS) $(LINUXINCLUDE) -o $*.o -c $*.c
+	ld -export_dynamic  -shared -o $*.pd_linux $*.o -lc -lm
+	strip --strip-unneeded $*.pd_linux
+	rm $*.o
+
+# ----------------------- Mac OSX -----------------------
+
+pd_darwin: getdollarzero.pd_darwin
+
+.SUFFIXES: .pd_darwin
+
+DARWINCFLAGS = -DPD -O2 -Wall -W -Wshadow -Wstrict-prototypes \
+    -Wno-unused -Wno-parentheses -Wno-switch
+
+.c.pd_darwin:
+	cc $(DARWINCFLAGS) $(LINUXINCLUDE) -o $*.o -c $*.c
+	cc -bundle -undefined suppress -flat_namespace -o $*.pd_darwin $*.o 
+	rm -f $*.o
+