summaryrefslogtreecommitdiff
path: root/Build/source/texk
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2018-08-24 22:24:44 +0000
committerKarl Berry <karl@freefriends.org>2018-08-24 22:24:44 +0000
commit7976f25a5f69446c038495311c84616348963731 (patch)
treed9cfa29a4ca67bb942b9ebf0bbe2e628db844ffa /Build/source/texk
parent9dec02fb03afe114f68ce75e31f6c5f8ee0adcf8 (diff)
ctanbib (24aug18)
git-svn-id: svn://tug.org/texlive/trunk@48478 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk')
-rw-r--r--Build/source/texk/texlive/linked_scripts/Makefile.am1
-rw-r--r--Build/source/texk/texlive/linked_scripts/Makefile.in1
-rwxr-xr-xBuild/source/texk/texlive/linked_scripts/ctanbib/ctanbib139
-rw-r--r--Build/source/texk/texlive/linked_scripts/scripts.lst1
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