prepro.c,v

这是LPC-10压缩算法的源代码,愿共享之.也希望能赐与MELP方面的算法源码.

head	1.2;
access;
symbols;
locks; strict;
comment	@ * @;


1.2
date	96.08.20.20.40.51;	author jaf;	state Exp;
branches;
next	1.1;

1.1
date	96.08.19.22.30.54;	author jaf;	state Exp;
branches;
next	;


desc
@@


1.2
log
@Removed all static local variables that were SAVE'd in the Fortran
code, and put them in struct lpc10_encoder_state that is passed as an
argument.

Removed init function, since all initialization is now done in
init_lpc10_encoder_state().
@
text
@/*

$Log: prepro.c,v $
 * Revision 1.1  1996/08/19  22:30:54  jaf
 * Initial revision
 *

*/

#ifdef P_R_O_T_O_T_Y_P_E_S
extern int prepro_(real *speech, integer *length,
		   struct lpc10_encoder_state *st)
/*:ref: hp100_ 14 3 6 4 4 */
/*:ref: inithp100_ 14 0 */
#endif

/*  -- translated by f2c (version 19951025).
   You must link the resulting object file with the libraries:
	-lf2c -lm   (in that order)
*/

#include "f2c.h"

/* Table of constant values */

static integer c__1 = 1;

/* ********************************************************************* */

/* 	PREPRO Version 48 */

/* $Log: prepro.c,v $
 * Revision 1.1  1996/08/19  22:30:54  jaf
 * Initial revision
 * */
/* Revision 1.3  1996/03/14  23:22:56  jaf */
/* Added comments about when INITPREPRO should be used. */

/* Revision 1.2  1996/03/14  23:09:27  jaf */
/* Added an entry named INITPREPRO that initializes the local state of */
/* this subroutine, and those it calls (if any). */

/* Revision 1.1  1996/02/07  14:48:54  jaf */
/* Initial revision */


/* ********************************************************************* */

/*    Pre-process input speech: */

/* Inputs: */
/*  LENGTH - Number of SPEECH samples */
/* Input/Output: */
/*  SPEECH(LENGTH) - Speech data. */
/*                   Indices 1 through LENGTH are read and modified. */

/* This subroutine has no local state maintained from one call to the */
/* next, but HP100 does.  If you want to switch to using a new audio */
/* stream for this filter, or reinitialize its state for any other */
/* reason, call the ENTRY INITPREPRO. */

/* Subroutine */ int prepro_(real *speech, integer *length,
			     struct lpc10_encoder_state *st)
{
    extern /* Subroutine */ int hp100_(real *, integer *, integer *, struct lpc10_encoder_state *);

/*       Arguments */
/*   High Pass Filter at 100 Hz */
    /* Parameter adjustments */
    if (speech) {
	--speech;
	}

    /* Function Body */
    hp100_(&speech[1], &c__1, length, st);
    return 0;
} /* prepro_ */
@


1.1
log
@Initial revision
@
text
@d3 4
a6 1
$Log$
d11 2
a12 2
extern int prepro_(real *speech, integer *length);
extern int initprepro_(void);
d32 4
a35 1
/* $Log: prepro.f,v $ */
d62 2
a63 1
/* Subroutine */ int prepro_0_(int n__, real *speech, integer *length)
d65 1
a65 2
    extern /* Subroutine */ int hp100_(real *, integer *, integer *), 
	    inithp100_(void);
d75 1
a75 9
    switch(n__) {
	case 1: goto L_initprepro;
	}

    hp100_(&speech[1], &c__1, length);
    return 0;

L_initprepro:
    inithp100_();
a77 11

/* Subroutine */ int prepro_(real *speech, integer *length)
{
    return prepro_0_(0, speech, length);
    }

/* Subroutine */ int initprepro_(void)
{
    return prepro_0_(1, (real *)0, (integer *)0);
    }

@