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

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

Linux/Unix编程

开发平台：

Visual C++

ham84.c：源码内容
  1. /*
  3. $Log: ham84.c,v $
  4. Revision 1.1.1.1  2002/07/28 05:23:27  freeman_yong
  5. lpc10 codec
  7.  * Revision 1.1  1996/08/19  22:32:07  jaf
  8.  * Initial revision
  9.  *
  11. */
  13. #ifdef P_R_O_T_O_T_Y_P_E_S
  14. extern int ham84_(integer *input, integer *output, integer *errcnt);
  15. #endif
  17. /*  -- translated by f2c (version 19951025).
  18.    You must link the resulting object file with the libraries:
  19. -lf2c -lm   (in that order)
  20. */
  22. #include "f2c.h"
  24. /* ***************************************************************** */
  26. /*  HAM84 Version 45G */
  28. /* $Log: ham84.c,v $
  29. /* Revision 1.1.1.1  2002/07/28 05:23:27  freeman_yong
  30. /* lpc10 codec
  31. /*
  32.  * Revision 1.1  1996/08/19  22:32:07  jaf
  33.  * Initial revision
  34.  * */
  35. /* Revision 1.3  1996/03/21  15:26:00  jaf */
  36. /* Put comment header in standard form. */
  38. /* Revision 1.2  1996/03/13  22:00:13  jaf */
  39. /* Comments added explaining that none of the local variables of this */
  40. /* subroutine need to be saved from one invocation to the next. */
  42. /* Revision 1.1  1996/02/07 14:47:04  jaf */
  43. /* Initial revision */
  46. /* ***************************************************************** */
  48. /*  Hamming 8,4 Decoder - can correct 1 out of seven bits */
  49. /*   and can detect up to two errors. */
  51. /* Input: */
  52. /*  INPUT  - Seven bit data word, 4 bits parameter and */
  53. /*           4 bits parity information */
  54. /* Input/Output: */
  55. /*  ERRCNT - Sums errors detected by Hamming code */
  56. /* Output: */
  57. /*  OUTPUT - 4 corrected parameter bits */
  59. /* This subroutine is entered with an eight bit word in INPUT.  The 8th */
  60. /* bit is parity and is stripped off.  The remaining 7 bits address the */
  61. /* hamming 8,4 table and the output OUTPUT from the table gives the 4 */
  62. /* bits of corrected data.  If bit 4 is set, no error was detected. */
  63. /* ERRCNT is the number of errors counted. */
  65. /* This subroutine has no local state. */
  67. /* Subroutine */ int ham84_(integer *input, integer *output, integer *errcnt)
  68. {
  69.     /* Initialized data */
  71.     static integer dactab[128] = { 16,0,0,3,0,5,14,7,0,9,14,11,14,13,30,14,0,
  72.     9,2,7,4,7,7,23,9,25,10,9,12,9,14,7,0,5,2,11,5,21,6,5,8,11,11,27,
  73.     12,5,14,11,2,1,18,2,12,5,2,7,12,9,2,11,28,12,12,15,0,3,3,19,4,13,
  74.     6,3,8,13,10,3,13,29,14,13,4,1,10,3,20,4,4,7,10,9,26,10,4,13,10,15,
  75.     8,1,6,3,6,5,22,6,24,8,8,11,8,13,6,15,1,17,2,1,4,1,6,15,8,1,10,15,
  76.     12,15,15,31 };
  78.     integer i__, j, parity;
  80. /*       Arguments */
  81. /*       Parameters/constants */
  82. /*       Local variables that need not be saved */
  83. /*  Determine parity of input word */
  84.     parity = *input & 255;
  85.     parity ^= parity / 16;
  86.     parity ^= parity / 4;
  87.     parity ^= parity / 2;
  88.     parity &= 1;
  89.     i__ = dactab[*input & 127];
  90.     *output = i__ & 15;
  91.     j = i__ & 16;
  92.     if (j != 0) {
  93. /*          No errors detected in seven bits */
  94. if (parity != 0) {
  95.     ++(*errcnt);
  96. }
  97.     } else {
  98. /*          One or two errors detected */
  99. ++(*errcnt);
  100. if (parity == 0) {
  101. /*             Two errors detected */
  102.     ++(*errcnt);
  103.     *output = -1;
  104. }
  105.     }
  106.     return 0;
  107. } /* ham84_ */