1 files changed, 154 insertions, 0 deletions
diff --git a/OpenSim/Region/ScriptEngine/DotNetEngine/Compiler/YieldProlog/Functor2.cs b/OpenSim/Region/ScriptEngine/DotNetEngine/Compiler/YieldProlog/Functor2.cs
new file mode 100644
index 0000000..87c5f1b
--- /dev/null
+++ b/OpenSim/Region/ScriptEngine/DotNetEngine/Compiler/YieldProlog/Functor2.cs
@@ -0,0 +1,154 @@
+/*
+ * Copyright (C) 2007-2008, Jeff Thompson
+ * 
+ * All rights reserved.
+ * 
+ * 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 copyright holder 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 COPYRIGHT HOLDERS AND CONTRIBUTORS
+ * "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 COPYRIGHT OWNER OR
+ * 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;
+namespace OpenSim.Region.ScriptEngine.DotNetEngine.Compiler.YieldProlog
+{
+    public class Functor2 : IUnifiable
+    {
+        public readonly Atom _name;
+        public readonly object _arg1;
+        public readonly object _arg2;
+        public Functor2(Atom name, object arg1, object arg2)
+        {
+            _name = name;
+            _arg1 = arg1;
+            _arg2 = arg2;
+        }
+        public Functor2(string name, object arg1, object arg2)
+            : this(Atom.a(name), arg1, arg2)
+        {
+        }
+        public IEnumerable<bool> unify(object arg)
+        {
+            arg = YP.getValue(arg);
+            if (arg is Functor2)
+            {
+                Functor2 argFunctor = (Functor2)arg;
+                if (_name.Equals(argFunctor._name))
+                {
+                    foreach (bool l1 in YP.unify(_arg1, argFunctor._arg1))
+                    {
+                        foreach (bool l2 in YP.unify(_arg2, argFunctor._arg2))
+                            yield return false;
+                    }
+                }
+            }
+            else if (arg is Variable)
+            {
+                foreach (bool l1 in ((Variable)arg).unify(this))
+                    yield return false;
+            }
+        }
+        public override string ToString()
+        {
+            if (_name == Atom.DOT)
+                return listPairToString(this);
+            else
+                return _name + "(" + YP.getValue(_arg1) + ", " +  YP.getValue(_arg2) + ")";
+        }
+        public bool termEqual(object term)
+        {
+            term = YP.getValue(term);
+            if (term is Functor2)
+            {
+                Functor2 termFunctor = (Functor2)term;
+                return _name.Equals(termFunctor._name) && YP.termEqual(_arg1, termFunctor._arg1)
+                     && YP.termEqual(_arg2, termFunctor._arg2);
+            }
+            return false;
+        }
+        public bool lessThan(Functor2 functor)
+        {
+            // Do the equal check first since it is faster.
+            if (!_name.Equals(functor._name))
+                return _name.lessThan(functor._name);
+            if (!YP.termEqual(_arg1, functor._arg1))
+                return YP.termLessThan(_arg1, functor._arg1);
+            return YP.termLessThan(_arg2, functor._arg2);
+        }
+        public bool ground()
+        {
+            return YP.ground(_arg1) && YP.ground(_arg2);
+        }
+        public void addUniqueVariables(List<Variable> variableSet)
+        {
+            YP.addUniqueVariables(_arg1, variableSet);
+            YP.addUniqueVariables(_arg2, variableSet);
+        }
+        public object makeCopy(Variable.CopyStore copyStore)
+        {
+            return new Functor2(_name, YP.makeCopy(_arg1, copyStore), 
+                YP.makeCopy(_arg2, copyStore));
+        }
+        private static string listPairToString(Functor2 listPair)
+        {
+            string result = "[";
+            while (true)
+            {
+                object head = YP.getValue(listPair._arg1);
+                object tail = YP.getValue(listPair._arg2);
+                if (tail == (object)Atom.NIL)
+                {
+                    result += head;
+                    break;
+                }
+                else if (tail is Functor2 && ((Functor2)tail)._name == Atom.DOT)
+                {
+                    result += head + ", ";
+                    listPair = (Functor2)tail;
+                    // Loop again.
+                }
+                else
+                {
+                    // The list is not terminated with NIL.
+                    result += head + "|" + tail;
+                    break;
+                }
+            }
+            result += "]";
+            return result;
+        }
+    }
+}

diff --git a/OpenSim/Region/ScriptEngine/DotNetEngine/Compiler/YieldProlog/Functor2.cs b/OpenSim/Region/ScriptEngine/DotNetEngine/Compiler/YieldProlog/Functor2.cs new file mode 100644 index 0000000..87c5f1b --- /dev/null +++ b/OpenSim/Region/ScriptEngine/DotNetEngine/Compiler/YieldProlog/Functor2.cs
@@ -0,0 +1,154 @@
	1	/*
	2	* Copyright (C) 2007-2008, Jeff Thompson
	3	*
	4	* All rights reserved.
	5	*
	6	* Redistribution and use in source and binary forms, with or without
	7	* modification, are permitted provided that the following conditions are met:
	8	*
	9	* * Redistributions of source code must retain the above copyright
	10	* notice, this list of conditions and the following disclaimer.
	11	* * Redistributions in binary form must reproduce the above copyright
	12	* notice, this list of conditions and the following disclaimer in the
	13	* documentation and/or other materials provided with the distribution.
	14	* * Neither the name of the copyright holder nor the names of its contributors
	15	* may be used to endorse or promote products derived from this software
	16	* without specific prior written permission.
	17	*
	18	* THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
	19	* "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
	20	* LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
	21	* A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR
	22	* CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
	23	* EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
	24	* PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
	25	* PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
	26	* LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
	27	* NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
	28	* SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
	29	*/
	30
	31	using System;
	32	using System.Collections.Generic;
	33
	34	namespace OpenSim.Region.ScriptEngine.DotNetEngine.Compiler.YieldProlog
	35	{
	36	public class Functor2 : IUnifiable
	37	{
	38	public readonly Atom _name;
	39	public readonly object _arg1;
	40	public readonly object _arg2;
	41
	42	public Functor2(Atom name, object arg1, object arg2)
	43	{
	44	_name = name;
	45	_arg1 = arg1;
	46	_arg2 = arg2;
	47	}
	48
	49	public Functor2(string name, object arg1, object arg2)
	50	: this(Atom.a(name), arg1, arg2)
	51	{
	52	}
	53
	54	public IEnumerable<bool> unify(object arg)
	55	{
	56	arg = YP.getValue(arg);
	57	if (arg is Functor2)
	58	{
	59	Functor2 argFunctor = (Functor2)arg;
	60	if (_name.Equals(argFunctor._name))
	61	{
	62	foreach (bool l1 in YP.unify(_arg1, argFunctor._arg1))
	63	{
	64	foreach (bool l2 in YP.unify(_arg2, argFunctor._arg2))
	65	yield return false;
	66	}
	67	}
	68	}
	69	else if (arg is Variable)
	70	{
	71	foreach (bool l1 in ((Variable)arg).unify(this))
	72	yield return false;
	73	}
	74	}
	75
	76	public override string ToString()
	77	{
	78	if (_name == Atom.DOT)
	79	return listPairToString(this);
	80	else
	81	return _name + "(" + YP.getValue(_arg1) + ", " + YP.getValue(_arg2) + ")";
	82	}
	83
	84	public bool termEqual(object term)
	85	{
	86	term = YP.getValue(term);
	87	if (term is Functor2)
	88	{
	89	Functor2 termFunctor = (Functor2)term;
	90	return _name.Equals(termFunctor._name) && YP.termEqual(_arg1, termFunctor._arg1)
	91	&& YP.termEqual(_arg2, termFunctor._arg2);
	92	}
	93	return false;
	94	}
	95
	96	public bool lessThan(Functor2 functor)
	97	{
	98	// Do the equal check first since it is faster.
	99	if (!_name.Equals(functor._name))
	100	return _name.lessThan(functor._name);
	101
	102	if (!YP.termEqual(_arg1, functor._arg1))
	103	return YP.termLessThan(_arg1, functor._arg1);
	104
	105	return YP.termLessThan(_arg2, functor._arg2);
	106	}
	107
	108	public bool ground()
	109	{
	110	return YP.ground(_arg1) && YP.ground(_arg2);
	111	}
	112
	113	public void addUniqueVariables(List<Variable> variableSet)
	114	{
	115	YP.addUniqueVariables(_arg1, variableSet);
	116	YP.addUniqueVariables(_arg2, variableSet);
	117	}
	118
	119	public object makeCopy(Variable.CopyStore copyStore)
	120	{
	121	return new Functor2(_name, YP.makeCopy(_arg1, copyStore),
	122	YP.makeCopy(_arg2, copyStore));
	123	}
	124
	125	private static string listPairToString(Functor2 listPair)
	126	{
	127	string result = "[";
	128	while (true)
	129	{
	130	object head = YP.getValue(listPair._arg1);
	131	object tail = YP.getValue(listPair._arg2);
	132	if (tail == (object)Atom.NIL)
	133	{
	134	result += head;
	135	break;
	136	}
	137	else if (tail is Functor2 && ((Functor2)tail)._name == Atom.DOT)
	138	{
	139	result += head + ", ";
	140	listPair = (Functor2)tail;
	141	// Loop again.
	142	}
	143	else
	144	{
	145	// The list is not terminated with NIL.
	146	result += head + "\|" + tail;
	147	break;
	148	}
	149	}
	150	result += "]";
	151	return result;
	152	}
	153	}
	154	}