mirror of
https://github.com/gnustep/libs-base.git
synced 2025-04-26 10:11:03 +00:00
406 lines
8.6 KiB
Mathematica
406 lines
8.6 KiB
Mathematica
|
/* Implementation of garbage collecting array classes.
|
|||
|
|
|
|||
|
|
Copyright (C) 2002 Free Software Foundation, Inc.
|
|||
|
|
|
|||
|
|
Written by: Richard Frith-Macdonald <rfm@gnu.org>
|
|||
|
|
Inspired by gc classes of Ovidiu Predescu and Mircea Oancea
|
|||
|
|
|
|||
|
|
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 <Foundation/NSException.h>
|
|||
|
|
#include <Foundation/NSRange.h>
|
|||
|
|
#include <Foundation/NSString.h>
|
|||
|
|
|
|||
|
|
#include <gnustep/base/behavior.h>
|
|||
|
|
#include <gnustep/base/GCObject.h>
|
|||
|
|
|
|||
|
|
@implementation GCArray
|
|||
|
|
|
|||
|
|
static Class gcClass = 0;
|
|||
|
|
|
|||
|
|
+ (void) initialize
|
|||
|
|
{
|
|||
|
|
if (gcClass == 0)
|
|||
|
|
{
|
|||
|
|
gcClass = [GCObject class];
|
|||
|
|
behavior_class_add_class(self, gcClass);
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
- (Class) classForCoder
|
|||
|
|
{
|
|||
|
|
return [GCArray class];
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
- (id) copyWithZone: (NSZone*)zone
|
|||
|
|
{
|
|||
|
|
if (NSShouldRetainWithZone(self, zone))
|
|||
|
|
{
|
|||
|
|
return [self retain];
|
|||
|
|
}
|
|||
|
|
return [[GCArray allocWithZone: zone] initWithArray: self copyItems: YES];
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
- (unsigned int) count
|
|||
|
|
{
|
|||
|
|
return _count;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
- (void) dealloc
|
|||
|
|
{
|
|||
|
|
unsigned int c = _count;
|
|||
|
|
|
|||
|
|
[GCObject gcObjectWillBeDeallocated: (GCObject*)self];
|
|||
|
|
if ([GCObject gcIsCollecting])
|
|||
|
|
{
|
|||
|
|
while (c-- > 0)
|
|||
|
|
{
|
|||
|
|
if (_isGCObject[c] == NO)
|
|||
|
|
{
|
|||
|
|
[_contents[c] release];
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
else
|
|||
|
|
{
|
|||
|
|
while (c-- > 0)
|
|||
|
|
{
|
|||
|
|
[_contents[c] release];
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
NSZoneFree([self zone], _contents);
|
|||
|
|
[super dealloc];
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
- (void) gcDecrementRefCountOfContainedObjects
|
|||
|
|
{
|
|||
|
|
unsigned int c = _count;
|
|||
|
|
|
|||
|
|
gc.flags.visited = 0;
|
|||
|
|
while (c-- > 0)
|
|||
|
|
{
|
|||
|
|
if (_isGCObject[c])
|
|||
|
|
{
|
|||
|
|
[_contents[c] gcDecrementRefCount];
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
- (BOOL) gcIncrementRefCountOfContainedObjects
|
|||
|
|
{
|
|||
|
|
if (gc.flags.visited == 1)
|
|||
|
|
{
|
|||
|
|
return NO;
|
|||
|
|
}
|
|||
|
|
else
|
|||
|
|
{
|
|||
|
|
unsigned int c = _count;
|
|||
|
|
|
|||
|
|
gc.flags.visited = 1;
|
|||
|
|
while (c-- > 0)
|
|||
|
|
{
|
|||
|
|
if (_isGCObject[c])
|
|||
|
|
{
|
|||
|
|
[_contents[c] gcIncrementRefCount];
|
|||
|
|
[_contents[c] gcIncrementRefCountOfContainedObjects];
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
return YES;
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
- (id) initWithObjects: (id*)objects count: (unsigned int)count
|
|||
|
|
{
|
|||
|
|
unsigned int i;
|
|||
|
|
|
|||
|
|
_contents = NSZoneMalloc([self zone], count * (sizeof(id) + sizeof(BOOL)));
|
|||
|
|
_isGCObject = (BOOL*)&_contents[count];
|
|||
|
|
_count = count;
|
|||
|
|
for (i = 0; i < count; i++)
|
|||
|
|
{
|
|||
|
|
_contents[i] = [objects[i] retain];
|
|||
|
|
if (_contents[i] == nil)
|
|||
|
|
{
|
|||
|
|
[self release];
|
|||
|
|
[NSException raise: NSInvalidArgumentException
|
|||
|
|
format: @"Nil object to be added in array"];
|
|||
|
|
}
|
|||
|
|
else
|
|||
|
|
{
|
|||
|
|
_isGCObject[i] = [objects[i] isKindOfClass: gcClass];
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
return self;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
- (id) initWithArray: (NSArray*)anotherArray
|
|||
|
|
{
|
|||
|
|
unsigned int i;
|
|||
|
|
unsigned int count = [anotherArray count];
|
|||
|
|
|
|||
|
|
_contents = NSZoneMalloc([self zone], count * (sizeof(id) + sizeof(BOOL)));
|
|||
|
|
_isGCObject = (BOOL*)&_contents[count];
|
|||
|
|
_count = count;
|
|||
|
|
for (i = 0; i < _count; i++)
|
|||
|
|
{
|
|||
|
|
_contents[i] = [[anotherArray objectAtIndex: i] retain];
|
|||
|
|
_isGCObject[i] = [_contents[i] isKindOfClass: gcClass];
|
|||
|
|
}
|
|||
|
|
return self;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
/**
|
|||
|
|
* We use the same initial instance variable layout as a GCObject and
|
|||
|
|
* ue the <em>behavior</em> mechanism to inherit methods from that class
|
|||
|
|
* to implement a form of multiple inheritance. We need to implement
|
|||
|
|
* this method to make this apparent at runtime.
|
|||
|
|
*/
|
|||
|
|
- (BOOL) isKindOfClass: (Class)c
|
|||
|
|
{
|
|||
|
|
if (c == gcClass)
|
|||
|
|
{
|
|||
|
|
return YES;
|
|||
|
|
}
|
|||
|
|
return [super isKindOfClass: c];
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
- (id) mutableCopyWithZone: (NSZone*)zone
|
|||
|
|
{
|
|||
|
|
return [[GCMutableArray allocWithZone: zone]
|
|||
|
|
initWithArray: self copyItems: YES];
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
- (id) objectAtIndex: (unsigned int)index
|
|||
|
|
{
|
|||
|
|
if (index >= _count)
|
|||
|
|
{
|
|||
|
|
[NSException raise: NSRangeException
|
|||
|
|
format: @"[%@-%@]: index: %u",
|
|||
|
|
NSStringFromClass([self class]), NSStringFromSelector(_cmd), index];
|
|||
|
|
}
|
|||
|
|
return _contents[index];
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
@end
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
@implementation GCMutableArray
|
|||
|
|
|
|||
|
|
+ (void)initialize
|
|||
|
|
{
|
|||
|
|
static BOOL beenHere = NO;
|
|||
|
|
|
|||
|
|
if (beenHere == NO)
|
|||
|
|
{
|
|||
|
|
beenHere = YES;
|
|||
|
|
behavior_class_add_class(self, [GCArray class]);
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
- (void) addObject: (id)anObject
|
|||
|
|
{
|
|||
|
|
[self insertObject: anObject atIndex: _count];
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
- (Class) classForCoder
|
|||
|
|
{
|
|||
|
|
return [GCMutableArray class];
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
- (id) copyWithZone: (NSZone*)zone
|
|||
|
|
{
|
|||
|
|
return [[GCArray allocWithZone: zone]
|
|||
|
|
initWithArray: self copyItems: YES];
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
- (id) init
|
|||
|
|
{
|
|||
|
|
return [self initWithCapacity: 1];
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
- (id) initWithCapacity: (unsigned int)aNumItems
|
|||
|
|
{
|
|||
|
|
if (aNumItems < 1)
|
|||
|
|
{
|
|||
|
|
aNumItems = 1;
|
|||
|
|
}
|
|||
|
|
_contents = NSZoneMalloc([self zone], aNumItems * (sizeof(id) + sizeof(BOOL)));
|
|||
|
|
_isGCObject = (BOOL*)&_contents[aNumItems];
|
|||
|
|
_maxCount = aNumItems;
|
|||
|
|
_count = 0;
|
|||
|
|
return self;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
- (id) initWithObjects: (id *)objects count: (unsigned int)count
|
|||
|
|
{
|
|||
|
|
self = [self initWithCapacity: count];
|
|||
|
|
if (self != nil)
|
|||
|
|
{
|
|||
|
|
unsigned int i;
|
|||
|
|
|
|||
|
|
for (i = 0; i < count; i++)
|
|||
|
|
{
|
|||
|
|
_contents[i] = [objects[i] retain];
|
|||
|
|
if (_contents[i] == nil)
|
|||
|
|
{
|
|||
|
|
[self release];
|
|||
|
|
[NSException raise: NSInvalidArgumentException
|
|||
|
|
format: @"Nil object to be added in array"];
|
|||
|
|
}
|
|||
|
|
else
|
|||
|
|
{
|
|||
|
|
_isGCObject[i] = [objects[i] isKindOfClass: gcClass];
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
return self;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
- (id) initWithArray: (NSArray*)anotherArray
|
|||
|
|
{
|
|||
|
|
unsigned int count = [anotherArray count];
|
|||
|
|
|
|||
|
|
self = [self initWithCapacity: count];
|
|||
|
|
if (self != nil)
|
|||
|
|
{
|
|||
|
|
unsigned int i;
|
|||
|
|
|
|||
|
|
for (i = 0; i < _count; i++)
|
|||
|
|
{
|
|||
|
|
_contents[i] = [[anotherArray objectAtIndex: i] retain];
|
|||
|
|
_isGCObject[i] = [_contents[i] isKindOfClass: gcClass];
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
return self;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
- (void) insertObject: (id)anObject atIndex: (unsigned int)index
|
|||
|
|
{
|
|||
|
|
unsigned int i;
|
|||
|
|
|
|||
|
|
if (anObject == nil)
|
|||
|
|
{
|
|||
|
|
[NSException raise: NSInvalidArgumentException
|
|||
|
|
format: @"[%@-%@]: nil argument",
|
|||
|
|
NSStringFromClass([self class]), NSStringFromSelector(_cmd)];
|
|||
|
|
}
|
|||
|
|
if (index > _count)
|
|||
|
|
{
|
|||
|
|
[NSException raise: NSRangeException
|
|||
|
|
format: @"[%@-%@]: bad index %u",
|
|||
|
|
NSStringFromClass([self class]), NSStringFromSelector(_cmd), index];
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
if (_count == _maxCount)
|
|||
|
|
{
|
|||
|
|
unsigned old = _maxCount;
|
|||
|
|
BOOL *optr;
|
|||
|
|
|
|||
|
|
if (_maxCount > 0)
|
|||
|
|
{
|
|||
|
|
_maxCount += (_maxCount >> 1) ? (_maxCount >> 1) : 1;
|
|||
|
|
}
|
|||
|
|
else
|
|||
|
|
{
|
|||
|
|
_maxCount = 1;
|
|||
|
|
}
|
|||
|
|
_contents = (id*)NSZoneRealloc([self zone], _contents,
|
|||
|
|
_maxCount * (sizeof(id) + sizeof(BOOL)));
|
|||
|
|
optr = (BOOL*)&_contents[old];
|
|||
|
|
_isGCObject = (BOOL*)&_contents[_maxCount];
|
|||
|
|
memmove(_isGCObject, optr, sizeof(BOOL)*old);
|
|||
|
|
}
|
|||
|
|
for(i = _count; i > index; i--)
|
|||
|
|
{
|
|||
|
|
_contents[i] = _contents[i - 1];
|
|||
|
|
_isGCObject[i] = _isGCObject[i - 1];
|
|||
|
|
}
|
|||
|
|
_contents[index] = [anObject retain];
|
|||
|
|
_isGCObject[index] = [anObject isKindOfClass: gcClass];
|
|||
|
|
_count++;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
- (id) mutableCopyWithZone: (NSZone*)zone
|
|||
|
|
{
|
|||
|
|
return [[GCMutableArray allocWithZone: zone]
|
|||
|
|
initWithArray: self copyItems: YES];
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
- (void) removeAllObjects
|
|||
|
|
{
|
|||
|
|
[self removeObjectsInRange: NSMakeRange(0, _count)];
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
- (void) removeObjectAtIndex: (unsigned int)index
|
|||
|
|
{
|
|||
|
|
[self removeObjectsInRange: NSMakeRange(index, 1)];
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
- (void) removeObjectsInRange: (NSRange)range
|
|||
|
|
{
|
|||
|
|
unsigned int i;
|
|||
|
|
|
|||
|
|
if (NSMaxRange(range) > _count)
|
|||
|
|
{
|
|||
|
|
[NSException raise: NSRangeException
|
|||
|
|
format: @"[%@-%@]: bad range %@",
|
|||
|
|
NSStringFromClass([self class]), NSStringFromSelector(_cmd),
|
|||
|
|
NSStringFromRange(range)];
|
|||
|
|
}
|
|||
|
|
if (range.length == 0)
|
|||
|
|
{
|
|||
|
|
return;
|
|||
|
|
}
|
|||
|
|
for (i = range.location; i < NSMaxRange(range); i++)
|
|||
|
|
{
|
|||
|
|
[_contents[i] release];
|
|||
|
|
}
|
|||
|
|
for (i = NSMaxRange(range); i < _count; i++, range.location++)
|
|||
|
|
{
|
|||
|
|
_contents[range.location] = _contents[i];
|
|||
|
|
_isGCObject[range.location] = _isGCObject[i];
|
|||
|
|
}
|
|||
|
|
_count -= range.length;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
- (void) replaceObjectAtIndex: (unsigned int)index withObject: (id)anObject
|
|||
|
|
{
|
|||
|
|
if (anObject == nil)
|
|||
|
|
{
|
|||
|
|
[NSException raise: NSInvalidArgumentException
|
|||
|
|
format: @"[%@-%@]: nil argument",
|
|||
|
|
NSStringFromClass([self class]), NSStringFromSelector(_cmd)];
|
|||
|
|
}
|
|||
|
|
if (index >= _count)
|
|||
|
|
{
|
|||
|
|
[NSException raise: NSRangeException
|
|||
|
|
format: @"[%@-%@]: bad index %u",
|
|||
|
|
NSStringFromClass([self class]), NSStringFromSelector(_cmd), index];
|
|||
|
|
}
|
|||
|
|
[anObject retain];
|
|||
|
|
[_contents[index] release];
|
|||
|
|
_contents[index] = anObject;
|
|||
|
|
_isGCObject[index] = [anObject isKindOfClass: gcClass];
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
@end
|
|||
|
|
|