From 0dd651f35e691106d11b16e652037aeebb140942 Mon Sep 17 00:00:00 2001 From: Context Git Mirror Bot Date: Sun, 22 Jun 2014 20:15:04 +0200 Subject: 2014-06-22 20:01:00 --- tex/context/base/colo-ext.mkiv | 14 +++++++------- tex/context/base/cont-new.mkiv | 2 +- tex/context/base/context-version.pdf | Bin 4344 -> 4350 bytes tex/context/base/context.mkiv | 2 +- tex/context/base/lpdf-grp.lua | 2 +- tex/context/base/meta-pdf.lua | 3 ++- tex/context/base/mlib-pps.lua | 4 ++-- tex/context/base/node-fin.lua | 2 +- tex/context/base/status-files.pdf | Bin 24848 -> 24859 bytes tex/context/base/status-lua.pdf | Bin 248319 -> 248321 bytes tex/context/base/task-ini.lua | 5 +++-- tex/context/base/typo-del.mkiv | 2 +- tex/context/base/typo-drp.lua | 9 +++++++++ tex/context/base/util-str.lua | 2 +- tex/generic/context/luatex/luatex-fonts-merged.lua | 4 ++-- 15 files changed, 31 insertions(+), 20 deletions(-) (limited to 'tex') diff --git a/tex/context/base/colo-ext.mkiv b/tex/context/base/colo-ext.mkiv index 8878da485..41d60cb0b 100644 --- a/tex/context/base/colo-ext.mkiv +++ b/tex/context/base/colo-ext.mkiv @@ -29,13 +29,13 @@ %D %D will negate the colors in box zero. -\unexpanded\def\negatecolorbox#1% - {\setbox#1\hbox - {\startnegative % might change - % \startcolor[\s!white]\vrule\s!height\ht#1\s!depth\dp#1\s!width\wd#1\stopcolor - \blackrule[\c!color=\s!white,\c!height=\ht#1,\c!depth=\dp#1,\c!width=\wd#1]% - \hskip-\wd#1% - \box#1% +\unexpanded\def\negatecolorbox#1% or just set attr of #1 + {\setbox#1\hbox to \wd#1% + {\scratchdimen\wd#1\relax + \startnegative % might change + \blackrule[\c!color=\s!white,\c!height=\ht#1,\c!depth=\dp#1,\c!width=\scratchdimen]% + \hskip-\scratchdimen + \leaders\box#1\hfill% this triggers application to the box .. a real dirty hack! \stopnegative}} %D There are in principle two ways to handle overprint: bound to colors diff --git a/tex/context/base/cont-new.mkiv b/tex/context/base/cont-new.mkiv index e59aca503..bd6e4ba28 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{2014.06.22 16:29} +\newcontextversion{2014.06.22 19:58} %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 448932606..7efbbe53d 100644 Binary files a/tex/context/base/context-version.pdf and b/tex/context/base/context-version.pdf differ diff --git a/tex/context/base/context.mkiv b/tex/context/base/context.mkiv index 172479e77..8c2f9fcaf 100644 --- a/tex/context/base/context.mkiv +++ b/tex/context/base/context.mkiv @@ -28,7 +28,7 @@ %D up and the dependencies are more consistent. \edef\contextformat {\jobname} -\edef\contextversion{2014.06.22 16:29} +\edef\contextversion{2014.06.22 19:58} \edef\contextkind {beta} %D For those who want to use this: diff --git a/tex/context/base/lpdf-grp.lua b/tex/context/base/lpdf-grp.lua index b3cc7ce1f..36c3507be 100644 --- a/tex/context/base/lpdf-grp.lua +++ b/tex/context/base/lpdf-grp.lua @@ -118,7 +118,7 @@ function nodeinjections.injectbitmap(t) height = width * yresolution / xresolution end local image = img.new { - stream = format(template,d(),t.data), + stream = formatters[template](d(),t.data), width = width, height = height, bbox = { 0, 0, urx, ury }, diff --git a/tex/context/base/meta-pdf.lua b/tex/context/base/meta-pdf.lua index 03ea1358b..7a66081e7 100644 --- a/tex/context/base/meta-pdf.lua +++ b/tex/context/base/meta-pdf.lua @@ -411,7 +411,8 @@ function mps.fshow(str,font,scale) -- lpeg parser mps.textext(font,scale,lpegmatch(package,str)) end -local cnumber = lpegC(number) +----- cnumber = lpegC(number) +local cnumber = number/tonumber -- we now expect numbers (feeds into %F) local cstring = lpegC(nonspace) local specials = (lpegP("%%MetaPostSpecials:") * sp * (cstring * sp^0)^0 * eol) / mps.specials diff --git a/tex/context/base/mlib-pps.lua b/tex/context/base/mlib-pps.lua index 0f38c271e..9a3ab8f4c 100644 --- a/tex/context/base/mlib-pps.lua +++ b/tex/context/base/mlib-pps.lua @@ -903,8 +903,8 @@ local function tx_analyze(object,prescript) -- todo: hash content and reuse them c = lpegmatch(pat,txc) end end - local a = prescript.tr_alternative - local t = prescript.tr_transparency + local a = tonumber(prescript.tr_alternative) + local t = tonumber(prescript.tr_transparency) local h = fmt(tx_number,a or "-",t or "-",c or "-") local n = data.texhash[h] -- todo: hashed variant with s (nicer for similar labels) if not n then diff --git a/tex/context/base/node-fin.lua b/tex/context/base/node-fin.lua index 5758fea38..bb3800615 100644 --- a/tex/context/base/node-fin.lua +++ b/tex/context/base/node-fin.lua @@ -9,7 +9,7 @@ if not modules then modules = { } end modules ['node-fin'] = { -- this module is being reconstructed -- local functions, only slightly slower -- --- leaders are also triggers +-- leaders are also triggers ... see colo-ext for an example (negate a box) local next, type, format = next, type, string.format diff --git a/tex/context/base/status-files.pdf b/tex/context/base/status-files.pdf index 0ecd99ad8..25568dc25 100644 Binary files a/tex/context/base/status-files.pdf and b/tex/context/base/status-files.pdf differ diff --git a/tex/context/base/status-lua.pdf b/tex/context/base/status-lua.pdf index 972214aef..977d36057 100644 Binary files a/tex/context/base/status-lua.pdf and b/tex/context/base/status-lua.pdf differ diff --git a/tex/context/base/task-ini.lua b/tex/context/base/task-ini.lua index 3dc5e71b4..e47d71105 100644 --- a/tex/context/base/task-ini.lua +++ b/tex/context/base/task-ini.lua @@ -41,7 +41,7 @@ appendaction("processors", "words", "builders.kernel.hyphenation") appendaction("processors", "words", "languages.words.check") -- disabled -- might move up, no disc check needed then appendaction("processors", "words", "typesetters.initials.handler") -- disabled -- might move up -appendaction("processors", "words", "typesetters.firstlines.handler") -- disabled -- might move up +appendaction("processors", "words", "typesetters.firstlines.handler") -- disabled -- might move down appendaction("processors", "fonts", "builders.paragraphs.solutions.splitters.split") -- experimental appendaction("processors", "fonts", "nodes.handlers.characters") -- maybe todo @@ -57,7 +57,8 @@ appendaction("processors", "lists", "typesetters.spacings.handler") appendaction("processors", "lists", "typesetters.kerns.handler") -- disabled appendaction("processors", "lists", "typesetters.digits.handler") -- disabled (after otf handling) appendaction("processors", "lists", "typesetters.italics.handler") -- disabled (after otf/kern handling) -------------("processors", "lists", "typesetters.initials.handler") -- disabled + +-- appendaction("processors", "lists", "typesetters.initials.handler") -- disabled appendaction("shipouts", "normalizers", "builders.paragraphs.expansion.trace") -- disabled appendaction("shipouts", "normalizers", "nodes.handlers.cleanuppage") -- disabled diff --git a/tex/context/base/typo-del.mkiv b/tex/context/base/typo-del.mkiv index f2f2055a1..fadb93810 100644 --- a/tex/context/base/typo-del.mkiv +++ b/tex/context/base/typo-del.mkiv @@ -365,7 +365,7 @@ \pushmacro\checkindentation \edef\p_delimited_indenting{\delimitedtextparameter\c!indenting}% \ifx\p_delimited_indenting\empty \else - \setupindenting[\p_indenting]% todo: use fast one (no [] checking) + \setupindenting[\p_delimited_indenting]% todo: use fast one (no [] checking) \fi % \begingroup diff --git a/tex/context/base/typo-drp.lua b/tex/context/base/typo-drp.lua index 9151100b6..ec1b52699 100644 --- a/tex/context/base/typo-drp.lua +++ b/tex/context/base/typo-drp.lua @@ -324,6 +324,15 @@ actions[v_default] = function(head,setting) if dynamic > 0 then setattr(current,0,dynamic) end +-- apply font + +-- local g = nodes.copy(tonode(current)) +-- g.subtype = 0 +-- nodes.handlers.characters(g) +-- nodes.handlers.protectglyphs(g) +-- setfield(current,"char",g.char) +-- nodes.free(g) + -- can be a helper if ca and ca > 0 then setattr(current,a_colorspace,ma == 0 and 1 or ma) diff --git a/tex/context/base/util-str.lua b/tex/context/base/util-str.lua index 73a586b61..89d8bb48d 100644 --- a/tex/context/base/util-str.lua +++ b/tex/context/base/util-str.lua @@ -537,7 +537,7 @@ end -- We could probably use just %s with integers but who knows what Lua 5.3 will do? So let's -- for the moment use %i. -local format_F = function() +local format_F = function() -- beware, no cast to number n = n + 1 if not f or f == "" then return format("(((a%s > -0.0000000005 and a%s < 0.0000000005) and '0') or format((a%s %% 1 == 0) and '%%i' or '%%.9f',a%s))",n,n,n,n) diff --git a/tex/generic/context/luatex/luatex-fonts-merged.lua b/tex/generic/context/luatex/luatex-fonts-merged.lua index a53a8c15b..2b7b84101 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 : 06/22/14 16:29:33 +-- merge date : 06/22/14 19:58:56 do -- begin closure to overcome local limits and interference @@ -2860,7 +2860,7 @@ local format_f=function(f) n=n+1 return format("format('%%%sf',a%s)",f,n) end -local format_F=function() +local format_F=function() n=n+1 if not f or f=="" then return format("(((a%s > -0.0000000005 and a%s < 0.0000000005) and '0') or format((a%s %% 1 == 0) and '%%i' or '%%.9f',a%s))",n,n,n,n) -- cgit v1.2.3