mirror of
https://github.com/gnustep/libs-base.git
synced 2025-04-22 16:33:29 +00:00
4cdea64975
- Using the correct format specifier - Remove substringFromRange: (GNUstep extension) from NSString.h and use the non-deprecated version in -base. - Delete definitions of methods that are the same in both a class and a category on that class (NSArray and NSObject). Two files still have warnings: - The GNUTLS stuff is using a load of deprecated APIs. - xmlparse.m replaces a method using a category. This method seems to always return nil. Not sure what it's meant to do, or why it isn't a delegate of some kind. git-svn-id: svn+ssh://svn.gna.org/svn/gnustep/libs/base/trunk@33756 72102866-910b-0410-8b05-ffd578937521
1216 lines
26 KiB
Objective-C
1216 lines
26 KiB
Objective-C
/** Concrete implementation of NSArray
|
||
Copyright (C) 1995, 1996, 1998, 1999 Free Software Foundation, Inc.
|
||
|
||
Written by: Andrew Kachites McCallum <mccallum@gnu.ai.mit.edu>
|
||
Date: March 1995
|
||
Rewrite by: Richard Frith-Macdonald <richard@brainstorm.co.uk>
|
||
|
||
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 Lesser 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 Lesser General Public
|
||
License along with this library; if not, write to the Free
|
||
Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
|
||
Boston, MA 02111 USA.
|
||
|
||
$Date$ $Revision$
|
||
*/
|
||
|
||
#import "common.h"
|
||
#import "Foundation/NSArray.h"
|
||
#import "GNUstepBase/GSObjCRuntime.h"
|
||
#import "Foundation/NSDictionary.h"
|
||
#import "Foundation/NSEnumerator.h"
|
||
#import "Foundation/NSException.h"
|
||
#import "Foundation/NSPortCoder.h"
|
||
#import "Foundation/NSValue.h"
|
||
// For private method _decodeArrayOfObjectsForKey:
|
||
#import "Foundation/NSKeyedArchiver.h"
|
||
|
||
#import "GSPrivate.h"
|
||
|
||
static SEL eqSel;
|
||
static SEL oaiSel;
|
||
|
||
#if GS_WITH_GC
|
||
static Class GSArrayClass;
|
||
#else
|
||
static Class GSInlineArrayClass;
|
||
/* This class stores objects inline in data beyond the end of the instance.
|
||
* However, when GC is enabled the object data is typed, and all data after
|
||
* the end of the class is ignored by the garbage collector (which would
|
||
* mean that objects in the array could be collected).
|
||
* We therefore do not provide the class when GC is being used.
|
||
*/
|
||
@interface GSInlineArray : GSArray
|
||
{
|
||
}
|
||
@end
|
||
#endif
|
||
|
||
@class GSArray;
|
||
|
||
@interface GSArrayEnumerator : NSEnumerator
|
||
{
|
||
GSArray *array;
|
||
NSUInteger pos;
|
||
}
|
||
- (id) initWithArray: (GSArray*)anArray;
|
||
@end
|
||
|
||
@interface GSArrayEnumeratorReverse : GSArrayEnumerator
|
||
@end
|
||
|
||
@interface GSMutableArray (GSArrayBehavior)
|
||
- (void) _raiseRangeExceptionWithIndex: (NSUInteger)index from: (SEL)sel;
|
||
@end
|
||
|
||
@implementation GSArray
|
||
|
||
- (void) _raiseRangeExceptionWithIndex: (NSUInteger)index from: (SEL)sel
|
||
{
|
||
NSDictionary *info;
|
||
NSException *exception;
|
||
NSString *reason;
|
||
|
||
info = [NSDictionary dictionaryWithObjectsAndKeys:
|
||
[NSNumber numberWithUnsignedInt: index], @"Index",
|
||
[NSNumber numberWithUnsignedInt: _count], @"Count",
|
||
self, @"Array", nil, nil];
|
||
|
||
reason = [NSString stringWithFormat:
|
||
@"Index %d is out of range %d (in '%@')",
|
||
index, _count, NSStringFromSelector(sel)];
|
||
|
||
exception = [NSException exceptionWithName: NSRangeException
|
||
reason: reason
|
||
userInfo: info];
|
||
[exception raise];
|
||
}
|
||
|
||
+ (void) initialize
|
||
{
|
||
if (self == [GSArray class])
|
||
{
|
||
[self setVersion: 1];
|
||
eqSel = @selector(isEqual:);
|
||
oaiSel = @selector(objectAtIndex:);
|
||
#if GS_WITH_GC
|
||
GSArrayClass = [GSArray class];
|
||
#else
|
||
GSInlineArrayClass = [GSInlineArray class];
|
||
#endif
|
||
}
|
||
}
|
||
|
||
+ (id) allocWithZone: (NSZone*)zone
|
||
{
|
||
GSArray *array = (GSArray*)NSAllocateObject(self, 0, zone);
|
||
|
||
return (id)array;
|
||
}
|
||
|
||
- (id) copyWithZone: (NSZone*)zone
|
||
{
|
||
return RETAIN(self); // Optimised version
|
||
}
|
||
|
||
- (void) dealloc
|
||
{
|
||
if (_contents_array)
|
||
{
|
||
#if !GS_WITH_GC
|
||
NSUInteger i;
|
||
|
||
for (i = 0; i < _count; i++)
|
||
{
|
||
[_contents_array[i] release];
|
||
}
|
||
#endif
|
||
NSZoneFree([self zone], _contents_array);
|
||
_contents_array = 0;
|
||
}
|
||
[super dealloc];
|
||
}
|
||
|
||
- (id) init
|
||
{
|
||
return [self initWithObjects: 0 count: 0];
|
||
}
|
||
|
||
/* This is the designated initializer for NSArray. */
|
||
- (id) initWithObjects: (const id[])objects count: (NSUInteger)count
|
||
{
|
||
if (count > 0)
|
||
{
|
||
NSUInteger i;
|
||
|
||
#if GS_WITH_GC
|
||
_contents_array = NSAllocateCollectable(sizeof(id)*count,
|
||
NSScannedOption);
|
||
#else
|
||
_contents_array = NSZoneMalloc([self zone], sizeof(id)*count);
|
||
#endif
|
||
if (_contents_array == 0)
|
||
{
|
||
DESTROY(self);
|
||
return nil;
|
||
}
|
||
|
||
for (i = 0; i < count; i++)
|
||
{
|
||
if ((_contents_array[i] = RETAIN(objects[i])) == nil)
|
||
{
|
||
_count = i;
|
||
DESTROY(self);
|
||
[NSException raise: NSInvalidArgumentException
|
||
format: @"Tried to init array with nil to object"];
|
||
}
|
||
}
|
||
_count = count;
|
||
}
|
||
return self;
|
||
}
|
||
|
||
- (void) encodeWithCoder: (NSCoder*)aCoder
|
||
{
|
||
if ([aCoder allowsKeyedCoding])
|
||
{
|
||
[super encodeWithCoder: aCoder];
|
||
}
|
||
else
|
||
{
|
||
/* For performace we encode directly ... must exactly match the
|
||
* superclass implemenation. */
|
||
[aCoder encodeValueOfObjCType: @encode(unsigned)
|
||
at: &_count];
|
||
if (_count > 0)
|
||
{
|
||
[aCoder encodeArrayOfObjCType: @encode(id)
|
||
count: _count
|
||
at: _contents_array];
|
||
}
|
||
}
|
||
}
|
||
|
||
- (id) initWithCoder: (NSCoder*)aCoder
|
||
{
|
||
if ([aCoder allowsKeyedCoding])
|
||
{
|
||
self = [super initWithCoder: aCoder];
|
||
}
|
||
else
|
||
{
|
||
/* for performance, we decode directly into memory rather than
|
||
* using the superclass method. Must exactly match superclass. */
|
||
[aCoder decodeValueOfObjCType: @encode(unsigned)
|
||
at: &_count];
|
||
if (_count > 0)
|
||
{
|
||
#if GS_WITH_GC
|
||
_contents_array = NSAllocateCollectable(sizeof(id) * _count,
|
||
NSScannedOption);
|
||
#else
|
||
_contents_array = NSZoneCalloc([self zone], _count, sizeof(id));
|
||
#endif
|
||
if (_contents_array == 0)
|
||
{
|
||
[NSException raise: NSMallocException
|
||
format: @"Unable to make array"];
|
||
}
|
||
[aCoder decodeArrayOfObjCType: @encode(id)
|
||
count: _count
|
||
at: _contents_array];
|
||
}
|
||
}
|
||
return self;
|
||
}
|
||
|
||
- (NSUInteger) count
|
||
{
|
||
return _count;
|
||
}
|
||
|
||
- (NSUInteger) hash
|
||
{
|
||
return _count;
|
||
}
|
||
|
||
- (NSUInteger) indexOfObject: anObject
|
||
{
|
||
if (anObject == nil)
|
||
return NSNotFound;
|
||
/*
|
||
* For large arrays, speed things up a little by caching the method.
|
||
*/
|
||
if (_count > 1)
|
||
{
|
||
BOOL (*imp)(id,SEL,id);
|
||
NSUInteger i;
|
||
|
||
imp = (BOOL (*)(id,SEL,id))[anObject methodForSelector: eqSel];
|
||
|
||
for (i = 0; i < _count; i++)
|
||
{
|
||
if ((*imp)(anObject, eqSel, _contents_array[i]))
|
||
{
|
||
return i;
|
||
}
|
||
}
|
||
}
|
||
else if (_count == 1 && [anObject isEqual: _contents_array[0]])
|
||
{
|
||
return 0;
|
||
}
|
||
return NSNotFound;
|
||
}
|
||
|
||
- (NSUInteger) indexOfObjectIdenticalTo: anObject
|
||
{
|
||
NSUInteger i;
|
||
|
||
for (i = 0; i < _count; i++)
|
||
{
|
||
if (anObject == _contents_array[i])
|
||
{
|
||
return i;
|
||
}
|
||
}
|
||
return NSNotFound;
|
||
}
|
||
|
||
- (BOOL) isEqualToArray: (NSArray*)otherArray
|
||
{
|
||
NSUInteger i;
|
||
|
||
if (self == (id)otherArray)
|
||
{
|
||
return YES;
|
||
}
|
||
if (_count != [otherArray count])
|
||
{
|
||
return NO;
|
||
}
|
||
if (_count > 0)
|
||
{
|
||
IMP get1 = [otherArray methodForSelector: oaiSel];
|
||
|
||
for (i = 0; i < _count; i++)
|
||
{
|
||
if (![_contents_array[i] isEqual: (*get1)(otherArray, oaiSel, i)])
|
||
{
|
||
return NO;
|
||
}
|
||
}
|
||
}
|
||
return YES;
|
||
}
|
||
|
||
- (id) lastObject
|
||
{
|
||
if (_count)
|
||
{
|
||
return _contents_array[_count-1];
|
||
}
|
||
return nil;
|
||
}
|
||
|
||
- (id) objectAtIndex: (NSUInteger)index
|
||
{
|
||
if (index >= _count)
|
||
{
|
||
[self _raiseRangeExceptionWithIndex: index from: _cmd];
|
||
}
|
||
return _contents_array[index];
|
||
}
|
||
|
||
- (void) makeObjectsPerformSelector: (SEL)aSelector
|
||
{
|
||
NSUInteger i;
|
||
|
||
for (i = 0; i < _count; i++)
|
||
{
|
||
[_contents_array[i] performSelector: aSelector];
|
||
}
|
||
}
|
||
|
||
- (void) makeObjectsPerformSelector: (SEL)aSelector withObject: (id)argument
|
||
{
|
||
NSUInteger i;
|
||
|
||
for (i = 0; i < _count; i++)
|
||
{
|
||
[_contents_array[i] performSelector: aSelector withObject: argument];
|
||
}
|
||
}
|
||
|
||
- (void) getObjects: (__unsafe_unretained id[])aBuffer
|
||
{
|
||
NSUInteger i;
|
||
|
||
for (i = 0; i < _count; i++)
|
||
{
|
||
aBuffer[i] = _contents_array[i];
|
||
}
|
||
}
|
||
|
||
- (void) getObjects: (__unsafe_unretained id[])aBuffer range: (NSRange)aRange
|
||
{
|
||
NSUInteger i, j = 0, e = aRange.location + aRange.length;
|
||
|
||
GS_RANGE_CHECK(aRange, _count);
|
||
|
||
for (i = aRange.location; i < e; i++)
|
||
{
|
||
aBuffer[j++] = _contents_array[i];
|
||
}
|
||
}
|
||
|
||
- (NSUInteger) countByEnumeratingWithState: (NSFastEnumerationState*)state
|
||
objects: (__unsafe_unretained id[])stackbuf
|
||
count: (NSUInteger)len
|
||
{
|
||
/* For immutable arrays we can return the contents pointer directly. */
|
||
NSUInteger count = _count - state->state;
|
||
state->mutationsPtr = (unsigned long *)self;
|
||
state->itemsPtr = _contents_array + state->state;
|
||
state->state += count;
|
||
return count;
|
||
}
|
||
@end
|
||
|
||
#if !GS_WITH_GC
|
||
@implementation GSInlineArray
|
||
- (void) dealloc
|
||
{
|
||
if (_contents_array)
|
||
{
|
||
NSUInteger i;
|
||
|
||
for (i = 0; i < _count; i++)
|
||
{
|
||
[_contents_array[i] release];
|
||
}
|
||
_contents_array = 0;
|
||
}
|
||
[super dealloc];
|
||
}
|
||
- (id) init
|
||
{
|
||
return [self initWithObjects: 0 count: 0];
|
||
}
|
||
- (id) initWithObjects: (const id[])objects count: (NSUInteger)count
|
||
{
|
||
_contents_array
|
||
= (id*)(((void*)self) + class_getInstanceSize([self class]));
|
||
|
||
if (count > 0)
|
||
{
|
||
NSUInteger i;
|
||
|
||
for (i = 0; i < count; i++)
|
||
{
|
||
if ((_contents_array[i] = RETAIN(objects[i])) == nil)
|
||
{
|
||
_count = i;
|
||
DESTROY(self);
|
||
[NSException raise: NSInvalidArgumentException
|
||
format: @"Tried to init array with nil object"];
|
||
}
|
||
}
|
||
_count = count;
|
||
}
|
||
return self;
|
||
}
|
||
@end
|
||
#endif
|
||
|
||
@implementation GSMutableArray
|
||
|
||
+ (void) initialize
|
||
{
|
||
if (self == [GSMutableArray class])
|
||
{
|
||
[self setVersion: 1];
|
||
GSObjCAddClassBehavior(self, [GSArray class]);
|
||
}
|
||
}
|
||
|
||
- (void) addObject: (id)anObject
|
||
{
|
||
_version++;
|
||
if (anObject == nil)
|
||
{
|
||
[NSException raise: NSInvalidArgumentException
|
||
format: @"Tried to add nil to array"];
|
||
}
|
||
if (_count >= _capacity)
|
||
{
|
||
id *ptr;
|
||
size_t size = (_capacity + _grow_factor)*sizeof(id);
|
||
|
||
ptr = NSZoneRealloc([self zone], _contents_array, size);
|
||
if (ptr == 0)
|
||
{
|
||
[NSException raise: NSMallocException
|
||
format: @"Unable to grow array"];
|
||
}
|
||
_contents_array = ptr;
|
||
_capacity += _grow_factor;
|
||
_grow_factor = _capacity/2;
|
||
}
|
||
_contents_array[_count] = RETAIN(anObject);
|
||
_count++; /* Do this AFTER we have retained the object. */
|
||
_version++;
|
||
}
|
||
|
||
/**
|
||
* Optimised code for copying
|
||
*/
|
||
- (id) copyWithZone: (NSZone*)zone
|
||
{
|
||
NSArray *copy;
|
||
|
||
#if GS_WITH_GC
|
||
copy = (id)NSAllocateObject(GSArrayClass, 0, zone);
|
||
#else
|
||
copy = (id)NSAllocateObject(GSInlineArrayClass, sizeof(id)*_count, zone);
|
||
#endif
|
||
return [copy initWithObjects: _contents_array count: _count];
|
||
}
|
||
|
||
- (void) exchangeObjectAtIndex: (NSUInteger)i1
|
||
withObjectAtIndex: (NSUInteger)i2
|
||
{
|
||
_version++;
|
||
if (i1 >= _count)
|
||
{
|
||
[self _raiseRangeExceptionWithIndex: i1 from: _cmd];
|
||
}
|
||
if (i2 >= _count)
|
||
{
|
||
[self _raiseRangeExceptionWithIndex: i2 from: _cmd];
|
||
}
|
||
if (i1 != i2)
|
||
{
|
||
id tmp = _contents_array[i1];
|
||
|
||
_contents_array[i1] = _contents_array[i2];
|
||
_contents_array[i2] = tmp;
|
||
}
|
||
_version++;
|
||
}
|
||
|
||
- (id) init
|
||
{
|
||
return [self initWithCapacity: 0];
|
||
}
|
||
|
||
- (id) initWithCapacity: (NSUInteger)cap
|
||
{
|
||
if (cap == 0)
|
||
{
|
||
cap = 1;
|
||
}
|
||
#if GS_WITH_GC
|
||
_contents_array = NSAllocateCollectable(sizeof(id)*cap, NSScannedOption);
|
||
#else
|
||
_contents_array = NSZoneMalloc([self zone], sizeof(id)*cap);
|
||
#endif
|
||
_capacity = cap;
|
||
_grow_factor = cap > 1 ? cap/2 : 1;
|
||
return self;
|
||
}
|
||
|
||
- (id) initWithCoder: (NSCoder*)aCoder
|
||
{
|
||
if ([aCoder allowsKeyedCoding])
|
||
{
|
||
self = [super initWithCoder: aCoder];
|
||
}
|
||
else
|
||
{
|
||
unsigned count;
|
||
|
||
[aCoder decodeValueOfObjCType: @encode(unsigned)
|
||
at: &count];
|
||
if ((self = [self initWithCapacity: count]) == nil)
|
||
{
|
||
[NSException raise: NSMallocException
|
||
format: @"Unable to make array while initializing from coder"];
|
||
}
|
||
if (count > 0)
|
||
{
|
||
[aCoder decodeArrayOfObjCType: @encode(id)
|
||
count: count
|
||
at: _contents_array];
|
||
_count = count;
|
||
}
|
||
}
|
||
return self;
|
||
}
|
||
|
||
- (id) initWithObjects: (const id[])objects count: (NSUInteger)count
|
||
{
|
||
self = [self initWithCapacity: count];
|
||
if (self != nil && count > 0)
|
||
{
|
||
NSUInteger i;
|
||
|
||
for (i = 0; i < count; i++)
|
||
{
|
||
if ((_contents_array[i] = RETAIN(objects[i])) == nil)
|
||
{
|
||
_count = i;
|
||
DESTROY(self);
|
||
[NSException raise: NSInvalidArgumentException
|
||
format: @"Tried to init array with nil object"];
|
||
}
|
||
}
|
||
_count = count;
|
||
}
|
||
return self;
|
||
}
|
||
|
||
- (void) insertObject: (id)anObject atIndex: (NSUInteger)index
|
||
{
|
||
_version++;
|
||
if (!anObject)
|
||
{
|
||
NSException *exception;
|
||
NSDictionary *info;
|
||
|
||
info = [NSDictionary dictionaryWithObjectsAndKeys:
|
||
[NSNumber numberWithUnsignedInt: index], @"Index",
|
||
self, @"Array", nil, nil];
|
||
|
||
exception = [NSException exceptionWithName: NSInvalidArgumentException
|
||
reason: @"Tried to insert nil to array"
|
||
userInfo: info];
|
||
[exception raise];
|
||
}
|
||
if (index > _count)
|
||
{
|
||
[self _raiseRangeExceptionWithIndex: index from: _cmd];
|
||
}
|
||
if (_count == _capacity)
|
||
{
|
||
id *ptr;
|
||
size_t size = (_capacity + _grow_factor)*sizeof(id);
|
||
|
||
ptr = NSZoneRealloc([self zone], _contents_array, size);
|
||
if (ptr == 0)
|
||
{
|
||
[NSException raise: NSMallocException
|
||
format: @"Unable to grow"];
|
||
}
|
||
_contents_array = ptr;
|
||
_capacity += _grow_factor;
|
||
_grow_factor = _capacity/2;
|
||
}
|
||
memmove(&_contents_array[index+1], &_contents_array[index],
|
||
(_count - index) * sizeof(id));
|
||
/*
|
||
* Make sure the array is 'sane' so that it can be deallocated
|
||
* safely by an autorelease pool if the '[anObject retain]' causes
|
||
* an exception.
|
||
*/
|
||
_contents_array[index] = nil;
|
||
_count++;
|
||
_contents_array[index] = RETAIN(anObject);
|
||
_version++;
|
||
}
|
||
|
||
- (id) makeImmutableCopyOnFail: (BOOL)force
|
||
{
|
||
GSClassSwizzle(self, [GSArray class]);
|
||
return self;
|
||
}
|
||
|
||
- (void) removeLastObject
|
||
{
|
||
_version++;
|
||
if (_count == 0)
|
||
{
|
||
[NSException raise: NSRangeException
|
||
format: @"Trying to remove from an empty array."];
|
||
}
|
||
_count--;
|
||
RELEASE(_contents_array[_count]);
|
||
_contents_array[_count] = 0;
|
||
_version++;
|
||
}
|
||
|
||
- (void) removeObject: (id)anObject
|
||
{
|
||
NSUInteger index;
|
||
|
||
_version++;
|
||
if (anObject == nil)
|
||
{
|
||
NSWarnMLog(@"attempt to remove nil object");
|
||
return;
|
||
}
|
||
index = _count;
|
||
if (index > 0)
|
||
{
|
||
BOOL (*imp)(id,SEL,id);
|
||
#if GS_WITH_GC == 0
|
||
BOOL retained = NO;
|
||
#endif
|
||
|
||
imp = (BOOL (*)(id,SEL,id))[anObject methodForSelector: eqSel];
|
||
while (index-- > 0)
|
||
{
|
||
if ((*imp)(anObject, eqSel, _contents_array[index]) == YES)
|
||
{
|
||
NSUInteger pos = index;
|
||
#if GS_WITH_GC == 0
|
||
id obj = _contents_array[index];
|
||
|
||
if (retained == NO)
|
||
{
|
||
RETAIN(anObject);
|
||
retained = YES;
|
||
}
|
||
#endif
|
||
|
||
while (++pos < _count)
|
||
{
|
||
_contents_array[pos-1] = _contents_array[pos];
|
||
}
|
||
_count--;
|
||
_contents_array[_count] = 0;
|
||
RELEASE(obj);
|
||
}
|
||
}
|
||
#if GS_WITH_GC == 0
|
||
if (retained == YES)
|
||
{
|
||
RELEASE(anObject);
|
||
}
|
||
#endif
|
||
}
|
||
_version++;
|
||
}
|
||
|
||
- (void) removeObjectAtIndex: (NSUInteger)index
|
||
{
|
||
id obj;
|
||
|
||
_version++;
|
||
if (index >= _count)
|
||
{
|
||
[self _raiseRangeExceptionWithIndex: index from: _cmd];
|
||
}
|
||
obj = _contents_array[index];
|
||
_count--;
|
||
while (index < _count)
|
||
{
|
||
_contents_array[index] = _contents_array[index+1];
|
||
index++;
|
||
}
|
||
_contents_array[_count] = 0;
|
||
[obj release]; /* Adjust array BEFORE releasing object. */
|
||
_version++;
|
||
}
|
||
|
||
- (void) removeObjectIdenticalTo: (id)anObject
|
||
{
|
||
NSUInteger index;
|
||
|
||
_version++;
|
||
if (anObject == nil)
|
||
{
|
||
NSWarnMLog(@"attempt to remove nil object");
|
||
return;
|
||
}
|
||
index = _count;
|
||
while (index-- > 0)
|
||
{
|
||
if (_contents_array[index] == anObject)
|
||
{
|
||
#if GS_WITH_GC == 0
|
||
id obj = _contents_array[index];
|
||
#endif
|
||
NSUInteger pos = index;
|
||
|
||
while (++pos < _count)
|
||
{
|
||
_contents_array[pos-1] = _contents_array[pos];
|
||
}
|
||
_count--;
|
||
_contents_array[_count] = 0;
|
||
RELEASE(obj);
|
||
}
|
||
}
|
||
_version++;
|
||
}
|
||
|
||
- (void) replaceObjectAtIndex: (NSUInteger)index withObject: (id)anObject
|
||
{
|
||
id obj;
|
||
|
||
_version++;
|
||
if (index >= _count)
|
||
{
|
||
[self _raiseRangeExceptionWithIndex: index from: _cmd];
|
||
}
|
||
if (!anObject)
|
||
{
|
||
NSException *exception;
|
||
NSDictionary *info;
|
||
|
||
info = [NSDictionary dictionaryWithObjectsAndKeys:
|
||
[NSNumber numberWithUnsignedInt: index], @"Index",
|
||
_contents_array[index], @"OLdObject",
|
||
self, @"Array", nil, nil];
|
||
|
||
exception = [NSException exceptionWithName: NSInvalidArgumentException
|
||
reason: @"Tried to replace object in array with nil"
|
||
userInfo: info];
|
||
[exception raise];
|
||
}
|
||
/*
|
||
* Swap objects in order so that there is always a valid object in the
|
||
* array in case a retain or release causes an exception.
|
||
*/
|
||
obj = _contents_array[index];
|
||
[anObject retain];
|
||
_contents_array[index] = anObject;
|
||
[obj release];
|
||
_version++;
|
||
}
|
||
|
||
- (void) sortUsingFunction: (NSComparisonResult(*)(id,id,void*))compare
|
||
context: (void*)context
|
||
{
|
||
/* Shell sort algorithm taken from SortingInAction - a NeXT example */
|
||
#define STRIDE_FACTOR 3 // good value for stride factor is not well-understood
|
||
// 3 is a fairly good choice (Sedgewick)
|
||
NSUInteger c;
|
||
NSUInteger d;
|
||
NSUInteger stride = 1;
|
||
BOOL found;
|
||
NSUInteger count = _count;
|
||
#ifdef GSWARN
|
||
BOOL badComparison = NO;
|
||
#endif
|
||
|
||
_version++;
|
||
while (stride <= count)
|
||
{
|
||
stride = stride * STRIDE_FACTOR + 1;
|
||
}
|
||
|
||
while (stride > (STRIDE_FACTOR - 1))
|
||
{
|
||
// loop to sort for each value of stride
|
||
stride = stride / STRIDE_FACTOR;
|
||
for (c = stride; c < count; c++)
|
||
{
|
||
found = NO;
|
||
if (stride > c)
|
||
{
|
||
break;
|
||
}
|
||
d = c - stride;
|
||
while (!found) /* move to left until correct place */
|
||
{
|
||
id a = _contents_array[d + stride];
|
||
id b = _contents_array[d];
|
||
NSComparisonResult r;
|
||
|
||
r = (*compare)(a, b, context);
|
||
if (r < 0)
|
||
{
|
||
#ifdef GSWARN
|
||
if (r != NSOrderedAscending)
|
||
{
|
||
badComparison = YES;
|
||
}
|
||
#endif
|
||
_contents_array[d+stride] = b;
|
||
_contents_array[d] = a;
|
||
if (stride > d)
|
||
{
|
||
break;
|
||
}
|
||
d -= stride; // jump by stride factor
|
||
}
|
||
else
|
||
{
|
||
#ifdef GSWARN
|
||
if (r != NSOrderedDescending && r != NSOrderedSame)
|
||
{
|
||
badComparison = YES;
|
||
}
|
||
#endif
|
||
found = YES;
|
||
}
|
||
}
|
||
}
|
||
}
|
||
#ifdef GSWARN
|
||
if (badComparison == YES)
|
||
{
|
||
NSWarnMLog(@"Detected bad return value from comparison");
|
||
}
|
||
#endif
|
||
_version++;
|
||
}
|
||
|
||
- (NSEnumerator*) objectEnumerator
|
||
{
|
||
GSArrayEnumerator *enumerator;
|
||
|
||
enumerator = [GSArrayEnumerator allocWithZone: NSDefaultMallocZone()];
|
||
return AUTORELEASE([enumerator initWithArray: (GSArray*)self]);
|
||
}
|
||
|
||
- (NSEnumerator*) reverseObjectEnumerator
|
||
{
|
||
GSArrayEnumeratorReverse *enumerator;
|
||
|
||
enumerator = [GSArrayEnumeratorReverse allocWithZone: NSDefaultMallocZone()];
|
||
return AUTORELEASE([enumerator initWithArray: (GSArray*)self]);
|
||
}
|
||
|
||
- (NSUInteger) countByEnumeratingWithState: (NSFastEnumerationState*)state
|
||
objects: (__unsafe_unretained id[])stackbuf
|
||
count: (NSUInteger)len
|
||
{
|
||
NSInteger count;
|
||
|
||
/* This is cached in the caller at the start and compared at each
|
||
* iteration. If it changes during the iteration then
|
||
* objc_enumerationMutation() will be called, throwing an exception.
|
||
*/
|
||
state->mutationsPtr = &_version;
|
||
count = MIN(len, _count - state->state);
|
||
/* If a mutation has occurred then it's possible that we are being asked to
|
||
* get objects from after the end of the array. Don't pass negative values
|
||
* to memcpy.
|
||
*/
|
||
if (count > 0)
|
||
{
|
||
memcpy(stackbuf, _contents_array + state->state, count * sizeof(id));
|
||
state->state += count;
|
||
}
|
||
else
|
||
{
|
||
count = 0;
|
||
}
|
||
state->itemsPtr = stackbuf;
|
||
return count;
|
||
}
|
||
@end
|
||
|
||
|
||
|
||
@implementation GSArrayEnumerator
|
||
|
||
- (id) initWithArray: (GSArray*)anArray
|
||
{
|
||
if ((self = [super init]) != nil)
|
||
{
|
||
array = anArray;
|
||
IF_NO_GC(RETAIN(array));
|
||
pos = 0;
|
||
}
|
||
return self;
|
||
}
|
||
|
||
- (id) nextObject
|
||
{
|
||
if (pos >= array->_count)
|
||
return nil;
|
||
return array->_contents_array[pos++];
|
||
}
|
||
|
||
- (void) dealloc
|
||
{
|
||
RELEASE(array);
|
||
[super dealloc];
|
||
}
|
||
|
||
@end
|
||
|
||
@implementation GSArrayEnumeratorReverse
|
||
|
||
- (id) initWithArray: (GSArray*)anArray
|
||
{
|
||
[super initWithArray: anArray];
|
||
pos = array->_count;
|
||
return self;
|
||
}
|
||
|
||
- (id) nextObject
|
||
{
|
||
if (pos == 0)
|
||
return nil;
|
||
return array->_contents_array[--pos];
|
||
}
|
||
@end
|
||
|
||
@implementation GSArray (GNUstep)
|
||
/*
|
||
* The comparator function takes two items as arguments, the first is the
|
||
* item to be added, the second is the item already in the array.
|
||
* The function should return NSOrderedAscending if the item to be
|
||
* added is 'less than' the item in the array, NSOrderedDescending
|
||
* if it is greater, and NSOrderedSame if it is equal.
|
||
*/
|
||
- (NSUInteger) insertionPosition: (id)item
|
||
usingFunction: (NSComparisonResult (*)(id, id, void *))sorter
|
||
context: (void *)context
|
||
{
|
||
NSUInteger upper = _count;
|
||
NSUInteger lower = 0;
|
||
NSUInteger index;
|
||
|
||
if (item == nil)
|
||
{
|
||
[NSException raise: NSGenericException
|
||
format: @"Attempt to find position for nil object in array"];
|
||
}
|
||
if (sorter == 0)
|
||
{
|
||
[NSException raise: NSGenericException
|
||
format: @"Attempt to find position with null comparator"];
|
||
}
|
||
|
||
/*
|
||
* Binary search for an item equal to the one to be inserted.
|
||
*/
|
||
for (index = upper/2; upper != lower; index = lower+(upper-lower)/2)
|
||
{
|
||
NSComparisonResult comparison;
|
||
|
||
comparison = (*sorter)(item, _contents_array[index], context);
|
||
if (comparison == NSOrderedAscending)
|
||
{
|
||
upper = index;
|
||
}
|
||
else if (comparison == NSOrderedDescending)
|
||
{
|
||
lower = index + 1;
|
||
}
|
||
else
|
||
{
|
||
break;
|
||
}
|
||
}
|
||
/*
|
||
* Now skip past any equal items so the insertion point is AFTER any
|
||
* items that are equal to the new one.
|
||
*/
|
||
while (index < _count
|
||
&& (*sorter)(item, _contents_array[index], context) != NSOrderedAscending)
|
||
{
|
||
index++;
|
||
}
|
||
return index;
|
||
}
|
||
|
||
- (NSUInteger) insertionPosition: (id)item
|
||
usingSelector: (SEL)comp
|
||
{
|
||
NSUInteger upper = _count;
|
||
NSUInteger lower = 0;
|
||
NSUInteger index;
|
||
NSComparisonResult (*imp)(id, SEL, id);
|
||
|
||
if (item == nil)
|
||
{
|
||
[NSException raise: NSGenericException
|
||
format: @"Attempt to find position for nil object in array"];
|
||
}
|
||
if (comp == 0)
|
||
{
|
||
[NSException raise: NSGenericException
|
||
format: @"Attempt to find position with null comparator"];
|
||
}
|
||
imp = (NSComparisonResult (*)(id, SEL, id))[item methodForSelector: comp];
|
||
if (imp == 0)
|
||
{
|
||
[NSException raise: NSGenericException
|
||
format: @"Attempt to find position with unknown method"];
|
||
}
|
||
|
||
/*
|
||
* Binary search for an item equal to the one to be inserted.
|
||
*/
|
||
for (index = upper/2; upper != lower; index = lower+(upper-lower)/2)
|
||
{
|
||
NSComparisonResult comparison;
|
||
|
||
comparison = (*imp)(item, comp, _contents_array[index]);
|
||
if (comparison == NSOrderedAscending)
|
||
{
|
||
upper = index;
|
||
}
|
||
else if (comparison == NSOrderedDescending)
|
||
{
|
||
lower = index + 1;
|
||
}
|
||
else
|
||
{
|
||
break;
|
||
}
|
||
}
|
||
/*
|
||
* Now skip past any equal items so the insertion point is AFTER any
|
||
* items that are equal to the new one.
|
||
*/
|
||
while (index < _count
|
||
&& (*imp)(item, comp, _contents_array[index]) != NSOrderedAscending)
|
||
{
|
||
index++;
|
||
}
|
||
return index;
|
||
}
|
||
@end
|
||
|
||
@implementation GSPlaceholderArray
|
||
|
||
+ (void) initialize
|
||
{
|
||
#if GS_WITH_GC
|
||
GSArrayClass = [GSArray class];
|
||
#else
|
||
GSInlineArrayClass = [GSInlineArray class];
|
||
#endif
|
||
}
|
||
|
||
- (id) autorelease
|
||
{
|
||
NSWarnLog(@"-autorelease sent to uninitialised array");
|
||
return self; // placeholders never get released.
|
||
}
|
||
|
||
- (id) objectAtIndex: (NSUInteger)index
|
||
{
|
||
[NSException raise: NSInternalInconsistencyException
|
||
format: @"Attempt to use uninitialised array"];
|
||
return 0;
|
||
}
|
||
|
||
- (void) dealloc
|
||
{
|
||
GSNOSUPERDEALLOC; // placeholders never get deallocated.
|
||
}
|
||
|
||
- (id) init
|
||
{
|
||
return [self initWithObjects: 0 count: 0];
|
||
}
|
||
|
||
- (id) initWithCoder: (NSCoder*)aCoder
|
||
{
|
||
if ([aCoder allowsKeyedCoding])
|
||
{
|
||
NSArray *array = [(NSKeyedUnarchiver*)aCoder _decodeArrayOfObjectsForKey:
|
||
@"NS.objects"];
|
||
if (array != nil)
|
||
{
|
||
return (GSPlaceholderArray*)RETAIN(array);
|
||
}
|
||
else
|
||
{
|
||
return [super initWithCoder: aCoder];
|
||
}
|
||
}
|
||
else
|
||
{
|
||
unsigned c;
|
||
#if GS_WITH_GC
|
||
GSArray *a;
|
||
|
||
[aCoder decodeValueOfObjCType: @encode(unsigned) at: &c];
|
||
a = (id)NSAllocateObject(GSArrayClass, 0, [self zone]);
|
||
a->_contents_array = NSAllocateCollectable(sizeof(id)*c, NSScannedOption);
|
||
#else
|
||
GSInlineArray *a;
|
||
|
||
[aCoder decodeValueOfObjCType: @encode(unsigned) at: &c];
|
||
a = (id)NSAllocateObject(GSInlineArrayClass,
|
||
sizeof(id)*c, [self zone]);
|
||
a->_contents_array
|
||
= (id*)(((void*)a) + class_getInstanceSize([a class]));
|
||
#endif
|
||
if (c > 0)
|
||
{
|
||
[aCoder decodeArrayOfObjCType: @encode(id)
|
||
count: c
|
||
at: a->_contents_array];
|
||
}
|
||
a->_count = c;
|
||
return (GSPlaceholderArray*)a;
|
||
}
|
||
}
|
||
|
||
- (id) initWithObjects: (const id[])objects count: (NSUInteger)count
|
||
{
|
||
#if GS_WITH_GC
|
||
self = (id)NSAllocateObject(GSArrayClass, 0, [self zone]);
|
||
#else
|
||
self = (id)NSAllocateObject(GSInlineArrayClass, sizeof(id)*count,
|
||
[self zone]);
|
||
#endif
|
||
return [self initWithObjects: objects count: count];
|
||
}
|
||
|
||
- (NSUInteger) count
|
||
{
|
||
[NSException raise: NSInternalInconsistencyException
|
||
format: @"Attempt to use uninitialised array"];
|
||
return 0;
|
||
}
|
||
|
||
- (oneway void) release
|
||
{
|
||
return; // placeholders never get released.
|
||
}
|
||
|
||
- (id) retain
|
||
{
|
||
return self; // placeholders never get retained.
|
||
}
|
||
@end
|
||
|
||
@interface NSGArray : NSArray
|
||
@end
|
||
@implementation NSGArray
|
||
- (id) initWithCoder: (NSCoder*)aCoder
|
||
{
|
||
NSLog(@"Warning - decoding archive containing obsolete %@ object - please delete/replace this archive", NSStringFromClass([self class]));
|
||
DESTROY(self);
|
||
self = (id)NSAllocateObject([GSArray class], 0, NSDefaultMallocZone());
|
||
self = [self initWithCoder: aCoder];
|
||
return self;
|
||
}
|
||
@end
|
||
|
||
@interface NSGMutableArray : NSMutableArray
|
||
@end
|
||
@implementation NSGMutableArray
|
||
- (id) initWithCoder: (NSCoder*)aCoder
|
||
{
|
||
NSLog(@"Warning - decoding archive containing obsolete %@ object - please delete/replace this archive", NSStringFromClass([self class]));
|
||
DESTROY(self);
|
||
self = (id)NSAllocateObject([GSMutableArray class], 0, NSDefaultMallocZone());
|
||
self = [self initWithCoder: aCoder];
|
||
return self;
|
||
}
|
||
@end
|
||
|