/**
 * Copyright: Copyright (c) 2008 Jacob Carlborg. All rights reserved.
 * Authors: Jacob Carlborg
 * Version: Initial created: 2008
 * License: $(LINK2 http://opensource.org/licenses/bsd-license.php, BSD Style)
 * 
 */
module dwt.internal.objc.runtime;

import tango.stdc.stringz : fromStringz, toStringz;

import dwt.dwthelper.utils : string;
static import dwt.internal.objc.bindings;

alias objc_ivar* Ivar;
alias objc_method* Method;
alias objc_object Protocol;

alias char* SEL;
alias objc_class* Class;
alias objc_object* id;

alias extern (C) id function(id, SEL, ...) IMP;

struct objc_object
{
    Class isa;
}

struct objc_super
{
    id receiver;
    Class clazz;
}

struct objc_class
{
    Class isa;
    Class super_class;
    const char* name;
    int versionn;
    int info;
    int instance_size;
    objc_ivar_list* ivars;
    objc_method_list** methodLists;
    objc_cache* cache;
    objc_protocol_list* protocols;
}

struct objc_ivar
{
    char* ivar_name;
    char* ivar_type;
    int ivar_offset;

    version (X86_64)
        int space;
}

struct objc_ivar_list
{
    int ivar_count;

    version (X86_64)
        int space;

    /* variable length structure */
    objc_ivar ivar_list[1];
}

struct objc_method
{
    SEL method_name;
    char* method_types;
    IMP method_imp;
}

struct objc_method_list
{
    objc_method_list* obsolete;

    int method_count;

    version (X86_64)
        int space;

    /* variable length structure */
    objc_method method_list[1];
}

struct objc_cache
{
    uint mask /* total = mask + 1 */;
    uint occupied;
    Method buckets[1];
}

struct objc_protocol_list
{
    objc_protocol_list* next;
    long count;
    Protocol* list[1];
}

template Runtime ()
{   
    alias dwt.internal.objc.bindings.objc_msgSendSuper objc_msgSendSuper;
    alias dwt.internal.objc.bindings.objc_registerClassPair objc_registerClassPair;
    alias dwt.internal.objc.bindings.objc_msgSend objc_msgSend;
    alias dwt.internal.objc.bindings.objc_msgSend_fpret objc_msgSend_fpret;
    alias dwt.internal.objc.bindings.objc_msgSend_stret objc_msgSend_stret;
    
    bool class_addIvar (Class cls, string name, size_t size, byte alignment, string types)
    {
        return dwt.internal.objc.bindings.class_addIvar(cls, name.toStringz(), size, alignment, types.toStringz());
    }

    bool class_addMethod (Class cls, SEL name, IMP imp, string types)
    {
        return dwt.internal.objc.bindings.class_addMethod(cls, name, imp, types.toStringz());
    }

    Class objc_allocateClassPair (Class superclass, string name, size_t extraBytes)
    {
        return dwt.internal.objc.bindings.objc_allocateClassPair(superclass, name.toStringz(), extraBytes);
    }

    id objc_getClass (string name)
    {
        return dwt.internal.objc.bindings.objc_getClass(name.toStringz());
    }

    id objc_lookUpClass (string name)
    {
        return dwt.internal.objc.bindings.objc_lookUpClass(name.toStringz());
    }

    string object_getClassName (id obj)
    {
        return fromStringz(dwt.internal.objc.bindings.object_getClassName(obj));
    }

    Ivar object_getInstanceVariable (id obj, string name, void** outValue)
    {
        return dwt.internal.objc.bindings.object_getInstanceVariable(obj, name.toStringz(), outValue);
    }

    Ivar object_setInstanceVariable (id obj, string name, void* value)
    {
        return dwt.internal.objc.bindings.object_setInstanceVariable(obj, name.toStringz(), value);
    }

    string sel_registerName (string str)
    {
        return fromStringz(dwt.internal.objc.bindings.sel_registerName(str.toStringz()));
    }
}