cleanup includes

svn path=/trunk/externals/zexy/; revision=9112

11 files changed, 11 insertions, 25 deletions

diff --git a/src/a2l.c b/src/a2l.c
index aff11f7..a840f54 100644
--- a/src/a2l.c
+++ b/src/a2l.c
@@ -22,7 +22,9 @@
 
 /* ------------------------- a2l ------------------------------- */
 
-/* convert anythings to lists, pass through the rest */
+/* convert anythings to lists, pass through the rest 
+ * nowadays you can use [list] for this
+ */
 
 static t_class *a2l_class;
 
diff --git a/src/atoi.c b/src/atoi.c
index 09fa74e..6c14e30 100644
--- a/src/atoi.c
+++ b/src/atoi.c
@@ -17,11 +17,10 @@
 
 #include "zexy.h"
 #include <stdlib.h>
-#include <string.h>
 
 /*
  * atoi : ascii to integer
-*/
+ */
 
 /* atoi ::  ascii to integer */
 
diff --git a/src/list2lists.c b/src/list2lists.c
index 93972cd..a591172 100644
--- a/src/list2lists.c
+++ b/src/list2lists.c
@@ -18,7 +18,6 @@
 
 
 #include "zexy.h"
-#include <string.h>
 
 //#define DEBUG
 
diff --git a/src/list2symbol.c b/src/list2symbol.c
index 102c995..f1d318a 100644
--- a/src/list2symbol.c
+++ b/src/list2symbol.c
@@ -15,7 +15,6 @@
  ******************************************************/
 
 #include "zexy.h"
-#include <stdlib.h>
 #include <string.h>
 
 /*
diff --git a/src/lister.c b/src/lister.c
index d89c9cd..04ccc64 100644
--- a/src/lister.c
+++ b/src/lister.c
@@ -18,7 +18,6 @@
 
 
 #include "zexy.h"
-#include <string.h>
 
 #ifdef HAVE_ALLOCA_H
 # include <alloca.h>
diff --git a/src/listfind.c b/src/listfind.c
index 693181f..2bc3cf3 100644
--- a/src/listfind.c
+++ b/src/listfind.c
@@ -18,7 +18,6 @@
 
 
 #include "zexy.h"
-#include <string.h>
 
 //#define DEBUG
 
diff --git a/src/niagara.c b/src/niagara.c
index 20dddf8..0a2cdde 100644
--- a/src/niagara.c
+++ b/src/niagara.c
@@ -17,15 +17,14 @@
 /* 3108:forum::für::umläute:2000 */
 
 #include "zexy.h"
-#include <string.h>
-#include <memory.h>
-
 
 /* ------------------------- niagara ------------------------------- */
 
 /*
-divides a package into 2 sub-packages at a specified point
-like the niagara-falls, some water goes down to the left side, the rest to the right side, devided by the rock
+  divides a package into 2 sub-packages at a specified point
+  like the niagara-falls, some water goes down to the left side, the rest to the right side, devided by the rock
+
+  nowadays you can do this with [list split] (though this cannot handle negative indices)
 */
 
 static t_class *niagara_class;
diff --git a/src/packel.c b/src/packel.c
index f56f2c8..880d7c9 100644
--- a/src/packel.c
+++ b/src/packel.c
@@ -24,10 +24,6 @@
 */
 
 #include "zexy.h"
-#include <string.h>
-// do we need memory.h ?
-#include <memory.h>
-
 
 static t_class *packel_class;
 
@@ -107,8 +103,8 @@ static void packel_free(t_packel *x)
   }
 
   if(x->position)freebytes(x->position, x->count*sizeof(t_float));
-  if(x->x_inlet)   freebytes(x->x_inlet, x->count*sizeof(t_inlet*));
-  if(x->x_outlet)  freebytes(x->x_outlet, x->count*sizeof(t_outlet*));
+  if(x->x_inlet) freebytes(x->x_inlet, x->count*sizeof(t_inlet*));
+  if(x->x_outlet)freebytes(x->x_outlet, x->count*sizeof(t_outlet*));
 
 }
 
diff --git a/src/repack.c b/src/repack.c
index 826925a..9df34b6 100644
--- a/src/repack.c
+++ b/src/repack.c
@@ -24,8 +24,6 @@
 
 #include "zexy.h"
 #include <string.h>
-#include <memory.h>
-
 
 /* -------------------- repack ------------------------------ */
 
diff --git a/src/sfplay.c b/src/sfplay.c
index 74805f2..ff18e87 100644
--- a/src/sfplay.c
+++ b/src/sfplay.c
@@ -61,8 +61,6 @@ ritsch@iem.kug.ac.at */
 
 #include "zexy.h"
 
-/*#include "m_imp.h"*/
-
 #define DACBLKSIZE 64 /* in m_imp.h, but error if it is included it here*/
 
 #include <stdio.h>
diff --git a/src/unpack.c b/src/unpack.c
index aa520ec..4614856 100644
--- a/src/unpack.c
+++ b/src/unpack.c
@@ -18,11 +18,10 @@
 /* 2305:forum::für::umläute:2001 */
 
 #include "zexy.h"
-#include <string.h>
 
 /* ------------------------- zunpack ------------------------------- */
 
-/* convert anythings to lists, pass through the rest */
+/* like pack, but does no type-checking */
 
 static t_class *zunpack_class;
 
@@ -40,7 +39,6 @@ static void zunpack_list(t_zunpack *x, t_symbol *s, int argc, t_atom *argv)
   while(count--) {
     outlet_list(x->x_out[count], gensym("list"), 1, argv+count);
   }
-
 }
 
 static void zunpack_bang(t_zunpack *x)