Fix LT-22605: Add ability to limit Hermit Crab parses

Author: jtmaxwell3

Build/SilVersions.props

@@ -17,7 +17,7 @@
 		<SilLibPalasoL10nsVersion>18.0.0-beta0012</SilLibPalasoL10nsVersion>
 		<SilChorusVersion>6.0.0-beta0065</SilChorusVersion>
 		<SilChorusL10nsVersion>3.0.1</SilChorusL10nsVersion>
-		<SilMachineVersion>3.8.2</SilMachineVersion>
+		<SilMachineVersion>3.9.2</SilMachineVersion>
 		<SilIPCFrameworkVersion>1.1.1-beta0001</SilIPCFrameworkVersion>
 		<L10NSharpVersion>10.0.0-beta0004</L10NSharpVersion>
 		<EncodingConvertersCoreVersion>0.9.8</EncodingConvertersCoreVersion>

Src/LexText/ParserCore/HCParser.cs

@@ -15,6 +15,7 @@
 using SIL.Machine.Annotations;
 using SIL.Machine.Morphology.HermitCrab;
 using SIL.Machine.Morphology.HermitCrab.MorphologicalRules;
+using SIL.Machine.Rules;
 using SIL.ObjectModel;
 
 namespace SIL.FieldWorks.WordWorks.Parser
@@ -149,6 +150,7 @@ private void LoadParser()
 			// For Hermit Crab, the maximum number of roots/stems allowed is between one and ten.
 			// The default is two in order to allow for compounding (which requires there be at least two roots/stems).
 			int maxStemCount = 2;
+			int maxAlternatives = 0;
 			string loadErrorsFile = Path.Combine(m_outputDirectory, m_cache.ProjectId.Name + "HCLoadErrors.xml");
 			using (XmlWriter writer = XmlWriter.Create(loadErrorsFile))
 			using (new WorkerThreadReadHelper(m_cache.ServiceLocator.GetInstance<IWorkerThreadReadHandler>()))
@@ -161,6 +163,7 @@ private void LoadParser()
 				XElement guessRootsElem = parserParamsElem.Elements("HC").Elements("GuessRoots").FirstOrDefault();
 				XElement mergeAnalysesElem = parserParamsElem.Elements("HC").Elements("MergeAnalyses").FirstOrDefault();
 				XElement maxRootsElem = parserParamsElem.Elements("HC").Elements("MaxRoots").FirstOrDefault();
+				XElement maxAlternativesElem = parserParamsElem.Elements("HC").Elements("MaxAlternatives").FirstOrDefault();
 				if (delReappsElem != null)
 					delReapps = (int) delReappsElem;
 				if (guessRootsElem != null)
@@ -169,10 +172,13 @@ private void LoadParser()
 					m_mergeAnalyses = (bool) mergeAnalysesElem;
 				if (maxRootsElem != null)
 					maxStemCount = int.Parse(maxRootsElem.Value);
+				if (maxRootsElem != null)
+					maxAlternatives = int.Parse(maxAlternativesElem.Value);
 			}
 			m_morpher = new Morpher(m_traceManager, m_language) { DeletionReapplications = delReapps };
 			m_morpher.MaxStemCount = maxStemCount;
 			m_morpher.MergeEquivalentAnalyses = m_mergeAnalyses;
+			m_morpher.MaxAlternatives = maxAlternatives;
 		}
 
 		private XDocument ParseToXml(string form, bool tracing, IEnumerable<int> selectTraceMorphs)
@@ -577,6 +583,10 @@ private string ProcessParseException(Exception e)
 				}
 				return string.Format(ParserCoreStrings.ksHCInvalidWordform, ise.String, ise.Position + 1, rest, phonemesFoundSoFar);
 			}
+			if (e is MaxAlternativesExceededException)
+			{
+				return e.Message;
+			}
 
 			return String.Format(ParserCoreStrings.ksHCDefaultErrorMsg, e.Message);
 		}

Src/LexText/ParserUI/ParserParametersDlg.cs

@@ -43,6 +43,7 @@ public class ParserParametersDlg : ParserParametersBase
 		private const string MaxInfixes = "MaxInfixes";
 		private const string MaxInterfixes = "MaxInterfixes";
 		private const string MaxRoots = "MaxRoots";
+		private const string MaxAlternatives = "MaxAlternatives";
 		private const string MaxAnalysesToReturn = "MaxAnalysesToReturn";
 
 		#region Data members
@@ -280,7 +281,8 @@ public void SetDlgInfo(string title, string parserParameters, ILcmOwningSequence
 			m_dataGrid2.TableStyles[0].GridColumnStyles[2].Width = 130;
 			m_dataGrid2.TableStyles[0].GridColumnStyles[4].Width = 160;
 			m_dataGrid2.TableStyles[0].GridColumnStyles[6].Width = 90;
-			m_dataGrid2.TableStyles[0].GridColumnStyles[7].Width = 400;
+			m_dataGrid2.TableStyles[0].GridColumnStyles[7].Width = 100;
+			m_dataGrid2.TableStyles[0].GridColumnStyles[8].Width = 400;
 
 			m_compoundRules = compoundRules;
 			if (m_compoundRules?.Count > 0)
@@ -305,6 +307,8 @@ private void LoadParserData(DataSet dsParserParameters)
 				hcElem.Add(new XElement(NoDefaultCompounding, false));
 			if (hcElem.Element(MaxRoots) == null)
 				hcElem.Add(new XElement(MaxRoots, 2));
+			if (hcElem.Element(MaxAlternatives) == null)
+				hcElem.Add(new XElement(MaxAlternatives, 0));
 			if (hcElem.Element(NotOnClitics) == null)
 				hcElem.Add(new XElement(NotOnClitics, true));
 			if (hcElem.Element(AcceptUnspecifiedGraphemes) == null)
@@ -367,6 +371,7 @@ private DataTable CreateHCDataTable()
 			tblHC.Columns.Add(AcceptUnspecifiedGraphemes, typeof(bool));
 			tblHC.Columns.Add(GuessRoots, typeof(bool));
 			tblHC.Columns.Add(MergeAnalyses, typeof(bool));
+			tblHC.Columns.Add(MaxAlternatives, typeof(int));
 			tblHC.Columns.Add(Strata, typeof(string));
 			return tblHC;
 		}

Src/LexText/ParserUI/ParserParametersDlg.resx

@@ -252,7 +252,7 @@
 	<value>8, 64</value>
   </data>
   <data name="m_dataGrid1.Size" type="System.Drawing.Size, System.Drawing">
-	<value>576, 72</value>
+	<value>546, 72</value>
   </data>
   <data name="m_dataGrid1.TabIndex" type="System.Int32, mscorlib">
 	<value>6</value>
@@ -300,7 +300,7 @@
 	<value>8, 165</value>
   </data>
   <data name="m_dataGrid2.Size" type="System.Drawing.Size, System.Drawing">
-	<value>976, 100</value>
+	<value>1076, 100</value>
   </data>
   <data name="m_dataGrid2.TabIndex" type="System.Int32, mscorlib">
 	<value>8</value>
@@ -351,7 +351,7 @@
 	<value>5, 13</value>
   </data>
   <data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing">
-	<value>1000, 388</value>
+	<value>1100, 388</value>
   </data>
   <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
 	<value>