OSSL Script Library/ModInvoke
From OpenSimulator
You can invoke functions defined in a region module from a script using the modInvoke() family of functions.
Enabling modInvoke()
The first thing is to enable modSendCommand() in OpenSim.ini. Make sure the line
AllowMODFunctions = true
is set to true and uncommented.
The Region Module
Here's the region module that implements several functions to be provided to scripts in the region.
using Mono.Addins; using System; using System.Reflection; using System.Threading; using System.Text; using System.Net; using System.Net.Sockets; using log4net; using Nini.Config; using OpenMetaverse; using OpenMetaverse.StructuredData; using OpenSim.Framework; using OpenSim.Region.Framework.Interfaces; using OpenSim.Region.Framework.Scenes; using System.Collections.Generic; using System.Text.RegularExpressions; [assembly: Addin("ModInvokeTest", "0.1")] [assembly: AddinDependency("OpenSim", "0.5")] namespace ModInvokeTest { [Extension(Path = "/OpenSim/RegionModules", NodeName = "RegionModule")] public class ModInvokeTestModule : INonSharedRegionModule { private static readonly ILog m_log = LogManager.GetLogger(MethodBase.GetCurrentMethod().DeclaringType); private IConfig m_config = null; private bool m_enabled = true; private Scene m_scene = null; private IScriptModuleComms m_comms; #region IRegionModule Members public string Name { get { return this.GetType().Name; } } public void Initialise(IConfigSource config) { m_log.WarnFormat("[ModInvoke] start configuration"); try { if ((m_config = config.Configs["ModInvoke"]) != null) m_enabled = m_config.GetBoolean("Enabled", m_enabled); } catch (Exception e) { m_log.ErrorFormat("[ModInvoke] initialization error: {0}",e.Message); return; } m_log.ErrorFormat("[ModInvoke] module {0} enabled",(m_enabled ? "is" : "is not")); } public void PostInitialise() { if (m_enabled) {} } public void Close() { } public void AddRegion(Scene scene) { } public void RemoveRegion(Scene scene) { } public void RegionLoaded(Scene scene) { if (m_enabled) { m_scene = scene; m_comms = m_scene.RequestModuleInterface<IScriptModuleComms>(); if (m_comms == null) { m_log.WarnFormat("[ModInvoke] ScriptModuleComms interface not defined"); m_enabled = false; return; } m_comms.RegisterScriptInvocation(this,"ModTest0"); m_comms.RegisterScriptInvocation(this,"ModTest1"); m_comms.RegisterScriptInvocation(this,"ModTest2"); m_comms.RegisterScriptInvocation(this,"ModTest3"); m_comms.RegisterScriptInvocation(this,"ModTest4"); m_comms.RegisterScriptInvocation(this,"ModTest5"); m_comms.RegisterScriptInvocation(this,"ModTest6"); m_comms.RegisterScriptInvocation(this,"ModTest7"); m_comms.RegisterScriptInvocation(this,"ModTest8"); } } public Type ReplaceableInterface { get { return null; } } #endregion #region ScriptInvocationInteface public string ModTest0(UUID hostID, UUID scriptID) { m_log.WarnFormat("[ModInvoke] ModTest0 parameter"); return ""; } public string ModTest1(UUID hostID, UUID scriptID, string value) { m_log.WarnFormat("[ModInvoke] ModTest1 parameter: {0}",value); return value; } public int ModTest2(UUID hostID, UUID scriptID, int value) { m_log.WarnFormat("[ModInvoke] ModTest2 parameter: {0}",value); return value; } public float ModTest3(UUID hostID, UUID scriptID, float value) { m_log.WarnFormat("[ModInvoke] ModTest3 parameter: {0}",value); return value; } public UUID ModTest4(UUID hostID, UUID scriptID, UUID value) { m_log.WarnFormat("[ModInvoke] ModTest4 parameter: {0}",value.ToString()); return value; } public OpenMetaverse.Vector3 ModTest5(UUID hostID, UUID scriptID, OpenMetaverse.Vector3 value) { m_log.WarnFormat("[ModInvoke] ModTest5 parameter: {0}",value.ToString()); return value; } public OpenMetaverse.Quaternion ModTest6(UUID hostID, UUID scriptID, OpenMetaverse.Quaternion value) { m_log.WarnFormat("[ModInvoke] ModTest6 parameter: {0}",value.ToString()); return value; } public object[] ModTest7(UUID hostID, UUID scriptID, int count, string val) { object[] result = new object[count]; for (int i = 0; i < count; i++) result[i] = val; return result; } public object[] ModTest8(UUID hostID, UUID scriptID, object[] lparm) { object[] result = new object[lparm.Length]; for (int i = 0; i < lparm.Length; i++) result[lparm.Length - i - 1] = lparm[i]; return result; } #endregion } }
The module registers functions through the IScriptModuleComms RegisterScriptInvocation() method. This method takes the name of the function, an invocation delegate, an array of types used to validate parameters to the function, and a return type.
The functions in the region module can assume that the parameters passed through the argument array match the signature that was registered. That is, the function in the region module does not need to perform any kind of type checking.
The In-world Script
Here's the in-world script that calls the functions defined in the region module.
default { state_entry() { llSay(0, "Script running"); llOwnerSay("ModTest0: " + ModTest0()); llOwnerSay("ModTest1: " + ModTest1("one")); integer v2 = ModTest2(2) + 2; llOwnerSay("ModTest2: " + (string)v2); float v3 = ModTest3(3.14) + 4.56; llOwnerSay("ModTest3: " + (string)v3); key v4 = ModTest4(llGetKey()); llOwnerSay("ModTest4: " + (string)v4); vector v5 = ModTest5(llGetPos()); llOwnerSay("ModTest5: " + (string)v5); rotation v6 = ModTest6(llGetRot()); llOwnerSay("ModTest6: " + (string)v6); list v7 = ModTest7(5,"hello"); llOwnerSay("ModTest7: " + (string)llGetListLength(v7)); llOwnerSay("ModTest7: " + llList2CSV(v7)); list v8 = ["a", 1, llGetKey(), llGetPos(), llGetRot()]; list v9 = ModTest8(v8); llOwnerSay("ModTest8: " + (string)llGetListLength(v9)); llOwnerSay("ModTest8: " + llList2CSV(v9)); } }