1 files changed, 94 insertions, 0 deletions

diff --git a/OpenSim/Region/ScriptEngine/XMREngine/MMRInternalFuncDict.cs b/OpenSim/Region/ScriptEngine/XMREngine/MMRInternalFuncDict.cs
new file mode 100644
index 0000000..c2c01b5
--- /dev/null
+++ b/OpenSim/Region/ScriptEngine/XMREngine/MMRInternalFuncDict.cs
@@ -0,0 +1,94 @@
+/*
+ * Copyright (c) Contributors, http://opensimulator.org/
+ * See CONTRIBUTORS.TXT for a full list of copyright holders.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions are met:
+ *     * Redistributions of source code must retain the above copyright
+ *       notice, this list of conditions and the following disclaimer.
+ *     * Redistributions in binary form must reproduce the above copyright
+ *       notice, this list of conditions and the following disclaimer in the
+ *       documentation and/or other materials provided with the distribution.
+ *     * Neither the name of the OpenSimulator Project nor the
+ *       names of its contributors may be used to endorse or promote products
+ *       derived from this software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE DEVELOPERS ``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 CONTRIBUTORS 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.
+ */
+
+using System;
+using System.Collections.Generic;
+using System.IO;
+using System.Reflection;
+
+namespace OpenSim.Region.ScriptEngine.XMREngine {
+
+    public class InternalFuncDict : VarDict {
+
+        /**
+         * @brief build dictionary of internal functions from an interface.
+         * @param iface = interface with function definitions
+         * @param inclSig = true: catalog by name with arg sig, eg, llSay(integer,string)
+         *                 false: catalog by simple name only, eg, state_entry
+         * @returns dictionary of function definition tokens
+         */
+        public InternalFuncDict (Type iface, bool inclSig)
+            : base (false)
+        {
+            /*
+             * Loop through list of all methods declared in the interface.
+             */
+            System.Reflection.MethodInfo[] ifaceMethods = iface.GetMethods ();
+            foreach (System.Reflection.MethodInfo ifaceMethod in ifaceMethods) {
+                string key = ifaceMethod.Name;
+
+                /*
+                 * Only do ones that begin with lower-case letters...
+                 * as any others can't be referenced by scripts
+                 */
+                if ((key[0] < 'a') || (key[0] > 'z')) continue;
+
+                try {
+
+                    /*
+                     * Create a corresponding TokenDeclVar struct.
+                     */
+                    System.Reflection.ParameterInfo[] parameters = ifaceMethod.GetParameters ();
+                    TokenArgDecl argDecl = new TokenArgDecl (null);
+                    for (int i = 0; i < parameters.Length; i++) {
+                        System.Reflection.ParameterInfo param = parameters[i];
+                        TokenType type = TokenType.FromSysType (null, param.ParameterType);
+                        TokenName name = new TokenName (null, param.Name);
+                        argDecl.AddArg (type, name);
+                    }
+                    TokenDeclVar declFunc = new TokenDeclVar (null, null, null);
+                    declFunc.name         = new TokenName (null, key);
+                    declFunc.retType      = TokenType.FromSysType (null, ifaceMethod.ReturnType);
+                    declFunc.argDecl      = argDecl;
+
+                    /*
+                     * Add the TokenDeclVar struct to the dictionary.
+                     */
+                    this.AddEntry (declFunc);
+                } catch (Exception except) {
+
+                    string msg = except.ToString ();
+                    int i = msg.IndexOf ("\n");
+                    if (i > 0) msg = msg.Substring (0, i);
+                    Console.WriteLine ("InternalFuncDict*: {0}:     {1}", key, msg);
+
+                    ///??? IGNORE ANY THAT FAIL - LIKE UNRECOGNIZED TYPE ???///
+                }
+            }
+        }
+    }
+}