/* RIGSNSArray.m - Some additional code to properly wrap the
   NSArrayclass in Ruby and provide some convenient new methods

   $Id: RIGSNSArray.m,v 1.2 2001/09/24 11:26:37 ljulliar Exp $

   Copyright (C) 2001 Free Software Foundation, Inc.
   
   Written by:  Laurent Julliard <laurent@julliard-online.org>
   Date: August 2001
   
   This file is part of the GNUstep RubyInterface 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 "ruby.h"
#undef _

#include <Foundation/NSArray.h>

#include "RIGS.h"
#include "RIGSCore.h"
#include "RIGSProxyIMP.h"
#include "RIGSWrapObject.h"
#import "RIGSNSArray.h"

@implementation NSArray ( RIGSNSArray )

+ (BOOL) finishRegistrationOfRubyClass: (VALUE) ruby_class
{
  // Nothing to do for the moment
  return YES;
}

// The argument we receive here is actually a wrapped Ruby array
// (RIGSWrapObject)
+ (id) arrayWithRubyArray: (RIGSWrapObject *) wrapped_ruby_array
{
  NSArray *array = [NSArray alloc];
  NSArray *returnArray;
  int i;
  int count;
  id *gnustepObjects;
  VALUE rb_elt;
  BOOL okydoky;
  VALUE ruby_array = [wrapped_ruby_array getRubyObject];
  const char idType[] = {_C_ID,'\0' };
  
  
  // A nil value should not get there. It should be a 
  // Ruby Array in any case
  if ( NIL_P(ruby_array) || (TYPE(ruby_array) != T_ARRAY) )
    return nil;
    
  // Loop through the elements of the ruby array and generate a NSArray
  count = RARRAY(ruby_array)->len;
  gnustepObjects = malloc (sizeof (id) * count);
  if (gnustepObjects == NULL) {
      return nil;
  }

  // Loop through the elements of the ruby array, convert them to GNUstep
  // objects (only Objects id can go into an NSArray anyway) and feed them
  // into a new NSArray
  for (i = 0; i < count; i++) {
      
      rb_elt = rb_ary_entry(ruby_array, (long)i);
     
      okydoky = rb_objc_convert_to_objc(rb_elt, &gnustepObjects[i], 0,idType);
  }

  returnArray = [array initWithObjects: gnustepObjects  count:count];
  free (gnustepObjects);

  return returnArray;
}


@end