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