Add gcmark.in

scripts/gcmark.in

@@ -0,0 +1,32 @@
+#!@GUILE@ --no-auto-compile
+-*- scheme -*-
+!#
+;; Copyright (C) 2017  Erik Edrosa <erik.edrosa@gmail.com>
+;;
+;; This file is part of guile-commonmark
+;;
+;; guile-commonmark is free software: you can redistribute it and/or
+;; modify it under the terms of the GNU Lesser General Public License
+;; as published by the Free Software Foundation, either version 3 of
+;; the License, or (at your option) any later version.
+;;
+;; guile-commonmark is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU Lesser General Public License for more details.
+;;
+;; You should have received a copy of the GNU Lesser General Public License
+;; along with guile-commonmark.  If not, see <http://www.gnu.org/licenses/>.
+
+(use-modules (commonmark)
+             (ice-9 match)
+             (sxml simple))
+
+(setlocale LC_ALL "")
+(let ((args (command-line)))
+  (match args
+    ((_ file-name)
+     (with-output-to-file (string-append file-name ".html")
+       (lambda ()
+         (sxml->xml (call-with-input-file file-name commonmark->sxml)))))
+    (_ (display "Requires file name"))))