From: Gerben Wierda <gerben.wierda@rna.nl>
To: mailing list for ConTeXt users <ntg-context@ntg.nl>
Subject: Minimum example of problem getting curly braces printed in METAPOST
Date: Thu, 2 Apr 2020 14:05:55 +0200 [thread overview]
Message-ID: <68992ADC-44A8-410D-90D6-CFCD31EE77F6@rna.nl> (raw)
[-- Attachment #1.1: Type: text/plain, Size: 3642 bytes --]
Here is a minimum example of a problem that I have in getting curly braces printed in METAPOST in code that is generated by lua.
Any help is welcome.
\usemodule[scite]
\setupxml
[entities=yes]
\startluacode
function warn( ... )
texio.write_nl("-----> " .. string.format(...))
end
local function mpLabelString( xmlLabelString)
-- Returns a string where each " is replaced by a METAPOST compatible result, except for outer double quotes"
rep = {
[1] = { "\"", "\"&ditto&\"" },
-- DOESN'T WORK: [2] = { "\\", "\\\\" },
}
local tmpString = string.formatters( "%!tex!", xmlLabelString)
warn( "STRING.FORMAT XML \"%s\"", xmlLabelString)
warn( "STRING.FORMAT TeX-ed \"%s\"", tmpString)
warn( "STRING.FORMAT Replaced \"%s\"", lpeg.replacer(rep):match(tmpString))
return lpeg.replacer(rep):match(tmpString)
end
function warnAndConTeXt( ...)
warn( ...)
context( ...)
end
function moduledata.test( filename)
local labelString
context( "The string to typeset is:\\par\\type-{Label} \"a\" [Text]!-")
context( "\\par The attempts are:")
context( "\\par1. \\type-Label Text-")
context( "\\par2. \\type-Label [Text]!-")
context( "\\par3. \\type-Label \"a\" [Text]!-")
context( "\\par4. \\type-{Label} [Text]!-")
context( "\\par5. \\type-{Label} \"a\" [Text]!-")
context.startMPpage { instance = "doublefun" }
context( "picture pic;")
labelString = "1. Label Text OK"
warnAndConTeXt( "pic := Foo( 0, 0, 150, 50, \"%s\");", mpLabelString( labelString))
labelString = "2. Label [Text]! OK"
warnAndConTeXt( "pic := Foo( 0, -75, 150, 50, \"%s\");", mpLabelString( labelString))
labelString = "3. Label \"a\" [Text]! OK"
warnAndConTeXt( "pic := Foo( 0, -150, 150, 50, \"%s\");", mpLabelString( labelString))
labelString = "4. {Label} [Text]! MISSING curly braces"
warnAndConTeXt( "pic := Foo( 0, -225, 150, 50, \"%s\");", mpLabelString( labelString))
labelString = "5. {Label} \"a\" [Text]! MISSING curly braces"
warnAndConTeXt( "pic := Foo( 0, -300, 150, 50, \"%s\");", mpLabelString( labelString))
context( "drawdot (0,0) withpen pencircle scaled 4 withcolor red;")
context.stopMPpage()
end
\stopluacode
\usemodule[article-basic]
%\enabletrackers[metapost.tracingall,metapost.lua,metapost.runs,metapost.textexts,metapost.scrintersectionPoints,metapost.runs,metapost.graphics,metapost.terminal]
\starttext
\definefontfamily[mainface][rm][Optima]
\setupbodyfont[mainface,10pt]
\startMPinclusions[+]{doublefun}
\stopMPinclusions
\startMPdefinitions{doublefun}
vardef makeTeXLabel( expr w, h, name) =
show "NAME makeTeXLabel:", name;
save p; picture p ;
save s; string s;
s := "\framed{" & name & "}"; % Curly braces will be missing. I need this to work.
% s := "\type-" & name & "-"; % Curly braces are displayed, but this must become a vbox in the end, so can't use it
show "SCAN:", s;
p := textext( s);
p
enddef;
vardef Foo( expr xpos, ypos, width, height, str) =
show "NAME Foo:", str; % Backslashes are already gone here
save pic; picture pic;
pic := makeTeXLabel( width, height, str) shifted (xpos, ypos);
draw pic;
pic
enddef;
\stopMPdefinitions
\ctxlua{moduledata.test("My ArchiMate Model Export BES.xml")}
\typefile[option=TEX]{test11.tex}
\stoptext
The question is: how can I get this to work? The strings that have to be printed inside the METAPOST picture come from an XML and can contain about anything. But in the end that string will have to be vertically typeset as a paragraph, hence I cannot use \type (which works).
[-- Attachment #1.2.1: Type: text/html, Size: 14325 bytes --]
[-- Attachment #1.2.2: test11.tex --]
[-- Type: application/octet-stream, Size: 3108 bytes --]
\usemodule[scite]
\setupxml
[entities=yes]
\startluacode
function warn( ... )
texio.write_nl("-----> " .. string.format(...))
end
local function mpLabelString( xmlLabelString)
-- Returns a string where each " is replaced by a METAPOST compatible result, except for outer double quotes"
rep = {
[1] = { "\"", "\"&ditto&\"" },
-- DOESN'T WORK: [2] = { "\\", "\\\\" },
}
local tmpString = string.formatters( "%!tex!", xmlLabelString)
warn( "STRING.FORMAT XML \"%s\"", xmlLabelString)
warn( "STRING.FORMAT TeX-ed \"%s\"", tmpString)
warn( "STRING.FORMAT Replaced \"%s\"", lpeg.replacer(rep):match(tmpString))
return lpeg.replacer(rep):match(tmpString)
end
function warnAndConTeXt( ...)
warn( ...)
context( ...)
end
function moduledata.test( filename)
local labelString
context( "The string to typeset is:\\par\\type-{Label} \"a\" [Text]!-")
context( "\\par The attempts are:")
context( "\\par1. \\type-Label Text-")
context( "\\par2. \\type-Label [Text]!-")
context( "\\par3. \\type-Label \"a\" [Text]!-")
context( "\\par4. \\type-{Label} [Text]!-")
context( "\\par5. \\type-{Label} \"a\" [Text]!-")
context.startMPpage { instance = "doublefun" }
context( "picture pic;")
labelString = "1. Label Text OK"
warnAndConTeXt( "pic := Foo( 0, 0, 150, 50, \"%s\");", mpLabelString( labelString))
labelString = "2. Label [Text]! OK"
warnAndConTeXt( "pic := Foo( 0, -75, 150, 50, \"%s\");", mpLabelString( labelString))
labelString = "3. Label \"a\" [Text]! OK"
warnAndConTeXt( "pic := Foo( 0, -150, 150, 50, \"%s\");", mpLabelString( labelString))
labelString = "4. {Label} [Text]! MISSING curly braces"
warnAndConTeXt( "pic := Foo( 0, -225, 150, 50, \"%s\");", mpLabelString( labelString))
labelString = "5. {Label} \"a\" [Text]! MISSING curly braces"
warnAndConTeXt( "pic := Foo( 0, -300, 150, 50, \"%s\");", mpLabelString( labelString))
context( "drawdot (0,0) withpen pencircle scaled 4 withcolor red;")
context.stopMPpage()
end
\stopluacode
\usemodule[article-basic]
%\enabletrackers[metapost.tracingall,metapost.lua,metapost.runs,metapost.textexts,metapost.scrintersectionPoints,metapost.runs,metapost.graphics,metapost.terminal]
\starttext
\definefontfamily[mainface][rm][Optima]
\setupbodyfont[mainface,10pt]
\startMPinclusions[+]{doublefun}
\stopMPinclusions
\startMPdefinitions{doublefun}
vardef makeTeXLabel( expr w, h, name) =
show "NAME makeTeXLabel:", name;
save p; picture p ;
save s; string s;
s := "\framed{" & name & "}"; % Curly braces will be missing. I need this to work.
% s := "\type-" & name & "-"; % Curly braces are displayed, but this must become a vbox in the end, so can't use it
show "SCAN:", s;
p := textext( s);
p
enddef;
vardef Foo( expr xpos, ypos, width, height, str) =
show "NAME Foo:", str; % Backslashes are already gone here
save pic; picture pic;
pic := makeTeXLabel( width, height, str) shifted (xpos, ypos);
draw pic;
pic
enddef;
\stopMPdefinitions
\ctxlua{moduledata.test("My ArchiMate Model Export BES.xml")}
\typefile[option=TEX]{test11.tex}
\stoptext
[-- Attachment #1.2.3: Type: text/html, Size: 279 bytes --]
[-- Attachment #2: Type: text/plain, Size: 493 bytes --]
___________________________________________________________________________________
If your question is of interest to others as well, please add an entry to the Wiki!
maillist : ntg-context@ntg.nl / http://www.ntg.nl/mailman/listinfo/ntg-context
webpage : http://www.pragma-ade.nl / http://context.aanhet.net
archive : https://bitbucket.org/phg/context-mirror/commits/
wiki : http://contextgarden.net
___________________________________________________________________________________
next reply other threads:[~2020-04-02 12:05 UTC|newest]
Thread overview: 3+ messages / expand[flat|nested] mbox.gz Atom feed top
2020-04-02 12:05 Gerben Wierda [this message]
2020-04-03 15:36 ` Solved: " Gerben Wierda
2020-04-05 10:08 ` Hans Hagen
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=68992ADC-44A8-410D-90D6-CFCD31EE77F6@rna.nl \
--to=gerben.wierda@rna.nl \
--cc=ntg-context@ntg.nl \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).