run with "-pedantic" and "-std=c99": removed warnings

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

20 files changed, 229 insertions, 228 deletions

diff --git a/src/dirac~.c b/src/dirac~.c
index 90d9dbb..7aae46d 100644
--- a/src/dirac~.c
+++ b/src/dirac~.c
@@ -74,15 +74,6 @@ static t_int *dirac_perform(t_int *w)
   return (w+4);
 }
 
-
-static t_int *dirac_perf8(t_int *w)
-{
-  t_dirac *x = (t_dirac *)(w[1]);
-  t_sample *out = (t_sample *)(w[2]);
-  int n = (int)(w[3]);
-	
-  t_int do_it = x->do_it;
-
 #ifndef __WIN32__
   /* LATER: investigate the occurence of zero_perf8() */
   /* it seems, like pd has the symbol zero_perf8(),
@@ -90,11 +81,21 @@ static t_int *dirac_perf8(t_int *w)
    * so linux can use it, but w32 not
    * have to tell miller about that
    */
-  zero_perf8(w+1);
+t_int *zero_perf8(t_int *w);
 #else
-  zero_perform(w+1);
+/* on w32 we have no access to this hidden function anyhow... */
+# define zero_perf8 zero_perform
 #endif
 
+static t_int *dirac_perf8(t_int *w)
+{
+  t_dirac *x = (t_dirac *)(w[1]);
+  t_sample *out = (t_sample *)(w[2]);
+  int n = (int)(w[3]);
+	
+  t_int do_it = x->do_it;
+  zero_perf8(w+1);
+
   if (do_it >= n)
     x->do_it -= n;
   else if(do_it >= 0)
diff --git a/src/freadln.c b/src/freadln.c
index fdad165..16e3aad 100644
--- a/src/freadln.c
+++ b/src/freadln.c
@@ -23,15 +23,12 @@
 
 #include <stdio.h>
 #include <string.h>
-//#include <stdarg.h>
-//#include <fcntl.h>
 
 #ifdef __WIN32__
 # include <io.h>
 # include <stdlib.h>
-//#else
-//# include <sys/types.h>
-//# include <unistd.h>
+#else
+# include <unistd.h>
 #endif
 
 #define MIN_FREADLN_LENGTH 10
@@ -85,17 +82,19 @@ static void freadln_open (t_freadln *x, t_symbol *s, t_symbol*type)
 
    freadln_close(x);
 
-/*   if(type!=gensym("cr")) {
+/*
+   if(type!=gensym("cr")) {
      pd_error(x, "currently only 'cr' type files are implemented!");
      return;
-   }*/
+   }
+*/
    if (type==gensym("cr"))
       strcpy(x->linebreak_chr,"\n");
    else
       strcpy(x->linebreak_chr,";\n");
       
 
-   // directory, filename, extension, dirresult, nameresult, unsigned int size, int bin
+   /* directory, filename, extension, dirresult, nameresult, unsigned int size, int bin */
    if ((fd=open_via_path(dirname,
 	       s->s_name,"", filenamebuf, &filenamebufptr, MAXPDSTRING,0)) < 0 ) {
       pd_error(x, "%s: failed to open %s", s->s_name, filenamebuf);
@@ -164,7 +163,7 @@ static void freadln_readline (t_freadln *x)
    t_symbol *s;
    int rewind_after;
 
-   if (x->x_file < 0) {
+   if (!x->x_file) {
       pd_error(x, "no file opened for reading");
       return;
    }
@@ -196,7 +195,6 @@ static void freadln_readline (t_freadln *x)
    if (linebreak_pos==-1) 
       linebreak_pos=items_read;
    x->x_textbuf[linebreak_pos-1]='\0';
-   //post("analyzing \"%s\"",x->x_textbuf);
    if (!(bbuf=binbuf_new())) {
       pd_error(x, "out of memory");
       freadln_close(x);
@@ -216,9 +214,10 @@ static void freadln_readline (t_freadln *x)
    else {
       outlet_list(x->x_message_outlet, atom_getsymbol(abuf), 0, abuf);
    }
-   // NOTE: the following line might be a problem in recursions
-   // and could be performed before to outlet_* as well,
-   // but(!) atom buffer abuf must be copied if doing so.
+   /* NOTE: the following line might be a problem in recursions
+    * and could be performed before to outlet_* as well,
+    * but(!) atom buffer abuf must be copied if doing so.
+    */
    binbuf_free(bbuf);
 
 }
diff --git a/src/fwriteln.c b/src/fwriteln.c
index 4c1d9fb..a6a9689 100644
--- a/src/fwriteln.c
+++ b/src/fwriteln.c
@@ -239,7 +239,6 @@ static void *fwriteln_new(t_symbol *s, int argc, t_atom *argv)
    strncat(x->format_string_afloats,width_str,2);
    strncat(x->format_string_afloats,precision_str,3);
    strncat(x->format_string_afloats,float_format,2);
-   //post("format string: \"%s\"\n",x->format_string_afloats);
    return (void *)x;
 }
 
diff --git a/src/index.c b/src/index.c
index 402f14f..d1d3045 100644
--- a/src/index.c
+++ b/src/index.c
@@ -104,9 +104,9 @@ static void index_symbol(t_index *x, t_symbol *s)
   int element;
   if ( (element = find_item(s, x->names, x->maxentries)+1) )
     outlet_float(x->x_obj.ob_outlet, (t_float)element);
-  else if (x->auto_mode) // not yet stored: add automatically
+  else if (x->auto_mode) /* not yet stored: add automatically */
     index_add(x, s, 0);
-  else outlet_float(x->x_obj.ob_outlet, 0.f); // not yet stored but do not add
+  else outlet_float(x->x_obj.ob_outlet, 0.f); /* not yet stored but do not add */
 }
 
 /* output the entry at a given index */
@@ -254,7 +254,6 @@ static void index_sort(t_index *x){
 
   while(step>1){
     int i = loops;
-    //step = (step % 2)?(step+1)/2:step/2;
     step+=step%2;
     step>>=1;
     loops+=2;
@@ -262,11 +261,11 @@ static void index_sort(t_index *x){
     while(i--) { /* there might be some optimization in here */
       for (n=0; n<(x->entries-step); n++) {
         int comp=strcmp(buf[n]->s_name,buf[n+step]->s_name);
-	if (comp>0) { // compare STRINGS not SYMBOLS
-	  t_symbol*s_tmp = buf[n];
-	  buf[n]        = buf[n+step];
-	  buf[n+step]   = s_tmp;
-	}
+        if (comp>0) { /* compare STRINGS not SYMBOLS */
+          t_symbol*s_tmp = buf[n];
+          buf[n]        = buf[n+step];
+          buf[n+step]   = s_tmp;
+        }
       }
     }
   }
@@ -325,25 +324,27 @@ static void index_free(t_index *x)
 
 static void index_helper(t_index *x)
 {
-  ZEXY_USEVAR(x);
-  post("\n%c index :: index symbols to indices", HEARTSYMBOL);
-  post("<symbol>             : look up the <symbol> in the index and return it's index\n"
-       "\n<int>                : look up the element at index <int> in the index"
-       "\n'add <symbol>'       : add a new symbol to the index-map"
-       "\n'add <symbol> <int>' : add a new symbol at the index <int>"
-       "\n'delete <symbol>'    : delete a symbol from the index-map"
-       "\n'delete <int>'       : delete the entry at index <int> from the index-map"
-       "\n'reset'              : delete the whole index-map"
-       "\n'bang'               : return the number of entries in the index-map"
-       "\n'dump'               : dump each entry in the format \"list <symbol> <index>\""
-       "\n'compact'            : remove holes in the index-map");
-  post("\n'sort'               : alphabetically sort the entries"
-       "\n'auto <1/0>          : if auto is 1 and a yet unknown symbol is looked up it is\n\t\t\t automatically added to the index-map"
-       "\n'resize <1/0>        : if resize is 1 (default), the index-map is resized\n\t\t\t automatically if needed"
-       "\n'help'               : view this"
-       "\noutlet : <n>         : index of the <symbol>"
-       "\n         <symbol>    : entry at <index>");
-  post("\ncreation:\"index [<maxelements> [<auto>]]\": creates a <maxelements> sized index");
+  endpost();
+  post("%c index :: index symbols to indices", HEARTSYMBOL);
+  post("<symbol>             : look up the <symbol> in the index and return it's index");
+  post("<int>                : look up the element at index <int> in the index");
+  post("'add <symbol>'       : add a new symbol to the index-map");
+  post("'add <symbol> <int>' : add a new symbol at the index <int>");
+  post("'delete <symbol>'    : delete a symbol from the index-map");
+  post("'delete <int>'       : delete the entry at index <int> from the index-map");
+  post("'reset'              : delete the whole index-map");
+  post("'bang'               : return the number of entries in the index-map");
+  post("'dump'               : dump each entry in the format \"list <symbol> <index>\"");
+  post("'compact'            : remove holes in the index-map");
+  endpost();
+  post("'sort'               : alphabetically sort the entries");
+  post("'auto <1/0>          : if auto is 1 and a yet unknown symbol is looked up it is\n\t\t\t automatically added to the index-map");
+  post("'resize <1/0>        : if resize is 1 (default), the index-map is resized\n\t\t\t automatically if needed");
+  post("'help'               : view this");
+  post("outlet : <n>         : index of the <symbol>");
+  post("         <symbol>    : entry at <index>");
+  endpost();
+  post("creation:\"index [<maxelements> [<auto>]]\": creates a <maxelements> sized index");
 }
 
 void index_setup(void)
@@ -356,7 +357,7 @@ void index_setup(void)
 
   class_addmethod(index_class, (t_method)index_reset,  gensym("reset"), 0);
   class_addmethod(index_class, (t_method)index_delete, gensym("delete"), A_GIMME, 0);
-  //  class_addmethod(index_class, (t_method)index_add,	 gensym("add"), A_SYMBOL, 0);
+  /*  class_addmethod(index_class, (t_method)index_add,	 gensym("add"), A_SYMBOL, 0); */
   class_addmethod(index_class, (t_method)index_add,	 gensym("add"), A_SYMBOL, A_DEFFLOAT, 0);
 
   class_addmethod(index_class, (t_method)index_auto,	 gensym("auto"), A_FLOAT, 0);
diff --git a/src/length.c b/src/length.c
index f39cbe8..86bf86d 100644
--- a/src/length.c
+++ b/src/length.c
@@ -51,7 +51,6 @@ void length_setup(void)
 
   class_addlist(length_class, (t_method)length_list);
   class_addanything(length_class, (t_method)length_any);
-  //  class_addbang(length_class, (t_method)length_bang);
 
   zexy_register("length");
 }
diff --git a/src/limiter~.c b/src/limiter~.c
index ef2e039..a0040f6 100644
--- a/src/limiter~.c
+++ b/src/limiter~.c
@@ -56,21 +56,24 @@
 #define TABLESIZE 512 /* compressor table */
 
 /* ------------------------------------------------------------------------------------ */
-// first define the structs...
+/* first define the structs... */
 
 static t_class *limiter_class;
 
 typedef struct _limctl
-{		// variables changed by user
-  t_float limit, hold_samples, change_of_amplification;
+{		
+  /* variables changed by user */
+  t_float limit;
+  t_float hold_samples;
+  t_float change_of_amplification;
 } t_limctl;
 
 typedef struct _cmpctl
 {
-  t_float treshold, ratio;		// uclimit is the very same is the limiter1-limit (decalculated relative to our treshold)
-  t_float uclimit, climit_inverse;	// climit == compressed limit (uclimit == uncompressed limit)
+  t_float treshold, ratio;		/* uclimit is the very same is the limiter1-limit (decalculated relative to our treshold) */
+  t_float uclimit, climit_inverse;	/* climit == compressed limit (uclimit == uncompressed limit) */
 
-  t_float limiter_limit;		// start limiting (stop compressing); == tresh/limit;
+  t_float limiter_limit;		/* start limiting (stop compressing); == tresh/limit; */
 
   t_float treshdB, oneminusratio;
 } t_cmpctl;
@@ -87,8 +90,7 @@ typedef struct _limiter
 
   int		number_of_inlets, s_n;
 
-  // variables changed by process
-
+  /* variables changed by process */
   t_sample	amplification;
   t_float	samples_left, still_left;
 
@@ -97,9 +99,10 @@ typedef struct _limiter
   t_limctl	*val1, *val2;
   t_cmpctl	*cmp;
 
-  // note :	limit is not the same for val1 & val2 :
-  //			at val1 it is the limit of the INPUT_VALUE
-  //			at val2 it is the limit for the AMPLIFICATION (in fact it is abs_limit1/abs_limit2)
+  /* note :	limit is not the same for val1 & val2 :
+   *			at val1 it is the limit of the INPUT_VALUE
+   *			at val2 it is the limit for the AMPLIFICATION (in fact it is abs_limit1/abs_limit2)
+   */
 
   t_inbuf*	in;
   int		buf_size;
@@ -107,13 +110,14 @@ typedef struct _limiter
 } t_limiter;
 
 /* ------------------------------------------------------------------------------------ */
-// then do the message - thing
+/* then do the message - thing */
 
-// do the user settings
+/* do the user settings */
 
-// calcs
+/* calcs */
 static t_float calc_holdsamples(t_float htime, int buf)
-{	// hold_time must be greater than buffer_time to make sure that any peak_sample is amplified with its own factor
+{	
+  /* hold_time must be greater than buffer_time to make sure that any peak_sample is amplified with its own factor */
   t_float min_hold = buf / sys_getsr();
   return (0.001 * sys_getsr() * ((htime > min_hold)?htime:((min_hold > 50)?min_hold:50)));
 }
@@ -135,7 +139,7 @@ static void set_uclimit(t_limiter *x)
   c->oneminusratio = 1. - ratio;
 }
 
-// settings
+/* settings */
 
 static void set_treshold(t_limiter *x, t_float treshold)
 {
@@ -174,7 +178,6 @@ static void set_mode(t_limiter *x, t_float mode)
     x->mode = LIMIT0;
     break;
   }
-  //  post("mode set to %d", x->mode);
 }
 
 static void set_LIMIT(t_limiter *x)
@@ -193,7 +196,8 @@ static void set_COMPRESS(t_limiter *x)
 }
 
 static void set_bufsize(t_limiter *x, int size)
