Mercurial > ~darius > hgwebdir.cgi > paradise_server

comparison zlib/adler32.c @ 10:1040ca591f2e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
First entry of Paradise Server 2.9 patch 10 Beta
author darius
date Sat, 06 Dec 1997 04:37:18 +0000
parents
children
comparison
equal deleted inserted replaced
9:331055a97a9d 10:1040ca591f2e
1 /* adler32.c -- compute the Adler-32 checksum of a data stream
2 * Copyright (C) 1995 Mark Adler
3 * For conditions of distribution and use, see copyright notice in zlib.h
4 */
5
6 /* $Id: adler32.c,v 1.1.1.1 1997/12/06 04:37:17 darius Exp $ */
7
8 #include "zlib.h"
9
10 #define BASE 65521L /* largest prime smaller than 65536 */
11 #define NMAX 5552
12 /* NMAX is the largest n such that 255n(n+1)/2 + (n+1)(BASE-1) <= 2^32-1 */
13
14 #define DO1(buf) {s1 += *buf++; s2 += s1;}
15 #define DO2(buf) DO1(buf); DO1(buf);
16 #define DO4(buf) DO2(buf); DO2(buf);
17 #define DO8(buf) DO4(buf); DO4(buf);
18 #define DO16(buf) DO8(buf); DO8(buf);
19
20 /* ========================================================================= */
21 uLong adler32(adler, buf, len)
22 uLong adler;
23 Bytef *buf;
24 uInt len;
25 {
26 unsigned long s1 = adler & 0xffff;
27 unsigned long s2 = (adler >> 16) & 0xffff;
28 int k;
29
30 if (buf == Z_NULL) return 1L;
31
32 while (len > 0) {
33 k = len < NMAX ? len : NMAX;
34 len -= k;
35 while (k >= 16) {
36 DO16(buf);
37 k -= 16;
38 }
39 if (k != 0) do {
40 DO1(buf);
41 } while (--k);
42 s1 %= BASE;
43 s2 %= BASE;
44 }
45 return (s2 << 16) | s1;
46 }