summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/context/base/publ-usr.lua
blob: 901f116296c342a432284eae230940b75b6fb170 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
if not modules then modules = { } end modules ['publ-usr'] = {
    version   = 1.001,
    comment   = "this module part of publication support",
    author    = "Hans Hagen, PRAGMA-ADE, Hasselt NL",
    copyright = "PRAGMA ADE / ConTeXt Development Team",
    license   = "see context related readme files"
}

local P, Cs, R, Cc, C, Carg = lpeg.P, lpeg.Cs, lpeg.R, lpeg.Cc, lpeg.C, lpeg.Carg
local lpegmatch = lpeg.match
local settings_to_hash = utilities.parsers.settings_to_hash

local publications = publications
local datasets     = publications.datasets

local report       = logs.reporter("publications")
local trace        = false  trackers.register("publications",function(v) trace = v end)

-- local str = [[
--     \startpublication[k=Berdnikov:TB21-2-129,t=article,a={{Berdnikov},{}},y=2000,n=2257,s=BHHJ00]
--     \artauthor[]{Alexander}[A.]{}{Berdnikov}
--     \artauthor[]{Hans}[H.]{}{Hagen}
--     \artauthor[]{Taco}[T.]{}{Hoekwater}
--     \artauthor[]{Bogus{\l}aw}[B.]{}{Jackowski}
--     \pubyear{2000}
--     \arttitle{{Even more MetaFun with \MP: A request for permission}}
--     \journal{TUGboat}
--     \issn{0896-3207}
--     \volume{21}
--     \issue{2}
--     \pages{129--130}
--     \month{6}
--     \stoppublication
-- ]]

local lists = {
    author    = true,
    editor    = true,
 -- artauthor = true,
 -- arteditor = true,
}

local function registervalue(target,key,value)
    target[key] = value
end

-- Instead of being generic we just hardcode the old stuff:

local function registerauthor(target,key,juniors,firstnames,initials,vons,surnames)
    local value = target[key]
    target[key]= ((value and value .. " and {") or "{") ..
        vons       .. "},{" ..
        surnames   .. "},{" ..
        juniors    .. "},{" ..
        firstnames .. "},{" ..
        initials   .. "}"
end

local leftbrace    = P("{")
local rightbrace   = P("}")
local leftbracket  = P("[")
local rightbracket = P("]")
local backslash    = P("\\")
local letter       = R("az","AZ")

local skipspaces   = lpeg.patterns.whitespace^0
local key          = Cs(letter^1)
local value        = leftbrace   * Cs(lpeg.patterns.balanced) * rightbrace
local optional     = leftbracket * Cs((1-rightbracket)^0)     * rightbracket

local authorkey    = (P("artauthor") + P("author")) / "author"
                   + (P("arteditor") + P("editor")) / "editor"
local authorvalue  = (optional + Cc("{}")) * skipspaces -- [juniors]
                   * (value    + Cc("{}")) * skipspaces -- {firstnames}
                   * (optional + Cc("{}")) * skipspaces -- [initials]
                   * (value    + Cc("{}")) * skipspaces -- {vons}
                   * (value    + Cc("{}")) * skipspaces -- {surnames}

local keyvalue     = Carg(1) * authorkey * skipspaces * authorvalue / registerauthor
                   + Carg(1) * key       * skipspaces * value       / registervalue

local pattern      = (backslash * keyvalue + P(1))^0

local function addtexentry(dataset,settings,content)
    local current  = datasets[dataset]
    local settings = settings_to_hash(settings)
    local data = {
        tag      = settings.tag      or settings.k or "no tag",
        category = settings.category or settings.t or "article",
    }
    lpegmatch(pattern,content,1,data) -- can set tag too
    local tag   = data.tag
    local index = publications.getindex(dataset,current.luadata,tag)
    current.ordered[index] = data
    current.luadata[tag]   = data
    current.userdata[tag]  = data
    current.details[tag]   = nil
    return data
end

local pattern = ( Carg(1)
      * P("\\startpublication")
      * skipspaces
      * optional
      * C((1 - P("\\stoppublication"))^1)
      * P("\\stoppublication") / addtexentry
      + P("%") * (1-lpeg.patterns.newline)^0
      + P(1)
)^0

function publications.loaders.bbl(dataset,filename)
    local dataset, fullname = publications.resolvedname(dataset,filename)
    if not fullname then
        return
    end
    local data = io.loaddata(filename) or ""
    if data == "" then
        report("empty file %a, nothing loaded",fullname)
        return
    end
    if trace then
        report("loading file %a",fullname)
    end
    lpegmatch(pattern,data,1,dataset)
end

publications.addtexentry = addtexentry
commands.addbtxentry     = addtexentry