markdown (9apr18)

git-svn-id: svn://tug.org/texlive/trunk@47397 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 196 insertions, 0 deletions

diff --git a/Master/texmf-dist/scripts/markdown/markdown-cli.lua b/Master/texmf-dist/scripts/markdown/markdown-cli.lua
new file mode 100644
index 00000000000..d5a65a518f4
--- /dev/null
+++ b/Master/texmf-dist/scripts/markdown/markdown-cli.lua
@@ -0,0 +1,196 @@
+-- 
+-- Copyright (C) 2009-2016 John MacFarlane, Hans Hagen
+-- 
+-- Permission is hereby granted, free of charge, to any person obtaining
+-- a copy of this software and associated documentation files (the
+-- "Software"), to deal in the Software without restriction, including
+-- without limitation the rights to use, copy, modify, merge, publish,
+-- distribute, sublicense, and/or sell copies of the Software, and to
+-- permit persons to whom the Software is furnished to do so, subject to
+-- the following conditions:
+-- 
+-- The above copyright notice and this permission notice shall be included
+-- in all copies or substantial portions of the Software.
+-- 
+-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+-- EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
+-- IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
+-- CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
+-- TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+-- SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+-- 
+-- Copyright (C) 2018 Vít Novotný
+-- 
+-- This work may be distributed and/or modified under the
+-- conditions of the LaTeX Project Public License, either version 1.3
+-- of this license or (at your option) any later version.
+-- The latest version of this license is in
+-- 
+--     http://www.latex-project.org/lppl.txt
+-- 
+-- and version 1.3 or later is part of all distributions of LaTeX
+-- version 2005/12/01 or later.
+-- 
+-- This work has the LPPL maintenance status `maintained'.
+-- The Current Maintainer of this work is Vít Novotný.
+-- 
+-- Send bug reports, requests for additions and questions
+-- either to the GitHub issue tracker at
+-- 
+--     https://github.com/witiko/markdown/issues
+-- 
+-- or to the e-mail address <witiko@mail.muni.cz>.
+-- 
+-- MODIFICATION ADVICE:
+-- 
+-- If you want to customize this file, it is best to make a copy of
+-- the source file(s) from which it was produced. Use a different
+-- name for your copy(ies) and modify the copy(ies); this will ensure
+-- that your modifications do not get overwritten when you install a
+-- new release of the standard system. You should also ensure that
+-- your modified source file does not generate any modified file with
+-- the same name as a standard file.
+-- 
+-- You will also need to produce your own, suitably named, .ins file to
+-- control the generation of files from your source file; this file
+-- should contain your own preambles for the files it generates, not
+-- those in the standard .ins files.
+-- 
+local metadata = {
+    version   = "2.5.6",
+    comment   = "A module for the conversion from markdown to plain TeX",
+    author    = "John MacFarlane, Hans Hagen, Vít Novotný",
+    copyright = {"2009-2016 John MacFarlane, Hans Hagen",
+                 "2016-2018 Vít Novotný"},
+    license   = "LPPL 1.3"
+}
+
+local defaultOptions = {}
+defaultOptions.cacheDir = "."
+defaultOptions.blankBeforeBlockquote = false
+defaultOptions.blankBeforeCodeFence = false
+defaultOptions.blankBeforeHeading = false
+defaultOptions.breakableBlockquotes = false
+defaultOptions.citationNbsps = true
+defaultOptions.citations = false
+defaultOptions.codeSpans = true
+defaultOptions.contentBlocks = false
+defaultOptions.contentBlocksLanguageMap = "markdown-languages.json"
+defaultOptions.definitionLists = false
+defaultOptions.fencedCode = false
+defaultOptions.footnotes = false
+defaultOptions.hashEnumerators = false
+defaultOptions.html = false
+defaultOptions.hybrid = false
+defaultOptions.inlineFootnotes = false
+defaultOptions.preserveTabs = false
+defaultOptions.smartEllipses = false
+defaultOptions.startNumber = true
+defaultOptions.tightLists = true
+defaultOptions.underscores = true
+
+HELP_STRING = [[
+Usage: texlua ]] .. arg[0] .. [[ [OPTIONS] -- [INPUT_FILE] [OUTPUT_FILE]
+where OPTIONS are documented in the Lua interface section of the
+technical Markdown package documentation.
+
+When OUTPUT_FILE is unspecified, the result of the conversion will be
+written to the standard output. When INPUT_FILE is also unspecified, the
+result of the conversion will be read from the standard input.
+
+Report bugs to: witiko@mail.muni.cz
+Markdown package home page: <https://github.com/witiko/markdown>]]
+
+VERSION_STRING = [[
+markdown-cli.lua (Markdown) ]] .. metadata.version .. [[
+
+Copyright (C) ]] .. table.concat(metadata.copyright,
+                                 "\nCopyright (C) ") .. [[
+
+License: ]] .. metadata.license
+
+local function warn(s)
+  io.stderr:write("Warning: " .. s .. "\n") end
+
+local function error(s)
+  io.stderr:write("Error: " .. s .. "\n")
+  os.exit(1) end
+
+local process_options = true
+local options = {}
+local input_filename
+local output_filename
+for i = 1, #arg do
+  if process_options then
+    if arg[i] == "--" then
+      process_options = false
+      goto continue
+    elseif arg[i]:match("=") then
+      key, value = arg[i]:match("(.-)=(.*)")
+      default_type = type(defaultOptions[key])
+      if default_type == "boolean" then
+        options[key] = (value == "true")
+      else
+        if default_type ~= "string" then
+          if default_type == "nil" then
+            warn('Option "' .. key .. '" not recognized.')
+          else
+            warn('Option "' .. key .. '" type not recognized, please file ' ..
+                 'a report to the package maintainer.')
+          end
+          warn('Parsing the ' .. 'value "' .. value ..'" of option "' ..
+               key .. '" as a string.')
+        end
+        options[key] = value
+      end
+      goto continue
+    elseif arg[i] == "--help" or arg[i] == "-h" then
+      print(HELP_STRING)
+      os.exit()
+    elseif arg[i] == "--version" or arg[i] == "-v" then
+      print(VERSION_STRING)
+      os.exit()
+    end
+  end
+  if input_filename == nil then
+    input_filename = arg[i]
+  elseif output_filename == nil then
+    output_filename = arg[i]
+  else
+    error('Unexpected argument: "' .. arg[i] .. '".')
+  end
+  ::continue::
+end
+
+local input
+if input_filename then
+  local input_file = io.open(input_filename, "r")
+  input = assert(input_file:read("*a"))
+  input_file:close()
+else
+  input = assert(io.read("*a"))
+end
+
+local lfs = require("lfs")
+if options.cacheDir and not lfs.isdir(options.cacheDir) then
+  assert(lfs.mkdir(options["cacheDir"]))
+end
+
+local kpse = require("kpse")
+kpse.set_program_name("luatex")
+local md = require("markdown")
+if metadata.version ~= md.metadata.version then
+  warn("markdown-cli.lua " .. metadata.version .. " used with " ..
+       "markdown.lua " .. md.metadata.version .. ".")
+end
+local convert = md.new(options)
+local output = convert(input:gsub("\r\n?", "\n"))
+
+if output_filename then
+  local output_file = io.open(output_filename, "w")
+  assert(output_file:write(output))
+  assert(output_file:close())
+else
+  assert(io.write(output))
+end