On 1/20/2015 8:03 PM, Eric Gerard wrote:

Hello Hans,

sorry for that, here is the code I used to check some LUACODE.

\definepapersize[normal][width=14.85cm, height=21cm]

\setupbodyfont[10pt] \enableregime[il1] \setupcolor[xwi]

\setuplayout[backspace=16mm, leftmargin=15mm,leftmargindistance=1mm,topspace=10mm,header=0mm,footer=0mm,height=200mm,rightmargin=0mm,width=131mm,location=middle,marking=on]

\setuppapersize[normal][A4] \definelayer[OngletGauche][x=0mm, y=0mm, width=\paperwidth, height=\paperheight] \setupTABLE[r][1][color=dodgerblue,align={middle,lohi},height=1cm,style={\sansserif \bfx},framecolor=black]

% variables \newdimen\hauteuronglet %height of tab \hauteuronglet=1cm

%variables onglet bas \newdimen\largeurzoneongletsbas % total width available for tabs \newdimen\ordonneeongletsbas % vertical position of tab \newdimen\abscisseongletsbas % horizontal position of tab \newdimen\largeurongletbas % tab width

\startluacode function test(opt_1, arg_1) local table = lpeg.split(",",interfaces.tolist(opt_1)) local labels = lpeg.split(",",arg_1)

local NumLigne = table[1] local NbTotalOnglets = table[2] local PremierOnglet = table[3]

local decalage = tex.sp("6.5pt")

print(NumLigne) print(NbTotalOnglets) print(PremierOnglet)

tex.dimen.ordonneeongletsbas = tex.dimen.paperheight - tex.dimen.hauteuronglet * NumLigne tex.dimen.largeurzoneongletsbas = tex.dimen.paperwidth - tex.dimen.backspace tex.dimen.largeurongletbas = tex.dimen.largeurzoneongletsbas / NbTotalOnglets tex.dimen.abscisseongletsbas = tex.dimen.backspace + tex.dimen.largeurongletbas * (PremierOnglet - 1)

local x_ongletsbas = tex.dimen.abscisseongletsbas - decalage local y_ongletsbas = tex.dimen.ordonneeongletsbas local largeurongletbas = tex.dimen.largeurongletbas

context.setupbackgrounds({"page"},{background = "OngletBas,OngletGauche,ACouper"})

context.setlayer({"OngletBas"},{hoffset = x_ongletsbas, voffset = y_ongletsbas}, context.setupTABLE({c},{1,2,3,4,5,6},{width = largeurongletbas}) context.bTABLE() context.bTR() context.bTD() context(labels[1]) context.eTD() context.eTR() context.eTABLE() ) end interfaces.definecommand { name = "test", arguments = { { "option", "hash" }, { "content", "string" }, }, macro = test, } \stopluacode

\starttext \ss \showframe \input{tufte} \test[1,6,1]{GROUND EGRESS}

\stoptext

This code is not working, I get an error while calling the function, and I don’t understand why.

\definepapersize [normal] [width=14.85cm, height=21cm] \setupbodyfont [10pt,ss] \setupcolor [xwi] \setuppapersize [normal][A4] \setuplayout [backspace=16mm, leftmargin=15mm, leftmargindistance=1mm, topspace=10mm, header=0mm, footer=0mm, height=200mm, rightmargin=0mm, width=131mm, location=middle, marking=on] \definelayer [OngletGauche] [x=0mm, y=0mm, width=\paperwidth, height=\paperheight] \definelayer [OngletBas] [x=0mm, y=0mm, width=\paperwidth, height=\paperheight] \setupTABLE [r][1] [color=dodgerblue, align={middle,lohi}, height=1cm, style=\bfx, framecolor=black] % variables \startluacode local decalage = string.todimen("6.5pt") local hauteuronglet = string.todimen("1cm") function test(opt_1,arg_1) local options = utilities.parsers.settings_to_array(opt_1) local labels = utilities.parsers.settings_to_array(arg_1) local NumLigne = options[1] local NbTotalOnglets = options[2] local PremierOnglet = options[3] local ordonneeongletsbas = tex.dimen.paperheight - hauteuronglet * NumLigne local largeurzoneongletsbas = tex.dimen.paperwidth - tex.dimen.backspace local largeurongletbas = largeurzoneongletsbas / NbTotalOnglets local abscisseongletsbas = tex.dimen.backspace + largeurongletbas * (PremierOnglet - 1) local x_ongletsbas = abscisseongletsbas - decalage local y_ongletsbas = ordonneeongletsbas context.setupbackgrounds({"page"},{background = "OngletBas,OngletGauche,ACouper"}) context.setlayer( { "OngletBas" }, { hoffset = number.todimen(x_ongletsbas), voffset = number.todimen(y_ongletsbas), }, function() context.setupTABLE( { c }, { 1, 2, 3, 4, 5, 6 }, { width = number.todimen(largeurongletbas) } ) context.bTABLE() context.bTR() context.bTD() context(labels[1]) context.eTD() context.eTR() context.eTABLE() end ) end interfaces.definecommand { name = "test", macro = test, arguments = { { "option", "hash" }, { "content", "string" }, }, } \stopluacode \starttext \showframe \input{tufte} \test[1,6,1]{GROUND EGRESS} \stoptext

Can you explain if you have a bit of time the remark you made about the overload of table ?

just don't use string, table, number and other library names as variable name Hans ----------------------------------------------------------------- Hans Hagen | PRAGMA ADE Ridderstraat 27 | 8061 GH Hasselt | The Netherlands tel: 038 477 53 69 | voip: 087 875 68 74 | www.pragma-ade.com | www.pragma-pod.nl -----------------------------------------------------------------