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

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

Linux/Unix编程

开发平台：

Visual C++

lpcenc.c：源码内容
  1. /*
  3. $Log: lpcenc.c,v $
  4. Revision 1.1.1.1  2002/07/28 05:23:31  freeman_yong
  5. lpc10 codec
  7.  * Revision 1.2  1996/08/20  20:31:21  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.  * Changed name of function from lpcenc_ to lpc10_encode, simply to make
  16.  * all lpc10 functions have more consistent naming with each other.
  17.  *
  18.  * Revision 1.1  1996/08/19  22:31:44  jaf
  19.  * Initial revision
  20.  *
  22. */
  24. #ifdef P_R_O_T_O_T_Y_P_E_S
  25. extern int lpcenc_(real *speech, integer *bits);
  26. extern int initlpcenc_(void);
  27. /*:ref: prepro_ 14 2 6 4 */
  28. /*:ref: analys_ 14 5 6 4 4 6 6 */
  29. /*:ref: encode_ 14 7 4 4 6 6 4 4 4 */
  30. /*:ref: chanwr_ 14 5 4 4 4 4 4 */
  31. /*:ref: initprepro_ 14 0 */
  32. /*:ref: initanalys_ 14 0 */
  33. #endif
  35. /*  -- translated by f2c (version 19951025).
  36.    You must link the resulting object file with the libraries:
  37. -lf2c -lm   (in that order)
  38. */
  40. #include "f2c.h"
  42. /* Table of constant values */
  44. static integer c__180 = 180;
  45. static integer c__10 = 10;
  47. /* ***************************************************************** */
  49. /* $Log: lpcenc.c,v $
  50. /* Revision 1.1.1.1  2002/07/28 05:23:31  freeman_yong
  51. /* lpc10 codec
  52. /*
  53.  * Revision 1.2  1996/08/20  20:31:21  jaf
  54.  * Removed all static local variables that were SAVE'd in the Fortran
  55.  * code, and put them in struct lpc10_encoder_state that is passed as an
  56.  * argument.
  57.  *
  58.  * Removed init function, since all initialization is now done in
  59.  * init_lpc10_encoder_state().
  60.  *
  61.  * Changed name of function from lpcenc_ to lpc10_encode, simply to make
  62.  * all lpc10 functions have more consistent naming with each other.
  63.  *
  64.  * Revision 1.1  1996/08/19  22:31:44  jaf
  65.  * Initial revision
  66.  * */
  67. /* Revision 1.2  1996/03/28  00:01:22  jaf */
  68. /* Commented out some trace statements. */
  70. /* Revision 1.1  1996/03/28  00:00:27  jaf */
  71. /* Initial revision */
  74. /* ***************************************************************** */
  76. /* Encode one frame of 180 speech samples to 54 bits. */
  78. /* Input: */
  79. /*  SPEECH - Speech encoded as real values in the range [-1,+1]. */
  80. /*           Indices 1 through 180 read, and modified (by PREPRO). */
  81. /* Output: */
  82. /*  BITS   - 54 encoded bits, stored 1 per array element. */
  83. /*           Indices 1 through 54 written. */
  85. /* This subroutine maintains local state from one call to the next.  If */
  86. /* you want to switch to using a new audio stream for this filter, or */
  87. /* reinitialize its state for any other reason, call the ENTRY */
  88. /* INITLPCENC. */
  90. /* Subroutine */ int lpc10_encode(real *speech, integer *bits,
  91.   struct lpc10_encoder_state *st)
  92. {
  93.     integer irms, voice[2], pitch, ipitv;
  94.     real rc[10];
  95.     extern /* Subroutine */ int encode_(integer *, integer *, real *, real *, 
  96.     integer *, integer *, integer *), chanwr_(integer *, integer *, 
  97.     integer *, integer *, integer *, struct lpc10_encoder_state *),
  98.             analys_(real *, integer *, 
  99.     integer *, real *, real *, struct lpc10_encoder_state *),
  100.             prepro_(real *, integer *, struct lpc10_encoder_state *);
  101.     integer irc[10];
  102.     real rms;
  104. /*       Arguments */
  105. /* $Log: lpcenc.c,v $
  106. /* Revision 1.1.1.1  2002/07/28 05:23:31  freeman_yong
  107. /* lpc10 codec
  108. /*
  109.  * Revision 1.2  1996/08/20  20:31:21  jaf
  110.  * Removed all static local variables that were SAVE'd in the Fortran
  111.  * code, and put them in struct lpc10_encoder_state that is passed as an
  112.  * argument.
  113.  *
  114.  * Removed init function, since all initialization is now done in
  115.  * init_lpc10_encoder_state().
  116.  *
  117.  * Changed name of function from lpcenc_ to lpc10_encode, simply to make
  118.  * all lpc10 functions have more consistent naming with each other.
  119.  *
  120.  * Revision 1.1  1996/08/19  22:31:44  jaf
  121.  * Initial revision
  122.  * */
  123. /* Revision 1.3  1996/03/29  22:03:47  jaf */
  124. /* Removed definitions for any constants that were no longer used. */
  126. /* Revision 1.2  1996/03/26  19:34:33  jaf */
  127. /* Added comments indicating which constants are not needed in an */
  128. /* application that uses the LPC-10 coder. */
  130. /* Revision 1.1  1996/02/07  14:43:51  jaf */
  131. /* Initial revision */
  133. /*   LPC Configuration parameters: */
  134. /* Frame size, Prediction order, Pitch period */
  135. /*       Local variables that need not be saved */
  136. /*       Uncoded speech parameters */
  137. /*       Coded speech parameters */
  138. /*       Local state */
  139. /*       None */
  140.     /* Parameter adjustments */
  141.     if (speech) {
  142. --speech;
  143. }
  144.     if (bits) {
  145. --bits;
  146. }
  148.     /* Function Body */
  149.     prepro_(&speech[1], &c__180, st);
  150.     analys_(&speech[1], voice, &pitch, &rms, rc, st);
  151.     encode_(voice, &pitch, &rms, rc, &ipitv, &irms, irc);
  152.     chanwr_(&c__10, &ipitv, &irms, irc, &bits[1], st);
  153.     return 0;
  154. } /* lpcenc_ */