svf~: args parsing; prepend/Append: bang handling; seq: pause, continue, goto; many maxmode changes

svn path=/trunk/externals/miXed/; revision=2490

2 files changed, 17 insertions, 18 deletions

diff --git a/shared/toxy/plusbob.c b/shared/toxy/plusbob.c
index 4ea96e2..9dae191 100644
--- a/shared/toxy/plusbob.c
+++ b/shared/toxy/plusbob.c
@@ -88,12 +88,12 @@ static void plusbob_doattach(t_plusbob *bob, t_plusbob *parent)
 	if (bob->bob_next = parent->bob_children)
 	{
 	    if (parent->bob_children->bob_prev)
-		bug("plusbob_doattach 1");
+		loudbug_bug("plusbob_doattach 1");
 	    parent->bob_children->bob_prev = bob;
 	}
 	parent->bob_children = bob;
     }
-    else bug("plusbob_doattach 2");
+    else loudbug_bug("plusbob_doattach 2");
 }
 
 static void plusbob_dodetach(t_plusbob *bob)
@@ -103,7 +103,7 @@ static void plusbob_dodetach(t_plusbob *bob)
 	if (bob->bob_prev)
 	{
 	    if (bob == bob->bob_parent->bob_children)
-		bug("plusbob_dodetach 1");
+		loudbug_bug("plusbob_dodetach 1");
 	    bob->bob_prev->bob_next = bob->bob_next;
 	}
 	if (bob->bob_next)
@@ -111,7 +111,7 @@ static void plusbob_dodetach(t_plusbob *bob)
 	if (bob == bob->bob_parent->bob_children)
 	    bob->bob_parent->bob_children = bob->bob_next;
     }
-    else bug("plusbob_dodetach 2");
+    else loudbug_bug("plusbob_dodetach 2");
 }
 
 /* To be called from derived constructors.
@@ -179,7 +179,7 @@ void plusbob_release(t_plusbob *bob)
 	    if (bob->bob_refcount == 0)
 		plusbob_free(bob);
 	    else
-		bug("plusbob_release");
+		loudbug_bug("plusbob_release");
 	}
     }
 }
@@ -203,9 +203,9 @@ void plusbob_attach(t_plusbob *bob, t_plusbob *newparent)
 	    if (tp->tp_attachfn) (*tp->tp_attachfn)(bob);
     }
     else if (newparent)
-	bug("plusbob_attach 1");
+	loudbug_bug("plusbob_attach 1");
     else
-	bug("plusbob_attach 2");
+	loudbug_bug("plusbob_attach 2");
 }
 
 t_plusbob *plusbob_getnext(t_plusbob *bob)
@@ -272,7 +272,7 @@ int plustag_validtype(t_symbol *tag, t_symbol *tname, t_pd *caller)
 	}
     }
     else if (plustag_isvalid(tag, caller))  /* print the error there */
-	bug("plustag_validtype");
+	loudbug_bug("plustag_validtype");
     return (0);
 }
 
@@ -294,7 +294,7 @@ int plustag_validroot(t_symbol *tag, t_symbol *rname, t_pd *caller)
 	}
     }
     else if (plustag_isvalid(tag, caller))  /* print the error there */
-	bug("plustag_validroot");
+	loudbug_bug("plustag_validroot");
     return (0);
 }
 
@@ -303,7 +303,7 @@ t_symbol *plustag_typename(t_symbol *tag, int validate, t_pd *caller)
     if (!validate || tag->s_name == plustag_name)
 	return (((t_plusbob *)tag)->bob_type->tp_name);
     else if (plustag_isvalid(tag, caller))  /* print the error there */
-	bug("plustag_typename");
+	loudbug_bug("plustag_typename");
     return (0);
 }
 
@@ -312,7 +312,7 @@ t_symbol *plustag_rootname(t_symbol *tag, int validate, t_pd *caller)
     if (!validate || tag->s_name == plustag_name)
 	return (((t_plusbob *)tag)->bob_root->tp_name);
     else if (plustag_isvalid(tag, caller))  /* print the error there */
-	bug("plustag_rootname");
+	loudbug_bug("plustag_rootname");
     return (0);
 }
 
diff --git a/shared/toxy/scriptlet.c b/shared/toxy/scriptlet.c
index cd12f06..348d2c7 100644
--- a/shared/toxy/scriptlet.c
+++ b/shared/toxy/scriptlet.c
@@ -71,7 +71,7 @@ static t_canvas *scriptlet_canvasvalidate(t_scriptlet *sp, int visedonly)
 	    cv = sp->s_cv = sp->s_cvfn(sp->s_owner);
 	else
 	{
-	    bug("scriptlet_canvasvalidate");
+	    loudbug_bug("scriptlet_canvasvalidate");
 	    return (0);
 	}
 	if (cv && (!visedonly || glist_isvisible(cv)))
@@ -429,7 +429,7 @@ void scriptlet_prealloc(t_scriptlet *sp, int sz, int mayshrink)
 	if (sp->s_buffer != sp->s_bufini)
 	    freebytes(sp->s_buffer, sp->s_size * sizeof(*sp->s_buffer));
 	else
-	    bug("scriptlet_prealloc");
+	    loudbug_bug("scriptlet_prealloc");
 	sp->s_size = SCRIPTLET_INISIZE;
 	sp->s_buffer = sp->s_bufini;
     }
@@ -700,7 +700,7 @@ static int verslet_parse(t_verslet *vp, char *buf, int multiline)
 		    {
 			vp->v_package[plen] = 0;
 #ifdef SCRIPTLET_DEBUG
-			fprintf(stderr, "package \"%s\"\n", vp->v_package);
+			loudbug_post("package \"%s\"", vp->v_package);
 #endif
 			while (*ptr == ' ' || *ptr == '\t') ptr++;
 			if (*ptr >= '0' && *ptr <= '9')
@@ -718,8 +718,7 @@ static int verslet_parse(t_verslet *vp, char *buf, int multiline)
 			    {
 				vp->v_version[vlen] = 0;
 #ifdef SCRIPTLET_DEBUG
-				fprintf(stderr, "version \"%s\"\n",
-					vp->v_version);
+				loudbug_post("version \"%s\"", vp->v_version);
 #endif
 				return (1);
 			    }
@@ -921,7 +920,7 @@ int scriptlet_rcload(t_scriptlet *sp, t_pd *caller, char *rc, char *ext,
 		vp = verslet_new(sp->s_owner);
 		if (!verslet_parse(vp, builtin, 1))
 		{
-		    bug("scriptlet_rcload 1");
+		    loudbug_bug("scriptlet_rcload 1");
 		    verslet_free(vp);
 		    vp = 0;
 		}
@@ -934,7 +933,7 @@ int scriptlet_rcload(t_scriptlet *sp, t_pd *caller, char *rc, char *ext,
 	}
 	else
 	{
-	    bug("scriptlet_rcload 2");
+	    loudbug_bug("scriptlet_rcload 2");
 	    result = SCRIPTLET_NOFILE;
 	}
     }