/* Wrapper around <objc/runtime.h>
   Copyright (C) 2011 Free Software Foundation, Inc.
   Contributed by Nicola Pero

This file is part of GCC.

GCC is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 3, or (at your option)
any later version.

GCC 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 General Public License for more details.

You should have received a copy of the GNU General Public License
along with GCC; see the file COPYING3.  If not see
<http://www.gnu.org/licenses/>.  */

#ifndef _TESTSUITE_RUNTIME_H_
#define _TESTSUITE_RUNTIME_H_

/* Include this file where you'd normally include <objc/runtime.h>.

   Older versions of the NeXT runtime do not have <objc/runtime.h> and
   you need to include <objc/objc-runtime.h> instead.  This file takes
   care of figuring out if that's the case.  */

#ifndef __NEXT_RUNTIME__

/*
  GNU Objective-C runtime (libobjc).
*/
# include <objc/runtime.h>

#else

/*
  NeXT Objective-C runtime.
*/

/* Include next-abi.h to determine which version of the runtime we are
   dealing with.  TODO: If this is the only place including it, maybe
   it could be copied here ?  */
# include "next-abi.h"

# ifdef NEXT_OBJC_USE_NEW_INTERFACE

/* New NeXT runtime, with an API that should be basically identical to
   the GNU Objective-C one.  */
#  include <objc/runtime.h>

# else

/* Old NeXT runtime, with an API similar, but not identical to the new
   one.  To start with, different headers need to be included.  */
#  include <objc/objc-class.h>
#  include <objc/objc-runtime.h>

/* Not all functions are available in the old NeXT runtime.  A few
   that we need are not, and here we provide an implementation on top
   of the old NeXT API.  */

#  define class_isMetaClass(C) (CLS_GETINFO((struct objc_class *)C, CLS_META)? YES: NO)
#  define class_getName(C) object_getClassName(C)
#  define class_getSuperclass(C)  (((struct objc_class *)C)->super_class)
#  define method_getImplementation(M) (((Method)M)->method_imp)
#  define method_getTypeEncoding(M) (((Method)M)->method_types)
#  define object_getClass(O) (*(struct objc_class **)O)

#include <objc/Protocol.h>
BOOL class_conformsToProtocol (Class class_, Protocol *protocol)
{
  struct objc_protocol_list *p;
  int i;
  for (p = class_->protocols; p; p = p->next)
    for (i = 0; i < p->count; i++)
      if ([p->list[i] conformsTo: protocol])
	return YES;
  return NO;
}

#define protocol_getName(P) [P name]
#define protocol_isEqual(P,Q) [P isEqual: Q]

struct objc_method_description protocol_getMethodDescription (Protocol *protocol, 
							      SEL selector,
							      BOOL requiredMethod,
							      BOOL instanceMethod)
{
  struct objc_method_description *tmp;
  struct objc_method_description result;

  if (instanceMethod)
    tmp = [protocol descriptionForInstanceMethod: selector];
  else
    tmp = [protocol descriptionForClassMethod: selector];

  if (tmp)
    result = *tmp;
  else
    {
      result.name = (SEL)0;
      result.types = (char *)0;
    }

  return result;
}

#  endif /* NEXT_OBJC_USE_NEW_INTERFACE */

# endif /* __NEXT_RUNTIME__ */

#endif /* _TESTSUITE_RUNTIME_H_ */