/*
 * Copyright (C) 2016 Charybdis Development Team
 * Copyright (C) 2016 Jason Volk <jason@zemos.net>
 *
 * Permission to use, copy, modify, and/or distribute this software for any
 * purpose with or without fee is hereby granted, provided that the above
 * copyright notice and this permission notice is present in all copies.
 *
 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
 * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
 * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
 * DISCLAIMED. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT,
 * INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
 * (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
 * SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
 * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING
 * IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
 * POSSIBILITY OF SUCH DAMAGE.
 */

#pragma once
#define HAVE_IRCD_JS_FUNCTION_H

namespace ircd {
namespace js   {

struct function
:JS::Rooted<JSFunction *>
{
	operator JSObject *() const;
	explicit operator script() const;

	value operator()(const object &, const JS::HandleValueArray &args) const;
	value operator()(const object &) const;

	string display_name() const;
	string name() const;

	// new function
	function(JS::AutoObjectVector &stack,
	         const JS::CompileOptions &opts,
	         const char *const &name,
	         const std::vector<std::string> &args,
	         const std::string &src);

	explicit function(const value &);
	function(JSFunction *const &);
	function(JSFunction &);
	function();
	function(function &&) noexcept;
	function(const function &) = delete;
	function &operator=(function &&) noexcept;
};

string display_name(const function &);
string name(const function &);

inline
function::function()
:JS::Rooted<JSFunction *>{*cx}
{
}

inline
function::function(function &&other)
noexcept
:JS::Rooted<JSFunction *>{*cx, other}
{
	other.set(nullptr);
}

inline function &
function::operator=(function &&other)
noexcept
{
	set(other.get());
	other.set(nullptr);
	return *this;
}

inline
function::function(JSFunction &func)
:JS::Rooted<JSFunction *>{*cx, &func}
{
}

inline
function::function(JSFunction *const &func)
:JS::Rooted<JSFunction *>{*cx, func}
{
	if(unlikely(!get()))
		throw internal_error("NULL function");
}

inline
function::function(const value &val)
:JS::Rooted<JSFunction *>
{
	*cx,
	JS_ValueToFunction(*cx, val)
}
{
	if(!get())
		throw type_error("value is not a function");
}

inline string
function::name()
const
{
	const auto ret(JS_GetFunctionId(*this));
	return ret? string(ret) : string("<unnamed>");
}

inline string
function::display_name()
const
{
	const auto ret(JS_GetFunctionDisplayId(*this));
	return ret? string(ret) : string("<anonymous>");
}

inline
function::operator script()
const
{
	return JS_GetFunctionScript(*cx, *this);
}

inline
function::operator JSObject *()
const
{
	const auto ret(JS_GetFunctionObject(get()));
	if(unlikely(!ret))
		throw type_error("function cannot cast to Object");

	return ret;
}

inline string
name(const function &f)
{
	return f.name();
}

inline string
display_name(const function &f)
{
	return f.display_name();
}

} // namespace js
} // namespace ircd