1N/A/***********************************************************************
1N/A* *
1N/A* This software is part of the ast package *
1N/A* Copyright (c) 1996-2011 AT&T Intellectual Property *
1N/A* and is licensed under the *
1N/A* Common Public License, Version 1.0 *
1N/A* by AT&T Intellectual Property *
1N/A* *
1N/A* A copy of the License is available at *
1N/A* http://www.opensource.org/licenses/cpl1.0.txt *
1N/A* (with md5 checksum 059e8cd6165cb4c31e351f2b69388fd9) *
1N/A* *
1N/A* Information and Software Systems Research *
1N/A* AT&T Research *
1N/A* Florham Park NJ *
1N/A* *
1N/A* Glenn Fowler <gsf@research.att.com> *
1N/A* *
1N/A***********************************************************************/
1N/A#pragma prototyped
1N/A
1N/A/*
1N/A * crc
1N/A */
1N/A
1N/A#define crc_description \
1N/A "32 bit CRC (cyclic redundancy check)."
1N/A#define crc_options "\
1N/A[+polynomial?The 32 bit crc polynomial bitmask with implicit bit 32.]:[mask:=0xedb88320]\
1N/A[+done?XOR the final crc value with \anumber\a. 0xffffffff is used if \anumber\a is omitted.]:?[number:=0]\
1N/A[+init?The initial crc value. 0xffffffff is used if \anumber\a is omitted.]:?[number:=0]\
1N/A[+rotate?XOR each input character with the high order crc byte (instead of the low order).]\
1N/A[+size?Include the total number of bytes in the crc. \anumber\a, if specified, is first XOR'd into the size.]:?[number:=0]\
1N/A"
1N/A#define crc_match "crc"
1N/A#define crc_open crc_open
1N/A#define crc_print long_print
1N/A#define crc_data long_data
1N/A#define crc_scale 0
1N/A
1N/Atypedef uint32_t Crcnum_t;
1N/A
1N/Atypedef struct Crc_s
1N/A{
1N/A _SUM_PUBLIC_
1N/A _SUM_PRIVATE_
1N/A _INTEGRAL_PRIVATE_
1N/A Crcnum_t init;
1N/A Crcnum_t done;
1N/A Crcnum_t xorsize;
1N/A const Crcnum_t *tab; /* use |const| to give the compiler a hint that the data won't change */
1N/A Crcnum_t tabdata[256];
1N/A unsigned int addsize;
1N/A unsigned int rotate;
1N/A} Crc_t;
1N/A
1N/A#define CRC(p,s,c) (s = (s >> 8) ^ (p)->tab[(s ^ (c)) & 0xff])
1N/A#define CRCROTATE(p,s,c) (s = (s << 8) ^ (p)->tab[((s >> 24) ^ (c)) & 0xff])
1N/A
1N/Astatic const
1N/ACrcnum_t posix_cksum_tab[256] = {
1N/A 0x00000000U,
1N/A 0x04c11db7U, 0x09823b6eU, 0x0d4326d9U, 0x130476dcU, 0x17c56b6bU,
1N/A 0x1a864db2U, 0x1e475005U, 0x2608edb8U, 0x22c9f00fU, 0x2f8ad6d6U,
1N/A 0x2b4bcb61U, 0x350c9b64U, 0x31cd86d3U, 0x3c8ea00aU, 0x384fbdbdU,
1N/A 0x4c11db70U, 0x48d0c6c7U, 0x4593e01eU, 0x4152fda9U, 0x5f15adacU,
1N/A 0x5bd4b01bU, 0x569796c2U, 0x52568b75U, 0x6a1936c8U, 0x6ed82b7fU,
1N/A 0x639b0da6U, 0x675a1011U, 0x791d4014U, 0x7ddc5da3U, 0x709f7b7aU,
1N/A 0x745e66cdU, 0x9823b6e0U, 0x9ce2ab57U, 0x91a18d8eU, 0x95609039U,
1N/A 0x8b27c03cU, 0x8fe6dd8bU, 0x82a5fb52U, 0x8664e6e5U, 0xbe2b5b58U,
1N/A 0xbaea46efU, 0xb7a96036U, 0xb3687d81U, 0xad2f2d84U, 0xa9ee3033U,
1N/A 0xa4ad16eaU, 0xa06c0b5dU, 0xd4326d90U, 0xd0f37027U, 0xddb056feU,
1N/A 0xd9714b49U, 0xc7361b4cU, 0xc3f706fbU, 0xceb42022U, 0xca753d95U,
1N/A 0xf23a8028U, 0xf6fb9d9fU, 0xfbb8bb46U, 0xff79a6f1U, 0xe13ef6f4U,
1N/A 0xe5ffeb43U, 0xe8bccd9aU, 0xec7dd02dU, 0x34867077U, 0x30476dc0U,
1N/A 0x3d044b19U, 0x39c556aeU, 0x278206abU, 0x23431b1cU, 0x2e003dc5U,
1N/A 0x2ac12072U, 0x128e9dcfU, 0x164f8078U, 0x1b0ca6a1U, 0x1fcdbb16U,
1N/A 0x018aeb13U, 0x054bf6a4U, 0x0808d07dU, 0x0cc9cdcaU, 0x7897ab07U,
1N/A 0x7c56b6b0U, 0x71159069U, 0x75d48ddeU, 0x6b93dddbU, 0x6f52c06cU,
1N/A 0x6211e6b5U, 0x66d0fb02U, 0x5e9f46bfU, 0x5a5e5b08U, 0x571d7dd1U,
1N/A 0x53dc6066U, 0x4d9b3063U, 0x495a2dd4U, 0x44190b0dU, 0x40d816baU,
1N/A 0xaca5c697U, 0xa864db20U, 0xa527fdf9U, 0xa1e6e04eU, 0xbfa1b04bU,
1N/A 0xbb60adfcU, 0xb6238b25U, 0xb2e29692U, 0x8aad2b2fU, 0x8e6c3698U,
1N/A 0x832f1041U, 0x87ee0df6U, 0x99a95df3U, 0x9d684044U, 0x902b669dU,
1N/A 0x94ea7b2aU, 0xe0b41de7U, 0xe4750050U, 0xe9362689U, 0xedf73b3eU,
1N/A 0xf3b06b3bU, 0xf771768cU, 0xfa325055U, 0xfef34de2U, 0xc6bcf05fU,
1N/A 0xc27dede8U, 0xcf3ecb31U, 0xcbffd686U, 0xd5b88683U, 0xd1799b34U,
1N/A 0xdc3abdedU, 0xd8fba05aU, 0x690ce0eeU, 0x6dcdfd59U, 0x608edb80U,
1N/A 0x644fc637U, 0x7a089632U, 0x7ec98b85U, 0x738aad5cU, 0x774bb0ebU,
1N/A 0x4f040d56U, 0x4bc510e1U, 0x46863638U, 0x42472b8fU, 0x5c007b8aU,
1N/A 0x58c1663dU, 0x558240e4U, 0x51435d53U, 0x251d3b9eU, 0x21dc2629U,
1N/A 0x2c9f00f0U, 0x285e1d47U, 0x36194d42U, 0x32d850f5U, 0x3f9b762cU,
1N/A 0x3b5a6b9bU, 0x0315d626U, 0x07d4cb91U, 0x0a97ed48U, 0x0e56f0ffU,
1N/A 0x1011a0faU, 0x14d0bd4dU, 0x19939b94U, 0x1d528623U, 0xf12f560eU,
1N/A 0xf5ee4bb9U, 0xf8ad6d60U, 0xfc6c70d7U, 0xe22b20d2U, 0xe6ea3d65U,
1N/A 0xeba91bbcU, 0xef68060bU, 0xd727bbb6U, 0xd3e6a601U, 0xdea580d8U,
1N/A 0xda649d6fU, 0xc423cd6aU, 0xc0e2d0ddU, 0xcda1f604U, 0xc960ebb3U,
1N/A 0xbd3e8d7eU, 0xb9ff90c9U, 0xb4bcb610U, 0xb07daba7U, 0xae3afba2U,
1N/A 0xaafbe615U, 0xa7b8c0ccU, 0xa379dd7bU, 0x9b3660c6U, 0x9ff77d71U,
1N/A 0x92b45ba8U, 0x9675461fU, 0x8832161aU, 0x8cf30badU, 0x81b02d74U,
1N/A 0x857130c3U, 0x5d8a9099U, 0x594b8d2eU, 0x5408abf7U, 0x50c9b640U,
1N/A 0x4e8ee645U, 0x4a4ffbf2U, 0x470cdd2bU, 0x43cdc09cU, 0x7b827d21U,
1N/A 0x7f436096U, 0x7200464fU, 0x76c15bf8U, 0x68860bfdU, 0x6c47164aU,
1N/A 0x61043093U, 0x65c52d24U, 0x119b4be9U, 0x155a565eU, 0x18197087U,
1N/A 0x1cd86d30U, 0x029f3d35U, 0x065e2082U, 0x0b1d065bU, 0x0fdc1becU,
1N/A 0x3793a651U, 0x3352bbe6U, 0x3e119d3fU, 0x3ad08088U, 0x2497d08dU,
1N/A 0x2056cd3aU, 0x2d15ebe3U, 0x29d4f654U, 0xc5a92679U, 0xc1683bceU,
1N/A 0xcc2b1d17U, 0xc8ea00a0U, 0xd6ad50a5U, 0xd26c4d12U, 0xdf2f6bcbU,
1N/A 0xdbee767cU, 0xe3a1cbc1U, 0xe760d676U, 0xea23f0afU, 0xeee2ed18U,
1N/A 0xf0a5bd1dU, 0xf464a0aaU, 0xf9278673U, 0xfde69bc4U, 0x89b8fd09U,
1N/A 0x8d79e0beU, 0x803ac667U, 0x84fbdbd0U, 0x9abc8bd5U, 0x9e7d9662U,
1N/A 0x933eb0bbU, 0x97ffad0cU, 0xafb010b1U, 0xab710d06U, 0xa6322bdfU,
1N/A 0xa2f33668U, 0xbcb4666dU, 0xb8757bdaU, 0xb5365d03U, 0xb1f740b4U
1N/A};
1N/A
1N/Astatic Sum_t*
1N/Acrc_open(const Method_t* method, const char* name)
1N/A{
1N/A register Crc_t* sum;
1N/A register const char* s;
1N/A register const char* t;
1N/A register const char* v;
1N/A register int i;
1N/A register int j;
1N/A Crcnum_t polynomial;
1N/A Crcnum_t x;
1N/A
1N/A if (sum = newof(0, Crc_t, 1, 0))
1N/A {
1N/A sum->method = (Method_t*)method;
1N/A sum->name = name;
1N/A }
1N/A
1N/A if(!strcmp(name, "crc-0x04c11db7-rotate-done-size"))
1N/A {
1N/A sum->init=0;
1N/A sum->done=0xffffffff;
1N/A sum->xorsize=0x0;
1N/A sum->addsize=0x1;
1N/A sum->rotate=1;
1N/A
1N/A /* Optimized codepath for POSIX cksum to save startup time */
1N/A sum->tab=posix_cksum_tab;
1N/A }
1N/A else
1N/A {
1N/A polynomial = 0xedb88320;
1N/A s = name;
1N/A while (*(t = s))
1N/A {
1N/A for (t = s, v = 0; *s && *s != '-'; s++)
1N/A if (*s == '=' && !v)
1N/A v = s;
1N/A i = (v ? v : s) - t;
1N/A if (isdigit(*t) || v && i >= 4 && strneq(t, "poly", 4) && (t = v + 1))
1N/A polynomial = strtoul(t, NiL, 0);
1N/A else if (strneq(t, "done", i))
1N/A sum->done = v ? strtoul(v + 1, NiL, 0) : ~sum->done;
1N/A else if (strneq(t, "init", i))
1N/A sum->init = v ? strtoul(v + 1, NiL, 0) : ~sum->init;
1N/A else if (strneq(t, "rotate", i))
1N/A sum->rotate = 1;
1N/A else if (strneq(t, "size", i))
1N/A {
1N/A sum->addsize = 1;
1N/A if (v)
1N/A sum->xorsize = strtoul(v + 1, NiL, 0);
1N/A }
1N/A if (*s == '-')
1N/A s++;
1N/A }
1N/A if (sum->rotate)
1N/A {
1N/A Crcnum_t t;
1N/A Crcnum_t p[8];
1N/A
1N/A p[0] = polynomial;
1N/A for (i = 1; i < 8; i++)
1N/A p[i] = (p[i-1] << 1) ^ ((p[i-1] & 0x80000000) ? polynomial : 0);
1N/A for (i = 0; i < elementsof(sum->tabdata); i++)
1N/A {
1N/A t = 0;
1N/A x = i;
1N/A for (j = 0; j < 8; j++)
1N/A {
1N/A if (x & 1)
1N/A t ^= p[j];
1N/A x >>= 1;
1N/A }
1N/A sum->tabdata[i] = t;
1N/A }
1N/A }
1N/A else
1N/A {
1N/A for (i = 0; i < elementsof(sum->tabdata); i++)
1N/A {
1N/A x = i;
1N/A for (j = 0; j < 8; j++)
1N/A x = (x>>1) ^ ((x & 1) ? polynomial : 0);
1N/A sum->tabdata[i] = x;
1N/A }
1N/A }
1N/A
1N/A sum->tab=sum->tabdata;
1N/A }
1N/A
1N/A return (Sum_t*)sum;
1N/A}
1N/A
1N/Astatic int
1N/Acrc_init(Sum_t* p)
1N/A{
1N/A Crc_t* sum = (Crc_t*)p;
1N/A
1N/A sum->sum = sum->init;
1N/A return 0;
1N/A}
1N/A
1N/A#if defined(__SUNPRO_C) || defined(__GNUC__)
1N/A
1N/A#if defined(__SUNPRO_C)
1N/A# include <sun_prefetch.h>
1N/A# define sum_prefetch(addr) sun_prefetch_read_many((void *)(addr))
1N/A#elif defined(__GNUC__)
1N/A# define sum_prefetch(addr) __builtin_prefetch((addr), 0, 3)
1N/A#else
1N/A# error Unknown compiler
1N/A#endif
1N/A
1N/A#define CBLOCK_SIZE (64)
1N/A#pragma unroll(16)
1N/A
1N/Astatic int
1N/Acrc_block(Sum_t* p, const void* s, size_t n)
1N/A{
1N/A Crc_t* sum = (Crc_t*)p;
1N/A register Crcnum_t c = sum->sum;
1N/A register const unsigned char* b = (const unsigned char*)s;
1N/A register const unsigned char* e = b + n;
1N/A unsigned short i;
1N/A
1N/A sum_prefetch(b);
1N/A
1N/A if (sum->rotate)
1N/A {
1N/A while (n > CBLOCK_SIZE)
1N/A {
1N/A sum_prefetch(b+CBLOCK_SIZE);
1N/A for(i=0 ; i < CBLOCK_SIZE ; i++)
1N/A {
1N/A CRCROTATE(sum, c, *b++);
1N/A }
1N/A
1N/A n-=CBLOCK_SIZE;
1N/A }
1N/A
1N/A while (b < e)
1N/A {
1N/A CRCROTATE(sum, c, *b++);
1N/A }
1N/A }
1N/A else
1N/A {
1N/A while (n > CBLOCK_SIZE)
1N/A {
1N/A sum_prefetch(b+CBLOCK_SIZE);
1N/A for(i=0 ; i < CBLOCK_SIZE ; i++)
1N/A {
1N/A CRC(sum, c, *b++);
1N/A }
1N/A
1N/A n-=CBLOCK_SIZE;
1N/A }
1N/A
1N/A while (b < e)
1N/A {
1N/A CRC(sum, c, *b++);
1N/A }
1N/A }
1N/A
1N/A sum->sum = c;
1N/A return 0;
1N/A}
1N/A#else
1N/Astatic int
1N/Acrc_block(Sum_t* p, const void* s, size_t n)
1N/A{
1N/A Crc_t* sum = (Crc_t*)p;
1N/A register Crcnum_t c = sum->sum;
1N/A register unsigned char* b = (unsigned char*)s;
1N/A register unsigned char* e = b + n;
1N/A
1N/A if (sum->rotate)
1N/A while (b < e)
1N/A CRCROTATE(sum, c, *b++);
1N/A else
1N/A while (b < e)
1N/A CRC(sum, c, *b++);
1N/A sum->sum = c;
1N/A return 0;
1N/A}
1N/A#endif /* defined(__SUNPRO_C) || defined(__GNUC__) */
1N/A
1N/Astatic int
1N/Acrc_done(Sum_t* p)
1N/A{
1N/A register Crc_t* sum = (Crc_t*)p;
1N/A register Crcnum_t c;
1N/A register uintmax_t n;
1N/A int i;
1N/A int j;
1N/A
1N/A c = sum->sum;
1N/A if (sum->addsize)
1N/A {
1N/A n = sum->size ^ sum->xorsize;
1N/A if (sum->rotate)
1N/A while (n)
1N/A {
1N/A CRCROTATE(sum, c, n);
1N/A n >>= 8;
1N/A }
1N/A else
1N/A for (i = 0, j = 32; i < 4; i++)
1N/A {
1N/A j -= 8;
1N/A CRC(sum, c, n >> j);
1N/A }
1N/A }
1N/A sum->sum = c ^ sum->done;
1N/A sum->total_sum ^= (sum->sum &= 0xffffffff);
1N/A return 0;
1N/A}