shithub: soundpipe

Info  •  Files  •  Log

compile stuff

--- a/h/base.h

+++ b/h/base.h

@@ -8,7 +8,7 @@

 #define SP_OK 1

 #define SP_NOT_OK 0

-#define SP_RANDMAX 2147483648

+#define SP_RANDMAX 2147483648U

 typedef unsigned long sp_frame;

--- a/lib/dr_wav/dr_wav.h

+++ b/lib/dr_wav/dr_wav.h

@@ -762,7 +762,7 @@

-static DRWAV_INLINE int drwav__is_little_endian()

+static DRWAV_INLINE int drwav__is_little_endian(void)

 {

     int n = 1;

     return (*(char*)&n) == 1;

@@ -865,7 +865,7 @@

         pHeaderOut->sizeInBytes = drwav__bytes_to_u64(sizeInBytes) - 24;    // <-- Subtract 24 because w64 includes the size of the header.

         pHeaderOut->paddingSize = (unsigned int)(pHeaderOut->sizeInBytes % 8);

-        pRunningBytesReadOut += 24;

+        *pRunningBytesReadOut += 24;

     }

     return DRWAV_TRUE;

@@ -1625,7 +1625,7 @@

     //   - Set the size of the "data" chunk.

     if (pWav->onWrite != NULL) {

         // Padding. Do not adjust pWav->dataChunkDataSize - this should not include the padding.

-        drwav_uint32 paddingSize = 0;

+        drwav_uint32 paddingSize;

         if (pWav->container == drwav_container_riff) {

             paddingSize = (drwav_uint32)(pWav->dataChunkDataSize % 2);

         } else {

@@ -2294,7 +2294,7 @@

                 pWav->ima.cachedSampleCount = 8 * pWav->channels;

                 for (iChannel = 0; iChannel < pWav->channels; ++iChannel) {

                     drwav_uint8 nibbles[4];

-                    if (pWav->onRead(pWav->pUserData, &nibbles, 4) != 4) {

+                    if (pWav->onRead(pWav->pUserData, nibbles, 4) != 4) {

                         return totalSamplesRead;

                     }

                     pWav->ima.bytesRemainingInBlock -= 4;

@@ -2474,6 +2474,7 @@

 void drwav_f32_to_s16(drwav_int16* pOut, const float* pIn, size_t sampleCount)

 {

+    USED(pOut, pIn, sampleCount);

 /*

     int r;

     for (size_t i = 0; i < sampleCount; ++i) {

@@ -2492,6 +2493,7 @@

 void drwav_f64_to_s16(drwav_int16* pOut, const double* pIn, size_t sampleCount)

 {

+    USED(pOut, pIn, sampleCount);

 /*

     int r;

     for (size_t i = 0; i < sampleCount; ++i) {

--- /dev/null

+++ b/lib/dr_wav/mkfile

@@ -1,0 +1,13 @@

+<../../mkfile.common

+

+LIB=libdr_wav.a$O

+CFLAGS=$CFLAGS -I../../h

+

+HFILES=\

+	dr_wav.h\

+	sp_dr_wav.h\

+

+OFILES=\

+	dr_wav.$O\

+

+</sys/src/cmd/mklib

--- /dev/null

+++ b/lib/inih/mkfile

@@ -1,0 +1,11 @@

+<../../mkfile.common

+

+LIB=libinih.a$O

+

+HFILES=\

+	ini.h\

+

+OFILES=\

+	ini.$O\

+

+</sys/src/cmd/mklib

--- /dev/null

+++ b/lib/kissfft/mkfile

@@ -1,0 +1,14 @@

+<../../mkfile.common

+

+LIB=libkissfft.a$O

+

+HFILES=\

+	_kiss_fft_guts.h\

+	kiss_fft.h\

+	kiss_fftr.h\

+

+OFILES=\

+	kiss_fft.$O\

+	kiss_fftr.$O\

+

+</sys/src/cmd/mklib

--- /dev/null

+++ b/lib/openlpc/mkfile

@@ -1,0 +1,12 @@

+<../../mkfile.common

+

+LIB=libopenlpc.a$O

+CFLAGS=$CFLAGS -I../../h

+

+HFILES=\

+	openlpc.h\

+

+OFILES=\

+	openlpc.$O\

+

+</sys/src/cmd/mklib

--- a/lib/openlpc/openlpc.c

+++ b/lib/openlpc/openlpc.c

@@ -91,7 +91,9 @@

 #include "soundpipe.h"

 #include "openlpc.h"

+#ifndef __plan9__

 #include "ftol.h"

+#endif

 #define PREEMPH

@@ -128,8 +130,8 @@

 #define MINPIT		40.0	/* Minimum pitch (observed: 74) */

 #define MAXPIT		320.0	/* Maximum pitch (observed: 250) */

-#define MINPER		(int)(FS/(DOWN*MAXPIT)+.5)	/* Minimum period  */

-#define MAXPER		(int)(FS/(DOWN*MINPIT)+.5)	/* Maximum period  */

+#define MINPER		7 //(int)(FS/(DOWN*MAXPIT)+.5)	/* Minimum period  */

+#define MAXPER		55 //(int)(FS/(DOWN*MINPIT)+.5)	/* Maximum period  */

 #define REAL_MINPER	 (DOWN*MINPER) /* converted to samples units */

@@ -211,8 +213,9 @@

 static void calc_pitch(float *w, int len, float *per)

 {

     int i, j, rpos;

-    float d[MAXWINDOW/DOWN], r[MAXPER+1], rmax;

-    float rval, rm, rp;

+    float d[MAXWINDOW/DOWN];

+    float r[MAXPER+1];

+    float rval, rm, rp, rmax;

     float x, y;

     float vthresh;

@@ -226,12 +229,7 @@

     x = 1;

     rpos = 0;

     rmax = 0.0;

-    y = 0;

-    rm = 0;

-    rp = 0;

-    vthresh = 0.;

-

     for (i = 1; i < MAXPER; i++) {

         rm = r[i-1];

         rp = r[i+1];

@@ -330,11 +328,7 @@

 void destroy_openlpc_encoder_state(openlpc_encoder_state *st)

 {

-    if(st != NULL)

-    {

-        free(st);

-        st = NULL;

-    }

+    free(st);

 }

 /* LPC Analysis (compression) */

@@ -743,11 +737,7 @@

 void destroy_openlpc_decoder_state(openlpc_decoder_state *st)

 {

-    if(st != NULL)

-    {

-        free(st);

-        st = NULL;

-    }

+    free(st);

 }

 void openlpc_sr(float sr)

--- /dev/null

+++ b/lib/spa/mkfile

@@ -1,0 +1,12 @@

+<../../mkfile.common

+

+LIB=libspa.a$O

+CFLAGS=$CFLAGS -I../../h

+

+HFILES=\

+	spa.h\

+

+OFILES=\

+	spa.$O\

+

+</sys/src/cmd/mklib

--- a/lib/spa/spa.c

+++ b/lib/spa/spa.c

@@ -35,6 +35,8 @@

 size_t spa_write_buf(sp_data *sp, sp_audio *spa, SPFLOAT *buf, uint32_t size)

 {

+	USED(sp);

+

     if(spa->mode != SPA_WRITE) {

         return 0;

     }

@@ -43,6 +45,8 @@

 size_t spa_read_buf(sp_data *sp, sp_audio *spa, SPFLOAT *buf, uint32_t size)

 {

+	USED(sp);

+

     if(spa->mode != SPA_READ) {

         return 0;

     }

--- /dev/null

+++ b/mkfile

@@ -1,0 +1,36 @@

+<mkfile.common

+

+HEADER=h/soundpipe.h

+PWD=`{pwd}

+

+CLEANFILES=$HEADER

+

+DIRS=modules lib/dr_wav lib/inih lib/kissfft lib/openlpc lib/spa

+

+default:V: all

+

+all:VQ: $HEADER

+	for(d in $DIRS){ cd $d && mk; cd $PWD }

+

+clean:VQ:

+	rm -f $HEADER

+	for(d in $DIRS){ cd $d && mk clean; cd $PWD }

+

+$HEADER: $HFILES

+	{

+		echo '#ifndef _soundpipe_h_'

+		echo '#define _soundpipe_h_'

+		echo

+		echo '#pragma lib' "^$PWD^/modules/libspmodules.a^$O^"

+		echo '#pragma lib' "^$PWD^/lib/dr_wav/libdr_wav.a^$O^"

+		echo '#pragma lib' "^$PWD^/lib/inih/libinih.a^$O^"

+		echo '#pragma lib' "^$PWD^/lib/kissfft/libkissfft.a^$O^"

+		echo '#pragma lib' "^$PWD^/lib/openlpc/libopenlpc.a^$O^"

+		echo '#pragma lib' "^$PWD^/lib/spa/libspa.a^$O^"

+		echo

+		for(f in $HFILES){

+			echo '#include' "^`{basename $f}^"

+		}

+		echo

+		echo '#endif'

+	} >$target

--- /dev/null

+++ b/mkfile.common

@@ -1,0 +1,99 @@

+</$objtype/mkfile

+

+CFLAGS=$CFLAGS -p -I/sys/include/npe -I.. -I../h -I../lib/faust -I../lib/kissfft -I../lib/openlpc -I../lib/inih -D__plan9__ -DNO_LIBSNDFILE

+

+HFILES=\

+	h/base.h\

+	h/ftbl.h\

+	h/spa.h\

+	\

+	h/adsr.h\

+	h/autowah.h\

+	h/bigverb.h\

+	h/biscale.h\

+	h/bitcrush.h\

+	h/blsaw.h\

+	h/blsquare.h\

+	h/bltriangle.h\

+	h/brown.h\

+	h/butbp.h\

+	h/butbr.h\

+	h/buthp.h\

+	h/butlp.h\

+	h/clamp.h\

+	h/clock.h\

+	h/compressor.h\

+	h/count.h\

+	h/crossfade.h\

+	h/dcblocker.h\

+	h/delay.h\

+	h/diode.h\

+	h/dmetro.h\

+	h/dtrig.h\

+	h/expon.h\

+	h/fftwrapper.h\

+	h/fmpair.h\

+	h/foo.h\

+	h/in.h\

+	h/incr.h\

+	h/jack.h\

+	h/jcrev.h\

+	h/line.h\

+	h/loadwav.h\

+	h/lpc.h\

+	h/maygate.h\

+	h/metro.h\

+	h/modalres.h\

+	h/noise.h\

+	h/nsmp.h\

+	h/osc.h\

+	h/oscmorph.h\

+	h/padsynth.h\

+	h/paulstretch.h\

+	h/peakeq.h\

+	h/peaklim.h\

+	h/phaser.h\

+	h/phasewarp.h\

+	h/phasor.h\

+	h/pinknoise.h\

+	h/prop.h\

+	h/pshift.h\

+	h/randh.h\

+	h/randmt.h\

+	h/random.h\

+	h/reverse.h\

+	h/rline.h\

+	h/rpi.h\

+	h/rpt.h\

+	h/samphold.h\

+	h/saturator.h\

+	h/scale.h\

+	h/scrambler.h\

+	h/sdelay.h\

+	h/slice.h\

+	h/smoothdelay.h\

+	h/smoother.h\

+	h/sparec.h\

+	h/switch.h\

+	h/tadsr.h\

+	h/talkbox.h\

+	h/tblrec.h\

+	h/tdiv.h\

+	h/tenv.h\

+	h/tenv2.h\

+	h/tenvx.h\

+	h/tgate.h\

+	h/thresh.h\

+	h/timer.h\

+	h/tin.h\

+	h/trand.h\

+	h/tread.h\

+	h/tseg.h\

+	h/tseq.h\

+	h/vardelay.h\

+	h/verbity.h\

+	h/voc.h\

+	h/wavin.h\

+	h/wavout.h\

+	h/wpkorg35.h\

+	h/zitarev.h\

--- a/modules/adsr.c

+++ b/modules/adsr.c

@@ -37,11 +37,15 @@

 static SPFLOAT tau2pole(sp_data *sp, sp_adsr *p, SPFLOAT tau)

 {

+    USED(p);

+

     return exp(-1.0 / (tau * sp->sr));

 }

 static SPFLOAT adsr_filter(sp_data *sp, sp_adsr *p)

 {

+    USED(sp);

+

     p->y = p->b * p->x  + p->a * p->y;

     return p->y;

 }

--- a/modules/autowah.c

+++ b/modules/autowah.c

@@ -37,7 +37,7 @@

 } autowah;

-autowah* newautowah() {

+autowah* newautowah(void) {

 	autowah* dsp = (autowah*)malloc(sizeof(autowah));

 	return dsp;

 }

@@ -163,6 +163,8 @@

 static void addVerticalSlider(void* ui_interface, const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step)

 {

+    USED(label, init, min, max, step);

+

     sp_autowah *p = ui_interface;

     p->args[p->argpos] = zone;

     p->argpos++;

@@ -203,6 +205,8 @@

 int sp_autowah_compute(sp_data *sp, sp_autowah *p, SPFLOAT *in, SPFLOAT *out)

 {

+    USED(sp);

+

     autowah *dsp = p->faust;

     SPFLOAT *faust_out[] = {out};

     SPFLOAT *faust_in[] = {in};

--- a/modules/bigverb.c

+++ b/modules/bigverb.c

@@ -37,6 +37,8 @@

                        SPFLOAT *out1,

                        SPFLOAT *out2)

 {

+    USED(sp);

+

     sk_bigverb_size(p->bv, p->feedback);

     sk_bigverb_cutoff(p->bv, p->lpfreq);

     sk_bigverb_tick(p->bv, *in1, *in2, out1, out2);

--- a/modules/biscale.c

+++ b/modules/biscale.c

@@ -18,6 +18,8 @@

 int sp_biscale_init(sp_data *sp, sp_biscale *p)

 {

+    USED(sp);

+

     p->min = 0;

     p->max = 1;

     return SP_OK;

@@ -25,6 +27,8 @@

 int sp_biscale_compute(sp_data *sp, sp_biscale *p, SPFLOAT *in, SPFLOAT *out)

 {

+    USED(sp);

+

     *out = sk_biscale(*in, p->min, p->max);

     return SP_OK;

 }

--- a/modules/bitcrush.c

+++ b/modules/bitcrush.c

@@ -18,6 +18,8 @@

 int sp_bitcrush_init(sp_data *sp, sp_bitcrush *p)

 {

+    USED(sp);

+

     p->bitdepth = 8;

     p->srate = 10000;

--- a/modules/blsaw.c

+++ b/modules/blsaw.c

@@ -36,7 +36,7 @@

 	float fConst2;

 } blsaw;

-blsaw* newblsaw() {

+blsaw* newblsaw(void) {

 	blsaw* dsp = (blsaw*)malloc(sizeof(blsaw));

 	return dsp;

 }

@@ -92,6 +92,8 @@

 }

 void computeblsaw(blsaw* dsp, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) {

+    USED(inputs);

+

 	FAUSTFLOAT* output0 = outputs[0];

 	float fSlow0 = (float)dsp->fHslider1;

 	float fSlow1 = ((float)dsp->iConst0 * ((float)dsp->fHslider0 / fSlow0));

@@ -119,6 +121,8 @@

 static void addHorizontalSlider(void* ui_interface, const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step)

 {

+    USED(label, init, min, max, step);

+

     sp_blsaw *p = ui_interface;

     p->args[p->argpos] = zone;

     p->argpos++;

@@ -159,6 +163,7 @@

 int sp_blsaw_compute(sp_data *sp, sp_blsaw *p, SPFLOAT *in, SPFLOAT *out)

 {

+    USED(sp);

     blsaw *dsp = p->ud;

     SPFLOAT out1 = 0;

--- a/modules/blsquare.c

+++ b/modules/blsquare.c

@@ -10,7 +10,6 @@

 #define FAUSTFLOAT float

 #endif

-float fmodf(float dummy0, float dummy1);

 static float faustpower2_f(float value) {

 	return (value * value);

 }

@@ -30,7 +29,7 @@

 	int IOTA;

 } blsquare;

-blsquare* newblsquare() {

+blsquare* newblsquare(void) {

 	blsquare* dsp = (blsquare*)malloc(sizeof(blsquare));

 	return dsp;

 }

@@ -99,6 +98,8 @@

 }

 void computeblsquare(blsquare* dsp, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) {

+    USED(inputs);

+

 	FAUSTFLOAT* output0 = outputs[0];

 	float fSlow0 = (float)dsp->fHslider0;

 	float fSlow1 = max((float)dsp->fHslider2, 23.4489f);

@@ -133,6 +134,8 @@

 static void addHorizontalSlider(void* ui_interface, const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step)

 {

+    USED(label, init, min, max, step);

+

     sp_blsquare *p = ui_interface;

     p->args[p->argpos] = zone;

     p->argpos++;

@@ -173,6 +176,7 @@

 int sp_blsquare_compute(sp_data *sp, sp_blsquare *p, SPFLOAT *in, SPFLOAT *out)

 {

+    USED(sp);

     blsquare *dsp = p->ud;

     SPFLOAT out1 = 0;

--- a/modules/bltriangle.c

+++ b/modules/bltriangle.c

@@ -10,7 +10,6 @@

 #define FAUSTFLOAT float

 #endif

-float fmodf(float dummy0, float dummy1);

 static float faustpower2_f(float value) {

 	return (value * value);

@@ -36,7 +35,7 @@

 } bltriangle;

-bltriangle* newbltriangle() {

+bltriangle* newbltriangle(void) {

 	bltriangle* dsp = (bltriangle*)malloc(sizeof(bltriangle));

 	return dsp;

 }

@@ -114,6 +113,8 @@

 }

 void computebltriangle(bltriangle* dsp, int count, FAUSTFLOAT** inputs, FAUSTFLOAT** outputs) {

+    USED(inputs);

+

 	FAUSTFLOAT* output0 = outputs[0];

 	float fSlow0 = (float)dsp->fHslider0;

 	float fSlow1 = (dsp->fConst1 * (fSlow0 * (float)dsp->fHslider1));

@@ -151,6 +152,8 @@

 static void addHorizontalSlider(void* ui_interface, const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step)

 {

+    USED(label, init, min, max, step);

+

     sp_bltriangle *p = ui_interface;

     p->args[p->argpos] = zone;

     p->argpos++;

@@ -190,6 +193,7 @@

 int sp_bltriangle_compute(sp_data *sp, sp_bltriangle *p, SPFLOAT *in, SPFLOAT *out)

 {

+    USED(sp);

     bltriangle *dsp = p->ud;

     SPFLOAT out1 = 0;

--- a/modules/brown.c

+++ b/modules/brown.c

@@ -24,6 +24,8 @@

 int sp_brown_init(sp_data *sp, sp_brown *p)

 {

+    USED(sp);

+

     p->brown = 0.0;

     return SP_OK;

 }

@@ -30,6 +32,8 @@

 int sp_brown_compute(sp_data *sp, sp_brown *p, SPFLOAT *in, SPFLOAT *out)

 {

+    USED(in);

+

     SPFLOAT r;

     while (1) {

         r = (sp_rand(sp) % SP_RANDMAX) / (SPFLOAT)(SP_RANDMAX);

--- a/modules/butbp.c

+++ b/modules/butbp.c

@@ -47,6 +47,8 @@

 int sp_butbp_compute(sp_data *sp, sp_butbp *p, SPFLOAT *in, SPFLOAT *out)

 {

+    USED(sp);

+

     SPFLOAT *a;

     SPFLOAT t, y;

     SPFLOAT bw, fr;

--- a/modules/butbr.c

+++ b/modules/butbr.c

@@ -44,6 +44,8 @@

 int sp_butbr_compute(sp_data *sp, sp_butbr *p, SPFLOAT *in, SPFLOAT *out)

 {

+    USED(sp);

+

     SPFLOAT *a;

     SPFLOAT t, y;

     SPFLOAT bw, freq;

--- a/modules/buthp.c

+++ b/modules/buthp.c

@@ -58,6 +58,8 @@

 int sp_buthp_compute(sp_data *sp, sp_buthp *p, SPFLOAT *in, SPFLOAT *out)

 {

+    USED(sp);

+

     if (p->freq <= 0.0) {

         *out = 0;

         return SP_OK;

--- a/modules/butlp.c

+++ b/modules/butlp.c

@@ -56,6 +56,8 @@

 int sp_butlp_compute(sp_data *sp, sp_butlp *p, SPFLOAT *in, SPFLOAT *out)

 {

+    USED(sp);

+

     if (p->freq <= 0.0) {

         *out = 0;

         return SP_NOT_OK;

--- a/modules/clamp.c

+++ b/modules/clamp.c

@@ -17,6 +17,8 @@

 int sp_clamp_init(sp_data *sp, sp_clamp *p)

 {

+    USED(sp);

+

     p->min = 0;

     p->max = 1;

     return SP_OK;

@@ -24,6 +26,8 @@

 int sp_clamp_compute(sp_data *sp, sp_clamp *p, SPFLOAT *in, SPFLOAT *out)

 {

+    USED(sp);

+

     if (*in < p->min) *out = p->min;

     else if (*in > p->max) *out = p->max;

     else *out = *in;

--- a/modules/clock.c

+++ b/modules/clock.c

@@ -17,6 +17,8 @@

 int sp_clock_init(sp_data *sp, sp_clock *p)

 {

+    USED(sp);

+

     p->subdiv = 1.0;

     p->bpm = 120;

     p->counter = 0;

--- a/modules/compressor.c

+++ b/modules/compressor.c

@@ -25,7 +25,7 @@

 	FAUSTFLOAT fHslider3;

 } compressor;

-static compressor* newcompressor() {

+static compressor* newcompressor(void) {

 	compressor* dsp = (compressor*)malloc(sizeof(compressor));

 	return dsp;

 }

@@ -116,6 +116,8 @@

 static void addHorizontalSlider(void* ui_interface, const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step)

 {

+    USED(label, init, min, max, step);

+

     sp_compressor *p = ui_interface;

     p->args[p->argpos] = zone;

     p->argpos++;

@@ -158,6 +160,7 @@

 int sp_compressor_compute(sp_data *sp, sp_compressor *p, SPFLOAT *in, SPFLOAT *out)

 {

+    USED(sp);

     compressor *dsp = p->faust;

     SPFLOAT *faust_out[] = {out};

--- a/modules/count.c

+++ b/modules/count.c

@@ -17,6 +17,8 @@

 int sp_count_init(sp_data *sp, sp_count *p)

 {

+    USED(sp);

+

     p->count = 4;

     p->curcount = -1;

     p->mode = 0;

@@ -25,6 +27,8 @@

 int sp_count_compute(sp_data *sp, sp_count *p, SPFLOAT *in, SPFLOAT *out)

 {

+    USED(sp);

+

     if (*in){

         if (p->mode == 0) {

             p->curcount = (p->curcount + 1) % p->count;

--- a/modules/crossfade.c

+++ b/modules/crossfade.c

@@ -17,6 +17,8 @@

 int sp_crossfade_init(sp_data *sp, sp_crossfade *p)

 {

+    USED(sp);

+

     p->pos = 0.5;

     return SP_OK;

 }

@@ -23,6 +25,8 @@

 int sp_crossfade_compute(sp_data *sp, sp_crossfade *p, SPFLOAT *in1, SPFLOAT *in2, SPFLOAT *out)

 {

+    USED(sp);

+

     *out = *in2 * p->pos + *in1 * (1 - p->pos);

     return SP_OK;

 }

--- a/modules/dcblocker.c

+++ b/modules/dcblocker.c

@@ -24,6 +24,8 @@

 int sp_dcblocker_init(sp_data *sp, sp_dcblocker *p)

 {

+    USED(sp);

+

     p->dcblocker = malloc(sizeof(sk_dcblocker));

     sk_dcblocker_init(p->dcblocker);

     return SP_OK;

@@ -32,6 +34,8 @@

 int sp_dcblocker_compute(sp_data *sp, sp_dcblocker *p,

                          SPFLOAT *in, SPFLOAT *out)

 {

+    USED(sp);

+

     *out = sk_dcblocker_tick(p->dcblocker, *in);

     return SP_OK;

 }

--- a/modules/delay.c

+++ b/modules/delay.c

@@ -30,7 +30,9 @@

 int sp_delay_compute(sp_data *sp, sp_delay *p, SPFLOAT *in, SPFLOAT *out)

 {

-    SPFLOAT delay = 0, sig = 0;

+    USED(sp);

+

+    SPFLOAT delay, sig;

     SPFLOAT *buf = p->buf;

     delay = buf[p->bufpos];

     sig = (delay * p->feedback) + *in;

--- a/modules/diode.c

+++ b/modules/diode.c

@@ -28,6 +28,8 @@

 static SPFLOAT sp_diode_opva_fdbk_out(sp_data *sp, sp_diode *p, int filt)

 {

+    USED(sp);

+

     return p->opva_beta[filt] *

         (p->opva_z1[filt] + p->opva_fdbk[filt] * p->opva_delta[filt]);

 }

@@ -151,7 +153,7 @@

     int i;

     SPFLOAT sigma;

     SPFLOAT un;

-    SPFLOAT tmp = 0.0;

+    SPFLOAT tmp;

     /* update filter coefficients */

     p->K = p->res * 17;

--- a/modules/dmetro.c

+++ b/modules/dmetro.c

@@ -17,6 +17,8 @@

 int sp_dmetro_init(sp_data *sp, sp_dmetro *p)

 {

+    USED(sp);

+

     p->counter = 0;

     p->time = 1.0;

     return SP_OK;

@@ -24,6 +26,8 @@

 int sp_dmetro_compute(sp_data *sp, sp_dmetro *p, SPFLOAT *in, SPFLOAT *out)

 {

+    USED(in);

+

     *out = 0;

     if (p->counter == 0) {

--- a/modules/dtrig.c

+++ b/modules/dtrig.c

@@ -17,6 +17,8 @@

 int sp_dtrig_init(sp_data *sp, sp_dtrig *p, sp_ftbl *ft)

 {

+    USED(sp);

+

     p->ft = ft;

     p->counter = 0;

     p->pos = 0;

--- a/modules/fmpair.c

+++ b/modules/fmpair.c

@@ -45,6 +45,8 @@

 int sp_fmpair_compute(sp_data *sp, sp_fmpair *p,

                       SPFLOAT *in, SPFLOAT *out)

 {

+    USED(sp, in);

+

     sk_fmpair_freq(p->fmpair, p->freq);

     sk_fmpair_modulator(p->fmpair, p->mod);

     sk_fmpair_carrier(p->fmpair, p->car);

--- a/modules/foo.c

+++ b/modules/foo.c

@@ -23,6 +23,8 @@

 int sp_foo_init(sp_data *sp, sp_foo *p)

 {

+    USED(sp);

+

     /* Initalize variables here. */

     p->bar = 123;

     return SP_OK;

@@ -30,6 +32,8 @@

 int sp_foo_compute(sp_data *sp, sp_foo *p, SPFLOAT *in, SPFLOAT *out)

 {

+    USED(p, sp);

+

     /* Send the signal's input to the output */

     *out = *in;

     return SP_OK;

--- a/modules/ftbl.c

+++ b/modules/ftbl.c

@@ -16,6 +16,8 @@

 int sp_ftbl_create(sp_data *sp, sp_ftbl **ft, size_t size)

 {

+    USED(sp);

+

     sp_ftbl *ftp;

     *ft = malloc(sizeof(sp_ftbl));

     ftp = *ft;

@@ -29,6 +31,8 @@

 int sp_ftbl_bind(sp_data *sp, sp_ftbl **ft, SPFLOAT *tbl, size_t size)

 {

+    USED(sp);

+

     sp_ftbl *ftp;

     *ft = malloc(sizeof(sp_ftbl));

     ftp = *ft;

@@ -46,7 +50,7 @@

     return SP_OK;

 }

-static char * tokenize(char **next, int *size)

+static char * tokenize_(char **next, int *size)

 {

     char *token;

     char *str;

@@ -72,6 +76,8 @@

 int sp_gen_vals(sp_data *sp, sp_ftbl *ft, const char *string)

 {

+    USED(sp);

+

     int size;

     char *str;

     char *out;

@@ -85,7 +91,7 @@

     j = 0;

     while (size > 0) {

-        out = tokenize(&str, &size);

+        out = tokenize_(&str, &size);

         if (ft->size < j + 1) {

             ft->tbl = realloc(ft->tbl, sizeof(SPFLOAT) * (ft->size + 2));

             /* zero out new tables */

@@ -102,6 +108,8 @@

 int sp_gen_sine(sp_data *sp, sp_ftbl *ft)

 {

+    USED(sp);

+

     unsigned long i;

     SPFLOAT step = 2 * M_PI / ft->size;

     for (i = 0; i < ft->size; i++) {

@@ -112,6 +120,8 @@

 void sp_gen_triangle(sp_data *sp, sp_ftbl *ft)

 {

+    USED(sp);

+

     unsigned int i;

     unsigned int counter;

     SPFLOAT incr;

--- a/modules/in.c

+++ b/modules/in.c

@@ -19,6 +19,8 @@

 int sp_in_init(sp_data *sp, sp_in *p)

 {

+    USED(sp);

+

     p->fp = stdin;

     return SP_OK;

 }

@@ -25,6 +27,8 @@

 int sp_in_compute(sp_data *sp, sp_in *p, SPFLOAT *in, SPFLOAT *out)

 {

+    USED(sp, in);

+

     *out = 0;

     fread(out, sizeof(SPFLOAT), 1, p->fp);

     return SP_OK;

--- a/modules/incr.c

+++ b/modules/incr.c

@@ -26,6 +26,8 @@

 int sp_incr_init(sp_data *sp, sp_incr *p, SPFLOAT val)

 {

+    USED(sp);

+

     p->min = 0;

     p->max = 1;

     p->step = 0.1;

@@ -35,6 +37,8 @@

 int sp_incr_compute(sp_data *sp, sp_incr *p, SPFLOAT *in, SPFLOAT *out)

 {

+    USED(sp);

+

     if (*in > 0 ) {

         p->val += p->step;

         p->val = max(min(p->val, p->max), p->min);

--- a/modules/jcrev.c

+++ b/modules/jcrev.c

@@ -43,7 +43,7 @@

 } jcrev;

-jcrev* newjcrev() {

+jcrev* newjcrev(void) {

 	jcrev* dsp = (jcrev*)malloc(sizeof(jcrev));

 	return dsp;

 }

@@ -315,6 +315,7 @@

 int sp_jcrev_compute(sp_data *sp, sp_jcrev *p, SPFLOAT *in, SPFLOAT *out)

 {

+    USED(sp);

     jcrev *dsp = p->ud;

     SPFLOAT out1 = 0, out2 = 0, out3 = 0, out4 = 0;

--- a/modules/maygate.c

+++ b/modules/maygate.c

@@ -17,6 +17,8 @@

 int sp_maygate_init(sp_data *sp, sp_maygate *p)

 {

+    USED(sp);

+

     p->prob = 0.0;

     p->gate = 0;

     p->mode = 0;

--- a/modules/metro.c

+++ b/modules/metro.c

@@ -38,6 +38,8 @@

 int sp_metro_compute(sp_data *sp, sp_metro *p, SPFLOAT *in, SPFLOAT *out)

 {

+    USED(sp, in);

+

     SPFLOAT phs;

     phs = p->phs;

--- /dev/null

+++ b/modules/mkfile

@@ -1,0 +1,97 @@

+<../mkfile.common

+

+LIB=libspmodules.a$O

+

+OFILES=\

+	adsr.$O\

+	autowah.$O\

+	base.$O\

+	bigverb.$O\

+	biscale.$O\

+	bitcrush.$O\

+	blsaw.$O\

+	blsquare.$O\

+	bltriangle.$O\

+	brown.$O\

+	butbp.$O\

+	butbr.$O\

+	buthp.$O\

+	butlp.$O\

+	clamp.$O\

+	clock.$O\

+	compressor.$O\

+	count.$O\

+	crossfade.$O\

+	dcblocker.$O\

+	delay.$O\

+	diode.$O\

+	dmetro.$O\

+	dtrig.$O\

+	expon.$O\

+	fftwrapper.$O\

+	fmpair.$O\

+	ftbl.$O\

+	in.$O\

+	incr.$O\

+	jcrev.$O\

+	line.$O\

+	loadwav.$O\

+	lpc.$O\

+	maygate.$O\

+	metro.$O\

+	modalres.$O\

+	noise.$O\

+	nsmp.$O\

+	osc.$O\

+	oscmorph.$O\

+	padsynth.$O\

+	paulstretch.$O\

+	peakeq.$O\

+	peaklim.$O\

+	phaser.$O\

+	phasewarp.$O\

+	phasor.$O\

+	pinknoise.$O\

+	prop.$O\

+	pshift.$O\

+	randh.$O\

+	randmt.$O\

+	random.$O\

+	reverse.$O\

+	rline.$O\

+	rpt.$O\

+	samphold.$O\

+	saturator.$O\

+	scale.$O\

+	scrambler.$O\

+	sdelay.$O\

+	slice.$O\

+	smoothdelay.$O\

+	smoother.$O\

+	spa.$O\

+	sparec.$O\

+	switch.$O\

+	tadsr.$O\

+	talkbox.$O\

+	tblrec.$O\

+	tdiv.$O\

+	tenv.$O\

+	tenv2.$O\

+	tenvx.$O\

+	tgate.$O\

+	thresh.$O\

+	timer.$O\

+	tin.$O\

+	trand.$O\

+	tread.$O\

+	tseg.$O\

+	tseq.$O\

+	vardelay.$O\

+	verbity.$O\

+	voc.$O\

+	wavin.$O\

+	wavout.$O\

+	wpkorg35.$O\

+	zitarev.$O\

+

+</sys/src/cmd/mklib

--- a/modules/modalres.c

+++ b/modules/modalres.c

@@ -37,6 +37,8 @@

 int sp_modalres_compute(sp_data *sp, sp_modalres *p,

                          SPFLOAT *in, SPFLOAT *out)

 {

+    USED(sp);

+

     sk_modalres_freq(p->modalres, p->freq);

     sk_modalres_q(p->modalres, p->q);

     *out = sk_modalres_tick(p->modalres, *in);

--- a/modules/noise.c

+++ b/modules/noise.c

@@ -12,6 +12,8 @@

 int sp_noise_init(sp_data *sp, sp_noise *ns)

 {

+    USED(sp);

+

     ns->amp = 1.0;

     return SP_OK;

 }

@@ -18,6 +20,8 @@

 int sp_noise_compute(sp_data *sp, sp_noise *ns, SPFLOAT *in, SPFLOAT *out)

 {

+    USED(sp, in);

+

     *out = ((sp_rand(sp) % SP_RANDMAX) / (SP_RANDMAX * 1.0));

     *out = (*out * 2) - 1;

     *out *= ns->amp;

--- a/modules/nsmp.c

+++ b/modules/nsmp.c

@@ -114,6 +114,8 @@

 int nano_compute(sp_data *sp, nanosamp *smp, SPFLOAT *out)

 {

+    USED(sp);

+

     if (!smp->selected) {

         *out = 0;

         return SP_NOT_OK;

@@ -120,8 +122,8 @@

     }

     if (smp->curpos < (SPFLOAT)smp->sample->size) {

-        SPFLOAT x1 = 0 , x2 = 0, frac = 0, tmp = 0;

-        uint32_t index = 0;

+        SPFLOAT x1 , x2, frac, tmp;

+        uint32_t index;

         SPFLOAT *tbl = smp->ft->tbl;

         tmp = (smp->curpos + smp->sample->pos);

@@ -206,6 +208,8 @@

 int sp_nsmp_init(sp_data *sp, sp_nsmp *p, sp_ftbl *ft, int sr, const char *ini)

 {

+    USED(sp);

+

     if (nano_create(&p->smp, ini, sr) == SP_NOT_OK) {

         nano_destroy(&p->smp);

         return SP_NOT_OK;

@@ -236,6 +240,8 @@

 int sp_nsmp_print_index(sp_data *sp, sp_nsmp *p)

 {

+    USED(sp);

+

     uint32_t i;

     for (i = 0; i < p->smp->dict.nval; i++) {

         printf("%d: key = %s\n", i, p->smp->index[i]->name);

--- a/modules/osc.c

+++ b/modules/osc.c

@@ -33,6 +33,8 @@

 int sp_osc_compute(sp_data *sp, sp_osc *osc, SPFLOAT *in, SPFLOAT *out)

 {

+    USED(sp, in);

+

     sk_osc_freq(osc->osc, osc->freq);

     sk_osc_amp(osc->osc, osc->amp);

     *out = sk_osc_tick(osc->osc);

--- a/modules/oscmorph.c

+++ b/modules/oscmorph.c

@@ -65,6 +65,8 @@

                         SPFLOAT *in,

                         SPFLOAT *out)

 {

+    USED(sp, in);

+

     sp_ftbl *ftp1;

     SPFLOAT amp, cps, fract, v1, v2;

     SPFLOAT *ft1, *ft2;

--- a/modules/padsynth.c

+++ b/modules/padsynth.c

@@ -24,14 +24,12 @@

 {

     int i, nh;

-    int N = (int) ps->size;

-    int number_harmonics = (int) amps->size;

-    SPFLOAT *A = amps->tbl;

-    SPFLOAT *smp = ps->tbl;

-

-    SPFLOAT *freq_amp = malloc((N / 2) * sizeof(SPFLOAT));

-    SPFLOAT *freq_phase = malloc((N / 2) * sizeof(SPFLOAT));

-

+    int N;

+    int number_harmonics;

+    SPFLOAT *A;

+    SPFLOAT *smp;

+    SPFLOAT *freq_amp;

+    SPFLOAT *freq_phase;

     N = (int) ps->size;

     number_harmonics = (int) amps->size;

--- a/modules/paulstretch.c

+++ b/modules/paulstretch.c

@@ -157,6 +157,8 @@

 int sp_paulstretch_compute(sp_data *sp, sp_paulstretch *p, SPFLOAT *in, SPFLOAT *out)

 {

+    USED(in);

+

     if (p->counter == 0) compute_block(sp, p, NULL);

     *out = p->output[p->counter];

--- a/modules/peakeq.c

+++ b/modules/peakeq.c

@@ -39,6 +39,8 @@

 int sp_peakeq_compute(sp_data *sp, sp_peakeq *p,

                          SPFLOAT *in, SPFLOAT *out)

 {

+    USED(sp);

+

     sk_peakeq_freq(p->peakeq, p->freq);

     sk_peakeq_bandwidth(p->peakeq, p->bw);

     sk_peakeq_gain(p->peakeq, p->gain);

--- a/modules/peaklim.c

+++ b/modules/peaklim.c

@@ -33,6 +33,8 @@

 int sp_peaklim_init(sp_data *sp, sp_peaklim *p)

 {

+    USED(sp);

+

     p->a1_r = 0;

     p->b0_r = 1;

     p->a1_a = 0;

@@ -47,9 +49,8 @@

 int sp_peaklim_compute(sp_data *sp, sp_peaklim *p, SPFLOAT *in, SPFLOAT *out)

 {

-

-    SPFLOAT db_gain = 0;

-    SPFLOAT gain = 0;

+    SPFLOAT db_gain;

+    SPFLOAT gain;

     /* change coefficients, if needed */

--- a/modules/phaser.c

+++ b/modules/phaser.c

@@ -55,7 +55,7 @@

 } phaser;

-phaser* newphaser() {

+phaser* newphaser(void) {

 	phaser* dsp = (phaser*)malloc(sizeof(phaser));

 	return dsp;

 }

@@ -302,6 +302,8 @@

 static void addHorizontalSlider(void* ui_interface, const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step)

 {

+    USED(label, init, min, max, step);

+

     sp_phaser *p = ui_interface;

     p->args[p->argpos] = zone;

     p->argpos++;

@@ -309,6 +311,8 @@

 static void addCheckButton (void* ui_interface, const char* label, FAUSTFLOAT* zone)

 {

+    USED(label);

+

     sp_phaser *p = ui_interface;

     p->args[p->argpos] = zone;

     p->argpos++;

@@ -359,6 +363,8 @@

 int sp_phaser_compute(sp_data *sp, sp_phaser *p,

 	SPFLOAT *in1, SPFLOAT *in2, SPFLOAT *out1, SPFLOAT *out2)

 {

+    USED(sp);

+

     phaser *dsp = p->faust;

     SPFLOAT *faust_out[] = {out1, out2};

     SPFLOAT *faust_in[] = {in1, in2};

--- a/modules/phasewarp.c

+++ b/modules/phasewarp.c

@@ -20,6 +20,8 @@

 int sp_phasewarp_init(sp_data *sp, sp_phasewarp *p)

 {

+    USED(sp, p);

+

     return SP_OK;

 }

@@ -26,6 +28,8 @@

 int sp_phasewarp_compute(sp_data *sp, sp_phasewarp *p,

                          SPFLOAT *in, SPFLOAT *out)

 {

+    USED(sp);

+

     *out = sk_phasewarp_tick(*in, p->amount);

     return SP_OK;

 }

--- a/modules/phasor.c

+++ b/modules/phasor.c

@@ -39,6 +39,8 @@

 int sp_phasor_compute(sp_data *sp, sp_phasor *p, SPFLOAT *in, SPFLOAT *out)

 {

+    USED(sp, in);

+

     sk_phasor_freq(p->phasor, p->freq);

     *out = sk_phasor_tick(p->phasor);

     return SP_OK;

@@ -46,6 +48,8 @@

 int sp_phasor_reset(sp_data *sp, sp_phasor *p, SPFLOAT iphs)

 {

+    USED(sp);

+

     sk_phasor_reset(p->phasor, iphs);

     return SP_OK;

 }

--- a/modules/pinknoise.c

+++ b/modules/pinknoise.c

@@ -53,6 +53,8 @@

 int sp_pinknoise_compute(sp_data *sp, sp_pinknoise *p, SPFLOAT *in, SPFLOAT *out)

 {

+    USED(sp, in);

+

     short tmp;

     uint32_t k;

     k = ctz[p->counter & 63];

--- a/modules/prop.c

+++ b/modules/prop.c

@@ -70,6 +70,8 @@

 int sp_prop_init(sp_data *sp, sp_prop *p, const char *str)

 {

+    USED(sp);

+

     p->count = 0;

     prop_create(&p->prp);

@@ -86,6 +88,8 @@

 int sp_prop_compute(sp_data *sp, sp_prop *p, SPFLOAT *in, SPFLOAT *out)

 {

+    USED(in);

+

     if (p->count == 0) {

         if (p->bpm != p->lbpm) {

             p->prp->scale = (SPFLOAT) 60.0 / p->bpm;

@@ -339,7 +343,7 @@

     }

 }

-prop_event prop_next(sp_data *sp, prop_data *pd)

+static prop_event prop_next(sp_data *sp, prop_data *pd)

 {

 /*

     prop_list *lst = pd->main;

@@ -567,6 +571,8 @@

 int sp_prop_reset(sp_data *sp, sp_prop *p)

 {

+    USED(sp);

+

     back_to_top(p->prp);

     p->count = 0;

     return SP_OK;

--- a/modules/pshift.c

+++ b/modules/pshift.c

@@ -10,10 +10,6 @@

 #define FAUSTFLOAT SPFLOAT

 #endif

-

-float powf(float dummy0, float dummy1);

-float fmodf(float dummy0, float dummy1);

-

 typedef struct {

 	float fVec0[65536];

 	float fRec0[2];

@@ -24,7 +20,7 @@

 	int fSamplingFreq;

 } pshift;

-static pshift* newpshift() {

+static pshift* newpshift(void) {

 	pshift* dsp = (pshift*)malloc(sizeof(pshift));

 	return dsp;

 }

@@ -100,6 +96,8 @@

 static void addHorizontalSlider(void* ui_interface, const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step)

 {

+    USED(label, init, min, max, step);

+

     sp_pshift *p = ui_interface;

     p->args[p->argpos] = zone;

     p->argpos++;

@@ -141,6 +139,7 @@

 int sp_pshift_compute(sp_data *sp, sp_pshift *p, SPFLOAT *in, SPFLOAT *out)

 {

+    USED(sp);

     pshift *dsp = p->faust;

     SPFLOAT out1 = 0;

--- a/modules/randh.c

+++ b/modules/randh.c

@@ -28,6 +28,8 @@

 int sp_randh_compute(sp_data *sp, sp_randh *p, SPFLOAT *in, SPFLOAT *out)

 {

+    USED(in);

+

     if (p->counter == 0) {

         p->val = p->min + ((SPFLOAT) sp_rand(sp) / SP_RANDMAX) * (p->max - p->min);

--- a/modules/random.c

+++ b/modules/random.c

@@ -17,6 +17,8 @@

 int sp_random_init(sp_data *sp, sp_random *p)

 {

+    USED(sp);

+

     p->min = -1;

     p->max = 1;

     return SP_OK;

@@ -24,6 +26,8 @@

 int sp_random_compute(sp_data *sp, sp_random *p, SPFLOAT *in, SPFLOAT *out)

 {

+    USED(sp, in);

+

     /* Send the signal's input to the output */

     SPFLOAT rnd = ((sp_rand(sp) % RAND_MAX) / (RAND_MAX * 1.0));

     rnd *= (p->max - p->min);

--- a/modules/reverse.c

+++ b/modules/reverse.c

@@ -28,6 +28,8 @@

 int sp_reverse_compute(sp_data *sp, sp_reverse *p, SPFLOAT *in, SPFLOAT *out)

 {

+    USED(sp);

+

     SPFLOAT *buf = p->buf;

     *out = buf[p->bufpos];

     buf[(p->bufsize - 1) - p->bufpos] = *in;

--- a/modules/rline.c

+++ b/modules/rline.c

@@ -39,6 +39,8 @@

 int sp_rline_compute(sp_data *sp, sp_rline *p,

                          SPFLOAT *in, SPFLOAT *out)

 {

+    USED(sp, in);

+

     sk_rline_min(p->rline, p->min);

     sk_rline_max(p->rline, p->max);

     sk_rline_rate(p->rline, p->cps);

--- a/modules/rpt.c

+++ b/modules/rpt.c

@@ -41,6 +41,8 @@

 int sp_rpt_compute(sp_data *sp, sp_rpt *p, SPFLOAT *trig,

         SPFLOAT *in, SPFLOAT *out)

 {

+    USED(sp);

+

     SPFLOAT *buf = p->buf;

     if (p->rc == SP_NOT_OK) {

--- a/modules/samphold.c

+++ b/modules/samphold.c

@@ -17,6 +17,8 @@

 int sp_samphold_init(sp_data *sp, sp_samphold *p)

 {

+    USED(sp);

+

     p->val = 0;

     return SP_OK;

 }

@@ -23,6 +25,8 @@

 int sp_samphold_compute(sp_data *sp, sp_samphold *p, SPFLOAT *trig, SPFLOAT *in, SPFLOAT *out)

 {

+    USED(sp);

+

     if(*trig != 0) {

         p->val = *in;

     }

--- a/modules/saturator.c

+++ b/modules/saturator.c

@@ -14,9 +14,6 @@

     b0 = acoefs[0]; b1 = acoefs[1]; b2 = acoefs[2];

     a0 = acoefs[3]; a1 = acoefs[4]; a2 = acoefs[5];

-    bz0 = 1.0; bz1 = 0.0; bz2 = 0.0;

-    az0 = 1.0; az1 = 0.0; az2 = 0.0;

-

     az0 = a2*4*fs*fs + a1*2*fs + a0;

     bz2 = (b2*4*fs*fs - b1*2*fs + b0) / az0;

@@ -88,6 +85,8 @@

 int sp_saturator_compute(sp_data *sp, sp_saturator *p, SPFLOAT *in, SPFLOAT *out)

 {

+    USED(sp);

+

     int i, j;

     SPFLOAT fsignal, usignal, dsignal;

--- a/modules/scale.c

+++ b/modules/scale.c

@@ -18,6 +18,8 @@

 int sp_scale_init(sp_data *sp, sp_scale *p)

 {

+    USED(sp);

+

     p->min = -1;

     p->max = 1;

     return SP_OK;

@@ -25,6 +27,8 @@

 int sp_scale_compute(sp_data *sp, sp_scale *p, SPFLOAT *in, SPFLOAT *out)

 {

+    USED(sp);

+

     *out = sk_scale(*in, p->min, p->max);

     return SP_OK;

 }

--- a/modules/scrambler.c

+++ b/modules/scrambler.c

@@ -44,7 +44,6 @@

     kiss_fftri(ifft, tmp, dst->tbl);

     max = -1;

-    val = 0;

     for(i = 0; i < size; i++) {

         val = fabs(dst->tbl[i]);

         if(val > max) {

--- a/modules/sdelay.c

+++ b/modules/sdelay.c

@@ -26,6 +26,8 @@

 int sp_sdelay_init(sp_data *sp, sp_sdelay *p, int size)

 {

+    USED(sp);

+

     int n;

     p->size = size;

     p->buf = malloc(size * sizeof(SPFLOAT));

@@ -36,6 +38,8 @@

 int sp_sdelay_compute(sp_data *sp, sp_sdelay *p, SPFLOAT *in, SPFLOAT *out)

 {

+    USED(sp);

+

     *out = p->buf[p->pos];

     p->buf[p->pos] = *in;

     p->pos = (p->pos + 1) % p->size;

--- a/modules/slice.c

+++ b/modules/slice.c

@@ -17,6 +17,8 @@

 int sp_slice_init(sp_data *sp, sp_slice *p, sp_ftbl *vals, sp_ftbl *buf)

 {

+    USED(sp);

+

     p->vals = vals;

     p->buf = buf;

     p->pos = 0;

@@ -27,6 +29,8 @@

 int sp_slice_compute(sp_data *sp, sp_slice *p, SPFLOAT *in, SPFLOAT *out)

 {

+    USED(sp);

+

     *out = 0;

     if(*in != 0) {

         if(p->id < p->vals->size) {

--- a/modules/smoother.c

+++ b/modules/smoother.c

@@ -48,6 +48,8 @@

 int sp_smoother_compute(sp_data *sp, sp_smoother *p, SPFLOAT *in, SPFLOAT *out)

 {

+    USED(sp);

+

     if (p->psmooth != p->smooth) {

         p->a1 = pow(0.5, p->onedsr/p->smooth);

         p->b0 = 1.0 - p->a1;

@@ -61,6 +63,8 @@

 int sp_smoother_reset(sp_data *sp, sp_smoother *p, SPFLOAT *in)

 {

+    USED(sp);

+

     p->y0 = *in;

     return SP_OK;

 }

--- a/modules/spa.c

+++ b/modules/spa.c

@@ -2,6 +2,7 @@

 #include <stdlib.h>

 #include "soundpipe.h"

+#include "../lib/spa/spa.h"

 #define SPA_BUFSIZE 4096

@@ -36,6 +37,8 @@

 int sp_spa_compute(sp_data *sp, sp_spa *p, SPFLOAT *in, SPFLOAT *out)

 {

+    USED(in);

+

     if (p->bufsize == 0) {

         *out = 0.0;

         return SP_OK;

--- a/modules/sparec.c

+++ b/modules/sparec.c

@@ -2,6 +2,7 @@

 #include <stdlib.h>

 #include "soundpipe.h"

+#include "../lib/spa/spa.h"

 #define SPA_BUFSIZE 4096

--- a/modules/switch.c

+++ b/modules/switch.c

@@ -17,6 +17,8 @@

 int sp_switch_init(sp_data *sp, sp_switch *p)

 {

+    USED(sp);

+

     p->mode = 0;

     return SP_OK;

 }

@@ -24,6 +26,8 @@

 int sp_switch_compute(sp_data *sp, sp_switch *p, SPFLOAT *trig,

     SPFLOAT *in1, SPFLOAT *in2, SPFLOAT *out)

 {

+    USED(sp);

+

     if (*trig) {

         p->mode = p->mode == 0 ? 1 : 0;

     }

--- a/modules/tadsr.c

+++ b/modules/tadsr.c

@@ -47,6 +47,8 @@

 static void ADSR_setSustainLevel(sp_data *sp, sp_tadsr *a, SPFLOAT aLevel)

 {

+    USED(sp);

+

    a->sustainLevel = aLevel;

 }

@@ -122,6 +124,8 @@

 int sp_tadsr_init(sp_data *sp, sp_tadsr *p)

 {

+    USED(sp);

+

     make_ADSR(p);

     p->atk = 0.5;

     p->dec = 0.5;

--- a/modules/talkbox.c

+++ b/modules/talkbox.c

@@ -172,7 +172,7 @@

         if(++p0 >= t->N) { lpc(t->buf0, t->car0, t->N, t->O);  p0 = 0; }

         w = 1.0f - w;  fx += t->buf1[p1] * w;  t->buf1[p1] = x * w;

-        if(++p1 >= t->N) { lpc(t->buf1, t->car1, t->N, t->O);  p1 = 0; }

+        if(++p1 >= t->N) { lpc(t->buf1, t->car1, t->N, t->O); }

     }

     p = t->u0 + h0 * fx;

--- a/modules/tblrec.c

+++ b/modules/tblrec.c

@@ -18,6 +18,8 @@

 int sp_tblrec_init(sp_data *sp, sp_tblrec *p, sp_ftbl *ft)

 {

+    USED(sp);

+

     p->index = 0;

     p->record = 0;

     p->ft = ft;

@@ -26,6 +28,8 @@

 int sp_tblrec_compute(sp_data *sp, sp_tblrec *p, SPFLOAT *in, SPFLOAT *trig, SPFLOAT *out)

 {

+    USED(sp);

+

     if(*trig != 0) {

         if(p->record == 1) {

             p->record = 0;

--- a/modules/tdiv.c

+++ b/modules/tdiv.c

@@ -17,6 +17,8 @@

 int sp_tdiv_init(sp_data *sp, sp_tdiv *p)

 {

+    USED(sp);

+

     p->num = 2;

     p->counter = 0;

     p->offset = 0;

@@ -25,6 +27,8 @@

 int sp_tdiv_compute(sp_data *sp, sp_tdiv *p, SPFLOAT *in, SPFLOAT *out)

 {

+    USED(sp);

+

     *out = 0.0;

     if(*in != 0) {

         if(p->counter == p->offset) *out = 1.0;

--- a/modules/tenv.c

+++ b/modules/tenv.c

@@ -29,7 +29,7 @@

 static void sp_tenv_comp(void *ud, SPFLOAT *out)

 {

     sp_tenv *env = ud;

-    SPFLOAT sig = 0;

+    SPFLOAT sig;

     uint32_t pos = env->pos;

     *out = 0.0;

@@ -80,6 +80,8 @@

 int sp_tenv_compute(sp_data *sp, sp_tenv *p, SPFLOAT *in, SPFLOAT *out)

 {

+    USED(sp);

+

     if (*in) {

         sp_tenv_reinit(p);

         p->started = 1;

--- a/modules/tenv2.c

+++ b/modules/tenv2.c

@@ -23,6 +23,8 @@

 int sp_tenv2_init(sp_data *sp, sp_tenv2 *p)

 {

+    USED(sp);

+

     p->state = T_INIT;

     p->atk = 0.1;

     p->rel = 0.1;

@@ -49,7 +51,6 @@

     if(p->timer == 0) {

         if(p->state == T_ON) *out = 1;

         else *out = 0;

-        return SP_OK;

     } else {

         p->timer--;

         if(p->state == T_ON)  {

@@ -62,8 +63,6 @@

         if(*out < 0) *out = 0;

         p->last = *out;

-

-        return SP_OK;

     }

     return SP_OK;

 }

--- a/modules/tgate.c

+++ b/modules/tgate.c

@@ -17,6 +17,8 @@

 int sp_tgate_init(sp_data *sp, sp_tgate *p)

 {

+    USED(sp);

+

     p->time = 0;

     p->timer = 0;

     return SP_OK;

--- a/modules/thresh.c

+++ b/modules/thresh.c

@@ -17,6 +17,8 @@

 int sp_thresh_init(sp_data *sp, sp_thresh *p)

 {

+    USED(sp);

+

     /* Initalize variables here. */

     p->init = 1;

     p->mode = 0;

@@ -27,6 +29,8 @@

 int sp_thresh_compute(sp_data *sp, sp_thresh *p, SPFLOAT *in, SPFLOAT *out)

 {

+    USED(sp);

+

     if(p->init) {

         *out = 0;

         p->prev = *in;

--- a/modules/timer.c

+++ b/modules/timer.c

@@ -17,6 +17,8 @@

 int sp_timer_init(sp_data *sp, sp_timer *p)

 {

+    USED(sp);

+

     p->mode = 0;

     p->pos = 0;

     p->time = 0;

--- a/modules/tin.c

+++ b/modules/tin.c

@@ -17,6 +17,8 @@

 int sp_tin_init(sp_data *sp, sp_tin *p)

 {

+    USED(sp);

+

     p->fp = stdin;

     p->val = 0;

     return SP_OK;

@@ -24,6 +26,8 @@

 int sp_tin_compute(sp_data *sp, sp_tin *p, SPFLOAT *in, SPFLOAT *out)

 {

+    USED(sp);

+

     if(*in) {

         fread(&p->val, sizeof(SPFLOAT), 1, p->fp);

     }

--- a/modules/trand.c

+++ b/modules/trand.c

@@ -17,6 +17,8 @@

 int sp_trand_init(sp_data *sp, sp_trand *p)

 {

+    USED(sp);

+

     p->min = 0;

     p->max = 1;

     p->val = 0;

--- a/modules/tread.c

+++ b/modules/tread.c

@@ -16,6 +16,8 @@

 int sp_tread_init(sp_data *sp, sp_tread *p, sp_ftbl *ft, int mode)

 {

+    USED(sp);

+

     p->ft = ft;

     p->mode = mode;

     p->offset = 0;

@@ -25,6 +27,8 @@

 int sp_tread_compute(sp_data *sp, sp_tread *p, SPFLOAT *in, SPFLOAT *out)

 {

+    USED(sp, in);

+

     int ipos;

     SPFLOAT *tbl = p->ft->tbl;

     SPFLOAT mul, tmp, fpos;

--- a/modules/tseq.c

+++ b/modules/tseq.c

@@ -17,6 +17,8 @@

 int sp_tseq_init(sp_data *sp, sp_tseq *p, sp_ftbl *ft)

 {

+    USED(sp);

+

     p->ft = ft;

     p->pos = -1;

     p->val = 0;

--- a/modules/vardelay.c

+++ b/modules/vardelay.c

@@ -44,6 +44,8 @@

                        SPFLOAT *in,

                        SPFLOAT *out)

 {

+    USED(sp);

+

     sk_vardelay_delay(p->v, p->del);

     sk_vardelay_feedback(p->v, p->feedback);

     *out = sk_vardelay_tick(p->v, *in);

--- a/modules/verbity.c

+++ b/modules/verbity.c

@@ -166,6 +166,8 @@

                        SPFLOAT *inL, SPFLOAT *inR,

                        SPFLOAT *outL, SPFLOAT *outR)

 {

+    USED(sp);

+

 	SPFLOAT overallscale;

 	int cycleEnd;

 	SPFLOAT size;

--- a/modules/voc.c

+++ b/modules/voc.c

@@ -132,6 +132,7 @@

 static void glottis_setup_waveform(glottis *glot, SPFLOAT lambda)

 {

+    USED(lambda);

     SPFLOAT Rd;

     SPFLOAT Ra;

@@ -228,7 +229,6 @@

     SPFLOAT t;

     SPFLOAT intensity;

-    out = 0;

     intensity = 1.0;

     glot->time_in_waveform += glot->T;

@@ -379,11 +379,9 @@

     if(current < target) {

         tmp = current + amt_up;

         return MIN(tmp, target);

-    } else {

-        tmp = current - amt_down;

-        return MAX(tmp, target);

     }

-    return 0.0;

+    tmp = current - amt_down;

+    return MAX(tmp, target);

 }

 static void tract_reshape(tract *tr)

@@ -399,7 +397,6 @@

     amount = tr->block_time * tr->movement_speed;

     for(i = 0; i < tr->n; i++) {

-        slow_return = 0;

         diameter = tr->diameter[i];

         target_diameter = tr->target_diameter[i];

@@ -474,7 +471,6 @@

     for(i = 0; i < tr->n; i++) {

-        diameter = 0;

         if(i < 7 * (SPFLOAT)tr->n / 44 - 0.5) {

             diameter = 0.6;

         } else if( i < 12 * (SPFLOAT)tr->n / 44) {

@@ -527,7 +523,9 @@

     SPFLOAT  in,

     SPFLOAT  lambda)

 {

-     SPFLOAT  r, w;

+    USED(sp);

+

+    SPFLOAT  r, w;

     int i;

     SPFLOAT  amp;

     int current_size;

@@ -730,6 +728,7 @@

     SPFLOAT tongue_index,

     SPFLOAT tongue_diameter,

     SPFLOAT *diameters) {

+    USED(voc);

     int i;

     SPFLOAT t;

--- a/modules/wavin.c

+++ b/modules/wavin.c

@@ -32,6 +32,8 @@

 int sp_wavin_init(sp_data *sp, sp_wavin *p, const char *filename)

 {

+    USED(sp);

+

     p->count = 0;

     p->pos = 0;

     p->buf_start = 0;

@@ -52,6 +54,8 @@

 int sp_wavin_compute(sp_data *sp, sp_wavin *p, SPFLOAT *in, SPFLOAT *out)

 {

+    USED(in);

+

     if (p->pos > sp_drwav_sampcount(p->wav)) {

         *out = 0;

         return SP_OK;

@@ -100,6 +104,8 @@

 int sp_wavin_seek(sp_data *sp, sp_wavin *p, unsigned long sample)

 {

+    USED(sp);

+

     sp_drwav_seek_to_sample(p->wav, sample);

     return SP_OK;

 }

--- a/modules/wavout.c

+++ b/modules/wavout.c

@@ -38,6 +38,8 @@

 int sp_wavout_compute(sp_data *sp, sp_wavout *p, SPFLOAT *in, SPFLOAT *out)

 {

+    USED(sp);

+

     *out = *in;

     if(p->count == WAVOUT_BUFSIZE) {

         sp_drwav_write(p->wav, WAVOUT_BUFSIZE, p->buf);

--- a/modules/wpkorg35.c

+++ b/modules/wpkorg35.c

@@ -39,6 +39,8 @@

 SPFLOAT wpk_doFilter(sp_wpkorg35 *wpk)

 {

+    USED(wpk);

+

     return 0.0;

 }

@@ -95,12 +97,6 @@

     SPFLOAT vn;

     if(p->pcutoff != p->cutoff || p->pres != p->res) update(sp, p);

-

-    y1 = 0.0;

-    S35 = 0.0;

-    u = 0.0;

-    y = 0.0;

-    vn = 0.0;

     /* process input through LPF1 */

     vn = (*in - p->lpf1_z) * p->lpf1_a;

--- a/modules/zitarev.c

+++ b/modules/zitarev.c

@@ -22,18 +22,11 @@

 #define FAUSTFLOAT float

 #endif

-float powf(float dummy0, float dummy1);

-float sqrtf(float dummy0);

-float cosf(float dummy0);

-float floorf(float dummy0);

-float expf(float dummy0);

 static float faustpower2_f(float value) {

 	return (value * value);

 }

-float tanf(float dummy0);

-

 typedef struct {

 	float fVec1[32768];

@@ -153,7 +146,7 @@

 } zitarev;

-static zitarev* newzitarev() {

+static zitarev* newzitarev(void) {

 	zitarev* dsp = (zitarev*)malloc(sizeof(zitarev));

 	return dsp;

 }

@@ -1005,6 +998,8 @@

 static void addHorizontalSlider(void* ui_interface, const char* label, FAUSTFLOAT* zone, FAUSTFLOAT init, FAUSTFLOAT min, FAUSTFLOAT max, FAUSTFLOAT step)

 {

+    USED(label, init, min, max, step);

+

     sp_zitarev *p = ui_interface;

     p->args[p->argpos] = zone;

     p->argpos++;

@@ -1053,6 +1048,7 @@

 int sp_zitarev_compute(sp_data *sp, sp_zitarev *p, SPFLOAT *in1, SPFLOAT *in2, SPFLOAT *out1, SPFLOAT *out2)

 {

+    USED(sp);

     zitarev *dsp = p->faust;

     SPFLOAT *faust_out[] = {out1, out2};

--- a/util/data2html.lua

+++ b/util/data2html.lua

@@ -1,4 +1,4 @@

-#!/usr/bin/env lua

+#!/bin/lu9

 -- Parse a lua table in modules/data and write text

 -- to run: lua sp.lua "foo"

--- a/util/data2txt.lua

+++ b/util/data2txt.lua

@@ -1,4 +1,4 @@

-#!/usr/local/bin/lua

+#!/bin/lu9

 -- Parse a lua table in modules/data and write text

 -- to run: lua sp.lua "foo"

@@ -46,14 +46,16 @@

     io.write(string.format("%s(sp_data *sp, sp_%s *%s", 

         tbl.func.init, self.name, self.name))

-    

-    for _, v in pairs(tbl.params.mandatory) do

-        if(string.byte(v.type, string.len(v.type)) == 42) then

-        arg = string.format(", %s%s", v.type, v.name)

-        else

-        arg = string.format(", %s %s", v.type, v.name)

+    tbl = tbl.params.mandatory

+    if tbl then

+        for _, v in pairs(tbl) do

+            if(string.byte(v.type, string.len(v.type)) == 42) then

+            arg = string.format(", %s%s", v.type, v.name)

+            else

+            arg = string.format(", %s %s", v.type, v.name)

+            end

+            io.write(arg)

         end

-        io.write(arg)

     end

     io.write(")\n")

@@ -78,67 +80,73 @@

 	self:initf(sp)   

 	self:computef(sp)

 	self:destroyf(sp)   

-	io.write("\n")

+    io.write("\n")

 end

 function PG.man_params(self,sp)

-    self:printheader("Mandatory Parameters")

     local tbl = sp[self.name].params.mandatory

-    for _, v in pairs(tbl) do

-        io.write(string.format("%s: ", v.name))

-        io.write(v.description)

-        io.write(string.format("\n(Recommended value: %s)\n\n", v.default))

+    if tbl then

+        self:printheader("Mandatory Parameters")

+        for _, v in pairs(tbl) do

+            io.write(string.format("%s: ", v.name))

+            io.write(v.description)

+            io.write(string.format("\n(Recommended value: %s)\n\n", v.default))

+        end

     end

- end

+end

 function PG.opt_params(self,sp)

-    self:printheader("Optional Parameters:")

     local tbl = sp[self.name].params.optional

-    for _, v in pairs(tbl) do

-        io.write(string.format("*%s*: ", v.name))

-        io.write(v.description)

-        io.write(string.format("\n(Default value: %s)\n\n", v.default))

+    if tbl then

+        self:printheader("Optional Parameters:")

+        for _, v in pairs(tbl) do

+            io.write(string.format("*%s*: ", v.name))

+            io.write(v.description)

+            io.write(string.format("\n(Default value: %s)\n\n", v.default))

+        end

     end

 end

 function PG.inputs(self, sp)

-    self:printheader("Inputs:")

     local tbl = sp[self.name].inputs

-    for _, v in pairs(tbl) do

-        io.write(string.format("*%s*: ", v.name))

-        io.write(v.description .. "\n\n")

-    end

-	io.write("\n")

+    if tbl then

+        self:printheader("Inputs:")

+        for _, v in pairs(tbl) do

+            io.write(string.format("*%s*: ", v.name))

+            io.write(v.description .. "\n\n")

+        end

+	end

 end

 function PG.outputs(self, sp)

-    self:printheader("Outputs:")

     local tbl = sp[self.name].outputs

-    for _, v in pairs(tbl) do

-        io.write(string.format("*%s*: ", v.name))

-        io.write(v.description .. "\n\n")

-    end

-	io.write("\n")

+    if tbl then

+        self:printheader("Outputs:")

+        for _, v in pairs(tbl) do

+            io.write(string.format("*%s*: ", v.name))

+            io.write(v.description .. "\n\n")

+        end

+	end

 end

 function PG.other(self, sp)

-    self:printheader("Other Functions:")

     local tbl = sp[self.name].func.other

-    

-    for func,params in pairs(tbl) do

-        io.write(string.format("%s(sp_%s %s", func, self.name, self.name))

-        for _,p in pairs(params) do

-            io.write(string.format(", %s %s", p.type, p.name))

+    if tbl then

+        self:printheader("Other Functions:")

+        for func,params in pairs(tbl) do

+            io.write(string.format("%s(sp_%s %s", func, self.name, self.name))

+            for _,p in pairs(params) do

+                io.write(string.format(", %s %s", p.type, p.name))

+            end

+            io.write(")\n\n")

+            for _,p in pairs(params) do

+                io.write("*" .. p.name .. ":* ")

+                io.write(p.description.. "\n")

+                io.write("(Suggested default: " .. p.default .. ")\n\n")

+                

+            end

         end

-        io.write(")\n\n")

-        for _,p in pairs(params) do

-            io.write("*" .. p.name .. ":* ")

-            io.write(p.description.. "\n")

-            io.write("(Suggested default: " .. p.default .. ")\n\n")

-            

-        end

     end

-    io.write("\n")

 end

 function PG.params(self, sp)

@@ -157,4 +165,4 @@

 	PG:other(sptbl)

 end

-PG:makepage(sptbl)

\ No newline at end of file

+PG:makepage(sptbl)

--- a/util/gen_index.lua

+++ b/util/gen_index.lua

@@ -1,4 +1,4 @@

-#!/usr/bin/env lua

+#!/bin/lu9

 file = io.open(arg[1])