1 /********************************************************************
3 * THIS FILE IS PART OF THE Ogg Vorbis SOFTWARE CODEC SOURCE CODE. *
4 * USE, DISTRIBUTION AND REPRODUCTION OF THIS SOURCE IS GOVERNED BY *
5 * THE GNU PUBLIC LICENSE 2, WHICH IS INCLUDED WITH THIS SOURCE. *
6 * PLEASE READ THESE TERMS DISTRIBUTING. *
8 * THE OggSQUISH SOURCE CODE IS (C) COPYRIGHT 1994-2000 *
9 * by Monty <monty@xiph.org> and The XIPHOPHORUS Company *
10 * http://www.xiph.org/ *
12 ********************************************************************
14 function: packing variable sized words into an octet stream
15 last mod: $Id: bitwise.c,v 1.12 2000/07/07 01:41:43 xiphmont Exp $
17 ********************************************************************/
19 /* We're 'LSb' endian; if we write a word but read individual bits,
20 then we'll read the lsb first */
28 #define BUFFER_INCREMENT 256
30 static unsigned long mask[]=
31 {0x00000000,0x00000001,0x00000003,0x00000007,0x0000000f,
32 0x0000001f,0x0000003f,0x0000007f,0x000000ff,0x000001ff,
33 0x000003ff,0x000007ff,0x00000fff,0x00001fff,0x00003fff,
34 0x00007fff,0x0000ffff,0x0001ffff,0x0003ffff,0x0007ffff,
35 0x000fffff,0x001fffff,0x003fffff,0x007fffff,0x00ffffff,
36 0x01ffffff,0x03ffffff,0x07ffffff,0x0fffffff,0x1fffffff,
37 0x3fffffff,0x7fffffff,0xffffffff };
39 void _oggpack_writeinit(oggpack_buffer *b){
40 memset(b,0,sizeof(oggpack_buffer));
41 b->ptr=b->buffer=malloc(BUFFER_INCREMENT);
43 b->storage=BUFFER_INCREMENT;
46 void _oggpack_reset(oggpack_buffer *b){
49 b->endbit=b->endbyte=0;
52 void _oggpack_writeclear(oggpack_buffer *b){
54 memset(b,0,sizeof(oggpack_buffer));
57 void _oggpack_readinit(oggpack_buffer *b,unsigned char *buf,int bytes){
58 memset(b,0,sizeof(oggpack_buffer));
63 /* Takes only up to 32 bits. */
64 void _oggpack_write(oggpack_buffer *b,unsigned long value,int bits){
65 if(b->endbyte+4>=b->storage){
66 b->buffer=realloc(b->buffer,b->storage+BUFFER_INCREMENT);
67 b->storage+=BUFFER_INCREMENT;
68 b->ptr=b->buffer+b->endbyte;
74 b->ptr[0]|=value<<b->endbit;
77 b->ptr[1]=value>>(8-b->endbit);
79 b->ptr[2]=value>>(16-b->endbit);
81 b->ptr[3]=value>>(24-b->endbit);
84 b->ptr[4]=value>>(32-b->endbit);
97 /* Read in bits without advancing the bitptr; bits <= 32 */
98 long _oggpack_look(oggpack_buffer *b,int bits){
100 unsigned long m=mask[bits];
104 if(b->endbyte+4>=b->storage){
105 /* not the main path */
106 if(b->endbyte+(bits-1)/8>=b->storage)return(-1);
109 ret=b->ptr[0]>>b->endbit;
111 ret|=b->ptr[1]<<(8-b->endbit);
113 ret|=b->ptr[2]<<(16-b->endbit);
115 ret|=b->ptr[3]<<(24-b->endbit);
116 if(bits>32 && b->endbit)
117 ret|=b->ptr[4]<<(32-b->endbit);
124 long _oggpack_look1(oggpack_buffer *b){
125 if(b->endbyte>=b->storage)return(-1);
126 return((b->ptr[0]>>b->endbit)&1);
129 void _oggpack_adv(oggpack_buffer *b,int bits){
136 void _oggpack_adv1(oggpack_buffer *b){
145 long _oggpack_read(oggpack_buffer *b,int bits){
147 unsigned long m=mask[bits];
151 if(b->endbyte+4>=b->storage){
152 /* not the main path */
154 if(b->endbyte+(bits-1)/8>=b->storage)goto overflow;
157 ret=b->ptr[0]>>b->endbit;
159 ret|=b->ptr[1]<<(8-b->endbit);
161 ret|=b->ptr[2]<<(16-b->endbit);
163 ret|=b->ptr[3]<<(24-b->endbit);
164 if(bits>32 && b->endbit){
165 ret|=b->ptr[4]<<(32-b->endbit);
180 long _oggpack_read1(oggpack_buffer *b){
183 if(b->endbyte>=b->storage){
184 /* not the main path */
189 ret=(b->ptr[0]>>b->endbit)&1;
202 long _oggpack_bytes(oggpack_buffer *b){
203 return(b->endbyte+(b->endbit+7)/8);
206 long _oggpack_bits(oggpack_buffer *b){
207 return(b->endbyte*8+b->endbit);
210 unsigned char *_oggpack_buffer(oggpack_buffer *b){
214 /* Self test of the bitwise routines; everything else is based on
215 them, so they damned well better be solid. */
220 static int ilog(unsigned int v){
232 void report(char *in){
233 fprintf(stderr,"%s",in);
237 void cliptest(unsigned long *b,int vals,int bits,int *comp,int compsize){
239 unsigned char *buffer;
243 _oggpack_write(&o,b[i],bits?bits:ilog(b[i]));
244 buffer=_oggpack_buffer(&o);
245 bytes=_oggpack_bytes(&o);
246 if(bytes!=compsize)report("wrong number of bytes!\n");
247 for(i=0;i<bytes;i++)if(buffer[i]!=comp[i]){
248 for(i=0;i<bytes;i++)fprintf(stderr,"%x %x\n",(int)buffer[i],(int)comp[i]);
249 report("wrote incorrect value!\n");
251 _oggpack_readinit(&r,buffer,bytes);
253 int tbit=bits?bits:ilog(b[i]);
254 if(_oggpack_look(&r,tbit)==-1)
255 report("out of data!\n");
256 if(_oggpack_look(&r,tbit)!=(b[i]&mask[tbit]))
257 report("looked at incorrect value!\n");
259 if(_oggpack_look1(&r)!=(b[i]&mask[tbit]))
260 report("looked at single bit incorrect value!\n");
262 if(_oggpack_read1(&r)!=(b[i]&mask[tbit]))
263 report("read incorrect single bit value!\n");
265 if(_oggpack_read(&r,tbit)!=(b[i]&mask[tbit]))
266 report("read incorrect value!\n");
269 if(_oggpack_bytes(&r)!=bytes)report("leftover bytes after read!\n");
273 unsigned char *buffer;
275 static unsigned long testbuffer1[]=
276 {18,12,103948,4325,543,76,432,52,3,65,4,56,32,42,34,21,1,23,32,546,456,7,
277 567,56,8,8,55,3,52,342,341,4,265,7,67,86,2199,21,7,1,5,1,4};
280 static unsigned long testbuffer2[]=
281 {216531625L,1237861823,56732452,131,3212421,12325343,34547562,12313212,
282 1233432,534,5,346435231,14436467,7869299,76326614,167548585,
283 85525151,0,12321,1,349528352};
286 static unsigned long large[]=
287 {2136531625L,2137861823,56732452,131,3212421,12325343,34547562,12313212,
288 1233432,534,5,2146435231,14436467,7869299,76326614,167548585,
289 85525151,0,12321,1,2146528352};
291 static unsigned long testbuffer3[]=
292 {1,0,14,0,1,0,12,0,1,0,0,0,1,1,0,1,0,1,0,1,0,1,0,1,0,1,0,0,1,1,1,1,1,0,0,1,
293 0,1,30,1,1,1,0,0,1,0,0,0,12,0,11,0,1,0,0,1};
297 static int one[]={146,25,44,151,195,15,153,176,233,131,196,65,85,172,47,40,
298 34,242,223,136,35,222,211,86,171,50,225,135,214,75,172,
302 static int two[]={61,255,255,251,231,29};
305 static int three[]={169,2,232,252,91,132,156,36,89,13,123,176,144,32,254,
306 142,224,85,59,121,144,79,124,23,67,90,90,216,79,23,83,
307 58,135,196,61,55,129,183,54,101,100,170,37,127,126,10,
308 100,52,4,14,18,86,77,1};
311 static int four[]={18,6,163,252,97,194,104,131,32,1,7,82,137,42,129,11,72,
312 132,60,220,112,8,196,109,64,179,86,9,137,195,208,122,169,
316 static int five[]={169,2,126,139,144,172,30,4,80,72,240,59,130,218,73,62,
317 241,24,210,44,4,20,0,248,116,49,135,100,110,130,181,169,
318 84,75,159,2,1,0,132,192,8,0,0,18,22};
321 static int six[]={17,177,170,242,169,19,148};
323 /* Test read/write together */
324 /* Later we test against pregenerated bitstreams */
325 _oggpack_writeinit(&o);
327 fprintf(stderr,"\nSmall preclipped packing: ");
328 cliptest(testbuffer1,test1size,0,one,onesize);
329 fprintf(stderr,"ok.");
331 fprintf(stderr,"\nNull bit call: ");
332 cliptest(testbuffer3,test3size,0,two,twosize);
333 fprintf(stderr,"ok.");
335 fprintf(stderr,"\nLarge preclipped packing: ");
336 cliptest(testbuffer2,test2size,0,three,threesize);
337 fprintf(stderr,"ok.");
339 fprintf(stderr,"\n32 bit preclipped packing: ");
341 for(i=0;i<test2size;i++)
342 _oggpack_write(&o,large[i],32);
343 buffer=_oggpack_buffer(&o);
344 bytes=_oggpack_bytes(&o);
345 _oggpack_readinit(&r,buffer,bytes);
346 for(i=0;i<test2size;i++){
347 if(_oggpack_look(&r,32)==-1)report("out of data. failed!");
348 if(_oggpack_look(&r,32)!=large[i]){
349 fprintf(stderr,"%ld != %ld (%lx!=%lx):",_oggpack_look(&r,32),large[i],
350 _oggpack_look(&r,32),large[i]);
351 report("read incorrect value!\n");
355 if(_oggpack_bytes(&r)!=bytes)report("leftover bytes after read!\n");
356 fprintf(stderr,"ok.");
358 fprintf(stderr,"\nSmall unclipped packing: ");
359 cliptest(testbuffer1,test1size,7,four,foursize);
360 fprintf(stderr,"ok.");
362 fprintf(stderr,"\nLarge unclipped packing: ");
363 cliptest(testbuffer2,test2size,17,five,fivesize);
364 fprintf(stderr,"ok.");
366 fprintf(stderr,"\nSingle bit unclicpped packing: ");
367 cliptest(testbuffer3,test3size,1,six,sixsize);
368 fprintf(stderr,"ok.");
370 fprintf(stderr,"\nTesting read past end: ");
371 _oggpack_readinit(&r,"\0\0\0\0\0\0\0\0",8);
373 if(_oggpack_read(&r,1)!=0){
374 fprintf(stderr,"failed; got -1 prematurely.\n");
378 if(_oggpack_look(&r,1)!=-1 ||
379 _oggpack_read(&r,1)!=-1){
380 fprintf(stderr,"failed; read past end without -1.\n");
383 _oggpack_readinit(&r,"\0\0\0\0\0\0\0\0",8);
384 if(_oggpack_read(&r,30)!=0 || _oggpack_read(&r,16)!=0){
385 fprintf(stderr,"failed 2; got -1 prematurely.\n");
389 if(_oggpack_look(&r,18)!=0 ||
390 _oggpack_look(&r,18)!=0){
391 fprintf(stderr,"failed 3; got -1 prematurely.\n");
394 if(_oggpack_look(&r,19)!=-1 ||
395 _oggpack_look(&r,19)!=-1){
396 fprintf(stderr,"failed; read past end without -1.\n");
399 if(_oggpack_look(&r,32)!=-1 ||
400 _oggpack_look(&r,32)!=-1){
401 fprintf(stderr,"failed; read past end without -1.\n");
404 fprintf(stderr,"ok.\n\n");
410 #undef BUFFER_INCREMENT