converted to new library template and debianized

svn path=/trunk/externals/ekext/; revision=13835

3 files changed, 0 insertions, 465 deletions

diff --git a/polystat/makefile b/polystat/makefile
deleted file mode 100755
index efd8755..0000000
--- a/polystat/makefile
+++ /dev/null
@@ -1,105 +0,0 @@
-current:
-	echo make pd_linux, pd_nt, pd_irix5, pd_irix6 or pd_darwin, then make install
-
-clean: ; rm -f *.pd_* *.o
-
-# ----------------------- NT -----------------------
-
-pd_nt: polystat.dll
-
-INSTALL_PREFIX="C:\pd\extra"
-EXT=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)
-
-# ----------------------- IRIX 5.x -----------------------
-
-pd_irix5: polystat.pd_irix5
-
-INSTALL_PREFIX=/usr/local
-EXT=pd_irix5
-.SUFFIXES: .pd_irix5
-
-SGICFLAGS5 = -o32 -DPD -DUNIX -DIRIX -O2
-
-SGIINCLUDE =  -I/usr/local/include
-
-.c.pd_irix5:
-	cc $(SGICFLAGS5) $(SGIINCLUDE) -o $*.o -c $*.c
-	ld -elf -shared -rdata_shared -o $*.pd_irix5 $*.o
-	rm $*.o
-
-# ----------------------- IRIX 5.x -----------------------
-
-pd_irix6: polystat.pd_irix6
-
-INSTALL_PREFIX=/usr/local
-EXT=pd_irix6
-.SUFFIXES: .pd_irix6
-
-SGICFLAGS5 = -o32 -DPD -DUNIX -DIRIX -O2
-
-SGIINCLUDE =  -I/usr/local/include
-
-.c.pd_irix6:
-	cc $(SGICFLAGS5) $(SGIINCLUDE) -o $*.o -c $*.c
-	ld -elf -shared -rdata_shared -o $*.pd_irix6 $*.o
-	rm $*.o
-
-# ----------------------- LINUX i386 -----------------------
-
-pd_linux: polystat.pd_linux
-
-INSTALL_PREFIX=/usr/local
-EXT=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/usr/local/include
-
-.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: polystat.pd_darwin
-
-INSTALL_PREFIX=/usr/local
-EXT=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
-
-# ----------------------------------------------
-
-install::
-	install -d $(INSTALL_PREFIX)/lib/pd/extra
-#	install -m 644 *.$(EXT) $(INSTALL_PREFIX)/lib/pd/externs
-	install -m 644 polystat.$(EXT) $(INSTALL_PREFIX)/lib/pd/extra
-	install -m 644 *.pd $(INSTALL_PREFIX)/lib/pd/doc/5.reference
diff --git a/polystat/polystat-help.pd b/polystat/polystat-help.pd
deleted file mode 100644
index 187cf7d..0000000
--- a/polystat/polystat-help.pd
+++ /dev/null
@@ -1,92 +0,0 @@
-#N canvas 0 0 785 462 10;
-#X obj 76 256 polystat;
-#X floatatom 76 351 5 0 0 1 voice - -;
-#X floatatom 88 337 5 0 0 1 instances - -;
-#X floatatom 101 323 5 0 0 1 voices - -;
-#X floatatom 114 309 5 0 0 1 voice - -;
-#X obj 127 292 print map;
-#X text 195 309 with most instances;
-#X obj 76 206 + 7;
-#X obj 76 164 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
--1;
-#X floatatom 76 228 5 0 0 0 - - -;
-#X msg 213 184 clear \$1;
-#X floatatom 264 145 5 7 38 0 - - -;
-#X msg 213 162 8;
-#X msg 312 219 voices;
-#X msg 312 199 getmap;
-#X msg 312 239 clearall;
-#X msg 312 159 clear 12;
-#X obj 76 184 random 32;
-#X obj 26 142 metro 100;
-#X obj 26 123 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
-1;
-#X obj 247 162 f;
-#X obj 247 143 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
--1 -1;
-#X msg 312 179 print;
-#X text 360 199 outputs a list of the instances of voices 0 to HIGHEST
-;
-#X text 353 180 some stats;
-#X msg 340 323 \$1;
-#X text 374 239 resets the object;
-#X text 374 159 clears a specific voice;
-#X obj 26 26 polystat;
-#X text 88 26 outputs statistics about voice usage. See also;
-#X obj 416 24 polymap;
-#X obj 473 24 sieve;
-#X text 360 220 outputs a list of all the voices used;
-#X text 246 128 clear voice with most instances;
-#X text 202 53 most stealing: voice with most instances set to new
-value when another voice's instances are equal;
-#X text 201 84 first-past-the-post: voice with most instances only
-updated when another voice's instances exceed;
-#X text 218 144 V;
-#X text 218 133 |;
-#X text 218 125 |;
-#X text 217 113 clear most recent voice;
-#X obj 26 79 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
--1;
-#X msg 26 97 1;
-#X msg 49 97 0;
-#X obj 26 59 loadbang;
-#X obj 49 121 pipe 2000;
-#X msg 151 145 set \$1;
-#X msg 150 57 mode 0;
-#X msg 150 87 mode 1;
-#X obj 515 24 maskxor;
-#X text 44 389 Polyphony control objects by Ed Kelly \, November 2006
-;
-#X connect 0 0 1 0;
-#X connect 0 1 2 0;
-#X connect 0 2 3 0;
-#X connect 0 3 4 0;
-#X connect 0 4 5 0;
-#X connect 4 0 25 0;
-#X connect 7 0 9 0;
-#X connect 7 0 45 0;
-#X connect 8 0 17 0;
-#X connect 9 0 0 0;
-#X connect 10 0 0 0;
-#X connect 11 0 20 1;
-#X connect 12 0 10 0;
-#X connect 13 0 0 0;
-#X connect 14 0 0 0;
-#X connect 15 0 0 0;
-#X connect 16 0 0 0;
-#X connect 17 0 7 0;
-#X connect 18 0 8 0;
-#X connect 19 0 18 0;
-#X connect 20 0 10 0;
-#X connect 21 0 20 0;
-#X connect 22 0 0 0;
-#X connect 25 0 11 0;
-#X connect 40 0 41 0;
-#X connect 40 0 42 0;
-#X connect 41 0 19 0;
-#X connect 42 0 44 0;
-#X connect 43 0 40 0;
-#X connect 44 0 19 0;
-#X connect 45 0 12 0;
-#X connect 46 0 0 0;
-#X connect 47 0 0 0;
diff --git a/polystat/polystat.c b/polystat/polystat.c
deleted file mode 100644
index d32079b..0000000
--- a/polystat/polystat.c
+++ /dev/null
@@ -1,268 +0,0 @@
-#include "m_pd.h"
-#include <math.h>
-#include <string.h>
-#define MAXENTRIES 512
-#define LASTENTRY 511
-
-static t_class *polystat_class;
-
-typedef struct _map
-{
-  t_atom map[MAXENTRIES];
-  t_atom maxlist[MAXENTRIES];
-  t_atom outlist[MAXENTRIES];
-} t_map;
-
-typedef struct _polystat
-{
-  t_object x_obj;
-  t_map x_map;
-  t_int voices, max, maxval, maxindex, maxflag, maxcount, highest, mode;
-  t_outlet *voice, *value, *vars, *maxvox, *mapped;
-} t_polystat;
-
-void polystat_float(t_polystat *x, t_floatarg fin)
-{
-  int voice = (int)fin;
-  int inst;
-  int maxindex = (int)x->maxindex + 1;
-  if(voice >= 0 && voice < MAXENTRIES)
-    {
-      int instances = atom_getfloatarg(voice, MAXENTRIES, x->x_map.map);
-      if(instances == 0)x->voices++;
-      inst = instances + 1;
-      SETFLOAT(&x->x_map.map[voice], inst);
-      if(x->mode == 0)
-	{
-	  if(inst >= x->max && voice != x->maxval)
-	    {
-	      x->maxflag = x->maxcount >= MAXENTRIES ? 1 : x->maxflag == 1 ? 1 : 0;
-	      x->maxcount += 1;
-	      x->maxcount = x->maxcount > MAXENTRIES ? MAXENTRIES : x->maxcount; 
-	      x->maxindex = maxindex % MAXENTRIES;
-	      SETFLOAT(&x->x_map.maxlist[x->maxindex], voice);
-	      x->maxval = voice;
-	      x->max = inst;
-	      outlet_float(x->maxvox, voice);
-	    }
-	  else if(inst >= x->max && voice == x->maxval)
-	    {
-	      x->max = inst;
-	      outlet_float(x->maxvox, voice);
-	    }
-	}
-      else if(x->mode != 0)
-	{
-	  if(inst > x->max && voice != x->maxval)
-	    {
-	      x->maxflag = x->maxcount >= MAXENTRIES ? 1 : x->maxflag == 1 ? 1 : 0;
-	      x->maxcount += 1;
-	      x->maxcount = x->maxcount > MAXENTRIES ? MAXENTRIES : x->maxcount; 
-	      x->maxindex = (float)(maxindex % MAXENTRIES);
-	      SETFLOAT(&x->x_map.maxlist[x->maxindex], voice);
-	      x->maxval = voice;
-	      x->max = inst;
-	      outlet_float(x->maxvox, voice);
-	    }
-	  else if(inst > x->max && voice == x->maxval)
-	    {
-	      x->max = inst;
-	      outlet_float(x->maxvox, voice);
-	    }
-	}
-      x->highest = voice > x->highest ? voice : x->highest;
-      outlet_float(x->vars, x->voices);
-      outlet_float(x->value, inst);
-      outlet_float(x->voice, voice);
-    }
-}
-
-void polystat_clear(t_polystat *x, t_floatarg fin)
-{
-  int inst = (int)fin;
-  int indexed = (int)(x->maxindex+(MAXENTRIES*x->maxflag));
-  int modindex = 0;
-  int counted = 0;
-  float current = atom_getfloatarg(inst, MAXENTRIES, x->x_map.map);
-  float voice;
-  voice = 0;
-  if(x->voices > 0 && current > 0)
-    {
-      x->voices--;
-      SETFLOAT(&x->x_map.map[inst], 0);
-      current = 0;
-      if(current == 0 && x->maxcount > 0)
-	{
-	  indexed--;
-	  x->maxcount--;
-	  modindex = (indexed+MAXENTRIES) % MAXENTRIES;
-	  voice = atom_getfloatarg(modindex, MAXENTRIES, x->x_map.maxlist);
-	  current = atom_getfloatarg(voice, MAXENTRIES, x->x_map.map);
-	}
-      if(x->maxcount == 0 || current == 0)
-	{
-	  x->max = 0;
-	  x->maxval = 0;
-	  x->maxindex = 0;
-	}
-      else if(x->maxcount > 0 || current > 0)
-	{
-	  x->max = current;
-	  x->maxval = voice;
-	  x->maxindex = modindex;
-	}
-    }
-  outlet_float(x->maxvox, x->maxval);
-  outlet_float(x->vars, x->voices);
-  outlet_float(x->value, x->max);
-}
-
-void polystat_print(t_polystat *x, t_symbol *s)
-{
-  post("most_instances = %d at voice %d, voices = %d, highest_voice = %d", x->max, x->maxval, x->voices, x->highest);
-}
-
-void polystat_get(t_polystat *x, t_floatarg fin)
-{
-  int inst = (int)fin;
-  float voice, instances;
-  voice = instances = 0;
-  if(x->voices>0 && inst>=0 && inst<MAXENTRIES)
-    {
-      instances = atom_getfloatarg(inst, MAXENTRIES, x->x_map.map);
-      voice = inst;
-    }
-  if(instances>0)
-    {
-      outlet_float(x->value, instances);
-      outlet_float(x->voice, voice);
-    }
-}
-
-void polystat_clearall(t_polystat *x)
-{
-  int i;
-  for(i=0;i<MAXENTRIES;i++)
-    {
-      SETFLOAT(&x->x_map.map[i],0);
-      SETFLOAT(&x->x_map.maxlist[i],0);
-    }
-  x->voices = x->max = x->maxval = x->maxindex = x->highest = x->maxcount = 0;
-  outlet_float(x->vars, x->voices);
-}
-
-void polystat_getmap(t_polystat *x, t_symbol *s) //output map. terminate map at highest voice.
-{
-  if(x->voices>0)
-    {
-      outlet_list(x->mapped, gensym("list"), x->highest+1, x->x_map.map);
-    }
-}
-
-void polystat_setmap(t_polystat *x, t_symbol *s, int argc, t_atom *argv)
-{
-  int i;
-  float arg, max, maxval, high;
-  max = maxval = high = 0;
-  for(i=0;i<argc;i++) 
-    {
-      arg = atom_getfloat(argv+i);
-      if(arg != 0)
-	{
-	  if(x->mode==0)
-	    {
-	      if(arg>=maxval)
-		{
-		  maxval = arg;
-		  max = i;
-		}
-	    }
-	  else if(x->mode!=0)
-	    {
-	      if(arg>maxval)
-		{
-		  maxval = arg;
-		  max = i;
-		}
-	    }
-	  x->highest = i;
-	  SETFLOAT(&x->x_map.map[i], arg);
-	  SETFLOAT(&x->x_map.maxlist[i], 0);
-	}
-    }
-  x->max = max;
-  x->maxval = maxval;
-  SETFLOAT(&x->x_map.maxlist[0], max);
-}
-
-void polystat_bang(t_polystat *x, t_symbol *s)
-{
-  outlet_float(x->vars, x->voices);
-  outlet_float(x->value, x->maxval);
-  outlet_float(x->voice, x->max);
-}
-
-void polystat_voices(t_polystat *x, t_symbol *s) //list all voices 
-{
-  int i, mindex, current;
-  mindex=0;
-  for(i=0;i<(x->highest+1);i++)
-    {
-      current = atom_getfloatarg(i, MAXENTRIES, x->x_map.map);
-      if(current>0)
-	{
-	  SETFLOAT(&x->x_map.outlist[mindex],(float)i);
-	  mindex++;
-	}
-    }
-  outlet_list(x->mapped, gensym("list"), x->voices, x->x_map.outlist);
-}
-
-void polystat_mode(t_polystat *x, t_floatarg fmode)
-{
-  x->mode = fmode;
-}
-
-void *polystat_new(t_floatarg f) 
-{
-  t_polystat *x = (t_polystat *)pd_new(polystat_class);
-  x->mode = f;
-  x->max = x->maxval = x->voices = x->maxindex = x->maxcount = x->highest = 0;
-  //memset(x->x_map.map, 0, MAXENTRIES);
-  //memset(x->x_map.nomap, 1, MAXENTRIES);
-  int i;
-  for(i=0;i<MAXENTRIES;i++) 
-    {
-      SETFLOAT(x->x_map.map+i, 0);
-      SETFLOAT(x->x_map.maxlist+i, 0);
-    }
-  x->voice = outlet_new(&x->x_obj, &s_float);
-  x->value = outlet_new(&x->x_obj, &s_float);
-  x->vars = outlet_new(&x->x_obj, &s_float);
-  x->maxvox = outlet_new(&x->x_obj, &s_float);
-  x->mapped = outlet_new(&x->x_obj, &s_list);
-  return (void *)x;
-}
-
-void polystat_setup(void) 
-{
-
-  polystat_class = class_new(gensym("polystat"),
-  (t_newmethod)polystat_new,
-  0, sizeof(t_polystat),
-  0, A_DEFFLOAT, 0);
-  post("|^^^^^^^^^^^^polystat^^^^^^^^^^^^|");
-  post("|->^^^^polyphony statistics^^^^<-|");
-  post("|^^^^^^^^Edward Kelly 2006^^^^^^^|");
-
-  class_addfloat(polystat_class, polystat_float);
-  class_addmethod(polystat_class, (t_method)polystat_clear, gensym("clear"), A_DEFFLOAT, 0);
-  class_addmethod(polystat_class, (t_method)polystat_get, gensym("get"), A_DEFFLOAT, 0);
-  class_addmethod(polystat_class, (t_method)polystat_clearall, gensym("clearall"), A_DEFFLOAT, 0);
-  class_addmethod(polystat_class, (t_method)polystat_getmap, gensym("getmap"), A_DEFFLOAT, 0);
-  class_addmethod(polystat_class, (t_method)polystat_setmap, gensym("setmap"), A_GIMME, 0);
-  class_addmethod(polystat_class, (t_method)polystat_voices, gensym("voices"), A_DEFFLOAT, 0);
-  class_addmethod(polystat_class, (t_method)polystat_mode, gensym("mode"), A_DEFFLOAT, 0);
-  class_addmethod(polystat_class, (t_method)polystat_print, gensym("print"), A_DEFFLOAT, 0);
-  class_addbang(polystat_class, (t_method)polystat_bang);
-}