/* -*- mode: objc; coding: utf-8 -*- */

#import "Foundation/Foundation.h"
#include <objc/objc-api.h>

typedef struct objcl_object
{
  char* type;

  union
  {
    id id_val;
    Class class_val;
    NSException *exc_val;
    SEL sel_val;
    char char_val;
    short short_val;
    int int_val;
    long long_val;
    long long long_long_val;
    float float_val;
    double double_val;
    BOOL bool_val;
    char *charptr_val;
    void *ptr_val;
  } data;
} *OBJCL_OBJ_DATA;


#define EXCEPTION_TYPESPEC "ERROR"


void
objcl_initialise_runtime (void);

void
objcl_shutdown_runtime (void);

OBJCL_OBJ_DATA
objcl_invoke_method (OBJCL_OBJ_DATA receiver,
                     const char *method_name,
                     int argc,
                     ...);

OBJCL_OBJ_DATA
objcl_find_class (const char *class_name);

OBJCL_OBJ_DATA
objcl_find_selector (const char *selector_name);

/* Return a null-terminated list of type information strings.
   The first entry describes the type of the method's return value. */
char **
objcl_query_arglist_info (void *receiver,
                          const char *method_name);


const char *
objcl_class_name (OBJCL_OBJ_DATA class);

const char *
objcl_selector_name (OBJCL_OBJ_DATA class);