mirror of
https://github.com/gnustep/libs-base.git
synced 2025-04-26 10:11:03 +00:00
101 lines
2.7 KiB
Mathematica
101 lines
2.7 KiB
Mathematica
|
/* Implementation for GNU Objective-C CString object
|
||
|
|
Copyright (C) 1993,1994 Free Software Foundation, Inc.
|
||
|
|
|
||
|
|
Written by: R. Andrew McCallum <mccallum@gnu.ai.mit.edu>
|
||
|
|
Date: July 1994
|
||
|
|
|
||
|
|
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/String.h>
|
||
|
|
#include <objects/IndexedCollection.h>
|
||
|
|
#include <objects/IndexedCollectionPrivate.h>
|
||
|
|
/* memcpy(), strlen(), strcmp() are gcc builtin's */
|
||
|
|
|
||
|
|
@implementation CString
|
||
|
|
|
||
|
|
/* This is the designated initializer for this class */
|
||
|
|
- initWithCString: (char*)aCharPtr range: (IndexRange)aRange
|
||
|
|
{
|
||
|
|
[super initWithType:@encode(char)];
|
||
|
|
_count = aRange.end - aRange.start;
|
||
|
|
OBJC_MALLOC(_contents_chars, char, _count+1);
|
||
|
|
memcpy(_contents_chars, aCharPtr + aRange.start, _count);
|
||
|
|
_contents_chars[_count] = '\0';
|
||
|
|
return self;
|
||
|
|
}
|
||
|
|
|
||
|
|
- (Class) classForConnectedCoder: aRmc
|
||
|
|
{
|
||
|
|
/* Make sure that Connection's always send us bycopy,
|
||
|
|
i.e. as our own class, not a Proxy class. */
|
||
|
|
return [self class];
|
||
|
|
}
|
||
|
|
|
||
|
|
- (void) encodeWithCoder: aCoder
|
||
|
|
{
|
||
|
|
[aCoder encodeValueOfType:@encode(char*) at:&_contents_chars
|
||
|
|
withName:"Concrete String content_chars"];
|
||
|
|
}
|
||
|
|
|
||
|
|
+ newWithCoder: aCoder
|
||
|
|
{
|
||
|
|
CString *n = [super newWithCoder:aCoder];
|
||
|
|
[aCoder decodeValueOfType:@encode(char*) at:&(n->_contents_chars)
|
||
|
|
withName:NULL];
|
||
|
|
n->_count = strlen(n->_contents_chars);
|
||
|
|
return n;
|
||
|
|
}
|
||
|
|
|
||
|
|
/* Empty copy must empty an allocCopy'ed version of self */
|
||
|
|
- emptyCopy
|
||
|
|
{
|
||
|
|
CString *copy = [super emptyCopy];
|
||
|
|
OBJC_MALLOC(copy->_contents_chars, char, _count+1);
|
||
|
|
copy->_count = 0;
|
||
|
|
copy->_contents_chars[0] = '\0';
|
||
|
|
return copy;
|
||
|
|
}
|
||
|
|
|
||
|
|
- (const char *) cString
|
||
|
|
{
|
||
|
|
return _contents_chars;
|
||
|
|
}
|
||
|
|
|
||
|
|
- (unsigned) count
|
||
|
|
{
|
||
|
|
return _count;
|
||
|
|
}
|
||
|
|
|
||
|
|
- (char) charAtIndex: (unsigned)index
|
||
|
|
{
|
||
|
|
CHECK_INDEX_RANGE_ERROR(index, _count);
|
||
|
|
return _contents_chars[index];
|
||
|
|
}
|
||
|
|
|
||
|
|
// FOR IndexedCollection SUPPORT;
|
||
|
|
|
||
|
|
- (elt) elementAtIndex: (unsigned)index
|
||
|
|
{
|
||
|
|
elt ret_elt;
|
||
|
|
CHECK_INDEX_RANGE_ERROR(index, _count);
|
||
|
|
ret_elt.char_u = _contents_chars[index];
|
||
|
|
return ret_elt;
|
||
|
|
}
|
||
|
|
|
||
|
|
@end
|