Cleaning the examples' Makefiles and octaves scripts.
[Faustine.git] / interpretor / lib / src / libsndfile-1.0.25 / regtest / checksum.c
1 /*
2 ** Copyright (C) 2005-2011 Erik de Castro Lopo
3 **
4 ** This program is free software; you can redistribute it and/or modify
5 ** it under the terms of the GNU General Public License as published by
6 ** the Free Software Foundation; either version 2 of the License, or
7 ** (at your option) any later version.
8 **
9 ** This program is distributed in the hope that it will be useful,
10 ** but WITHOUT ANY WARRANTY; without even the implied warranty of
11 ** MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12 ** GNU General Public License for more details.
13 **
14 ** You should have received a copy of the GNU General Public License
15 ** along with this program; if not, write to the Free Software
16 ** Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
17 */
18
19 /*
20 ** A simple checksum for short, int and float data.
21 */
22
23 #include "sfconfig.h"
24
25 #include <stdio.h>
26 #include <stdlib.h>
27 #include <string.h>
28 #include <math.h>
29
30 #include <sndfile.h>
31
32 #include "regtest.h"
33
34 #define BIG_PRIME 999983
35
36 #define ARRAY_LEN(x) ((int) (sizeof (x)) / (sizeof ((x) [0])))
37
38 static int short_checksum (SNDFILE * file, int start) ;
39 static int int_checksum (SNDFILE * file, int start) ;
40 static int float_checksum (SNDFILE * file, int start) ;
41
42 int
43 calc_checksum (SNDFILE * file, const SF_INFO * info)
44 { int start ;
45
46 /* Seed the checksum with data from the SF_INFO struct. */
47 start = info->samplerate ;
48 start = start * BIG_PRIME + info->channels ;
49 start = start * BIG_PRIME + info->format ;
50
51 switch (info->format & SF_FORMAT_SUBMASK)
52 { case SF_FORMAT_FLOAT :
53 case SF_FORMAT_DOUBLE :
54 return float_checksum (file, start) ;
55
56 case SF_FORMAT_PCM_24 :
57 case SF_FORMAT_PCM_32 :
58 return int_checksum (file, start) ;
59
60 default :
61 return short_checksum (file, start) ;
62 } ;
63
64 return 0 ;
65 } /* calc_checksum */
66
67 /*------------------------------------------------------------------------------
68 */
69
70 static union
71 { short s [1 << 16] ;
72 int i [1 << 15] ;
73 float f [1 << 15] ;
74 } data ;
75
76 static int
77 short_checksum (SNDFILE * file, int start)
78 { int k, count ;
79
80 do
81 { count = (int) sf_read_short (file, data.s, ARRAY_LEN (data.s)) ;
82 for (k = 0 ; k < count ; k++)
83 start = start * BIG_PRIME + data.s [k] ;
84 }
85 while (count > 0) ;
86
87 return start ;
88 } /* short_checksum */
89
90 static int
91 int_checksum (SNDFILE * file, int start)
92 { int k, count ;
93
94 do
95 { count = (int) sf_read_int (file, data.i, ARRAY_LEN (data.i)) ;
96 for (k = 0 ; k < count ; k++)
97 start = start * BIG_PRIME + data.i [k] ;
98 }
99 while (count > 0) ;
100
101 return start ;
102 } /* int_checksum */
103
104 static int
105 float_checksum (SNDFILE * file, int start)
106 { int k, count ;
107
108 do
109 { count = (int) sf_read_float (file, data.f, ARRAY_LEN (data.f)) ;
110 for (k = 0 ; k < count ; k++)
111 start = start * BIG_PRIME + lrintf (0x7FFFFFFF * data.f [k]) ;
112 }
113 while (count > 0) ;
114
115 return start ;
116 } /* float_checksum */
117