mirror of
https://github.com/gnustep/libs-base.git
synced 2025-04-22 00:11:04 +00:00
c31c32a186
git-svn-id: svn+ssh://svn.gna.org/svn/gnustep/libs/base/trunk@7189 72102866-910b-0410-8b05-ffd578937521
646 lines
18 KiB
Objective-C
646 lines
18 KiB
Objective-C
/* Implementation of GNU Objective-C binary stream object for use serializing
|
||
Copyright (C) 1996, 1997 Free Software Foundation, Inc.
|
||
|
||
Written by: Andrew Kachites McCallum <mccallum@gnu.ai.mit.edu>
|
||
Written: Jan 1996
|
||
|
||
This file is part of the GNUstep Base Library.
|
||
|
||
This library is free software; you can redistribute it and/or
|
||
modify it under the terms of the GNU Library General Public
|
||
License as published by the Free Software Foundation; either
|
||
version 2 of the License, or (at your option) any later version.
|
||
|
||
This library is distributed in the hope that it will be useful,
|
||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
||
Library General Public License for more details.
|
||
|
||
You should have received a copy of the GNU Library General Public
|
||
License along with this library; if not, write to the Free
|
||
Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111 USA.
|
||
*/
|
||
|
||
#include <config.h>
|
||
#include <base/preface.h>
|
||
#include <base/BinaryCStream.h>
|
||
#include <base/NSString.h>
|
||
#include <base/StdioStream.h>
|
||
#include <base/TextCStream.h>
|
||
#include <Foundation/NSData.h>
|
||
#include <Foundation/NSException.h>
|
||
#include <Foundation/NSByteOrder.h>
|
||
#include <math.h>
|
||
#if HAVE_VALUES_H
|
||
#include <values.h> // This gets BITSPERBYTE on Solaris
|
||
#endif
|
||
|
||
#define PRE_SIZEOF_PREFIX_FORMAT_VERSION 0
|
||
#define CURRENT_FORMAT_VERSION ((((GNUSTEP_BASE_MAJOR_VERSION * 100) + \
|
||
GNUSTEP_BASE_MINOR_VERSION) * 100) + GNUSTEP_BASE_SUBMINOR_VERSION)
|
||
#define DEFAULT_FORMAT_VERSION CURRENT_FORMAT_VERSION
|
||
|
||
#define ROUND(V, A) \
|
||
({ typeof(V) __v=(V); typeof(A) __a=(A); \
|
||
__a*((__v+__a-1)/__a); })
|
||
|
||
/* The number of bytes used to encode the length of a _C_CHARPTR
|
||
string that is encoded. */
|
||
#define NUM_BYTES_STRING_LENGTH 4
|
||
|
||
/* The value by which we multiply a float or double in order to bring
|
||
mantissa digits to the left-hand-side of the decimal point, so that
|
||
we can extract them by assigning the float or double to an int. */
|
||
#if !defined(BITSPERBYTE) && defined(NeXT)
|
||
#include <mach/vm_param.h>
|
||
#define BITSPERBYTE BYTE_SIZE
|
||
#elif !defined(BITSPERBYTE)
|
||
#define BITSPERBYTE 8 /* a safe guess? */
|
||
#endif
|
||
#define FLOAT_FACTOR ((double)(1 << ((sizeof(int)*BITSPERBYTE)-2)))
|
||
|
||
@implementation BinaryCStream
|
||
|
||
+ (void) initialize
|
||
{
|
||
if (self == [BinaryCStream class])
|
||
/* Make sure that we don't overrun memory when reading _C_CHARPTR. */
|
||
NSAssert (sizeof(unsigned) >= NUM_BYTES_STRING_LENGTH,
|
||
@"_C_CHARPTR overruns memory");
|
||
}
|
||
|
||
|
||
/* For debugging */
|
||
|
||
static int debug_binary_coder = 0;
|
||
|
||
+ setDebugging: (BOOL)f
|
||
{
|
||
debug_binary_coder = f;
|
||
return self;
|
||
}
|
||
|
||
+ debugStderrCoder
|
||
{
|
||
static id c = nil;
|
||
|
||
if (!c)
|
||
c = [[TextCStream alloc]
|
||
initForWritingToStream: [StdioStream standardError]];
|
||
return c;
|
||
}
|
||
|
||
/* This is the designated initializer for reading. */
|
||
- _initForReadingFromPostSignatureStream: (id <Streaming>)s
|
||
withFormatVersion: (int)version
|
||
{
|
||
[super _initForReadingFromPostSignatureStream: s
|
||
withFormatVersion: version];
|
||
if (version > PRE_SIZEOF_PREFIX_FORMAT_VERSION)
|
||
{
|
||
/* Read the C-type sizes to expect. */
|
||
[s readByte: &_sizeof_long];
|
||
[s readByte: &_sizeof_int];
|
||
[s readByte: &_sizeof_short];
|
||
[s readByte: &_sizeof_char];
|
||
}
|
||
return self;
|
||
}
|
||
|
||
/* This is a designated initializer for writing. */
|
||
- initForWritingToStream: (id <Streaming>) s
|
||
withFormatVersion: (int)version
|
||
{
|
||
[super initForWritingToStream: s
|
||
withFormatVersion: version];
|
||
if (version > PRE_SIZEOF_PREFIX_FORMAT_VERSION)
|
||
{
|
||
[s writeByte: sizeof (long)];
|
||
[s writeByte: sizeof (int)];
|
||
[s writeByte: sizeof (short)];
|
||
[s writeByte: sizeof (char)];
|
||
}
|
||
return self;
|
||
}
|
||
|
||
|
||
/* Encoding/decoding C values */
|
||
|
||
- (void) encodeValueOfCType: (const char*)type
|
||
at: (const void*)d
|
||
withName: (NSString*) name
|
||
{
|
||
if (!type)
|
||
[NSException raise:NSInvalidArgumentException format:@"type is NULL"];
|
||
|
||
/* Make sure we're not being asked to encode an "ObjC" type. */
|
||
NSAssert(*type != '@', @"tried to encode an \"ObjC\" type");
|
||
NSAssert(*type != '^', @"tried to encode an \"ObjC\" type");
|
||
NSAssert(*type != ':', @"tried to encode an \"ObjC\" type");
|
||
|
||
if (debug_binary_coder)
|
||
{
|
||
[[[self class] debugStderrCoder]
|
||
encodeValueOfCType: type
|
||
at: d
|
||
withName: name];
|
||
}
|
||
|
||
[stream writeByte: *type];
|
||
|
||
#define WRITE_SIGNED_TYPE0(_PTR, _TYPE, _CONV_FUNC) \
|
||
{ \
|
||
_TYPE tmp; \
|
||
char buffer[1+sizeof(_TYPE)]; \
|
||
buffer[0] = sizeof (_TYPE); \
|
||
if (*(_TYPE*)_PTR < 0) \
|
||
{ \
|
||
buffer[0] |= 0x80; \
|
||
tmp = _CONV_FUNC (- *(_TYPE*)_PTR); \
|
||
memcpy (buffer+1, &tmp, sizeof(_TYPE)); \
|
||
} \
|
||
else \
|
||
{ \
|
||
tmp = _CONV_FUNC (*(_TYPE*)_PTR); \
|
||
memcpy (buffer+1, &tmp, sizeof(_TYPE)); \
|
||
} \
|
||
[stream writeBytes: buffer length: 1+sizeof(_TYPE)]; \
|
||
}
|
||
|
||
#define WRITE_SIGNED_TYPE1(_PTR, _TYPE, _CONV_FUNC) \
|
||
{ \
|
||
_TYPE tmp; \
|
||
char buffer[sizeof(_TYPE)]; \
|
||
if (*(_TYPE*)_PTR < 0) \
|
||
{ \
|
||
tmp = _CONV_FUNC (- *(_TYPE*)_PTR); \
|
||
memcpy (buffer, &tmp, sizeof(_TYPE)); \
|
||
NSAssert(!(buffer[0] & 0x80), @"high bit set"); \
|
||
buffer[0] |= 0x80; \
|
||
} \
|
||
else \
|
||
{ \
|
||
tmp = _CONV_FUNC (*(_TYPE*)_PTR); \
|
||
memcpy (buffer, &tmp, sizeof(_TYPE)); \
|
||
} \
|
||
[stream writeBytes: buffer length: sizeof(_TYPE)]; \
|
||
}
|
||
|
||
#define WRITE_SIGNED_TYPE(_PTR, _TYPE, _CONV_FUNC) \
|
||
{ \
|
||
if (format_version == PRE_SIZEOF_PREFIX_FORMAT_VERSION) \
|
||
WRITE_SIGNED_TYPE0 (_PTR, _TYPE, _CONV_FUNC) \
|
||
else \
|
||
WRITE_SIGNED_TYPE1 (_PTR, _TYPE, _CONV_FUNC) \
|
||
}
|
||
|
||
#define READ_SIGNED_TYPE0(_PTR, _TYPE, _CONV_FUNC) \
|
||
{ \
|
||
char sign, size; \
|
||
[stream readByte: &size]; \
|
||
sign = size & 0x80; \
|
||
size &= ~0x80; \
|
||
{ \
|
||
char buffer[size]; \
|
||
int read_size; \
|
||
read_size = [stream readBytes: buffer length: size]; \
|
||
NSAssert (read_size == size, @"expected more input"); \
|
||
NSAssert (size == sizeof(_TYPE), @"inconsistent size");\
|
||
*(unsigned _TYPE*)_PTR = \
|
||
_CONV_FUNC (*(unsigned _TYPE*)buffer); \
|
||
if (sign) \
|
||
*(_TYPE*)_PTR = - *(_TYPE*)_PTR; \
|
||
} \
|
||
}
|
||
|
||
#define READ_SIGNED_TYPE1(_PTR, _TYPE, _CONV_FUNC) \
|
||
{ \
|
||
int size = _sizeof_ ## _TYPE; \
|
||
char buffer[size]; \
|
||
int read_size; \
|
||
int sign; \
|
||
read_size = [stream readBytes: buffer length: size]; \
|
||
NSAssert (read_size == size, @"expected more input"); \
|
||
/* xxx Remove this next requirement eventually */ \
|
||
NSAssert (size == sizeof(_TYPE), @"inconsistent size"); \
|
||
sign = buffer[0] & 0x80; \
|
||
buffer[0] &= ~0x80; \
|
||
*(unsigned _TYPE*)_PTR = \
|
||
_CONV_FUNC (*(unsigned _TYPE*)buffer); \
|
||
if (sign) \
|
||
*(_TYPE*)_PTR = - *(_TYPE*)_PTR; \
|
||
}
|
||
|
||
#define READ_SIGNED_TYPE(_PTR, _TYPE, _CONV_FUNC) \
|
||
{ \
|
||
if (format_version == PRE_SIZEOF_PREFIX_FORMAT_VERSION) \
|
||
READ_SIGNED_TYPE0 (_PTR, _TYPE, _CONV_FUNC) \
|
||
else \
|
||
READ_SIGNED_TYPE1 (_PTR, _TYPE, _CONV_FUNC) \
|
||
}
|
||
|
||
/* Reading and writing unsigned scalar types. */
|
||
|
||
#define WRITE_UNSIGNED_TYPE0(_PTR, _TYPE, _CONV_FUNC) \
|
||
{ \
|
||
_TYPE tmp; \
|
||
char buffer[1+sizeof(_TYPE)]; \
|
||
buffer[0] = sizeof (_TYPE); \
|
||
tmp = _CONV_FUNC (*(_TYPE*)_PTR); \
|
||
memcpy (buffer+1, &tmp, sizeof(_TYPE)); \
|
||
[stream writeBytes: buffer length: (1+sizeof(_TYPE))]; \
|
||
}
|
||
|
||
#define WRITE_UNSIGNED_TYPE1(_PTR, _TYPE, _CONV_FUNC) \
|
||
{ \
|
||
unsigned _TYPE tmp; \
|
||
char buffer[sizeof(unsigned _TYPE)]; \
|
||
tmp = _CONV_FUNC (*(unsigned _TYPE*)_PTR); \
|
||
memcpy (buffer, &tmp, sizeof(unsigned _TYPE)); \
|
||
[stream writeBytes: buffer length: (sizeof(unsigned _TYPE))]; \
|
||
}
|
||
|
||
#define WRITE_UNSIGNED_TYPE(_PTR, _TYPE, _CONV_FUNC) \
|
||
{ \
|
||
if (format_version == PRE_SIZEOF_PREFIX_FORMAT_VERSION) \
|
||
WRITE_UNSIGNED_TYPE0 (_PTR, _TYPE, _CONV_FUNC) \
|
||
else \
|
||
WRITE_UNSIGNED_TYPE1 (_PTR, _TYPE, _CONV_FUNC) \
|
||
}
|
||
|
||
#define READ_UNSIGNED_TYPE0(_PTR, _TYPE, _CONV_FUNC) \
|
||
{ \
|
||
char size; \
|
||
[stream readByte: &size]; \
|
||
{ \
|
||
char buffer[size]; \
|
||
int read_size; \
|
||
read_size = [stream readBytes: buffer length: size]; \
|
||
NSAssert (read_size == size, @"expected more input"); \
|
||
NSAssert (size == sizeof(_TYPE), @"inconsistent size");\
|
||
*(_TYPE*)_PTR = \
|
||
_CONV_FUNC (*(_TYPE*)buffer); \
|
||
} \
|
||
}
|
||
|
||
#define READ_UNSIGNED_TYPE1(_PTR, _TYPE, _CONV_FUNC) \
|
||
{ \
|
||
int size = _sizeof_ ## _TYPE; \
|
||
char buffer[size]; \
|
||
int read_size; \
|
||
read_size = [stream readBytes: buffer length: size]; \
|
||
NSAssert (read_size == size, @"expected more input"); \
|
||
/* xxx Remove this next requirement eventually */ \
|
||
NSAssert (size == sizeof(_TYPE), @"inconsistent size"); \
|
||
*(unsigned _TYPE*)_PTR = \
|
||
_CONV_FUNC (*(unsigned _TYPE*)buffer); \
|
||
}
|
||
|
||
#define READ_UNSIGNED_TYPE(_PTR, _TYPE, _CONV_FUNC) \
|
||
{ \
|
||
if (format_version == PRE_SIZEOF_PREFIX_FORMAT_VERSION) \
|
||
READ_UNSIGNED_TYPE0 (_PTR, _TYPE, _CONV_FUNC) \
|
||
else \
|
||
READ_UNSIGNED_TYPE1 (_PTR, _TYPE, _CONV_FUNC) \
|
||
}
|
||
|
||
switch (*type)
|
||
{
|
||
case _C_CHARPTR:
|
||
{
|
||
unsigned length = strlen (*(char**)d);
|
||
unsigned nlength;
|
||
nlength = NSSwapHostIntToBig (length);
|
||
[stream writeBytes: &nlength
|
||
length: NUM_BYTES_STRING_LENGTH];
|
||
[stream writeBytes: *(char**)d
|
||
length: length];
|
||
break;
|
||
}
|
||
|
||
case _C_CHR:
|
||
case _C_UCHR:
|
||
[stream writeByte: *(unsigned char*)d];
|
||
break;
|
||
|
||
/* Reading and writing signed scalar types. */
|
||
|
||
case _C_SHT:
|
||
WRITE_SIGNED_TYPE (d, short, NSSwapHostShortToBig);
|
||
break;
|
||
case _C_USHT:
|
||
WRITE_UNSIGNED_TYPE (d, short, NSSwapHostShortToBig);
|
||
break;
|
||
|
||
case _C_INT:
|
||
WRITE_SIGNED_TYPE (d, int, NSSwapHostIntToBig);
|
||
break;
|
||
case _C_UINT:
|
||
WRITE_UNSIGNED_TYPE (d, int, NSSwapHostIntToBig);
|
||
break;
|
||
|
||
case _C_LNG:
|
||
WRITE_SIGNED_TYPE (d, long, NSSwapHostLongToBig);
|
||
break;
|
||
case _C_ULNG:
|
||
WRITE_UNSIGNED_TYPE (d, long, NSSwapHostLongToBig);
|
||
break;
|
||
|
||
/* xxx The handling of floats and doubles could be improved.
|
||
e.g. I should account for varying sizeof(int) vs sizeof(double). */
|
||
|
||
case _C_FLT:
|
||
{
|
||
float fvalue;
|
||
double value;
|
||
int exponent, mantissa;
|
||
short exponent_encoded;
|
||
|
||
memcpy (&fvalue, d, sizeof (float));
|
||
value = fvalue;
|
||
/* Get the exponent */
|
||
value = frexp (value, &exponent);
|
||
exponent_encoded = exponent;
|
||
NSParameterAssert (exponent_encoded == exponent);
|
||
/* Get the mantissa. */
|
||
value *= FLOAT_FACTOR;
|
||
mantissa = value;
|
||
NSAssert (value - mantissa == 0,
|
||
@"mantissa and value should be the same");
|
||
/* Encode the value as its two integer components. */
|
||
WRITE_SIGNED_TYPE (&exponent_encoded, short, NSSwapHostShortToBig);
|
||
WRITE_SIGNED_TYPE (&mantissa, int, NSSwapHostIntToBig);
|
||
break;
|
||
}
|
||
|
||
case _C_DBL:
|
||
{
|
||
double value;
|
||
int exponent, mantissa1, mantissa2;
|
||
short exponent_encoded;
|
||
|
||
memcpy (&value, d, sizeof (double));
|
||
/* Get the exponent */
|
||
value = frexp (value, &exponent);
|
||
exponent_encoded = exponent;
|
||
NSParameterAssert (exponent_encoded == exponent);
|
||
/* Get the first part of the mantissa. */
|
||
value *= FLOAT_FACTOR;
|
||
mantissa1 = value;
|
||
value -= mantissa1;
|
||
value *= FLOAT_FACTOR;
|
||
mantissa2 = value;
|
||
NSAssert (value - mantissa2 == 0,
|
||
@"mantissa2 and value should be the same");
|
||
/* Encode the value as its three integer components. */
|
||
WRITE_SIGNED_TYPE (&exponent_encoded, short, NSSwapHostShortToBig);
|
||
WRITE_SIGNED_TYPE (&mantissa1, int, NSSwapHostIntToBig);
|
||
WRITE_SIGNED_TYPE (&mantissa2, int, NSSwapHostIntToBig);
|
||
break;
|
||
}
|
||
|
||
case _C_ARY_B:
|
||
{
|
||
int len = atoi (type+1); /* xxx why +1 ? */
|
||
int offset;
|
||
|
||
while (isdigit(*++type));
|
||
offset = objc_sizeof_type(type);
|
||
[self encodeName:name];
|
||
[self encodeIndent];
|
||
while (len-- > 0)
|
||
{
|
||
/* Change this so we don't re-write type info every time. */
|
||
/* xxx We should be able to encode arrays "ObjC" types also! */
|
||
[self encodeValueOfCType:type
|
||
at:d
|
||
withName:@"array component"];
|
||
((char*)d) += offset;
|
||
}
|
||
[self encodeUnindent];
|
||
break;
|
||
}
|
||
case _C_STRUCT_B:
|
||
{
|
||
int acc_size = 0;
|
||
int align;
|
||
|
||
while (*type != _C_STRUCT_E && *type++ != '='); /* skip "<name>=" */
|
||
[self encodeName:name];
|
||
[self encodeIndent];
|
||
while (*type != _C_STRUCT_E)
|
||
{
|
||
align = objc_alignof_type (type); /* pad to alignment */
|
||
acc_size = ROUND (acc_size, align);
|
||
/* xxx We should be able to encode structs "ObjC" types also! */
|
||
[self encodeValueOfCType:type
|
||
at:((char*)d)+acc_size
|
||
withName:@"structure component"];
|
||
acc_size += objc_sizeof_type (type); /* add component size */
|
||
type = objc_skip_typespec (type); /* skip component */
|
||
}
|
||
[self encodeUnindent];
|
||
break;
|
||
}
|
||
default:
|
||
[NSException raise: NSGenericException
|
||
format: @"Unrecognized type %s", type];
|
||
}
|
||
}
|
||
|
||
- (void) decodeValueOfCType: (const char*)type
|
||
at: (void*)d
|
||
withName: (NSString* *)namePtr
|
||
{
|
||
char encoded_type;
|
||
|
||
if (!type)
|
||
[NSException raise:NSInvalidArgumentException format:@"type is NULL"];
|
||
|
||
NSAssert(*type != '@', @"tried to decode an \"ObjC\" type");
|
||
NSAssert(*type != '^', @"tried to decode an \"ObjC\" type");
|
||
NSAssert(*type != ':', @"tried to decode an \"ObjC\" type");
|
||
|
||
[stream readByte: &encoded_type];
|
||
if (encoded_type != *type
|
||
&& !((encoded_type=='c' || encoded_type=='C')
|
||
&& (*type=='c' || *type=='C')))
|
||
[NSException raise: NSGenericException
|
||
format: @"Expected type \"%c\", got type \"%c\"",
|
||
*type, encoded_type];
|
||
|
||
switch (encoded_type)
|
||
{
|
||
case _C_CHARPTR:
|
||
{
|
||
unsigned length;
|
||
unsigned read_count;
|
||
read_count = [stream readBytes: &length
|
||
length: NUM_BYTES_STRING_LENGTH];
|
||
NSAssert2 (read_count == NUM_BYTES_STRING_LENGTH,
|
||
@"expected %d bytes of input, got %d",
|
||
NUM_BYTES_STRING_LENGTH,read_count);
|
||
length = NSSwapBigIntToHost (length);
|
||
OBJC_MALLOC (*(char**)d, char, length+1);
|
||
read_count = [stream readBytes: *(char**)d
|
||
length: length];
|
||
NSAssert2 (read_count == length,
|
||
@"expected %d bytes of input, got %d",length,read_count);
|
||
(*(char**)d)[length] = '\0';
|
||
/* Autorelease the newly malloc'ed pointer? Grep for (*objc_free)
|
||
to see the places the may have to be changed
|
||
[NSData dataWithBytesNoCopy: *(void**)d length: length+1]; */
|
||
break;
|
||
}
|
||
|
||
case _C_CHR:
|
||
case _C_UCHR:
|
||
[stream readByte: (unsigned char*)d];
|
||
break;
|
||
|
||
case _C_SHT:
|
||
READ_SIGNED_TYPE (d, short, NSSwapBigShortToHost);
|
||
break;
|
||
case _C_USHT:
|
||
READ_UNSIGNED_TYPE (d, short, NSSwapBigShortToHost);
|
||
break;
|
||
|
||
case _C_INT:
|
||
READ_SIGNED_TYPE (d, int, NSSwapBigIntToHost);
|
||
break;
|
||
case _C_UINT:
|
||
READ_UNSIGNED_TYPE (d, int, NSSwapBigIntToHost);
|
||
break;
|
||
|
||
case _C_LNG:
|
||
READ_SIGNED_TYPE (d, long, NSSwapBigLongToHost);
|
||
break;
|
||
case _C_ULNG:
|
||
READ_UNSIGNED_TYPE (d, long, NSSwapBigLongToHost);
|
||
break;
|
||
|
||
case _C_FLT:
|
||
{
|
||
short exponent;
|
||
int mantissa;
|
||
double value;
|
||
float fvalue;
|
||
|
||
/* Decode the exponent and mantissa. */
|
||
READ_SIGNED_TYPE (&exponent, short, NSSwapBigShortToHost);
|
||
READ_SIGNED_TYPE (&mantissa, int, NSSwapBigIntToHost);
|
||
/* Assemble them into a double */
|
||
value = mantissa / FLOAT_FACTOR;
|
||
value = ldexp (value, exponent);
|
||
/* Put the double into the requested memory location as a float */
|
||
fvalue = value;
|
||
memcpy (d, &fvalue, sizeof (float));
|
||
break;
|
||
}
|
||
|
||
case _C_DBL:
|
||
{
|
||
short exponent;
|
||
int mantissa1, mantissa2;
|
||
double value;
|
||
|
||
/* Decode the exponent and the two pieces of the mantissa. */
|
||
READ_SIGNED_TYPE (&exponent, short, NSSwapBigShortToHost);
|
||
READ_SIGNED_TYPE (&mantissa1, int, NSSwapBigIntToHost);
|
||
READ_SIGNED_TYPE (&mantissa2, int, NSSwapBigIntToHost);
|
||
/* Assemble them into a double */
|
||
value = ((mantissa2 / FLOAT_FACTOR) + mantissa1) / FLOAT_FACTOR;
|
||
value = ldexp (value, exponent);
|
||
/* Put the double into the requested memory location. */
|
||
memcpy (d, &value, sizeof (double));
|
||
break;
|
||
}
|
||
|
||
case _C_ARY_B:
|
||
{
|
||
/* xxx Do we need to allocate space, just like _C_CHARPTR ? */
|
||
int len = atoi(type+1);
|
||
int offset;
|
||
[self decodeName:namePtr];
|
||
[self decodeIndent];
|
||
while (isdigit(*++type));
|
||
offset = objc_sizeof_type(type);
|
||
while (len-- > 0)
|
||
{
|
||
[self decodeValueOfCType:type
|
||
at:d
|
||
withName:namePtr];
|
||
((char*)d) += offset;
|
||
}
|
||
[self decodeUnindent];
|
||
break;
|
||
}
|
||
case _C_STRUCT_B:
|
||
{
|
||
/* xxx Do we need to allocate space just like char* ? No. */
|
||
int acc_size = 0;
|
||
int align;
|
||
const char *save_type = type;
|
||
|
||
while (*type != _C_STRUCT_E && *type++ != '='); /* skip "<name>=" */
|
||
[self decodeName:namePtr];
|
||
[self decodeIndent]; /* xxx insert [self decodeName:] */
|
||
while (*type != _C_STRUCT_E)
|
||
{
|
||
align = objc_alignof_type (type); /* pad to alignment */
|
||
acc_size = ROUND (acc_size, align);
|
||
[self decodeValueOfCType:type
|
||
at:((char*)d)+acc_size
|
||
withName:namePtr];
|
||
acc_size += objc_sizeof_type (type); /* add component size */
|
||
type = objc_skip_typespec (type); /* skip component */
|
||
}
|
||
type = save_type;
|
||
[self decodeUnindent];
|
||
break;
|
||
}
|
||
default:
|
||
[NSException raise: NSGenericException
|
||
format: @"Unrecognized Type %s", type];
|
||
}
|
||
|
||
if (debug_binary_coder)
|
||
{
|
||
[[[self class] debugStderrCoder]
|
||
encodeValueOfCType:type
|
||
at:d
|
||
withName:@"decoding unnamed"];
|
||
}
|
||
}
|
||
|
||
|
||
/* Returning default format version. */
|
||
|
||
+ (int) defaultFormatVersion
|
||
{
|
||
return DEFAULT_FORMAT_VERSION;
|
||
}
|
||
|
||
|
||
/* Encoding and decoding names. */
|
||
|
||
- (void) encodeName: (NSString*) name
|
||
{
|
||
if (debug_binary_coder)
|
||
[[[self class] debugStderrCoder]
|
||
encodeName:name];
|
||
}
|
||
|
||
- (void) decodeName: (NSString* *)n
|
||
{
|
||
#if 1
|
||
if (n)
|
||
*n = nil;
|
||
#else
|
||
if (n)
|
||
*n = [[[NSString alloc] init] autorelease];
|
||
#endif
|
||
}
|
||
|
||
@end
|
||
|