mirror of
https://github.com/gnustep/libs-base.git
synced 2025-05-29 16:01:38 +00:00
New file.
git-svn-id: svn+ssh://svn.gna.org/svn/gnustep/libs/base/trunk@799 72102866-910b-0410-8b05-ffd578937521
This commit is contained in:
Andrew McCallum
parent
5204209c5c
commit
b50c6a26a6
11 changed files with 1313 additions and 0 deletions
381
Source/TextCStream.m
Normal file
381
Source/TextCStream.m
Normal file
|
|
@ -0,0 +1,381 @@
|
|||
/* Implementation of GNU Objective-C text stream object for use serializing
|
||||
Copyright (C) 1996 Free Software Foundation, Inc.
|
||||
|
||||
Written by: R. Andrew McCallum <mccallum@gnu.ai.mit.edu>
|
||||
Written: Jan 1996
|
||||
|
||||
This file is part of the GNU Objective C Class 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., 675 Mass Ave, Cambridge, MA 02139, USA.
|
||||
*/
|
||||
|
||||
#include <objects/stdobjects.h>
|
||||
#include <objects/TextCStream.h>
|
||||
#include <objects/NSString.h>
|
||||
#include <objects/StdioStream.h>
|
||||
|
||||
#define DEFAULT_FORMAT_VERSION 0
|
||||
|
||||
static BOOL debug_textcoder = NO;
|
||||
|
||||
@implementation TextCStream
|
||||
|
||||
|
||||
/* Encoding/decoding C values */
|
||||
|
||||
#define XSTR(s) STR(s)
|
||||
#define STR(s) #s
|
||||
|
||||
#define ATXSTR(s) ATSTR(s)
|
||||
#define ATSTR(s) @#s
|
||||
|
||||
#define ROUND(V, A) \
|
||||
({ typeof(V) __v=(V); typeof(A) __a=(A); \
|
||||
__a*((__v+__a-1)/__a); })
|
||||
|
||||
#define ENCODER_FORMAT(TYPE, CONVERSION) \
|
||||
@"%*s<%s> (" ATXSTR(TYPE) @") = %" ATXSTR(CONVERSION) @"\n"
|
||||
|
||||
- (void) encodeValueOfCType: (const char*) type
|
||||
at: (const void*) d
|
||||
withName: (id <String>) name;
|
||||
{
|
||||
if (!name)
|
||||
name = @"";
|
||||
switch (*type)
|
||||
{
|
||||
case _C_LNG:
|
||||
[stream writeFormat:@"%*s<%@> (long) = %ld\n",
|
||||
indentation, "", name, *(long*)d];
|
||||
break;
|
||||
case _C_ULNG:
|
||||
[stream writeFormat:@"%*s<%@> (unsigned long) = %lu\n",
|
||||
indentation, "", name, *(unsigned long*)d];
|
||||
break;
|
||||
case _C_INT:
|
||||
[stream writeFormat:@"%*s<%@> (int) = %d\n",
|
||||
indentation, "", name, *(int*)d];
|
||||
break;
|
||||
case _C_UINT:
|
||||
[stream writeFormat:@"%*s<%@> (unsigned int) = %u\n",
|
||||
indentation, "", name, *(unsigned int*)d];
|
||||
break;
|
||||
case _C_SHT:
|
||||
[stream writeFormat:@"%*s<%@> (short) = %d\n",
|
||||
indentation, "", name, (int)*(short*)d];
|
||||
break;
|
||||
case _C_USHT:
|
||||
[stream writeFormat:@"%*s<%@> (unsigned short) = %u\n",
|
||||
indentation, "", name, (unsigned)*(unsigned short*)d];
|
||||
break;
|
||||
case _C_CHR:
|
||||
[stream writeFormat:@"%*s<%@> (char) = %c (0x%x)\n",
|
||||
indentation, "", name, *(char*)d, (unsigned)*(char*)d];
|
||||
break;
|
||||
case _C_UCHR:
|
||||
[stream writeFormat:@"%*s<%@> (unsigned char) = 0x%x\n",
|
||||
indentation, "", name, (unsigned)*(unsigned char*)d];
|
||||
break;
|
||||
case _C_FLT:
|
||||
[stream writeFormat:@"%*s<%@> (float) = %g\n",
|
||||
indentation, "", name, *(float*)d];
|
||||
break;
|
||||
case _C_DBL:
|
||||
[stream writeFormat:@"%*s<%@> (double) = %g\n",
|
||||
indentation, "", name, *(double*)d];
|
||||
break;
|
||||
case _C_CHARPTR:
|
||||
[stream writeFormat:@"%*s<%@> (char*) = \"%s\"\n",
|
||||
indentation, "", name, *(char**)d];
|
||||
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. */
|
||||
[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);
|
||||
[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;
|
||||
}
|
||||
case _C_PTR:
|
||||
[self error:"Cannot encode pointers"];
|
||||
break;
|
||||
#if 0 /* No, don't know how far to recurse */
|
||||
[self encodeValueOfObjCType:type+1 at:*(char**)d withName:name];
|
||||
break;
|
||||
#endif
|
||||
default:
|
||||
[self error:"type %s not implemented", type];
|
||||
}
|
||||
}
|
||||
|
||||
#define DECODER_FORMAT(TYPE, CONVERSION) \
|
||||
@" <%a[^>]> (" ATXSTR(TYPE) @") = %" ATXSTR(CONVERSION) @" \n"
|
||||
|
||||
#define DECODE_ERROR(TYPE) [self error:"bad format decoding " XSTR(TYPE)]
|
||||
|
||||
#define DECODE_DEBUG(TYPE, CONVERSION) \
|
||||
if (debug_textcoder) \
|
||||
[[StdioStream standardError] writeFormat: \
|
||||
@"got <%s> (%s) %" ATXSTR(CONVERSION) @"\n", \
|
||||
tmpname, \
|
||||
XSTR(TYPE), *(TYPE*)d];
|
||||
|
||||
- (void) decodeValueOfCType: (const char*) type
|
||||
at: (void*) d
|
||||
withName: (id <String> *) namePtr;
|
||||
{
|
||||
char *tmpname;
|
||||
|
||||
assert (d);
|
||||
switch (*type)
|
||||
{
|
||||
case _C_LNG:
|
||||
if ([stream readFormat: DECODER_FORMAT(long,l),
|
||||
&tmpname, (long*)d] != 2)
|
||||
DECODE_ERROR(long);
|
||||
DECODE_DEBUG(long, l);
|
||||
break;
|
||||
case _C_ULNG:
|
||||
if ([stream readFormat:DECODER_FORMAT(unsigned long, lu),
|
||||
&tmpname, (unsigned long*)d] != 2)
|
||||
DECODE_ERROR(unsigned long);
|
||||
DECODE_DEBUG(unsigned long, lu);
|
||||
break;
|
||||
case _C_INT:
|
||||
if ([stream readFormat:DECODER_FORMAT(int, d),
|
||||
&tmpname, (int*)d] != 2)
|
||||
DECODE_ERROR(int);
|
||||
DECODE_DEBUG(int, d);
|
||||
break;
|
||||
case _C_UINT:
|
||||
if ([stream readFormat:DECODER_FORMAT(unsigned int,u),
|
||||
&tmpname, (unsigned int*)d] != 2)
|
||||
DECODE_ERROR(unsigned int);
|
||||
DECODE_DEBUG(unsigned int, u);
|
||||
break;
|
||||
case _C_SHT:
|
||||
if ([stream readFormat:DECODER_FORMAT(short,hd),
|
||||
&tmpname, (short*)d] != 2)
|
||||
DECODE_ERROR(short);
|
||||
DECODE_DEBUG(short, d);
|
||||
break;
|
||||
case _C_USHT:
|
||||
if ([stream readFormat:DECODER_FORMAT(unsigned short,hu),
|
||||
&tmpname, (unsigned short*)d] != 2)
|
||||
DECODE_ERROR(unsigned short);
|
||||
DECODE_DEBUG(unsigned short, u);
|
||||
break;
|
||||
case _C_CHR:
|
||||
{
|
||||
unsigned tmp;
|
||||
if ([stream readFormat:@" <%a[^>]> (char) = %*c (%x) \n",
|
||||
&tmpname, &tmp] != 2)
|
||||
DECODE_ERROR(char);
|
||||
*(char*)d = (char)tmp;
|
||||
DECODE_DEBUG(char, c);
|
||||
break;
|
||||
}
|
||||
case _C_UCHR:
|
||||
{
|
||||
unsigned tmp;
|
||||
if ([stream readFormat:DECODER_FORMAT(unsigned char,x),
|
||||
&tmpname, &tmp] != 2)
|
||||
DECODE_ERROR(unsigned char);
|
||||
*(unsigned char*)d = (unsigned char)tmp;
|
||||
DECODE_DEBUG(unsigned char, c);
|
||||
break;
|
||||
}
|
||||
case _C_FLT:
|
||||
if ([stream readFormat:DECODER_FORMAT(float,f),
|
||||
&tmpname, (float*)d] != 2)
|
||||
DECODE_ERROR(float);
|
||||
DECODE_DEBUG(float, f);
|
||||
break;
|
||||
case _C_DBL:
|
||||
if ([stream readFormat:DECODER_FORMAT(double,lf),
|
||||
&tmpname, (double*)d] != 2)
|
||||
DECODE_ERROR(double);
|
||||
DECODE_DEBUG(double, f);
|
||||
break;
|
||||
case _C_CHARPTR:
|
||||
if ([stream readFormat:@" <%a[^>]> (char*) = \"%a[^\"]\" \n",
|
||||
&tmpname, (char**)d] != 2)
|
||||
DECODE_ERROR(char*);
|
||||
DECODE_DEBUG(char*, s);
|
||||
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;
|
||||
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 */
|
||||
}
|
||||
[self decodeUnindent];
|
||||
break;
|
||||
}
|
||||
case _C_PTR:
|
||||
[self error:"Cannot decode pointers"];
|
||||
break;
|
||||
#if 0 /* No, don't know how far to recurse */
|
||||
OBJC_MALLOC(*(void**)d, void*, 1);
|
||||
[self decodeValueOfObjCType:type+1 at:*(char**)d withName:namePtr];
|
||||
break;
|
||||
#endif
|
||||
default:
|
||||
[self error:"type %s not yet implemented", type];
|
||||
}
|
||||
if (namePtr)
|
||||
*namePtr = [NSString stringWithCStringNoCopy: tmpname];
|
||||
else
|
||||
(*objc_free) (tmpname);
|
||||
}
|
||||
|
||||
|
||||
/* Encoding/decoding indentation */
|
||||
|
||||
- (void) encodeIndent
|
||||
{
|
||||
[stream writeFormat: @"%*s {\n", indentation, ""];
|
||||
indentation += 2;
|
||||
}
|
||||
|
||||
- (void) encodeUnindent
|
||||
{
|
||||
indentation -= 2;
|
||||
[stream writeFormat: @"%*s }\n", indentation, ""];
|
||||
}
|
||||
|
||||
- (void) decodeIndent
|
||||
{
|
||||
id line;
|
||||
const char *lp;
|
||||
|
||||
line = [stream readLine];
|
||||
lp = [line cStringNoCopy];
|
||||
while (*lp == ' ') lp++;
|
||||
if (*lp != '{')
|
||||
[self error:"bad indent format, got \"%s\"", line];
|
||||
}
|
||||
|
||||
- (void) decodeUnindent
|
||||
{
|
||||
id line;
|
||||
const char *lp;
|
||||
|
||||
line = [stream readLine];
|
||||
lp = [line cStringNoCopy];
|
||||
while (*lp == ' ') lp++;
|
||||
if (*lp != '}')
|
||||
[self error:"bad unindent format, got \"%s\"", line];
|
||||
}
|
||||
|
||||
- (void) encodeName: (id <String>) n
|
||||
{
|
||||
if (n)
|
||||
[stream writeFormat:@"%*s<%@>\n", indentation, "", n];
|
||||
else
|
||||
[stream writeFormat:@"%*s<NULL>\n", indentation, ""];
|
||||
}
|
||||
|
||||
- (void) decodeName: (id <String> *) name
|
||||
{
|
||||
const char *n;
|
||||
if (name)
|
||||
{
|
||||
if ([stream readFormat: @" <%a[^>]> \n", &n] != 1)
|
||||
[self error:"bad format"];
|
||||
*name = [NSString stringWithCStringNoCopy: n
|
||||
freeWhenDone: YES];
|
||||
if (debug_textcoder)
|
||||
fprintf(stderr, "got name <%s>\n", *n);
|
||||
}
|
||||
else
|
||||
{
|
||||
[stream readFormat: @" <%*[^>]> \n"];
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
/* Returning default format version. */
|
||||
|
||||
+ (int) defaultFormatVersion
|
||||
{
|
||||
return DEFAULT_FORMAT_VERSION;
|
||||
}
|
||||
|
||||
@end
|
||||
Loading…
Add table
Add a link
Reference in a new issue