From 8d8d528d2ad52599f11250cfc567fea4f37f2a8b Mon Sep 17 00:00:00 2001
From: Context Git Mirror Bot <phg42.2a@gmail.com>
Date: Tue, 12 Jan 2016 17:15:07 +0100
Subject: 2016-01-12 16:26:00

---
 tex/context/base/mkiv/util-lib-imp-gm.lua | 69 +++++++++++++++++++++++++++++++
 1 file changed, 69 insertions(+)
 create mode 100644 tex/context/base/mkiv/util-lib-imp-gm.lua

(limited to 'tex/context/base/mkiv/util-lib-imp-gm.lua')

diff --git a/tex/context/base/mkiv/util-lib-imp-gm.lua b/tex/context/base/mkiv/util-lib-imp-gm.lua
new file mode 100644
index 000000000..4c5254721
--- /dev/null
+++ b/tex/context/base/mkiv/util-lib-imp-gm.lua
@@ -0,0 +1,69 @@
+if not modules then modules = { } end modules ['util-lib-imp-gm'] = {
+    version   = 1.001,
+    comment   = "a mkiv swiglib module",
+    author    = "Hans Hagen, PRAGMA-ADE, Hasselt NL",
+    copyright = "PRAGMA ADE / ConTeXt Development Team",
+    license   = "see context related readme files",
+}
+
+local graphicmagick     = utilities.graphicmagick or { }
+utilities.graphicmagick = graphicmagick
+
+local report_gm = logs.reporter("swiglib gm")
+
+local gm = swiglib("gmwand.core")
+
+if gm then
+    report_gm("library loaded")
+    -- inspect(table.sortedkeys(gm))
+else
+    return
+end
+
+local nofruns = 0
+
+function graphicmagick.convert(specification)
+    --
+    nofruns = nofruns + 1
+    statistics.starttiming(graphicmagick)
+    --
+    local inputname  = specification.inputname
+    if not inputname or inputname == "" then
+        report_gm("invalid run %s, no inputname specified",nofruns)
+        statistics.stoptiming(graphicmagick)
+        return false
+    end
+    local outputname = specification.outputname
+    if not outputname or outputname == "" then
+        outputname = file.replacesuffix(inputname,"pdf")
+    end
+    --
+    if not lfs.isfile(inputname) then
+        report_gm("invalid run %s, input file %a is not found",nofruns,inputname)
+        statistics.stoptiming(graphicmagick)
+        return false
+    end
+    --
+    report_gm("run %s, input file %a, outputfile %a",nofruns,inputname,outputname)
+    local magick_wand = gm.NewMagickWand()
+    gm.MagickReadImage(magick_wand,inputname)
+    gm.MagickWriteImage(magick_wand,outputname)
+    gm.DestroyMagickWand(magick_wand)
+    --
+    statistics.stoptiming(graphicmagick)
+end
+
+function graphicmagick.statistics(report)
+    local runtime = statistics.elapsedtime(graphicmagick)
+    if report then
+        report_gm("nofruns %s, runtime %s",nofruns,runtime)
+    else
+        return {
+            runtime = runtime,
+            nofruns = nofruns,
+        }
+    end
+end
+
+-- graphicmagick.convert { inputname = "t:/sources/hacker.jpg", outputname = "e:/tmp/hacker.png" }
+-- graphicmagick.statistics(true)
-- 
cgit v1.2.3