开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Linux/Unix编程 > 查看源码
prepro.c
资源名称：一个类似QQ的软件源码.rar　[点击查看]
上传用户：zslianheng
上传日期：2013-04-03
资源大小：946k
文件大小：3k
源码类别：

Linux/Unix编程

开发平台：

Visual C++

prepro.c：源码内容
  1. /*
  3. $Log: prepro.c,v $
  4. Revision 1.1.1.1  2002/07/28 05:23:44  freeman_yong
  5. lpc10 codec
  7.  * Revision 1.2  1996/08/20  20:40:51  jaf
  8.  * Removed all static local variables that were SAVE'd in the Fortran
  9.  * code, and put them in struct lpc10_encoder_state that is passed as an
  10.  * argument.
  11.  *
  12.  * Removed init function, since all initialization is now done in
  13.  * init_lpc10_encoder_state().
  14.  *
  15.  * Revision 1.1  1996/08/19  22:30:54  jaf
  16.  * Initial revision
  17.  *
  19. */
  21. #ifdef P_R_O_T_O_T_Y_P_E_S
  22. extern int prepro_(real *speech, integer *length,
  23.    struct lpc10_encoder_state *st)
  24. /*:ref: hp100_ 14 3 6 4 4 */
  25. /*:ref: inithp100_ 14 0 */
  26. #endif
  28. /*  -- translated by f2c (version 19951025).
  29.    You must link the resulting object file with the libraries:
  30. -lf2c -lm   (in that order)
  31. */
  33. #include "f2c.h"
  35. /* Table of constant values */
  37. static integer c__1 = 1;
  39. /* ********************************************************************* */
  41. /*  PREPRO Version 48 */
  43. /* $Log: prepro.c,v $
  44. /* Revision 1.1.1.1  2002/07/28 05:23:44  freeman_yong
  45. /* lpc10 codec
  46. /*
  47.  * Revision 1.2  1996/08/20  20:40:51  jaf
  48.  * Removed all static local variables that were SAVE'd in the Fortran
  49.  * code, and put them in struct lpc10_encoder_state that is passed as an
  50.  * argument.
  51.  *
  52.  * Removed init function, since all initialization is now done in
  53.  * init_lpc10_encoder_state().
  54.  *
  55.  * Revision 1.1  1996/08/19  22:30:54  jaf
  56.  * Initial revision
  57.  * */
  58. /* Revision 1.3  1996/03/14  23:22:56  jaf */
  59. /* Added comments about when INITPREPRO should be used. */
  61. /* Revision 1.2  1996/03/14  23:09:27  jaf */
  62. /* Added an entry named INITPREPRO that initializes the local state of */
  63. /* this subroutine, and those it calls (if any). */
  65. /* Revision 1.1  1996/02/07  14:48:54  jaf */
  66. /* Initial revision */
  69. /* ********************************************************************* */
  71. /*    Pre-process input speech: */
  73. /* Inputs: */
  74. /*  LENGTH - Number of SPEECH samples */
  75. /* Input/Output: */
  76. /*  SPEECH(LENGTH) - Speech data. */
  77. /*                   Indices 1 through LENGTH are read and modified. */
  79. /* This subroutine has no local state maintained from one call to the */
  80. /* next, but HP100 does.  If you want to switch to using a new audio */
  81. /* stream for this filter, or reinitialize its state for any other */
  82. /* reason, call the ENTRY INITPREPRO. */
  84. /* Subroutine */ int prepro_(real *speech, integer *length,
  85.      struct lpc10_encoder_state *st)
  86. {
  87.     extern /* Subroutine */ int hp100_(real *, integer *, integer *, struct lpc10_encoder_state *);
  89. /*       Arguments */
  90. /*   High Pass Filter at 100 Hz */
  91.     /* Parameter adjustments */
  92.     if (speech) {
  93. --speech;
  94. }
  96.     /* Function Body */
  97.     hp100_(&speech[1], &c__1, length, st);
  98.     return 0;
  99. } /* prepro_ */