/* Implementation of NSArray for GNUStep
   Copyright (C) 1994, 1995 Free Software Foundation, Inc.
   
   Written by:  R. Andrew McCallum <mccallum@gnu.ai.mit.edu>
   Date: August 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/stdobjects.h>
#include <foundation/NSArray.h>
#include <objects/Array.h>

@interface NSArray (libobjects) <IndexedCollecting>
@end

@implementation NSArray

+ (id) array
{
  return [[[self alloc] init] autorelease];
}

+ (id) arrayWithObject: anObject
{
  return [[[[self alloc] init] addObject: anObject] autorelease];
}

+ (id) arrayWithObject: firstObject, ...
{
  va_list ap;
  Array *n = [[self alloc] init];
  id o;

  [n addObject:firstObject];
  va_start(ap, firstObject);
  while ((o = va_arg(ap, id)))
    [n addObject:o];
  va_end(ap);
  return [n autorelease];
}

- (id) initWithCapacity: (unsigned)cap
{
  [self notImplemented:_cmd];
  return self;
}

- (id) initWithArray: (NSArray*)array
{
  int i, c;

  c = [array count];
  [self initWithCapacity:c];
  for (i = 0; i < c; i++)
    [self addObject:[array objectAtIndex:i]];
  return self;
}

- (id) initWithObjects: (id)firstObject, ...
{
  va_list ap;
  id o;

  [super init];
  [self addObject:firstObject];
  va_start(ap, firstObject);
  while ((o = va_arg(ap, id)))
    [self addObject:o];
  va_end(ap);
  return self;
}

- (id) initWithObjects: (id*)objects count: (unsigned int)count
{
  [self initWithCapacity:count];
  while (count--)
    [self addObject:objects[count]];
  return self;
}

- (BOOL) containsObject: (id)candidate
{
  return [self includesObject:candidate];
}

#if 0
- (unsigned) count;		/* inherited */
- (unsigned) indexOfObject: (id)anObject; /* inherited */
#endif

- (unsigned) indexOfObjectIdenticalTo: (id)anObject
{
  int i;
  for (i = 0; i < _count; i++)
    if (anObject == _contents_array[i])
      return i;
  return UINT_MAX;
}

#if 0
- (id) lastObject;		/* inherited */
- (id) objectAtIndex: (unsigned)index; /* inherited */
#endif

- (NSEnumerator*) objectEnumerator
{
  [self notImplemented:_cmd];
  return nil;
}

- (NSEnumerator*) reverseObjectEnumerator
{
  [self notImplemented:_cmd];
  return nil;
}

#if 0
- (void) makeObjectsPerform: (SEL)aSelector;
- (void) makeObjectsPerform: (SEL)aSelector withObject: (id)anObject;
#endif

- (id) firstObjectCommonWithArray: (NSArray*)otherArray
{
  BOOL is_in_otherArray (id o)
    {
      return [otherArray containsObject:o];
    }
  id none_found(arglist_t)
    {
      return nil;
    }
  return [self detectObjectByCalling:is_in_otherArray
	       ifNoneCall:none_found];
}

- (BOOL) isEqualToArray: (NSArray*)otherArray
{
  int i;

  if (_count != [otherArray count])
    return NO;
  for (i = 0; i < _count; i++)
    if ([_contents_array[i] isEqual:[otherArray objectAtIndex:i]])
      return NO;
  return YES;
}

- (NSArray*) sortedArrayUsingFunction: (int(*)(id,id,void*))comparator
   context: (void*)context
{
  id n = [self copy];
  int compare(id o1, id o2)
    {
      return comparator(o1, o2, context);
    }
  [n sortObjectsByCalling:compare];
  return [n autorelease];
}

- (NSArray*) sortedArrayUsingSelector: (SEL)comparator
{
  id n = [self copy];
  int compare(id o1, id o2)
    {
      return [o1 perform:comparator with:o2];
    }
  [n sortObjectsByCalling:compare];
  return [n autorelease];
}

- (NSArray*) subarrayWithRange: (NSRange)range
{
  id n = [self emptyCopy];
  [self notImplemented:_cmd];
  return [n autorelease];
}

- (NSString*) componentsJoinedByString: (NSString*)separator
{
  [self notImplemented:_cmd];
  return nil;
}

- (NSString*) description
{
  [self notImplemented:_cmd];
  return nil;
}

@end