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 OnExecutionComplete(object sender, PrologQueryEventArgs e) { AdjustVariables(); }
void OnMachineExecutionComplete(object sender, PrologQueryEventArgs e) { }
void OnExecutionComplete(object sender, PrologQueryEventArgs e) { SetCurrentStackFrame(); }