18 KiB
18 KiB
Getting Started with Guan
Guan, which is built as a .NET Standard Library, is designed to be used as part of an existing application (.NET Core, .NET Desktop) where there is a need for logic programming. The consuming program
can either house logic rules in files or supply them as string arguments directly to Guan. The purpose of this document is show how to use Guan within an application.
Installing Guan
You can install Guan into an existing application by adding a PackageReference to the consuming Project's csproj file:
<ItemGroup>
<PackageReference Include="Microsoft.Logic.Guan" Version="1.0.3" />
...
</ItemGroup>
Using Guan from external code
Within a code file (.cs) you must reference Guan.Logic in a using statement:
using Guan.Logic;
Guan supports the usage of Prolog-like logic rules that employ the standard format:
A rule head which identifies a goal and series of sub-rules (or sub-goals) that form the logical workflow.
goal() :- subgoal1, subgoal2
In Guan, goal is implemented as a CompoundTerm object. It can have any number of arguments (variables), which form the CompoundTerm.Arguments property, which is a List<TermArgument>. Please see the main readme Syntax section to learn more about the differences between Guan and Prolog with respect to supported logic rule syntax. You can see above that a trailing "." is not required in Guan logic rules, unlike Prolog.
Let's create a simple program (.NET 6 Console app) with very simple rules and a few external predicates. You can run this program by building and running the GuanExamples project.
using Guan.Logic;
using GuanExamples.ExternalPredicates;
using System.Collections.Generic;
using System.Threading.Tasks;
namespace GuanExamples
{
class Program
{
static async Task Main()
{
// External predicate types (as object instances or singletons (static single instances)) must be specified in a Guan FunctorTable object
// which is used to create the Module, which is a collection of predicate types and is required by the Query executor (see RunQueryAsync impl in GuanQueryDispatcher.cs).
var functorTable = new FunctorTable();
functorTable.Add(TestAddPredicateType.Singleton("addresult"));
functorTable.Add(TestDivPredicateType.Singleton("divresult"));
functorTable.Add(TestSubPredicateType.Singleton("subresult"));
// predicate name is hard-coded in the predicate's impl ("utcnow"). See GetDateTimeUtcNowPredicateType.cs.
functorTable.Add(GetDateTimeUtcNowPredicateType.Singleton());
// Create a List<string> containing logic rules (these could also be housed in a text file). These rules are very simple by design, as are the external predicates used in this sample console app.
// The rules below are simple examples of using logic in their sub rule parts and calling an external predicate.
var logicsRules = new List<string>
{
"test(?x, ?y) :- ?x == ?y, addresult(?x, ?y)",
"test(?x, ?y) :- ?y > 0 && ?y < ?x, divresult(?x, ?y)",
"test(?x, ?y) :- ?x > ?y, subresult(?x, ?y)",
"test1(1)",
"test1(2)",
"test2(2)",
"test2(3)",
"test3(q(1, ?x))",
"test4(?x, ?y) :- test3(q(?x, ?y)), test1(?y)",
"test5(?x, ?y) :- ?x > 1 && ?y < 3, test1(?x), test2(?y)",
"test6(?x) :- test1(?x), not(test2(?x))",
"test7(?x) :- not(?x < 2), test1(?x)",
"test8(?x, ?y, ?z) :- showtype(?x, ?y), ?x = 5, showtype(?x, ?z)",
"test9(?x, ?y, ?z) :- b_setval(v1, 0), test1(?x), getval(v1, ?y), b_setval(v1, 5), getval(v1, ?z)",
"test10(?x, ?y, ?z) :- b_setval(v1, 0), test1(?x), getval(v1, ?y), setval(v1, 5), getval(v1, ?z)",
"showtype(?x, 'var') :- var(?x)",
"showtype(?x, 'nonvar') :- nonvar(?x)",
"showtype(?x, 'atom') :- atom(?x)",
"showtype(?x, 'compound') :- compound(?x)",
"f1(?a, ?b, ?b, ?a)",
};
// List of rules - simple facts and a logic rule to determine if a specified person (?x) is a person.
var logicRules2 = new List<string>
{
"person(adam)",
"person(betty)",
"person(carl)",
"person(dan)",
"test(?x) :- not(person(?x)), WriteInfo('{0} is not a person', ?x)",
"test(?x) :- WriteInfo('{0} is a person', ?x)"
};
// The purpose of naming a Module is just to be able to identify the module instance if you need to for some reason.
// Other than that, there is nothing useful about Module name (it is not related to goal naming, for example).
// Think of name as simply the module id. Nothing more.
Module module2 = Module.Parse("persontests", logicRules2, null);
var queryDispatcher2 = new GuanQueryDispatcher(module2);
// This will return all facts in a comma-delimited string.
await queryDispatcher2.RunQueryAsync("person(?p)", logicRules2.Count);
// test if specified person is a known fact.
await queryDispatcher2.RunQueryAsync("test(charles)"); // charles is not a person.
await queryDispatcher2.RunQueryAsync("test(betty)"); // betty is a person.
var logicRules3 = new List<string>
{
// time() is a system predicate. Used without an arg, it results in DateTime.UtcNow. With a TimeSpan arg, it results in DateTime.UtcNow + arg.
// Guan will automatically convert a TimeSpan representation (like 1.00:00:00) to a .NET TimeSpan object.
"testdate(?dt) :- time(-1.00:00:00) > ?dt, WriteInfo('time() impl: {0} is more than 1 day ago', ?dt)",
// Or, for no good reason other than demonstrating how to write an external predicate that binds a value to rule variable (see GetDateTimeUtcNowPredicateType.cs).
// You could use any value for the variable name used in utcnow. The key is that the predicate takes a single argument: a variable (of Guan type IndexedVariable, in fact).
"testdate1(?dt) :- utcnow(?n), ?n - ?dt > 1.00:00:00, WriteInfo('utcnow impl: {0} is more than 1 day ago', ?dt)",
// This will throw a GuanException because the argument for utcnow is grounded, not a variable.
"testdate2(?dt) :- utcnow(42)",
// Effectively, else rules.
"testdate(?dt) :- WriteInfo('time impl: {0} is less than 1 day ago', ?dt)",
"testdate1(?dt) :- WriteInfo('utcnow impl: {0} is less than 1 day ago', ?dt)",
};
Module module3 = Module.Parse("testdates", logicRules3, functorTable);
var queryDispatcher3 = new GuanQueryDispatcher(module3);
// Specify query arg as a DateTime object (internally supported by Guan).
await queryDispatcher3.RunQueryAsync("testdate(DateTime('2022-01-21'))");
await queryDispatcher3.RunQueryAsync("testdate(DateTime('2022-02-22'))");
// Employs an external predicate in the rule..
await queryDispatcher3.RunQueryAsync("testdate1(DateTime('2022-01-21'))");
await queryDispatcher3.RunQueryAsync("testdate1(DateTime('2022-02-22'))");
// Crash. Uncomment and run app to see why (or, you could look at the code in GetDateTimeUtcNowPredicateType.GetNextTermAsync function).
// await queryDispatcher3.RunQueryAsync("testdate2(DateTime('2022-01-25'))");
Module module = Module.Parse("testx", logicsRules, functorTable);
var queryDispatcher = new GuanQueryDispatcher(module);
// test goal with arithmetic external predicates.
await queryDispatcher.RunQueryAsync("test(3, 3)");
await queryDispatcher.RunQueryAsync("test(0, 0)");
await queryDispatcher.RunQueryAsync("test(5, 2)");
await queryDispatcher.RunQueryAsync("test(3, 2)");
await queryDispatcher.RunQueryAsync("test(4, 2)");
await queryDispatcher.RunQueryAsync("test(2, 5)");
await queryDispatcher.RunQueryAsync("test(6, 2)");
await queryDispatcher.RunQueryAsync("test(8, 2)");
await queryDispatcher.RunQueryAsync("test(25, 5)");
await queryDispatcher.RunQueryAsync("test(1, 0)");
// testx goals with internal predicates.
await queryDispatcher.RunQueryAsync("test4(?x, ?y), test2(?y)"); // (x=1,y=2)
await queryDispatcher.RunQueryAsync("test5(?x, ?y), test1(?y)"); // (x=2, y=2)
}
}
}
There are three main pieces to executing a Guan query:
- A repair rule or query expression that Guan will parse and execute.
- A Module that contains a list of rules and optionally a
FunctorTableinstance that holds a list of predicate types (FunctorTableonly applies if your query expressions (rules) employ External Predicates). - An instance of Guan's Query type created via the static Query.Create function, which takes rules, a
QueryContextinstance, and aModuleProviderinstance, which is created with theModule(s)you define.
Let's look at the simple helper class in the GuanExamples project, GuanQueryDispatcher, to make this more clear.
using System;
using System.Collections.Generic;
using System.Threading.Tasks;
using Guan.Logic;
namespace GuanExamples
{
public class GuanQueryDispatcher
{
private readonly Module module_;
public GuanQueryDispatcher(Module module)
{
module_ = module;
}
public async Task RunQueryAsync(string queryExpression, int maxResults = 1)
{
// Required ModuleProvider instance. You created the module used in its construction in Program.cs.
ModuleProvider moduleProvider = new ModuleProvider();
moduleProvider.Add(module_);
// Required QueryContext instance. You must supply moduleProvider (it implements IFunctorProvider).
QueryContext queryContext = new QueryContext(moduleProvider);
// The Query instance that will be used to execute the supplied query expression over the related rules.
Query query = Query.Create(queryExpression, queryContext);
// Execute the query.
// result will be () if there is no answer/result for supplied query (see the simple external predicate rules, for example).
if (maxResults == 1)
{
// Gets one result.
Term result = await query.GetNextAsync();
Console.WriteLine($"answer: {result}"); // () if there is no answer.
}
else
{
// Gets multiple results, if possible, up to supplied maxResults value.
List<Term> results = await query.GetResultsAsync(maxResults);
Console.WriteLine($"answer: {string.Join(',', results)}"); // convert the List<Term> object into a comma-delimited string.
}
}
}
}
This is pretty straightforward and it is expected that you already have experience with Prolog, so let's move on to the External Predicates used in this simple application.
There are 3 external predicates used here:
TestAddPredicateTypeTestDivPredicateTypeTestSubPredicateType
Let's look the implementation for TestAddPredicateType (the other two are exactly the same in structure):
using Guan.Logic;
using System;
using System.Threading.Tasks;
namespace GuanExamples
{
public class TestAddPredicateType : PredicateType
{
private static TestAddPredicateType Instance;
class Resolver : BooleanPredicateResolver
{
public Resolver(CompoundTerm input, Constraint constraint, QueryContext context)
: base(input, constraint, context)
{
}
protected override Task<bool> CheckAsync()
{
// This is the value of the first argument passed to the external predicate addresult().
long t1 = (long)Input.Arguments[0].Value.GetEffectiveTerm().GetObjectValue();
// This is the value of the second argument passed to the external predicate addresult().
long t2 = (long)Input.Arguments[1].Value.GetEffectiveTerm().GetObjectValue();
// Do something with argunent values (in this case simply add them together).
long result = t1 + t2;
// Call an external (to Guan) API that does something with the result.
Console.WriteLine($"addresult: {result}");
// BooleanPredicateResolver type always supplies or binds a boolean result.
return Task.FromResult(true);
}
}
public static TestAddPredicateType Singleton(string name)
{
// ??= is C#'s null-coalescing assignment operator. It is convenience syntax that assigns the value of
// its right-hand operand to its left-hand operand only if the left-hand operand evaluates to null.
// The ??= operator does not evaluate its right-hand operand if the left-hand operand evaluates to non-null.
return Instance ??= new TestAddPredicateType(name);
}
// Note the base constructor's arguments minPositionalArguments and maxPositionalArguments.
// You control the minimum and maximum number of arguments the predicate supports.
// In this case, rules that employ this external predicate must supply only 2 positional arguments.
private TestAddPredicateType(string name)
: base(name, true, 2, 2)
{
}
// override to create the Resolver instance.
public override PredicateResolver CreateResolver(CompoundTerm input, Constraint constraint, QueryContext context)
{
return new Resolver(input, constraint, context);
}
}
}
Note that any external predicate must derive from the PredicateType base class. Further, an external predicate must contain an internal Resolver class that derives from any supported Resolver type.
In this case, all 3 external predicates derive from BooleanPredicateResolver, which means the result of their execution will be bound to a boolean (and in this case, that value is always true).
The key function for you here is CheckAsync(). This is basically the entry point to your custom external implementation (external to the rule from which it is called).
protected override Task<bool> CheckAsync()
{
// This is the value of the first argument passed to the external predicate addresult().
long t1 = (long)Input.Arguments[0].Value.GetEffectiveTerm().GetObjectValue();
// This is the value of the second argument passed to the external predicate addresult().
long t2 = (long)Input.Arguments[1].Value.GetEffectiveTerm().GetObjectValue();
// Do something with argunent values (in this case simply add them together).
long result = t1 + t2;
// Call an external (to Guan) API that does something with the result.
Console.WriteLine($"addresult: {result}");
// BooleanPredicateResolver type always supplies or binds a boolean result.
return Task.FromResult(true);
}
Now, let's take a look at an external predicate implementation where a value is bound to a variable supplied by the rule for use in the rule.
using System;
using System.Threading.Tasks;
using Guan.Logic;
namespace GuanExamples.ExternalPredicates
{
public class GetDateTimeUtcNowPredicateType : PredicateType
{
private static GetDateTimeUtcNowPredicateType Instance;
/// <summary>
/// GroundPredicateResolver is typically a resolver of an external predicate which uses the goal
/// as a query against concrete instances of data.
/// </summary>
private class Resolver : GroundPredicateResolver
{
public Resolver(CompoundTerm input, Constraint constraint, QueryContext context)
: base(input, constraint, context, 1)
{
}
protected override Task<Term> GetNextTermAsync()
{
// The goal here is to bind a value to the single supplied argument for use in a rule that employs this external predicate.
// This argument must be a variable and a variable is by definition not grounded. In fact, this argument is an IndexedVariable.
// This is an example of how to validate input in a predicate that requires specific input types.
if (base.GetInputArgument(0).IsGround())
{
throw new GuanException("The first argument of utcnow must be a variable: {0} was supplied.", this.GetInputArgument(0));
}
var currentTime = DateTime.UtcNow;
var result = new CompoundTerm(Input.Functor);
// "0" is used here so that the variable name in the rule that employs this predicate can be named whatever you want.
// This predicate only supports one argument, which is the variable (an IndexedVariable) that will hold the result.
result.AddArgument(new Constant(currentTime), "0");
return Task.FromResult(result.GetEffectiveTerm());
}
}
public static GetDateTimeUtcNowPredicateType Singleton()
{
return Instance ??= new GetDateTimeUtcNowPredicateType("utcnow");
}
// This predicate only supports one argument, which is the variable (an IndexedVariable) that will hold the result.
private GetDateTimeUtcNowPredicateType(string name)
: base(name, true, 1, 1)
{
}
public override PredicateResolver CreateResolver(CompoundTerm input, Constraint constraint, QueryContext context)
{
return new Resolver(input, constraint, context);
}
}
}