summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--tex/context/base/context-version.pdfbin4085 -> 4093 bytes
-rw-r--r--tex/context/base/publ-dat.lua21
-rw-r--r--tex/context/base/status-files.pdfbin24797 -> 24775 bytes
-rw-r--r--tex/context/base/status-lua.pdfbin229081 -> 229268 bytes
4 files changed, 14 insertions, 7 deletions
diff --git a/tex/context/base/context-version.pdf b/tex/context/base/context-version.pdf
index 12b8b4672..46c672325 100644
--- a/tex/context/base/context-version.pdf
+++ b/tex/context/base/context-version.pdf
Binary files differ
diff --git a/tex/context/base/publ-dat.lua b/tex/context/base/publ-dat.lua
index 049b97ad5..8b59b1dee 100644
--- a/tex/context/base/publ-dat.lua
+++ b/tex/context/base/publ-dat.lua
@@ -150,12 +150,17 @@ local filter_2 = Cs(
-- in tugboat.bib this is not that efficient. However, eventually strings get
-- hashed again.
-local function do_shortcut(tag,key,value,shortcuts)
+-- local function do_shortcut(tag,key,value,dataset)
+-- publicationsstats.nofshortcuts = publicationsstats.nofshortcuts + 1
+-- tag = lowercase(tag)
+-- if tag == "@string" then
+-- dataset.shortcuts[key] = value
+-- end
+-- end
+
+local function do_shortcut(key,value,dataset)
publicationsstats.nofshortcuts = publicationsstats.nofshortcuts + 1
- tag = lowercase(tag)
- if tag == "@string" then
- shortcuts[key] = value
- end
+ dataset.shortcuts[key] = value
end
local function getindex(dataset,luadata,tag)
@@ -247,14 +252,16 @@ local somevalue = s_value + d_value + b_value + r_value
local value = Cs((somevalue * ((spacing * hash * spacing)/"" * somevalue)^0))
local assignment = spacing * keyword * spacing * equal * spacing * value * spacing
-local shortcut = keyword * spacing * left * spacing * (assignment * comma^0)^0 * spacing * right * Carg(1)
+----- shortcut = keyword * spacing * left * spacing * (assignment * comma^0)^0 * spacing * right * Carg(1)
+local shortcut = P("@") * (P("string") + P("STRING")) * spacing * left * ((assignment * Carg(1))/do_shortcut * comma^0)^0 * spacing * right
local definition = keyword * spacing * left * spacing * keyword * comma * Ct((assignment * comma^0)^0) * spacing * right * Carg(1)
local comment = keyword * spacing * left * (1-right)^0 * spacing * right
local forget = percent^1 * (1-lineending)^0
-- todo \%
-local bibtotable = (space + forget + shortcut/do_shortcut + definition/do_definition + comment + 1)^0
+-- local bibtotable = (space + forget + shortcut/do_shortcut + definition/do_definition + comment + 1)^0
+local bibtotable = (space + forget + shortcut + definition/do_definition + comment + 1)^0
-- loadbibdata -> dataset.luadata
-- loadtexdata -> dataset.luadata
diff --git a/tex/context/base/status-files.pdf b/tex/context/base/status-files.pdf
index 6d6b10a19..ea41e0226 100644
--- a/tex/context/base/status-files.pdf
+++ b/tex/context/base/status-files.pdf
Binary files differ
diff --git a/tex/context/base/status-lua.pdf b/tex/context/base/status-lua.pdf
index c54deb19a..f099c4741 100644
--- a/tex/context/base/status-lua.pdf
+++ b/tex/context/base/status-lua.pdf
Binary files differ