src/Pure/Tools/fontforge.scala

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/src/Pure/Tools/fontforge.scala	Thu Nov 22 17:34:37 2018 +0100
@@ -0,0 +1,54 @@
+/*  Title:      Pure/Tools/fontforge.scala
+    Author:     Makarius
+
+Support for fontforge and its scripting language:
+https://github.com/fontforge/fontforge/blob/master/fontforge/scripting.c
+*/
+
+package isabelle
+
+
+import java.io.{File => JFile}
+import java.util.Locale
+
+
+object Fontforge
+{
+  /** scripting language **/
+
+  type Script = String
+
+
+  /* concrete syntax */
+
+  def string(s: String): Script =
+  {
+    val quote = if (s.contains('"')) '\'' else '"'
+
+    def err(c: Char): Nothing =
+      error("Bad character in fontforge string: \\u" +
+        String.format(Locale.ROOT, "%04x", new Integer(c)))
+
+    def escape(c: Char): String =
+    {
+      if (c == '\u0000' || c == '\r' || c == quote) err(c)
+      else if (c == '\n') "\\n"
+      else if (c == '\\') "\\\\"
+      else c.toString
+    }
+
+    if (s.nonEmpty && s(0) == '\\') err('\\')
+    s.iterator.map(escape(_)).mkString(quote.toString, "", quote.toString)
+  }
+
+
+  /* execute process */
+
+  def execute(script: Script, args: String = "", cwd: JFile = null): Process_Result =
+    Isabelle_System.with_tmp_file("fontforge")(script_file =>
+    {
+      File.write(script_file, script)
+      Isabelle_System.bash(File.bash_path(Path.explode("$ISABELLE_FONTFORGE")) +
+        " -lang=ff -script " + File.bash_path(script_file) + " " + args)
+    })
+}