void OnMachineExecutionComplete(object sender, PrologQueryEventArgs e)
{
if (e.Results != null)
{
var sb = new StringBuilder();
string prefix = null;
foreach (var variable in e.Results.Variables)
{
sb.Append(prefix); prefix = System.Environment.NewLine;
sb.AppendFormat("{0} = {1}", variable.Name, variable.Text);
}
var variables = sb.ToString();
if (!string.IsNullOrEmpty(variables))
{
Transcript.Entries.AddTranscriptEntry(TranscriptEntryTypes.Response, variables);
}
Transcript.Entries.AddTranscriptEntry(TranscriptEntryTypes.Response, Properties.Resources.ResponseSuccess);
if (StatisticsEnabled)
{
Transcript.Entries.AddTranscriptEntry(TranscriptEntryTypes.Response, string.Format("{0} IC:{1}", Machine.PerformanceStatistics.ElapsedTime, Machine.PerformanceStatistics.InstructionCount));
}
}
else
{
Transcript.Entries.AddTranscriptEntry(TranscriptEntryTypes.Response, Properties.Resources.ResponseFailure);
}
}
void CodeExecuted(object sender, PrologQueryEventArgs e)
{
var machine = sender as PrologMachine;
machine.ExecutionComplete -= CodeExecuted;
if (e.Results == null)
{
Console.WriteLine("No result available");
return;
}
var sb = new StringBuilder();
string prefix = null;
foreach (var variable in e.Results.Variables)
{
sb.Append(prefix); prefix = Environment.NewLine;
sb.AppendFormat("{0} = {1}", variable.Name, variable.Text);
}
Console.WriteLine(sb.ToString());
}
void OnMachineExecutionComplete(object sender, PrologQueryEventArgs e)
{
if (e.Results != null)
{
var sb = new StringBuilder();
string prefix = null;
foreach (var variable in e.Results.Variables)
{
sb.Append(prefix); prefix = System.Environment.NewLine;
sb.AppendFormat("{0} = {1}", variable.Name, variable.Text);
}
var variables = sb.ToString();
if (!string.IsNullOrEmpty(variables))
{
Transcript.Entries.AddTranscriptEntry(TranscriptEntryTypes.Response, variables);
}
Transcript.Entries.AddTranscriptEntry(TranscriptEntryTypes.Response, Properties.Resources.ResponseSuccess);
if (StatisticsEnabled)
{
Transcript.Entries.AddTranscriptEntry(TranscriptEntryTypes.Response, string.Format("{0} IC:{1}", Machine.PerformanceStatistics.ElapsedTime, Machine.PerformanceStatistics.InstructionCount));
}
}
else
{
Transcript.Entries.AddTranscriptEntry(TranscriptEntryTypes.Response, Properties.Resources.ResponseFailure);
}
}
void OnExecutionComplete(object sender, PrologQueryEventArgs e)
{
AdjustVariables();
}
void OnMachineExecutionComplete(object sender, PrologQueryEventArgs e)
{
}
void OnExecutionComplete(object sender, PrologQueryEventArgs e)
{
SetCurrentStackFrame();
}
