diff options
Diffstat (limited to 'tex')
22 files changed, 626 insertions, 448 deletions
diff --git a/tex/context/base/anch-pgr.mkiv b/tex/context/base/anch-pgr.mkiv index 8b5853029..ebfd67083 100644 --- a/tex/context/base/anch-pgr.mkiv +++ b/tex/context/base/anch-pgr.mkiv @@ -754,9 +754,80 @@ \newskip\textbackgroundskip +% \def\dostarttextbackgroundpar +% {\endgraf % new +% \textbackgroundparameter\c!before +% \noindent +% \ifgridsnapping +% \doassignsomeskip\textbackgroundparameter\c!topoffset\to\textbackgroundskip +% \ifdim\textbackgroundskip>\zeropoint +% \struttedbox{\hbox{\raise\textbackgroundskip\hbox{\fpos\currentparbackground}}}% +% \else +% \fpos\currentparbackground +% \fi +% \else +% \fpos\currentparbackground +% \fi +% \bgroup +% \endgraf % we need a vertical nobreak - 29/06/2004 +% \nobreak \vskip-\lineheight \nobreak +% \ifgridsnapping \else +% \doassignsomeskip\textbackgroundparameter\c!topoffset\to\textbackgroundskip +% \ifdim\textbackgroundskip>\zeropoint +% \kern\textbackgroundskip\nobreak +% \fi +% \fi +% \dosetleftskipadaption{\textbackgroundparameter\c!leftoffset}% +% \advance\leftskip\leftskipadaption +% \dosetleftskipadaption{\textbackgroundparameter\c!rightoffset}% +% \advance\rightskip\leftskipadaption +% % new +% \dosetraggedcommand{\textbackgroundparameter\c!align}% +% \raggedcommand +% % +% \dostartattributes{\??td\currenttextbackground}\c!style\c!color\empty +% \nowhitespace +% \nobreak % new per 23/04/2006 (else potential break when whitespace) +% \seteffectivehsize +% \doinhibitblank % \blank[\v!disable]% new +% \par} + +% \def\dostoptextbackgroundpar +% {\par +% \removelastskip % new +% \dostopattributes +% \doassignsomeskip\textbackgroundparameter\c!bottomoffset\to\textbackgroundskip +% \ifdim\lastskip>\zeropoint +% \advance\textbackgroundskip-\lastskip +% \fi +% \ifgridsnapping \else \ifdim\textbackgroundskip>\zeropoint +% \kern\textbackgroundskip\nobreak +% \fi \fi +% \nobreak \vskip-\dimexpr\lineheight+\parskip\relax \nobreak +% %\nobreak \vskip-\lineheight \nobreak \nowhitespace % does not work +% \egroup +% \bgroup \forgeteverypar % NOT REALLY NEEDED, SAVES HASH/MEM +% \nobreak \noindent \strut \hfill \kern\zeropoint +% \doassignsomeskip\textbackgroundparameter\c!bottomoffset\to\textbackgroundskip +% \ifgridsnapping % experimental, pascal (todo: topoffset in same way) +% \ifdim\textbackgroundskip>\zeropoint +% \struttedbox\plusone{\hbox{\lower\textbackgroundskip\hbox{\tpos\currentparbackground}}}% +% \else +% \tpos\currentparbackground +% \fi +% \else +% \tpos\currentparbackground +% \fi +% \egroup +% \endgraf % new +% \textbackgroundparameter\c!after} + \def\dostarttextbackgroundpar {\endgraf % new \textbackgroundparameter\c!before + \bgroup +\begingroup +\resetallattributes % \attribute\linenumberattribute \attributeunsetvalue \noindent \ifgridsnapping \doassignsomeskip\textbackgroundparameter\c!topoffset\to\textbackgroundskip @@ -768,8 +839,8 @@ \else \fpos\currentparbackground \fi - \bgroup \endgraf % we need a vertical nobreak - 29/06/2004 +\endgroup \nobreak \vskip-\lineheight \nobreak \ifgridsnapping \else \doassignsomeskip\textbackgroundparameter\c!topoffset\to\textbackgroundskip @@ -807,17 +878,19 @@ % \nobreak \vskip-\lineheight \nobreak \nowhitespace % does not work \egroup \bgroup \forgeteverypar % NOT REALLY NEEDED, SAVES HASH/MEM +\resetallattributes % \attribute\linenumberattribute \attributeunsetvalue \nobreak \noindent \strut \hfill \kern\zeropoint \doassignsomeskip\textbackgroundparameter\c!bottomoffset\to\textbackgroundskip \ifgridsnapping % experimental, pascal (todo: topoffset in same way) \ifdim\textbackgroundskip>\zeropoint - \struttedbox{\hbox{\lower\textbackgroundskip\hbox{\tpos\currentparbackground}}}% + \struttedbox\plusone{\hbox{\lower\textbackgroundskip\hbox{\tpos\currentparbackground}}}% \else \tpos\currentparbackground \fi \else \tpos\currentparbackground \fi +\endgraf \egroup \endgraf % new \textbackgroundparameter\c!after} @@ -904,10 +977,9 @@ \c!leftoffset,\c!rightoffset,\c!topoffset,\c!bottomoffset]% \getparameters[\??td#1][#2]% \doifvalue{\??td#1\c!state}\v!start\checktextbackgrounds - \setuvalue{#1}% - {\groupedcommand{\starttextbackground[#1]}{\stoptextbackground}}% - \setvalue{\e!start#1}{\starttextbackground[#1]}% - \setvalue{\e!stop #1}{\stoptextbackground}% + \setuvalue{#1}{\groupedcommand{\starttextbackground[#1]}{\stoptextbackground}}% + \setuvalue{\e!start#1}{\starttextbackground[#1]}% + \setuvalue{\e!stop #1}{\stoptextbackground}% \fi} \unexpanded\def\setuptextbackground diff --git a/tex/context/base/cont-new.mkii b/tex/context/base/cont-new.mkii index e6ede8ea3..ab9b2c0c8 100644 --- a/tex/context/base/cont-new.mkii +++ b/tex/context/base/cont-new.mkii @@ -11,7 +11,7 @@ %C therefore copyrighted by \PRAGMA. See mreadme.pdf for %C details. -\newcontextversion{2011.07.26 09:17} +\newcontextversion{2011.08.04 00:42} %D This file is loaded at runtime, thereby providing an %D excellent place for hacks, patches, extensions and new diff --git a/tex/context/base/cont-new.mkiv b/tex/context/base/cont-new.mkiv index e6907e393..3a3d255bf 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{2011.07.26 09:17} +\newcontextversion{2011.08.04 00:42} %D This file is loaded at runtime, thereby providing an %D excellent place for hacks, patches, extensions and new diff --git a/tex/context/base/context-version.pdf b/tex/context/base/context-version.pdf Binary files differnew file mode 100644 index 000000000..37f99f05f --- /dev/null +++ b/tex/context/base/context-version.pdf diff --git a/tex/context/base/context-version.png b/tex/context/base/context-version.png Binary files differnew file mode 100644 index 000000000..92421e41a --- /dev/null +++ b/tex/context/base/context-version.png diff --git a/tex/context/base/context.css b/tex/context/base/context.css index f332ae242..1214d2cef 100644 --- a/tex/context/base/context.css +++ b/tex/context/base/context.css @@ -18,6 +18,26 @@ a.dir-view:link, a.dir-view:active, a.dir-view:visited { .invalid { color: #FF0000 ; } +button, .commonlink, .smallbutton { + font-weight: bold ; + font-size: 12px ; + text-decoration: none ; + color: #000000 ; + border-color: #7F7F7F ; + border-style: solid ; + border-width: .125ex ; + background-color: #FFFFFF ; + padding: .5ex ; +} +.smallbutton { + width: 1em ; +} +a.commonlink:link, a.commonlink:active, a.commonlink:visited, a.smalllink:link, a.smalllink:active, a.smalllink:visited { + font-weight: bold ; + font-size: 12px ; + text-decoration: none ; + color: #000000 ; +} h1, .title { font-style: normal ; font-weight: normal ; diff --git a/tex/context/base/context.mkii b/tex/context/base/context.mkii index 87b7cd40f..9bde019ef 100644 --- a/tex/context/base/context.mkii +++ b/tex/context/base/context.mkii @@ -20,7 +20,7 @@ %D your styles an modules. \edef\contextformat {\jobname} -\edef\contextversion{2011.07.26 09:17} +\edef\contextversion{2011.08.04 00:42} %D For those who want to use this: diff --git a/tex/context/base/context.mkiv b/tex/context/base/context.mkiv index 1d29337c6..3fca14cff 100644 --- a/tex/context/base/context.mkiv +++ b/tex/context/base/context.mkiv @@ -20,7 +20,7 @@ %D your styles an modules. \edef\contextformat {\jobname} -\edef\contextversion{2011.07.26 09:17} +\edef\contextversion{2011.08.04 00:42} %D For those who want to use this: diff --git a/tex/context/base/l-lpeg.lua b/tex/context/base/l-lpeg.lua index de9d9e5e3..dbfc7401c 100644 --- a/tex/context/base/l-lpeg.lua +++ b/tex/context/base/l-lpeg.lua @@ -154,25 +154,6 @@ patterns.unspacer = ((patterns.spacer^1)/"")^0 patterns.somecontent = (anything - newline - space)^1 -- (utf8char - newline - space)^1 patterns.beginline = #(1-newline) --- local unquoted = Cs(patterns.unquoted * endofstring) -- not C --- --- function string.unquoted(str) --- return match(unquoted,str) or str --- end --- --- more efficient on long strings: - -local unquoted = ( - squote * Cs((1 - P(-2))^0) * squote - + dquote * Cs((1 - P(-2))^0) * dquote -) - -function string.unquoted(str) - return match(unquoted,str) or str -end - -patterns.unquoted = unquoted - -- print(string.unquoted("test")) -- print(string.unquoted([["t\"est"]])) -- print(string.unquoted([["t\"est"x]])) diff --git a/tex/context/base/m-markdown.lua b/tex/context/base/m-markdown.lua index bddc38280..1f9402f60 100644 --- a/tex/context/base/m-markdown.lua +++ b/tex/context/base/m-markdown.lua @@ -1,6 +1,6 @@ -if not modules then modules = { } end modules ['x-markdown'] = { - version = 1.001, - comment = "companion to x-markdown.mkiv", +if not modules then modules = { } end modules ['m-markdown'] = { + version = 1.002, + comment = "companion to m-markdown.mkiv", author = "Hans Hagen, PRAGMA-ADE, Hasselt NL", copyright = "see below", license = "see context related readme files" @@ -35,66 +35,42 @@ are mine. Eventually I might also adapt the parser code a bit more. When I ran i closure stack limitations I decided to flatten the code. The following implementation seems to be a couple of hundred times faster than what I started with which is not that bad. + +This is a second rewrite. The mentioned speed gain largely depended on the kind of +content: blocks, references and items can be rather demanding. Also, There were +some limitations with respect to the captures. So, table storage has been removed in +favor of strings, and nesting has been simplified. The first example at the end of this +file now takes .33 seconds for 567KB code (resulting in over 1MB) so we're getting there. + +There will be a third rewrite eventually. ]]-- -- todo: we have better quote and tag scanners in ctx -- todo: provide an xhtml mapping +-- todo: add a couple of extensions +-- todo: check patches to the real peg -local type, next = type, next +local type, next, tonumber = type, next, tonumber local lower, upper, gsub, rep, gmatch, format, length = string.lower, string.upper, string.gsub, string.rep, string.gmatch, string.format, string.len local concat = table.concat local P, R, S, V, C, Ct, Cg, Cb, Cmt, Cc, Cf, Cs = lpeg.P, lpeg.R, lpeg.S, lpeg.V, lpeg.C, lpeg.Ct, lpeg.Cg, lpeg.Cb, lpeg.Cmt, lpeg.Cc, lpeg.Cf, lpeg.Cs local lpegmatch = lpeg.match -local utfbyte = utf.byte +local utfbyte, utfchar = utf.byte, utf.char +moduledata = moduledata or { } moduledata.markdown = moduledata.markdown or { } local markdown = moduledata.markdown local nofruns, nofbytes, nofhtmlblobs = 0, 0, 0 -local function process(func,t) - if func then - for i=1,#t do - t[i] = func(t[i]) - end - return t - else - return "ERROR: NO FUNCTION" - end -end +--------------------------------------------------------------------------------------------- -local function traverse_tree(t,buffer,n) - for k, v in next, t do - if type(v) == "string" then - n = n + 1 - buffer[n] = v - else - n = traverse_tree(v,buffer,n) - end - end - return n -end - -local function to_string(t) - local buffer = { } - traverse_tree(t, buffer, 0) - return concat(buffer) -end +local nestedparser +local syntax -local function normalize_label(a) - return upper(gsub(a, "[\n\r\t ]+", " ")) -end +nestedparser = function(str) return lpegmatch(syntax,str) end --- generic - -local blocktags = table.tohash { - "address", "blockquote" , "center", "dir", "div", "p", "pre", - "li", "ol", "ul", "dl", "dd", - "form", "fieldset", "isindex", "menu", "noframes", "frameset", - "h1", "h2", "h3", "h4", "h5", "h6", - "hr", "ht", "script", "noscript", - "table", "tbody", "tfoot", "thead", "th", "td", "tr", -} +--------------------------------------------------------------------------------------------- local asterisk = P("*") local dash = P("-") @@ -117,6 +93,7 @@ local slash = P("/") local equal = P("=") local colon = P(":") local semicolon = P(";") +local exclamation = P("!") local digit = R("09") local hexdigit = R("09","af","AF") @@ -131,6 +108,7 @@ local always = P("") local tab = P("\t") local spacechar = S("\t ") +local spacing = S(" \n\r\t") local newline = P("\r")^-1 * P("\n") local spaceornewline = spacechar + newline local nonspacechar = any - spaceornewline @@ -143,20 +121,16 @@ local blanklines = blankline^0 local skipblanklines = (optionalspace * newline)^0 local linechar = P(1 - newline) local indent = fourspaces + (nonindentspace * tab) / "" -local indentedline = indent * C(linechar^1 * (newline + eof)) -local optionallyindentedline = indent^-1 * C(linechar^1 * (newline + eof)) +local indentedline = indent /"" * C(linechar^1 * (newline + eof)) +local optionallyindentedline = indent^-1 /"" * C(linechar^1 * (newline + eof)) local spnl = optionalspace * (newline * optionalspace)^-1 local specialchar = S("*_`*&[]<!\\") local normalchar = any - (specialchar + spaceornewline) local line = C((any - newline)^0 * newline) + C(any^1 * eof) local nonemptyline = (any - newline)^1 * newline -local htmlattributevalue = squote * C((any - (blankline + squote))^0) * squote - + dquote * C((any - (blankline + dquote))^0) * dquote - + (any - S("\t >"))^1 -- any - tab - space - more -local htmlattribute = (alphanumeric + S("_-"))^1 * spnl * (equal * spnl * htmlattributevalue)^-1 * spnl -local htmlcomment = P("<!--") * (any - P("-->"))^0 * P("-->") -local htmltag = less * spnl * slash^-1 * alphanumeric^1 * spnl * htmlattribute^0 * slash^-1 * spnl * more + +--------------------------------------------------------------------------------------------- local function lineof(c) return (nonindentspace * (P(c) * optionalspace)^3 * newline * blankline^1) @@ -169,6 +143,8 @@ local lineof_underscores = lineof(underscore) local bullet = nonindentspace * (plus + (asterisk - lineof_asterisks) + (dash - lineof_dashes)) * spaces local enumerator = nonindentspace * digit^1 * period * spaces +--------------------------------------------------------------------------------------------- + local openticks = Cg(backtick^1, "ticks") local closeticks = space^-1 * Cmt(C(backtick^1) * Cb("ticks"), function(s,i,a,b) return #a == #b and i end) local intickschar = (any - S(" \n\r`")) @@ -177,19 +153,148 @@ local intickschar = (any - S(" \n\r`")) + (backtick^1 - closeticks) local inticks = openticks * space^-1 * C(intickschar^1) * closeticks +--------------------------------------------------------------------------------------------- + +local leader = space^-3 +local nestedbrackets = P { lbracket * ((1 - lbracket - rbracket) + V(1))^0 * rbracket } +local tag = lbracket * C((nestedbrackets + 1 - rbracket)^0) * rbracket +local url = less * C((1-more)^0) * more + + C((1-spacing- rparent)^1) -- sneaky: ) for resolver +local title_s = squote * lpeg.C((1-squote )^0) * squote +local title_d = dquote * lpeg.C((1-dquote )^0) * dquote +local title_p = lparent * lpeg.C((1-rparent)^0) * rparent +local title = title_s + title_d + title_p +local optionaltitle = ((spacing^0 * title * spacechar^0) + lpeg.Cc("")) + +local references = { } + +local function register_link(tag,url,title) + tag = lower(gsub(tag, "[ \n\r\t]+", " ")) + references[tag] = { url, title } +end + +local function direct_link(label,url,title) -- title is typical html thing + return label, url, title +end + +local function indirect_link(label,tag) + if tag == "" then + tag = label + end + tag = lower(gsub(tag, "[ \n\r\t]+", " ")) + local r = references[tag] + if r then + return label, r[1], r[2] + else + return label, tag, "" + end +end + +local define_reference_parser = (leader * tag * colon * spacechar^0 * url * optionaltitle) / register_link +local direct_link_parser = tag * spacechar^0 * lparent * (url + Cc("")) * optionaltitle * rparent / direct_link +local indirect_link_parser = tag * spacechar^0 * tag / indirect_link + +local rparser = (define_reference_parser+1)^0 + +local function referenceparser(str) + references = { } + lpegmatch(rparser,str) +end + +-- local reftest = [[ +-- [1]: <http://example.com/> +-- [3]:http://example.com/ (Optional Title Here) +-- [2]: http://example.com/ 'Optional Title Here' +-- [a]: http://example.com/ "Optional *oeps* Title Here" +-- ]] +-- +-- local linktest = [[ +-- [This link] (http://example.net/) +-- [an example] (http://example.com/ "Title") +-- [an example][1] +-- [an example] [2] +-- ]] +-- +-- lpeg.match((define_reference_parser+1)^0,reftest) +-- +-- inspect(references) +-- +-- lpeg.match((direct_link_parser/print + indirect_link_parser/print + 1)^0,linktest) + +--------------------------------------------------------------------------------------------- + +local blocktags = table.tohash { + "address", "blockquote" , "center", "dir", "div", "p", "pre", + "li", "ol", "ul", "dl", "dd", + "form", "fieldset", "isindex", "menu", "noframes", "frameset", + "h1", "h2", "h3", "h4", "h5", "h6", + "hr", "ht", "script", "noscript", + "table", "tbody", "tfoot", "thead", "th", "td", "tr", +} + +----- htmlattributevalue = squote * C((any - (blankline + squote))^0) * squote +----- + dquote * C((any - (blankline + dquote))^0) * dquote +----- + (any - S("\t >"))^1 -- any - tab - space - more +----- htmlattribute = (alphanumeric + S("_-"))^1 * spnl * (equal * spnl * htmlattributevalue)^-1 * spnl +----- htmlcomment = P("<!--") * (any - P("-->"))^0 * P("-->") + +----- htmltag = less * spnl * slash^-1 * alphanumeric^1 * spnl * htmlattribute^0 * slash^-1 * spnl * more +----- +----- blocktag = Cmt(C(alphanumeric^1), function(s,i,a) return blocktags[lower(a)] and i, a end) +----- +----- openblocktag = less * Cg(blocktag, "opentag") * spnl * htmlattribute^0 * more +----- closeblocktag = less * slash * Cmt(C(alphanumeric^1) * Cb("opentag"), function(s,i,a,b) return lower(a) == lower(b) and i end) * spnl * more +----- selfclosingblocktag = less * blocktag * spnl * htmlattribute^0 * slash * more +----- +----- displayhtml = Cs { "HtmlBlock", +----- InBlockTags = openblocktag * (V("HtmlBlock") + (any - closeblocktag))^0 * closeblocktag, +----- HtmlBlock = C(V("InBlockTags") + selfclosingblocktag + htmlcomment), +----- } +----- +----- inlinehtml = Cs(htmlcomment + htmltag) + +-- There is no reason to support crappy html, so we expect proper attributes. + +local htmlattributevalue = squote * C((any - (blankline + squote))^0) * squote + + dquote * C((any - (blankline + dquote))^0) * dquote +local htmlattribute = (alphanumeric + S("_-"))^1 * spnl * equal * spnl * htmlattributevalue * spnl + +local htmlcomment = P("<!--") * (any - P("-->"))^0 * P("-->") +local htmlinstruction = P("<?") * (any - P("?>" ))^0 * P("?>" ) + +-- We don't care too much about matching elements and there is no reason why display elements could not +-- have inline elements so the above should be patched then. Well, markdown mixed with html is not meant +-- for anything else than webpages anyway. + local blocktag = Cmt(C(alphanumeric^1), function(s,i,a) return blocktags[lower(a)] and i, a end) -local openblocktag = less * spnl * Cg(blocktag, "opentag") * spnl * htmlattribute^0 * more -local closeblocktag = less * spnl * slash * Cmt(C(alphanumeric^1) * Cb("opentag"), function(s,i,a,b) return lower(a) == lower(b) and i end) * spnl * more -local selfclosingblocktag = less * spnl * slash^-1 * blocktag * spnl * htmlattribute^0 * slash * spnl * more +local openelement = less * alphanumeric^1 * spnl * htmlattribute^0 * more +local closeelement = less * slash * alphanumeric^1 * spnl * more +local emptyelement = less * alphanumeric^1 * spnl * htmlattribute^0 * slash * more + +local displaytext = (any - less)^1 +local inlinetext = displaytext / nestedparser + +local displayhtml = #(less * blocktag * spnl * htmlattribute^0 * more) + * Cs { "HtmlBlock", + InBlockTags = openelement * (V("HtmlBlock") + displaytext)^0 * closeelement, + HtmlBlock = (V("InBlockTags") + emptyelement + htmlcomment + htmlinstruction), + } --- yields a blank line unless we're at the beginning of the document -- can be made more efficient +local inlinehtml = Cs { "HtmlBlock", + InBlockTags = openelement * (V("HtmlBlock") + inlinetext)^0 * closeelement, + HtmlBlock = (V("InBlockTags") + emptyelement + htmlcomment + htmlinstruction), + } -interblockspace = Cmt(blanklines, function(s,i) if i == 1 then return i, "" else return i, "\n" end end) +--------------------------------------------------------------------------------------------- -local nestedparser -- forward reference +local hexentity = ampersand * hash * S("Xx") * C(hexdigit ^1) * semicolon +local decentity = ampersand * hash * C(digit ^1) * semicolon +local tagentity = ampersand * C(alphanumeric^1) * semicolon --- helper stuff +--------------------------------------------------------------------------------------------- + +-- --[[ local escaped = { ["{" ] = "", @@ -207,150 +312,67 @@ for k, v in next, escaped do escaped[k] = "\\char" .. utfbyte(k) .. "{}" end -local itemsignal = "\001" - -local itemsplitter = lpeg.tsplitat(itemsignal) - --- what is lab.inline +local function c_string(s) -- has to be done more often + return (gsub(s,".",escaped)) +end local c_linebreak = "\\crlf\n" -- is this ok? -local c_entity = "?" -- todo, no clue of usage (use better entity handler) local c_space = " " -local function c_string(s) - return (gsub(s,".",escaped)) -end - local function c_paragraph(c) - return { c, "\n" } -- { "\\startparagraph ", c, " \\stopparagraph\n" } + return c .. "\n\n" -- { "\\startparagraph ", c, " \\stopparagraph\n" } end --- local function c_plain(c) --- return c --- end - --- itemize - local function listitem(c) - return { - "\\startitem\n", - process(nestedparser, lpegmatch(itemsplitter,c) or c), - "\n\\stopitem\n" - } + return format("\n\\startitem\n%s\n\\stopitem\n",nestedparser(c)) end local function c_tightbulletlist(c) - return { - "\\startmarkdownitemize[packed]\n", - process(listitem, c), - "\\stopmarkdownitemize\n" - } + return format("\n\\startmarkdownitemize[packed]\n%s\\stopmarkdownitemize\n",c) end local function c_loosebulletlist(c) - return { - "\\startmarkdownitemize\n", - process(listitem, c), - "\\stopmarkdownitemize\n" - } + return format("\n\\startmarkdownitemize\n\\stopmarkdownitemize\n",c) end local function c_tightorderedlist(c) - return { - "\\startmarkdownitemize[n,packed]\n", - process(listitem, c), - "\\stopmarkdownitemize\n" - } + return format("\n\\startmarkdownitemize[n,packed]\n%s\\stopmarkdownitemize\n",c) end local function c_looseorderedlist(c) - return { - "\\startmarkdownitemize[n]\n", - process(listitem, c), - "\\stopmarkdownitemize\n" - } + return format("\n\\startmarkdownitemize[n]\n%s\\stopmarkdownitemize\n",c) end --- html - -local showhtml = false - -local function c_inline_html(c) +local function c_inline_html(content) nofhtmlblobs = nofhtmlblobs + 1 - if showhtml then - local x = xml.convert(c) - return { - "\\type{", - xml.tostring(x), - "}" - } - else - return "" - end + return format("\\markdowninlinehtml{%s}",content) end -local function c_display_html(c) +local function c_display_html(content) nofhtmlblobs = nofhtmlblobs + 1 - if showhtml then - local x = xml.convert(c) - return { - "\\starttyping\n", - xml.tostring(x), - "\\stoptyping\n" - } - else - return "" - end + return format("\\startmarkdowndisplayhtml\n%s\n\\stopmarkdowndisplayhtml",content) end --- highlight - local function c_emphasis(c) - return { - "\\markdownemphasis{", - c, - "}" - } + return format("\\markdownemphasis{%s}",c) end local function c_strong(c) - return { - "\\markdownstrong{", - c, - "}" - } + return format("\\markdownstrong{%s}",c) end --- blockquote - local function c_blockquote(c) - return { - "\\startmarkdownblockquote\n", - nestedparser(concat(c,"\n")), - "\\stopmarkdownblockquote\n" - } + return format("\\startmarkdownblockquote\n%s\\stopmarkdownblockquote\n",nestedparser(c)) end --- verbatim - local function c_verbatim(c) - return { - "\\startmarkdowntyping\n", - concat(c), - "\\stopmarkdowntyping\n" - } + return format("\\startmarkdowntyping\n%s\\stopmarkdowntyping\n",c) end local function c_code(c) - return { - "\\markdowntype{", - c, - "}" - } + return format("\\markdowntype{%s}",c) end --- sectioning (only relative, so no # -> ###) - local levels = { "", "", "", "", "", "" } local function c_start_document() @@ -371,307 +393,285 @@ local function c_heading(level,c) levels[i] = "" end levels[level] = "\\stopstructurelevel" - return { - finish, - "\\startstructurelevel[markdown][title={", - c, - "}]\n" - } + return format("%s\\startstructurelevel[markdown][title={%s}]\n",finish,c) end --- - local function c_hrule() return "\\markdownrule\n" end local function c_link(lab,src,tit) - return { - "\\goto{", - lab.inlines, - "}[url(", - src, - ")]" - } + return format("\\goto{%s}[url(%s)]",nestedparser(lab),src) end local function c_image(lab,src,tit) - return { - "\\externalfigure[", - src, - "]" - } -end - -local function c_email_link(addr) - return c_link(addr,"mailto:"..addr) + return format("\\externalfigure[%s]",src) end --- Instead of local lpeg definitions we defne the nested parser first (this trick --- could be backported to the original code if needed). - -local references = { } - -local function f_reference_set(lab,src,tit) - return { - key = normalize_label(lab.raw), - label = lab.inlines, - source = src, - title = tit - } +local function c_email_link(address) + return format("\\goto{%s}[url(mailto:%s)]",c_string(address),address) end -local function f_reference_link_double(s,i,l) - local key = normalize_label(l.raw) - if references[key] then - return i, references[key].source, references[key].title - else - return false - end +local function c_url_link(url) + return format("\\goto{%s}[url(%s)]",c_string(url),url) end -local function f_reference_link_single(s,i,l) - local key = normalize_label(l.raw) - if references[key] then - return i, l, references[key].source, references[key].title - else - return false - end +local function f_heading(c,n) + return c_heading(n,c) end -local function f_label_collect(a) - return { "[", a.inlines, "]" } +local function c_hex_entity(s) + return utfchar(tonumber(s,16)) end -local function f_label(a,b) - return { - raw = a, - inlines = b - } +local function c_dec_entity(s) + return utfchar(tonumber(s)) end -local function f_pack_list(a) - return itemsignal .. concat(a) +local function c_tag_entity(s) + return s -- we can use the default resolver end -local function f_reference(ref) - references[ref.key] = ref -end +--]] -local function f_append(a,b) - return a .. b -end +--------------------------------------------------------------------------------------------- -local function f_level_one_heading(c) - return c_heading(1,c) -end +--[[ -local function f_level_two_heading(c) - return c_heading(2,c) -end +local escaped = { + ["<"] = "<", + [">"] = ">", + ["&"] = "&", + ['"'] = """, +} -local function f_link(a) - return c_link({ inlines = c_string(a) }, a, "") +local function c_string(s) -- has to be done more often + return (gsub(s,".",escaped)) end -local syntax - -nestedparser = function(inp) return to_string(lpegmatch(syntax,inp)) end - -syntax = { "Document", -- still rather close to the original but reformatted etc etc - - Document = #(Cmt(V("References"), function(s,i,a) return i end)) -- what does this do - * Ct((interblockspace * V("Block"))^0) - * blanklines * eof, - - References = (V("Reference") / f_reference + (nonemptyline^1 * blankline^1) + line)^0 - * blanklines * eof, - - Block = V("Blockquote") - + V("Verbatim") - + V("Reference") / { } - + V("HorizontalRule") - + V("Heading") - + V("OrderedList") - + V("BulletList") - + V("HtmlBlock") - + V("Para") - + V("Plain"), - - Heading = V("AtxHeading") - + V("SetextHeading"), - - AtxStart = C(hash * hash^-5) / length, - - AtxInline = V("Inline") - V("AtxEnd"), - - AtxEnd = optionalspace * hash^0 * optionalspace * newline * blanklines, - - AtxHeading = V("AtxStart") * optionalspace * Ct(V("AtxInline")^1) * V("AtxEnd") / c_heading, - - SetextHeading = V("SetextHeading1") - + V("SetextHeading2"), - - SetextHeading1 = Ct((V("Inline") - V("Endline"))^1) * newline * equal^3 * newline * blanklines / f_level_one_heading, - SetextHeading2 = Ct((V("Inline") - V("Endline"))^1) * newline * dash ^3 * newline * blanklines / f_level_two_heading, - - BulletList = V("BulletListTight") - + V("BulletListLoose"), - - BulletListTight = Ct((bullet * V("ListItem"))^1) * blanklines * -bullet / c_tightbulletlist, +local c_linebreak = "<br/>" +local c_space = " " - BulletListLoose = Ct((bullet * V("ListItem") * C(blanklines) / f_append)^1) / c_loosebulletlist, -- just Cs +local function c_paragraph(c) + return format("<p>%s</p>\n", c) +end - OrderedList = V("OrderedListTight") + V("OrderedListLoose"), +local function listitem(c) + return format("<li>%s</li>",nestedparser(c)) +end - OrderedListTight = Ct((enumerator * V("ListItem"))^1) * blanklines * -enumerator / c_tightorderedlist, +local function c_tightbulletlist(c) + return format("<ul>\n%s\n</ul>\n",c) +end - OrderedListLoose = Ct((enumerator * V("ListItem") * C(blanklines) / f_append)^1) / c_looseorderedlist, -- just Cs +local function c_loosebulletlist(c) + return format("<ul>\n%s\n</ul>\n",c) +end - ListItem = Ct(V("ListBlock") * (V("NestedList") + V("ListContinuationBlock")^0)) / concat, +local function c_tightorderedlist(c) + return format("<ol>\n%s\n</ol>\n",c) +end - ListBlock = Ct(line * V("ListBlockLine")^0) / concat, +local function c_looseorderedlist(c) + return format("<ol>\n%s\n</ol>\n",c) +end - ListContinuationBlock = blanklines * indent * V("ListBlock"), +local function c_inline_html(content) + nofhtmlblobs = nofhtmlblobs + 1 + return content +end - NestedList = Ct((optionallyindentedline - (bullet + enumerator))^1) / f_pack_list, +local function c_display_html(content) + nofhtmlblobs = nofhtmlblobs + 1 + return format("\n%s\n",content) +end - ListBlockLine = -blankline * -(indent^-1 * (bullet + enumerator)) * optionallyindentedline, +local function c_emphasis(c) + return format("<em>%s</em>",c) +end - InBlockTags = openblocktag * (V("HtmlBlock") + (any - closeblocktag))^0 * closeblocktag, +local function c_strong(c) + return format("<strong>%s</strong>",c) +end - HtmlBlock = C(V("InBlockTags") + selfclosingblocktag + htmlcomment) * blankline^1 / c_display_html, +local function c_blockquote(c) + return format("<blockquote>\n%s\n</blockquote>",nestedparser(c)) +end - BlockquoteLine = ((nonindentspace * more * space^-1 * C(linechar^0) * newline)^1 * ((C(linechar^1) - blankline) * newline)^0 * C(blankline)^0 )^1, +local function c_verbatim(c) + return format("<pre><code>%s</code></pre>",c) +end - Blockquote = Ct((V("BlockquoteLine"))^1) / c_blockquote, +local function c_code(c) + return format("<code>%s</code>",c) +end - VerbatimChunk = blanklines * (indentedline - blankline)^1, +local c_start_document = "" +local c_stop_document = "" - Verbatim = Ct(V("VerbatimChunk")^1) * (blankline^1 + eof) / c_verbatim, +local function c_heading(level,c) + return format("<h%d>%s</h%d>\n",level,c,level) +end - Label = lbracket * Cf(Cc("") * #((C(V("Label") + V("Inline")) - rbracket)^1), f_append) * - Ct((V("Label") / f_label_collect + V("Inline") - rbracket)^1) * rbracket / f_label, +local function c_hrule() + return "<hr/>\n" +end - RefTitle = dquote * C((any - (dquote ^-1 * blankline))^0) * dquote + - squote * C((any - (squote ^-1 * blankline))^0) * squote + - lparent * C((any - (rparent * blankline))^0) * rparent + - Cc(""), +local function c_link(lab,src,tit) + local titattr = #tit > 0 and format(" title=%q",tit) or "" + return format("<a href=%q%s>%s</a>",src,titattr,nestedparser(lab)) +end - RefSrc = C(nonspacechar^1), +local function c_image(lab,src,tit) + return format("<img href=%q title=%q>%s</a>",src,tit,nestedparser(lab)) +end - Reference = nonindentspace * V("Label") * colon * spnl * V("RefSrc") * spnl * V("RefTitle") * blanklines / f_reference_set, +local function c_email_link(address) + return format("<a href=%q>%s</a>","mailto:",address,c_escape(address)) +end - HorizontalRule = (lineof_asterisks + lineof_dashes + lineof_underscores) / c_hrule, +local function c_url_link(url) + return format("<a href=%q>%s</a>",url,c_string(url)) +end - Para = nonindentspace * Ct(V("Inline")^1) * newline * blankline^1 / c_paragraph, +local function f_heading(c,n) + return c_heading(n,c) +end - Plain = Ct(V("Inline")^1), -- / c_plain, +local function c_hex_entity(s) + return utfchar(tonumber(s,16)) +end - Inline = V("Str") - + V("Endline") - + V("UlOrStarLine") - + V("Space") - + V("Strong") - + V("Emphasis") - + V("Image") - + V("Link") - + V("Code") - + V("RawHtml") - + V("Entity") - + V("EscapedChar") - + V("Symbol"), +local function c_dec_entity(s) + return utfchar(tonumber(s)) +end - RawHtml = C(htmlcomment + htmltag) / c_inline_html, +local function c_tag_entity(s) + return format("&%s;",s) +end - EscapedChar = P("\\") * C(P(1 - newline)) / c_string, +--]] - -- we will use the regular entity handler +--------------------------------------------------------------------------------------------- - Entity = V("HexEntity") - + V("DecEntity") - + V("CharEntity") / c_entity, +local Str = normalchar^1 / c_string +local Space = spacechar^1 / c_space +local Symbol = specialchar / c_string +local Code = inticks / c_code - HexEntity = C(ampersand * hash * S("Xx") * hexdigit^1 * semicolon), - DecEntity = C(ampersand * hash * digit^1 * semicolon), - CharEntity = C(ampersand * alphanumeric^1 * semicolon), +local HeadingStart = C(hash * hash^-5) / length +local HeadingStop = optionalspace * hash^0 * optionalspace * newline * blanklines +local HeadingLevel = equal^3 * Cc(1) + + dash ^3 * Cc(2) - -- +local NormalEndline = optionalspace * newline * -( + blankline + + more + + HeadingStart + + ( line * (P("===")^3 + P("---")^3) * newline ) + ) / c_space - Endline = V("LineBreak") - + V("TerminalEndline") - + V("NormalEndline"), +local LineBreak = P(" ") * NormalEndline / c_linebreak - NormalEndline = optionalspace * newline * -( - blankline - + more - + V("AtxStart") - + ( line * (P("===")^3 + P("---")^3) * newline ) - ) / c_space, +local TerminalEndline = optionalspace * newline * eof / "" - TerminalEndline = optionalspace * newline * eof / "", +local Endline = LineBreak + + TerminalEndline + + NormalEndline - LineBreak = P(" ") * V("NormalEndline") / c_linebreak, +local AutoLinkUrl = less * C(alphanumeric^1 * P("://") * (any - (newline + more))^1) * more / c_url_link +local AutoLinkEmail = less * C((alphanumeric + S("-_+"))^1 * P("@") * (any - (newline + more))^1) * more / c_email_link - Code = inticks / c_code, +local DirectLink = direct_link_parser / c_link +local IndirectLink = indirect_link_parser / c_link - -- This keeps the parser from getting bogged down on long strings of '*' or '_' - UlOrStarLine = asterisk^4 - + underscore^4 - + (spaces * S("*_")^1 * #spaces) / c_string, +local ImageLink = exclamation * (direct_link_parser + indirect_link_parser) / c_image -- we can combine this with image ... smaller lpeg - Emphasis = V("EmphasisStar") - + V("EmphasisUl"), +local UlOrStarLine = asterisk^4 + + underscore^4 + + (spaces * S("*_")^1 * #spaces) / c_string - EmphasisStar = asterisk * -spaceornewline * Ct((V("Inline") - asterisk )^1) * asterisk / c_emphasis, - EmphasisUl = underscore * -spaceornewline * Ct((V("Inline") - underscore)^1) * underscore / c_emphasis, +local EscapedChar = P("\\") * C(P(1 - newline)) / c_string - Strong = V("StrongStar") - + V("StrongUl"), +local InlineHtml = inlinehtml / c_inline_html +local DisplayHtml = displayhtml / c_display_html +local HtmlEntity = hexentity / c_hex_entity + + decentity / c_dec_entity + + tagentity / c_tag_entity - StrongStar = doubleasterisks * -spaceornewline * Ct((V("Inline") - doubleasterisks )^1) * doubleasterisks / c_strong, - StrongUl = doubleunderscores * -spaceornewline * Ct((V("Inline") - doubleunderscores)^1) * doubleunderscores / c_strong, +local NestedList = Cs(optionallyindentedline - (bullet + enumerator))^1 / nestedparser - Image = P("!") * (V("ExplicitLink") + V("ReferenceLink")) / c_image, +local ListBlockLine = -blankline * -(indent^-1 * (bullet + enumerator)) * optionallyindentedline - Link = V("ExplicitLink") / c_link - + V("ReferenceLink") / c_link - + V("AutoLinkUrl") - + V("AutoLinkEmail"), +local Verbatim = Cs(blanklines * (indentedline - blankline)^1) / c_verbatim + * (blankline^1 + eof) -- not really needed, probably capture trailing? we can do that beforehand - ReferenceLink = V("ReferenceLinkDouble") - + V("ReferenceLinkSingle"), +local Blockquote = Cs(( + ((nonindentspace * more * space^-1)/"" * linechar^0 * newline)^1 + * ((linechar - blankline)^1 * newline)^0 + * blankline^0 + )^1) / c_blockquote - ReferenceLinkDouble = V("Label") * spnl * Cmt(V("Label"), f_reference_link_double), +local HorizontalRule = (lineof_asterisks + lineof_dashes + lineof_underscores) / c_hrule - ReferenceLinkSingle = Cmt(V("Label"), f_reference_link_single) * (spnl * P("[]"))^-1, +local Reference = define_reference_parser / "" - AutoLinkUrl = less * C(alphanumeric^1 * P("://") * (any - (newline + more))^1) * more / f_link, +-- could be a mini grammar - AutoLinkEmail = less * C((alphanumeric + S("-_+"))^1 * P("@") * (any - (newline + more))^1) * more / c_email_link, +local ListBlock = line * ListBlockLine^0 +local ListContinuationBlock = blanklines * indent * ListBlock +local ListItem = Cs(ListBlock * (NestedList + ListContinuationBlock^0)) / listitem - BasicSource = (nonspacechar - S("()>"))^1 + (lparent * V("Source") * rparent)^1 + always, +---- LeadingLines = blankline^0 / "" +---- TrailingLines = blankline^1 * #(any) / "\n" - AngleSource = less * C(V("BasicSource")) * more, +syntax = Cs { "Document", - Source = V("AngleSource") - + C(V("BasicSource")), + Document = V("Display")^0, - LinkTitle = dquote * C((any - (dquote * optionalspace * rparent))^0) * dquote + - squote * C((any - (squote * optionalspace * rparent))^0) * squote + - Cc(""), + Display = blankline -- ^1/"\n" + + Blockquote + + Verbatim + + Reference + + HorizontalRule + + HeadingStart * optionalspace * Cs((V("Inline") - HeadingStop)^1) * HeadingStop / c_heading + + Cs((V("Inline") - Endline)^1) * newline * HeadingLevel * newline * blanklines / f_heading + + Cs((bullet /"" * ListItem)^1) * blanklines * -bullet / c_tightbulletlist + + Cs((bullet /"" * ListItem * C(blanklines))^1) / c_loosebulletlist + + Cs((enumerator /"" * ListItem)^1) * blanklines * -enumerator / c_tightorderedlist + + Cs((enumerator /"" * ListItem * C(blanklines))^1) / c_looseorderedlist + + DisplayHtml + + nonindentspace * Cs(V("Inline")^1)* newline * blankline^1 / c_paragraph + + V("Inline")^1, - ExplicitLink = V("Label") * spnl * lparent * optionalspace * V("Source") * spnl * V("LinkTitle") * optionalspace * rparent, + Inline = Str + + Space + + Endline + + UlOrStarLine -- still needed ? + + doubleasterisks * -spaceornewline * Cs((V("Inline") - doubleasterisks )^1) * doubleasterisks / c_strong + + doubleunderscores * -spaceornewline * Cs((V("Inline") - doubleunderscores)^1) * doubleunderscores / c_strong + + asterisk * -spaceornewline * Cs((V("Inline") - asterisk )^1) * asterisk / c_emphasis + + underscore * -spaceornewline * Cs((V("Inline") - underscore )^1) * underscore / c_emphasis + + ImageLink + + DirectLink + + IndirectLink + + AutoLinkUrl + + AutoLinkEmail + + Code + + InlineHtml + + HtmlEntity + + EscapedChar + + Symbol, - Str = normalchar^1 / c_string, - Space = spacechar^1 / c_space, - Symbol = specialchar / c_string, } +--------------------------------------------------------------------------------------------- + local function convert(str) nofruns = nofruns + 1 nofbytes = nofbytes + #str statistics.starttiming(markdown) + referenceparser(str) local result = c_start_document() .. nestedparser(str) .. c_stop_document() statistics.stoptiming(markdown) return result @@ -704,8 +704,121 @@ statistics.register("markdown",function() end end) --- test +--------------------------------------------------------------------------------------------- --~ context.starttext() --~ moduledata.markdown.convert(str) --~ context.stoptext() + +if not tex.jobname then + + local one = [[ +Test *123* +========== + +<b>BOLD *BOLD* BOLD</b> + +<pre>PRE <b>PRE</b> PRE</pre> + + +* Test +** Test +* Test1 + * Test2 +* Test + +Test +==== + +> test +> test **123** *123* +> test `code` + +test + +Test +==== + +> test +> test +> test + +test +oeps + +more + + code + code + +oeps + +[an example][a] + +[an example] [2] + +[a]: http://example.com/ "Optional *oeps* Title Here" +[2]: http://example.com/ 'Optional Title Here' +[3]: http://example.com/ (Optional Title Here) + +[an example][a] + +[an example] [2] + +[an [tricky] example](http://example.com/ "Title") + +[This **xx** link](http://example.net/) + ]] + +-- This snippet takes some 4 seconds in the original parser (the one that is +-- a bit clearer from the perspective of grammars but somewhat messy with +-- respect to the captures. In the above parser it takes .1 second. Also, +-- in the later case only memory is the limit. + + local two = [[ +Test +==== +* Test +** Test +* Test +** Test +* Test + +Test +==== + +> test +> test +> test + +test + +Test +==== + +> test +> test +> test + +test + ]] + + local function test(str) + local n = 1 -- 000 + local t = os.clock() + local one = convert(str) + -- print("runtime",1,#str,#one,os.clock()-t) + str = string.rep(str,n) + local t = os.clock() + local two = convert(str) + print(two) + -- print("runtime",n,#str,#two,os.clock()-t) + -- print(format("==============\n%s\n==============",one)) + end + + -- test(one) + -- test(two) + -- test(io.read("*all")) + + +end diff --git a/tex/context/base/m-markdown.mkiv b/tex/context/base/m-markdown.mkiv index 016e18ea2..6e0036513 100644 --- a/tex/context/base/m-markdown.mkiv +++ b/tex/context/base/m-markdown.mkiv @@ -47,6 +47,12 @@ \definetype [markdowntype] +\definetype + [markdowninlinehtml] + +\definetyping + [markdowndisplayhtml] + \definedelimitedtext [markdownblockquote] [quotation] diff --git a/tex/context/base/m-zint.mkiv b/tex/context/base/m-zint.mkiv index 04af806a0..c439476c2 100644 --- a/tex/context/base/m-zint.mkiv +++ b/tex/context/base/m-zint.mkiv @@ -67,12 +67,12 @@ function moduledata.zint.generate(code,data,suffix,options) io.savedata(temp,data) os.execute(format('%s --barcode=%s --output="%s" --input="%s"',zint,code,name,temp,options or "")) end - return name + return name end \stopluacode -\doifnotmode{demo}{\endinput} +\continueifinputfile{m-zint.mkiv} \starttext diff --git a/tex/context/base/node-ref.lua b/tex/context/base/node-ref.lua index e0c241b35..fd01f4fba 100644 --- a/tex/context/base/node-ref.lua +++ b/tex/context/base/node-ref.lua @@ -104,7 +104,7 @@ end local function inject_range(head,first,last,reference,make,stack,parent,pardir,txtdir) local width, height, depth = dimensions(parent,first,last) - if pardir == "TRT" or txtdir == "+TRT" then + if txtdir == "+TRT" or (txtdir == "===" and pardir == "TRT") then -- KH: textdir == "===" test added width = - width end local result, resolved = make(width,height,depth,reference) diff --git a/tex/context/base/status-files.pdf b/tex/context/base/status-files.pdf Binary files differindex 5e3950fce..c1fa5d434 100644 --- a/tex/context/base/status-files.pdf +++ b/tex/context/base/status-files.pdf diff --git a/tex/context/base/status-lua.pdf b/tex/context/base/status-lua.pdf Binary files differindex 24525ddd3..4f9165dd7 100644 --- a/tex/context/base/status-lua.pdf +++ b/tex/context/base/status-lua.pdf diff --git a/tex/context/base/strc-flt.mkiv b/tex/context/base/strc-flt.mkiv index c3366b855..71a15d4af 100644 --- a/tex/context/base/strc-flt.mkiv +++ b/tex/context/base/strc-flt.mkiv @@ -152,8 +152,8 @@ \c!sidespacebefore=\floatsharedparameter\c!spacebefore, \c!sidespaceafter=\floatsharedparameter\c!spaceafter, \c!sidealign=\v!normal, - \c!textmethod=\ifgridsnapping2\else0\fi, % 0=raw 1=safe (.99pg) 2=tight (-1pt) - \c!sidemethod=\ifgridsnapping2\else1\fi, % 0=raw 1=safe (.99pg) 2=tight (-1pt) + \c!textmethod=\ifgridsnapping2\else0\fi, % 0=raw 1=safe (.99pg) 2=tight (-1pt) % THIS WILL CHANGE + \c!sidemethod=\ifgridsnapping2\else1\fi, % 0=raw 1=safe (.99pg) 2=tight (-1pt) % THIS WILL CHANGE \c!indentnext=\v!no, \c!margin=1em, \c!method=1, @@ -594,7 +594,7 @@ % the global settings. \unexpanded\def\docomplexplacefloat[#1][#2]% [#3]#4% - {\edef\currentfloat{#1}% + {\edef\currentfloat{#1}% TODO: IF UNDEFINED THEN FALLBACK TO figure \doifnothing\currentfloat{\let\currentfloat\v!figure}% \doifelsenothing{#2} {\edef\floatlocation{\floatparameter\c!default}} diff --git a/tex/context/base/trac-fil.lua b/tex/context/base/trac-fil.lua index 54ca6ac6b..bf291ff6b 100644 --- a/tex/context/base/trac-fil.lua +++ b/tex/context/base/trac-fil.lua @@ -9,11 +9,13 @@ if not modules then modules = { } end modules ['trac-fil'] = { local format, concat = string.format, table.concat local openfile = io.open local date = os.date +local rawset, tonumber = rawset, tonumber local P, C, Cc, Cg, Cf, Ct, Cs = lpeg.P, lpeg.C, lpeg.Cc, lpeg.Cg, lpeg.Cf, lpeg.Ct, lpeg.Cs -local patterns = lpeg.patterns -local cardinal = patterns.cardinal +local patterns = lpeg.patterns +local cardinal = patterns.cardinal +local whitespace = patterns.whitespace^0 patterns.timestamp = Cf(Ct("") * ( Cg (Cc("year") * (cardinal/tonumber)) * P("-") @@ -26,10 +28,13 @@ patterns.timestamp = Cf(Ct("") * ( * Cg (Cc("tminute") * (cardinal/tonumber)) )^0, rawset) +patterns.keysvalues = Cf(Ct("") * ( + Cg(C(patterns.letter^0) * whitespace * "=" * whitespace * Cs(patterns.unquoted) * whitespace) +)^0, rawset) + patterns.statusline = Cf(Ct("") * ( - P("[") * Cg(Cc("timestamp") * patterns.timestamp) * P("]") - * patterns.whitespace^0 - * Cg(Cc("status") * Cf(Ct("") * (Cg(C(patterns.letter^0) * "=" * Cs(patterns.unquoted)) * patterns.whitespace^0)^0, rawset)) + whitespace * P("[") * Cg(Cc("timestamp") * patterns.timestamp ) * P("]") + * whitespace * Cg(Cc("status" ) * patterns.keysvalues) ),rawset) diff --git a/tex/context/base/trac-lmx.lua b/tex/context/base/trac-lmx.lua index b4bfc36d6..8e7c60a37 100644 --- a/tex/context/base/trac-lmx.lua +++ b/tex/context/base/trac-lmx.lua @@ -83,9 +83,9 @@ function lmx.loadedfile(name) end local function do_include(filename) - local stylepath = do_variable('includepath') + local stylepath = do_variable('includepath') -- todo: store paths of loaded files local data = lmx.loadedfile(filename) - if (not data or data == "") and stylepath ~= "" then + if (not data or data == "") and stylepath and stylepath ~= "" then data = lmx.loadedfile(file.join(stylepath,filename)) end if not data or data == "" then diff --git a/tex/context/base/trac-log.lua b/tex/context/base/trac-log.lua index c843236de..b46075321 100644 --- a/tex/context/base/trac-log.lua +++ b/tex/context/base/trac-log.lua @@ -46,7 +46,7 @@ local report, subreport, status, settarget, setformats, settranslations local direct, subdirect, writer, pushtarget, poptarget -if tex and tex.jobname or tex.formatname then +if tex and (tex.jobname or tex.formatname) then local valueiskey = { __index = function(t,k) t[k] = k return k end } -- will be helper diff --git a/tex/context/base/type-otf.mkiv b/tex/context/base/type-otf.mkiv index 5224a8012..df4809e05 100644 --- a/tex/context/base/type-otf.mkiv +++ b/tex/context/base/type-otf.mkiv @@ -669,7 +669,7 @@ % Antykwa Torunska (GUST) - \starttypescript [serif] [antykwa-torunska,antykwa-torunska-light,antykwa-torunska-cond,antykwa-torunska-lightcond] + \starttypescript [serif] [antykwa,antykwa-torunska,antykwa-torunska-light,antykwa-torunska-cond,antykwa-torunska-lightcond] \definefontsynonym [AntykwaTorunska-Regular] [\s!file:AntykwaTorunska-Regular] [\s!features=\s!default] \definefontsynonym [AntykwaTorunska-Italic] [\s!file:AntykwaTorunska-Italic] [\s!features=\s!default] \definefontsynonym [AntykwaTorunska-Bold] [\s!file:AntykwaTorunska-Bold] [\s!features=\s!default] @@ -705,7 +705,7 @@ \definefontsynonym [AntykwaTorunska-CondMedItalicCap] [\s!file:AntykwaTorunskaCondMed-Italic] [\s!features=\s!smallcaps] \stoptypescript - \starttypescript [math][antykwa-torunska][all] + \starttypescript [math][antykwa,antykwa-torunska][all] \loadfontgoodies[antykwa-math] \definefontsynonym[MathRoman][antykwamath@antykwa-math] \stoptypescript @@ -725,7 +725,7 @@ \definefontsynonym[MathRoman][antykwalightcondmath@antykwa-lightcond-math] \stoptypescript - \starttypescript [serif] [antykwa-torunska] [name] + \starttypescript [serif] [antykwa,antykwa-torunska] [name] \definefontsynonym [Serif] [AntykwaTorunska-Regular] \definefontsynonym [SerifBold] [AntykwaTorunska-Bold] \definefontsynonym [SerifItalic] [AntykwaTorunska-Italic] @@ -765,7 +765,7 @@ \definefontsynonym [SerifCaps] [AntykwaTorunska-CondLightCap] \stoptypescript - \starttypescript [serif] [antykwa-torunska] [name] + \starttypescript [serif] [antykwa,antykwa-torunska] [name] \definefontsynonym [SerifRegular] [Serif] \definefontsynonym [SerifRegularCaps] [AntykwaTorunska-Cap] \definefontsynonym [SerifBoldCaps] [AntykwaTorunska-BoldCap] @@ -873,11 +873,11 @@ \definefontsynonym [SerifCapsExp] [AntykwaTorunska-LightCap] \stoptypescript - \starttypescript [antykwa-torunska,antykwa-torunska-light,antykwa-torunska-cond,antykwa-torunska-lightcond] - \definetypeface[antykwa][rm][serif][\typescriptone] [default] - \definetypeface[antykwa][ss][sans] [modern] [default] [rscale=1.05] - \definetypeface[antykwa][tt][mono] [modern] [default] [rscale=1.05] - \definetypeface[antykwa][mm][math] [\typescriptone] [default] + \starttypescript [antykwa,antykwa-torunska,antykwa-torunska-light,antykwa-torunska-cond,antykwa-torunska-lightcond] + \definetypeface[\typescriptone][rm][serif][\typescriptone] [default] + \definetypeface[\typescriptone][ss][sans] [modern] [default] [rscale=1.05] + \definetypeface[\typescriptone][tt][mono] [modern] [default] [rscale=1.05] + \definetypeface[\typescriptone][mm][math] [\typescriptone] [default] \quittypescriptscanning \stoptypescript diff --git a/tex/context/base/typo-dir.lua b/tex/context/base/typo-dir.lua index 54c2e6e98..cdc1427a1 100644 --- a/tex/context/base/typo-dir.lua +++ b/tex/context/base/typo-dir.lua @@ -53,7 +53,7 @@ local endmath_code = mathcodes.endmath local fonthashes = fonts.hashes local fontdata = fonthashes.identifiers -local chardata = fonthashes.characters +local fontchar = fonthashes.characters local chardata = characters.data local chardirs = characters.directions -- maybe make a special mirror table diff --git a/tex/generic/context/luatex/luatex-fonts-merged.lua b/tex/generic/context/luatex/luatex-fonts-merged.lua index 6f35d4d43..e4f752770 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 : 07/26/11 09:17:48 +-- merge date : 08/04/11 00:42:26 do -- begin closure to overcome local limits and interference @@ -1246,25 +1246,6 @@ patterns.unspacer = ((patterns.spacer^1)/"")^0 patterns.somecontent = (anything - newline - space)^1 -- (utf8char - newline - space)^1 patterns.beginline = #(1-newline) --- local unquoted = Cs(patterns.unquoted * endofstring) -- not C --- --- function string.unquoted(str) --- return match(unquoted,str) or str --- end --- --- more efficient on long strings: - -local unquoted = ( - squote * Cs((1 - P(-2))^0) * squote - + dquote * Cs((1 - P(-2))^0) * dquote -) - -function string.unquoted(str) - return match(unquoted,str) or str -end - -patterns.unquoted = unquoted - -- print(string.unquoted("test")) -- print(string.unquoted([["t\"est"]])) -- print(string.unquoted([["t\"est"x]])) |
