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

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

Linux/Unix编程

开发平台：

Visual C++

chanwr.c：源码内容
  1. /*
  3. $Log: chanwr.c,v $
  4. Revision 1.1.1.1  2002/07/28 05:23:21  freeman_yong
  5. lpc10 codec
  7.  * Revision 1.2  1996/08/20  20:20:24  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.  * Revision 1.1  1996/08/19  22:40:31  jaf
  13.  * Initial revision
  14.  *
  16. */
  18. #ifdef P_R_O_T_O_T_Y_P_E_S
  19. extern int chanwr_(integer *order, integer *ipitv, integer *irms, integer *irc, integer *ibits, struct lpc10_encoder_state *st);
  20. extern int chanrd_(integer *order, integer *ipitv, integer *irms, integer *irc, integer *ibits);
  21. #endif
  23. /*  -- translated by f2c (version 19951025).
  24.    You must link the resulting object file with the libraries:
  25. -lf2c -lm   (in that order)
  26. */
  28. #include "f2c.h"
  30. /* *********************************************************************** */
  32. /*  CHANL Version 49 */
  34. /* $Log: chanwr.c,v $
  35. /* Revision 1.1.1.1  2002/07/28 05:23:21  freeman_yong
  36. /* lpc10 codec
  37. /*
  38.  * Revision 1.2  1996/08/20  20:20:24  jaf
  39.  * Removed all static local variables that were SAVE'd in the Fortran
  40.  * code, and put them in struct lpc10_encoder_state that is passed as an
  41.  * argument.
  42.  *
  43.  * Revision 1.1  1996/08/19  22:40:31  jaf
  44.  * Initial revision
  45.  * */
  46. /* Revision 1.3  1996/03/21  15:14:57  jaf */
  47. /* Added comments about which indices of argument arrays are read or */
  48. /* written, and about the one bit of local state in CHANWR.  CHANRD */
  49. /* has no local state. */
  51. /* Revision 1.2  1996/03/13  18:55:10  jaf */
  52. /* Comments added explaining which of the local variables of this */
  53. /* subroutine need to be saved from one invocation to the next, and which */
  54. /* do not. */
  56. /* Revision 1.1  1996/02/07 14:43:31  jaf */
  57. /* Initial revision */
  60. /* *********************************************************************** */
  62. /* CHANWR: */
  63. /*   Place quantized parameters into bitstream */
  65. /* Input: */
  66. /*  ORDER  - Number of reflection coefficients (not really variable) */
  67. /*  IPITV  - Quantized pitch/voicing parameter */
  68. /*  IRMS   - Quantized energy parameter */
  69. /*  IRC    - Quantized reflection coefficients */
  70. /*           Indices 1 through ORDER read. */
  71. /* Output: */
  72. /*  IBITS  - Serial bitstream */
  73. /*           Indices 1 through 54 written. */
  74. /*           Bit 54, the SYNC bit, alternates from one call to the next. */
  76. /* Subroutine CHANWR maintains one bit of local state from one call to */
  77. /* the next, in the variable ISYNC.  I believe that this one bit is only */
  78. /* intended to allow a receiver to resynchronize its interpretation of */
  79. /* the bit stream, by looking for which of the 54 bits alternates every */
  80. /* frame time.  This is just a simple framing mechanism that is not */
  81. /* useful when other, higher overhead framing mechanisms are used to */
  82. /* transmit the coded frames. */
  84. /* I'm not going to make an entry to reinitialize this bit, since it */
  85. /* doesn't help a receiver much to know whether the first sync bit is a 0 */
  86. /* or a 1.  It needs to examine several frames in sequence to have */
  87. /* reasonably good assurance that its framing is correct. */
  90. /* CHANRD: */
  91. /*   Reconstruct parameters from bitstream */
  93. /* Input: */
  94. /*  ORDER  - Number of reflection coefficients (not really variable) */
  95. /*  IBITS  - Serial bitstream */
  96. /*           Indices 1 through 53 read (SYNC bit is ignored). */
  97. /* Output: */
  98. /*  IPITV  - Quantized pitch/voicing parameter */
  99. /*  IRMS   - Quantized energy parameter */
  100. /*  IRC    - Quantized reflection coefficients */
  101. /*           Indices 1 through ORDER written */
  103. /* Entry CHANRD has no local state. */
  107. /*   IBITS is 54 bits of LPC data ordered as follows: */
  108. /*  R1-0, R2-0, R3-0,  P-0,  A-0, */
  109. /*  R1-1, R2-1, R3-1,  P-1,  A-1, */
  110. /*  R1-2, R4-0, R3-2,  A-2,  P-2, R4-1, */
  111. /*  R1-3, R2-2, R3-3, R4-2,  A-3, */
  112. /*  R1-4, R2-3, R3-4, R4-3,  A-4, */
  113. /*   P-3, R2-4, R7-0, R8-0,  P-4, R4-4, */
  114. /*  R5-0, R6-0, R7-1,R10-0, R8-1, */
  115. /*  R5-1, R6-1, R7-2, R9-0,  P-5, */
  116. /*  R5-2, R6-2,R10-1, R8-2,  P-6, R9-1, */
  117. /*  R5-3, R6-3, R7-3, R9-2, R8-3, SYNC */
  118. /* Subroutine */ int chanwr_0_(int n__, integer *order, integer *ipitv, 
  119. integer *irms, integer *irc, integer *ibits,
  120.        struct lpc10_encoder_state *st)
  121. {
  122.     /* Initialized data */
  124.     integer *isync;
  125.     static integer bit[10] = { 2,4,8,8,8,8,16,16,16,16 };
  126.     static integer iblist[53] = { 13,12,11,1,2,13,12,11,1,2,13,10,11,2,1,10,
  127.     13,12,11,10,2,13,12,11,10,2,1,12,7,6,1,10,9,8,7,4,6,9,8,7,5,1,9,8,
  128.     4,6,1,5,9,8,7,5,6 };
  130.     /* System generated locals */
  131.     integer i__1;
  133.     /* Local variables */
  134.     integer itab[13], i__;
  136. /*       Arguments */
  137. /*       Parameters/constants */
  138. /*       These arrays are not Fortran PARAMETER's, but they are defined */
  139. /*       by DATA statements below, and their contents are never altered. 
  140. */
  141. /*       Local variables that need not be saved */
  142. /*       Local state */
  143. /*       ISYNC is only used by CHANWR, not by ENTRY CHANRD. */
  145.     /* Parameter adjustments */
  146.     --irc;
  147.     --ibits;
  149.     /* Function Body */
  150.     switch(n__) {
  151. case 1: goto L_chanrd;
  152. }
  154.     isync = &(st->isync);
  156. /* ***********************************************************************
  157.  */
  158. /*  Place quantized parameters into bitstream */
  159. /* ***********************************************************************
  160.  */
  161. /*   Place parameters into ITAB */
  162.     itab[0] = *ipitv;
  163.     itab[1] = *irms;
  164.     itab[2] = 0;
  165.     i__1 = *order;
  166.     for (i__ = 1; i__ <= i__1; ++i__) {
  167. itab[i__ + 2] = irc[*order + 1 - i__] & 32767;
  168.     }
  169. /*   Put 54 bits into IBITS array */
  170.     for (i__ = 1; i__ <= 53; ++i__) {
  171. ibits[i__] = itab[iblist[i__ - 1] - 1] & 1;
  172. itab[iblist[i__ - 1] - 1] /= 2;
  173.     }
  174.     ibits[54] = *isync & 1;
  175.     *isync = 1 - *isync;
  176.     return 0;
  177. /* ***********************************************************************
  178.  */
  179. /*  Reconstruct parameters from bitstream */
  180. /* ***********************************************************************
  181.  */
  183. L_chanrd:
  184. /*   Reconstruct ITAB */
  185.     for (i__ = 1; i__ <= 13; ++i__) {
  186. itab[i__ - 1] = 0;
  187.     }
  188.     for (i__ = 1; i__ <= 53; ++i__) {
  189. itab[iblist[54 - i__ - 1] - 1] = (itab[iblist[54 - i__ - 1] - 1] << 1)
  190.  + ibits[54 - i__];
  191.     }
  192. /*   Sign extend RC's */
  193.     i__1 = *order;
  194.     for (i__ = 1; i__ <= i__1; ++i__) {
  195. if ((itab[i__ + 2] & bit[i__ - 1]) != 0) {
  196.     itab[i__ + 2] -= bit[i__ - 1] << 1;
  197. }
  198.     }
  199. /*   Restore variables */
  200.     *ipitv = itab[0];
  201.     *irms = itab[1];
  202.     i__1 = *order;
  203.     for (i__ = 1; i__ <= i__1; ++i__) {
  204. irc[i__] = itab[*order + 4 - i__ - 1];
  205.     }
  206.     return 0;
  207. } /* chanwr_ */
  209. /* Subroutine */ int chanwr_(integer *order, integer *ipitv, integer *irms, 
  210. integer *irc, integer *ibits, struct lpc10_encoder_state *st)
  211. {
  212.     return chanwr_0_(0, order, ipitv, irms, irc, ibits, st);
  213.     }
  215. /* Subroutine */ int chanrd_(integer *order, integer *ipitv, integer *irms, 
  216. integer *irc, integer *ibits)
  217. {
  218.     return chanwr_0_(1, order, ipitv, irms, irc, ibits, 0);
  219.     }