-{ // this is really unneeded...and for historical reasons only
+{ 
+  /* this is really unneeded...and for historical reasons only */
   if (size < BUFSIZE) size = BUFSIZE;
   x->buf_size = size + XTRASAMPS;
 }
@@ -218,8 +222,8 @@ static void set_limits(t_limiter *x, t_floatarg limit1, t_floatarg limit2)
 
   if (lim2 < lim1)
     {
-      lim2 = 2*lim1;	// this is to prevent lim2 (which should trigger the FAST regulation)
-      x->mode = 0;	// to underrun the SLOW regulation; this would cause distortion
+      lim2 = 2*lim1;	/* this is to prevent lim2 (which should trigger the FAST regulation) */
+      x->mode = 0;	/* to underrun the SLOW regulation; this would cause distortion */
     }
 
   x->val1->limit = lim1;
@@ -276,7 +280,7 @@ static void reset(t_limiter *x)
   x->amplification = 1.;
 }
 
-// verbose
+/* verbose */
 static void status(t_limiter *x)
 {
   t_limctl *v1 = x->val1;
@@ -351,7 +355,7 @@ static void limiter_tilde_helper(t_limiter *x)
 
 
 /* ------------------------------------------------------------------------------------ */
-// now do the dsp - thing							        //
+/* now do the dsp - thing							                                                  */
 /* ------------------------------------------------------------------------------------ */
 
 static t_int *oversampling_maxima(t_int *w)
@@ -443,9 +447,9 @@ static t_int *limiter_perform(t_int *w)
   t_limctl *v2	= (t_limctl *)(x->val2);
   t_cmpctl *c     = (t_cmpctl *)(x->cmp);
 
-  // now let's make things a little bit faster
+  /* now let's make things a little bit faster */
 
-  // these must not be changed by process
+  /* these MUST NOT be changed by process */
   const t_float limit		= v1->limit;
   const t_float holdlong	= v1->hold_samples;
   const t_float coa_long	= v1->change_of_amplification;
@@ -460,12 +464,12 @@ static t_int *limiter_perform(t_int *w)
 
   t_float oneminusratio = c->oneminusratio;
 
-  // these will be changed by process
+  /* these will be changed by process */
   t_float amp				= x->amplification;
   t_float samplesleft		= x->samples_left;
   t_float stillleft		= x->still_left;
 
-  // an intern variable...
+  /* an intern variable... */
   t_float max_val;
 	
   switch (x->mode) {
@@ -474,7 +478,7 @@ static t_int *limiter_perform(t_int *w)
       {
 	max_val = *in;
 
-	// the MAIN routine for the 1-treshold-limiter
+	/* the MAIN routine for the 1-treshold-limiter */
 
 	if ((max_val * amp) > limit)
 	  {
@@ -499,7 +503,7 @@ static t_int *limiter_perform(t_int *w)
     while (n--)
       {
 	max_val = *in;
-	// the main routine 2
+	/* the main routine 2 */
 
 	if ((max_val * amp) > limit)
 	  {
@@ -538,7 +542,7 @@ static t_int *limiter_perform(t_int *w)
       {
 	max_val = *in;
 
-	// the MAIN routine for the compressor (very similar to the 1-treshold-limiter)
+	/* the MAIN routine for the compressor (very similar to the 1-treshold-limiter) */
 
 	if (max_val * amp > tresh) {
 	  amp = tresh / max_val;
@@ -548,9 +552,9 @@ static t_int *limiter_perform(t_int *w)
 	  else if ((amp *= coa_long) > 1) amp = 1;
 
 	if (amp < 1.)
-	  if (amp > uclimit)  // amp is still UnCompressed  uclimit==limitIN/tresh;
+	  if (amp > uclimit)  /* amp is still UnCompressed  uclimit==limitIN/tresh; */
 	    *out++ = pow(amp, oneminusratio);
-	  else *out++ = amp * climit_inv; // amp must fit for limiting : amp(new) = limit/maxval; = amp(old)*limitOUT/tresh;
+	  else *out++ = amp * climit_inv; /* amp must fit for limiting : amp(new) = limit/maxval; = amp(old)*limitOUT/tresh; */
 	else *out++ = 1.;
 
 	*in++ = 0.;
@@ -561,7 +565,7 @@ static t_int *limiter_perform(t_int *w)
     break;
   }
 
-  // now return the goodies
+  /* now return the goodies */
   x->amplification	= amp;
   x->samples_left		= samplesleft;
 
@@ -592,7 +596,7 @@ static void limiter_dsp(t_limiter *x, t_signal **sp)
 
 
 /* ------------------------------------------------------------------------------------ */
-// finally do the creation - things
+/* finally do the creation - things */
 
 static void *limiter_new(t_symbol *s, int argc, t_atom *argv)
 {
diff --git a/src/list2lists.c b/src/list2lists.c
index a591172..d181bf8 100644
--- a/src/list2lists.c
+++ b/src/list2lists.c
@@ -19,7 +19,9 @@
 
 #include "zexy.h"
 
-//#define DEBUG
+#if 0
+# define DEBUG
+#endif
 
 #ifdef DEBUG
 # define DEBUGFUN(x) x
diff --git a/src/listfind.c b/src/listfind.c
index 2bc3cf3..e362bc1 100644
--- a/src/listfind.c
+++ b/src/listfind.c
@@ -19,7 +19,9 @@
 
 #include "zexy.h"
 
-//#define DEBUG
+#if 0
+# define DEBUG
+#endif
 
 #ifdef DEBUG
 # define DEBUGFUN(x) x
@@ -82,7 +84,7 @@ static int list_equals(int count, t_atom*a1, t_atom*a2) {
   for(i=0; i<count; i++, a1++, a2++) {
     if(a1->a_type!=a2->a_type) 
       return 0;
-    if(a1->a_w.w_symbol!=a2->a_w.w_symbol) // is it that simple?
+    if(a1->a_w.w_symbol!=a2->a_w.w_symbol) /* is it that simple? */
       return 0;
   }
   return 1;
@@ -124,7 +126,7 @@ static void listfind_doit(t_outlet*out, int longcount, t_atom*longlist, int patt
     count++;
 
     DEBUGFUN(post("new offset=%d", offset));
-    offset++; // proceed to the next element
+    offset++; /* proceed to the next element */
   }
 
   DEBUGFUN(post("got %d results", count));
diff --git a/src/lpt.c b/src/lpt.c
index 42d986f..d8c49bd 100644
--- a/src/lpt.c
+++ b/src/lpt.c
@@ -107,7 +107,7 @@ typedef struct _lpt
   unsigned long port;
   int device; /* file descriptor of device, in case we are using one ...*/
 
-  int mode; // MODE_IOPERM, MODE_IOPL
+  int mode; /* MODE_IOPERM, MODE_IOPL */
 } t_lpt;
 
 static void lpt_float(t_lpt *x, t_floatarg f)
@@ -237,7 +237,6 @@ static void *lpt_new(t_symbol *s, int argc, t_atom *argv)
         x->mode=MODE_NONE;
       } else x->mode=MODE_IOPL;
       count_iopl++;
-      //    post("iopl.............................%d", count_iopl);
     }
     
     if(x->mode==MODE_NONE){
diff --git a/src/makesymbol.c b/src/makesymbol.c
index 98acd61..a3793f6 100644
--- a/src/makesymbol.c
+++ b/src/makesymbol.c
@@ -69,7 +69,6 @@ typedef char cstring[MAXSTRINGLENG];
 
 static t_symbol* list2symbol(char *masque, int argc, t_atom *argv)
 {
-  //	cstring buf[MAXSTRINGARGS];
   cstring*buf=(cstring*)getbytes(MAXSTRINGARGS*sizeof(cstring));
 	cstring buffer;
 	int i;
diff --git a/src/matchbox.c b/src/matchbox.c
index 131fc5c..0ca5dcd 100644
--- a/src/matchbox.c
+++ b/src/matchbox.c
@@ -14,12 +14,13 @@
  *
  ******************************************************/
 
-// LATER: add a creation argument to specify the initial search mode
-
-// LATER: bind a "name" to the [matchbox] so several objects can share the same entries
-// if no name is given at creation time, the entries are local only
-
-// even LATER: dynamically bind to several searchlists (via "set" message)
+/* LATER: add a creation argument to specify the initial search mode
+ *
+ * LATER: bind a "name" to the [matchbox] so several objects can share the same entries
+ * if no name is given at creation time, the entries are local only
+ *
+ * even LATER: dynamically bind to several searchlists (via "set" message)
+ */
 
 
 #include "zexy.h"
@@ -131,7 +132,7 @@ static int atommatch_exact(t_atom*pattern, t_atom*atom) {
       return pattern==atom;
     }
   } else {
-    //post("types don't match!");
+    /* post("types don't match!"); */
     return FALSE;
   }
 
@@ -318,8 +319,6 @@ static int atommatch_osc(t_atom*pattern, t_atom*test) {
 
   int result = FALSE;
 
-  //startpost("atommatch::OSC -> ");
-
   if(pattern->a_type==A_SYMBOL) {
     s_pattern=pattern->a_w.w_symbol->s_name;
   } else {
@@ -338,8 +337,6 @@ static int atommatch_osc(t_atom*pattern, t_atom*test) {
 
   result = OSC_PatternMatch(s_pattern, s_test, s_pattern);
 
-  //post("'%s' <-> '%s' = %d", s_pattern, s_test, result);
-
   if(pattern_size>0) {
     freebytes(s_pattern, pattern_size);
     s_pattern=0; pattern_size=0;
@@ -401,10 +398,10 @@ static t_listlist*matchlistlist_regex(unsigned int*numresults, t_listlist*search
   regex_t**regexpressions=0;
   t_listlist*matchinglist=0, *sl;
   int i=0;
-  flags|=REG_EXTENDED;
-
   int num=0;
 
+  flags|=REG_EXTENDED;
+
   /* 1st compile the patterns */
   regexpressions=(regex_t**)getbytes(sizeof(regex_t*)*p_argc);
   for(i=0; i<p_argc; i++) {
@@ -539,32 +536,32 @@ static t_listlist*matchlistlist(unsigned int*numresults, t_listlist*searchlist,
 
 
 static void matchbox_list(t_matchbox*x, t_symbol*s, int argc, t_atom*argv) {
-  int results=0;
+  unsigned int results=0;
   int mode=x->x_mode;
   t_listlist*resultlist=matchlistlist(&results, x->x_lists, argc, argv, mode, FALSE);
   t_listlist*dummylist;
 
-  outlet_float(x->x_outNumResults, results);
+  outlet_float(x->x_outNumResults, (t_float)results);
   
   for(dummylist=resultlist; 0!=dummylist; dummylist=dummylist->next)
     outlet_list(x->x_outResult,  &s_list, dummylist->argc, dummylist->argv);
 }
 
 static void matchbox_add(t_matchbox*x, t_symbol*s, int argc, t_atom*argv) {
-  // 1st match, whether we already have this entry
+  /* 1st match, whether we already have this entry */
   if(matchlistlist(0, x->x_lists, argc, argv, MATCHBOX_EXACT, FALSE)) {
-    // already there, skip the rest
+    /* already there, skip the rest */
     z_verbose(1, "this list is already in the buffer!, skipping...");
     return;
   }
 
-  // 2nd if this is a new entry, add it
+  /* 2nd if this is a new entry, add it */
   x->x_lists=addlistlist(x->x_lists, argc, argv);
   x->x_numlists++;
 }
 
 static void matchbox_delete(t_matchbox*x, t_symbol*s, int argc, t_atom*argv) {
-  int results=0;
+  unsigned int results=0;
   int mode=x->x_mode;
   t_listlist*resultlist=matchlistlist(&results, x->x_lists, argc, argv, mode, TRUE);
   t_listlist*dummylist;
@@ -572,7 +569,7 @@ static void matchbox_delete(t_matchbox*x, t_symbol*s, int argc, t_atom*argv) {
 
   x->x_numlists-=results;
 
-  outlet_float(x->x_outNumResults, results);
+  outlet_float(x->x_outNumResults, (t_float)results);
   
   for(dummylist=resultlist; 0!=dummylist; dummylist=dummylist->next)
     outlet_anything(x->x_outResult, delsym, dummylist->argc, dummylist->argv);
diff --git a/src/multiplex.c b/src/multiplex.c
index 05849ea..8fe5b58 100644
--- a/src/multiplex.c
+++ b/src/multiplex.c
@@ -63,9 +63,6 @@ static void *mux_new(t_symbol *s, int argc, t_atom *argv)
 {
   int n = (argc < 2)?2:argc;
   t_mux *x = (t_mux *)pd_new(mux_class);
-  //  t_muxproxy *y=(t_muxproxy*)pd_new(muxproxy_class);
-  ZEXY_USEVAR(s);
-  ZEXY_USEVAR(argv);
 
   x->i_selected=0;
   x->i_count = n;
@@ -107,7 +104,7 @@ static void mux_free(t_mux*x){
     freebytes(x->x_proxy, x->i_count * sizeof(t_muxproxy*));
   }
   
-  //pd_free(&y->p_pd)
+  /* pd_free(&y->p_pd); */
 }
 
 void multiplex_setup(void)
diff --git a/src/regex.c b/src/regex.c
index eb0e3b9..264bfeb 100644
--- a/src/regex.c
+++ b/src/regex.c
@@ -232,7 +232,7 @@ static void regex_symbol(t_regex *x, t_symbol *s, int argc, t_atom*argv)
       if(match[i].rm_so!=-1){
         /* output the matches */
         if(i>0 && (match[i].rm_so==match[i-1].rm_so) && (match[i].rm_eo==match[i-1].rm_eo)){
-          // duplicate matches
+          /* duplicate matches */
         } else {
           SETFLOAT(ap2+0, (t_float)i);
           SETFLOAT(ap2+1, (t_float)match[i].rm_so);
diff --git a/src/sfrecord.c b/src/sfrecord.c
index 54b1f58..dd3966d 100644
--- a/src/sfrecord.c
+++ b/src/sfrecord.c
@@ -26,8 +26,7 @@ zmoelnig@iem.kug.ac.at
 
 /* TODO: deprecate this in favour of [sfplay~] */
 
-
-/* #define DEBUG_ME // for debugging messages */
+/* #define DEBUG_ME for debugging messages */
 
 #include "zexy.h"
 
@@ -128,15 +127,18 @@ static void sfrecord_open(t_sfrecord *x,t_symbol *filename,t_symbol *endian)
 		return;
 	}
  
-/* test if big endian else asume little endian 
-	should be 'l' but could be anything*/
-
+  /* test if big endian else asume little endian 
+   * should be 'l' but could be anything
+   */
 	if(sfrecord_am_i_big_endian())
 		x->swap = !(endian->s_name[0] == 'b');
 	else
 		x->swap = (endian->s_name[0] == 'b');
 
-//	x->skip = 1;	/* skip header after open;; sometimes we´ll have to write a header using the x->skip; so don´t delete it completely*/
+	/* 
+   * skip header after open;; sometimes we´ll have to write a header using the x->skip; so don´t delete it completely 
+   */
+  /* x->skip = 1; */
 
 	x->filename = filename;
 
@@ -414,7 +416,7 @@ static t_int *sfrecord_perform(t_int *w)
 #endif
 			break;
 		};
-#endif //0
+#endif /* 0 */
 		return (w+c+3); /* writing was fine */
 
 
diff --git a/src/sgn~.c b/src/sgn~.c
index 501c1de..04076c2 100644
--- a/src/sgn~.c
+++ b/src/sgn~.c
@@ -73,14 +73,14 @@ static t_int *sgnTilde_perform8(t_int *w)
 }
 
 #ifdef __SSE__
-static long l_bitmask[]={0x80000000, 0x80000000, 0x80000000, 0x80000000}; // sign bitmask
+static long l_bitmask[]={0x80000000, 0x80000000, 0x80000000, 0x80000000}; /* sign bitmask */
 static t_int *sgnTilde_performSSE(t_int *w)
 {
   __m128 *in = (__m128 *)(w[1]);
   __m128 *out = (__m128 *)(w[2]);
 
   __m128 val;
-  int n = (int)(w[3])>>3; // we do 8x loop-unrolling
+  int n = (int)(w[3])>>3; /* we do 8x loop-unrolling */
 
   const __m128 sgnmask= _mm_loadu_ps((float*)l_bitmask);
   const __m128 zero   = _mm_setzero_ps();
@@ -91,10 +91,10 @@ static t_int *sgnTilde_performSSE(t_int *w)
   while (n--) {
 
     val=in[0];
-    xmm0  = _mm_cmpneq_ps(val , zero);// mask for non-zeros
-    xmm1  = _mm_and_ps   (val, sgnmask);// sign (without value)
-    xmm0  = _mm_and_ps   (xmm0, one); // (abs) value: (val==0.f)?0.f:1.f
-    out[0]= _mm_or_ps    (xmm1, xmm0);// merge sign and value
+    xmm0  = _mm_cmpneq_ps(val , zero);/* mask for non-zeros */
+    xmm1  = _mm_and_ps   (val, sgnmask);/* sign (without value) */
+    xmm0  = _mm_and_ps   (xmm0, one); /* (abs) value: (val==0.f)?0.f:1.f */
+    out[0]= _mm_or_ps    (xmm1, xmm0);/* merge sign and value */
 
     val=in[1];
     xmm0  = _mm_cmpneq_ps(val , zero);
@@ -117,7 +117,7 @@ static void sgnTilde_dsp(t_sgnTilde *x, t_signal **sp)
      Z_SIMD_CHKBLOCKSIZE(sp[0]->s_n)&&
      Z_SIMD_CHKALIGN(sp[0]->s_vec)&&
      Z_SIMD_CHKALIGN(sp[1]->s_vec)&&
-     ZEXY_TYPE_EQUAL(t_sample, float) // currently SSE2 code is only for float (not for double)
+     ZEXY_TYPE_EQUAL(t_sample, float) /*  currently SSE2 code is only for float (not for double) */
      )
     {
       dsp_add(sgnTilde_performSSE, 3, sp[0]->s_vec, sp[1]->s_vec, sp[0]->s_n);
diff --git a/src/sort.c b/src/sort.c
index 2fe067f..eff1e36 100644
--- a/src/sort.c
+++ b/src/sort.c
@@ -79,7 +79,6 @@ static void sort_list(t_sort *x, t_symbol *s, int argc, t_atom *argv)
   t_int   *idx;
 
   int i, loops = 1;
-  ZEXY_USEVAR(s);
 
   sort_buffer(x, argc, argv);
   buf = x->buffer;
@@ -88,7 +87,6 @@ static void sort_list(t_sort *x, t_symbol *s, int argc, t_atom *argv)
   while (step > 1) {
     step = (step % 2)?(step+1)/2:step/2;
 
-    //    i = loops++;
     i = loops;
     loops += 2;
 
diff --git a/src/tabread4~~.c b/src/tabread4~~.c
index dbcf4bf..d150afa 100644
--- a/src/tabread4~~.c
+++ b/src/tabread4~~.c
@@ -72,7 +72,6 @@ static t_int *tabread4_tilde_perform(t_int *w)
     while (n--) *out++ = 0;
     return (w+6);
   }
-  //  post("xxx");
   for (i = 0; i < n; i++)
     {
       t_sample in0_s=*in++;
@@ -87,9 +86,6 @@ static t_int *tabread4_tilde_perform(t_int *w)
         index = maxindex, frac = 1;
       else frac = findex - index;
 
-      //post("%f + %f = %f", in0_s, in1_s, findex);
-      //  post("%f - %f = %d", findex, frac, index);
-
       wp = buf + index;
 
       a = zarray_getfloat(wp,-1);
diff --git a/src/time.c b/src/time.c
index ac55e77..3b49ba9 100644
--- a/src/time.c
+++ b/src/time.c
@@ -95,7 +95,6 @@ static void time_bang(t_time *x)
   resolvetime = (x->GMT)?gmtime(&tv.tv_sec):localtime(&tv.tv_sec);
   ms = tv.tv_usec*0.001;
 #endif
-  //  outlet_float(x->x_outlet4, (t_float)(mytime.millitm));
   outlet_float(x->x_outlet4, (t_float)(ms));
   outlet_float(x->x_outlet3, (t_float)resolvetime->tm_sec);
   outlet_float(x->x_outlet2, (t_float)resolvetime->tm_min);  
diff --git a/src/winNT_portio.c b/src/winNT_portio.c
index 83fe89e..470df14 100644
--- a/src/winNT_portio.c
+++ b/src/winNT_portio.c
@@ -19,14 +19,13 @@ static BOOL bPrivException = FALSE;
 
 int read_parport(int port)
 {
-	// byte = _inp((unsigned short)port);
 	unsigned char value;
 #ifdef _MSC_VER
 	__asm mov edx,port
 	__asm in al,dx
 	__asm mov value,al
 #else
-    // hmm, i should read some documentation about inline assembler
+    /* hmm, i should read some documentation about inline assembler */
     post("lpt: cannot read from parport (recompile!)");
         return 0;
 #endif
@@ -35,15 +34,17 @@ int read_parport(int port)
 
 void write_parport(int port, int invalue)
 {
-  // _outp((unsigned short)port, value);
+  /* _outp((unsigned short)port, value); */
   BYTE value = (BYTE)invalue;
 #ifdef _MSC_VER
   __asm mov edx,port
   __asm mov al,value
   __asm out dx,al
 #else
-    // hmm, i should read some documentation about inline assembler
-    // and probably about assembler in general...
+    /*
+     * hmm, i should read some documentation about inline assembler
+     * and probably about assembler in general...
+     */
     post("lpt: cannot write to parport (recompile!)");
     /*
     asm(
@@ -62,7 +63,7 @@ static LONG WINAPI HandlerExceptionFilter ( EXCEPTION_POINTERS *pExPtrs )
 
 	if (pExPtrs->ExceptionRecord->ExceptionCode == EXCEPTION_PRIV_INSTRUCTION)
 	{
-		pExPtrs->ContextRecord->Eip ++; // Skip the OUT or IN instruction that caused the exception
+		pExPtrs->ContextRecord->Eip ++; /* Skip the OUT or IN instruction that caused the exception */
 		bPrivException = TRUE;
 		return EXCEPTION_CONTINUE_EXECUTION;
 	}
@@ -75,13 +76,13 @@ static BOOL StartUpIoPorts(UINT PortToAccess, BOOL bShowMessageBox, HWND hParent
 	HANDLE hUserPort;
 
 	hUserPort = CreateFile("\\\\.\\UserPort", GENERIC_READ, 0, NULL,OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, NULL);
-	CloseHandle(hUserPort); // Activate the driver
-	Sleep(100); // We must make a process switch
+	CloseHandle(hUserPort); /* Activate the driver */
+	Sleep(100); /* We must make a process switch */
 
 	SetUnhandledExceptionFilter(HandlerExceptionFilter);
 	
 	bPrivException = FALSE;
-	read_parport(PortToAccess);  // Try to access the given port address
+	read_parport(PortToAccess);  /* Try to access the given port address */
 
 	if (bPrivException)
 	{
@@ -124,4 +125,6 @@ int open_port(int port)
 		return(0);
 	}
 }
+#else
+static int i=0;
 #endif /* __WIN32__ & Z_WANT_LPT */
diff --git a/src/zexy.c b/src/zexy.c
index 0451a9b..135e5e8 100644
--- a/src/zexy.c
+++ b/src/zexy.c
@@ -21,6 +21,8 @@
 
 #include "zexy.h"
 #include "z_zexy.h"
+
+#include <stdio.h>
 #include <stdarg.h>
 
 
@@ -39,88 +41,90 @@ t_class *zexy_class;
 
 static void zexy_help(void)
 {
-  post("\n\n...this is the zexy %c external "VERSION"...", HEARTSYMBOL);
-  post("\n%c handling signals"
+  endpost(); endpost(); 
+  post("...this is the zexy %c external "VERSION"...", HEARTSYMBOL);
+  endpost();
+  post("%c handling signals", HEARTSYMBOL);
 #if 0
-       "\nstreamout~\t:: stream signals via a LAN : (%c) gige 1999"
-       "\nstreamin~\t:: catch signals from a LAN : based on gige"
+  post("streamout~\t:: stream signals via a LAN : (%c) gige 1999");
+  post("streamin~\t:: catch signals from a LAN : based on gige");
 #endif
-       "\nsfplay\t\t:: play back a (multichannel) soundfile : (c) ritsch 1999"
-       "\nsfrecord\t:: record a (multichannel) soundfile : based on ritsch", HEARTSYMBOL);
-
-  post("\n%c generating signals"
-       "\nnoish~\t\t:: generate bandlimited noise"
-       "\nnoisi~\t\t:: generate bandlimited noise"
-       "\ndirac~\t\t:: generate a dirac-pulse"
-       "\nstep~\t\t:: generate a unity-step"
-       "\ndfreq~\t\t:: detect frequency by counting zero-crossings : (c) ritsch 1998", HEARTSYMBOL);
-
-  post("\n%c manipulating signals"
-       "\nlimiter~\t:: limit/compress one or more signals"
-       "\nnop~\t\t:: pass through a signal (delay 1 block)"
-       "\nz~\t\t:: samplewise delay"
-       "\nswap~\t\t:: byte-swap a signal"
-       "\nquantize~\t:: quantize a signal", HEARTSYMBOL);
-
-  post("\n%c binary operations on signals"
-       "\nabs~, sgn~, >~, <~, ==~, &&~, ||~", HEARTSYMBOL);
-
-  post("\n%c multary operations on signals"
-
-       "\nmultiline~\t:: multiple line~ multiplication"
-       "\nmultiplex~\t:: multiplex 1 inlet~ to 1-of-various outlet~s"
-       "\ndemultiplex~\t:: demultiplex 1-of-various inlet~s to 1 outlet~", HEARTSYMBOL);
-
-  post("\n%c investigating signals in message-domain"
-       "\npack~\t\t:: convert a signal into a list of floats"
-       "\nunpack~\t\t:: convert packages of floats into a signal"
-
-       "\nsigzero~\t:: indicates whether a signal is zero throughout the block"
-       "\navg~\t\t:: outputs average of a signal as float"
-       "\ntavg~\t\t:: outputs average of a signal between two bangs"
-       "\nenvrms~\t\t:: an env~-object that ouputs rms instead of db"
-       "\npdf~\t\t:: power density function", HEARTSYMBOL);
+  post("sfplay\t\t:: play back a (multichannel) soundfile : (c) ritsch 1999");
+  post("sfrecord\t:: record a (multichannel) soundfile : based on ritsch");
+
+  endpost(); post("%c generating signals", HEARTSYMBOL);
+  post("noish~\t\t:: generate bandlimited noise");
+  post("noisi~\t\t:: generate bandlimited noise");
+  post("dirac~\t\t:: generate a dirac-pulse");
+  post("step~\t\t:: generate a unity-step");
+  post("dfreq~\t\t:: detect frequency by counting zero-crossings : (c) ritsch 1998");
+
+  endpost(); post("%c manipulating signals", HEARTSYMBOL);
+  post("limiter~\t:: limit/compress one or more signals");
+  post("nop~\t\t:: pass through a signal (delay 1 block)");
+  post("z~\t\t:: samplewise delay");
+  post("swap~\t\t:: byte-swap a signal");
+  post("quantize~\t:: quantize a signal");
+
+  endpost(); post("%c binary operations on signals", HEARTSYMBOL);
+  post("abs~, sgn~, >~, <~, ==~, &&~, ||~");
+
+  endpost(); post("%c multary operations on signals", HEARTSYMBOL);
+  post("multiline~\t:: multiple line~ multiplication");
+  post("multiplex~\t:: multiplex 1 inlet~ to 1-of-various outlet~s");
+  post("demultiplex~\t:: demultiplex 1-of-various inlet~s to 1 outlet~");
+
+  endpost(); post("%c investigating signals in message-domain", HEARTSYMBOL);
+  post("pack~\t\t:: convert a signal into a list of floats");
+  post("unpack~\t\t:: convert packages of floats into a signal");
+
+  post("sigzero~\t:: indicates whether a signal is zero throughout the block");
+  post("avg~\t\t:: outputs average of a signal as float");
+  post("tavg~\t\t:: outputs average of a signal between two bangs");
+  post("envrms~\t\t:: an env~-object that ouputs rms instead of db");
+  post("pdf~\t\t:: power density function");
        
-  post("\n%c basic message objects"
-       "\nnop\t\t:: a no-operation"
-       "\nlister\t\t:: stores lists"
-       "\nany2list\t\t:: converts \"anything\" to lists"
-       "\nlist2int\t:: cast each float of a list to integer"
-       "\natoi\t\t:: convert ascii to integer"
-       "\nlist2symbol\t:: convert a list into a single symbol"
-       "\nsymbol2list\t:: split a symbol into a list"
-       "\nstrcmp\t\t:: compare 2 lists as if they where strings"
-       "\nrepack\t\t:: (re)packs atoms to packages of a given size"
-       "\npackel\t\t:: element of a package"
-       "\nlength\t\t:: length of a package"
-       "\nniagara\t\t:: divide a package into 2 sub-packages"
-       "\nglue\t\t:: append a list to another"
-       "\nrepeat\t\t:: repeat a message"
-       "\nsegregate\t:: sort inputs by type"
-       "\n.\t\t:: scalar multiplication of vectors (lists of floats)", HEARTSYMBOL);
-
-  post("\n%c advanced message objects"
-       "\ntabread4\t:: 4-point interpolating table-read object"
-       "\ntabdump\t\t:: dump the table as a list"
-       "\ntabset\t\t:: set a table with a list"
-       "\nmavg\t\t:: a variable moving average filter"
-       "\nmean\t\t:: get the arithmetic mean of a vector"
-       "\nminmax\t\t:: get the minimum and the maximum of a vector"
-       "\nmakesymbol\t:: creates (formatted) symbols"
-       "\ndate\t\t:: get the current system date"
-       "\ntime\t\t:: get the current system time"
-       "\nindex\t\t:: convert symbols to indices"
-       "\ndrip\t\t:: converts a package to a sequence of atoms"
-       "\nsort\t\t:: shell-sort a package of floats"
-       "\ndemux\t\t:: demultiplex the input to a specified output"
-       "\nmsgfile\t\t:: store and handles lists of lists"
-       "\nlp\t\t:: write to the (parallel) port"
-       "\nwrap\t\t:: wrap a floating number between 2 limits"
-       "\nurn\t\t:: unique random numbers"
-       "\noperating_system\t:: information on the OS", HEARTSYMBOL);
-
-  post("\n\n(l) forum::für::umläute except where indicated\n"
-       "this software is under the GnuGPL that is provided with these files");
+  endpost(); post("%c basic message objects", HEARTSYMBOL);
+  post("nop\t\t:: a no-operation");
+  post("lister\t\t:: stores lists");
+  post("any2list\t\t:: converts \"anything\" to lists");
+  post("list2int\t:: cast each float of a list to integer");
+  post("atoi\t\t:: convert ascii to integer");
+  post("list2symbol\t:: convert a list into a single symbol");
+  post("symbol2list\t:: split a symbol into a list");
+  post("strcmp\t\t:: compare 2 lists as if they where strings");
+  post("repack\t\t:: (re)packs atoms to packages of a given size");
+  post("packel\t\t:: element of a package");
+  post("length\t\t:: length of a package");
+  post("niagara\t\t:: divide a package into 2 sub-packages");
+  post("glue\t\t:: append a list to another");
+  post("repeat\t\t:: repeat a message");
+  post("segregate\t:: sort inputs by type");
+  post(".\t\t:: scalar multiplication of vectors (lists of floats)");
+
+  endpost(); post("%c advanced message objects", HEARTSYMBOL);
+  post("tabread4\t:: 4-point interpolating table-read object");
+  post("tabdump\t\t:: dump the table as a list");
+  post("tabset\t\t:: set a table with a list");
+  post("mavg\t\t:: a variable moving average filter");
+  post("mean\t\t:: get the arithmetic mean of a vector");
+  post("minmax\t\t:: get the minimum and the maximum of a vector");
+  post("makesymbol\t:: creates (formatted) symbols");
+  post("date\t\t:: get the current system date");
+  post("time\t\t:: get the current system time");
+  post("index\t\t:: convert symbols to indices");
+  post("drip\t\t:: converts a package to a sequence of atoms");
+  post("sort\t\t:: shell-sort a package of floats");
+  post("demux\t\t:: demultiplex the input to a specified output");
+  post("msgfile\t\t:: store and handles lists of lists");
+  post("lp\t\t:: write to the (parallel) port");
+  post("wrap\t\t:: wrap a floating number between 2 limits");
+  post("urn\t\t:: unique random numbers");
+  post("operating_system\t:: information on the OS");
+
+  endpost(); post("\n(l) forum::für::umläute except where indicated");
+  post("this software is released under the GnuGPL that is provided with these files");
+  endpost();
 }
 
 static void *zexy_new(void)