ctanbib (24aug18)

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

4 files changed, 142 insertions, 0 deletions

diff --git a/Build/source/texk/texlive/linked_scripts/Makefile.am b/Build/source/texk/texlive/linked_scripts/Makefile.am
index fc690d65b94..2f2e27e0d66 100644
--- a/Build/source/texk/texlive/linked_scripts/Makefile.am
+++ b/Build/source/texk/texlive/linked_scripts/Makefile.am
@@ -57,6 +57,7 @@ texmf_shell_scripts = \
 	adhocfilelist/adhocfilelist.sh \
 	bibexport/bibexport.sh \
 	checklistings/checklistings.sh \
+	ctanbib/ctanbib \
 	dtxgen/dtxgen \
 	installfont/installfont-tl \
 	latexfileversion/latexfileversion \
diff --git a/Build/source/texk/texlive/linked_scripts/Makefile.in b/Build/source/texk/texlive/linked_scripts/Makefile.in
index 27c46a0807d..d22a7d5d633 100644
--- a/Build/source/texk/texlive/linked_scripts/Makefile.in
+++ b/Build/source/texk/texlive/linked_scripts/Makefile.in
@@ -270,6 +270,7 @@ texmf_shell_scripts = \
 	adhocfilelist/adhocfilelist.sh \
 	bibexport/bibexport.sh \
 	checklistings/checklistings.sh \
+	ctanbib/ctanbib \
 	dtxgen/dtxgen \
 	installfont/installfont-tl \
 	latexfileversion/latexfileversion \
diff --git a/Build/source/texk/texlive/linked_scripts/ctanbib/ctanbib b/Build/source/texk/texlive/linked_scripts/ctanbib/ctanbib
new file mode 100755
index 00000000000..7f8ac74cb85
--- /dev/null
+++ b/Build/source/texk/texlive/linked_scripts/ctanbib/ctanbib
@@ -0,0 +1,139 @@
+#!/usr/bin/env texlua
+kpse.set_program_name("luatex")
+-- ctanbib -- export ctan entries to bib format
+-- Copyright: Michal Hoftich <michal.h21@gmail.com> (2014-2018)
+--
+-- 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 Michal Hoftich
+
+if #arg < 1 or arg[1]=="--help" or arg[1]=="-h" then
+  print [[ctanbib - convert ctan package information to bibtex format
+  Usage:
+  texlua ctanbib <package name>
+
+  This command will bibtex entry to the terminal output
+  ]]
+  os.exit(1)
+elseif arg[1]=="--version" or arg[1]=="-v" then
+  print "ctanbib version v0.1a"
+  os.exit(1)
+end
+
+local pkgname = arg[1]
+local url = "https://www.ctan.org/xml/pkg/" .. pkgname
+
+-- change that for different title scheme
+local titleformat = "The %s package"
+
+local bibtexformat = [[
+@manual{$package,
+title = {$title},
+subtitle = {$subtitle},
+author = {$author},
+url = {$url},
+urldate = {$urldate}, 
+date = {$date},
+version = {$version}
+}
+]]
+
+local dom = require('luaxml-domobject')
+
+
+local load_xml =  function(url)
+  local command = io.popen("wget -qO- ".. url,"r")
+
+  local info = command:read("*all")
+  command:close()
+
+  if string.len(info) == 0 then
+    return false
+  end
+  return dom.parse(info)
+end
+
+local get_authors = function(a)
+  local retrieved_authors = {}
+  for _, author in ipairs(a) do
+    local current = {}
+    current[#current+1] = author:get_attribute("familyname")
+    current[#current+1] = author:get_attribute("givenname")
+    table.insert(retrieved_authors, table.concat(current, ", "))
+  end
+  return table.concat(retrieved_authors," and ")
+end
+
+local get_title = function(record)
+  local title = record:query_selector("name")[1]
+  if title then
+    title = title:get_text()
+    title = title:gsub("^(.)", function(a) return unicode.utf8.upper(a) end)
+  else
+    title = pkgname
+  end
+  return string.format(titleformat, title)
+end
+
+
+local get_url = function(record)
+  local home = record:query_selector("home")[1]
+  if home then return home:get_attribute("href") end
+  return "http://www.ctan.org/pkg/"..pkgname
+end
+
+local get_caption = function(record)
+  local caption = record:query_selector("caption")[1]
+  if caption then return caption:get_text() end
+  return nil
+end
+
+local get_version = function(record)
+  local version = record:query_selector("version")[1]
+  if version then
+    return version:get_attribute("number"), version:get_attribute("date")
+  end
+end
+
+local bibtex_escape = function(a)
+  local a = a or ""
+  return a:gsub("([%$%{%}])", function(x) return '\\'..x end)
+end
+
+local compile = function(template, records)
+  return template:gsub("$([a-z]+)", function(a) 
+    return bibtex_escape(records[a]) or ""
+  end)
+end
+
+local record = load_xml(url)
+
+if not record then
+  print("Cannot find entry for package "..pkgname)
+  os.exit(1)
+end
+
+-- root element is also saved, so we use this trick 
+-- local record = entry.entry
+
+local e = {}
+
+e.author = get_authors(record:query_selector("authorref"))
+e.package = pkgname
+e.title = get_title(record)
+e.subtitle = get_caption(record)
+e.url = get_url(record)
+e.version, e.date = get_version(record)
+e.urldate = os.date("%Y-%m-%d")
+
+local result = compile(bibtexformat, e)
+
+print(result)
diff --git a/Build/source/texk/texlive/linked_scripts/scripts.lst b/Build/source/texk/texlive/linked_scripts/scripts.lst
index 212205f921e..13b45dfc51f 100644
--- a/Build/source/texk/texlive/linked_scripts/scripts.lst
+++ b/Build/source/texk/texlive/linked_scripts/scripts.lst
@@ -2,6 +2,7 @@ texmf_scripts='
 adhocfilelist/adhocfilelist.sh
 bibexport/bibexport.sh
 checklistings/checklistings.sh
+ctanbib/ctanbib
 dtxgen/dtxgen
 installfont/installfont-tl
 latexfileversion/latexfileversion