tap.cppy

/*
 * Copyright (c) 2011, 2012  Timo Savola
 *
 * This library is free software; you can redistribute it and/or
 * modify it under the terms of the GNU Lesser General Public
 * License as published by the Free Software Foundation; either
 * version 2.1 of the License, or (at your option) any later version.
 */

#include "tap.hpp"
#include "tap/fork.hpp"
#include "tap/urlopen.hpp"

#include <concrete/context.hpp>
#include <concrete/execution.hpp>
#include <concrete/objects/dict.hpp>
#include <concrete/objects/function.hpp>
#include <concrete/objects/internal.hpp>
#include <concrete/objects/module.hpp>
#include <concrete/objects/string.hpp>

namespace concrete {

void TapModuleInit(const DictObject &modules)
{
	auto dict = DictObject::New();

	dict.set_item(StringObject::New("execute"), InternalObject::New(internal::TapModule_Execute));
	dict.set_item(StringObject::New("fork"),    InternalObject::New(internal::TapModule_Fork));
	dict.set_item(StringObject::New("urlopen"), InternalObject::New(internal::TapModule_URLOpen));

	modules.set_item(StringObject::New("tap"), ModuleObject::New(dict));
}

{{{ ImplementPointer("AbstractURLOpen") }}}

{{{ ImplementInternalFunction("TapModule_Execute") }}}
{
	Context::Active().add_execution(Execution::NewCall(args));
	return Object();
}

{{{ ImplementInternalContinuation("TapModule_Fork") }}}
{{{ ImplementInternalContinuation("TapModule_URLOpen") }}}

} // namespace