This is CString.m in view mode; [Download] [Up]
/* Implementation for GNU Objective-C CString object Copyright (C) 1993,1994, 1995 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: (const char*)aCharPtr range: (IndexRange)aRange { [super initWithType:@encode(char)]; _count = aRange.length; OBJC_MALLOC(_contents_chars, char, _count+1); memcpy(_contents_chars, aCharPtr + aRange.location, _count); _contents_chars[_count] = '\0'; _free_contents = YES; return self; } - (void) dealloc { if (_free_contents) OBJC_FREE(_contents_chars); [super dealloc]; } - (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"]; } - initWithCoder: aCoder { [super initWithCoder:aCoder]; [aCoder decodeValueOfType:@encode(char*) at:&_contents_chars withName:NULL]; _count = strlen(_contents_chars); _free_contents = YES; return self; } /* 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
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.