Only in .: CHANGES
diff ./Makefile /projects/cslu/speech/work/src.beta/lib/libnspeech//Makefile
144c144
< ${OBJ_DIR}/littleindian.o: littleindian.c littleindian.c
---
> ${OBJ_DIR}/littleindian.o: littleindian.c  littleindian.c
148c148
< ${OBJ_DIR}/lpc.o: lpc.c
---
> ${OBJ_DIR}/lpc.o: lpc.c /projects/cslu/speech/work/src/include/speech.h  lpc.c
152c152
< ${OBJ_DIR}/melcep.o: melcep.c
---
> ${OBJ_DIR}/melcep.o: melcep.c /projects/cslu/speech/work/src/include/speech.h  melcep.c
diff ./Makefile.bak /projects/cslu/speech/work/src.beta/lib/libnspeech//Makefile.bak
46a47,48
> 	lpc.c\
> 	melcep.c\
66a69,70
> 	${OBJ_DIR}/lpc.o\
> 	${OBJ_DIR}/melcep.o\
86c90
< CFLAGS  = $(AP_CFLAGS) $(${ARCH}_CFLAGS)
---
> CFLAGS  = $(AP_CFLAGS) $(${ARCH}_CFLAGS) -Ddebug
142a147,154
> 
> ${OBJ_DIR}/lpc.o: lpc.c
> 	@. ${CONF} ; echo ". ${CONF} ; $$CC $(CFLAGS) $$GCFLAGS -c lpc.c -o ${OBJ_DIR}/lpc.o"
> 	@. ${CONF} ; $$CC $(CFLAGS) $$GCFLAGS -c lpc.c -o ${OBJ_DIR}/lpc.o
> 
> ${OBJ_DIR}/melcep.o: melcep.c
> 	@. ${CONF} ; echo ". ${CONF} ; $$CC $(CFLAGS) $$GCFLAGS -c melcep.c -o ${OBJ_DIR}/melcep.o"
> 	@. ${CONF} ; $$CC $(CFLAGS) $$GCFLAGS -c melcep.c -o ${OBJ_DIR}/melcep.o
Only in /projects/cslu/speech/work/src.beta/lib/libnspeech/: dead.letter
diff ./lpc.c /projects/cslu/speech/work/src.beta/lib/libnspeech//lpc.c
129c129
<      CorCoeff[i] /= Normal;
---
>       CorCoeff[i] /= Normal;
162,163d161
<    if (alpha == 0)
<      printf("alpha == 0\n");
238c236
<   float *hhat;
---
>   float *h, *hhat;
239a238,240
>   if (!(h = (float *) calloc(n + 1, sizeof(float))))
>     eerror("LPC_Cepstrum:h");
> 
243,244c244
<     /* Calculate Complex cepstrum */
<   hhat[1] = LPC[1];
---
>   h[0] = 1.0;
246,253c246,261
<   for (i=2; i<=n ; i++) {
<     if (i<=p)
<       sum = LPC[i];
<     else
<       sum = 0.0;
<     for (k=1; k <= i-1; k++) {
<       if (i-k <= p)
< 	sum += ((float)k)/((float)i) * hhat[k] * LPC[i-k];
---
>   /* Calculate Impulse Response of LPC filter */
>   for (i=1; i <= n; i++) {
>     sum = 0.0;
>     for (k=1; k<=p; k++)
>       if (i-k>=0)
> 	sum += LPC[k]*h[i-k];
>     h[i] = sum;
>   }
> 
>   /* Calculate Complex cepstrum */
>   hhat[0] = 1.0;
>   for (i=1; i<=n ; i++) {
>     sum = h[i];
>     for (k=0; k <= i-1; k++) {
>       if (i-k >= 0)
> 	sum -= ((float)k)/((float)i) * hhat[k] * h[i-k];
259,260c267
<   LPCCep[1] = 0.0;
<   for (i=1; i<=n; i++)
---
>   for (i=0; i<=n; i++)
263a271
>   free ((char *) h);
268c276
<  * DeltaCEP(n, LPCCep, DelCEP, reset)
---
>  * DeltaCEP(n, delta, LPCCep, DelCEP, reset)
274a283
>  * delta  (in): correspondes to delta seconds
279c288
<  * Usage: DeltaCEP(16, LPCCep, DelCep, 1)
---
>  * Usage: DeltaCEP(16, (win/2)*(1/fSamp), LPCCep, DelCep, 1)
283c292
< void DeltaCEP(int n, float *LPCCep, float *DelCep, int reset)
---
> void DeltaCEP(int n, float delta, float *LPCCep, float *DelCep, int reset)
303a313
>     grad /= delta*2.0;
433c443
<     DeltaCEP(n, (*Ci)[k], (*DelCi)[k], 0);
---
>     DeltaCEP(n, (1.0/fSamp)*(st), (*Ci)[k], (*DelCi)[k], 0);
441d450
< 
diff ./rasta.c /projects/cslu/speech/work/src.beta/lib/libnspeech//rasta.c
28d27
< 
30d28
< 
32d29
< 
34d30
< 
38d33
< 
40,41c35
< 	    int *denord, int nfilt, float pole);
< 
---
> 	    int *denord, int filt);
43d36
< 
45c38
< 	     float *gain, float sf, float rst, float pole);
---
> 	     float *gain, float sf, float rst);
50c43
<  *               Sf, Rst, Expon, M, Np, Gain, pole, plpout_p, numframes_p)
---
>  *                     Sf, Rst, Expon, M, Np, Gain, plpout_p, numframes_p)
66d58
<  * pole         (in): raste filter pole
76c68
< 		    int M, int Np, int Gain, float pole, float ***plpout_p, 
---
> 		    int M, int Np, int Gain, float ***plpout_p, 
135c127
< 	rastaplp(speech, nwind, M, a, rc, &gain, Sf, Rst, pole);
---
> 	rastaplp(speech, nwind, M, a, rc, &gain, Sf, Rst);
152c144
<  * int rastaplp (speech, nwind, m, a, rc, gain, sf, rst, pole)
---
>  * int rastaplp (speech, nwind, m, a, rc, gain, sf, rst)
166d157
<  * pole   (in): raste filter pole value
171c162
< 	     float *gain, float sf, float rst, float pole)
---
> 	     float *gain, float sf, float rst)
223c214
< 	setfilt(num, denom, numord, denord, nfilt, pole);
---
> 	setfilt(num, denom, numord, denord, nfilt);
385c376
<  * int setfilt(num, denom, numord, denord, nfilt, pole)
---
>  * int setfilt(num, denom, numord, denord, nfilt)
392d382
<  * pole   (in): raste filter pole value
397c387
< 	    int *denord, int nfilt, float pole)
---
> 	    int *denord, int nfilt)
398a389,390
>     float pole;                            /* System generated locals      */
> 
400a393,394
> 
>     pole = -0.94;
diff ./shortpack_io.c /projects/cslu/speech/work/src.beta/lib/libnspeech//shortpack_io.c
3c3
<  * $Id: shortpack_io.c,v 2.4 1993/09/23 19:43:56 johans Exp $
---
>  * $Id: shortpack_io.c,v 2.3 1993/06/09 20:58:40 johans Exp $
24,25c24,25
< static short log2s[] = {1, 2, 4, 8, 16, 32, 64, 128, 256, 512, 1024,
< 			  2048, 4096, 8192, 16384, 32768};
---
> static unsigned short log2s[] = {1, 2, 4, 8, 16, 32, 64, 128, 256, 512, 1024,
> 				   2048, 4096, 8192, 16384, 32768};
824,828c824,828
<   register short *log2s_ptr;
<   register short *log2s_stop_ptr;
<   register short temp_out;
<   register short *logs2_kptr;
<   short *log2s_start_ptr;
---
>   register unsigned short *log2s_ptr;
>   register unsigned short *log2s_stop_ptr;
>   register unsigned short temp_out;
>   register unsigned short *logs2_kptr;
>   unsigned short *log2s_start_ptr;
diff ./wav.c /projects/cslu/speech/work/src.beta/lib/libnspeech//wav.c
3c3
<  * $Id: wav.c,v 1.6 1993/06/09 20:58:40 johans Exp johans $
---
>  * $Id: wav.c,v 1.6 1993/06/09 20:58:40 johans Exp $
186d185
<   /* file stream */
201d199
<   /* file handler */
217,218c215
< 
<   /* create NIST header */
---
>   
278,279d274
< 
<   /* save data either compressed or normal */
281a277
>       printf("short pack\n");
291d286
<       
293,294c288
< 	samples_write = fwrite(samples+samples_need, sizeof(short), 
< 			       len-samples_need, fp);
---
> 	samples_write = fwrite(samples, sizeof(short), len-samples_need, fp);
297d290
< 
307d299
<   /* change file access rights */
