refactored patch into Pd-extended 0.43 git

svn path=/trunk/; revision=14773

1 files changed, 0 insertions, 186 deletions

diff --git a/packages/patches/closeinitbang-0.40-0test03.patch b/packages/patches/closeinitbang-0.40-0test03.patch
deleted file mode 100644
index 684b315f..00000000
--- a/packages/patches/closeinitbang-0.40-0test03.patch
+++ /dev/null
@@ -1,186 +0,0 @@
-diff -Naur src.org/g_canvas.c src/g_canvas.c
---- g_canvas.c	2006-08-15 21:50:14.000000000 +0200
-+++ g_canvas.c	2006-08-22 16:19:17.000000000 +0200
-@@ -1040,6 +1040,52 @@
-     canvas_loadbangabstractions(x);
-     canvas_loadbangsubpatches(x);
- }
-+/* JMZ:
-+ * initbang is emitted after the canvas is done, but before the parent canvas is done
-+ * therefore, initbangs cannot reach to the outlets
-+ */
-+void canvas_initbang(t_canvas *x)
-+{
-+    t_gobj *y;
-+    t_symbol *s = gensym("initbang");
-+    /* run "initbang" for all subpatches, but NOT for the child abstractions */
-+    for (y = x->gl_list; y; y = y->g_next)
-+      if (pd_class(&y->g_pd) == canvas_class)
-+        {
-+          if (!canvas_isabstraction((t_canvas *)y))
-+            canvas_initbang((t_canvas *)y);
-+        }
-+
-+    /* call the initbang()-method for objects that have one */
-+    for (y = x->gl_list; y; y = y->g_next)
-+      {
-+        if ((pd_class(&y->g_pd) != canvas_class) && zgetfn(&y->g_pd, s))
-+          {
-+            pd_vmess(&y->g_pd, s, "");
-+          }
-+      }
-+}
-+/* JMZ:
-+ * closebang is emitted before the canvas is destroyed
-+ * and BEFORE subpatches/abstractions in this canvas are destroyed
-+ */
-+void canvas_closebang(t_canvas *x)
-+{
-+    t_gobj *y;
-+    t_symbol *s = gensym("closebang");
-+
-+    /* call the closebang()-method for objects that have one 
-+     * but NOT for subpatches/abstractions: these are called separately
-+     * from g_graph:glist_delete()
-+     */
-+    for (y = x->gl_list; y; y = y->g_next)
-+      {
-+        if ((pd_class(&y->g_pd) != canvas_class) && zgetfn(&y->g_pd, s))
-+          {
-+            pd_vmess(&y->g_pd, s, "");
-+          }
-+      }
-+}
- 
-     /* When you ask a canvas its size the result is 2 pixels more than what
-     you gave it to open it; perhaps there's a 1-pixel border all around it
-diff -Naur src.org/g_graph.c src/g_graph.c
---- g_graph.c	2006-03-01 03:00:13.000000000 +0100
-+++ g_graph.c	2006-08-22 16:20:55.000000000 +0200
-@@ -62,6 +62,9 @@
-     return (ret);
- }
- 
-+/* JMZ: emit a closebang message */
-+void canvas_closebang(t_canvas *x);
-+
-     /* delete an object from a glist and free it */
- void glist_delete(t_glist *x, t_gobj *y)
- {
-@@ -71,7 +74,12 @@
-     t_canvas *canvas = glist_getcanvas(x);
-     int drawcommand = class_isdrawcommand(y->g_pd);
-     int wasdeleting;
--    
-+
-+    if (pd_class(&y->g_pd) == canvas_class) {
-+      /* JMZ: send a closebang to the canvas */
-+      canvas_closebang((t_canvas *)y);
-+    }
-+ 
-     wasdeleting = canvas_setdeleting(canvas, 1);
-     if (x->gl_editor)
-     {
-diff -Naur src.org/m_class.c src/m_class.c
---- m_class.c	2006-08-12 07:06:47.000000000 +0200
-+++ m_class.c	2006-08-22 16:19:17.000000000 +0200
-@@ -509,6 +509,8 @@
- static int tryingalready;
- 
- void canvas_popabstraction(t_canvas *x);
-+void canvas_initbang(t_canvas *x);
-+
- extern t_pd *newest;
- 
- t_symbol* pathsearch(t_symbol *s,char* ext);
-@@ -543,9 +545,11 @@
-         {
-             canvas_setargs(argc, argv);
-             binbuf_evalfile(gensym(nameptr), gensym(dirbuf));
-+            canvas_initbang((t_canvas *)(s__X.s_thing));/* JMZ*/
-             if (s__X.s_thing != current)
-                 canvas_popabstraction((t_canvas *)(s__X.s_thing));
-             canvas_setargs(0, 0);
-+
-         }
-         else error("%s: can't load abstraction within itself\n", s->s_name);
-     }
-diff -Naur src.org/x_misc.c src/x_misc.c
---- x_misc.c	2005-12-31 21:08:38.000000000 +0100
-+++ x_misc.c	2006-08-22 16:19:17.000000000 +0200
-@@ -111,6 +111,66 @@
-         gensym("loadbang"), 0);
- }
- 
-+
-+/* -------------------------- JMZ: initbang ------------------------------ */
-+static t_class *initbang_class;
-+
-+typedef struct _initbang
-+{
-+    t_object x_obj;
-+} t_initbang;
-+
-+static void *initbang_new(void)
-+{
-+    t_initbang *x = (t_initbang *)pd_new(initbang_class);
-+    outlet_new(&x->x_obj, &s_bang);
-+    return (x);
-+}
-+
-+static void initbang_initbang(t_initbang *x)
-+{
-+  if (!sys_noloadbang) /* JMZ: hmm, not sure whether we should respect sys_noloadbang here... */
-+        outlet_bang(x->x_obj.ob_outlet);
-+}
-+
-+static void initbang_setup(void)
-+{
-+  initbang_class = class_new(gensym("initbang"), (t_newmethod)initbang_new, 0,
-+        sizeof(t_initbang), CLASS_NOINLET, 0);
-+    class_addmethod(initbang_class, (t_method)initbang_initbang,
-+        gensym("initbang"), 0);
-+}
-+
-+
-+/* -------------------------- JMZ: closebang ------------------------------ */
-+static t_class *closebang_class;
-+
-+typedef struct _closebang
-+{
-+    t_object x_obj;
-+} t_closebang;
-+
-+static void *closebang_new(void)
-+{
-+    t_closebang *x = (t_closebang *)pd_new(closebang_class);
-+    outlet_new(&x->x_obj, &s_bang);
-+    return (x);
-+}
-+static void closebang_closebang(t_closebang *x)
-+{
-+  if (!sys_noloadbang) /* JMZ: hmm, not sure whether we should respect sys_noloadbang here... */
-+        outlet_bang(x->x_obj.ob_outlet);
-+}
-+
-+static void closebang_setup(void)
-+{
-+  closebang_class = class_new(gensym("closebang"), (t_newmethod)closebang_new, 0,
-+        sizeof(t_closebang), CLASS_NOINLET, 0);
-+    class_addmethod(closebang_class, (t_method)closebang_closebang,
-+        gensym("closebang"), 0);
-+}
-+
-+
- /* ------------- namecanvas (delete this later) --------------------- */
- static t_class *namecanvas_class;
- 
-@@ -314,6 +374,8 @@
- {
-     random_setup();
-     loadbang_setup();
-+    initbang_setup();
-+    closebang_setup();
-     namecanvas_setup();
-     serial_setup();
-     cputime_setup();