Added JavaTrieInstall that loads JLink and the corresponding JavaTrie…

… classes.

JavaTriesWithFrequencies.m

@@ -134,6 +134,9 @@ Mathematica is (C) Copyright 1988-2017 Wolfram Research, Inc.
 JavaTrieInsert::usage = "JavaTrieInsert[ jTr_, sw:{_String..}] inserts a list of strings into the Java trie jTr.\
  JavaTrieInsert[ jTr_, sws:{{_String..}..}] inserts each of the \"words\" of sws into jTr."
 
+JavaTrieInstall::usage = "JavaTrieInstall[path_String] installs Java and loads the JavaTrie classes\
+ from the jar file in the specified class path."
+
 JavaTrieMapOptimizationCall::usage = "Used for optimization calls over lists of \"words\"."
 
 JavaTrieMemberQ::usage = "Same as JavaTrieContains."
@@ -204,6 +207,21 @@ Mathematica is (C) Copyright 1988-2017 Wolfram Research, Inc.
       TrieFunctions`merge[jTr, jTr2]
     ];
 
+Clear[JavaTrieInstall]
+JavaTrieInstall[path_String, opts:OptionsPattern[]] :=
+    Block[{},
+      Needs["JLink`"];
+      JLink`AddToClassPath[path];
+      If[ Length[{opts}] > 0,
+        JLink`ReinstallJava[opts],
+        JLink`ReinstallJava[JLink`JVMArguments -> "-Xmx2g"]
+      ];
+      JLink`LoadJavaClass["java.util.Collections"];
+      JLink`LoadJavaClass["java.util.Arrays"];
+      JLink`LoadJavaClass["Trie"];
+      JLink`LoadJavaClass["TrieFunctions"];
+    ];
+
 Clear[JavaTrieNodeCounts]
 JavaTrieNodeCounts[jTr_?JavaObjectQ] :=
     AssociationThread[{"total","internal","leaves"}->JLink`JavaObjectToExpression[TrieFunctions`nodeCounts[jTr]]];