lib/bitio.c

   1 /*  bitio.c
   2     part of swftools
   3     implementation of bitio.h.
   4
   5     Copyright (C) 2003 Matthias Kramm <kramm@quiss.org>
   6
   7     This program is free software; you can redistribute it and/or modify
   8     it under the terms of the GNU General Public License as published by
   9     the Free Software Foundation; either version 2 of the License, or
  10     (at your option) any later version.
  11
  12     This program is distributed in the hope that it will be useful,
  13     but WITHOUT ANY WARRANTY; without even the implied warranty of
  14     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15     GNU General Public License for more details.
  16
  17     You should have received a copy of the GNU General Public License
  18     along with this program; if not, write to the Free Software
  19     Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA */
  20
  21 #include <stdio.h>
  22 #include <stdlib.h>
  23 #ifdef HAVE_UNISTD_H
  24 #include <unistd.h>
  25 #endif
  26 #ifdef HAVE_IO_H
  27 #include <io.h>
  28 #endif
  29 #include <string.h>
  30 #include <memory.h>
  31 #include <fcntl.h>
  32 #include <errno.h>
  33
  34 #include "../config.h"
  35
  36 #ifdef HAVE_ZLIB
  37 #include <zlib.h>
  38 #define ZLIB_BUFFER_SIZE 16384
  39 #endif
  40 #include "./bitio.h"
  41
  42 /* ---------------------------- null reader ------------------------------- */
  43
  44 static int reader_nullread(reader_t*r, void* data, int len)
  45 {
  46     memset(data, 0, len);
  47     return len;
  48 }
  49 static void reader_nullread_dealloc(reader_t*r)
  50 {
  51     memset(r, 0, sizeof(reader_t));
  52 }
  53 void reader_init_nullreader(reader_t*r)
  54 {
  55     r->read = reader_nullread;
  56     r->dealloc = reader_nullread_dealloc;
  57     r->internal = 0;
  58     r->type = READER_TYPE_NULL;
  59     r->mybyte = 0;
  60     r->bitpos = 8;
  61     r->pos = 0;
  62 }
  63 /* ---------------------------- file reader ------------------------------- */
  64
  65 static int reader_fileread(reader_t*reader, void* data, int len)
  66 {
  67     int ret = read((int)reader->internal, data, len);
  68     if(ret>=0)
  69         reader->pos += ret;
  70     return ret;
  71 }
  72 static void reader_fileread_dealloc(reader_t*r)
  73 {
  74     if(r->type == READER_TYPE_FILE2) {
  75         close((ptroff_t)r->internal);
  76     }
  77     memset(r, 0, sizeof(reader_t));
  78 }
  79 void reader_init_filereader(reader_t*r, int handle)
  80 {
  81     r->read = reader_fileread;
  82     r->dealloc = reader_fileread_dealloc;
  83     r->internal = (void*)handle;
  84     r->type = READER_TYPE_FILE;
  85     r->mybyte = 0;
  86     r->bitpos = 8;
  87     r->pos = 0;
  88 }
  89 void reader_init_filereader2(reader_t*r, const char*filename)
  90 {
  91     int fi = open(filename,
  92 #ifdef O_BINARY
  93             O_BINARY|
  94 #endif
  95             O_RDONLY);
  96     reader_init_filereader(r, fi);
  97     r->type = READER_TYPE_FILE2;
  98 }
  99
 100 /* ---------------------------- mem reader ------------------------------- */
 101
 102 typedef struct _memread
 103 {
 104     unsigned char*data;
 105     int length;
 106 } memread_t;
 107
 108 static int reader_memread(reader_t*reader, void* data, int len)
 109 {
 110     memread_t*mr = (memread_t*)reader->internal;
 111
 112     if(mr->length - reader->pos < len) {
 113         len = mr->length - reader->pos;
 114     }
 115     memcpy(data, &mr->data[reader->pos], len);
 116     reader->pos += len;
 117     return len;
 118 }
 119 static void reader_memread_dealloc(reader_t*reader)
 120 {
 121     if(reader->internal)
 122         free(reader->internal);
 123     memset(reader, 0, sizeof(reader_t));
 124 }
 125 void reader_init_memreader(reader_t*r, void*newdata, int newlength)
 126 {
 127     memread_t*mr = (memread_t*)malloc(sizeof(memread_t));
 128     mr->data = (unsigned char*)newdata;
 129     mr->length = newlength;
 130     r->read = reader_memread;
 131     r->dealloc = reader_memread_dealloc;
 132     r->internal = (void*)mr;
 133     r->type = READER_TYPE_MEM;
 134     r->mybyte = 0;
 135     r->bitpos = 8;
 136     r->pos = 0;
 137 }
 138
 139 /* ---------------------------- mem writer ------------------------------- */
 140
 141 typedef struct _memwrite
 142 {
 143     unsigned char*data;
 144     int length;
 145 } memwrite_t;
 146
 147 static int writer_memwrite_write(writer_t*w, void* data, int len)
 148 {
 149     memwrite_t*mw = (memwrite_t*)w->internal;
 150     if(mw->length - w->pos > len) {
 151         memcpy(&mw->data[w->pos], data, len);
 152         w->pos += len;
 153         return len;
 154     } else {
 155         memcpy(&mw->data[w->pos], data, mw->length - w->pos);
 156         w->pos = mw->length;
 157         return mw->length - w->pos;
 158     }
 159 }
 160 static void writer_memwrite_finish(writer_t*w)
 161 {
 162     if(w->internal)
 163         free(w->internal);
 164     w->internal = 0;
 165 }
 166 static void dummy_flush(writer_t*w)
 167 {
 168 }
 169 void writer_init_memwriter(writer_t*w, void*data, int len)
 170 {
 171     memwrite_t *mr;
 172     mr = (memwrite_t*)malloc(sizeof(memwrite_t));
 173     mr->data = (unsigned char *)data;
 174     mr->length = len;
 175     memset(w, 0, sizeof(writer_t));
 176     w->write = writer_memwrite_write;
 177     w->flush = dummy_flush;
 178     w->finish = writer_memwrite_finish;
 179     w->internal = (void*)mr;
 180     w->type = WRITER_TYPE_MEM;
 181     w->bitpos = 0;
 182     w->mybyte = 0;
 183     w->pos = 0;
 184 }
 185
 186 /* ------------------------- growing mem writer ------------------------------- */
 187
 188 typedef struct _growmemwrite
 189 {
 190     unsigned char*data;
 191     int length;
 192     U32 grow;
 193 } growmemwrite_t;
 194 static int writer_growmemwrite_write(writer_t*w, void* data, int len)
 195 {
 196     growmemwrite_t*mw = (growmemwrite_t*)w->internal;
 197     if(!mw->data) {
 198         fprintf(stderr, "Illegal write operation: data already given away");
 199         exit(1);
 200     }
 201     if(mw->length - w->pos < len) {
 202         int newlength = mw->length;
 203         while(newlength - w->pos < len) {
 204             newlength += mw->grow;
 205         }
 206 #ifdef NO_REALLOC
 207         unsigned char*newmem = (unsigned char*)malloc(newlength);
 208         memcpy(newmem, mw->data, mw->length);
 209         free(mw->data);
 210         mw->data = newmem;
 211 #else
 212         mw->data = (unsigned char*)realloc(mw->data, newlength);
 213 #endif
 214         mw->length = newlength;
 215     }
 216     memcpy(&mw->data[w->pos], data, len);
 217     w->pos += len;
 218     return len;
 219 }
 220 static void writer_growmemwrite_finish(writer_t*w)
 221 {
 222     growmemwrite_t*mw = (growmemwrite_t*)w->internal;
 223     if(mw->data) {
 224         free(mw->data);mw->data = 0;
 225     }
 226     mw->length = 0;
 227     free(w->internal);mw=0;
 228     memset(w, 0, sizeof(writer_t));
 229 }
 230 void* writer_growmemwrite_memptr(writer_t*w, int*len)
 231 {
 232     growmemwrite_t*mw = (growmemwrite_t*)w->internal;
 233     if(len) {
 234         *len = w->pos;
 235     }
 236     return mw->data;
 237 }
 238 void* writer_growmemwrite_getmem(writer_t*w)
 239 {
 240     growmemwrite_t*mw = (growmemwrite_t*)w->internal;
 241     void*ret = mw->data;
 242     /* remove own reference so that neither write() nor finish() can free it.
 243        It's property of the caller now.
 244     */
 245     mw->data = 0;
 246     return ret;
 247 }
 248 void writer_growmemwrite_reset(writer_t*w)
 249 {
 250     growmemwrite_t*mw = (growmemwrite_t*)w->internal;
 251     w->pos = 0;
 252     w->bitpos = 0;
 253     w->mybyte = 0;
 254 }
 255 void writer_init_growingmemwriter(writer_t*w, U32 grow)
 256 {
 257     growmemwrite_t *mw = (growmemwrite_t *)malloc(sizeof(growmemwrite_t));
 258     mw->length = 4096;
 259     mw->data = (unsigned char *)malloc(mw->length);
 260     mw->grow = grow;
 261     memset(w, 0, sizeof(writer_t));
 262     w->write = writer_growmemwrite_write;
 263     w->flush = dummy_flush;
 264     w->finish = writer_growmemwrite_finish;
 265     w->internal = (void*)mw;
 266     w->type = WRITER_TYPE_GROWING_MEM;
 267     w->bitpos = 0;
 268     w->mybyte = 0;
 269     w->pos = 0;
 270 }
 271
 272 /* ---------------------------- file writer ------------------------------- */
 273
 274 typedef struct _filewrite
 275 {
 276     int handle;
 277     char free_handle;
 278 } filewrite_t;
 279
 280 static int writer_filewrite_write(writer_t*w, void* data, int len)
 281 {
 282     filewrite_t * fw= (filewrite_t*)w->internal;
 283     w->pos += len;
 284     return write(fw->handle, data, len);
 285 }
 286 static void writer_filewrite_finish(writer_t*w)
 287 {
 288     filewrite_t *mr = (filewrite_t*)w->internal;
 289     if(mr->free_handle)
 290         close(mr->handle);
 291     free(w->internal);
 292     memset(w, 0, sizeof(writer_t));
 293 }
 294 void writer_init_filewriter(writer_t*w, int handle)
 295 {
 296     filewrite_t *mr = (filewrite_t *)malloc(sizeof(filewrite_t));
 297     mr->handle = handle;
 298     mr->free_handle = 0;
 299     memset(w, 0, sizeof(writer_t));
 300     w->write = writer_filewrite_write;
 301     w->finish = writer_filewrite_finish;
 302     w->internal = mr;
 303     w->type = WRITER_TYPE_FILE;
 304     w->bitpos = 0;
 305     w->mybyte = 0;
 306     w->pos = 0;
 307 }
 308 void writer_init_filewriter2(writer_t*w, char*filename)
 309 {
 310     int fi = open(filename,
 311 #ifdef O_BINARY
 312             O_BINARY|
 313 #endif
 314             O_WRONLY|O_CREAT|O_TRUNC, 0644);
 315     writer_init_filewriter(w, fi);
 316     ((filewrite_t*)w->internal)->free_handle = 1;
 317 }
 318
 319 /* ---------------------------- null writer ------------------------------- */
 320
 321 static int writer_nullwrite_write(writer_t*w, void* data, int len)
 322 {
 323     w->pos += len;
 324     return len;
 325 }
 326 static void writer_nullwrite_finish(writer_t*w)
 327 {
 328     memset(w, 0, sizeof(writer_t));
 329 }
 330 void writer_init_nullwriter(writer_t*w)
 331 {
 332     memset(w, 0, sizeof(writer_t));
 333     w->write = writer_nullwrite_write;
 334     w->flush = dummy_flush;
 335     w->finish = writer_nullwrite_finish;
 336     w->internal = 0;
 337     w->type = WRITER_TYPE_NULL;
 338     w->bitpos = 0;
 339     w->mybyte = 0;
 340     w->pos = 0;
 341 }
 342 /* ---------------------------- zlibinflate reader -------------------------- */
 343
 344 typedef struct _zlibinflate
 345 {
 346 #ifdef HAVE_ZLIB
 347     z_stream zs;
 348     reader_t*input;
 349     unsigned char readbuffer[ZLIB_BUFFER_SIZE];
 350 #endif
 351 } zlibinflate_t;
 352
 353 #ifdef HAVE_ZLIB
 354 static void zlib_error(int ret, char* msg, z_stream*zs)
 355 {
 356     fprintf(stderr, "%s: zlib error (%d): last zlib error: %s\n",
 357           msg,
 358           ret,
 359           zs->msg?zs->msg:"unknown");
 360     if(errno) perror("errno:");
 361     exit(1);
 362 }
 363 #endif
 364
 365 static int reader_zlibinflate(reader_t*reader, void* data, int len)
 366 {
 367 #ifdef HAVE_ZLIB
 368     zlibinflate_t*z = (zlibinflate_t*)reader->internal;
 369     int ret;
 370     if(!z) {
 371         return 0;
 372     }
 373     if(!len)
 374         return 0;
 375
 376     z->zs.next_out = (Bytef *)data;
 377     z->zs.avail_out = len;
 378
 379     while(1) {
 380         if(!z->zs.avail_in) {
 381             z->zs.avail_in = z->input->read(z->input, z->readbuffer, ZLIB_BUFFER_SIZE);
 382             z->zs.next_in = z->readbuffer;
 383         }
 384         if(z->zs.avail_in)
 385             ret = inflate(&z->zs, Z_NO_FLUSH);
 386         else
 387             ret = inflate(&z->zs, Z_FINISH);
 388
 389         if (ret != Z_OK &&
 390             ret != Z_STREAM_END) zlib_error(ret, "bitio:inflate_inflate", &z->zs);
 391
 392         if (ret == Z_STREAM_END) {
 393                 int pos = z->zs.next_out - (Bytef*)data;
 394                 ret = inflateEnd(&z->zs);
 395                 if (ret != Z_OK) zlib_error(ret, "bitio:inflate_end", &z->zs);
 396                 free(reader->internal);
 397                 reader->internal = 0;
 398                 reader->pos += pos;
 399                 return pos;
 400         }
 401         if(!z->zs.avail_out) {
 402             break;
 403         }
 404     }
 405     reader->pos += len;
 406     return len;
 407 #else
 408     fprintf(stderr, "Error: swftools was compiled without zlib support");
 409     exit(1);
 410 #endif
 411 }
 412 static void reader_zlibinflate_dealloc(reader_t*reader)
 413 {
 414 #ifdef HAVE_ZLIB
 415     zlibinflate_t*z = (zlibinflate_t*)reader->internal;
 416     /* test whether read() already did basic deallocation */
 417     if(reader->internal) {
 418         inflateEnd(&z->zs);
 419         free(reader->internal);
 420     }
 421     memset(reader, 0, sizeof(reader_t));
 422 #endif
 423 }
 424 void reader_init_zlibinflate(reader_t*r, reader_t*input)
 425 {
 426 #ifdef HAVE_ZLIB
 427     zlibinflate_t*z = (zlibinflate_t*)malloc(sizeof(zlibinflate_t));
 428     memset(z, 0, sizeof(zlibinflate_t));
 429     int ret;
 430     memset(r, 0, sizeof(reader_t));
 431     r->internal = z;
 432     r->read = reader_zlibinflate;
 433     r->dealloc = reader_zlibinflate_dealloc;
 434     r->type = READER_TYPE_ZLIB;
 435     r->pos = 0;
 436     z->input = input;
 437     memset(&z->zs,0,sizeof(z_stream));
 438     z->zs.zalloc = Z_NULL;
 439     z->zs.zfree  = Z_NULL;
 440     z->zs.opaque = Z_NULL;
 441     ret = inflateInit(&z->zs);
 442     if (ret != Z_OK) zlib_error(ret, "bitio:inflate_init", &z->zs);
 443     reader_resetbits(r);
 444 #else
 445     fprintf(stderr, "Error: swftools was compiled without zlib support");
 446     exit(1);
 447 #endif
 448 }
 449
 450 /* ---------------------------- zlibdeflate writer -------------------------- */
 451
 452 typedef struct _zlibdeflate
 453 {
 454 #ifdef HAVE_ZLIB
 455     z_stream zs;
 456     writer_t*output;
 457     unsigned char writebuffer[ZLIB_BUFFER_SIZE];
 458 #endif
 459 } zlibdeflate_t;
 460
 461 static int writer_zlibdeflate_write(writer_t*writer, void* data, int len)
 462 {
 463 #ifdef HAVE_ZLIB
 464     zlibdeflate_t*z = (zlibdeflate_t*)writer->internal;
 465     int ret;
 466     if(writer->type != WRITER_TYPE_ZLIB) {
 467         fprintf(stderr, "Wrong writer ID (writer not initialized?)\n");
 468         return 0;
 469     }
 470     if(!z) {
 471         fprintf(stderr, "zlib not initialized!\n");
 472         return 0;
 473     }
 474     if(!len)
 475         return 0;
 476
 477     z->zs.next_in = (Bytef *)data;
 478     z->zs.avail_in = len;
 479
 480     while(1) {
 481         ret = deflate(&z->zs, Z_NO_FLUSH);
 482
 483         if (ret != Z_OK) zlib_error(ret, "bitio:deflate_deflate", &z->zs);
 484
 485         if(z->zs.next_out != z->writebuffer) {
 486             writer->pos += z->zs.next_out - (Bytef*)z->writebuffer;
 487             z->output->write(z->output, z->writebuffer, z->zs.next_out - (Bytef*)z->writebuffer);
 488             z->zs.next_out = z->writebuffer;
 489             z->zs.avail_out = ZLIB_BUFFER_SIZE;
 490         }
 491
 492         if(!z->zs.avail_in) {
 493             break;
 494         }
 495     }
 496     return len;
 497 #else
 498     fprintf(stderr, "Error: swftools was compiled without zlib support");
 499     exit(1);
 500 #endif
 501 }
 502
 503 void writer_zlibdeflate_flush(writer_t*writer)
 504 {
 505 #ifdef HAVE_ZLIB
 506     zlibdeflate_t*z = (zlibdeflate_t*)writer->internal;
 507     int ret;
 508     if(writer->type != WRITER_TYPE_ZLIB) {
 509         fprintf(stderr, "Wrong writer ID (writer not initialized?)\n");
 510         return;
 511     }
 512     if(!z) {
 513         fprintf(stderr, "zlib not initialized!\n");
 514         return;
 515     }
 516
 517     z->zs.next_in = 0;
 518     z->zs.avail_in = 0;
 519     while(1) {
 520         ret = deflate(&z->zs, Z_SYNC_FLUSH);
 521         if (ret != Z_OK) zlib_error(ret, "bitio:deflate_flush", &z->zs);
 522         if(z->zs.next_out != z->writebuffer) {
 523             writer->pos += z->zs.next_out - (Bytef*)z->writebuffer;
 524             z->output->write(z->output, z->writebuffer, z->zs.next_out - (Bytef*)z->writebuffer);
 525             z->zs.next_out = z->writebuffer;
 526             z->zs.avail_out = ZLIB_BUFFER_SIZE;
 527         }
 528         /* TODO: how will zlib let us know it needs more buffer space? */
 529         break;
 530     }
 531     return;
 532 #else
 533     fprintf(stderr, "Error: swftools was compiled without zlib support");
 534     exit(1);
 535 #endif
 536 }
 537
 538 static void writer_zlibdeflate_finish(writer_t*writer)
 539 {
 540 #ifdef HAVE_ZLIB
 541     zlibdeflate_t*z = (zlibdeflate_t*)writer->internal;
 542     writer_t*output;
 543     int ret;
 544     if(writer->type != WRITER_TYPE_ZLIB) {
 545         fprintf(stderr, "Wrong writer ID (writer not initialized?)\n");
 546         return;
 547     }
 548     if(!z)
 549         return;
 550     output= z->output;
 551     while(1) {
 552         ret = deflate(&z->zs, Z_FINISH);
 553         if (ret != Z_OK &&
 554             ret != Z_STREAM_END) zlib_error(ret, "bitio:deflate_finish", &z->zs);
 555
 556         if(z->zs.next_out != z->writebuffer) {
 557             writer->pos += z->zs.next_out - (Bytef*)z->writebuffer;
 558             z->output->write(z->output, z->writebuffer, z->zs.next_out - (Bytef*)z->writebuffer);
 559             z->zs.next_out = z->writebuffer;
 560             z->zs.avail_out = ZLIB_BUFFER_SIZE;
 561         }
 562
 563         if (ret == Z_STREAM_END) {
 564             break;
 565
 566         }
 567     }
 568     ret = deflateEnd(&z->zs);
 569     if (ret != Z_OK) zlib_error(ret, "bitio:deflate_end", &z->zs);
 570     free(writer->internal);
 571     memset(writer, 0, sizeof(writer_t));
 572     //output->finish(output);
 573 #else
 574     fprintf(stderr, "Error: swftools was compiled without zlib support");
 575     exit(1);
 576 #endif
 577 }
 578 void writer_init_zlibdeflate(writer_t*w, writer_t*output)
 579 {
 580 #ifdef HAVE_ZLIB
 581     zlibdeflate_t*z;
 582     int ret;
 583     memset(w, 0, sizeof(writer_t));
 584     z = (zlibdeflate_t*)malloc(sizeof(zlibdeflate_t));
 585     memset(z, 0, sizeof(zlibdeflate_t));
 586     w->internal = z;
 587     w->write = writer_zlibdeflate_write;
 588     w->flush = writer_zlibdeflate_flush;
 589     w->finish = writer_zlibdeflate_finish;
 590     w->type = WRITER_TYPE_ZLIB;
 591     w->pos = 0;
 592     z->output = output;
 593     memset(&z->zs,0,sizeof(z_stream));
 594     z->zs.zalloc = Z_NULL;
 595     z->zs.zfree  = Z_NULL;
 596     z->zs.opaque = Z_NULL;
 597     ret = deflateInit(&z->zs, 9);
 598     if (ret != Z_OK) zlib_error(ret, "bitio:deflate_init", &z->zs);
 599     w->bitpos = 0;
 600     w->mybyte = 0;
 601     z->zs.next_out = z->writebuffer;
 602     z->zs.avail_out = ZLIB_BUFFER_SIZE;
 603 #else
 604     fprintf(stderr, "Error: swftools was compiled without zlib support");
 605     exit(1);
 606 #endif
 607 }
 608
 609 /* ----------------------- bit handling routines -------------------------- */
 610
 611 void writer_writebit(writer_t*w, int bit)
 612 {
 613     if(w->bitpos==8)
 614     {
 615         w->write(w, &w->mybyte, 1);
 616         w->bitpos = 0;
 617         w->mybyte = 0;
 618     }
 619     if(bit&1)
 620         w->mybyte |= 1 << (7 - w->bitpos);
 621     w->bitpos ++;
 622 }
 623 void writer_writebits(writer_t*w, unsigned int data, int bits)
 624 {
 625     int t;
 626     for(t=0;t<bits;t++)
 627     {
 628         writer_writebit(w, (data >> (bits-t-1))&1);
 629     }
 630 }
 631 void writer_resetbits(writer_t*w)
 632 {
 633     if(w->bitpos)
 634         w->write(w, &w->mybyte, 1);
 635     w->bitpos = 0;
 636     w->mybyte = 0;
 637 }
 638
 639 unsigned int reader_readbit(reader_t*r)
 640 {
 641     if(r->bitpos==8)
 642     {
 643         r->bitpos=0;
 644         r->read(r, &r->mybyte, 1);
 645     }
 646     return (r->mybyte>>(7-r->bitpos++))&1;
 647 }
 648 unsigned int reader_readbits(reader_t*r, int num)
 649 {
 650     int t;
 651     int val = 0;
 652     for(t=0;t<num;t++)
 653     {
 654         val<<=1;
 655         val|=reader_readbit(r);
 656     }
 657     return val;
 658 }
 659 void reader_resetbits(reader_t*r)
 660 {
 661     r->mybyte = 0;
 662     r->bitpos = 8;
 663
 664 }
 665
 666 U8 reader_readU8(reader_t*r)
 667 {
 668     U8 b = 0;
 669     if(r->read(r, &b, 1)<1) {
 670         fprintf(stderr, "bitio.c:reader_readU8: Read over end of memory region\n");
 671     }
 672     return b;
 673 }
 674 U16 reader_readU16(reader_t*r)
 675 {
 676     U8 b1=0,b2=0;
 677     if(r->read(r, &b1, 1)<1) {
 678         fprintf(stderr, "bitio.c:reader_readU16: Read over end of memory region\n");
 679     }
 680     if(r->read(r, &b2, 1)<1) {
 681         fprintf(stderr, "bitio.c:reader_readU16: Read over end of memory region\n");
 682     }
 683     return b1|b2<<8;
 684 }
 685 U32 reader_readU32(reader_t*r)
 686 {
 687     U8 b1=0,b2=0,b3=0,b4=0;
 688     if(r->read(r, &b1, 1)<1)
 689         fprintf(stderr, "bitio.c:reader_readU32: Read over end of memory region\n");
 690     if(r->read(r, &b2, 1)<1)
 691         fprintf(stderr, "bitio.c:reader_readU32: Read over end of memory region\n");
 692     if(r->read(r, &b3, 1)<1)
 693         fprintf(stderr, "bitio.c:reader_readU32: Read over end of memory region\n");
 694     if(r->read(r, &b4, 1)<1)
 695         fprintf(stderr, "bitio.c:reader_readU32: Read over end of memory region\n");
 696     return b1|b2<<8|b3<<16|b4<<24;
 697 }
 698 float reader_readFloat(reader_t*r)
 699 {
 700     float f;
 701     r->read(r, &f, 4);
 702     return f;
 703
 704     U8 b1=0,b2=0,b3=0,b4=0;
 705     r->read(r, &b1, 1);
 706     r->read(r, &b2, 1);
 707     r->read(r, &b3, 1);
 708     r->read(r, &b4, 1);
 709     U32 w = (b1|b2<<8|b3<<16|b4<<24);
 710     return *(float*)&w;
 711 }
 712 double reader_readDouble(reader_t*r)
 713 {
 714     double f;
 715     r->read(r, &f, 8);
 716     return f;
 717
 718     U8 b[8];
 719     r->read(r, b, 8);
 720     U64 w = ((U64)b[0]|(U64)b[1]<<8|(U64)b[2]<<16|(U64)b[3]<<24|(U64)b[4]<<32|(U64)b[5]<<40|(U64)b[6]<<48|(U64)b[7]<<56);
 721     return *(double*)&w;
 722 }
 723 char*reader_readString(reader_t*r)
 724 {
 725     writer_t g;
 726     writer_init_growingmemwriter(&g, 16);
 727     while(1) {
 728         U8 b = reader_readU8(r);
 729         writer_writeU8(&g, b);
 730         if(!b)
 731             break;
 732     }
 733     char*string = (char*)writer_growmemwrite_getmem(&g);
 734     g.finish(&g);
 735     return string;
 736 }
 737
 738 void writer_writeString(writer_t*w, const char*s)
 739 {
 740     int l = strlen(s);
 741     char zero = 0;
 742     w->write(w, (void*)s, l);
 743     w->write(w, &zero, 1);
 744 }
 745 void writer_writeU8(writer_t*w, unsigned char b)
 746 {
 747     w->write(w, &b, 1);
 748 }
 749 void writer_writeU16(writer_t*w, unsigned short v)
 750 {
 751     unsigned char b1 = v;
 752     unsigned char b2 = v>>8;
 753     w->write(w, &b1, 1);
 754     w->write(w, &b2, 1);
 755 }
 756 void writer_writeU32(writer_t*w, unsigned long v)
 757 {
 758     unsigned char b1 = v;
 759     unsigned char b2 = v>>8;
 760     unsigned char b3 = v>>16;
 761     unsigned char b4 = v>>24;
 762     w->write(w, &b1, 1);
 763     w->write(w, &b2, 1);
 764     w->write(w, &b3, 1);
 765     w->write(w, &b4, 1);
 766 }
 767 void writer_writeFloat(writer_t*w, float f)
 768 {
 769     w->write(w, &f, 4);
 770     return;
 771
 772     unsigned v = *(unsigned*)&f;
 773     unsigned char b1 = v;
 774     unsigned char b2 = v>>8;
 775     unsigned char b3 = v>>16;
 776     unsigned char b4 = v>>24;
 777     w->write(w, &b1, 1);
 778     w->write(w, &b2, 1);
 779     w->write(w, &b3, 1);
 780     w->write(w, &b4, 1);
 781 }
 782 void writer_writeDouble(writer_t*w, double f)
 783 {
 784     w->write(w, &f, 8);
 785     return;
 786
 787     unsigned long long v = *(unsigned long long*)&f;
 788     unsigned char b1 = v;
 789     unsigned char b2 = v>>8;
 790     unsigned char b3 = v>>16;
 791     unsigned char b4 = v>>24;
 792     unsigned char b5 = v>>32;
 793     unsigned char b6 = v>>40;
 794     unsigned char b7 = v>>48;
 795     unsigned char b8 = v>>56;
 796     w->write(w, &b1, 1);
 797     w->write(w, &b2, 1);
 798     w->write(w, &b3, 1);
 799     w->write(w, &b4, 1);
 800     w->write(w, &b5, 1);
 801     w->write(w, &b6, 1);
 802     w->write(w, &b7, 1);
 803     w->write(w, &b8, 1);
 804 }