svn path=/trunk/; revision=12907

14 files changed, 0 insertions, 433 deletions

diff --git a/desiredata/doc/6.externs/0.README.txt b/desiredata/doc/6.externs/0.README.txt
deleted file mode 100644
index 3b130116..00000000
--- a/desiredata/doc/6.externs/0.README.txt
+++ /dev/null
@@ -1,9 +0,0 @@
-EXTERNAL OBJECTS in Pd.
-
-Here are the sources for three simple external objects in Pd.
-To compile, type "make pd_linux", "nmake pd_nt", "make pd_irix5" or "make
-pd_irix6".
-
-The objects "foo1" and "foo2" are intended as very simple control objects, and
-"dspobj" is a tilde object.
-
diff --git a/desiredata/doc/6.externs/dspobj~.c b/desiredata/doc/6.externs/dspobj~.c
deleted file mode 100644
index 5c3fa86b..00000000
--- a/desiredata/doc/6.externs/dspobj~.c
+++ /dev/null
@@ -1,67 +0,0 @@
-#include "m_pd.h"
-#ifdef NT
-#pragma warning( disable : 4244 )
-#pragma warning( disable : 4305 )
-#endif
-
-/* ------------------------ dspobj~ ----------------------------- */
-
-/* tilde object to take absolute value. */
-
-static t_class *dspobj_class;
-
-typedef struct _dspobj
-{
-    t_object x_obj; 	/* obligatory header */
-    t_float x_f;    	/* place to hold inlet's value if it's set by message */
-} t_dspobj;
-
-    /* this is the actual performance routine which acts on the samples.
-    It's called with a single pointer "w" which is our location in the
-    DSP call list.  We return a new "w" which will point to the next item
-    after us.  Meanwhile, w[0] is just a pointer to dsp-perform itself
-    (no use to us), w[1] and w[2] are the input and output vector locations,
-    and w[3] is the number of points to calculate. */
-static t_int *dspobj_perform(t_int *w)
-{
-    t_float *in = (t_float *)(w[1]);
-    t_float *out = (t_float *)(w[2]);
-    int n = (int)(w[3]);
-    while (n--)
-    {
-    	float f = *(in++);
-	*out++ = (f > 0 ? f : -f);
-    }
-    return (w+4);
-}
-
-    /* called to start DSP.  Here we call Pd back to add our perform
-    routine to a linear callback list which Pd in turn calls to grind
-    out the samples. */
-static void dspobj_dsp(t_dspobj *x, t_signal **sp)
-{
-    dsp_add(dspobj_perform, 3, sp[0]->s_vec, sp[1]->s_vec, sp[0]->s_n);
-}
-
-static void *dspobj_new(void)
-{
-    t_dspobj *x = (t_dspobj *)pd_new(dspobj_class);
-    outlet_new(&x->x_obj, gensym("signal"));
-    x->x_f = 0;
-    return (x);
-}
-
-    /* this routine, which must have exactly this name (with the "~" replaced
-    by "_tilde) is called when the code is first loaded, and tells Pd how
-    to build the "class". */
-void dspobj_tilde_setup(void)
-{
-    dspobj_class = class_new(gensym("dspobj~"), (t_newmethod)dspobj_new, 0,
-    	sizeof(t_dspobj), 0, A_DEFFLOAT, 0);
-	    /* this is magic to declare that the leftmost, "main" inlet
-	    takes signals; other signal inlets are done differently... */
-    CLASS_MAINSIGNALIN(dspobj_class, t_dspobj, x_f);
-    	/* here we tell Pd about the "dsp" method, which is called back
-	when DSP is turned on. */
-    class_addmethod(dspobj_class, (t_method)dspobj_dsp, gensym("dsp"), 0);
-}
diff --git a/desiredata/doc/6.externs/makefile b/desiredata/doc/6.externs/makefile
deleted file mode 100644
index 8a5657fe..00000000
--- a/desiredata/doc/6.externs/makefile
+++ /dev/null
@@ -1,82 +0,0 @@
-current:
-	echo make pd_linux, pd_nt, pd_irix5, or pd_irix6
-
-clean: ; rm -f *.pd_linux *.o
-
-# ----------------------- NT -----------------------
-
-pd_nt: obj1.dll obj2.dll obj3.dll obj4.dll obj5.dll dspobj~.dll
-
-.SUFFIXES: .obj .dll
-
-PDNTCFLAGS = /W3 /WX /DNT /DPD /nologo
-VC="D:\Program Files\Microsoft Visual Studio\Vc98"
-
-PDNTINCLUDE = /I. /I\tcl\include /I..\..\src /I$(VC)\include
-
-PDNTLDIR = $(VC)\lib
-PDNTLIB = $(PDNTLDIR)\libc.lib \
-	$(PDNTLDIR)\oldnames.lib \
-	$(PDNTLDIR)\kernel32.lib \
-	..\..\bin\pd.lib 
-
-.c.dll:
-	cl $(PDNTCFLAGS) $(PDNTINCLUDE) /c $*.c
-	link /dll /export:$*_setup $*.obj $(PDNTLIB)
-
-# override explicitly for tilde objects like this:
-dspobj~.dll: dspobj~.c; 
-	cl $(PDNTCFLAGS) $(PDNTINCLUDE) /c $*.c
-	link /dll /export:dspobj_tilde_setup $*.obj $(PDNTLIB)
-
-# ----------------------- IRIX 5.x -----------------------
-
-pd_irix5: obj1.pd_irix5 obj2.pd_irix5 \
-    obj3.pd_irix5 obj4.pd_irix5 obj5.pd_irix5 dspobj~.pd_irix5
-
-.SUFFIXES: .pd_irix5
-
-SGICFLAGS5 = -o32 -DPD -DUNIX -DIRIX -O2
-
-
-SGIINCLUDE =  -I../../src/
-
-.c.pd_irix5:
-	cc $(SGICFLAGS5) $(SGIINCLUDE) -o $*.o -c $*.c
-	ld -elf -shared -rdata_shared -o $*.pd_irix5 $*.o
-	rm $*.o
-
-# ----------------------- LINUX i386 -----------------------
-
-pd_linux: obj1.pd_linux obj2.pd_linux obj3.pd_linux obj4.pd_linux \
-    obj5.pd_linux dspobj~.pd_linux
-
-.SUFFIXES: .pd_linux
-
-LINUXCFLAGS = -DPD -O2 -funroll-loops -fomit-frame-pointer \
-    -Wall -W -Wshadow -Wstrict-prototypes -Werror \
-    -Wno-unused -Wno-parentheses -Wno-switch
-
-LINUXINCLUDE =  -I../../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: obj1.pd_darwin obj2.pd_darwin \
-     obj3.pd_darwin obj4.pd_darwin obj5.pd_darwin dspobj~.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
-
diff --git a/desiredata/doc/6.externs/obj1.c b/desiredata/doc/6.externs/obj1.c
deleted file mode 100644
index 0618d646..00000000
--- a/desiredata/doc/6.externs/obj1.c
+++ /dev/null
@@ -1,47 +0,0 @@
-/* code for "obj1" pd class.  This takes two messages: floating-point
-numbers, and "rats", and just prints something out for each message. */
-
-#include "m_pd.h"
-
-    /* the data structure for each copy of "obj1".  In this case we
-    on;y need pd's obligatory header (of type t_object). */
-typedef struct obj1
-{
-  t_object x_ob;
-} t_obj1;
-
-    /* this is called back when obj1 gets a "float" message (i.e., a
-    number.) */
-void obj1_float(t_obj1 *x, t_floatarg f)
-{
-    post("obj1: %f", f);
-}
-
-    /* this is called when obj1 gets the message, "rats". */
-void obj1_rats(t_obj1 *x)
-{
-    post("obj1: rats");
-}
-
-    /* this is a pointer to the class for "obj1", which is created in the
-    "setup" routine below and used to create new ones in the "new" routine. */
-t_class *obj1_class;
-
-    /* this is called when a new "obj1" object is created. */
-void *obj1_new(void)
-{
-    t_obj1 *x = (t_obj1 *)pd_new(obj1_class);
-    post("obj1_new");
-    return (void *)x;
-}
-
-    /* this is called once at setup time, when this code is loaded into Pd. */
-void obj1_setup(void)
-{
-    post("obj1_setup");
-    obj1_class = class_new(gensym("obj1"), (t_newmethod)obj1_new, 0,
-    	sizeof(t_obj1), 0, 0);
-    class_addmethod(obj1_class, (t_method)obj1_rats, gensym("rats"), 0);
-    class_addfloat(obj1_class, obj1_float);
-}
-
diff --git a/desiredata/doc/6.externs/obj2.c b/desiredata/doc/6.externs/obj2.c
deleted file mode 100644
index 14cd134a..00000000
--- a/desiredata/doc/6.externs/obj2.c
+++ /dev/null
@@ -1,45 +0,0 @@
-/* code for the "obj2" pd class.  This one, in addition to the "obj1"
-code, has an inlet taking numbers.  */
-
-#include "m_pd.h"
- 
-typedef struct obj2
-{
-  t_object x_ob;
-} t_obj2;
-
-void obj2_float(t_obj2 *x, t_floatarg f)
-{
-    post("obj2: %f", f);
-}
-
-void obj2_rats(t_obj2 *x)
-{
-    post("obj2: rats");
-}
-
-void obj2_ft1(t_obj2 *x, t_floatarg g)
-{
-    post("ft1: %f", g);
-}
-
-t_class *obj2_class;
-
-void *obj2_new(void)
-{
-    t_obj2 *x = (t_obj2 *)pd_new(obj2_class);
-    inlet_new(&x->x_ob, &x->x_ob.ob_pd, gensym("float"), gensym("ft1"));
-    post("obj2_new");
-    return (void *)x;
-}
-
-void obj2_setup(void)
-{
-    post("obj2_setup");
-    obj2_class = class_new(gensym("obj2"), (t_newmethod)obj2_new,
-    	0, sizeof(t_obj2), 0, 0);
-    class_addmethod(obj2_class, (t_method)obj2_rats, gensym("rats"), 0);
-    class_addmethod(obj2_class, (t_method)obj2_ft1, gensym("ft1"), A_FLOAT, 0);
-    class_addfloat(obj2_class, obj2_float);
-}
-
diff --git a/desiredata/doc/6.externs/obj3.c b/desiredata/doc/6.externs/obj3.c
deleted file mode 100644
index 434fbb95..00000000
--- a/desiredata/doc/6.externs/obj3.c
+++ /dev/null
@@ -1,39 +0,0 @@
-/* code for the "obj3" pd class.  This adds an outlet and a state variable.  */
-
-#include "m_pd.h"
- 
-typedef struct obj3
-{
-  t_object x_ob;
-  t_outlet *x_outlet;
-  float x_value;
-} t_obj3;
-
-void obj3_float(t_obj3 *x, t_floatarg f)
-{
-    outlet_float(x->x_outlet, f + x->x_value);
-}
-
-void obj3_ft1(t_obj3 *x, t_floatarg g)
-{
-    x->x_value = g;
-}
-
-t_class *obj3_class;
-
-void *obj3_new(void)
-{
-    t_obj3 *x = (t_obj3 *)pd_new(obj3_class);
-    inlet_new(&x->x_ob, &x->x_ob.ob_pd, gensym("float"), gensym("ft1"));
-    x->x_outlet = outlet_new(&x->x_ob, gensym("float"));
-    return (void *)x;
-}
-
-void obj3_setup(void)
-{
-    obj3_class = class_new(gensym("obj3"), (t_newmethod)obj3_new,
-    	0, sizeof(t_obj3), 0, 0);
-    class_addmethod(obj3_class, (t_method)obj3_ft1, gensym("ft1"), A_FLOAT, 0);
-    class_addfloat(obj3_class, obj3_float);
-}
-
diff --git a/desiredata/doc/6.externs/obj4.c b/desiredata/doc/6.externs/obj4.c
deleted file mode 100644
index 3da2a84a..00000000
--- a/desiredata/doc/6.externs/obj4.c
+++ /dev/null
@@ -1,47 +0,0 @@
-/* code for the "obj4" pd class.  This adds a creation argument, of
-type "float".  */
-
-#include "m_pd.h"
- 
-typedef struct obj4
-{
-  t_object x_ob;
-  t_outlet *x_outlet;
-  float x_value;
-} t_obj4;
-
-void obj4_float(t_obj4 *x, t_floatarg f)
-{
-    outlet_float(x->x_outlet, x->x_value + f);
-}
-
-void obj4_ft1(t_obj4 *x, t_floatarg g)
-{
-    x->x_value = g;
-}
-
-t_class *obj4_class;
-
-    /* as requested by the new invocation of "class_new" below, the new
-    routine will be called with a "float" argument. */
-void *obj4_new(t_floatarg f)
-{
-    t_obj4 *x = (t_obj4 *)pd_new(obj4_class);
-    inlet_new(&x->x_ob, &x->x_ob.ob_pd, gensym("float"), gensym("ft1"));
-    x->x_outlet = outlet_new(&x->x_ob, gensym("float"));
-    	/* just stick the argument in the object structure for later. */
-    x->x_value = f;
-    return (void *)x;
-}
-
-void obj4_setup(void)
-{
-    	/* here we add "A_DEFFLOAT" to the (zero-terminated) list of arg
-	types we declare for a new object.  The value will be filled
-	in as 0 if not given in the object box.  */
-    obj4_class = class_new(gensym("obj4"), (t_newmethod)obj4_new,
-    	0, sizeof(t_obj4), 0, A_DEFFLOAT, 0);
-    class_addmethod(obj4_class, (t_method)obj4_ft1, gensym("ft1"), A_FLOAT, 0);
-    class_addfloat(obj4_class, obj4_float);
-}
-
diff --git a/desiredata/doc/6.externs/obj5.c b/desiredata/doc/6.externs/obj5.c
deleted file mode 100644
index 687c8e0a..00000000
--- a/desiredata/doc/6.externs/obj5.c
+++ /dev/null
@@ -1,54 +0,0 @@
-/* code for the "obj5" pd class.  This shows "gimme" arguments, which have
-variable arguments parsed by the routines (both "new" and "rats".) */
-
-#include "m_pd.h"
- 
-typedef struct obj5
-{
-  t_object x_ob;
-} t_obj5;
-
-    /* the "rats" method is called with the selector (just "rats" again)
-    and an array of the typed areguments, which are each either a number
-    or a symbol.  We just print them out. */
-void obj5_rats(t_obj5 *x, t_symbol *selector, int argcount, t_atom *argvec)
-{
-    int i;
-    post("rats: selector %s", selector->s_name);
-    for (i = 0; i < argcount; i++)
-    {
-    	if (argvec[i].a_type == A_FLOAT)
-	    post("float: %f", argvec[i].a_w.w_float);
-    	else if (argvec[i].a_type == A_SYMBOL)
-	    post("symbol: %s", argvec[i].a_w.w_symbol->s_name);
-    }
-}
-
-t_class *obj5_class;
-
-    /* same for the "new" (creation) routine, except that we don't have
-    "x" as an argument since we have to create "x" in this routine. */
-void *obj5_new(t_symbol *selector, int argcount, t_atom *argvec)
-{
-    t_obj5 *x = (t_obj5 *)pd_new(obj5_class);
-    int i;
-    post("new: selector %s", selector->s_name);
-    for (i = 0; i < argcount; i++)
-    {
-    	if (argvec[i].a_type == A_FLOAT)
-	    post("float: %f", argvec[i].a_w.w_float);
-    	else if (argvec[i].a_type == A_SYMBOL)
-	    post("symbol: %s", argvec[i].a_w.w_symbol->s_name);
-    }
-    return (void *)x;
-}
-
-void obj5_setup(void)
-{
-    	/* We specify "A_GIMME" as creation argument for both the creation
-	routine and the method (callback) for the "rats" message.  */
-    obj5_class = class_new(gensym("obj5"), (t_newmethod)obj5_new,
-    	0, sizeof(t_obj5), 0, A_GIMME, 0);
-    class_addmethod(obj5_class, (t_method)obj5_rats, gensym("rats"), A_GIMME, 0);
-}
-
diff --git a/desiredata/doc/6.externs/test-dspobj~.pd b/desiredata/doc/6.externs/test-dspobj~.pd
deleted file mode 100644
index 4d1030b3..00000000
--- a/desiredata/doc/6.externs/test-dspobj~.pd
+++ /dev/null
@@ -1,11 +0,0 @@
-#N canvas 0 0 335 239 10;
-#X obj 90 124 dspobj~;
-#X obj 90 96 sig~ 0;
-#X msg 106 149 bang;
-#X obj 90 177 print~;
-#X floatatom 89 71;
-#X msg 202 37 \; pd dsp 1;
-#X connect 0 0 3 0;
-#X connect 1 0 0 0;
-#X connect 2 0 3 0;
-#X connect 4 0 1 0;
diff --git a/desiredata/doc/6.externs/test-obj1.pd b/desiredata/doc/6.externs/test-obj1.pd
deleted file mode 100644
index f50ce449..00000000
--- a/desiredata/doc/6.externs/test-obj1.pd
+++ /dev/null
@@ -1,6 +0,0 @@
-#N canvas 68 38 317 151 12;
-#X msg 68 52 5;
-#X msg 100 52 rats;
-#X obj 67 90 obj1;
-#X connect 0 0 2 0;
-#X connect 1 0 2 0;
diff --git a/desiredata/doc/6.externs/test-obj2.pd b/desiredata/doc/6.externs/test-obj2.pd
deleted file mode 100644
index 1d3fd191..00000000
--- a/desiredata/doc/6.externs/test-obj2.pd
+++ /dev/null
@@ -1,8 +0,0 @@
-#N canvas 62 333 310 157 12;
-#X msg 109 51 rats;
-#X msg 157 52 7;
-#X msg 68 52 4;
-#X obj 68 90 obj2;
-#X connect 0 0 3 0;
-#X connect 1 0 3 1;
-#X connect 2 0 3 0;
diff --git a/desiredata/doc/6.externs/test-obj3.pd b/desiredata/doc/6.externs/test-obj3.pd
deleted file mode 100644
index 1072a4af..00000000
--- a/desiredata/doc/6.externs/test-obj3.pd
+++ /dev/null
@@ -1,8 +0,0 @@
-#N canvas 128 288 310 157 12;
-#X obj 68 91 obj3;
-#X floatatom 67 61 3 0 0 0 - - -;
-#X floatatom 108 59 3 0 0 0 - - -;
-#X floatatom 70 118 3 0 0 0 - - -;
-#X connect 0 0 3 0;
-#X connect 1 0 0 0;
-#X connect 2 0 0 1;
diff --git a/desiredata/doc/6.externs/test-obj4.pd b/desiredata/doc/6.externs/test-obj4.pd
deleted file mode 100644
index 619012f5..00000000
--- a/desiredata/doc/6.externs/test-obj4.pd
+++ /dev/null
@@ -1,6 +0,0 @@
-#N canvas 128 288 310 157 12;
-#X floatatom 67 61 3 0 0 0 - - -;
-#X floatatom 70 118 3 0 0 0 - - -;
-#X obj 68 91 obj4 34;
-#X connect 0 0 2 0;
-#X connect 2 0 1 0;
diff --git a/desiredata/doc/6.externs/test-obj5.pd b/desiredata/doc/6.externs/test-obj5.pd
deleted file mode 100644
index 550f34a1..00000000
--- a/desiredata/doc/6.externs/test-obj5.pd
+++ /dev/null
@@ -1,4 +0,0 @@
-#N canvas 128 288 310 157 12;
-#X obj 15 74 obj5 1 2 3 cis boom bah;
-#X msg 15 30 rats 4 5 6 tara tara boum boum;
-#X connect 1 0 0 0;