summaryrefslogtreecommitdiff
path: root/tex
diff options
context:
space:
mode:
Diffstat (limited to 'tex')
-rw-r--r--tex/context/base/cldf-com.lua2
-rw-r--r--tex/context/base/cldf-ini.lua4
-rw-r--r--tex/context/base/cldf-prs.lua2
-rw-r--r--tex/context/base/cont-new.mkiv2
-rw-r--r--tex/context/base/context-version.pdfbin4113 -> 4115 bytes
-rw-r--r--tex/context/base/context.mkiv2
-rw-r--r--tex/context/base/status-files.pdfbin24741 -> 24748 bytes
-rw-r--r--tex/context/base/status-lua.log2
-rw-r--r--tex/context/base/syst-aux.lua9
-rw-r--r--tex/context/base/syst-aux.mkiv9
-rw-r--r--tex/context/base/typo-fln.lua11
-rw-r--r--tex/generic/context/luatex/luatex-fonts-merged.lua2
12 files changed, 31 insertions, 14 deletions
diff --git a/tex/context/base/cldf-com.lua b/tex/context/base/cldf-com.lua
index fa0dbed3e..bd357b712 100644
--- a/tex/context/base/cldf-com.lua
+++ b/tex/context/base/cldf-com.lua
@@ -6,6 +6,8 @@ if not modules then modules = { } end modules ['cldf-com'] = {
license = "see context related readme files"
}
+-- todo ... needs more thinking ... a special table toolkit
+
local tostring = tostring
local context = context
local generics = context.generics -- needs documentation
diff --git a/tex/context/base/cldf-ini.lua b/tex/context/base/cldf-ini.lua
index 44bf522d3..d9bb9bd31 100644
--- a/tex/context/base/cldf-ini.lua
+++ b/tex/context/base/cldf-ini.lua
@@ -809,7 +809,7 @@ end
-- context.delayed (todo: lines)
-local delayed = { } context.delayed = delayed -- maybe also store them
+local delayed = { } context.delayed = delayed -- creates function (maybe also store them)
local function indexer(parent,k)
local f = function(...)
@@ -871,7 +871,7 @@ setmetatable(delayed, { __index = indexer, __call = caller } )
-- context.nested (todo: lines)
-local nested = { } context.nested = nested
+local nested = { } context.nested = nested -- creates strings
local function indexer(parent,k)
local f = function(...)
diff --git a/tex/context/base/cldf-prs.lua b/tex/context/base/cldf-prs.lua
index 9fbdba0c8..160d30b19 100644
--- a/tex/context/base/cldf-prs.lua
+++ b/tex/context/base/cldf-prs.lua
@@ -6,6 +6,8 @@ if not modules then modules = { } end modules ['cldf-bas'] = {
license = "see context related readme files"
}
+-- used in chem-ini.lua
+
local lpegmatch, patterns = lpeg.match, lpeg.patterns
local P, R, V, Cc, Cs = lpeg.P, lpeg.R, lpeg.V, lpeg.Cc, lpeg.Cs
local format = string.format
diff --git a/tex/context/base/cont-new.mkiv b/tex/context/base/cont-new.mkiv
index 5abe7235b..dfac919dd 100644
--- a/tex/context/base/cont-new.mkiv
+++ b/tex/context/base/cont-new.mkiv
@@ -11,7 +11,7 @@
%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
%C details.
-\newcontextversion{2013.09.20 19:25}
+\newcontextversion{2013.09.21 10:50}
%D This file is loaded at runtime, thereby providing an excellent place for
%D hacks, patches, extensions and new features.
diff --git a/tex/context/base/context-version.pdf b/tex/context/base/context-version.pdf
index 3df1382a4..78c5807a6 100644
--- a/tex/context/base/context-version.pdf
+++ b/tex/context/base/context-version.pdf
Binary files differ
diff --git a/tex/context/base/context.mkiv b/tex/context/base/context.mkiv
index 829a4fb18..e13588f8a 100644
--- a/tex/context/base/context.mkiv
+++ b/tex/context/base/context.mkiv
@@ -25,7 +25,7 @@
%D up and the dependencies are more consistent.
\edef\contextformat {\jobname}
-\edef\contextversion{2013.09.20 19:25}
+\edef\contextversion{2013.09.21 10:50}
\edef\contextkind {beta}
%D For those who want to use this:
diff --git a/tex/context/base/status-files.pdf b/tex/context/base/status-files.pdf
index 8433d8fe2..3a770384d 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.log b/tex/context/base/status-lua.log
index 0980247f4..0b1d2cfb7 100644
--- a/tex/context/base/status-lua.log
+++ b/tex/context/base/status-lua.log
@@ -1,6 +1,6 @@
(cont-yes.mkiv
-ConTeXt ver: 2013.09.20 19:25 MKIV beta fmt: 2013.9.20 int: english/english
+ConTeXt ver: 2013.09.21 10:50 MKIV beta fmt: 2013.9.21 int: english/english
system > 'cont-new.mkiv' loaded
(cont-new.mkiv)
diff --git a/tex/context/base/syst-aux.lua b/tex/context/base/syst-aux.lua
index f9c0dfc1c..9ef28996a 100644
--- a/tex/context/base/syst-aux.lua
+++ b/tex/context/base/syst-aux.lua
@@ -29,6 +29,15 @@ function commands.getfirstcharacter(str)
setvalue("remainingcharacters",rest)
end
+function commands.thefirstcharacter(str)
+ local first, rest = lpegmatch(pattern,str)
+ context(first)
+end
+function commands.theremainingcharacters(str)
+ local first, rest = lpegmatch(pattern,str)
+ context(rest)
+end
+
local pattern = C(utf8char^-1)
function commands.doiffirstcharelse(chr,str)
diff --git a/tex/context/base/syst-aux.mkiv b/tex/context/base/syst-aux.mkiv
index 5cb6ff8b2..372080949 100644
--- a/tex/context/base/syst-aux.mkiv
+++ b/tex/context/base/syst-aux.mkiv
@@ -1243,8 +1243,13 @@
%D complicated arguments, for instance arguments that
%D consist of two or more expandable tokens.
-\def\getfirstcharacter #1{\ctxcommand{getfirstcharacter(\!!bs#1\!!es)}}
-\def\doiffirstcharelse#1#2{\ctxcommand{doiffirstcharelse(\!!bs#1\!!es,\!!bs#2\!!es)}} % chr str
+\let\firstcharacter \empty
+\let\remainingcharacters\empty
+
+\unexpanded\def\getfirstcharacter #1{\ctxcommand{getfirstcharacter(\!!bs#1\!!es)}}
+\unexpanded\def\doiffirstcharelse #1#2{\ctxcommand{doiffirstcharelse(\!!bs#1\!!es,\!!bs#2\!!es)}} % chr str
+\unexpanded\def\thefirstcharacter #1{\ctxcommand{thefirstcharacter(\!!bs#1\!!es)}}
+\unexpanded\def\theremainingcharacters#1{\ctxcommand{theremainingcharacters(\!!bs#1\!!es)}}
%D \macros
%D {doifinstringelse, doifincsnameelse}
diff --git a/tex/context/base/typo-fln.lua b/tex/context/base/typo-fln.lua
index 38aba2d22..db3331b0a 100644
--- a/tex/context/base/typo-fln.lua
+++ b/tex/context/base/typo-fln.lua
@@ -37,10 +37,9 @@ local insert_node_after = nodes.insert_after
local insert_node_before = nodes.insert_before
local hpack_node_list = nodes.hpack
-local hpack_filter = nodes.processors.hpack_filter
-
-local newpenalty = nodes.pool.penalty
-local newkern = nodes.pool.kern
+local nodepool = nodes.pool
+local newpenalty = nodepool.penalty
+local newkern = nodepool.kern
local tracerrule = nodes.tracers.pool.nodes.rule
local actions = { }
@@ -217,11 +216,11 @@ end
actions[v_default] = actions[v_line]
-local function process(namespace,attribute,head)
+function firstlines.handler(head)
local start = head
local attr = nil
while start do
- attr = start[attribute]
+ attr = start[a_firstline]
if attr then
break
elseif start.id == glyph then
diff --git a/tex/generic/context/luatex/luatex-fonts-merged.lua b/tex/generic/context/luatex/luatex-fonts-merged.lua
index 1b3b5b968..4a209c836 100644
--- a/tex/generic/context/luatex/luatex-fonts-merged.lua
+++ b/tex/generic/context/luatex/luatex-fonts-merged.lua
@@ -1,6 +1,6 @@
-- merged file : luatex-fonts-merged.lua
-- parent file : luatex-fonts.lua
--- merge date : 09/20/13 19:25:59
+-- merge date : 09/21/13 10:50:31
do -- begin closure to overcome local limits and interference