adding #pragma warnings to yprolog language support

0.6.1-post-fixes
Dr Scofield 2008-11-17 11:06:24 +00:00
parent 05fb40dc0b
commit ae0bcab35e
9 changed files with 22 additions and 24 deletions

View File

@ -115,7 +115,7 @@ namespace OpenSim.Region.ScriptEngine.Shared.YieldProlog
// disable warning on l1, don't see how we can
// code this differently
#pragma warning disable 0168
#pragma warning disable 0168, 0219
/// <summary>
/// For each result, unify the _freeVariables and unify bagArrayVariable with the associated bag.
@ -208,7 +208,7 @@ namespace OpenSim.Region.ScriptEngine.Shared.YieldProlog
bagOfAnswers.add();
return bagOfAnswers.resultSet(Bag);
}
#pragma warning restore 0168
#pragma warning restore 0168, 0219
/// <summary>
/// A TermArrayEqualityComparer implements IEqualityComparer to compare two object arrays using YP.termEqual.

View File

@ -73,7 +73,7 @@ namespace OpenSim.Region.ScriptEngine.Shared.YieldProlog
// disable warning on l1, don't see how we can
// code this differently
#pragma warning disable 0168
#pragma warning disable 0168, 0219
/// <summary>
/// This is a simplified findall when the goal is a single call.
@ -103,6 +103,6 @@ namespace OpenSim.Region.ScriptEngine.Shared.YieldProlog
findallAnswers.add();
return findallAnswers.resultArray();
}
#pragma warning restore 0168
#pragma warning restore 0168, 0219
}
}

View File

@ -51,7 +51,7 @@ namespace OpenSim.Region.ScriptEngine.Shared.YieldProlog
// disable warning on l1, don't see how we can
// code this differently
#pragma warning disable 0168
#pragma warning disable 0168, 0219
/// <summary>
/// If arg is another Functor1, then succeed (yield once) if this and arg have the
/// same name and the functor args unify, otherwise fail (don't yield).
@ -78,7 +78,7 @@ namespace OpenSim.Region.ScriptEngine.Shared.YieldProlog
yield return false;
}
}
#pragma warning restore 0168
#pragma warning restore 0168, 0219
public override string ToString()

View File

@ -53,7 +53,7 @@ namespace OpenSim.Region.ScriptEngine.Shared.YieldProlog
// disable warning on l1, don't see how we can
// code this differently
#pragma warning disable 0168
#pragma warning disable 0168, 0219
/// If arg is another Functor2, then succeed (yield once) if this and arg have the
/// same name and all functor args unify, otherwise fail (don't yield).
/// If arg is a Variable, then call its unify to unify with this.
@ -79,7 +79,7 @@ namespace OpenSim.Region.ScriptEngine.Shared.YieldProlog
yield return false;
}
}
#pragma warning restore 0168
#pragma warning restore 0168, 0219
public override string ToString()

View File

@ -55,7 +55,7 @@ namespace OpenSim.Region.ScriptEngine.Shared.YieldProlog
// disable warning on l1, don't see how we can
// code this differently
#pragma warning disable 0168
#pragma warning disable 0168, 0219
/// If arg is another Functor3, then succeed (yield once) if this and arg have the
/// same name and all functor args unify, otherwise fail (don't yield).
/// If arg is a Variable, then call its unify to unify with this.
@ -84,7 +84,7 @@ namespace OpenSim.Region.ScriptEngine.Shared.YieldProlog
yield return false;
}
}
#pragma warning restore 0168
#pragma warning restore 0168, 0219
public override string ToString()
{

View File

@ -249,7 +249,7 @@ namespace OpenSim.Region.ScriptEngine.Shared.YieldProlog
object[] arguments = YP.getFunctorArgs(Head);
// We always match Head from _allAnswers, and the Body is Atom.a("true").
#pragma warning disable 0168
#pragma warning disable 0168, 0219
foreach (bool l1 in YP.unify(Body, Atom.a("true")))
{
// The caller can assert another answer into this same predicate during yield, so we have to
@ -260,7 +260,7 @@ namespace OpenSim.Region.ScriptEngine.Shared.YieldProlog
yield return false;
}
}
#pragma warning restore 0168
#pragma warning restore 0168, 0219
}
public IEnumerable<bool> retract(object Head, object Body)
@ -271,7 +271,7 @@ namespace OpenSim.Region.ScriptEngine.Shared.YieldProlog
object[] arguments = YP.getFunctorArgs(Head);
// We always match Head from _allAnswers, and the Body is Atom.a("true").
#pragma warning disable 0168
#pragma warning disable 0168, 0219
foreach (bool l1 in YP.unify(Body, Atom.a("true")))
{
// The caller can assert another answer into this same predicate during yield, so we have to
@ -286,7 +286,7 @@ namespace OpenSim.Region.ScriptEngine.Shared.YieldProlog
}
}
}
#pragma warning restore 0168
#pragma warning restore 0168, 0219
}
/// <summary>

View File

@ -116,10 +116,10 @@ namespace OpenSim.Region.ScriptEngine.Shared.YieldProlog
{
// disable warning on l1, don't see how we can
// code this differently
#pragma warning disable 0168
#pragma warning disable 0168, 0219
foreach (bool l1 in YP.unify(this, arg))
yield return false;
#pragma warning restore 0168
#pragma warning restore 0168, 0219
}
}

View File

@ -623,7 +623,7 @@ namespace OpenSim.Region.ScriptEngine.Shared.YieldProlog
// disable warning on l1, don't see how we can
// code this differently
#pragma warning disable 0168
#pragma warning disable 0168, 0219
public static IEnumerable<bool> univ(object Term, object List)
{
Term = YP.getValue(Term);
@ -704,10 +704,8 @@ namespace OpenSim.Region.ScriptEngine.Shared.YieldProlog
object[] args = new object[(int)Arity];
for (int i = 0; i < args.Length; ++i)
args[i] = new Variable();
#pragma warning disable 0219
foreach (bool l1 in YP.unify(Term, Functor.make((Atom)FunctorName, args)))
yield return false;
#pragma warning restore 0219
}
}
else
@ -2632,7 +2630,7 @@ namespace OpenSim.Region.ScriptEngine.Shared.YieldProlog
throw new NotImplementedException();
}
}
#pragma warning restore 0168
#pragma warning restore 0168, 0219
/// <summary>
/// A ClauseHeadAndBody is used in Compiler.compileAnonymousFunction as a base class
/// in order to implement YP.IClause. After creating the object, you must call setHeadAndBody.
@ -2653,13 +2651,13 @@ namespace OpenSim.Region.ScriptEngine.Shared.YieldProlog
if (_Head == null || _Body == null)
yield break;
#pragma warning disable 0168
#pragma warning disable 0168, 0219
foreach (bool l1 in YP.unify(Head, _Head))
{
foreach (bool l2 in YP.unify(Body, _Body))
yield return false;
}
#pragma warning restore 0168
#pragma warning restore 0168, 0219
}
}

View File

@ -203,7 +203,7 @@ namespace OpenSim.Region.ScriptEngine.Shared.YieldProlog
// disable warning on l1, don't see how we can
// code this differently
#pragma warning disable 0168,0164,0162
#pragma warning disable 0168, 0164, 0162, 0219
public static bool isDetNoneOut(object State, object Term)
{
State = YP.getValue(State);
@ -241,7 +241,7 @@ namespace OpenSim.Region.ScriptEngine.Shared.YieldProlog
return false;
}
#pragma warning restore 0168,0164,0162
#pragma warning restore 0168, 0164, 0162, 0219
/// <summary>
/// Return false if any of args is out, otherwise true.