Private Sub CreateModuleFile As ResumableSub
Dim sb As StringBuilder
sb.Initialize
sb.Append($"module ${TargetModule} {"$).Append(CRLF)
For Each Module In Modules
sb.Append("requires ").Append(Module).Append(";").Append(CRLF)
Next
sb.Append("exports ").Append(PackageName).Append(";").Append(CRLF)
If File.Exists(TempFolder, ReplaceSlashes("META-INF\services")) Then
For Each f As String In File.ListFiles(File.Combine(TempFolder, ReplaceSlashes("META-INF\services")))
sb.Append("uses ").Append(f).Append(";").Append(CRLF)
Next
End If
sb.Append("opens schemaorg_apache_xmlbeans.system.sD023D6490046BA0250A839A9AD24C443;")
sb.Append("}")
File.WriteString(TempFolder, "module-info.java", sb.ToString)
Dim args As List = Array($"--patch-module"$, $"${TargetModule}=jar.jar"$, "-p", Q(JavaFXLibs), "module-info.java")
Wait For (RunShell(False, "javac", args)) Complete (StdOut As String)
Wait For (RunShell(False, "jar", Array("-uf", "jar.jar", "module-info.class"))) Complete (Output As String)
Return True
End Sub