//
// SqratAllocator: Custom Class Allocation/Deallocation
//

//
// Copyright (c) 2009 Brandon Jones
//
// This software is provided 'as-is', without any express or implied
// warranty. In no event will the authors be held liable for any damages
// arising from the use of this software.
//
// Permission is granted to anyone to use this software for any purpose,
// including commercial applications, and to alter it and redistribute it
// freely, subject to the following restrictions:
//
//  1. The origin of this software must not be misrepresented; you must not
//  claim that you wrote the original software. If you use this software
//  in a product, an acknowledgment in the product documentation would be
//  appreciated but is not required.
//
//  2. Altered source versions must be plainly marked as such, and must not be
//  misrepresented as being the original software.
//
//  3. This notice may not be removed or altered from any source
//  distribution.
//

#if !defined(_SCRAT_ALLOCATOR_H_)
#define _SCRAT_ALLOCATOR_H_

#include <squirrel.h>
#include <string.h>

#include "sqratObject.h"

namespace Sqrat {

//
// DefaultAllocator
//

template<class C>
class DefaultAllocator {
public:
    static SQInteger New(HSQUIRRELVM vm) {
        C* instance = new C();
        sq_setinstanceup(vm, 1, instance);
        sq_setreleasehook(vm, 1, &Delete);
        return 0;
    }

    static SQInteger Copy(HSQUIRRELVM vm, SQInteger idx, const void* value) {
        C* instance = new C(*static_cast<const C*>(value));
        sq_setinstanceup(vm, idx, instance);
        sq_setreleasehook(vm, idx, &Delete);
        return 0;
    }

    static SQInteger Delete(SQUserPointer ptr, SQInteger size) {
        C* instance = reinterpret_cast<C*>(ptr);
        delete instance;
        return 0;
    }
};

//
// NoConstructorAllocator
//

class NoConstructor {
public:
    static SQInteger New(HSQUIRRELVM) {
        return 0;
    }
    static SQInteger Copy(HSQUIRRELVM, SQInteger, const void*) {
        return 0;
    }
    static SQInteger Delete(SQUserPointer, SQInteger) {
        return 0;
    }
};

//
// CopyOnly
//

template<class C>
class CopyOnly {
public:
    static SQInteger New(HSQUIRRELVM) {
        return 0;
    }
    static SQInteger Copy(HSQUIRRELVM vm, SQInteger idx, const void* value) {
        C* instance = new C(*static_cast<const C*>(value));
        sq_setinstanceup(vm, idx, instance);
        sq_setreleasehook(vm, idx, &Delete);
        return 0;
    }
    static SQInteger Delete(SQUserPointer ptr, SQInteger size) {
        void* instance = reinterpret_cast<C*>(ptr);
        delete instance;
        return 0;
    }
};


//
// NoCopy
//

template<class C>
class NoCopy {
public:
    static SQInteger New(HSQUIRRELVM vm) {
        C* instance = new C();
        sq_setinstanceup(vm, 1, instance);
        sq_setreleasehook(vm, 1, &Delete);
        return 0;
    }

    static SQInteger Copy(HSQUIRRELVM vm, SQInteger idx, const void* value) {
        return 0;
    }

    static SQInteger Delete(SQUserPointer ptr, SQInteger size) {
        C* instance = reinterpret_cast<C*>(ptr);
        delete instance;
        return 0;
    }
};

}

#endif