modules: Add preliminary "require" to load additional modules into js.

modules/Makefile.am

@@ -39,6 +39,7 @@ conf_module_LTLIBRARIES =     \
 
 moduledir=@moduledir@
 future_la_SOURCES = future.cc
+require_la_SOURCES = require.cc
 m_host_la_SOURCES = m_host.cc
 m_get_la_SOURCES = m_get.cc
 #m_ban_la_SOURCES = m_ban.cc
@@ -127,6 +128,7 @@ m_get_la_SOURCES = m_get.cc
 
 module_LTLIBRARIES = \
 future.la            \
+require.la           \
 m_host.la            \
 m_get.la
 

modules/require.cc

@@ -0,0 +1,59 @@
+/*
+ * 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.
+ */
+
+#include <ircd/js/js.h>
+
+namespace ircd  {
+namespace js    {
+
+struct require
+:trap
+{
+	value on_call(object::handle obj, value::handle _that, const args &args) override
+	{
+		const std::string name(args[0]);
+		if(!ircd::mods::loaded(name))
+			ircd::mods::load(name);
+
+		object that(_that);
+		trap &loaded(find(name));
+		set(that, id(name), ctor(loaded));
+		return {};
+	}
+
+	using trap::trap;
+}
+require
+{
+	"require"
+};
+
+} // namespace js
+} // namespace ircd
+
+using namespace ircd::js;
+using namespace ircd;
+
+mapi::header IRCD_MODULE
+{
+	"Provides the require() function to import modules into a js namespace.",
+	mapi::NO_FLAGS
+};