Source/unpack.c

   1 /*
   2 Copyright (C) 2003, 2010 - Wolfire Games
   3
   4 This file is part of Lugaru.
   5
   6 Lugaru is free software; you can redistribute it and/or
   7 modify it under the terms of the GNU General Public License
   8 as published by the Free Software Foundation; either version 2
   9 of the License, or (at your option) any later version.
  10
  11 This program is distributed in the hope that it will be useful,
  12 but WITHOUT ANY WARRANTY; without even the implied warranty of
  13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
  14
  15 See the 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
  22 #include <stdlib.h>
  23
  24 #include "binio.h"
  25 #include "private.h"
  26
  27 struct BinIOUnpackContext
  28 {
  29     const uint8_t *data;
  30     va_list        args;
  31 };
  32
  33 static void BinIOUnpack(void *context, int type, int byte_order, int count)
  34 {
  35     struct BinIOUnpackContext *ctx = (struct BinIOUnpackContext*)context;
  36     if (count == -1)
  37     {
  38         count = 1;
  39     }
  40
  41     switch (type)
  42     {
  43         case BinIO_TYPE_IGNORE_BYTE:                                                                                                   ctx->data += 1 * count; break;
  44         case BinIO_TYPE_BYTE:        BinIOConvert1(byte_order, BinIO_HOST_BYTE_ORDER, ctx->data, va_arg(ctx->args, uint8_t *), count); ctx->data += 1 * count; break;
  45         case BinIO_TYPE_INT16:       BinIOConvert2(byte_order, BinIO_HOST_BYTE_ORDER, ctx->data, va_arg(ctx->args, uint8_t *), count); ctx->data += 2 * count; break;
  46         case BinIO_TYPE_INT32:       BinIOConvert4(byte_order, BinIO_HOST_BYTE_ORDER, ctx->data, va_arg(ctx->args, uint8_t *), count); ctx->data += 4 * count; break;
  47         case BinIO_TYPE_INT64:       BinIOConvert8(byte_order, BinIO_HOST_BYTE_ORDER, ctx->data, va_arg(ctx->args, uint8_t *), count); ctx->data += 8 * count; break;
  48         case BinIO_TYPE_FLOAT32:     BinIOConvert4(byte_order, BinIO_HOST_BYTE_ORDER, ctx->data, va_arg(ctx->args, uint8_t *), count); ctx->data += 4 * count; break;
  49         case BinIO_TYPE_FLOAT64:     BinIOConvert8(byte_order, BinIO_HOST_BYTE_ORDER, ctx->data, va_arg(ctx->args, uint8_t *), count); ctx->data += 8 * count; break;
  50     }
  51 }
  52
  53 void unpackf(const char *format, ...)
  54 {
  55     va_list args;
  56     va_start(args, format);
  57     vfunpackf(stdin, format, args);
  58     va_end(args);
  59 }
  60
  61 void sunpackf(const void *buffer, const char *format, ...)
  62 {
  63     va_list args;
  64     va_start(args, format);
  65     vsunpackf(buffer, format, args);
  66     va_end(args);
  67 }
  68
  69 void funpackf(FILE *file, const char *format, ...)
  70 {
  71     va_list args;
  72     va_start(args, format);
  73     vfunpackf(file, format, args);
  74     va_end(args);
  75 }
  76
  77 void vsunpackf(const void *buffer, const char *format, va_list args)
  78 {
  79     struct BinIOFormatCursor cursor;
  80     struct BinIOUnpackContext context;
  81
  82     BinIOInitFormatCursor(&cursor, format);
  83
  84     context.data = (const unsigned char*)buffer;
  85     va_copy(context.args, args);
  86
  87     while (BinIONextChar(&context, &cursor, BinIOUnpack)) {}
  88
  89     va_end(context.args);
  90 }
  91
  92 void vfunpackf(FILE *file, const char *format, va_list args)
  93 {
  94     size_t n_bytes = BinIOFormatByteCount(format);
  95     void* buffer = malloc(n_bytes);
  96     fread(buffer, n_bytes, 1, file);
  97
  98     vsunpackf(buffer, format, args);
  99
 100     free(buffer);
 101 }