Work in progress on SECS stuff. Have been holding it off until after 0.6 release. Still messy as hell and doesn't really work yet. Will undergo dramatic changes. AND MOST IMPORTANTLY: Will be conformed to work in coop with todays DNE and XEngine, hopefully one day providing a common interface for all components.

1 files changed, 259 insertions, 0 deletions

diff --git a/OpenSim/ScriptEngine/Components/DotNetEngine/Scheduler/ScriptManager_ScriptLoadUnload.cs b/OpenSim/ScriptEngine/Components/DotNetEngine/Scheduler/ScriptManager_ScriptLoadUnload.cs
new file mode 100644
index 0000000..7d362f9
--- /dev/null
+++ b/OpenSim/ScriptEngine/Components/DotNetEngine/Scheduler/ScriptManager_ScriptLoadUnload.cs
@@ -0,0 +1,259 @@
+using System;
+using System.Collections.Generic;
+using System.Globalization;
+using System.Reflection;
+using System.Text;
+using System.Threading;
+using log4net;
+using OpenMetaverse;
+using OpenSim.Framework;
+using OpenSim.Region.Environment.Scenes;
+using OpenSim.Region.ScriptEngine.Interfaces;
+using OpenSim.Region.ScriptEngine.Shared.ScriptBase;
+using OpenSim.ScriptEngine.Shared;
+
+namespace OpenSim.ScriptEngine.Components.DotNetEngine.Scheduler
+{
+    public partial class ScriptManager
+    {
+        private Queue<LoadUnloadStructure> LUQueue = new Queue<LoadUnloadStructure>();
+        private int LoadUnloadMaxQueueSize = 500;
+        private Object scriptLock = new Object();
+        //private Dictionary<InstanceData, DetectParams[]> detparms = new Dictionary<InstanceData, DetectParams[]>();
+
+        // Load/Unload structure
+
+
+        public void AddScript(ScriptStructure script)
+        {
+            lock (LUQueue)
+            {
+                if ((LUQueue.Count >= LoadUnloadMaxQueueSize))
+                {
+                    m_log.ErrorFormat("[{0}] ERROR: Load queue count is at {1} of max {2}. Ignoring load request for script LocalID: {3}, ItemID: {4}.", 
+                        Name, LUQueue.Count, LoadUnloadMaxQueueSize, script.LocalID, script.ItemID);
+                    return;
+                }
+
+                LoadUnloadStructure ls = new LoadUnloadStructure();
+                ls.Script = script;
+                ls.Action = LoadUnloadStructure.LUType.Load;
+                LUQueue.Enqueue(ls);
+            }
+
+        }
+        public void RemoveScript(uint localID, UUID itemID)
+        {
+            LoadUnloadStructure ls = new LoadUnloadStructure();
+
+            // See if we can find script
+            if (!TryGetScript(localID, itemID, ref ls.Script))
+            {
+                // Set manually
+                ls.Script.LocalID = localID;
+                ls.Script.ItemID = itemID;
+            }
+            ls.Script.StartParam = 0;
+
+            ls.Action = LoadUnloadStructure.LUType.Unload;
+            ls.PostOnRez = false;
+
+            lock (LUQueue)
+            {
+                LUQueue.Enqueue(ls);
+            }
+        }
+
+        internal bool DoScriptLoadUnload()
+        {
+            bool ret = false;
+            //            if (!m_started)
+            //                return;
+
+            lock (LUQueue)
+            {
+                if (LUQueue.Count > 0)
+                {
+                    LoadUnloadStructure item = LUQueue.Dequeue();
+                    ret = true;
+
+                    if (item.Action == LoadUnloadStructure.LUType.Unload)
+                    {
+                        m_log.DebugFormat("[{0}] Unloading script", Name);
+                        _StopScript(item.Script.LocalID, item.Script.ItemID);
+                        RemoveScript(item.Script.LocalID, item.Script.ItemID);
+                    }
+                    else if (item.Action == LoadUnloadStructure.LUType.Load)
+                    {
+                        m_log.DebugFormat("[{0}] Loading script", Name);
+                        _StartScript(item);
+                    }
+                }
+            }
+            return ret;
+        }
+
+        //public void _StartScript(uint localID, UUID itemID, string Script, int startParam, bool postOnRez)
+        private void _StartScript(LoadUnloadStructure ScriptObject)
+        {
+            m_log.DebugFormat(
+                "[{0}]: ScriptManager StartScript: localID: {1}, itemID: {2}",
+                Name, ScriptObject.Script.LocalID, ScriptObject.Script.ItemID);
+
+            // We will initialize and start the script.
+            // It will be up to the script itself to hook up the correct events.
+
+            SceneObjectPart m_host = ScriptObject.Script.RegionInfo.Scene.GetSceneObjectPart(ScriptObject.Script.LocalID);
+
+            if (null == m_host)
+            {
+                m_log.ErrorFormat(
+                    "[{0}]: Could not find scene object part corresponding " +
+                    "to localID {1} to start script",
+                    Name, ScriptObject.Script.LocalID);
+
+                return;
+            }
+
+            UUID assetID = UUID.Zero;
+            TaskInventoryItem taskInventoryItem = new TaskInventoryItem();
+            if (m_host.TaskInventory.TryGetValue(ScriptObject.Script.ItemID, out taskInventoryItem))
+                assetID = taskInventoryItem.AssetID;
+
+            ScenePresence presence =
+                    ScriptObject.Script.RegionInfo.Scene.GetScenePresence(taskInventoryItem.OwnerID);
+
+            CultureInfo USCulture = new CultureInfo("en-US");
+            Thread.CurrentThread.CurrentCulture = USCulture;
+
+            try
+            {
+                //
+                // Compile script to an assembly
+                //
+                //TODO: DEBUG
+                BaseClassFactory.MakeBaseClass(ScriptObject.Script);
+
+                m_log.DebugFormat("[{0}] Compiling script {1}", Name, ScriptObject.Script.Name);
+
+                string fileName = "";
+                try
+                {
+                    IScriptCompiler compiler =
+                        ScriptObject.Script.RegionInfo.FindCompiler(ScriptObject.Script.ScriptMetaData);
+                    RegionInfoStructure currentRegionInfo = ScriptObject.Script.RegionInfo;
+                    fileName = compiler.Compile(ScriptObject.Script.ScriptMetaData, 
+                                                ref ScriptObject.Script.Source);
+                    ScriptObject.Script.AssemblyFileName = fileName;
+                }
+                catch (Exception e)
+                {
+                    m_log.ErrorFormat("[{0}] Internal error while compiling \"{1}\": {2}", Name, ScriptObject.Script.Name, e.ToString());
+                }
+                m_log.DebugFormat("[{0}] Compiled \"{1}\" to assembly: \"{2}\".", Name, ScriptObject.Script.Name, fileName);
+
+                // Add it to our script memstruct
+                MemAddScript(ScriptObject.Script);
+
+                ScriptAssemblies.IScript CompiledScript;
+                CompiledScript = CurrentRegion.ScriptLoader.LoadScript(ScriptObject.Script);
+                ScriptObject.Script.State = "default";
+                ScriptObject.Script.ScriptObject = CompiledScript;
+                ScriptObject.Script.Disabled = false;
+                ScriptObject.Script.Running = true;
+                //id.LineMap = LSLCompiler.LineMap();
+                //id.Script = CompiledScript;
+                //id.Source = item.Script.Script;
+                //item.StartParam = startParam;
+
+
+
+                // TODO: Fire the first start-event
+                //int eventFlags =
+                //        m_scriptEngine.m_ScriptManager.GetStateEventFlags(
+                //        localID, itemID);
+
+                //m_host.SetScriptEvents(itemID, eventFlags);
+                ScriptObject.Script.RegionInfo.Executors_Execute(ScriptObject.Script,
+                    new EventParams(ScriptObject.Script.LocalID, ScriptObject.Script.ItemID, "state_entry", new object[] { }, new Region.ScriptEngine.Shared.DetectParams[0])
+                    );
+                
+                if (ScriptObject.PostOnRez)
+                {
+                    ScriptObject.Script.RegionInfo.Executors_Execute(ScriptObject.Script,
+                        new EventParams(ScriptObject.Script.LocalID, "on_rez", new object[]
+                                                      {new Region.ScriptEngine.Shared.LSL_Types.LSLInteger(ScriptObject.StartParam)
+                                                        }, new Region.ScriptEngine.Shared.DetectParams[0]));
+                }
+            }
+            catch (Exception e) // LEGIT: User Scripting
+            {
+                if (presence != null && (!ScriptObject.PostOnRez))
+                    presence.ControllingClient.SendAgentAlertMessage(
+                            "Script saved with errors, check debug window!",
+                            false);
+                try
+                {
+                    // DISPLAY ERROR INWORLD
+                    string text = "Error compiling script:\n" +
+                            e.Message.ToString();
+                    if (text.Length > 1100)
+                        text = text.Substring(0, 1099);
+
+                    ScriptObject.Script.RegionInfo.Scene.SimChat(Utils.StringToBytes(text),
+                            ChatTypeEnum.DebugChannel, 2147483647,
+                            m_host.AbsolutePosition, m_host.Name, m_host.UUID,
+                            false);
+                }
+                catch (Exception e2) // LEGIT: User Scripting
+                {
+                    m_log.Error("[" +
+                            Name +
+                            "]: Error displaying error in-world: " +
+                            e2.ToString());
+                    m_log.Error("[" +
+                            Name + "]: " +
+                            "Errormessage: Error compiling script:\r\n" +
+                            e2.Message.ToString());
+                }
+            }
+        }
+
+  
+
+        public void _StopScript(uint localID, UUID itemID)
+        {
+            ScriptStructure ss = new ScriptStructure();
+            if (!TryGetScript(localID, itemID, ref ss))
+                return;
+
+            // Stop long command on script
+            //AsyncCommandManager.RemoveScript(ss);
+
+            try
+            {
+                // Get AppDomain
+                // Tell script not to accept new requests
+                ss.Running = false;
+                ss.Disabled = true;
+                AppDomain ad = ss.AppDomain;
+
+                // Remove from internal structure
+                MemRemoveScript(localID, itemID);
+
+                // TODO: Tell AppDomain that we have stopped script
+                
+            }
+            catch (Exception e) // LEGIT: User Scripting
+            {
+                m_log.Error("[" +
+                        Name +
+                        "]: Exception stopping script localID: " +
+                        localID + " LLUID: " + itemID.ToString() +
+                        ": " + e.ToString());
+            }
+        }
+
+
+    }
+}