diff options
93 files changed, 7702 insertions, 287 deletions
diff --git a/context/data/scite/context/lexers/data/scite-context-data-tex.lua b/context/data/scite/context/lexers/data/scite-context-data-tex.lua index 8c518fe38..0e5056f8e 100644 --- a/context/data/scite/context/lexers/data/scite-context-data-tex.lua +++ b/context/data/scite/context/lexers/data/scite-context-data-tex.lua @@ -1,9 +1,9 @@ return { ["aleph"]={ "Alephminorversion", "Alephrevision", "Alephversion" }, ["etex"]={ "botmarks", "clubpenalties", "currentgrouplevel", "currentgrouptype", "currentifbranch", "currentiflevel", "currentiftype", "detokenize", "dimexpr", "displaywidowpenalties", "eTeXVersion", "eTeXminorversion", "eTeXrevision", "eTeXversion", "everyeof", "firstmarks", "fontchardp", "fontcharht", "fontcharic", "fontcharwd", "glueexpr", "glueshrink", "glueshrinkorder", "gluestretch", "gluestretchorder", "gluetomu", "ifcsname", "ifdefined", "iffontchar", "interactionmode", "interlinepenalties", "lastlinefit", "lastnodetype", "marks", "muexpr", "mutoglue", "numexpr", "pagediscards", "parshapedimen", "parshapeindent", "parshapelength", "predisplaydirection", "protected", "readline", "savinghyphcodes", "savingvdiscards", "scantokens", "showgroups", "showifs", "showtokens", "splitbotmarks", "splitdiscards", "splitfirstmarks", "topmarks", "tracingassigns", "tracinggroups", "tracingifs", "tracingnesting", "tracingscantokens", "unexpanded", "unless", "widowpenalties" }, - ["luatex"]={ "Uchar", "Udelcode", "Udelcodenum", "Udelimiter", "Udelimiterover", "Udelimiterunder", "Uhextensible", "Umathaccent", "Umathaxis", "Umathbinbinspacing", "Umathbinclosespacing", "Umathbininnerspacing", "Umathbinopenspacing", "Umathbinopspacing", "Umathbinordspacing", "Umathbinpunctspacing", "Umathbinrelspacing", "Umathchar", "Umathcharclass", "Umathchardef", "Umathcharfam", "Umathcharnum", "Umathcharnumdef", "Umathcharslot", "Umathclosebinspacing", "Umathcloseclosespacing", "Umathcloseinnerspacing", "Umathcloseopenspacing", "Umathcloseopspacing", "Umathcloseordspacing", "Umathclosepunctspacing", "Umathcloserelspacing", "Umathcode", "Umathcodenum", "Umathconnectoroverlapmin", "Umathfractiondelsize", "Umathfractiondenomdown", "Umathfractiondenomvgap", "Umathfractionnumup", "Umathfractionnumvgap", "Umathfractionrule", "Umathinnerbinspacing", "Umathinnerclosespacing", "Umathinnerinnerspacing", "Umathinneropenspacing", "Umathinneropspacing", "Umathinnerordspacing", "Umathinnerpunctspacing", "Umathinnerrelspacing", "Umathlimitabovebgap", "Umathlimitabovekern", "Umathlimitabovevgap", "Umathlimitbelowbgap", "Umathlimitbelowkern", "Umathlimitbelowvgap", "Umathnolimitsubfactor", "Umathnolimitsupfactor", "Umathopbinspacing", "Umathopclosespacing", "Umathopenbinspacing", "Umathopenclosespacing", "Umathopeninnerspacing", "Umathopenopenspacing", "Umathopenopspacing", "Umathopenordspacing", "Umathopenpunctspacing", "Umathopenrelspacing", "Umathoperatorsize", "Umathopinnerspacing", "Umathopopenspacing", "Umathopopspacing", "Umathopordspacing", "Umathoppunctspacing", "Umathoprelspacing", "Umathordbinspacing", "Umathordclosespacing", "Umathordinnerspacing", "Umathordopenspacing", "Umathordopspacing", "Umathordordspacing", "Umathordpunctspacing", "Umathordrelspacing", "Umathoverbarkern", "Umathoverbarrule", "Umathoverbarvgap", "Umathoverdelimiterbgap", "Umathoverdelimitervgap", "Umathpunctbinspacing", "Umathpunctclosespacing", "Umathpunctinnerspacing", "Umathpunctopenspacing", "Umathpunctopspacing", "Umathpunctordspacing", "Umathpunctpunctspacing", "Umathpunctrelspacing", "Umathquad", "Umathradicaldegreeafter", "Umathradicaldegreebefore", "Umathradicaldegreeraise", "Umathradicalkern", "Umathradicalrule", "Umathradicalvgap", "Umathrelbinspacing", "Umathrelclosespacing", "Umathrelinnerspacing", "Umathrelopenspacing", "Umathrelopspacing", "Umathrelordspacing", "Umathrelpunctspacing", "Umathrelrelspacing", "Umathskewedfractionhgap", "Umathskewedfractionvgap", "Umathspaceafterscript", "Umathstackdenomdown", "Umathstacknumup", "Umathstackvgap", "Umathsubshiftdown", "Umathsubshiftdrop", "Umathsubsupshiftdown", "Umathsubsupvgap", "Umathsubtopmax", "Umathsupbottommin", "Umathsupshiftdrop", "Umathsupshiftup", "Umathsupsubbottommax", "Umathunderbarkern", "Umathunderbarrule", "Umathunderbarvgap", "Umathunderdelimiterbgap", "Umathunderdelimitervgap", "Unosubscript", "Unosuperscript", "Uoverdelimiter", "Uradical", "Uroot", "Uskewed", "Uskewedwithdelims", "Ustack", "Ustartdisplaymath", "Ustartmath", "Ustopdisplaymath", "Ustopmath", "Usubscript", "Usuperscript", "Uunderdelimiter", "Uvextensible", "adjustspacing", "alignmark", "aligntab", "attribute", "attributedef", "automaticdiscretionary", "automatichyphenmode", "automatichyphenpenalty", "begincsname", "bodydir", "bodydirection", "boxdir", "boxdirection", "breakafterdirmode", "catcodetable", "clearmarks", "compoundhyphenmode", "copyfont", "crampeddisplaystyle", "crampedscriptscriptstyle", "crampedscriptstyle", "crampedtextstyle", "csstring", "draftmode", "dviextension", "dvifeedback", "dvivariable", "efcode", "endlocalcontrol", "etoksapp", "etokspre", "exceptionpenalty", "expanded", "expandglyphsinfont", "explicitdiscretionary", "explicithyphenpenalty", "fontid", "formatname", "gleaders", "gtoksapp", "gtokspre", "hjcode", "hyphenationbounds", "hyphenationmin", "hyphenpenaltymode", "ifabsdim", "ifabsnum", "ifcondition", "ifincsname", "ifprimitive", "ignoreligaturesinfont", "immediateassigned", "immediateassignment", "initcatcodetable", "insertht", "lastnamedcs", "lastsavedboxresourceindex", "lastsavedimageresourceindex", "lastsavedimageresourcepages", "lastxpos", "lastypos", "latelua", "leftghost", "leftmarginkern", "letcharcode", "letterspacefont", "linedir", "linedirection", "localbrokenpenalty", "localinterlinepenalty", "localleftbox", "localrightbox", "lpcode", "luabytecode", "luabytecodecall", "luacopyinputnodes", "luadef", "luaescapestring", "luafunction", "luafunctioncall", "luatexbanner", "luatexrevision", "luatexversion", "mathdelimitersmode", "mathdir", "mathdirection", "mathdisplayskipmode", "matheqnogapstep", "mathflattenmode", "mathitalicsmode", "mathnolimitsmode", "mathoption", "mathpenaltiesmode", "mathrulesfam", "mathrulesmode", "mathrulethicknessmode", "mathscriptboxmode", "mathscriptcharmode", "mathscriptsmode", "mathstyle", "mathsurroundmode", "mathsurroundskip", "nohrule", "nokerns", "noligs", "normaldeviate", "nospaces", "novrule", "outputbox", "outputmode", "pagebottomoffset", "pagedir", "pagedirection", "pageheight", "pageleftoffset", "pagerightoffset", "pagetopoffset", "pagewidth", "pardir", "pardirection", "pdfextension", "pdffeedback", "pdfvariable", "postexhyphenchar", "posthyphenchar", "prebinoppenalty", "predisplaygapfactor", "preexhyphenchar", "prehyphenchar", "prerelpenalty", "primitive", "protrudechars", "pxdimen", "quitvmode", "randomseed", "rightghost", "rightmarginkern", "rpcode", "saveboxresource", "savecatcodetable", "saveimageresource", "savepos", "scantextokens", "setfontid", "setrandomseed", "shapemode", "suppressfontnotfounderror", "suppressifcsnameerror", "suppresslongerror", "suppressmathparerror", "suppressoutererror", "suppressprimitiveerror", "synctex", "tagcode", "textdir", "textdirection", "toksapp", "tokspre", "tracingfonts", "uniformdeviate", "useboxresource", "useimageresource", "xtoksapp", "xtokspre" }, + ["luatex"]={ "Uchar", "Udelcode", "Udelcodenum", "Udelimiter", "Udelimiterover", "Udelimiterunder", "Uhextensible", "Umathaccent", "Umathaxis", "Umathbinbinspacing", "Umathbinclosespacing", "Umathbininnerspacing", "Umathbinopenspacing", "Umathbinopspacing", "Umathbinordspacing", "Umathbinpunctspacing", "Umathbinrelspacing", "Umathchar", "Umathcharclass", "Umathchardef", "Umathcharfam", "Umathcharnum", "Umathcharnumdef", "Umathcharslot", "Umathclosebinspacing", "Umathcloseclosespacing", "Umathcloseinnerspacing", "Umathcloseopenspacing", "Umathcloseopspacing", "Umathcloseordspacing", "Umathclosepunctspacing", "Umathcloserelspacing", "Umathcode", "Umathcodenum", "Umathconnectoroverlapmin", "Umathfractiondelsize", "Umathfractiondenomdown", "Umathfractiondenomvgap", "Umathfractionnumup", "Umathfractionnumvgap", "Umathfractionrule", "Umathinnerbinspacing", "Umathinnerclosespacing", "Umathinnerinnerspacing", "Umathinneropenspacing", "Umathinneropspacing", "Umathinnerordspacing", "Umathinnerpunctspacing", "Umathinnerrelspacing", "Umathlimitabovebgap", "Umathlimitabovekern", "Umathlimitabovevgap", "Umathlimitbelowbgap", "Umathlimitbelowkern", "Umathlimitbelowvgap", "Umathnolimitsubfactor", "Umathnolimitsupfactor", "Umathopbinspacing", "Umathopclosespacing", "Umathopenbinspacing", "Umathopenclosespacing", "Umathopeninnerspacing", "Umathopenopenspacing", "Umathopenopspacing", "Umathopenordspacing", "Umathopenpunctspacing", "Umathopenrelspacing", "Umathoperatorsize", "Umathopinnerspacing", "Umathopopenspacing", "Umathopopspacing", "Umathopordspacing", "Umathoppunctspacing", "Umathoprelspacing", "Umathordbinspacing", "Umathordclosespacing", "Umathordinnerspacing", "Umathordopenspacing", "Umathordopspacing", "Umathordordspacing", "Umathordpunctspacing", "Umathordrelspacing", "Umathoverbarkern", "Umathoverbarrule", "Umathoverbarvgap", "Umathoverdelimiterbgap", "Umathoverdelimitervgap", "Umathpunctbinspacing", "Umathpunctclosespacing", "Umathpunctinnerspacing", "Umathpunctopenspacing", "Umathpunctopspacing", "Umathpunctordspacing", "Umathpunctpunctspacing", "Umathpunctrelspacing", "Umathquad", "Umathradicaldegreeafter", "Umathradicaldegreebefore", "Umathradicaldegreeraise", "Umathradicalkern", "Umathradicalrule", "Umathradicalvgap", "Umathrelbinspacing", "Umathrelclosespacing", "Umathrelinnerspacing", "Umathrelopenspacing", "Umathrelopspacing", "Umathrelordspacing", "Umathrelpunctspacing", "Umathrelrelspacing", "Umathskewedfractionhgap", "Umathskewedfractionvgap", "Umathspaceafterscript", "Umathstackdenomdown", "Umathstacknumup", "Umathstackvgap", "Umathsubshiftdown", "Umathsubshiftdrop", "Umathsubsupshiftdown", "Umathsubsupvgap", "Umathsubtopmax", "Umathsupbottommin", "Umathsupshiftdrop", "Umathsupshiftup", "Umathsupsubbottommax", "Umathunderbarkern", "Umathunderbarrule", "Umathunderbarvgap", "Umathunderdelimiterbgap", "Umathunderdelimitervgap", "Unosubscript", "Unosuperscript", "Uoverdelimiter", "Uradical", "Uroot", "Uskewed", "Uskewedwithdelims", "Ustack", "Ustartdisplaymath", "Ustartmath", "Ustopdisplaymath", "Ustopmath", "Usubscript", "Usuperscript", "Uunderdelimiter", "Uvextensible", "adjustspacing", "alignmark", "aligntab", "attribute", "attributedef", "automaticdiscretionary", "automatichyphenmode", "automatichyphenpenalty", "begincsname", "bodydir", "bodydirection", "boxdir", "boxdirection", "breakafterdirmode", "catcodetable", "clearmarks", "compoundhyphenmode", "copyfont", "crampeddisplaystyle", "crampedscriptscriptstyle", "crampedscriptstyle", "crampedtextstyle", "csstring", "draftmode", "dviextension", "dvifeedback", "dvivariable", "efcode", "endlocalcontrol", "etoksapp", "etokspre", "exceptionpenalty", "expanded", "expandglyphsinfont", "explicitdiscretionary", "explicithyphenpenalty", "fixupboxesmode", "fontid", "formatname", "gleaders", "gtoksapp", "gtokspre", "hjcode", "hyphenationbounds", "hyphenationmin", "hyphenpenaltymode", "ifabsdim", "ifabsnum", "ifcondition", "ifincsname", "ifprimitive", "ignoreligaturesinfont", "immediateassigned", "immediateassignment", "initcatcodetable", "insertht", "lastnamedcs", "lastsavedboxresourceindex", "lastsavedimageresourceindex", "lastsavedimageresourcepages", "lastxpos", "lastypos", "latelua", "leftghost", "leftmarginkern", "letcharcode", "letterspacefont", "linedir", "linedirection", "localbrokenpenalty", "localinterlinepenalty", "localleftbox", "localrightbox", "lpcode", "luabytecode", "luabytecodecall", "luacopyinputnodes", "luadef", "luaescapestring", "luafunction", "luafunctioncall", "luatexbanner", "luatexrevision", "luatexversion", "mathdelimitersmode", "mathdir", "mathdirection", "mathdisplayskipmode", "matheqnogapstep", "mathflattenmode", "mathitalicsmode", "mathnolimitsmode", "mathoption", "mathpenaltiesmode", "mathrulesfam", "mathrulesmode", "mathrulethicknessmode", "mathscriptboxmode", "mathscriptcharmode", "mathscriptsmode", "mathstyle", "mathsurroundmode", "mathsurroundskip", "nohrule", "nokerns", "noligs", "normaldeviate", "nospaces", "novrule", "outputbox", "outputmode", "pagebottomoffset", "pagedir", "pagedirection", "pageheight", "pageleftoffset", "pagerightoffset", "pagetopoffset", "pagewidth", "pardir", "pardirection", "pdfextension", "pdffeedback", "pdfvariable", "postexhyphenchar", "posthyphenchar", "prebinoppenalty", "predisplaygapfactor", "preexhyphenchar", "prehyphenchar", "prerelpenalty", "primitive", "protrudechars", "pxdimen", "quitvmode", "randomseed", "rightghost", "rightmarginkern", "rpcode", "saveboxresource", "savecatcodetable", "saveimageresource", "savepos", "scantextokens", "setfontid", "setrandomseed", "shapemode", "suppressfontnotfounderror", "suppressifcsnameerror", "suppresslongerror", "suppressmathparerror", "suppressoutererror", "suppressprimitiveerror", "synctex", "tagcode", "textdir", "textdirection", "toksapp", "tokspre", "tracingfonts", "uniformdeviate", "useboxresource", "useimageresource", "xtoksapp", "xtokspre" }, ["omega"]={ "Omegaminorversion", "Omegarevision", "Omegaversion" }, - ["pdftex"]={ "ifpdfabsdim", "ifpdfabsnum", "ifpdfprimitive", "pdfadjustspacing", "pdfannot", "pdfcatalog", "pdfcolorstack", "pdfcolorstackinit", "pdfcompresslevel", "pdfcopyfont", "pdfcreationdate", "pdfdecimaldigits", "pdfdest", "pdfdestmargin", "pdfdraftmode", "pdfeachlinedepth", "pdfeachlineheight", "pdfendlink", "pdfendthread", "pdffirstlineheight", "pdffontattr", "pdffontexpand", "pdffontname", "pdffontobjnum", "pdffontsize", "pdfgamma", "pdfgentounicode", "pdfglyphtounicode", "pdfhorigin", "pdfignoreddimen", "pdfignoreunknownimages", "pdfimageaddfilename", "pdfimageapplygamma", "pdfimagegamma", "pdfimagehicolor", "pdfimageresolution", "pdfincludechars", "pdfinclusioncopyfonts", "pdfinclusionerrorlevel", "pdfinfo", "pdfinfoomitdate", "pdfinsertht", "pdflastannot", "pdflastlinedepth", "pdflastlink", "pdflastobj", "pdflastxform", "pdflastximage", "pdflastximagepages", "pdflastxpos", "pdflastypos", "pdflinkmargin", "pdfliteral", "pdfmajorversion", "pdfmapfile", "pdfmapline", "pdfminorversion", "pdfnames", "pdfnoligatures", "pdfnormaldeviate", "pdfobj", "pdfobjcompresslevel", "pdfomitcidset", "pdfoutline", "pdfoutput", "pdfpageattr", "pdfpagebox", "pdfpageheight", "pdfpageref", "pdfpageresources", "pdfpagesattr", "pdfpagewidth", "pdfpkfixeddpi", "pdfpkmode", "pdfpkresolution", "pdfprimitive", "pdfprotrudechars", "pdfpxdimen", "pdfrandomseed", "pdfrecompress", "pdfrefobj", "pdfrefxform", "pdfrefximage", "pdfreplacefont", "pdfrestore", "pdfretval", "pdfsave", "pdfsavepos", "pdfsetmatrix", "pdfsetrandomseed", "pdfstartlink", "pdfstartthread", "pdfsuppressoptionalinfo", "pdfsuppressptexinfo", "pdftexbanner", "pdftexrevision", "pdftexversion", "pdfthread", "pdfthreadmargin", "pdftracingfonts", "pdftrailer", "pdftrailerid", "pdfuniformdeviate", "pdfuniqueresname", "pdfvorigin", "pdfxform", "pdfxformattr", "pdfxformmargin", "pdfxformname", "pdfxformresources", "pdfximage" }, + ["pdftex"]={ "ifpdfabsdim", "ifpdfabsnum", "ifpdfprimitive", "pdfadjustspacing", "pdfannot", "pdfcatalog", "pdfcolorstack", "pdfcolorstackinit", "pdfcompresslevel", "pdfcopyfont", "pdfcreationdate", "pdfdecimaldigits", "pdfdest", "pdfdestmargin", "pdfdraftmode", "pdfeachlinedepth", "pdfeachlineheight", "pdfendlink", "pdfendthread", "pdffirstlineheight", "pdffontattr", "pdffontexpand", "pdffontname", "pdffontobjnum", "pdffontsize", "pdfgamma", "pdfgentounicode", "pdfglyphtounicode", "pdfhorigin", "pdfignoreddimen", "pdfignoreunknownimages", "pdfimageaddfilename", "pdfimageapplygamma", "pdfimagegamma", "pdfimagehicolor", "pdfimageresolution", "pdfincludechars", "pdfinclusioncopyfonts", "pdfinclusionerrorlevel", "pdfinfo", "pdfinfoomitdate", "pdfinsertht", "pdflastannot", "pdflastlinedepth", "pdflastlink", "pdflastobj", "pdflastxform", "pdflastximage", "pdflastximagepages", "pdflastxpos", "pdflastypos", "pdflinkmargin", "pdfliteral", "pdfmajorversion", "pdfmapfile", "pdfmapline", "pdfminorversion", "pdfnames", "pdfnoligatures", "pdfnormaldeviate", "pdfobj", "pdfobjcompresslevel", "pdfomitcharset", "pdfomitcidset", "pdfoutline", "pdfoutput", "pdfpageattr", "pdfpagebox", "pdfpageheight", "pdfpageref", "pdfpageresources", "pdfpagesattr", "pdfpagewidth", "pdfpkfixeddpi", "pdfpkmode", "pdfpkresolution", "pdfprimitive", "pdfprotrudechars", "pdfpxdimen", "pdfrandomseed", "pdfrecompress", "pdfrefobj", "pdfrefxform", "pdfrefximage", "pdfreplacefont", "pdfrestore", "pdfretval", "pdfsave", "pdfsavepos", "pdfsetmatrix", "pdfsetrandomseed", "pdfstartlink", "pdfstartthread", "pdfsuppressoptionalinfo", "pdfsuppressptexinfo", "pdftexbanner", "pdftexrevision", "pdftexversion", "pdfthread", "pdfthreadmargin", "pdftracingfonts", "pdftrailer", "pdftrailerid", "pdfuniformdeviate", "pdfuniqueresname", "pdfvorigin", "pdfxform", "pdfxformattr", "pdfxformmargin", "pdfxformname", "pdfxformresources", "pdfximage" }, ["tex"]={ " ", "-", "/", "Uleft", "Umiddle", "Uright", "above", "abovedisplayshortskip", "abovedisplayskip", "abovewithdelims", "accent", "adjdemerits", "advance", "afterassignment", "aftergroup", "atop", "atopwithdelims", "badness", "baselineskip", "batchmode", "begingroup", "belowdisplayshortskip", "belowdisplayskip", "binoppenalty", "botmark", "boundary", "box", "boxmaxdepth", "brokenpenalty", "catcode", "char", "chardef", "cleaders", "closein", "closeout", "clubpenalty", "copy", "count", "countdef", "cr", "crcr", "csname", "day", "deadcycles", "def", "defaulthyphenchar", "defaultskewchar", "delcode", "delimiter", "delimiterfactor", "delimitershortfall", "dimen", "dimendef", "directlua", "discretionary", "displayindent", "displaylimits", "displaystyle", "displaywidowpenalty", "displaywidth", "divide", "doublehyphendemerits", "dp", "dump", "edef", "else", "emergencystretch", "end", "endcsname", "endgroup", "endinput", "endlinechar", "eqno", "errhelp", "errmessage", "errorcontextlines", "errorstopmode", "escapechar", "everycr", "everydisplay", "everyhbox", "everyjob", "everymath", "everypar", "everyvbox", "exhyphenchar", "exhyphenpenalty", "expandafter", "fam", "fi", "finalhyphendemerits", "firstmark", "firstvalidlanguage", "floatingpenalty", "font", "fontdimen", "fontname", "futurelet", "gdef", "glet", "global", "globaldefs", "halign", "hangafter", "hangindent", "hbadness", "hbox", "hfil", "hfill", "hfilneg", "hfuzz", "hoffset", "holdinginserts", "hpack", "hrule", "hsize", "hskip", "hss", "ht", "hyphenation", "hyphenchar", "hyphenpenalty", "if", "ifcase", "ifcat", "ifdim", "ifeof", "iffalse", "ifhbox", "ifhmode", "ifinner", "ifmmode", "ifnum", "ifodd", "iftrue", "ifvbox", "ifvmode", "ifvoid", "ifx", "ignorespaces", "immediate", "indent", "input", "inputlineno", "insert", "insertpenalties", "interlinepenalty", "jobname", "kern", "language", "lastbox", "lastkern", "lastpenalty", "lastskip", "lccode", "leaders", "left", "lefthyphenmin", "leftskip", "leqno", "let", "limits", "linepenalty", "lineskip", "lineskiplimit", "long", "looseness", "lower", "lowercase", "mag", "mark", "mathaccent", "mathbin", "mathchar", "mathchardef", "mathchoice", "mathclose", "mathcode", "mathinner", "mathop", "mathopen", "mathord", "mathpunct", "mathrel", "mathsurround", "maxdeadcycles", "maxdepth", "meaning", "medmuskip", "message", "middle", "mkern", "month", "moveleft", "moveright", "mskip", "multiply", "muskip", "muskipdef", "newlinechar", "noalign", "noboundary", "noexpand", "noindent", "nolimits", "nonscript", "nonstopmode", "nulldelimiterspace", "nullfont", "number", "omit", "openin", "openout", "or", "outer", "output", "outputpenalty", "over", "overfullrule", "overline", "overwithdelims", "pagedepth", "pagefilllstretch", "pagefillstretch", "pagefilstretch", "pagegoal", "pageshrink", "pagestretch", "pagetotal", "par", "parfillskip", "parindent", "parshape", "parskip", "patterns", "pausing", "penalty", "postdisplaypenalty", "predisplaypenalty", "predisplaysize", "pretolerance", "prevdepth", "prevgraf", "protrusionboundary", "radical", "raise", "read", "relax", "relpenalty", "right", "righthyphenmin", "rightskip", "romannumeral", "scriptfont", "scriptscriptfont", "scriptscriptstyle", "scriptspace", "scriptstyle", "scrollmode", "setbox", "setlanguage", "sfcode", "shipout", "show", "showbox", "showboxbreadth", "showboxdepth", "showlists", "showthe", "skewchar", "skip", "skipdef", "spacefactor", "spaceskip", "span", "special", "splitbotmark", "splitfirstmark", "splitmaxdepth", "splittopskip", "string", "tabskip", "textfont", "textstyle", "the", "thickmuskip", "thinmuskip", "time", "toks", "toksdef", "tolerance", "topmark", "topskip", "tpack", "tracingcommands", "tracinglostchars", "tracingmacros", "tracingonline", "tracingoutput", "tracingpages", "tracingparagraphs", "tracingrestores", "tracingstats", "uccode", "uchyph", "underline", "unhbox", "unhcopy", "unkern", "unpenalty", "unskip", "unvbox", "unvcopy", "uppercase", "vadjust", "valign", "vbadness", "vbox", "vcenter", "vfil", "vfill", "vfilneg", "vfuzz", "voffset", "vpack", "vrule", "vsize", "vskip", "vsplit", "vss", "vtop", "wd", "widowpenalty", "wordboundary", "write", "xdef", "xleaders", "xspaceskip", "year" }, ["xetex"]={ "XeTeXversion" }, }
\ No newline at end of file diff --git a/context/data/scite/context/scite-context-data-tex.properties b/context/data/scite/context/scite-context-data-tex.properties index bfa01d6ad..0dfb6b119 100644 --- a/context/data/scite/context/scite-context-data-tex.properties +++ b/context/data/scite/context/scite-context-data-tex.properties @@ -53,33 +53,33 @@ breakafterdirmode catcodetable clearmarks compoundhyphenmode copyfont \ crampeddisplaystyle crampedscriptscriptstyle crampedscriptstyle crampedtextstyle csstring \ draftmode dviextension dvifeedback dvivariable efcode \ endlocalcontrol etoksapp etokspre exceptionpenalty expanded \ -expandglyphsinfont explicitdiscretionary explicithyphenpenalty fontid formatname \ -gleaders gtoksapp gtokspre hjcode hyphenationbounds \ -hyphenationmin hyphenpenaltymode ifabsdim ifabsnum ifcondition \ -ifincsname ifprimitive ignoreligaturesinfont immediateassigned immediateassignment \ -initcatcodetable insertht lastnamedcs lastsavedboxresourceindex lastsavedimageresourceindex \ -lastsavedimageresourcepages lastxpos lastypos latelua leftghost \ -leftmarginkern letcharcode letterspacefont linedir linedirection \ -localbrokenpenalty localinterlinepenalty localleftbox localrightbox lpcode \ -luabytecode luabytecodecall luacopyinputnodes luadef luaescapestring \ -luafunction luafunctioncall luatexbanner luatexrevision luatexversion \ -mathdelimitersmode mathdir mathdirection mathdisplayskipmode matheqnogapstep \ -mathflattenmode mathitalicsmode mathnolimitsmode mathoption mathpenaltiesmode \ -mathrulesfam mathrulesmode mathrulethicknessmode mathscriptboxmode mathscriptcharmode \ -mathscriptsmode mathstyle mathsurroundmode mathsurroundskip nohrule \ -nokerns noligs normaldeviate nospaces novrule \ -outputbox outputmode pagebottomoffset pagedir pagedirection \ -pageheight pageleftoffset pagerightoffset pagetopoffset pagewidth \ -pardir pardirection pdfextension pdffeedback pdfvariable \ -postexhyphenchar posthyphenchar prebinoppenalty predisplaygapfactor preexhyphenchar \ -prehyphenchar prerelpenalty primitive protrudechars pxdimen \ -quitvmode randomseed rightghost rightmarginkern rpcode \ -saveboxresource savecatcodetable saveimageresource savepos scantextokens \ -setfontid setrandomseed shapemode suppressfontnotfounderror suppressifcsnameerror \ -suppresslongerror suppressmathparerror suppressoutererror suppressprimitiveerror synctex \ -tagcode textdir textdirection toksapp tokspre \ -tracingfonts uniformdeviate useboxresource useimageresource xtoksapp \ -xtokspre +expandglyphsinfont explicitdiscretionary explicithyphenpenalty fixupboxesmode fontid \ +formatname gleaders gtoksapp gtokspre hjcode \ +hyphenationbounds hyphenationmin hyphenpenaltymode ifabsdim ifabsnum \ +ifcondition ifincsname ifprimitive ignoreligaturesinfont immediateassigned \ +immediateassignment initcatcodetable insertht lastnamedcs lastsavedboxresourceindex \ +lastsavedimageresourceindex lastsavedimageresourcepages lastxpos lastypos latelua \ +leftghost leftmarginkern letcharcode letterspacefont linedir \ +linedirection localbrokenpenalty localinterlinepenalty localleftbox localrightbox \ +lpcode luabytecode luabytecodecall luacopyinputnodes luadef \ +luaescapestring luafunction luafunctioncall luatexbanner luatexrevision \ +luatexversion mathdelimitersmode mathdir mathdirection mathdisplayskipmode \ +matheqnogapstep mathflattenmode mathitalicsmode mathnolimitsmode mathoption \ +mathpenaltiesmode mathrulesfam mathrulesmode mathrulethicknessmode mathscriptboxmode \ +mathscriptcharmode mathscriptsmode mathstyle mathsurroundmode mathsurroundskip \ +nohrule nokerns noligs normaldeviate nospaces \ +novrule outputbox outputmode pagebottomoffset pagedir \ +pagedirection pageheight pageleftoffset pagerightoffset pagetopoffset \ +pagewidth pardir pardirection pdfextension pdffeedback \ +pdfvariable postexhyphenchar posthyphenchar prebinoppenalty predisplaygapfactor \ +preexhyphenchar prehyphenchar prerelpenalty primitive protrudechars \ +pxdimen quitvmode randomseed rightghost rightmarginkern \ +rpcode saveboxresource savecatcodetable saveimageresource savepos \ +scantextokens setfontid setrandomseed shapemode suppressfontnotfounderror \ +suppressifcsnameerror suppresslongerror suppressmathparerror suppressoutererror suppressprimitiveerror \ +synctex tagcode textdir textdirection toksapp \ +tokspre tracingfonts uniformdeviate useboxresource useimageresource \ +xtoksapp xtokspre keywordclass.tex.omega=\ Omegaminorversion Omegarevision Omegaversion @@ -97,17 +97,17 @@ pdfinfo pdfinfoomitdate pdfinsertht pdflastannot pdflastlinedepth \ pdflastlink pdflastobj pdflastxform pdflastximage pdflastximagepages \ pdflastxpos pdflastypos pdflinkmargin pdfliteral pdfmajorversion \ pdfmapfile pdfmapline pdfminorversion pdfnames pdfnoligatures \ -pdfnormaldeviate pdfobj pdfobjcompresslevel pdfomitcidset pdfoutline \ -pdfoutput pdfpageattr pdfpagebox pdfpageheight pdfpageref \ -pdfpageresources pdfpagesattr pdfpagewidth pdfpkfixeddpi pdfpkmode \ -pdfpkresolution pdfprimitive pdfprotrudechars pdfpxdimen pdfrandomseed \ -pdfrecompress pdfrefobj pdfrefxform pdfrefximage pdfreplacefont \ -pdfrestore pdfretval pdfsave pdfsavepos pdfsetmatrix \ -pdfsetrandomseed pdfstartlink pdfstartthread pdfsuppressoptionalinfo pdfsuppressptexinfo \ -pdftexbanner pdftexrevision pdftexversion pdfthread pdfthreadmargin \ -pdftracingfonts pdftrailer pdftrailerid pdfuniformdeviate pdfuniqueresname \ -pdfvorigin pdfxform pdfxformattr pdfxformmargin pdfxformname \ -pdfxformresources pdfximage +pdfnormaldeviate pdfobj pdfobjcompresslevel pdfomitcharset pdfomitcidset \ +pdfoutline pdfoutput pdfpageattr pdfpagebox pdfpageheight \ +pdfpageref pdfpageresources pdfpagesattr pdfpagewidth pdfpkfixeddpi \ +pdfpkmode pdfpkresolution pdfprimitive pdfprotrudechars pdfpxdimen \ +pdfrandomseed pdfrecompress pdfrefobj pdfrefxform pdfrefximage \ +pdfreplacefont pdfrestore pdfretval pdfsave pdfsavepos \ +pdfsetmatrix pdfsetrandomseed pdfstartlink pdfstartthread pdfsuppressoptionalinfo \ +pdfsuppressptexinfo pdftexbanner pdftexrevision pdftexversion pdfthread \ +pdfthreadmargin pdftracingfonts pdftrailer pdftrailerid pdfuniformdeviate \ +pdfuniqueresname pdfvorigin pdfxform pdfxformattr pdfxformmargin \ +pdfxformname pdfxformresources pdfximage keywordclass.tex.tex=\ - / Uleft \ diff --git a/context/data/textadept/context/data/scite-context-data-tex.lua b/context/data/textadept/context/data/scite-context-data-tex.lua index 8c518fe38..0e5056f8e 100644 --- a/context/data/textadept/context/data/scite-context-data-tex.lua +++ b/context/data/textadept/context/data/scite-context-data-tex.lua @@ -1,9 +1,9 @@ return { ["aleph"]={ "Alephminorversion", "Alephrevision", "Alephversion" }, ["etex"]={ "botmarks", "clubpenalties", "currentgrouplevel", "currentgrouptype", "currentifbranch", "currentiflevel", "currentiftype", "detokenize", "dimexpr", "displaywidowpenalties", "eTeXVersion", "eTeXminorversion", "eTeXrevision", "eTeXversion", "everyeof", "firstmarks", "fontchardp", "fontcharht", "fontcharic", "fontcharwd", "glueexpr", "glueshrink", "glueshrinkorder", "gluestretch", "gluestretchorder", "gluetomu", "ifcsname", "ifdefined", "iffontchar", "interactionmode", "interlinepenalties", "lastlinefit", "lastnodetype", "marks", "muexpr", "mutoglue", "numexpr", "pagediscards", "parshapedimen", "parshapeindent", "parshapelength", "predisplaydirection", "protected", "readline", "savinghyphcodes", "savingvdiscards", "scantokens", "showgroups", "showifs", "showtokens", "splitbotmarks", "splitdiscards", "splitfirstmarks", "topmarks", "tracingassigns", "tracinggroups", "tracingifs", "tracingnesting", "tracingscantokens", "unexpanded", "unless", "widowpenalties" }, - ["luatex"]={ "Uchar", "Udelcode", "Udelcodenum", "Udelimiter", "Udelimiterover", "Udelimiterunder", "Uhextensible", "Umathaccent", "Umathaxis", "Umathbinbinspacing", "Umathbinclosespacing", "Umathbininnerspacing", "Umathbinopenspacing", "Umathbinopspacing", "Umathbinordspacing", "Umathbinpunctspacing", "Umathbinrelspacing", "Umathchar", "Umathcharclass", "Umathchardef", "Umathcharfam", "Umathcharnum", "Umathcharnumdef", "Umathcharslot", "Umathclosebinspacing", "Umathcloseclosespacing", "Umathcloseinnerspacing", "Umathcloseopenspacing", "Umathcloseopspacing", "Umathcloseordspacing", "Umathclosepunctspacing", "Umathcloserelspacing", "Umathcode", "Umathcodenum", "Umathconnectoroverlapmin", "Umathfractiondelsize", "Umathfractiondenomdown", "Umathfractiondenomvgap", "Umathfractionnumup", "Umathfractionnumvgap", "Umathfractionrule", "Umathinnerbinspacing", "Umathinnerclosespacing", "Umathinnerinnerspacing", "Umathinneropenspacing", "Umathinneropspacing", "Umathinnerordspacing", "Umathinnerpunctspacing", "Umathinnerrelspacing", "Umathlimitabovebgap", "Umathlimitabovekern", "Umathlimitabovevgap", "Umathlimitbelowbgap", "Umathlimitbelowkern", "Umathlimitbelowvgap", "Umathnolimitsubfactor", "Umathnolimitsupfactor", "Umathopbinspacing", "Umathopclosespacing", "Umathopenbinspacing", "Umathopenclosespacing", "Umathopeninnerspacing", "Umathopenopenspacing", "Umathopenopspacing", "Umathopenordspacing", "Umathopenpunctspacing", "Umathopenrelspacing", "Umathoperatorsize", "Umathopinnerspacing", "Umathopopenspacing", "Umathopopspacing", "Umathopordspacing", "Umathoppunctspacing", "Umathoprelspacing", "Umathordbinspacing", "Umathordclosespacing", "Umathordinnerspacing", "Umathordopenspacing", "Umathordopspacing", "Umathordordspacing", "Umathordpunctspacing", "Umathordrelspacing", "Umathoverbarkern", "Umathoverbarrule", "Umathoverbarvgap", "Umathoverdelimiterbgap", "Umathoverdelimitervgap", "Umathpunctbinspacing", "Umathpunctclosespacing", "Umathpunctinnerspacing", "Umathpunctopenspacing", "Umathpunctopspacing", "Umathpunctordspacing", "Umathpunctpunctspacing", "Umathpunctrelspacing", "Umathquad", "Umathradicaldegreeafter", "Umathradicaldegreebefore", "Umathradicaldegreeraise", "Umathradicalkern", "Umathradicalrule", "Umathradicalvgap", "Umathrelbinspacing", "Umathrelclosespacing", "Umathrelinnerspacing", "Umathrelopenspacing", "Umathrelopspacing", "Umathrelordspacing", "Umathrelpunctspacing", "Umathrelrelspacing", "Umathskewedfractionhgap", "Umathskewedfractionvgap", "Umathspaceafterscript", "Umathstackdenomdown", "Umathstacknumup", "Umathstackvgap", "Umathsubshiftdown", "Umathsubshiftdrop", "Umathsubsupshiftdown", "Umathsubsupvgap", "Umathsubtopmax", "Umathsupbottommin", "Umathsupshiftdrop", "Umathsupshiftup", "Umathsupsubbottommax", "Umathunderbarkern", "Umathunderbarrule", "Umathunderbarvgap", "Umathunderdelimiterbgap", "Umathunderdelimitervgap", "Unosubscript", "Unosuperscript", "Uoverdelimiter", "Uradical", "Uroot", "Uskewed", "Uskewedwithdelims", "Ustack", "Ustartdisplaymath", "Ustartmath", "Ustopdisplaymath", "Ustopmath", "Usubscript", "Usuperscript", "Uunderdelimiter", "Uvextensible", "adjustspacing", "alignmark", "aligntab", "attribute", "attributedef", "automaticdiscretionary", "automatichyphenmode", "automatichyphenpenalty", "begincsname", "bodydir", "bodydirection", "boxdir", "boxdirection", "breakafterdirmode", "catcodetable", "clearmarks", "compoundhyphenmode", "copyfont", "crampeddisplaystyle", "crampedscriptscriptstyle", "crampedscriptstyle", "crampedtextstyle", "csstring", "draftmode", "dviextension", "dvifeedback", "dvivariable", "efcode", "endlocalcontrol", "etoksapp", "etokspre", "exceptionpenalty", "expanded", "expandglyphsinfont", "explicitdiscretionary", "explicithyphenpenalty", "fontid", "formatname", "gleaders", "gtoksapp", "gtokspre", "hjcode", "hyphenationbounds", "hyphenationmin", "hyphenpenaltymode", "ifabsdim", "ifabsnum", "ifcondition", "ifincsname", "ifprimitive", "ignoreligaturesinfont", "immediateassigned", "immediateassignment", "initcatcodetable", "insertht", "lastnamedcs", "lastsavedboxresourceindex", "lastsavedimageresourceindex", "lastsavedimageresourcepages", "lastxpos", "lastypos", "latelua", "leftghost", "leftmarginkern", "letcharcode", "letterspacefont", "linedir", "linedirection", "localbrokenpenalty", "localinterlinepenalty", "localleftbox", "localrightbox", "lpcode", "luabytecode", "luabytecodecall", "luacopyinputnodes", "luadef", "luaescapestring", "luafunction", "luafunctioncall", "luatexbanner", "luatexrevision", "luatexversion", "mathdelimitersmode", "mathdir", "mathdirection", "mathdisplayskipmode", "matheqnogapstep", "mathflattenmode", "mathitalicsmode", "mathnolimitsmode", "mathoption", "mathpenaltiesmode", "mathrulesfam", "mathrulesmode", "mathrulethicknessmode", "mathscriptboxmode", "mathscriptcharmode", "mathscriptsmode", "mathstyle", "mathsurroundmode", "mathsurroundskip", "nohrule", "nokerns", "noligs", "normaldeviate", "nospaces", "novrule", "outputbox", "outputmode", "pagebottomoffset", "pagedir", "pagedirection", "pageheight", "pageleftoffset", "pagerightoffset", "pagetopoffset", "pagewidth", "pardir", "pardirection", "pdfextension", "pdffeedback", "pdfvariable", "postexhyphenchar", "posthyphenchar", "prebinoppenalty", "predisplaygapfactor", "preexhyphenchar", "prehyphenchar", "prerelpenalty", "primitive", "protrudechars", "pxdimen", "quitvmode", "randomseed", "rightghost", "rightmarginkern", "rpcode", "saveboxresource", "savecatcodetable", "saveimageresource", "savepos", "scantextokens", "setfontid", "setrandomseed", "shapemode", "suppressfontnotfounderror", "suppressifcsnameerror", "suppresslongerror", "suppressmathparerror", "suppressoutererror", "suppressprimitiveerror", "synctex", "tagcode", "textdir", "textdirection", "toksapp", "tokspre", "tracingfonts", "uniformdeviate", "useboxresource", "useimageresource", "xtoksapp", "xtokspre" }, + ["luatex"]={ "Uchar", "Udelcode", "Udelcodenum", "Udelimiter", "Udelimiterover", "Udelimiterunder", "Uhextensible", "Umathaccent", "Umathaxis", "Umathbinbinspacing", "Umathbinclosespacing", "Umathbininnerspacing", "Umathbinopenspacing", "Umathbinopspacing", "Umathbinordspacing", "Umathbinpunctspacing", "Umathbinrelspacing", "Umathchar", "Umathcharclass", "Umathchardef", "Umathcharfam", "Umathcharnum", "Umathcharnumdef", "Umathcharslot", "Umathclosebinspacing", "Umathcloseclosespacing", "Umathcloseinnerspacing", "Umathcloseopenspacing", "Umathcloseopspacing", "Umathcloseordspacing", "Umathclosepunctspacing", "Umathcloserelspacing", "Umathcode", "Umathcodenum", "Umathconnectoroverlapmin", "Umathfractiondelsize", "Umathfractiondenomdown", "Umathfractiondenomvgap", "Umathfractionnumup", "Umathfractionnumvgap", "Umathfractionrule", "Umathinnerbinspacing", "Umathinnerclosespacing", "Umathinnerinnerspacing", "Umathinneropenspacing", "Umathinneropspacing", "Umathinnerordspacing", "Umathinnerpunctspacing", "Umathinnerrelspacing", "Umathlimitabovebgap", "Umathlimitabovekern", "Umathlimitabovevgap", "Umathlimitbelowbgap", "Umathlimitbelowkern", "Umathlimitbelowvgap", "Umathnolimitsubfactor", "Umathnolimitsupfactor", "Umathopbinspacing", "Umathopclosespacing", "Umathopenbinspacing", "Umathopenclosespacing", "Umathopeninnerspacing", "Umathopenopenspacing", "Umathopenopspacing", "Umathopenordspacing", "Umathopenpunctspacing", "Umathopenrelspacing", "Umathoperatorsize", "Umathopinnerspacing", "Umathopopenspacing", "Umathopopspacing", "Umathopordspacing", "Umathoppunctspacing", "Umathoprelspacing", "Umathordbinspacing", "Umathordclosespacing", "Umathordinnerspacing", "Umathordopenspacing", "Umathordopspacing", "Umathordordspacing", "Umathordpunctspacing", "Umathordrelspacing", "Umathoverbarkern", "Umathoverbarrule", "Umathoverbarvgap", "Umathoverdelimiterbgap", "Umathoverdelimitervgap", "Umathpunctbinspacing", "Umathpunctclosespacing", "Umathpunctinnerspacing", "Umathpunctopenspacing", "Umathpunctopspacing", "Umathpunctordspacing", "Umathpunctpunctspacing", "Umathpunctrelspacing", "Umathquad", "Umathradicaldegreeafter", "Umathradicaldegreebefore", "Umathradicaldegreeraise", "Umathradicalkern", "Umathradicalrule", "Umathradicalvgap", "Umathrelbinspacing", "Umathrelclosespacing", "Umathrelinnerspacing", "Umathrelopenspacing", "Umathrelopspacing", "Umathrelordspacing", "Umathrelpunctspacing", "Umathrelrelspacing", "Umathskewedfractionhgap", "Umathskewedfractionvgap", "Umathspaceafterscript", "Umathstackdenomdown", "Umathstacknumup", "Umathstackvgap", "Umathsubshiftdown", "Umathsubshiftdrop", "Umathsubsupshiftdown", "Umathsubsupvgap", "Umathsubtopmax", "Umathsupbottommin", "Umathsupshiftdrop", "Umathsupshiftup", "Umathsupsubbottommax", "Umathunderbarkern", "Umathunderbarrule", "Umathunderbarvgap", "Umathunderdelimiterbgap", "Umathunderdelimitervgap", "Unosubscript", "Unosuperscript", "Uoverdelimiter", "Uradical", "Uroot", "Uskewed", "Uskewedwithdelims", "Ustack", "Ustartdisplaymath", "Ustartmath", "Ustopdisplaymath", "Ustopmath", "Usubscript", "Usuperscript", "Uunderdelimiter", "Uvextensible", "adjustspacing", "alignmark", "aligntab", "attribute", "attributedef", "automaticdiscretionary", "automatichyphenmode", "automatichyphenpenalty", "begincsname", "bodydir", "bodydirection", "boxdir", "boxdirection", "breakafterdirmode", "catcodetable", "clearmarks", "compoundhyphenmode", "copyfont", "crampeddisplaystyle", "crampedscriptscriptstyle", "crampedscriptstyle", "crampedtextstyle", "csstring", "draftmode", "dviextension", "dvifeedback", "dvivariable", "efcode", "endlocalcontrol", "etoksapp", "etokspre", "exceptionpenalty", "expanded", "expandglyphsinfont", "explicitdiscretionary", "explicithyphenpenalty", "fixupboxesmode", "fontid", "formatname", "gleaders", "gtoksapp", "gtokspre", "hjcode", "hyphenationbounds", "hyphenationmin", "hyphenpenaltymode", "ifabsdim", "ifabsnum", "ifcondition", "ifincsname", "ifprimitive", "ignoreligaturesinfont", "immediateassigned", "immediateassignment", "initcatcodetable", "insertht", "lastnamedcs", "lastsavedboxresourceindex", "lastsavedimageresourceindex", "lastsavedimageresourcepages", "lastxpos", "lastypos", "latelua", "leftghost", "leftmarginkern", "letcharcode", "letterspacefont", "linedir", "linedirection", "localbrokenpenalty", "localinterlinepenalty", "localleftbox", "localrightbox", "lpcode", "luabytecode", "luabytecodecall", "luacopyinputnodes", "luadef", "luaescapestring", "luafunction", "luafunctioncall", "luatexbanner", "luatexrevision", "luatexversion", "mathdelimitersmode", "mathdir", "mathdirection", "mathdisplayskipmode", "matheqnogapstep", "mathflattenmode", "mathitalicsmode", "mathnolimitsmode", "mathoption", "mathpenaltiesmode", "mathrulesfam", "mathrulesmode", "mathrulethicknessmode", "mathscriptboxmode", "mathscriptcharmode", "mathscriptsmode", "mathstyle", "mathsurroundmode", "mathsurroundskip", "nohrule", "nokerns", "noligs", "normaldeviate", "nospaces", "novrule", "outputbox", "outputmode", "pagebottomoffset", "pagedir", "pagedirection", "pageheight", "pageleftoffset", "pagerightoffset", "pagetopoffset", "pagewidth", "pardir", "pardirection", "pdfextension", "pdffeedback", "pdfvariable", "postexhyphenchar", "posthyphenchar", "prebinoppenalty", "predisplaygapfactor", "preexhyphenchar", "prehyphenchar", "prerelpenalty", "primitive", "protrudechars", "pxdimen", "quitvmode", "randomseed", "rightghost", "rightmarginkern", "rpcode", "saveboxresource", "savecatcodetable", "saveimageresource", "savepos", "scantextokens", "setfontid", "setrandomseed", "shapemode", "suppressfontnotfounderror", "suppressifcsnameerror", "suppresslongerror", "suppressmathparerror", "suppressoutererror", "suppressprimitiveerror", "synctex", "tagcode", "textdir", "textdirection", "toksapp", "tokspre", "tracingfonts", "uniformdeviate", "useboxresource", "useimageresource", "xtoksapp", "xtokspre" }, ["omega"]={ "Omegaminorversion", "Omegarevision", "Omegaversion" }, - ["pdftex"]={ "ifpdfabsdim", "ifpdfabsnum", "ifpdfprimitive", "pdfadjustspacing", "pdfannot", "pdfcatalog", "pdfcolorstack", "pdfcolorstackinit", "pdfcompresslevel", "pdfcopyfont", "pdfcreationdate", "pdfdecimaldigits", "pdfdest", "pdfdestmargin", "pdfdraftmode", "pdfeachlinedepth", "pdfeachlineheight", "pdfendlink", "pdfendthread", "pdffirstlineheight", "pdffontattr", "pdffontexpand", "pdffontname", "pdffontobjnum", "pdffontsize", "pdfgamma", "pdfgentounicode", "pdfglyphtounicode", "pdfhorigin", "pdfignoreddimen", "pdfignoreunknownimages", "pdfimageaddfilename", "pdfimageapplygamma", "pdfimagegamma", "pdfimagehicolor", "pdfimageresolution", "pdfincludechars", "pdfinclusioncopyfonts", "pdfinclusionerrorlevel", "pdfinfo", "pdfinfoomitdate", "pdfinsertht", "pdflastannot", "pdflastlinedepth", "pdflastlink", "pdflastobj", "pdflastxform", "pdflastximage", "pdflastximagepages", "pdflastxpos", "pdflastypos", "pdflinkmargin", "pdfliteral", "pdfmajorversion", "pdfmapfile", "pdfmapline", "pdfminorversion", "pdfnames", "pdfnoligatures", "pdfnormaldeviate", "pdfobj", "pdfobjcompresslevel", "pdfomitcidset", "pdfoutline", "pdfoutput", "pdfpageattr", "pdfpagebox", "pdfpageheight", "pdfpageref", "pdfpageresources", "pdfpagesattr", "pdfpagewidth", "pdfpkfixeddpi", "pdfpkmode", "pdfpkresolution", "pdfprimitive", "pdfprotrudechars", "pdfpxdimen", "pdfrandomseed", "pdfrecompress", "pdfrefobj", "pdfrefxform", "pdfrefximage", "pdfreplacefont", "pdfrestore", "pdfretval", "pdfsave", "pdfsavepos", "pdfsetmatrix", "pdfsetrandomseed", "pdfstartlink", "pdfstartthread", "pdfsuppressoptionalinfo", "pdfsuppressptexinfo", "pdftexbanner", "pdftexrevision", "pdftexversion", "pdfthread", "pdfthreadmargin", "pdftracingfonts", "pdftrailer", "pdftrailerid", "pdfuniformdeviate", "pdfuniqueresname", "pdfvorigin", "pdfxform", "pdfxformattr", "pdfxformmargin", "pdfxformname", "pdfxformresources", "pdfximage" }, + ["pdftex"]={ "ifpdfabsdim", "ifpdfabsnum", "ifpdfprimitive", "pdfadjustspacing", "pdfannot", "pdfcatalog", "pdfcolorstack", "pdfcolorstackinit", "pdfcompresslevel", "pdfcopyfont", "pdfcreationdate", "pdfdecimaldigits", "pdfdest", "pdfdestmargin", "pdfdraftmode", "pdfeachlinedepth", "pdfeachlineheight", "pdfendlink", "pdfendthread", "pdffirstlineheight", "pdffontattr", "pdffontexpand", "pdffontname", "pdffontobjnum", "pdffontsize", "pdfgamma", "pdfgentounicode", "pdfglyphtounicode", "pdfhorigin", "pdfignoreddimen", "pdfignoreunknownimages", "pdfimageaddfilename", "pdfimageapplygamma", "pdfimagegamma", "pdfimagehicolor", "pdfimageresolution", "pdfincludechars", "pdfinclusioncopyfonts", "pdfinclusionerrorlevel", "pdfinfo", "pdfinfoomitdate", "pdfinsertht", "pdflastannot", "pdflastlinedepth", "pdflastlink", "pdflastobj", "pdflastxform", "pdflastximage", "pdflastximagepages", "pdflastxpos", "pdflastypos", "pdflinkmargin", "pdfliteral", "pdfmajorversion", "pdfmapfile", "pdfmapline", "pdfminorversion", "pdfnames", "pdfnoligatures", "pdfnormaldeviate", "pdfobj", "pdfobjcompresslevel", "pdfomitcharset", "pdfomitcidset", "pdfoutline", "pdfoutput", "pdfpageattr", "pdfpagebox", "pdfpageheight", "pdfpageref", "pdfpageresources", "pdfpagesattr", "pdfpagewidth", "pdfpkfixeddpi", "pdfpkmode", "pdfpkresolution", "pdfprimitive", "pdfprotrudechars", "pdfpxdimen", "pdfrandomseed", "pdfrecompress", "pdfrefobj", "pdfrefxform", "pdfrefximage", "pdfreplacefont", "pdfrestore", "pdfretval", "pdfsave", "pdfsavepos", "pdfsetmatrix", "pdfsetrandomseed", "pdfstartlink", "pdfstartthread", "pdfsuppressoptionalinfo", "pdfsuppressptexinfo", "pdftexbanner", "pdftexrevision", "pdftexversion", "pdfthread", "pdfthreadmargin", "pdftracingfonts", "pdftrailer", "pdftrailerid", "pdfuniformdeviate", "pdfuniqueresname", "pdfvorigin", "pdfxform", "pdfxformattr", "pdfxformmargin", "pdfxformname", "pdfxformresources", "pdfximage" }, ["tex"]={ " ", "-", "/", "Uleft", "Umiddle", "Uright", "above", "abovedisplayshortskip", "abovedisplayskip", "abovewithdelims", "accent", "adjdemerits", "advance", "afterassignment", "aftergroup", "atop", "atopwithdelims", "badness", "baselineskip", "batchmode", "begingroup", "belowdisplayshortskip", "belowdisplayskip", "binoppenalty", "botmark", "boundary", "box", "boxmaxdepth", "brokenpenalty", "catcode", "char", "chardef", "cleaders", "closein", "closeout", "clubpenalty", "copy", "count", "countdef", "cr", "crcr", "csname", "day", "deadcycles", "def", "defaulthyphenchar", "defaultskewchar", "delcode", "delimiter", "delimiterfactor", "delimitershortfall", "dimen", "dimendef", "directlua", "discretionary", "displayindent", "displaylimits", "displaystyle", "displaywidowpenalty", "displaywidth", "divide", "doublehyphendemerits", "dp", "dump", "edef", "else", "emergencystretch", "end", "endcsname", "endgroup", "endinput", "endlinechar", "eqno", "errhelp", "errmessage", "errorcontextlines", "errorstopmode", "escapechar", "everycr", "everydisplay", "everyhbox", "everyjob", "everymath", "everypar", "everyvbox", "exhyphenchar", "exhyphenpenalty", "expandafter", "fam", "fi", "finalhyphendemerits", "firstmark", "firstvalidlanguage", "floatingpenalty", "font", "fontdimen", "fontname", "futurelet", "gdef", "glet", "global", "globaldefs", "halign", "hangafter", "hangindent", "hbadness", "hbox", "hfil", "hfill", "hfilneg", "hfuzz", "hoffset", "holdinginserts", "hpack", "hrule", "hsize", "hskip", "hss", "ht", "hyphenation", "hyphenchar", "hyphenpenalty", "if", "ifcase", "ifcat", "ifdim", "ifeof", "iffalse", "ifhbox", "ifhmode", "ifinner", "ifmmode", "ifnum", "ifodd", "iftrue", "ifvbox", "ifvmode", "ifvoid", "ifx", "ignorespaces", "immediate", "indent", "input", "inputlineno", "insert", "insertpenalties", "interlinepenalty", "jobname", "kern", "language", "lastbox", "lastkern", "lastpenalty", "lastskip", "lccode", "leaders", "left", "lefthyphenmin", "leftskip", "leqno", "let", "limits", "linepenalty", "lineskip", "lineskiplimit", "long", "looseness", "lower", "lowercase", "mag", "mark", "mathaccent", "mathbin", "mathchar", "mathchardef", "mathchoice", "mathclose", "mathcode", "mathinner", "mathop", "mathopen", "mathord", "mathpunct", "mathrel", "mathsurround", "maxdeadcycles", "maxdepth", "meaning", "medmuskip", "message", "middle", "mkern", "month", "moveleft", "moveright", "mskip", "multiply", "muskip", "muskipdef", "newlinechar", "noalign", "noboundary", "noexpand", "noindent", "nolimits", "nonscript", "nonstopmode", "nulldelimiterspace", "nullfont", "number", "omit", "openin", "openout", "or", "outer", "output", "outputpenalty", "over", "overfullrule", "overline", "overwithdelims", "pagedepth", "pagefilllstretch", "pagefillstretch", "pagefilstretch", "pagegoal", "pageshrink", "pagestretch", "pagetotal", "par", "parfillskip", "parindent", "parshape", "parskip", "patterns", "pausing", "penalty", "postdisplaypenalty", "predisplaypenalty", "predisplaysize", "pretolerance", "prevdepth", "prevgraf", "protrusionboundary", "radical", "raise", "read", "relax", "relpenalty", "right", "righthyphenmin", "rightskip", "romannumeral", "scriptfont", "scriptscriptfont", "scriptscriptstyle", "scriptspace", "scriptstyle", "scrollmode", "setbox", "setlanguage", "sfcode", "shipout", "show", "showbox", "showboxbreadth", "showboxdepth", "showlists", "showthe", "skewchar", "skip", "skipdef", "spacefactor", "spaceskip", "span", "special", "splitbotmark", "splitfirstmark", "splitmaxdepth", "splittopskip", "string", "tabskip", "textfont", "textstyle", "the", "thickmuskip", "thinmuskip", "time", "toks", "toksdef", "tolerance", "topmark", "topskip", "tpack", "tracingcommands", "tracinglostchars", "tracingmacros", "tracingonline", "tracingoutput", "tracingpages", "tracingparagraphs", "tracingrestores", "tracingstats", "uccode", "uchyph", "underline", "unhbox", "unhcopy", "unkern", "unpenalty", "unskip", "unvbox", "unvcopy", "uppercase", "vadjust", "valign", "vbadness", "vbox", "vcenter", "vfil", "vfill", "vfilneg", "vfuzz", "voffset", "vpack", "vrule", "vsize", "vskip", "vsplit", "vss", "vtop", "wd", "widowpenalty", "wordboundary", "write", "xdef", "xleaders", "xspaceskip", "year" }, ["xetex"]={ "XeTeXversion" }, }
\ No newline at end of file diff --git a/doc/context/documents/general/manuals/musings.pdf b/doc/context/documents/general/manuals/musings.pdf Binary files differnew file mode 100644 index 000000000..d777b04b3 --- /dev/null +++ b/doc/context/documents/general/manuals/musings.pdf diff --git a/doc/context/documents/general/qrcs/setup-cs.pdf b/doc/context/documents/general/qrcs/setup-cs.pdf Binary files differindex fa1906a01..3c4dbc0e9 100644 --- a/doc/context/documents/general/qrcs/setup-cs.pdf +++ b/doc/context/documents/general/qrcs/setup-cs.pdf diff --git a/doc/context/documents/general/qrcs/setup-de.pdf b/doc/context/documents/general/qrcs/setup-de.pdf Binary files differindex c524d17f0..56f73ed2c 100644 --- a/doc/context/documents/general/qrcs/setup-de.pdf +++ b/doc/context/documents/general/qrcs/setup-de.pdf diff --git a/doc/context/documents/general/qrcs/setup-en.pdf b/doc/context/documents/general/qrcs/setup-en.pdf Binary files differindex 96e7b9c5a..28123182c 100644 --- a/doc/context/documents/general/qrcs/setup-en.pdf +++ b/doc/context/documents/general/qrcs/setup-en.pdf diff --git a/doc/context/documents/general/qrcs/setup-fr.pdf b/doc/context/documents/general/qrcs/setup-fr.pdf Binary files differindex c36fab3d6..86fb3283e 100644 --- a/doc/context/documents/general/qrcs/setup-fr.pdf +++ b/doc/context/documents/general/qrcs/setup-fr.pdf diff --git a/doc/context/documents/general/qrcs/setup-it.pdf b/doc/context/documents/general/qrcs/setup-it.pdf Binary files differindex 16966ce5d..a06be230a 100644 --- a/doc/context/documents/general/qrcs/setup-it.pdf +++ b/doc/context/documents/general/qrcs/setup-it.pdf diff --git a/doc/context/documents/general/qrcs/setup-mapping-cs.pdf b/doc/context/documents/general/qrcs/setup-mapping-cs.pdf Binary files differindex b670c103f..1a201a46f 100644 --- a/doc/context/documents/general/qrcs/setup-mapping-cs.pdf +++ b/doc/context/documents/general/qrcs/setup-mapping-cs.pdf diff --git a/doc/context/documents/general/qrcs/setup-mapping-de.pdf b/doc/context/documents/general/qrcs/setup-mapping-de.pdf Binary files differindex 9e197be49..2485ea667 100644 --- a/doc/context/documents/general/qrcs/setup-mapping-de.pdf +++ b/doc/context/documents/general/qrcs/setup-mapping-de.pdf diff --git a/doc/context/documents/general/qrcs/setup-mapping-en.pdf b/doc/context/documents/general/qrcs/setup-mapping-en.pdf Binary files differindex b9ac1a83d..fcae8a2af 100644 --- a/doc/context/documents/general/qrcs/setup-mapping-en.pdf +++ b/doc/context/documents/general/qrcs/setup-mapping-en.pdf diff --git a/doc/context/documents/general/qrcs/setup-mapping-fr.pdf b/doc/context/documents/general/qrcs/setup-mapping-fr.pdf Binary files differindex c2939afb3..0763cb58c 100644 --- a/doc/context/documents/general/qrcs/setup-mapping-fr.pdf +++ b/doc/context/documents/general/qrcs/setup-mapping-fr.pdf diff --git a/doc/context/documents/general/qrcs/setup-mapping-it.pdf b/doc/context/documents/general/qrcs/setup-mapping-it.pdf Binary files differindex 37fe767e9..b3f72ae7e 100644 --- a/doc/context/documents/general/qrcs/setup-mapping-it.pdf +++ b/doc/context/documents/general/qrcs/setup-mapping-it.pdf diff --git a/doc/context/documents/general/qrcs/setup-mapping-nl.pdf b/doc/context/documents/general/qrcs/setup-mapping-nl.pdf Binary files differindex 5160e0573..901bb26ec 100644 --- a/doc/context/documents/general/qrcs/setup-mapping-nl.pdf +++ b/doc/context/documents/general/qrcs/setup-mapping-nl.pdf diff --git a/doc/context/documents/general/qrcs/setup-mapping-ro.pdf b/doc/context/documents/general/qrcs/setup-mapping-ro.pdf Binary files differindex c95f63899..f0e64fdde 100644 --- a/doc/context/documents/general/qrcs/setup-mapping-ro.pdf +++ b/doc/context/documents/general/qrcs/setup-mapping-ro.pdf diff --git a/doc/context/documents/general/qrcs/setup-nl.pdf b/doc/context/documents/general/qrcs/setup-nl.pdf Binary files differindex 0ca910659..ed2f0fd05 100644 --- a/doc/context/documents/general/qrcs/setup-nl.pdf +++ b/doc/context/documents/general/qrcs/setup-nl.pdf diff --git a/doc/context/documents/general/qrcs/setup-ro.pdf b/doc/context/documents/general/qrcs/setup-ro.pdf Binary files differindex de1ecb75a..4bdc49fe3 100644 --- a/doc/context/documents/general/qrcs/setup-ro.pdf +++ b/doc/context/documents/general/qrcs/setup-ro.pdf diff --git a/doc/context/sources/general/manuals/musings/musings-children.tex b/doc/context/sources/general/manuals/musings/musings-children.tex new file mode 100644 index 000000000..b814675bb --- /dev/null +++ b/doc/context/sources/general/manuals/musings/musings-children.tex @@ -0,0 +1,1253 @@ +% language=uk + +% naming-nature.jog + +\startcomponent musings-children + +\environment musings-style + +\definedescription + [presomething] + [headstyle=\bold, + alternative=hanging, + width=fit, + hang=1] + +\startchapter[title={Children of \TEX}] + +\startsection[title={The theme}] + +Nearly always \TEX\ conferences carry a theme. As there have been many +conferences the organizers have run out of themes involving fonts, macros and +typesetting and are now cooking up more fuzzy ones. Take the Bacho\TUG\ 2017 +theme: + +\startnarrower[left,8*right] \startpacked +\startpresomething {Premises} + The starting point, what we have, what do we use, what has been achieved? +\stoppresomething +\startpresomething {Predilections} + How do we act now, how do we want to act, what is important to us and what do + we miss? +\stoppresomething +\startpresomething {Predictions} + What is the future of \TEX, what we'd like to achieve and can we influence + it? +\stoppresomething +\stoppacked \stopnarrower + +My first impression with these three P words was: what do they mean? Followed by +the thought: this is no longer a place to take kids to. But the Internet gives +access to the Cambridge Dictionary, so instead of running to the dusty meter of +dictionaries somewhere else in my place, I made sure that I googled the most +recent definitions: + +\startnarrower[left] \startpacked +\startpresomething {premise} + an idea or theory on which a statement or action is based +\stoppresomething +\startpresomething {predilection} + if someone has a predilection for something, they like it a lot +\stoppresomething +\startpresomething {prediction} + a statement about what you think will happen in the future +\stoppresomething +\stoppacked \stopnarrower + +I won't try to relate these two sets of definitions but several words stand out +in the second set: idea, theory, action, like, statement and future. Now, as a +preparation for the usual sobering thoughts that Jerzy, Volker and I have when we +staring into a Bacho\TEX\ campfire I decided to wrap up some ideas around these +themes and words. The books that I will mention are just a selection of what you +can find distributed around my place. This is not some systematic research but +just the result of a few weeks making a couple of notes while pondering about +this conference. + +\stopsection + +\startsection[title=Introduction] + +One cannot write the amount of \TEX\ macros that I've written without also liking +books. If you look at my bookshelves the topics are somewhat spread over the +possible spectrum of topics: history, biology, astronomy, paleontology, general +science but surprisingly little math. There are a bunch of typography|-|related +books but only some have been read: it's the visuals that matter most and as +there are no real developments I haven't bought new ones in over a decade, +although I do buy books that look nice for our office display but the content +should be interesting too. Of course I do have a couple of books about computer +(related) science and technology but only a few are worth a second look. +Sometimes I bought computer books expecting to use them (in some project) but I +must admit that most have not been read and many will soon end up in the paper +bin (some already went that way). I'll make an exception for Knuth, Wirth and a +few other fundamental ones that I (want to) read. And, I need to catch up on deep +learning, so that might need a book. + +My colleagues and I have many discussions, especially about what we read, and +after a few decades one starts seeing patterns. Therefore the last few years it +was a pleasant surprise for me to run into books and lectures that nicely +summarize what one has noticed and discussed in a consistent way. My memory is +not that good, but good enough to let some bells ring. + +\startplacefigure[location=top] + \startcombination[nx=4,ny=1,width=\textwidth,distance=0pt] + {\externalfigure[covers/sapiens.jpg] [height=5cm]} {history} + {\externalfigure[covers/homo-deus.jpg] [height=5cm]} {futurology} + {\externalfigure[covers/children-of-time.jpg] [height=5cm]} {science fiction} + {\externalfigure[covers/superintelligence.jpg][height=5cm]} {informatics} + \stopcombination +\stopplacefigure + +The first book that gave me this \quotation {finally a perfect summary of +historic developments} feeling is \quotation{Sapiens} by Yuval Noah Harari. The +author summarizes human history from a broad perspective where modern views on +psychology, anthropology and technical developments are integrated. It's a follow +up on a history writing trend started by Jared Diamond. The follow up \quotation +{Homo Deus} looks ahead and is just as well written. It also integrates ideas +from other fields, for instance those related to development of artificial +intelligence (Dennett, Bostrom, etc.). + +Another inspiration for this talk and article is the 50 hour lecture series on +behavioral biology by Robert Sapolsky of Stanford University, brought to my +attention by my nephew Bram who visited a few \TEX\ conferences with me and who +is now also forced to use \TEX\ for assignments and reports. (How come +self|-|published books used at universities often look so bad?) + +The title of this talk is inspired by the book \quotation {Children of Time} by +Adrian Tchaikovsky that I read recently. There are science fiction writers who +focus on long term science and technology, such as some of Alastair Reynolds, +while others follow up on recent development in all kind of sciences. One can +recognize aspects of \quotation {Superintelligence} by Bostrom in Neal Asher's +books, insights in psychology in the older Greg Bear books, while in the +mentioned \quotation {Children of Time} (socio)biological insights dominate. The +main thread in that book is the development of intelligence, social behaviour, +language, script and cooperation in a species quite different from us: spiders. +It definitely avoids the anthropocentric focus that we normally have. + +So how does this relate to the themes of the Bacho\TEX\ conference? I will pick +out some ways to approach them using ideas from the kind of resources mentioned +above. I could probably go on and on for pages because once you start relating +what you read and hear to this \TEX\ ecosystem and community, there is no end. +So, consider this a snapshot, that somehow relates to the themes: + +\startnarrower[left,8*right] \startpacked +\startpresomething {premise} + Let's look at what the live sciences have to say about \TEX\ and friends and + let's hope that I don't offend the reader and the field. +\stoppresomething +\startpresomething {predilection} + Let's figure out what brings us here to this place deeply hidden in the woods, + a secret gathering of the \TEX\ sect. +\stoppresomething +\startpresomething {prediction} + Let's see if the brains present here can predict the future because after + all, according to Dennett, that is what brains are for. +\stoppresomething +\stoppacked \stopnarrower + +At school I was already intrigued by patterns in history: a cyclic, spiral and +sinusoid social evolution instead of a pure linear sequence of events. It became +my first typeset|-|by|-|typewriter document: Is history an exact science? Next I +will use and abuse patterns and ideas to describe the \TEX\ world, not wearing a +layman's mathematical glasses, but more from the perspective of live sciences, +where chaos dominates. + +\stopsection + +\startsection[title={The larger picture}] + +History of mankind can be roughly summarized as follows. For a really long time +we were hunters but at some point (10K years ago) became farmers. As a result we +could live in larger groups and still feed them. The growing complexity of +society triggered rules and religion as instruments for stability and +organization (I use the term religion in its broadest sense here). For quite a +while cultures came and went, and climate changes are among the reasons. + +After the industrial revolution new religions were invented (social, economic and +national liberalism) and we're now getting dataism (search for Harari on youtube +for a better summary). Some pretty great minds seem to agree that we're heading +to a time when humans as we are will be outdated. Massive automation, interaction +between the self and computer driven ecosystems, lack of jobs and purpose, +messing around with our genome. Some countries and cultures still have to catch +up on the industrial revolution, if they manage at all, and maybe we ourselves +will be just as behind reality soon. Just ask yourself: did you manage to catch +up? Is \TEX\ a stone age tool or a revolutionary turning point? + +A few decades ago a trip to Bacho\TEX\ took more than a day. Now you drive there +in just over half a day. There was a time that it took weeks: preparation, +changing horses, avoiding bad roads. Not only your own man|-|hours were involved. +It became easier later (my first trip took only 24 hours) and recently it turned +into a piece of cake: you don't pick up maps but start your device; you don't +need a travel agent but use the Internet; there are no border patrols, you can +just drive on. (Okay, maybe some day soon border patrols at the Polish border +show up again, just like road tax police in Germany, but that might be a +temporary glitch.) + +Life gets easier and jobs get lost. Taxi and truck drivers, travel agents, and +cashiers become as obsolete as agricultural workers before. Next in line are +doctors, lawyers, typesetters, printers, and all those who think they're safe. +Well, how many people were needed 400 years ago to produce the proceedings of a +conference like this in a few days' time span? Why read the introduction of a +book or a review when you can just listen to the author's summary on the web? How +many conferences still make proceedings (or go for videos instead), will we +actually need editors and typesetters in the future? How much easier has it +become to design a font, including variants? What stories can designers tell in +the future when programs do the lot? The narrower your speciality is, the worse +are your changes; hopefully the people present at this conference operate on a +broader spectrum. It's a snapshot. I will show some book covers as reference but +am aware that years ago or ahead the selection could have been different. + +\stopsection + +\startsection[title=Words] + +Words (whatever they represent) found a perfect spot to survive: our minds. Then +they made it from speech (and imagination) into writing: carved in stone, wood, +lead. At some point they managed to travel over wires but no matter what +happened, they are still around. Typesetting as visualization is also still +surrounding us so that might give us a starting point for ensuring a future for +\TEX\ to work on, because \TEX\ is all about words. There is a lot we don't see; +imagine if our eyes had microscopic qualities. What if we could hear beyond +20KHz. Imagine we could see infrared. How is that with words. What tools, similar +in impact as \TEX, can evolve once we figure that out. What if we get access to +the areas of our brain that hold information? We went from print to screen and +\TEX\ could cope with that. Can it cope with what comes next? + +The first printing press replaced literal copying by hand. Later we got these +linotype|-|like machines but apart from a few left, these are already thrown out +of windows (as we saw in a movie a few Bacho\TeX's ago). Photo|-|typesetting has +been replaced too and because a traditional centuries old printing press is a +nice to see item, these probably ring more bells than that gray metal closed box +typesetters. Organizers of \TEX\ conferences love to bring the audience to old +printing workshops and museums. At some point computers got used for typesetting +and in that arena \TEX\ found its place. These gray closed boxes are way less +interesting than something mechanical that at least invites us to touch it. How +excited can one be about a stack of \TEX\,Live \DVD{}s? + +\stopsection + +\startsection[title=Remembering] + +Two times I visited the part of the science museum in London with young family +members: distracted by constantly swiping their small powerful devices, they +didn't have the least interest in the exhibited computer related items, let alone +the fact that the couch they were sitting on was a Cray mainframe. Later on, +climbing on some old monument or an old cannon seemed more fun. So, in a few +decades folks will still look at wooden printing presses but quickly walk through +the part of an exhibition where the tools that we use are shown. We need to find +ways to look interesting. But don't think we're unique: how many kids find +graphical trend|-|setting games like Myst and Riven still interesting? On the +other hand a couple of month ago a bunch of nieces and nephews had a lot of fun +with an old Atari console running low|-|res bitmap games. Maybe there is hope for +good old \TEX. + +If indeed we're heading to a radically different society one can argue if this +whole discussion makes sense. When the steam engine showed up, the metaphor for +what went on in our heads was that technology, It's a popular example of speakers +on this topic: \quotation {venting off steam}. When electricity and radio came +around metaphors like \quotation {being on the same wavelength} showed up. A few +decades ago the computer replaced that model although in the meantime the model +is more neurobiological: we're a hormone and neurotransmitter driven computer. We +don't have memory the way computers do. + +How relevant will page breaks, paragraph and line breaks be in the future? Just +like \quotation {venting off steam} may make no sense to the youth, asking a +typesetter to \quotation {give me a break} might not make much sense soon. +However, when discussing automated typesetting the question \quotation {are we on +the same page} still has relevance. + +Typesetting with a computer might seem like the ultimate solution but it's +actually rather dumb when we consider truly intelligent systems. On the large +scale of history and developments what we do might get quite unnoticed. Say that +mankind survives the next few hundred years one way or the other. Science fiction +novels by Jack McDevitt have an interesting perspective of rather normal humans +millennia ahead of us who look back on these times in the same way as we look +back now. Nothing fundamental changed in the way we run society. Nearly nothing +from the past is left over and apart from being ruled by \AI{}s people still do +sort of what they do now. \TEX ? What is that? Well, there once was this great +computer scientist Knuth (in the remembered row of names like Aristotle |<|I just +started reading \quotation {The Lagoon} by Armand Leroi|>| Newton, Einstein, his +will show up) who had a group of followers that used a program that he seems to +have written. And even that is unlikely to be remembered, unless maybe user +groups manage to organize an archive and pass that on. Maybe the fact that \TEX\ +was one of the first large scale open source programs, of which someone can study +the history, makes it a survivor. The first program that was properly documented +in detail! But then we need to make sure that it gets known and persists. + +\startsection[title=Automation] + +In a recent interview Daniel Dennett explains that his view of the mind as a big +neural network, one that can be simulated in software on silicon, is a bit too +simplistic. He wonders if we shouldn't more tend to think of a network of +(selfish) neurons that group together in tasks and then compete with each other, +if only because they want to have something to do. + +Maybe attempts to catch the creative mindset and working of a typesetter in +algorithms is futile. What actually is great typography or good typesetting? +Recently I took a look at my bookshelf wondering what to get rid of \emdash\ +better do that now than when I'm too old to carry the crap down (crap being +defined as uninteresting content or bad looking). I was surprised about the +on|-|the|-|average bad quality of the typesetting and print. It's also not really +getting better. One just gets accustomed to what is the norm at a certain point. +Whenever they change the layout and look and feel of the newspaper I read the +arguments are readability and ease of access. Well, I never had such a hard time +reading my paper as today (with my old eyes). + +Are we, like Dennett, willing to discard old views on our tools and models? When +my first computer was a \RCA\ 1802 based kit, that had 256 bytes of memory. My +current laptop (from 2013) is a Dell Precision workstation with an extreme quad +core processor and 16 GB of memory and ssd storage. Before I arrived there I +worked with \DECTEN, \VAX\ and the whole range of Intel \CPU{}s. So if you really +want to compare a brain with a computer, take your choice. + +I started with \TEX\ on a 4 MHz desk top with 640 MB memory and a 10 MB hard +disk. Running \CONTEXT\ \MKIV\ with \LUATEX\ on such a machine is no option at +all, but I still carry the burden of trying to write efficient code (which is +still somewhat reflected in the code that makes up \CONTEXT). In the decades that +we have been using \TEX\ we had to adapt! Demands changed, possibilities changed, +technologies changed. And they keep changing. How many successive changes can a +\TEX\ user handle? Sometimes, when I look and listen I wonder. + +\startplacefigure[location=top] + \startcombination[nx=4,ny=1,width=\textwidth,distance=0pt] + {\externalfigure[covers/the-mind-in-the-cave.jpg] [height=5cm]} {paleontology} + {\externalfigure[covers/the-ancestors-tale.jpg] [height=5cm]} {evolutionary biology} + {\externalfigure[covers/the-good-book-of-human-nature.jpg][height=5cm]} {anthropology} + {\externalfigure[covers/chaos-and-harmony.jpg] [height=5cm]} {physics} + \stopcombination +\stopplacefigure + +If you look back, that is, if you read about the tens of thousands of years that +it took humans to evolve (\quotation {The mind in the cave} by Lewis|-|Williams +is a good exercise) you realize even more in what a fast|-|paced time we live and +that we're witnessing transitions of another magnitude. + +In the evolution of species some tools were invented multiple times, like eyes. +You see the same in our \TEX\ world: multiple (sub)macro packages, different font +technologies, the same solutions but with an alternative approach. Some +disappear, some stay around. Just like different circumstances demand different +solutions in nature, so do different situations in typesetting, for instance +different table rendering solutions. Sometime I get the feeling that we focus too +much on getting rid of all but one solution while more natural would be to accept +diversity, like bio|-|diversity is accepted. Transitions nowadays happen faster +but the question is if, like aeons before, we (have to) let them fade away. When +evolution is discussed the terms \quote {random}, \quote {selection}, \quote +{fit}, and so on are used. This probably also applies to typography: at some +point a font can be used a lot, but in the end the best readable and most +attractive one will survive. Newspapers are printed in many copies, but rare +beautiful books hold value. Of course, just like in nature some developments +force the further path of development, we don't suddenly grow more legs or digits +on our hands. The same happens with \TEX\ on a smaller timescale: successors +still have the same core technology, also because if we'd drop it, it would be +something different and then give a reason to reconsider using such technology +(which likely would result in going by another path). + +\stopsection + +\startsection[title=Quality] + +Richard Dawkins \quotation {The Ancestor's Tale} is a non|-|stop read. In a +discussion with Jared Diamond about religion and evolution they ponder this +thread: you holding the hand of your mother who is handing her mother's hand and +so on till at some point fish get into the picture. The question then is, when do +we start calling something human? And a related question is, when does what we +call morality creeps in? Is 50\% neanderthaler human or not? + +So, in the history of putting thoughts on paper: where does \TEX\ fit in? When do +we start calling something automated typesetting? When do we decide that we have +quality? Is \TEX\ so much different from its predecessors? And when we see +aspects of \TEX\ (or related font technology) in more modern programs, do we see +points where we cross qualitative or other boundaries? Is a program doing a +better job than a human? Where do we stand? There are fields where there is no +doubt that machines outperform humans. It's probably a bit more difficult in +aesthetic fields except perhaps when we lower the conditions and expectations +(something that happens a lot). + +For sure \TEX\ will become obsolete, maybe even faster that we think, but so will +other typesetting technologies. Just look back and have no illusions. Till then +we can have our fun and eventually, when we have more free time than we need, we +might use it out of hobbyism. Maybe \TEX\ will be remembered by probably its most +important side effect: the first large scale open source, the time when users met +over programs, Knuth's disciples gathered in user groups, etc. The tools that we +use are just a step in an evolution. And, as with evolution, most branches are +pruned. So, when in the far future one looks back, will they even notice \TEX ? +The ancestor's tail turns the tree upside down: at the end of the successful +branch one doesn't see the dead ends. + +Just a thought: \CD{}s and media servers are recently being replaced (or at least +accompanied) by Long Play records. In the shop where I buy my \CD{}s the space +allocated to records grows at the cost of more modern media. So, maybe at some +point retro|-|typesetting will pop up. Of course it might skip \TEX\ and end up +at woodcutting or printing with lead. + +\stopsection + +\startsection[title=What mission] + +We rely on search engines instead of asking around or browsing libraries. Do +students really still read books and manuals or do they just search and listen to +lectures. Harari claims that instead of teaching kids facts in school we should +just take for granted that they can get all the data they want and that we should +learn them how to deal with data and adapt to what is coming. We take for granted +that small devices with human voices show us the route to drive to Bacho\TEX, for +instance, although by now I can drive it without help. In fact, kids can surprise +you by asking if we're driving in Germany when we are already in Poland. + +We accept that computer programs help physicians in analyzing pictures. Some wear +watches that warn them about health issues, and I know a few people who monitor +their sugar levels electronically instead of relying on their own measurements. +We seem to believe and trust the programs. And indeed, we also believe that \TEX\ +does the job in the best way possible. How many people really understand the way +\TEX\ works? + +We still have mailing lists where we help each other. There are also wikis and +forums like stack exchange. But who says that even a moderate bit of artificial +intelligence doesn't answer questions better. Of course there needs to be input +(manuals, previous answers, etc.) but just like we need fewer people as workforce +soon, the number of experts needed also can be smaller. And we're still talking +about a traditional system like \TEX. Maybe the social experience that we have on +these media will survive somehow, although: how many people are members of +societies, participate in demonstrations, meet weekly in places where ideas get +exchanged, compared to a few decades ago? That being said, I love to watch posts +with beautiful \CONTEXT\ solutions or listen to talks by enthusiastic users who +do things I hadn't expected. I really hope that this property survives, just like +I hope that we will be able to see the difference between a real user's response +and one from an intelligent machine (an unrealistic hope I fear). Satisfaction +wins and just like our neurological subsystems at some point permanently adapt to +thresholds (given that you trigger things often enough), we get accustomed to +what \TEX\ provides and so we stick to it. + +\stopsection + +\startsection[title={Intelligence versus consciousness}] + +Much of what we do is automated. You don't need to think of which leg to move and +what foot to put down when you walk. Reacting to danger also to a large extent is +automated. It doesn't help much to start thinking about how dangerous a lion can +be when it's coming after you, you'd better move fast. Our limbic system is +responsible for such automated behaviour, for instance driven by emotions. The +more difficult tasks and thoughts about them happen in the frontal cortex (sort +of). + +\startplacefigure[location=top] + \startcombination[nx=4,ny=1,width=\textwidth,distance=0pt] + {\externalfigure[covers/death-by-black-hole.jpg] [height=5cm]} {astronomy} + {\externalfigure[covers/the-formula.jpg] [height=5cm]} {informatics} + {\externalfigure[covers/hals-legacy.jpg] [height=5cm]} {future science} + {\externalfigure[covers/lucky-planet.jpg] [height=5cm]} {earth science} + \stopcombination +\stopplacefigure + +For most users \TEX\ is like the limbic system: there is not much thinking +involved, and the easy solutions are the ones used. Just like hitting a nerve +triggers a chain of reactions, hitting a key eventually produces a typeset +document. Often this is best because the job needs to get done and no one really +cares how it looks; just copy a preamble, key in the text and assume that it +works out well (enough). It is tempting to compare \TEX's penalties, badness and +other parameters with levels of hormones and neurotransmitters. Their function +depends on where they get used and the impact can be accumulated, blocked or +absent. It's all magic, especially when things interact. + +Existing \TEX\ users, developers and user groups of course prefer to think +otherwise, that it is a positive choice by free will. That new users have looked +around and arrived at \TEX\ for good reason: their frontal cortex steering a +deliberate choice. Well, it might have played a role but the decision to use +\TEX\ might in the end be due to survival skills: I want to pass this exam and +therefore I will use that weird system called \TEX. + +All animals, us included, have some level of intelligence but also have this hard +to describe property that we think makes us what we are. Intelligence and +consciousness are not the same (at least we know a bit about the first but nearly +nothing about the second). We can argue about how well composed some music is but +why we like it is a different matter. + +We can make a well thought out choice for using \TEX\ for certain tasks but can +we say why we started liking it (or not)? Why it gives us pleasure or maybe +grief? Has it become a drug that we got addicted to? So, one can make an +intelligent decision about using \TEX\ but getting a grip on why we like it can +be hard. Do we enjoy the first time struggle? Probably not. Do we like the folks +involved? Yes, Don Knuth is a special and very nice person. Can we find help and +run into a friendly community? Yes, and a unique one too, annoying at times, +often stimulating and on the average friendly for all the odd cases running +around. + +Artificial intelligence is pretty ambitious, so speaking of machine intelligence +is probably better. Is \TEX\ an intelligent program? There is definitely some +intelligence built in and the designer of that program is for sure very +intelligent. The designer is also a conscious entity: he likes what he did and +finds pleasure in using it. The program on the other hand is just doing its job: +it doesn't care how it's done and how long it takes: a mindless entity. So here +is a question: do we really want a more intelligent program doing the job for us, +or do those who attend conferences like Bacho\TEX\ enjoy \TEX ing so much that +they happily stay with what they have now? Compared to rockets tumbling down +and|/|or exploding or Mars landers thrashing themselves due to programming errors +of interactions, \TEX\ is surprisingly stable and bug free. + +\stopsection + +\startsection[title={Individual versus group evolution}] + +After listening for hours to Sapolsky you start getting accustomed to remarks +about (unconscious) behaviour driven by genes, expression and environment, aimed +at \quotation {spreading many copies of your genes}. In most cases that is an +individual's driving force. However, cooperation between individuals plays a role +in this. A possible view is that we have now reached a state where survival is +more dependent on a group than on an individual. This makes sense when we +consider that developments (around us) can go way faster than regular evolution +(adaptation) can handle. We take control over evolution, a mechanism that needs +time to adapt and time is something we don't give it anymore. + +Why does \TEX\ stay around? It started with an individual but eventually it's the +groups that keeps it going. A too|-|small group won't work but too|-|large groups +won't work either. It's a known fact that one can only handle some 150 social +contacts: we evolved in small bands that split when they became too large. Larger +groups demanded abstract beliefs and systems to deal with the numbers: housing, +food production, protection. The \TEX\ user groups also provide some +organization: they organize meetings, somehow keep development going and provide +infrastructure and distributions. They are organized around languages. According +to Diamond new languages are still discovered but many go extinct too. So the +potential for language related user groups is not really growing. + +Some of the problems that we face in this world have become too large to be dealt +with by individuals and nations. In spite of what anti|-|globalists want we +cannot deal with our energy hunger, environmental issues, lack of natural +resources, upcoming technologies without global cooperation. We currently see a +regression in cooperation by nationalistic movements, protectionism and the usual +going back to presumed better times, but that won't work. + +Local user groups are important but the number of members is not growing. There +is some cooperation between groups but eventually we might need to combine the +groups into one which might succeed unless one wants to come first. Of course we +will get the same sentiments and arguments as in regular politics but on the +other hand, we already have the advantage of \TEX\ systems being multi|-|lingual +and users sharing interest in the diversity of usage and users. The biggest +challenge is to pass on what we have achieved. We're just a momentary highlight +and let's not try to embrace some \quotation {\TEX\ first} madness. + +\stopsection + +\startplacefigure[location=top] + \startcombination[nx=4,ny=1,width=\textwidth,distance=0pt] + {\externalfigure[covers/3-16.jpg] [height=5cm]} {art} + % {\externalfigure[covers/dirt.jpg] [height=5cm]} {history} + {\externalfigure[covers/the-winds-of-change.jpg] [height=5cm]} {history} + {\externalfigure[covers/pale-blue-dot.jpg] [height=5cm]} {astronomy} + {\externalfigure[covers/the-third-chimpanzee.jpg][height=5cm]} {history} + \stopcombination +\stopplacefigure + +\startsection[title=Sexes] + +Most species have two sexes but it is actually a continuum controlled by hormones +and genetic expression: we just have to accept it. Although the situation has +improved there are plenty of places where some gender relationships are +considered bad even to the extent that one's life can be in danger. Actually +having strong ideas about these issues is typically human. But in the end one has +to accept the continuum. + +In a similar way we just have to accept that \TEX\ usage, application of \TEX\ +engines, etc.\ is a continuum and not a batch versus \WYSIWYG\ battle any more. +It's disturbing to read strong recommendations not to use this or that. Of the +many macro packages that showed up only a few were able to survive. How do users +of outlines look at bitmaps, how do \DVI\ lovers look at \PDF. But, as +typesetting relates to esthetics, strong opinions come with the game. + +Sapolsky reports about a group of baboons where due to the fact that they get the +first choice of food the alpha males of pack got poisoned, so that the remaining +suppressed males who treated the females well became dominant. In fact they can +then make sure that no new alpha male from outside joins the pack without +behaving like they do. A sort of social selection. In a similar fashion, until +now the gatherings of \TEX ies managed to keep its social properties and has not +been dominated by for instance commerce. + +% So, maybe should focus on acceptance and tolerance and then make sure that that +% we keep what we have and let it not be influenced too much by sectarianism. It +% makes a nice topic for a meeting of the context (sub)group, that actually has a +% women as driving force. How can we preserve what we have but still proceed is a +% legitimate question. Where do we stand in the landscape. + +In the animal world often sexes relate to appearance. The word sexy made it to +other domains as well. Is \TEX\ sexy? For some it is. We often don't see the real +colors of birds. What looks gray to us looks vivid to a bird which sees in a +different spectrum. The same is true for \TEX. Some users see a command line +(shell) and think: this is great! Others just see characters and keystrokes and +are more attracted to an interactive program. When I see a graphic made by +\METAPOST, I always note how exact it is. Others don't care if their interactive +effort doesn't connect the dots well. Some people (also present here) think that +we should make \TEX\ attractive but keep in mind that like and dislike are not +fixed human properties. Some mindsets might as well be the result from our +makeup, others can be driven by culture. + +\stopsection + +\startsection[title=Religion] + +One of Sapolsky's lectures is about religion and it comes in the sequence of +mental variations including depression and schizophrenia, because all these +relate to mental states, emotions, thresholds and such (all things human). That +makes it a tricky topic which is why it has not been taped. As I was raised in a +moderate Protestant tradition I can imagine that it's an uncomfortable topic +instead. But there are actually a few years older videos around and they are +interesting to watch and not as threatening as some might expect. Here I just +stick to some common characteristics. + +If you separate the functions that religions play into for instance explanation +of the yet unknown, social interactions, control of power and regulation of +morals, then it's clear why at \TEX\ user group meetings the religious aspect of +\TEX\ has been discussed in talks. Those who see programs as infallible and +always right and don't understand the inner working can see it as an almighty +entity. In the Netherlands church-going diminishes but it looks like alternative +meetings are replacing it (and I'm not talking of football matches). So what are +our \TEX\ meetings? What do we believe in? The reason that I bring up this aspect +is that in the \TEX\ community we can find aspects of the more extremist aspects +of religions: if you don't use the macro package that I use, you're wrong. If you +don't use the same operating system as I do, you're evil. You will be punished if +you use the wrong editor for \TEX ? Why don't you use this library (which, by the +way, just replaced that other one)? We create angels and daemons. Even for quite +convinced atheists (it's not hard to run into them on youtube) a religion only +survives when it has benefits, something that puzzles them. So when we're +religious about \TEX\ and friends we have to make sure that it's at least +beneficial. Also, maybe we fall in Dennett's category of \quotation {believers +who want to believe}: it helps us to do our job if we just believe that we have +the perfect tool. Religion has inspired visual and aural art and keeps doing +that. (Don Knuth's current musical composition project is a good example of +this.) + +Scientists can be religious, in flexible ways too, which is demonstrated by Don +Knuth. In fact, I'm pretty sure \TEX\ would not be in the position it is in now +if it weren't for his knowledgeable, inspirational, humorous, humble, and always +positive presence. And for sure he's not at all religious about the open source +software that he sent viral. + +I'm halfway through reading \quotation {The Good Book of Human Nature} (An +Evolutionary Reading of the Bible) a book about the evolution of the bible and +monotheism which is quite interesting. It discusses for instance how transitions +from a hunter to a farmer society demanded a change of rules and introduced +stories that made sense in that changing paradigm. Staying in one place means +that possessions became more important and therefore inheritance. Often when +religion is discussed by behavioral biologists, historians and anthropologists +they stress this cultural narrative aspect. Also mentioned is that such societies +were willing to support (in food and shelter) the ones that didn't normally fit +it but added to the spiritual character of religions. The social and welcoming +aspect is definitely present in for instance Bacho\TEX\ conferences although a +bystander can wonder what these folks are doing in the middle of the night around +a campfire, singing, drinking, frying sausages, spitting fire, and discussing the +meaning of life. + +Those who wrap up the state of religious affairs, do predictions and advocate the +message, are sometimes called evangelists. I remember a \TEX\ conference in the +\USA\ where the gospel of \XML\ was preached (by someone from outside the \TEX\ +community). We were all invited to believe it. I was sitting in the back of the +crowded (!)\ room and that speaker was not at all interested in who spoke before +and after. Well, I do my share of \XML\ processing with \CONTEXT, but believe me: +much of the \XML\ that we see is not according to any gospel. It's probably +blessed the same way as those state officials get blessed when they ask and pray +for it in public. + +It can get worse at \TEX\ conferences. Some present here at Bacho\TEX\ might +remember the \PDF\ evangelists that we had show up at \TEX\ conferences. You see +this qualification occasionally and I have become quite allergic to +qualifications like architect, innovator, visionary, inspirator and evangelist, +even worse when they look young but qualify as senior. I have no problem with +religion at all but let's stay away from becoming one. And yes, typography also +falls into that trap, so we have to be doubly careful. + +\stopsection + +\startplacefigure[location=top] + \startcombination[nx=4,ny=1,width=\textwidth,distance=0pt] + {\externalfigure[covers/from-bacteria-to-bach-and-back.jpg][height=5cm]} {philosophy} + {\externalfigure[covers/the-lagoon.jpg] [height=5cm]} {science history} + {\externalfigure[covers/chaos.jpg] [height=5cm]} {science} + {\externalfigure[covers/why-zebras-dont-get-ulcers.jpg] [height=5cm]} {behavioral biology} + \stopcombination +\stopplacefigure + +\startsection[title=Chaotic solutions] + +The lectures on \quotation {chaos and reductionism} and \quotation {emergence and +complexity} were the highlights in Sapolsky's lectures. I'm not a good narrator +so I will not summarize them but it sort of boils down to the fact that certain +classes of problems cannot be split up in smaller tasks that we understand well, +after which we can reassemble the solutions to deal with the complex task. +Emerging systems can however cook up working solutions from random events. +Examples are colonies of ants and bees. + +The \TEX\ community is like a colony: we cook up solutions, often by trial and +error. We dream of the perfect solutions but deep down know that esthetics cannot +be programmed in detail. This is a good thing because it doesn't render us +obsolete. At last year's Bacho\TEX, my nephew Teun and I challenged the anthill +outside the canteen to typeset the \TEX\ logo with sticks but it didn't persist. +So we don't need to worry about competition from that end. How do you program a +hive mind anyway? + +When chaos theory evolved in the second half of the previous century not every +scientist felt happy about it. Instead of converging to more perfect predictions +and control in some fields a persistent uncertainty became reality. + +After about a decade of using \TEX\ and writing macros to solve recurring +situations I came to the conclusion that striving for a perfect \TEX\ (the +engine) that can do everything and anything makes no sense. Don Knuth not only +stopped adding code when he could do what he needed for his books, he also stuck +to what to me seems reasonable endpoints. Every hard|-|coded solution beyond that +is just that: a hard|-|coded solution that is not able to deal with the +exceptions that make up most of the more complex documents. Of course we can +theorize and discuss at length the perfect never|-|reachable solutions but +sometimes it makes more sense to admit that an able user of a desktop publishing +system can do that job in minutes, just by looking at the result and moving +around an image or piece of text a bit. + +There are some hard|-|coded solutions and presets in the programs but with +\LUATEX\ and \MPLIB\ we try to open those up. And that's about it. Thinking that +for instance adding features like protrusion or expansion (or whatever else) +always lead to better results is just a dream. Just as a butterfly flapping its +wings on one side of the world can have an effect on the other side, so can +adding a single syllable to your source completely confuse an otherwise clever +column or page break algorithm. So, we settle for not adding more to the engine, +and provide just a flexible framework. + +A curious observation is that when Edward Lorenz ran into chaotic models it was +partially due to a restart of a simulation midway, using printed floating point +numbers that then in the computer were represented with a different accuracy than +printed. Aware of floating point numbers being represented differently across +architectures, Don Knuth made sure that \TEX\ was insensitive to this so that its +outcome was predictable, if you knew how it worked internally. Maybe \LUATEX\ +introduces a bit of chaos because the \LUA\ we use has only floats. In fact, a +few months ago we did uncover a bug in the backend where the same phenomena gave +a chaotic crash. + +In chaos theory there is the concept of an attractor. When visualized this can be +the area (seemingly random) covered by a trajectory. Or it can be a single point +where for instance a pendulum comes to rest. So what is our attractor? We have a +few actually. First there is the engine, the stable core of primitives always +present. You often see programs grow more complex every update and for sure that +happened with \ETEX, \PDFTEX, \XETEX\ and \LUATEX. However there is always the +core that is supposed to be stable. After some time the new kid arrives at a +stable state not much different from the parent. The same is true for \METAPOST. +Fonts are somewhat different because the technology changes but in the end the +shapes and their interactions become stable as well. Yet another example is \TEX\ +Live: during a year it might diverge from its route but eventually it settles +down and enters the area where we expect it to end up. The \TEX\ world is at +times chaotic, but stable in the long run. + +So, how about the existence, the reason for it still being around? One can +speculate about its future trajectory but one thing is sure: as long as we break +a text into paragraphs and pages \TEX\ is hard to beat. But what if we don't need +that any more? What if the concept of a page is no longer relevant? What if +justified texts no longer matter (often designers don't care anyway)? What if +students are no longer challenged to come up with a nice looking thesis? Do these +collaborative tools with remote \TEX\ processing really bring new long term users +or is \TEX\ then just one of the come|-|and|-|go tools? + +\stopsection + +\startsection[title=Looking ahead] + +In an interview (\quotation {World of ideas}) Asimov explains that science +fiction evolved rapidly when people lived long enough to see that there was a +future (even for their offspring) that is different from today. It is (at least +for me) mind boggling to think of an evolution of hundreds of thousands of years +to achieve something like language. Waiting for the physical being to arrive at a +spot where you can make sounds, where the brain is suitable for linguistic +patterns, etc. A few hundred years ago speed of any developments (and science) +stepped up. + +\TEX\ is getting near 40 years old. Now, for software that {\bf is} old! In that +period we have seen computers evolve: thousands of times faster processing, even +more increase in memory and storage. If we read about spaceships that travel at a +reasonable fraction of the speed of light, and think that will not happen soon, +just think back to the terminals that were sitting in computer labs when \TEX\ +was developed: 300 baud was normal. I actually spent quite some time on +optimizing time|-|critical components of \CONTEXT\ but on this timescale that is +really a waste of time. But even temporary bottlenecks can be annoying (and +costly) enough to trigger such an effort. (Okay, I admit that it can be a +challenge, a kind of game, too.) + +Neil Tyson, in the video \quotation {Storytelling of science} says that when +science made it possible to make photos it also made possible a transition in +painting to impressionism. Other technology could make the exact snapshot so +there was new room for inner feelings and impressions. When the Internet showed +up we went through a similar transition, but \TEX\ actually dates from before the +Internet. Did we also have a shift in typesetting? To some extent yes, browsers +and real time rendering is different from rendering pages on paper. In what space +and time are \TEX ies rooted? + +We get older than previous generations. Quoting Sapolsky \quotation{\unknown\ we +are now living well enough and long enough to slowly fall apart.} The opposite is +happening with our tools, especially software: it's useful lifetime becomes +shorter and changes faster each year. Just look at the version numbers of +operating systems. Don Knuth expected \TEX\ to last for a long time and compared +to other software its core concept and implementation is doing surprisingly well. +We use a tool that suits our lifespan! Let's not stress ourselves out too much +with complex themes. (It helps to read \quotation {Why zebras don't get ulcers}.) + +\stopsection + +\startsection[title=Memes] + +If you repeat a message often enough, even if it's something not true, it can +become a meme that gets itself transferred across generations. Conferences like +this is where they can evolve. We tell ourselves and the audience how good \TEX\ +is and because we spend so many hours, days, weeks, months using it, it actually +must be good, or otherwise we would not come here and talk about it. We're not so +stupid as to spend time on something not good, are we? We're always surprised +when we run into a (potential) customer who seems to know \TEX. It rings a bell, +and it being around must mean something. Somehow the \TEX\ meme has anchored +itself when someone attended university. Even if experiences might have been bad +or usage was minimal. The meme that \TEX\ is the best in math typesetting is a +strong survivor. + +There's a certain kind of person who tries to get away with their own deeds and +decisions by pointing to \quotation {fake news} and accusations of \quotation +{mainstream media} cheating on them. But to what extent are our stories true +about how easy \TEX\ macro packages are to use and how good their result? We have +to make sure we spread the right memes. And the user groups are the guardians. + +Maybe macro packages are like memes too. In the beginning there was a bunch but +only some survived. It's about adaptation and evolution. Maybe competition was +too fierce in the beginning. Like ecosystems, organisms and cellular processes in +biology we can see the \TEX\ ecosystem, users and usage, as a chaotic system. +Solutions pop up, succeed, survive, lead to new ones. Some look similar and +slightly different input can give hugely different outcomes. You cannot really +look too far ahead and you cannot deduce the past from the present. Whenever +something kicks it off its stable course, like the arrival of color, graphics, +font technologies, \PDF, \XML, ebooks, the \TEX\ ecosystem has to adapt and find +its stable state again. The core technology has proven to be quite fit for the +kind of adaptation needed. But still, do it wrong and you get amplified out of +existence, don't do anything and the external factors also make you extinct. +There is no denial that (in the computer domain) \TEX\ is surprisingly stable and +adaptive. It's also hard not to see how conservatism can lead to extinction. + +\startplacefigure[location=top] + \startcombination[nx=4,ny=1,width=\textwidth,distance=0pt] + {\externalfigure[covers/the-epigenetics-revolution.jpg] [height=5cm]} {genetics} + {\externalfigure[covers/dark-matter-and-the-dinosaurs.jpg][height=5cm]} {physics} + {\externalfigure[covers/the-world-without-us.jpg] [height=5cm]} {history} + {\externalfigure[covers/what-we-cannot-know.jpg] [height=5cm]} {science} + \stopcombination +\stopplacefigure + +\stopsection + +\startsection[title=Inspiration] + +I just took some ideas from different fields. I could have mentioned quantum +biology, which tries to explain some unexplainable phenomena in living creatures. +For instance how do birds navigate without visible and measurable clues. How do +people arrive at \TEX\ while we don't really advertise? Or I could mention +epigenetics and explorations in junk \DNA. It's not the bit of the genome that we +thought that matters, but also the expression of the genes driven by other +factors. Offspring not only gets genetic material passed but it can get presets. +How can the \TEX\ community pass on Knuth's legacy? Do we need to hide the +message in subtle ways? Or how about the quest for dark matter? Does it really +exist or do we want (need) it to exist? Does \TEX\ really have that many users, +or do we cheat by adding the users that are enforced during college but don't +like it at all? There's enough inspiration for topics at \TEX\ conferences, we +just have to look around us. + +\stopsection + +\startsection[title=Stability] + +I didn't go into technical aspects of \TEX\ yet. I must admit that after decades +of writing macros I've reached a point where I can safely say that there will +never be perfect automated solutions for really complex documents. When books +about neural networks show up I wondered if it could be applied (but I couldn't). +When I ran into genetic algorithms I tried to understand its possible impact (but +I never did). So I stuck to writing solutions for problems using visualization: +the trial and error way. Of course, speaking of \CONTEXT, I will adapt what is +needed, and others can do that as well. Is there a new font technology? Fine, +let's support it as it's no big deal, just a boring programming task. Does a user +want a new mechanism? No problem, as solving a reduced subset of problems can be +fun. But to think of \TEX\ in a reductionist way, i.e.\ solving the small +puzzles, and to expect the whole to work in tandem to solve a complex task is not +trivial and maybe even impossible. It's a good thing actually, as it keeps us on +edge. Also, \CONTEXT\ was designed to help you with your own solutions: be +creative. + +I mentioned my nephew Bram. He has seen part of this crowd a few times, just like +his brother and sister do now. He's into artificial intelligence now. In a few +years I'll ask him how he sees the current state of \TEX\ affairs. I might learn +a few tricks in the process. + +In \quotation {The world without us} Weisman explores how fast the world would be +void of traces of humankind. A mere 10.000 years can be more than enough. Looking +back, that's about the time hunters became farmers. So here's a challenge: say +that we want an ant culture that evolves to the level of having archaeologists to +know that we were here at Bacho\TEX\ \unknown\ what would we leave behind? + +Sapolsky ends his series by stressing that we should accept and embrace +individual differences. The person sitting next to you can have the same makeup +but be just a bit more sensitive to depression or be the few percent with genes +controlling schizophrenic behaviour. He stresses that knowing how things work or +where things go wrong doesn't mean that we should fix everything. So look at this +room full of \TEX ies: we don't need to be all the same, use all the same, we +don't need some dominance, we just need to accept and especially we need to +understand that we can never fully understand (and solve) everything forever. + +Predictions, one of the themes, can be hard. It's not true that science has the +answer to everything. There will always be room for speculation and maybe we will +always need metaphysics too. I just started to read \quotation {What we cannot +know} by Sautoy. For sure those present here can not predict how \TEX\ will go on +and|/|or be remembered. + +\stopsection + +\startsection[title=Children of \TEX] + +I mentioned \quotation {Children of time}. The author lets you see their spidery +world through spider eyes and physiology. They have different possibilities +(eyesight, smell) than we do and also different mental capabilities. They evolve +rapidly and have to cope conceptually with signals from a human surveillance +satellite up in the sky. Eventually they need to deal with a bunch of (of course) +quarrelling humans who want their place on the planet. We humans have some +pre|-|occupation with spiders and other creatures. In a competitive world it is +sometimes better to be suspicious (and avoid and flee) that to take a risk of +being eaten. A frequently used example is that a rustle in a bush can be the wind +or a lion, so best is to run. + +We are not that well adapted to our current environment. We evolved at a very +slow pace so there was no need to look ahead more than a year. And so we still +don't look too far ahead (and choose politicians accordingly). We can also not +deal that well with statistics (Dawkins's \quotation {Climbing Mount Probability} +is a good read) so we make false assumptions, or just forget. + +Does our typeset text really look that good on the long run, or do we cheat with +statistics? It's not too hard to find a bad example of something not made by +\TEX\ and extrapolate that to the whole body of typeset documents. Just like we +can take a nice example of something done by \TEX\ and assume that what we do +ourselves is equally okay. I still remember the tests we did with \PDFTEX\ and +hz. When \THANH\ and I discussed that with Hermann Zapf he was not surprised at +all that no one saw a difference between the samples and instead was focusing on +aspects that \TEX ies are told to look at, like two hyphens in a row. + +A tool like \TEX\ has a learning curve. If you don't like that just don't use it. +If you think that someone doesn't like that, don't enforce this tool on that +someone. And don't use (or lie with) statistics. Much better arguments are that +it's a long|-|lived stable tool with a large user base and support. That it's not +a waste of time. Watching a designer like Hermann Zapf draw shapes is more fun +than watching click and point in heavily automated tools. It's probably also less +fun to watch a \TEX ie converge towards a solution. + +Spiders are resilient. Ants maybe even more. Ants will survive a nuclear blast +(mutations might even bring them benefits), they can handle the impact of a +meteorite, a change in climate won't harm them much. Their biggest enemy is +probably us, when we try to wipe them out with poison. But, as long as they keep +a low profile they're okay. \TEX\ doesn't fit into the economic model as there is +no turnaround involved, no paid development, it is often not seen at all, it's +just a hit in a search engine and even then you might miss it (if only because no +one pays for it being shown at the top). + +We can learn from that. Keeping a low profile doesn't trigger the competition to +wipe you out. Many (open source) software projects fade away: some big company +buys out the developer and stalls the project or wraps what they bought in their +own stuff, other projects go professional and enterprise and alienate the +original users. Yet others abort because the authors lose interest. Just like the +ideals of socialism don't automatically mean that every attempt to implement it +is a success, so not all open source and free software is good (natured) by +principle either. The fact that communism failed doesn't mean that capitalism is +better and a long term winner. The same applies to programs, whether successful +or not. + +Maybe we should be like the sheep. Dennett uses these animals as a clever +species. They found a way to survive by letting themselves (unconsciously) be +domesticated. The shepherd guarantees food, shelter and protection. He makes sure +they don't get ill. Speaking biologically: they definitely made sure that many +copies of their genes survived. Cows did the same and surprisingly many of them +are related due to the fact that they share the same father (something now trying +to be reverted). All \TEX\ spin|-|offs relate to the same parent, and those that +survived are those that were herded by user groups. We see bits and pieces of +\TEX\ end up in other applications. Hyphenation is one of them. Maybe we should +settle for that small victory in a future hall of fame. + +When I sit on my balcony and look at the fruit trees in my garden, some simple +math can be applied. Say that one of the apple trees has 100 apples per year and +say that this tree survives for 25 years (it's one of those small manipulated +trees). That makes 2.500 apples. Without human intervention only a few of these +apples make it into new trees, otherwise the whole world would be dominated by +apple trees. Of course that tree now only survives because we permit it to +survive, and for that it has to be humble (something that is very hard for modern +Apples). Anyway, the apple tree doesn't look too unhappy. + +A similar calculation can be done for birds that nest in the trees and under my +roof. Given that the number of birds stays the same, most of energy spent on +raising offspring is wasted. Nevertheless they seem to enjoy life. Maybe we +should be content if we get one enthusiastic new user when we demonstrate \TEX\ +to thousands of potential users. + +Maybe, coming back to the themes of the conference, we should not come up with +these kinds of themes. We seem to be quite happy here. Talking about the things +that we like, meeting people. We just have to make sure that we survive. Why not +stay low under the radar? That way nothing will see us as a danger. Let's be like +the ants and spiders, the invisible hive mind that carries our message, whatever +that is. + +When Dennett discusses language he mentions (coined) words that survive in +language. He also mentions that children pick up language no matter what. Their +minds are made for it. Other animals don't do that: they listen but don't start +talking back. Maybe \TEX\ is just made for certain minds. Some like it and pick +it up, while for others it's just noise. There's nothing wrong with that. +Predilection can be a user property. + +\stopsection + +\startsection[title={The unexpected}] + +In a discussion with Dawkins the well|-|spoken astrophysicist Neil deGrasse Tyson +brings up the following. We differ only a few percent in \DNA\ from a chimp but +quite a lot in brain power, so how would it be if an alien that differs a few +percent (or more) passes by earth. Just like we don't talk to ants or chimps or +whatever expecting an intelligent answer, whatever passes earth won't bother +wasting time on us. Our rambling about the quality of typesetting probably sounds +alien to many people who just want to read and who happily reflow a text on an +ebook device, not bothered by a lack of quality. + +\startplacefigure[location=top] + \startcombination[nx=4,ny=1,width=\textwidth,distance=0pt] + {\externalfigure[covers/live-as-we-do-not-know-it.jpg][height=5cm]} {astrobiology} + {\externalfigure[covers/life-on-the-edge.jpg] [height=5cm]} {quantumbiology} + {\externalfigure[covers/rare-earth.jpg] [height=5cm]} {astrophysics} + {\externalfigure[covers/austerity.jpg] [height=5cm]} {economics} + \stopcombination +\stopplacefigure + +We tend to take ourselves as reference. In \quotation {Rare Earth} Ward and +Brownlee extrapolate the possibility of life elsewhere in the universe. They are +not alone in thinking that while on one hand applying statistics to these +formulas of possible life on planets there might also be a chance that we're the +only intelligent species ever evolved. In a follow up, \quotation {Life as we do +not know it} paleontologist and astrobiologist Ward (one of my favourite authors) +discusses the possibility of life not based on carbon, which is not natural for a +carbon based species. Carl Sagan once pointed out that an alien species looking +down to earth can easily conclude that cars are the dominant species on earth and +that the thingies crawling in and out them are some kind of parasites. So, when +we look at the things that somehow end up on paper (as words, sentences, +ornaments, etc.), what is dominant there? And is what we consider dominant really +that dominant in the long run? You can look at a nice page as a whole and don't +see the details of the content. Maybe beauty hides nonsense. + +When \TEX ies look around they look to similar technologies. Commands in shells +and solutions done by scripting and programming. This make sense in the +perspective of survival. However, if you want to ponder alternatives, maybe not +for usage but just for fun, a completely different perspective might be needed. +You must be willing to accept that communicating with a user of a \WYSIWYG\ +program might be impossible. If mutual puzzlement is a fact, then they can either +be too smart and you can be too dumb or the reverse. Or both approaches can be +just too alien, based on different technologies and assumptions. Just try to +explain \TEX\ to a kid 40 years younger or to an 80 year old grandparent for that +matter. Today you can be very clever in one area and very stupid in another. + +In another debate, Neil deGrasse Tyson asks Dawkins the question why in science +fiction movies the aliens look so human and when they don't, why they look so +strange, for instance like cumbersome sluggish snails. The response to that is +one of puzzlement: the opponent has no reference of such movies. In discussions +old \TEX ies like to suggest that we should convert young users. They often don't +understand that kids live in a different universe. + +How often does that happen to us? In a world of many billions \TEX\ has its place +and can happily coexist with other typesetting technologies. Users of other +technologies can be unaware of us and even create wrong images. In fact, this +also happens in the community itself: (false) assumptions turned into +conclusions. Solutions that look alien, weird and wrong to users of the same +community. Maybe something that I present as hip and modern and high|-|\TEX\ and +promising might be the opposite: backward, old|-|fashioned and of no use to +others. Or maybe it is, but the audience is in a different mindset. Does it +matter? Let's just celebrate that diversity. (So maybe, instead of discussing the +conference theme, I should have talked about how I abuse \LUATEX\ in controlling +lights in my home as part of some IoT experiments.) + +\stopsection + +\startsection[title=What drives us] + +I'm no fan of economics and big money talk makes me suspicious. I cannot imagine +working in a large company where money is the drive. It also means that I have +not much imagination in that area. We get those calls at the office from far away +countries who are hired to convince us by phone of investments. Unfortunately +mentioning that you're not at all interested in investments or that multiplying +money is irrelevant to you does not silence the line. You have to actively kill +such calls. This is also why I probably don't understand today's publishing world +where money also dominates. Recently I ran into talks by Mark Blyth about the +crisis (what crisis?) and I wish I could argue like he does when it comes to +typesetting and workflows. He discusses quite well that most politicians have no +clue what the crisis is about. + +I think that the same applies to the management of publishers: many have no clue +what typesetting is about. So they just throw lots of money into the wrong +activities, just like the central banks seem to do. It doesn't matter if we \TEX +ies demonstrate cheap and efficient solutions. + +Of course there are exceptions. We're lucky to have some customers that do +understand the issues at hand. Those are also the customers where authors may use +the tools themselves. Educating publishers, and explaining that authors can do a +lot, might be a premise, predilection and prediction in one go! Forget about +those who don't get it: they will lose eventually, unfortunately not before they +have reaped and wasted the landscape. + +Google, Facebook, Amazon, Microsoft and others invest a lot in artificial +intelligence (or, having all that virtual cash, just buy other companies that +do). They already have such entities in place to analyze whatever you do. It is +predicted that at some point they know more about you then you know yourself. +Reading Luke Dormehl's \quotation {The Formula} is revealing. So what will that +do with our so|-|called (disputed by some) free will? Can we choose our own +tools? What if a potential user is told that all his or her friends use +WhateverOffice so they'd better do that too? Will subtle pressure lead them or +even us users away from \TEX ? We already see arguments among \TEX ies, like +\quotation {It doesn't look updated in 3 years, is it still good?} Why update +something that is still valid? Will the community be forced to update everything, +sort of fake updates. Who sets out the rules? Do I really need to update (or +re|-|run) manuals every five years? + +Occasionally I visit the Festo website. This is a (family owned) company that +does research at the level that used to be common in large companies decades ago. +If I had to choose a job, that would be the place to go to. Just google for +\quotation {festo bionic learning network} and you understand why. We lack this +kind of research in the field we talk about today: research not driven by +commerce, short term profit, long term control, but because it is fundamental +fun. + +Last year Alan Braslau and I spent some time on \BIBTEX. Apart from dealing with +all the weird aspects of the \APA\ standard, dealing with the inconsistently +constructed author fields is a real pain. There have been numerous talks about +that aspect here at Bacho\TEX\ by Jean|-|Michel Hufflen. We're trying to deal +with a more than 30|-|year|-|old flawed architecture. Just look back over a curve +that backtracks 30 years of exponential development in software and databases and +you realize that it's a real waste of time and a lost battle. It's fine to have a +text based database, and stable formats are great, but the lack of structure is +appalling and hard to explain to young programmers. Compare that to the Festo +projects and you realize that there can be more challenging projects. Of course, +dealing with the old data can be a challenge, a necessity and eventually even be +fun, but don't even think that it can be presented as something hip and modern. +We should be willing to admit flaws. No wonder that Jean|-|Michel decided to +switch to talking about music instead. Way more fun. + +Our brains are massively parallel bio|-|machinery. Groups of neurons cooperate +and compete for attention. Coming up with solutions that match what comes out of +our minds demands a different approach. Here we still think in traditional +programming solutions. Will new ideas about presenting information, the follow up +on books come from this community? Are we the innovative Festo or are we an old +dinosaur that just follows the fashion? + +\stopsection + +\startsection[title=User experience] + +Here is a nice one. Harari spends many pages explaining that research shows that +when an unpleasant experience has less unpleasantness at the end of the period +involved, the overall experience is valued according to the last experience. Now, +this is something we can apply to working with \TEX: often, the more you reach +the final state of typesetting the more it feels as all hurdles are in the +beginning: initial coding, setting up a layout, figuring things out, etc. + +It can only get worse if you have a few left|-|over typesetting disasters but +there adapting the text can help out. Of course seeing it in a cheap bad print +can make the whole experience bad again. It happens. There is a catch here: one +can find lots of bad|-|looking documents typeset by \TEX. Maybe there frustration +(or indifference) prevails. + +I sometimes get to see what kind of documents people make with \CONTEXT\ and it's +nice to see a good looking thesis with diverse topics: science, philosophy, +music, etc. Here \TEX\ is just instrumental, as what it is used for is way more +interesting (and often also more complex) than the tool used to get it on paper. +We have conferences but they're not about rocket science or particle +accelerators. Proceedings of such conferences can still scream \TEX, but it's the +content that matters. Here somehow \TEX\ still sells itself, being silently +present in rendering and presentations. It's like a rootkit: not really +appreciated and hard to get rid of. Does one discuss the future of rootkits other +than in the perspective of extinction? So, even as an invisible rootkit, hidden +in the workings of other programs, \TEX's future is not safe. Sometimes, when you +install a Linux system, you automatically get this large \TEX\ installation, +either because of dependencies or because it is seen as a similar toolkit as for +instance Open (or is it Libre) Office. If you don't need it, that user might as +well start seeing it as a (friendly) virus. + +\stopsection + +\startsection[title=Conclusion] + +At some point those who introduced computers in typesetting had no problem +throwing printing presses out of the window. So don't pity yourself if at some +point in the near future you figure out that professional typesetting is no +longer needed. Maybe once we let machines rule the world (even more) we will be +left alone and can make beautiful documents (or whatever) just for the joy, not +bothering if we use outdated tools. After all, we play modern music on old +instruments (and the older rock musicians get, the more they seem to like +acoustic). + +There are now computer generated compositions that experienced listeners cannot +distinguish from old school. We already had copies of paintings that could only +be determined forgeries by looking at chemical properties. Both of these +(artificial) arts can be admired and bring joy. So, the same applies to fully +automated typeset novels (or runtime rendered ebooks). How bad is that really? +You don't dig channels with your hand. You don't calculate logarithmic tables +manually any longer. + +However, one of the benefits of the Internet is watching and listening to great +minds. Another is seeing musicians perform, which is way more fun that watching a +computer (although googling for \quotation {animusic} brings nice visuals). +Recently I ran into a wooden musical computer made by \quotation {Wintergatan} +which reminded me of the \quotation {Paige Compositor} that we use in a \LUATEX\ +cartoon. Watching something like that nicely compensates for a day of rather +boring programming. Watching how the marble machine x (mmx) evolves is yet +another nice distraction. + +Now, the average age of the audience here is pretty high even if we consider that +we get older. When I see solutions of \CONTEXT\ users (or experts) posted by +(young) users on the mailing list or stack exchange I often have to smile because +my answer would have been worse. A programmable system invokes creative +solutions. My criterion is always that it has to look nice in code and has some +elegance. Many posted solutions fit. Do we really want more automation? It's more +fun to admire the art of solutions and I'm amazed how well users use the +possibilities (even ones that I already forgot). + +One of my favourite artists on my weekly \quotation {check youtube} list is Jacob +Collier. Right from when I ran into him I realized that a new era in music had +begun. Just google for his name and \quotation {music theory interview} and you +probably understand what I mean. When Dennett comments on the next generation +(say up to 25) he wonders how they will evolve as they grow up in a completely +different environment of connectivity. I can see that when I watch family +members. Already long ago Greg Bear wrote the novel \quotation {Darwin's +Children}. It sets you thinking and when looking around you even wonder if there +is a truth in it. + +There are folks here at Bacho\TEX\ who make music. Now imagine that this is a +conference about music and that the theme includes the word \quotation {future}. +Then, imagine watching that video. You see some young musicians, one of them +probably one of the musical masterminds of this century, others instrumental to +his success, for instance by wrapping up his work. While listening you realize +that this next generation knows perfectly well what previous generations did and +achieved and how they influenced the current. You see the future there. Just look +at how old musicians reflect on such videos. (There are lots of examples of youth +evolving into prominent musicians around and I love watching them). There is no +need to discuss the future, in fact, we might make a fool of ourselves doing so. +Now back to this conference. Do we really want to discuss the future? What we +think is the future? Our future? Why not just hope that in the flow of getting +words on a medium we play our humble role and hope we're not forgotten but +remembered as inspiration. + +One more word about predicting the future. When Arthur Clarke's \quotation {2001: +A Space Odyssey} was turned into a movie in 1968, a lot of effort went into +making sure that the not so far ahead future would look right. In 1996 scientists +were asked to reflect on these predictions in \quotation {Hal's Legacy}. It +turned out that most predictions were plain wrong. For instance computers got way +smaller (and even smaller in the next 20 years) while (self|-|aware) artificial +intelligence had not arrived either. So, let's be careful in what we predict (and +wish for). + +\stopsection + +\startsection[title=No more themes] + +We're having fun here, that's why we come to Bacho\TEX\ (predilection). That +should be our focus. Making sure that \TEX's future is not so much in the cutting +edge but in providing fun to its users (prediction). So we just have to make sure +it stays around (premise). That's how it started out. Just watch at Don Knuth's +3:16 poster: via \TEX\ and \METAFONT\ he got in contact with designers and I +wouldn't be surprised if that sub|-|project was among the most satisfying parts. +So, maybe instead of ambitious themes the only theme that matters is: show what +you did and how you did it. + +\stopsection + +\stopchapter + +\stopcomponent diff --git a/doc/context/sources/general/manuals/musings/musings-contents.tex b/doc/context/sources/general/manuals/musings/musings-contents.tex new file mode 100644 index 000000000..45b21ec60 --- /dev/null +++ b/doc/context/sources/general/manuals/musings/musings-contents.tex @@ -0,0 +1,7 @@ +\startcomponent musings-contents + +\starttitle[title=Content] + \placelist[chapter][criterium=text,width=2em] +\stoptitle + +\stopcomponent diff --git a/doc/context/sources/general/manuals/musings/musings-introduction.tex b/doc/context/sources/general/manuals/musings/musings-introduction.tex new file mode 100644 index 000000000..bc32f69ca --- /dev/null +++ b/doc/context/sources/general/manuals/musings/musings-introduction.tex @@ -0,0 +1,31 @@ +% language=uk + +\startcomponent musings-introduction + +\environment musings-style + +\startchapter[title={Introduction}] + +This is a collection of articles and wrap|-|ups that don't suit in other manuals +or collections. Some are published, some meant as draft for a presentation. + +The \quotation {Children of \TEX} article is the framework for a presentation at +Bacho\TEX\ 2017 in Poland, and covers the main theme of the conference. In the +aftermath of that conference I wrote \quotation {Advertising \TEX} and later +quotation {Why use \TEX?}. The 2018 Bacho\TEX\ conference theme is explored in +\quotation {What’s to stay, what’s to go}. After a short discussion on the +\CONTEXT\ mailing list about stability (at the moment that \MKII\ had been frozen +for more than a decade but is still used without problems) I wrote \quotation +{Stability}. + +Many of the thoughts in these articles are influenced by discussions with my +collegues Ton Otten en Kees van Marle. Operating in a similar arena, they provide +me the reflection needed to sort out my thoughts on these matters. + +\startlines +Hans Hagen +Hasselt NL +2017\endash 1028 +\stoplines + +\stopchapter diff --git a/doc/context/sources/general/manuals/musings/musings-perception.tex b/doc/context/sources/general/manuals/musings/musings-perception.tex new file mode 100644 index 000000000..993604473 --- /dev/null +++ b/doc/context/sources/general/manuals/musings/musings-perception.tex @@ -0,0 +1,180 @@ +% language=uk + +\definefontfeature[ligatures][liga=yes,mode=node] + +\startcomponent musings-perception + +\environment musings-style + +\startchapter[title=Advertising \TEX] + +I can get upset when I hear \TEX ies boast about the virtues of \TEX\ compared to +for instance Microsoft Word. Not that I feel responsible for defending a program +that I never use(d) but attacking something for no good reason makes not much +sense to me. It is especially annoying when the attack is accompanied by a +presentation that looks pretty bad in design and typography. The best +advertisements for \TEX\ should of course come from outside the \TEX\ community, +by people impressed by its capabilities. How many \TEX ies can really claim that +Word is bad when they never tried to make something in it with a similar learning +curve as they had in \TEX\ or the same amount of energy spent in editing and +perfecting a word|-|processor|-|made document. + +In movies where computer technology plays a role one can encounter weird +assumptions about what computers and programs can do. Run into a server room, +pull one disk out of a \RAID-5 array and get all information from it. Connect +some magic device to a usb port of a phone and copy all data from it in seconds. +Run a high speed picture or fingerprint scan on a computer (probably on a remote +machine) and show all pictures flying by. Okay, it's not so far from other +unrealistic aspects in movies, like talking animals, so maybe it is just a +metaphor for complexity and speed. When zapping channels on my television I saw +\in{figure}[fig:tex-in-movie] and as the media box permits replay I could make a +picture. I have no clue what the movie was about or what movie it was so a +reference is lacking here. Anyway it's interesting that seeing a lot of \TEX\ +code flying by can impress someone: the viewer, even if no \TEX ie will ever see +that on the console unless in some error or tracing message and even then it's +hard to get that amount. So, the viewer will never realize that what is seen is +definitely not what a \TEX ie wants to see. + +\startplacefigure[title={\TEX\ in a movie},reference=fig:tex-in-movie] + \externalfigure[tex-in-movie.jpg][height=8cm] +\stopplacefigure + +So, as that kind of free advertisement doesn't promote \TEX\ well, what of an +occasional mentioning of \TEX\ in highly|-|regarded literature? When reading +\quotation {From bacteria to Bach and back, the evolution of minds} by Daniel +Dennett I ran into the following: + +\startquotation +In Microsoft Word, for instance, there are the typographical operations of +superscript and subscript, as illustrated by + +\startnarrower +base\high{power} +\stopnarrower + +and + +\startnarrower +human\low{female} +\stopnarrower + +But try to add another superscript to base\high{power}\emdash it {\em should} +work, but it doesn't! In mathematics, you can raise powers to powers to powers +forever, but you can't get Microsoft Word to display these (there are other +text|-|editing systems, such as TeX, that can). Now, are we sure that human +languages make use of true recursion, or might some or all of them be more like +Microsoft Word? Might our interpretation of grammars as recursive be rather an +elegant mathematical idealization of the actual \quotation {moving parts} of a +grammar? +\stopquotation + +Now, that book is a wonderfully interesting read and the author often refers to +other sources. When one reads some reference (with a quote) then one assumes that +what one reads is correct, and I have no reason to doubt Dennett in this. But +this remark about \TEX\ has some curious inaccuracies. \footnote {Of course one +can wonder in general that when one encounters such an inaccuracy, how valid +other examples and conclusions are. However, consistency in arguments and +confirmation by other sources can help to counter this.} + +First of all a textual raise or lower is normally not meant to be recursive. +Nesting would have interesting consequences for the interline space so one will +avoid it whenever possible. There are fonts that have superscript and subscript +glyphs and even \UNICODE\ has slots for a bunch of characters. I'm not sure what +Word does: take the special glyph or use a scaled down copy? + +Then there is the reference to \TEX\ where we can accept that the \quotation {E} +is not lowered but just kept as a regular \quotation {e}. Actually the mentioning +of nested scripts refers to typesetting math and that's what the superscripts and +subscripts are for in \TEX. In math mode however, one will normally raise or +lower symbols and numbers, not words: that happens in text mode. + +While Word will use the regular text font when scripting in text mode, a \TEX\ +user will either have to use a macro to make sure that the right size (and font) +is used, or one can revert to math mode. But how to explain that one has to enter +math and then explicitly choose the right font? Think of this: + +\startbuffer +efficient\high{efficient} or +efficient$^{\text{efficient}}$ or \par +{\bf efficient\high{efficient} or +efficient$^{\text{efficient}}$} +\stopbuffer + +\typebuffer + +Which gives (in Cambria) + +\getbuffer + +Now this, + +\startbuffer +efficient\high{efficient\high{efficient}} or +efficient$^{\text{efficient$^{\text{efficient}}$}}$ or \par +{\bf efficient\high{efficient\high{efficient}} or +efficient$^{\text{efficient$^{\text{efficient}}$}}$} +\stopbuffer + +\typebuffer + +will work okay but the math variant is probably quite frightening at a glance for +an average Word user (or beginner in \TEX) and I can understand why someone would +rather stick to click and point. + +\getbuffer + +Oh, and it's tempting to try the following: + +\startbuffer +efficient{\addff{f:superiors}efficient} +\stopbuffer + +\typebuffer + +but that only works with fonts that have such a feature, like Cambria: + +\blank {\switchtobodyfont[cambria]\getbuffer} \blank + +To come back to Dennett's remark: when typesetting math in Word, one just has to +switch to the math editing mode and one can have nested scripts! And, when using +\TEX\ one should not use math mode for text scripts. So in the end in both +systems one has to know what one is doing, and both systems are equally capable. + +The recursion example is needed in order to explain how (following recent ideas +from Chomsky) for modern humans some recursive mechanism is needed in our +wetware. Now, I won't go into details about that (as I can only mess up an +excellent explanation) but if you want to refer to \TEX\ in some way, then +expansion \footnote{Expanding macros actually works well with tail recursion.} of +(either combined or not) snippets of knowledge might be a more interesting model +than recursion, because much of what \TEX\ is capable of relates to expansion. +But I leave that to others to explore. \footnote {One quickly starts thinking of +how \cs {expandafter}, \type {noexpand}, \type {unexpanded}, \type {protected} +and other primitives can be applied to language, understanding and also +misunderstanding.} + +Now, comparing \TEX\ to Word is always kind of tricky: Word is a text editor with +typesetting capabilities and \TEX\ is a typesetting engine with programming +capabilities. Recursion is not really that relevant in this perspective. Endless +recursion in scripts makes little sense and even \TEX\ has its limits there: the +\TEX\ math engine only distinguishes three levels (text, script and scriptscript) +and sometimes I'd like to have a level more. Deeper nesting is just more of +scriptscript unless one explicitly enforces some style. So, it's recursive in the +sense that there can be many levels, but it also sort of freezes at level three. + +\startplacefigure[title={Nicer than \TEX},reference=fig:nicer-than-tex] + \externalfigure[mathematics.png][width=\textwidth] +\stopplacefigure + +I love \TEX\ and I like what you can do with it and it keeps surprising me. And +although mathematics is part of that, I seldom have to typeset math myself. So, I +can't help that \in {figure} [fig:nicer-than-tex] impresses me more. It even has +the so|-|familiar|-|to|-|\TEX ies dollar symbols in it: the poem \quotation +{Poetry versus Orchestra} written by Hollie McNish, music composed by Jules +Buckley and artwork by Martin Pyper (I have the \DVD\ but you can also find it on +\YOUTUBE). It reminds me of Don Knuth's talk at a \TUG\ meeting. In \TUGBOAT\ +31:2 (2010) you can read Don's announcement of his new typesetting engine i\TEX: +\quotation {Output can be automatically formatted for lasercutters, embroidery +machines, \THREED\ printers, milling machines, and other \CNC\ devices \unknown}. +Now that is something that Word can't do! + +\stopcomponent diff --git a/doc/context/sources/general/manuals/musings/musings-stability.tex b/doc/context/sources/general/manuals/musings/musings-stability.tex new file mode 100644 index 000000000..7dc35c6be --- /dev/null +++ b/doc/context/sources/general/manuals/musings/musings-stability.tex @@ -0,0 +1,388 @@ +% language=uk + +\environment musings-style + +\startcomponent musings-stability + +\startchapter[title={Stability}] + +\startsubject[title=Introduction] + +How stable is \CONTEXT ? This question is hard to answer. For instance \MKII\ +hasn't changed for years and seems to work quite well: no changes equals +stability. Those who use it can do with what it offers. The potentially sensitive +dependencies on for instance fonts are probably absent because there is not much +development in the 8 bit fonts arena. As long as these are available we're okay, +in fact, \OPENTYPE\ fonts are more a moving target and therefore less stable. + +What do we mean by stable? The fundamental differences between an 8 bit engine +(and fonts) and an \UNICODE\ aware engine able to handle \OPENTYPE\ fonts is +substantial which is why we dropped some functionality and added some relevant +new. One can consider that a problem but in practice using fonts has become +easier so no one is hurt by it. Here we need to keep in mind that \PDFTEX\ is +really stable: it uses fonts and technology that doesn't change. On the other +hand \XETEX\ and \LUATEX\ follow new trends. Thereby \XETEX\ uses libraries, +which introduces a dependency and instability, while \LUATEX\ assumes solutions +in \LUA\ which means that users and macro writers can tweak and thereby also +introduce instability (but at least one can adapt that code). + +Due to the way the user interface is set up, it is unlikely that \CONTEXT\ will +change. But the fact that we now have \LUA\ available means that many commands +have been touched. Most behave compatible, some have more functionality, and of +course we have a \LUA\ interface. We include a lot of support code which also +lessens dependencies. + +The user input is normally \TEX\ but when you use \XML\ the move to \MKIV\ meant +that we dropped the \MKII\ way of dealing with it in favour of a completely new +mechanism. I get the impression that those using \XML\ don't regret that change. +Talking of stability the \MKIV\ \XML\ interface is typically a mechanism that is +stable and might change little. We can add new trickery but the old stays as it +is. + +If we look at the output, there is \DVI\ and \PDF. In \MKII\ the \DVI\ could +become \POSTSCRIPT. As there are different \DVI\ post|-|processors the backend +code was using a plug|-|in model. Contrary to other macro packages there was only +one so called format that could adapt itself to the required (engine specific) +output. A \CONTEXT\ run has always been managed by a wrapper so users were not +bothered much by what \TEX\ engine they used and|/|or what backend was triggered. +This changed with \MKIV\ where we use just \LUATEX, always produce \PDF\ and +optionally can export \XML. But again the run is managed by a wrapper, which +incidentally is written in \LUA\ and thereby avoids dependencies on for instance +\PERL, \RUBY\ or \PYTHON, which are moving targets, use libraries and additional +user code, and thereby are potentially instable too. + +The \PDF\ code that is produced is a mix of what the engine spits out and what +the macro package injects. The code is normally rather simple. This means that +it's no big deal to support the so called standards. It also means that we can +support advanced interactivity and other features but these also depends on the +viewers used. So, stability here is more fluent, for instance because the \PDF\ +standard evolves and|/|or we need to adapt to viewers. Special demands like +tagged \PDF\ have been supported right from the start but how that evolves +depends mostly on input from users who need it. Again, that is less important +(and crucial) for stability than the rendering capabilities. + +The fact that we use \LUA\ creates a dependency on that language but the reason +that we use it is {\em because} it is so stable. We follow the updates and so far +that worked out well. Now, say that we had a frozen version of \CONTEXT\ 2010 and +\LUATEX\ 1.09 that uses \LUA\ 5.3, would that work? First of all, in 2010 +\LUATEX\ itself was evolving so the answer is probably \quotation {no}, unless +one adds a few compatibility patches. I'm not going to try it. The change from +5.1 to 5.2 to 5.3 was not really a problem I think and the few issues could be +dealt with easily. If you want long term stability and use a lot of \LUA\ code +you can take it into account when coding. Avoiding external libraries is a good +start. + +Fonts are more than before moving targets. So, if you want stability there you +should save them with your document source. The processing of them has evolved +and has been improved over time. By now it's rather stable. More recent code can +catch more issues and fixes are relatively easy. But it's an area that you always +need to check when you update an old distribution. The same is true for language +related hyphenation patterns and script specific support. The community is no +longer leading in the math department either (\OPENTYPE\ math is a \MICROSOFT\ +invention). But, the good news is that the \TEX\ ecosystem is always fast to +adapt and can also often provide more functionality. + +Vertical spacing, in fact spacing in general is an aera that can always be +improved, so there is where you can expect changed. The same is true for side +floats or mechanisms where content is somehow attached to other moving content, +for instance marginal notes. + +But code dealing with fonts, color, scripts, structure, and specific features +that once written don't need more, will not change that much. As mentioned for +fonts, like any resource, we also depend on third parties. Colors can relate to +standards, but their main properties are unchanged. Support for specific scripts +can (and will) be improved due to user input and demands so there the users also +influence stability. Structure doesn't really influence the overall rendering, +but the way you set it up does, but that's user styling. Of course during the +transition from \MKII\ to \MKIV\ and the evolution of \LUATEX\ things could be +broken, but fixing something structural seldom relates to rendering. If for +instance we improve the interpretation of \BIBTEX\ input , which can be real +messy, that involves data processing, nor rendering. When we improve support for +the \APA\ standard, which is complex, it might involve rendering but then that's +asked for and expected. One cannot do better than the input permits. + +\stopsubject + +\startsubject[title=Publishers] + +When discussing stability and especially stability as requirement we need to look +at the way \CONTEXT\ is used. So let's look at a few scenarios. Say that a +publisher gets a camera ready book from an author in \PDF\ format. In that +case the author can do all tweaks needed. Now say that the publisher also wants +the source code in a format that makes reuse possible. + +But let's face reality. Will that publisher really reformat the document in \PDF\ +again? It's very unlikely. First of all the original \PDF\ can be kept, and +second, a reformat only makes sense after updating the content or going for a +completely different layout. It's basically a new book then. In that case literal +similarity of output is irrelevant. It is a cheap demand without much substance. + +When the source is used for a different purpose the tool used to make the \PDF\ +is irrelevant. In that case the coding of the source can matter. If it is in some +dialect of \TEX, fine, one has to convert it anyway (to suit the other usage). If +there is an \XML\ export available, fine too as it can be transformed, given that +the structure is rich enough, something that is unlikely to have been checked +when the original was archived. Then there could have been the demand for a +document in some other format and who can guarantee stability of the tools used +there? Just look at how \MICROSOFT\ Word evolved, or for that matter, its +competitors. On the average \TEX\ is more stable as one can snapshot a \TEX\ tree +and run binaries for years, if needed, in a virtual machine. + +So, I don't think that a publisher is of any relevance in the discussion about +stability. Even if we can clearly define what a publisher is, I doubt if +publishers themselves can be considered long term stable organizations. Not +today. I'm not sure if (especially the large) publishers really deserve a place +in the discussion about stability but I'm willing to discuss that when I run into +one. + +The main problem that an author can face when being confronted with the stability +issue this way is that the times are long gone that publishers have a clue about +what \TEX\ is, how it evolved and how it always had to and did adapt to changing +requirements. If you're lucky you will run into someone who does know all this. +They're normally a bit older and have seen the organization from any angles and +therefore are fun to work with. + +But even then, rendering issues are often not high on their agenda. Outsourcing +often has become the modus operandi which basically brings us to the second group +involved in this discussion: suppliers. + +\stopsubject + +\startsubject[title=Suppliers] + +I don't know many suppliers other than the ones we ran into over a few decades. +At least where I live the departments that are responsible for outsourcing +typesetting like to deal with only a few large suppliers, interestingly because +they assume that they are stable. However, in my experience hardly any of those +seem to have survived. (Of course one can wonder if long term commitment really +is that important in a world where companies change so fast.) This is somewhat +obscured by the fact that publishers themselves merge, reorganize, move people +around, etc. so who can check on the stability of suppliers. It is definitely a +fact that at least recently hardly any of them played a rol of any relevance in +the development of stable tools. In the past the membership of \TEX\ user groups +contained people working at publishers and suppliers but that has changed. + +Let's focus on the suppliers that somehow use \TEX\ and let's consider two kind +of suppliers: small ones, one were only a few people work, and large ones. The +small ones depend on stable \TEX\ distributions, like \TEX Live where they can +get the resources from: styles, fonts, patterns, binaries. If they get the +authors \TEX\ files they need to have that access. They have to rework that input +into what the customer demands and that likely involves tweaks. So, maybe they +have developed their own additional code. For that code, stability is their own +responsibility. Did they tweak core code of a macro package? Fine, but you might +have it coming when you update. You cannot expect the evolving free meal world to +stick to your commercial needs. A supplier can play safe and somehow involve the +developers of macro packages or consult them occasionally, but does that really +happen often? Interesting is that a few times that I was asked for input it was +also wrapped in obscurity, as if some holy grail of styling was involved, while +it's quite likely that the developer of a macro package can write such a style +(or extra code) easily and probably also better. There really is not that much +unique code around. + +Small suppliers can be on mailing lists where they can contribute, get feedback, +provide testing, etc. They are part of a process and as such have some influence +on stability. If they charge by the page, then a change in their tools can be +reflected in what they charge. Basically redoing a book (or so) after a decade is +doing a new job. And adapting to some new options in a package, as part of a +typesetting job is probably no big deal. Is commercial really more stable than +open source free software? Probably not, except from open source software +developers whose real objective is to eventually sell their stuff to some company +(and cash) and even accept it to be ditched. Small suppliers are more flexible. + +The large suppliers are a different group. They often guard their secrets and +stay in the dark. They probably seldom share (fundamental) code and information. +If they are present in a community it can be for marketing reasons. If at some +point a large supplier would demand stability, then my first response would be: +sure I can make you a stable setup and maybe even provide intermediate patches +but put your money where your mouth is. But that never happened and I've come to +the conclusion that we can safely ignore that group. The \TEX\ user groups create +distributions and have for instance funded font development and it are the common +users who paid for that, not the scale ones. To some extent this is actually good +because large (software related) organizations often have special agendas that +can contradict what we aim at in the long term. + +From the authors perspective there is a dilemma here. When you submit to a +publisher who outsources, it can be a demand to deliver in a specific \TEX\ +format. Often a \PDF\ comes with the source then, so that the intended rendering +is known. Then that source goes to a supplier who then (quite likely) redoes a +lot of the coding in some stable subset, maybe even in a very old version of the +macro package. If I were such an author I'd render the document in \quote {as +stupid as possible mode} because you gain nothing by spending time on the looks. +So, stability within the package that you use is easy and translation from one to +another probably also. It's best to check beforehand what will happen with your +source and let stability, if mentioned, be their problem. After all they get paid +for it. + +Suppliers seldom know \CONTEXT. An interesting question is if they really know +the alternatives well, apart from the bit they use. A well structured \CONTEXT\ +source (or probably any source) is often easy to convert to another format. You +can assume that a supplier has tools for that (although we're often surprised +about the poor quality of tools used). Often the strict demand for some kind of +format is an excuse for lack of knowledge. Unfortunately you need a large author +base to change that attitude. + +\stopsubject + +\startsubject[title=Authors] + +Before we move to some variants of the above, first I will look at stability from +the authors perspective. When a book is being written the typesetting more or +less happens as part of the process. The way it looks can influence the way you +write and vise versa. Once the book is done it can go in print and, unless you +were using beta versions of \CONTEXT\ and updated frequently. Normally you will +try to work in a stable setup. Of course when a user asks for additional features +while working on a project, he or she should also accept other beta features +and side effects. + +After a few years an author might decide to update the book. The worst that can +happen is that the code doesn't run with the latest \CONTEXT. This is not so +likely because commands are upward compatible. However, the text might come out a +bit different, for instance because different fonts or patterns are used. But on +the average paragraphs will come out the same in \TEX. You can encounter +differences in the vertical spacing and page breaks, because that is where +improvements are still possible. If you use conceptually and implementation wise +complex mechanism like side floats, you can also run into compatibility issues. +But all these don't really matter much because the text will be updated anyway +and fine|-|tuning of page breaks (if at all) happens at the end. The more you try +to compete with desk top publishing, and the more tweaks you apply, the greater +is the risk that you introduce instability. It is okay for a one|-|time job, but +when you come back to it after a decade, be prepared for surprises. + +Even if you stick to the original coding, it makes sense to sacrifice some of that +stability if new mechanisms have become available. For instance, if you use +\METAPOST, better ways to solve your problem might have become available. Or if +you document is 15 years old, a move from \MKII\ to \MKIV\ is a valid option, +in which case you might also consider using the latest fonts. + +Of course, when you made a style where you patched core code, you can expect +problems, because anything not explicitly mentioned in the interface definition +files is subjected to change. But you probably see that coming anyway. + +So, is an author (or stand alone user) really dependent on stability? Probably +less than thought. In fact, the operating system, internet and browsers, +additional tools: all change over time and one adapts. It's something one can +live with. Just see how people adapt to phones, tablets, social media, electric +cars, etc. As long as the document processes and reasonable output is generated +it's fine. And that is always what we aim at! After all we need to be able to use +it ourselves, don't we? + +\stopsubject + +\startsubject[title=Projects] + +Although it is often overlooked as valid alternative in rendering in large scale +projects, \CONTEXT\ is perfect as component in a larger whole. Something goes +in, something comes out. In a long term project one can just install a minimal +distribution, write styles, and run it for ages. Use a virtual machine and +we're talking decades without any change. And, when one updates, it's easy to check +if all still works. Often the demands and styles are simple and predictable. It's +way more likely that a hard coded solution in some large programming environment has +stability issues than that the \CONTEXT\ bit has. + +If \CONTEXT\ is used in for instance documentation of (say) software, again there +is no real issue. Such documents are simple, evolve and therefore have no stable +page flow, and updating \CONTEXT\ is not needed if the once decided upon coding +is stable. You don't need the latest features. We've written styles and setups for +such tasks and indeed they run for ages. + +It can make me smile to see how much effort sometimes goes in low quality +rendering where \CONTEXT\ could do a way better job with far less investment in +time and money but where using some presumed stable toolkit is used instead, one +that comes with expensive licensing, from companies that come and go but shine in +marketing. (A valid question is to what extent the quality of and care for +documentation reflects the core products that a company produces, at least under +the hood.) + +The biggest hurdle in setting up a decent efficient workflow is that it has to be +seen as a project: proper analysis, proper planning, prototyping and testing, +etc. You invest first and gain later. When dealing with paper many publishers +still think in price per page and have problems seeing that a stable mostly +automated flow in the end can result in a ridiculous low price per page, +especially in typesetting on demand. + +\stopsubsubject + +\startsubject[title=Hybrids] + +Last I will mention a setup that we sometimes are involved in. An author writes +books and uses \TEX. The publisher is okay with that and adds some quality +assurance but in the end the product comes from the author. Maybe images are +oursourced (not always for the better) but these can be handled easily. It can be that +a copy|-|editor is involved and that person also then has to use \TEX\ of course, +or feedback to the author. + +Publishers, and this really depends on knowledgeable persons, which as said can +be fun to work with, can look beyond paper and also decide for additional +materials, for instance web pages, interactive exercises, etc. In that case +either \CONTEXT\ input has to be available as \XML\ (an export) or (often better) +\XML\ is the starting point for multiple output. Contrary to what is believed, +there are authors out there who have no problem coding in \XML\ directly. They +think in structured content and reuse! The fact that they can hit a button in the +editor and see the result in \PDF\ helps a lot. It just works. + +Here stability is either achieved by simply not updating during a project. There +are however cases where an update is needed, for instance because demands +changed. An example is a project where \ASCIIMATH\ is used which is a moving +target. Of course one can update just that module, and often that works, but not +when a module uses some new improved core helpers. Another example is additional +proofing options. + +The budget of such projects seldom permit patching an existing distribution, so +we then just update to the latest but not after checking if the used style works +okay. There is no author involvement in this. Depending on the workflow, it can +even be that the final rendering which involves fine tuning (side) float placement +or page breaks (often educational documents have special demands) is done by us +using special directives. + +Such hybrid workflows are quite convenient for all parties. The publisher works +with the author who likes using these tools, the author can do her or his thing +in the preferred way, and we do what we're best in: supporting this. And it +scales up pretty well too if needed, without much costs for the publishers. + +\stopsubject + +\startsubject[title=Conclusion] + +So what can we conclude with respect to the demand for stability? First of course +that it's important that our files keep running well. So, functionality should be +stable. Freezing a distribution will make sure that during project you don't run +into issues. Many \CONTEXT\ users update frequently in order to benefit from the +latest additions. Most will not be harmed by this, but when something really +breaks it's users like those on the \CONTEXT\ support list (who often also +contribute in helping out other users) that are listened to first. Publishers +demands play no role in this, if only because they also play no role in +typesetting, and if they want to they should also contribute. The same is true +for large suppliers. We're talking of free software often written without any +compensation so these parties have no say in the matter unless they pay for it. +It's small suppliers, authors and general users that matter most. If \CONTEXT\ is +part of a workflow that we support, of course stability is guaranteed quite well, +and those paying for that never have an issue with better solutions popping up. +In fact, \CONTEXT\ is often just a tool then, one that does the job and questions +about stability don't matter much in practice, as long as it does the job well. + +The main engine we use, \LUATEX, will be quite stable from version 1.10 and we'll +try to make sure that newer versions are capable of running an older \CONTEXT, +which is easier when no fundamental changes happen in the engine. Maybe a stripped +down version of \LUATEX\ for \CONTEXT\ can facilitate that objective even more. + +Users themselves can try to stick to standard \CONTEXT\ features. The more tricks +you apply, the less stable your future might be. Most mechanism are not evolving +but some, like those that deal with columns, might become better over time. But +typesetting in columns is often a one|-|shot adventure anyway (and who needs +columns in the future). + +Of one thing users can be sure. There will never be a \CONTEXT\ professional or +\CONTEXT\ enterprise. There is only one variant. All users get the same +functionality and policies don't change suddenly. There will be no lock in to some +cloud or web based service either. Of course one can hire us for support of any +kind but that's independent of the distributed package. There is support by users +for users on mailing lists and other media. That itself can also guard stability. + +But, always keep in mind that stability and progress, either of not driven by the +environment that we operate in, can be in conflict. + +\stopsubject + +\stopchapter + +\stopcomponent diff --git a/doc/context/sources/general/manuals/musings/musings-staygo.tex b/doc/context/sources/general/manuals/musings/musings-staygo.tex new file mode 100644 index 000000000..4be647e47 --- /dev/null +++ b/doc/context/sources/general/manuals/musings/musings-staygo.tex @@ -0,0 +1,461 @@ +% language=uk + +% Written with on repeat: +% +% Rai Thistlethwayte: Betty Page (the keyscape version) + +% \usemodule[art-01,abr-04] +% +% \setupbodyfont[12pt] +% +% \startdocument +% [title={What’s to stay, what’s to go}, +% subtitle={The 2018 Bacho\TeX\ theme}, +% author={Hans Hagen}] + +\definedescription + [theme] + [before=\startnarrower, + after=\stopnarrower, + title=yes, + alternative=serried, + width=fit, + distance=.5\emwidth, + text={\documentvariable{title}:}] + +% \starttitle[title=\documentvariable{title}\\\txx\documentvariable{subtitle}] + +\startcomponent musings-staygo + +\environment musings-style + +\startchapter[title={What’s to stay, what’s to go}] + +\startsection[title=Introduction] + +The following text was written as preparation for a 2018 talk at Bacho\TEX, which +has this theme. It's mostly a collection of thoughts. It was also more meant as a +wrapup for the presentation (possibly with some discussions) than an article. + +\stopsection + +\startsection[title=Attraction] + +There are those movies where some whiz-kid sits down behind a computer, keys in a +few commands, and miracles happen. Ten fingers are used to generate programs that +work immediately. It's no problem to bypass firewalls. There is no lag over +network connections. Checking massive databases is no big deal and there's even +processing power left for real time visualization or long logs to the terminal. + +How boring and old fashioned must a regular edit||run||preview cycle look +compared to this. If we take this 2018 movie reality as reference, in a time when +one can suck a phone empty with a simple connection, pull a hard drive from a +raid five array and still get all data immediately available, when we can follow +realtime whoever we want using cameras spread over the country, it's pretty clear +that this relatively slow page production engine \TEX\ has no chance to survive, +unless we want to impress computer illiterate friends with a log flying by on the +console (which in fact is used in movies to impress as well). + +On YouTube you can find these (a few hours) sessions where Jacob Collier +harmonizes live in one of these Digital Audio Workstation programs. A while later +on another channel June Lee will transcribe these masterpieces into complex +sheets of music by ear. Or you can watch the weekly Wintergatan episodes on +building the Marble Machine from wood using drilling, milling, drawing programs +etc. There are impressive videos of multi|-|dimensional led arrays made by hand +and controlled by small computers and robots that solve Rubic Cubes. You can be +impressed by these Animusic videos, musicians show their craftmanship and +interesting informative movies are all over the place. I simply cannot imagine +millions of kids watching a \TEX\ style being written in a few hours. It's a real +challenge for an attention span. I hope to be proven wrong but I fear that for +the upcoming generation it's probably already too late because the \quote {whow} +factor of \TEX\ is low at first encounter. Although: picking up one of Don Knuths +books can have that effect: a nice mixture of code, typesetting and subtle +graphics, combined with great care, only possible with a system like \TEX. + +\starttheme + Biology teaches us that \quote {cool} is not a recipe for \quote {survival}. + Not all designs by nature look cool, and it's only efficiency and + functionality that matters. Beauty sometimes matters too but many functional + mechanisms can do without. So far \TEX\ and its friends were quite capable to + survive so there must be something in it that prevents it to be discarded. + But survival is hard to explain. So far \TEX\ just stayed around but lack of + visual attraction is a missing competitive trait. +\stoptheme + +\stopsection + +\startsection[title=Satisfaction] + +Biology also teaches us that chemistry can overload reason. When we go for +short|-|term pleasure instead of long|-|term satisfaction (Google for Simon Sinek +on this topic), addiction kicks in (for instance driven by crossing the dopamine +thresholds too often, Google for Robert Sapolsky). Cool might relate more to +pleasure while satisfaction relates to an effort. Using \TEX\ is not that cool +and often takes an effort. But the results can be very satisfying. Where \quote +{cool} is rewarding in the short term, \quote {satisfaction} is more a long term +effect. So, you probably get the best (experience) out of \TEX\ by using it a +lifetime. That's why we see so many old \TEX ies here: many like the rewards. + +If we want to draw new users we run into the problem that humans are not that +good in long term visions. This means that we cannot rely on showing cool (and +easy) features but must make sure that the long term reward is clear. We can try +to be \quote {cool} to draw in new users, but it will not be the reason they +stay. Instant success is important for kids who have to make a report for school, +and a few days \quotation {getting acquainted with a program} doesn't fit in. +It's hard to make kids addicted to \TEX\ (which could be a dubious objective). + +\starttheme + As long as the narrative of satisfaction can be told we will see new users. + Meetings like Bacho\TEX\ is where the narrative gets told. What will happen + when we no longer meet? +\stoptheme + +\stopsection + +\startsection[title=Survival] + +Survival relates to improvements, stability and discarding of weak aspects. +Unfortunately that does not work out well in practice. Fully automated +multi||columns typesetting with all other elements done well too (we just mention +images) is hard and close to impossible for arbitrary cases, so nature would have +gotten rid of it. Ligatures can be a pain especially when the language is not +tagged and some kind of intelligence is needed to selectively disable them. They +are the tail of the peacock: not that handy but meant to be impressive. Somehow +it stayed around in automated typesetting, in biology it would be called a freak +of nature: probably a goodbye in wildlife. And how about page breaks on an +electronic device: getting rid of them would make the floating figures go away +and remove boundary conditions often imposed. It would also make widows and clubs +less of a problem. One can even wonder if with page breaks the windows and clubs +are the biggest problems, and if one can simply live with them. After all, we can +live with our own bodily limitations too. After all, (depending on what country +you live in) you can also live with bad roads, bad weather, polution, taxes, lack +of healthcare for many, too much sugar in food, and more. + + +\starttheme + Animals or plants that can adapt to live on a specific island might not + survive elsewhere. Animals or plants introduced in an isolated environment + might quickly dominate and wipe out the locals. What are the equivalents in + our \TEX\ ecosystem? +\stoptheme + +\stopsection + +\startsection[title=Niches] + +But arguments will not help us determine if \TEX\ is the fittest for survival. +It's not a rational thing. Humans are bad in applying statistics in their live, +and looking far ahead is not a treat needed to survive. Often nature acts in +retrospect. (Climbing mount probability by Richard Dawkins). So, it doesn't +matter if we save time in the future if it complicates the current job. If +governments and companies cannot look ahead and act accordingly, how can we +extrapolate software (usage) or more specifically typesetting demands. Just look +at the political developments in the country that hosts this conference. Could we +have predicted the diminishing popularity of the \EU\ (and disturbing retrograde +political mess in some countries) of 2018 when we celebrated the moment Poland +joining the \EU\ at a Bacho\TEX\ campfire? + +Extrapolating the future quality of versions of \TEX\ or macro packages also doesn't +matter much. With machine learning and artificial intelligence around the corner and +with unavoidable new interfaces that hook into our brains, who knows what systems +we need in the future. A generic flexible typesetting system is probably not the +most important tool then. When we discuss quality and design it gets personal so +a learning system that renders neutrally coded content into a form that suits +an individual, demands a different kind of tool than we have now. + +On the short term (our live span) it makes more sense to look around and see how +other software (ecosystems) fare. Maybe we can predict \TEX's future from that. +Maybe we can learn from others mistakes. In the meantime we should not flatter +ourselves with the idea that a near perfect typesetting system will draw attention +and be used by a large audience. Factors external to the community play a too +important role in this. + +\starttheme + It all depends on how well it fits into a niche. Sometimes survival is only + possible by staying low on the radar. But just as we destroy nature and kill + animals competing for space, programs get driven out of the software world. + On a positive note: in a project that provides open (free) math for schools + students expressed to favour a printed book over \WEB|-|only (one curious + argument for \WEB\ was that it permits easier listening to music at the same + time). +\stoptheme + +\stopsection + +\startsection[title=Dominance] + +Last year I installed a bit clever (evohome) heating control system. It's +probably the only \quotation {working out of the box} system that supports 12 +zones but at the same time it has a rather closed interface as any other. One can +tweak a bit via a web interface but that one works by a proxy outside so there is +a lock in. Such a system is a gamble because it's closed and we're talking of a +20 year investment. I was able to add a layer of control (abusing \LUATEX\ as +\LUA\ engine and \CONTEXT\ as library) so let's see. When I updated the boiler I +also reconfigured some components (like valves) and was surprised how limited +upgrading was supported. One ends up with lost settings and weird interference +and it's because I know a bit of programming that I kept going and managed to add +more control. Of course, after a few weeks I had to check a few things in the +manuals, like how to enter the right menu. + +So, as the original manuals are stored somewhere, one picks up the smart phone +and looks for the manual on the web. I have no problem with proper \PDF\ as a +manual but why not provide a simple standard format document alongside the fancy +folded A3 one. Is it because it's hard to produce different instances from one +source? Is it because it takes effort? We're talking of a product that doesn't +change for years. + +\starttheme + The availability of flexible tools for producing manuals doesn't mean that + they are used as such. They don't support the survival of tools. Bad examples + are a threat. Dominant species win. +\stoptheme + +\stopsection + +\startsection[title=Extinction] + +When I was writing this I happened to visit a bookshop where I always check the +SciFi section for new publications. I picked out a pocket and wondered if I had +the wrong glasses on. The text was wobbling and looked kind of weird. On close +inspection indeed the characters were kind of randomly dancing on the baseline +and looked like some 150 \DPI\ (at most) scan. (By the way, I checked this the +next time I was there by showing the book to a nephew.) I get the idea that quite +some books get published first in the (more expensive) larger formats, so +normally I wait till a pocket size shows up (which can take a year) so maybe here +I had to do with a scan of a larger print scaled down. + +What does that tell us? First of all that the publisher doesn't care about the +reader: this book is just unreadable. Second, it demonstrates that the printer +didn't ask for the original \PDF\ file and then scaled down the outline copy. It +really doesn't matter in this case if you use some high quality typesetting +program then. It's also a waste of time to talk to such publishers about quality +typesetting. The printer probably didn't bother to ask for a \PDF\ file that +could be scaled down. + +\starttheme + In the end most of the publishing industry will die and this is just one of + the symptoms. Typesetting as we know it might fade away. +\stoptheme + +\stopsection + +\startsection[title=Desinterest] + +The newspaper that I read has a good reputation for design. But why do they need +to drastically change the layout and font setup every few years? Maybe like an +animal marking his or her territory a new department head also has to put a mark +on the layout. Who knows. For me the paper became pretty hard to read: a too +light font that suits none of the several glasses that I have. So yes, I spend +less time reading the paper. In a recent commentary about the 75 year history of +the paper there was a remark about the introduction of a modern look a few +decades ago by using a sans serif font. I'm not sure why sans is considered +modern (most handwriting is sans) and to me some of these sans fonts look pretty +old fashioned compared to a modern elegant serif (or mix). + +\starttheme + If marketing and fashion of the day dominate then a wrong decision can result + in dying pretty fast. +\stoptheme + +\stopsection + +\startsection[title=Persistence] + +Around the turn of the century I had to replace my \CD\ player and realized that it +made more sense to invest in ripping the \CD's to \FLAC\ files and use a decent +\DAC\ to render the sound. This is a generic approach similar to processing +documents with \TEX\ and it looks as future proof as well. So, I installed a +virtual machine running SlimServer and bought a few SlimDevices, although by that +time they were already called SqueezeBoxes. + +What started as an independent supplier of hardware and an open source program +had gone the (nowadays rather predictable) route of a buy out by a larger company +(Logitech). That company later ditched the system, even if it had a decent share +of users. This \quotation {start something interesting and rely on dedicated +users}, then \quotation {sell yourself (to the highest bidder)} and a bit later +\quotation {accept that the product gets abandoned} is where open source can fail +in many aspects: loyal users are ignored and offended with the original author +basically not caring about it. The only good thing is that because the software +is open source there can be a follow up, but of course that requires that there +are users able to program. + +I have 5 small boxes and a larger transporter so my setup is for now safe from +extinction. And I can run the server on any (old) \LINUX\ or \MSWINDOWS\ +distribution. For the record, when I recently connected the 20 year old Cambridge +CD2 I was surprised how well it sounded on my current headphones. The only +drawback was that it needs 10 minutes for the transport to warm up and get +working. + +In a similar fashion I can still use \TEX, even when we originally started using +it with the only viable quality \DVI\ to \POSTSCRIPT\ backend at that time +(\DVIPSONE). But I'm not so sure what I'd done if I had not been involved in the +development of \PDFTEX\ and later \LUATEX . As an average user I might just have +dropped out. As with the \CD\ player, maybe someone will dust off an old \TEX\ +some day and maybe the only hurdle is to get it running on a virtual retro +machine. Although \unknown\ recently I ran into an issue with a virtual machine +that didn't provide a console after a \KVM\ host update, so I'm also getting +pessimistic about that escape for older programs. (Not seldom when a library +update is forced into the \LUATEX\ repository we face some issue and it's not +something the average user want (or is able to) cope with.) + +\starttheme + Sometimes it's hard to go extinct, even when commerce interfered at some + point. But it does happen that users successfully take (back) control. +\stoptheme + +\stopsection + +\startsection[title=Freedom] + +If you buy a book originating in academia written and typeset by the author, +there is a chance that it is produced by some flavour of \TEX\ and looks quite +okay. This is because the author could iterate to the product she or he likes. +Unfortunately the web is also a source of bad looking documents produced by \TEX. +Even worse is that many authors don't even bother to set up a document layout +properly, think about structure and choose a font setup that matches well. One +can argue that only content matters. Fine, but than also one shouldn't claim +quality simply because \TEX\ has been used. + +I've seen examples of material meant for bachelor students that made me pretend +that I am not familiar with \TEX\ and cannot be held responsible. Letter based +layouts on A4 paper, or worse, meant for display (or e|-|book devices) without +bothering to remove the excessive margins. Then these students are forced to use +some collaborative \TEX\ environment, which makes them dependent on the quality +standards of fellow students. No wonder that one then sees dozens of packages +being loaded, abundant copy and paste and replace of already entered formulas and +interesting mixtures of inline and display math, skips, kerns and whatever can +help to make the result look horrible. + +\starttheme + Don't expect enthusiast new users when you impose \TEX\ but take away freedom + and force folks to cooperate with those with lesser standards. It will not + help quality \TEX\ to stay around. You cannot enforce survival, it just + happens or not, probably better with no competition or with a competition so + powerful that it doesn't bother with the niches. In fact, keeping a low + profile might be best! The number of users is no indication of quality, + although one can abuse that statistic selectively? +\stoptheme + +\stopsection + +\startsection[title=Diversity] + +Diversity in nature is enormous. There are or course niches, but in general there +are multiple variants of the same. When humans started breeding stock or +companion animals diversity also was a property. No one is forcing the same dog +upon everyone or the same cow. However, when industrialization kicks in things +become worse. Many cows in our country share the same dad. And when we look at +for instance corn, tomatoes or whatever dominance is not dictated by what nature +figures out best, but by what commercially makes most sense, even if that means +that something can't reproduce by itself any longer. + +In a similar way the diversity of methods and devices to communicate (on paper) +at some point turns into commercial uniformity. The diversity is simply very +small, also in typesetting. And even worse, a user even has to defend +her|/|himself for a choice of system (even in the \TEX\ community). It's just +against nature. + +\starttheme + Normally something stays around till it no longer can survive. However, we + humans have a tendency to destroy and commerce is helping a hand here. In + that respect it's a surprise that \TEX\ is still around. On the other hand, + humans also have a tendency to keep things artificially alive and even + revive. Can we revive \TEX\ in a few hundred years given the complex code + base and Make infrastructure? +\stoptheme + +\stopsection + +\startsection[title=Publishing] + +What will happen with publishing? In the production notes of some of my recently +bought books the author mentions that the first prints were self|-|published +(either or not sponsored). This means that when a publisher \quotation {takes +over} (which still happens when one scales up) not much work has to be done. +Basically the only thing an author needs is a distribution network. My personal +experience with for instance \CD's produced by a group of musicians is that it is +often hard to get it from abroad (if at all) simply because one needs a payment +channel and mail costs are also relatively high. + +But both demonstrate that given good facilitating options it is unlikely that +publishers as we have now have not much change of survival. Add to the argument +that while in Gutenbergs time a publisher also was involved in the technology, +today nothing innovative comes from publishers: the internet, ebook devices, +programs, etc.\ all come from elsewhere. And I get the impression that even in +picking up on technology publishers lag behind and mostly just react. Even +arguments like added value in terms of peer review are disappearing with the +internet where peer groups can take over that task. Huge amounts of money are +wasted on short|-|term modern media. (I bet similar amounts were never spend on +typesetting.) + +\starttheme + Publishers, publishing, publications and their public: as they are now they + might not stay around. Lack of long term vision and ideas and decoupling of + technology can make sure of that. Publishing will stay but anyone can + publish; we only need the infrastructure. Creativity can win over greed and + exploitation, small can win over big. And tools like \TEX\ can thrive in + there, as it already does on a small scale. +\stoptheme + +\stopsection + +\startsection[title=Understanding] + +\quotation {Why do you use \TEX?} If we limit this question to typesetting, you +can think of \quotation {Why don't you use \MSWORD ?} \quotation {Why don't you use +Indesign?}, \quotation {Why don't you use that macro package?}, \quotation {Why +don't you use this \TEX\ engine?} and alike. I'm sure that most of the readers +had to answer questions like this, questions that sort of assume that you're not +happy with what you use now, or maybe even suggest that you must be stupid not to +use \unknown + +It's not that easy to explain why I use \TEX\ and|/|or why \TEX\ is good a the +job. If you are in a one|-|to|-|one (or few) sessions you can demonstrate its +virtues but \quote {selling} it to for instance a publisher is close to +impossible because this kind of technology is rather unknown and far from the +click|-|and|-|point paradigm. It's even harder when students get accustomed to +these interactive books from wherein they can even run code snippets although one +can wonder how individual these are when a student has the web as a source of +solutions. Only after a long exposure to similar and maybe imperfect alternatives +books will get appreciated. + +For instance speaking of \quotation {automated typesetting} assumes that one +knows what typesetting is and also is aware that automated has some benefits. A +simple \quotation {it's an \XML\ to \PDF\ converter} might work better but that +assumes \XML\ being used which for instance not always makes sense. And while +hyphenation, fancy font support and proper justification might impress a \TEX\ +user it often is less of an argument than one thinks. + +The \quotation {Why don't you} also can be heard in the \TEX\ community. In the +worst case it's accompanied by a \quotation {\unknown\ because everybody uses +\unknown} which of course makes no sense because you can bet that the same user +will not fall for that argument when it comes to using an operating system or so. +Also from outside the community there is pressure to use something else: one can +find defense of minimal markup over \TEX\ markup or even \HTML\ markup as better +alternative for dissemination than for instance \PDF\ or \TEX\ sources. The +problem here is that old||timers can reflect on how relatively wonderful a +current technique really is, given changes over time, but who wants to listen to +an old|-|timer. Progress is needed and stimulating (which doesn't mean that all +old technology is obsolete). When I watched Endre eNerd's \quotation {The Time +Capsule} blu|-|ray I noticed an Ensoniq Fizmo keyboard and looked up what it was. +I ended up in interesting reads where the bottom line was \quotation {Either you +get it or you don't}. Reading the threads rang a bell. As with \TEX, you cannot +decide after a quick test or even a few hours if you (get the concept and) like +it or not: you need days, weeks, or maybe even months, and some actually never +really get it after years. + +\starttheme + It is good to wonder why you use some program but what gets used by others + depends on understanding. If we can't explain the benefits there is no + future for \TEX. Or more exact: if it no longer provide benefits, it will + just disappear. Just walk around a gallery in a science museum that deals + with computers: it can be a bit pathetic experience. +\stoptheme + +\stopsection + +{\bf Who knows \unknown} + +\stoptitle + +\stopdocument diff --git a/doc/context/sources/general/manuals/musings/musings-style.tex b/doc/context/sources/general/manuals/musings/musings-style.tex new file mode 100644 index 000000000..5ed934f2f --- /dev/null +++ b/doc/context/sources/general/manuals/musings/musings-style.tex @@ -0,0 +1,92 @@ +\startenvironment musings-style + +\usemodule[abr-04] + +\setupbodyfont + [pagella] + +\setuplayout + [topspace=2cm, + header=0pt, + footer=1.5cm, + bottomspace=1cm, + width=middle, + height=middle] + +% \definecolor[maincolor] [darkyellow] +% \definecolor[extracolor][darkblue] + +\definecolor[maincolor] [middleorange] +\definecolor[extracolor][middleblue] + +\setuptype + [color=maincolor] + +\setuptyping + [color=maincolor] + +\setuphead + [color=maincolor] + +\setuphead + [chapter] + [style=\bfd] + +\setuphead + [chapter] + [after={\blank[3*line]}, + align=flushright, + command=\ChapterCommand] + +\starttexdefinition unexpanded ChapterCommand#1#2 + \hbox to \textwidth { + \hss + % title + #2 + \doifmode {*sectionnumber} { + % distance + \hskip10mm + % number + \struttedbox{\offset[x=-1mm,y=2.5mm]{\scale[height=2cm]{#1}}} + } + } +\stoptexdefinition + +\setuphead + [section] + [style=\bfb] + +\setuphead + [subsection] + [style=\bf, + before=\blank, + after=\blank] + +\setuppagenumbering + [alternative=doublesided] + +\setupfootertexts + [][{\getmarking[chapter]\hbox to 2em{\hss\pagenumber}}] + [{\hbox to 2em{\pagenumber\hss}\getmarking[chapter]}][] + +\setupwhitespace + [big] + +\setuplist + [chapter] + [width=3em, + before={\testpage[3]\blank}, + after={\blank[samepage]}, + color=maincolor, + style=bold] + +\setuplist + [section] + [width=3em, + before={\blank[nowhite]}, + after={\blank[nowhite]}] + +% \logo [MATHTYPE] {MathType} +% \logo [SYNCTEX] {Sync\TeX} + +\stopenvironment diff --git a/doc/context/sources/general/manuals/musings/musings-titlepage.tex b/doc/context/sources/general/manuals/musings/musings-titlepage.tex new file mode 100644 index 000000000..33eb44d95 --- /dev/null +++ b/doc/context/sources/general/manuals/musings/musings-titlepage.tex @@ -0,0 +1,46 @@ +\environment musings-style + +\startcomponent musings-titlepage + +\startMPpage + + fill Page withcolor "maincolor" ; + + draw image ( + draw textext.bot("m") xysized (20mm, 85mm) shifted (point .8 along (topboundary Page)) shifted (0,-10mm) ; + draw textext.bot("u") xysized (20mm, 60mm) shifted (point .7 along (topboundary Page)) shifted (0,-25mm) ; + draw textext.bot("s") xysized (20mm, 50mm) shifted (point .6 along (topboundary Page)) shifted (0,-45mm) ; + draw textext.bot("i") xysized (20mm,100mm) shifted (point .5 along (topboundary Page)) shifted (0, 00mm) ; + draw textext.bot("n") xysized (20mm, 55mm) shifted (point .4 along (topboundary Page)) shifted (0,-20mm) ; + draw textext.bot("g") xysized (20mm, 70mm) shifted (point .3 along (topboundary Page)) shifted (0,-20mm) ; + draw textext.bot("s") xysized (20mm, 40mm) shifted (point .2 along (topboundary Page)) shifted (0,-15mm) ; + ) shifted (0,-120mm) withcolor "white" ; + + draw image ( + draw textext.bot("c") xysized (20mm, 85mm) shifted (point .8 along (topboundary Page)) shifted (0,-10mm) ; + draw textext.bot("o") xysized (20mm, 60mm) shifted (point .7 along (topboundary Page)) shifted (0,-25mm) ; + draw textext.bot("n") xysized (20mm, 50mm) shifted (point .6 along (topboundary Page)) shifted (0,-45mm) ; + draw textext.bot("t") xysized (20mm,100mm) shifted (point .5 along (topboundary Page)) shifted (0, 00mm) ; + draw textext.bot("e") xysized (20mm, 55mm) shifted (point .4 along (topboundary Page)) shifted (0,-20mm) ; + draw textext.bot("x") xysized (20mm, 70mm) shifted (point .3 along (topboundary Page)) shifted (0,-20mm) ; + draw textext.bot("t") xysized (20mm, 40mm) shifted (point .2 along (topboundary Page)) shifted (0,-15mm) ; + ) shifted (0,-10mm) withcolor "white" ; + + draw image ( + draw textext.bot("h") xysized (10mm, 20.0mm) shifted (point .75 along (topboundary Page)) shifted (0,-10.0mm) ; + draw textext.bot("a") xysized (10mm, 22.5mm) shifted (point .70 along (topboundary Page)) shifted (0,-20.0mm) ; + draw textext.bot("n") xysized (10mm, 27.5mm) shifted (point .65 along (topboundary Page)) shifted (0,-12.5mm) ; + draw textext.bot("s") xysized (10mm, 30.0mm) shifted (point .60 along (topboundary Page)) shifted (0, 0mm) ; + + draw textext.bot("h") xysized (10mm, 25mm) shifted (point .45 along (topboundary Page)) shifted (0,-05.0mm) ; + draw textext.bot("a") xysized (10mm, 30mm) shifted (point .40 along (topboundary Page)) shifted (0,-15.0mm) ; + draw textext.bot("g") xysized (10mm, 35mm) shifted (point .35 along (topboundary Page)) shifted (0,-17.5mm) ; + draw textext.bot("e") xysized (10mm, 20mm) shifted (point .30 along (topboundary Page)) shifted (0,-20.0mm) ; + draw textext.bot("n") xysized (10mm, 25mm) shifted (point .25 along (topboundary Page)) shifted (0,-10.0mm) ; + ) shifted (0,-235mm) withcolor "white" ; + +\stopMPpage + +\page[empty] + +\stopcomponent diff --git a/doc/context/sources/general/manuals/musings/musings-whytex.tex b/doc/context/sources/general/manuals/musings/musings-whytex.tex new file mode 100644 index 000000000..8f9b7de9b --- /dev/null +++ b/doc/context/sources/general/manuals/musings/musings-whytex.tex @@ -0,0 +1,326 @@ +% language=uk + +\startcomponent musings-whytex + +\environment musings-style + +\startchapter[title={Why use \TEX ?}] + +\startsection[title={Introduction}] + +Let's assume that you know what \TEX\ is: a program that interprets a language +with the same name that makes it possible to convert (tagged) input into for +instance \PDF. For many of its users it is a black box: you key in some text, hit +a button and get some typeset result in return. After a while you start tweaking +this black box, meet other users (on the web), become more fluent and stick to it +forever. + +But now let's assume that you don't know \TEX\ and are in search of a system +that helps you create beautiful documents in an efficient way. When your +documents have a complex structure you are probably willing to spend some time on +figuring out what the best tool is. Even if a search lets you end up with +something called \TEX, a three letter word with a dropped E, you still don't +know what it is. Advertisement for \TEX\ is often pretty weak. It's rather easy +to point to the numerous documents that can be found on the web. But what exactly +does \TEX\ do and what are its benefits? In order to answer this we need to know +who you are: an author, editor, an organization that deals with documents or needs +to generate readable output, like publishers do. + +\stopsection + +\startsection[title={Authors}] + +We start with authors. Students of sciences that use mathematics don't have much +of a choice. But most of these documents hardly communicate the message that +\quotation {Everyone should use \TEX.} or that \quotation {All documents produced +by \TEX\ look great.} but they do advocate that for rendering math it is a pretty +good system. The source code of these documents often look rather messy and +unattractive and for a non|-|math user it can be intimidating. Choosing some +lightweight click|-|and|-|ping alternative looks attractive. +lightweight click|-|and|-|ping alternative looks attractive. + +Making \TEX\ popular is not going to happen by convincing those who have to write +an occasional letter or report. They should just use whatever suits them. On the +other hand if you love consistency, long term support, need math, are dealing +with a rare language or script, like to reuse content, prefer different styling +from one source, use one source for multiple documents, or maybe love open source +tools, then you are a candidate. Of course there is a learning curve but normally +you can master \TEX\ rather fast and once you get the hang of it there's often no +way back. But you always need to invest a bit beforehand. + +So what authors are candidates for \TEX ? It could be that \TEX\ is the only tool +that does the job. If so, you probably learned that from someone who saw you +struggle or had the same experience and wrote or talked about it somewhere. In +that case using \TEX\ for creating just one document (like a thesis) makes sense. +Otherwise, you should really wonder if you want to invest time in a tool that you +probably have to ditch later on as most organizations stick to standard +(commercial) word processing tools. + +Talking to customers we are often surprised that people have heard about \TEX, or +even used it for a few documents in college. Some universities just prescribe the +use of \TEX\ for reporting, so not much of a choice there. Memories are normally +rather positive in the sense that they know that it can do the job and that it's +flexible. + +User group journals, presentations at \TEX\ meetings, journals, books and manuals +that come with \TEX\ macro packages can all be used to determine if this tool +suits an author. Actually, I started using \TEX\ because the original \TEX book +had some magic, and reading it was just that: reading it, as I had no running +implementation. A few years later, when I had to write (evolving) reports, I +picked up again. But I'm not a typical user. + +\stopsection + +\startsection[title={Programmers}] + +When you are a programmer who has to generate reports, for instance in \PDF, or +write manuals, then \TEX\ can really be beneficial. Of course \TEX\ is not always +an obvious choice, but if you're a bit able to use it it's hard to beat in +quality, flexibility and efficiency. I'm often surprised that companies are +willing to pay a fortune for functionality that basically comes for free. +Programmers are accustomed to running commands and working in a code editor with +syntax highlighting so that helps too. They too recognize when something can be +done more efficiently. + +When you need to go from some kind of input (document source, database, +generated) to some rendered output there currently are a few endpoints: a +(dynamic) \HTML\ page, a \PDF\ document, something useable in a word processor, +or a representation using the desktop user interface. It's the second category +where \TEX\ is hard to beat but even using \TEX\ and \METAPOST\ for creating a +chart can make sense. + +There are of course special cases where \TEX\ fits in nicely. Say that you have +to combine \PDF\ documents. There are numerous tools to do that and \TEX\ is one. +The advantage of \TEX\ over other tools is that it's trivial to add additional +text, number pages, provide headers and footers. And it will work forever. Why? +Because \TEX\ has been around for decades and will be around for decades to come. +It's an independent component. The problem with choosing for \TEX\ is that the +starting point is important. The question is not \quotation {What tool should I +use?} but \quotation {What problem do I need to solve?}. An open discussion about +the objectives and possibilities is needed, not some checklist based on +assumptions. If you don't know \TEX\ and have never worked with a programmable +typesetting environment, you probably don't see the possibilities. In fact, you +might even choose for \TEX\ for the wrong reasons. + +The problem with this category of users is that they seldom have the freedom to +choose their tools. There are not that many jobs where the management is able to +recognize the clever programmer who can determine that \TEX\ is suitable for a +lot of jobs and can save money and time. Even the long term availability and +support is not an argument since not only most tools (or even apis) changes every +few years but also organizations themselves change ownership, objectives, and +personnel on a whim. The concept of \quote {long term} is hard to grasp for most +people (just look at politics) and it's only in retrospect that one can say +\quote {We used that toolkit for over a decade.} + +\stopsection + +\startsection[title={Organizations}] + +Authors (often) have the advantage that they can choose themselves: they can use +what they like. In practice any decent programmer is able to find the suitable +tools but convincing the management to use one of them can be a challenge. Here +we're also talking of \quote {comfort zones}: you have to like a tool(chain). +Organizations normally don't look for \TEX. Special departments are responsible +for choosing and negotiating whatever is used in a company. Unfortunately +companies don't always start from the open question \quotation {We have this +problem, we want to go there, what should we do?} and then discuss options with +for instance those who know \TEX. Instead requirements are formulated and matches +are found. The question then is \quotation {Are these requirements cut in stone?} +and if not (read: we just omit some requirements when most alternatives don't +meet them), were other requirements forgotten? Therefore organizations can end up +with the wrong choice (using \TEX\ in a situation where it makes no sense) or +don't see opportunities (not using \TEX\ while it makes most sense). It doesn't +help that a hybrid solution (use a mix of \TEX\ and other tools) is often not an +option. Where an author can just stop using a tool after a few days of +disappointment, and where a programmer can play around a bit before making a +choice, an organization probably best can start small with a proof of concept. + +Let's take a use case. A publisher wants to automatically convert \XML\ files +into \PDF. One product can come from multiple sources (we have cases where +thousands of small \XML\ files combine into one final product). Say that we have +three different layouts: a theory book, a teachers manual and an answer book. In +addition special proofing documents have to be rendered. The products might be +produced on demand with different topics in any combination. There is at least +one image and table per page, but there can be more. There are color and +backgrounds used, tables of contents generated, there is extensive cross +referencing and an index. Of course there is math. + +Now let's assume an initial setup costs 20K Euro and, what happens often when the +real products show up, a revision after one year takes the same amount. We also +assume 10K for the following eight years for support. So, we end up with 120K +over 10 years. If one goes cheap we can consider half of that, or we can be +pessimistic and double the amount. + +The first year 10K pages are produced, the second year 20K and after that 30K per +year. So, we're talking of 270K pages. If we include customer specific documents +and proofing we might as well end up with a multiple of that. + +So, we have 120K Euro divided by 270K pages or about half an Euro per page. But +likely we have more pages so it costs less. If we double the costs then we can +assume that some major changes took place which means more pages. In fact we had +projects where the layout changed, all documents were regenerated and the costs +were included in the revision, so far from double. We also see many more pages +being generated so in practice the price per page drops below half an Euro. The +more we process the cheaper it gets and one server can produce a lot of pages! + +Now, the interesting bit of such a calculation is that the costs only concern the +hours spent on a solution. A \TEX\ based system comes for free and there are no +license costs. Whatever alternative is taken, even if it is as flexible, it will +involve additional costs. From the perspective of costs it's very hard to beat +\TEX. Add to that the possibility for custom extensions, long term usage and the +fact that one can adapt the system. The main question of course is: does it do +the job. The only way to find out is to either experiment (which is free), +consult an expert (not free, but then needed anyway for any solution) or ask an +expert to make a proof of concept (also not free but relatively cheap and +definitely cheaper than a failure). In fact, before making decisions about what +solution is best it might be a good idea to check with an expert anyway, because +more or less than one thinks might be possible. Also, take into account that the +\TEX\ ecosystem is often one of the first to support new technologies, and +normally does that within its existing interface. And there is plenty of free +support and knowledge available once you know how to find it. Instead of wasting +time and money on advertisement and fancy websites, effort goes into support and +development. Even if you doubt that the current provider is around in the decade +to come, you can be sure that there will be others, simply because \TEX\ attracts +people. Okay, it doesn't help that large companies like to out source to +far||far||away and expect support around the corner, so in the end they might +kill their support chain. + +When talking of \TEX\ used in organizations we tend to think of publishers. But +this is only a small subset of organizations where information gets transformed +into something presentable. For small organizations the choice for \TEX\ can be +easy: costs, long term stability, knowing some experts are driving forces. For +large organizations these factors seem (at least to us) hardly relevant. We've +(had) projects where actually the choice for using a \TEX\ based solution was (in +retrospect) a negative one: there was no other tool than this relatively unknown +thing called \TEX. Or, because the normal tools could not be used, one ended up +with a solution where (behind the scenes) \TEX\ is used, without the organization +knowing it. Or, it happened that the problem at hand was mostly one that demands +in|-|depth knowledge of manipulating content, cleaning up messy data, combining +resources (images or \PDF\ documents), all things that happen to be available in +the perspective of \TEX. If you can solve a hard to solve problem for them then +an organization doesn't care what tool you use. What does matter is that the +solution runs forever, that costs are controllable and above all, that it +\quotation {Just works.} And if you can make it work fast, that helps too. We +can safely claim that when \TEX\ is evaluated as being a good option, that in the +end it always works out quite well. + +Among arguments that (large) organizations like to use against a choice for \TEX\ +(or something comparable) are the size of the company that they buy their +solution from, the expected availability for support, and the wide|-|spread usage +of the tool at hand. One can wonder if it also matters that many vendors change +ownership, change products every few years, change license conditions when they +like, charge a lot for support or just abort a tool chain. Unfortunately when that +happens those responsible for choosing such a system can have moved on to another +job, so this is seldom part of an evaluation. For the supplier the other side of +the table is just as much of a gamble. In that respect, an organization that +wants to use an open source (and|/|or free) solution should realize that getting +a return on investment on such a development is pretty hard to achieve. So, who +really takes the risk for writing open source? + +For us, the reason to develop \CONTEXT\ and make it open is that it fits in our +philosophy and we like the community. It is actually not really giving us an +advantage commercially: it costs way more to develop, support and keep +up|-|to|-|date than it will ever return. We can come up with better, faster and +easier solutions and in the end we pay the price because it takes less time to +cook up styles. So there is some backslash involved because commercially a +difficult solution leads to more billable hours. Luckily we tend to avoid wasting +time so we improve when possible and then it ends up in the distributed code. +And, once the solution is there, anyone can use it. Basically also for us it's +just a tool, like the operating system, editor and viewer are. So, what keep +development going is mostly the interaction with the community. This also means +that a customer can't really demand functionality for free: either wait for it to +show up or pay for it (which seldom happens). Open source is not equivalent with +\quotation {You get immediately what you want because someone out there writes +the code.}. There has to be a valid reason and often it's just users and meetings +or just some challenge that drives it. + +This being said, it is hard to convince a company to use \TEX. It has to come +from users in the organization. Or, what we sometimes see with publishers, it +comes with an author team or acquired product line where it's the only option. +Even then we seldom see transfer to other branches in the organizations. No one +seems to wonder \quotation {How on earth can that \XML\ to \PDF\ project produce +whatever output in large quantities in a short period of time} while other (past) +projects failed. It probably relates to the abstraction of the process. Even +among \TEX\ users it can be that you demonstrate something with a click on a +button and that many years afterwards someone present at that moment tells you +that they just discovered that this or that can be done by hitting a button. I'm +not claiming that \TEX\ is the magic wand for everything but in some areas it's +pretty much ahead of the pack. Go to a \TEX\ user meeting and you will be surprised +about the accumulated diverse knowledge present in the room. It's user demand that +drives \CONTEXT\ development, not commerce. + +\stopsection + +\startsection[title={Choosing}] + +So, where can one find information about \TEX\ and friends? On the web +one has to use the right search keys, so adding \type {tex} helps: \typ {context +tex} or \typ {xml tex pdf} and so on. Can one make a fancy hip website, sure, but +it being a life|-|long, already old and mature environment, and given that it +comes for free, or is used low|-|budget, not much effort and money can be spent +on advertising it. A benefit is that no false promises and hypes are made either. +If you want to know more, just ask the right folks. + +For all kind of topics one can find interesting videos and blogs. One can +subscribe to channels on YouTube or join forums. Unfortunately not that many +bloggers or vloggers or podcasters come up with original material every time, and +often one starts to recognize patterns and will get boring by repetition of wisdom +and arguments. The same is true for manuals. Is a ten year old manual really +obsolete? Should we just recompile it to fake an update while in fact there has +been no need for it? Should we post twenty similar presentations while one can +do? (If one already wants to present the same topic twenty times in the first +place?) Maybe one should compare \TEX\ with cars: they became better over time +and can last for decades. And no new user manual is needed. + +As with blogs and vlogs advertising \TEX\ carries the danger for triggering +political discussions and drawing people into discussions that are not pleasant: +\TEX\ versus some word processor, open versus closed source, free versus paid +software, this versus that operating system, editor such or editor so. + +To summarize, it's not that trivial to come up with interesting information about +\TEX, unless one goes into details that are beyond the average user. And those +who are involved are often involved for a long time so it gets more complex over +time. User group journals that started with tutorials later on became expert +platforms. This is a side effect of being an old and long|-|term toolkit. If +you run into it, and wonder if it can serve your purpose, just ask an expert. + +Most \TEX\ solutions are open source and come for free as well. Of course if you +want a specific solution or want support beyond what is offered on mailing lists +and forums you should be willing to pay for the hours spent. For a professional +publisher (of whatever kind) this is not a problem, if only because any other +solution also will cost something. It is hard to come up with a general estimate. +A popular measure of typesetting costs is the price per page, which can range +from a couple of euro's per page to two digit numbers. We've heard of cases where +initial setup costs were charged. If not much manual intervention is needed a +\TEX\ solution mostly concerns initial costs. + +Let's return to the main question \quotation {Why use \TEX ?} in which you can +replace \TEX\ by one of the macro packages build on top of it, for instance +\CONTEXT. If an (somewhat older) organization considers using \TEX\ it should +also ask itself, why it wasn't considered long ago already? For sure there have +been developments in \TEX\ engines (in \CONTEXT\ we use \LUATEX) as well as +possibilities of macro packages but if you look at the documents produced with +them, there is not that much difference with decades ago. Processing has become +faster, some things have become easier, but new technologies have always been +supported as soon at they showed up. Advertising is often just repeating an old +message. + +The \TEX\ ecosystem was among the first in supporting for instance \OPENTYPE, and +the community even made sure that there were free fonts available. A format like +\PDF\ was supported as soon as it shows up and \TEX\ was the first to demonstrate +what advanced features were there and how way it was to adapt to changes. +Processing \XML\ using \TEX\ has never been a big deal and if that is a reason to +look at this already old and mature technology, then an organization can wonder +if years and opportunities (for instance for publishing on demand or easy +updating of manuals) have been lost. Of course there are (and have been) +alternative tools but the arguments for using \TEX\ or not are not much different +now. It can be bad marketing of open and free software. It can be that \TEX\ has +been around too long. It can also be that its message was not understood yet. On +the other hand, in software development it's quite common to reinvent wheels and +present old as new. It's never to late to catch on. + +\stopsection + +\stopchapter + +\stopcomponent diff --git a/doc/context/sources/general/manuals/musings/musings.tex b/doc/context/sources/general/manuals/musings/musings.tex new file mode 100644 index 000000000..e84af5298 --- /dev/null +++ b/doc/context/sources/general/manuals/musings/musings.tex @@ -0,0 +1,20 @@ +\environment musings-style + +\startproduct musings + +\component musings-titlepage + +\startfrontmatter + \component musings-contents + \component musings-introduction +\stopfrontmatter + +\startbodymatter + \component musings-children + \component musings-perception + \component musings-whytex + \component musings-staygo + \component musings-stability +\stopbodymatter + +\stopproduct diff --git a/doc/context/sources/general/manuals/texit/texit-conditions.tex b/doc/context/sources/general/manuals/texit/texit-conditions.tex new file mode 100644 index 000000000..83fb0a7bc --- /dev/null +++ b/doc/context/sources/general/manuals/texit/texit-conditions.tex @@ -0,0 +1,108 @@ +\environment texit-style + +\startcomponent texit-conditions + +\startchapter[title={Conditions}] + +In case you wonder why we have modes in \CONTEXT, here is an example that might +convince you. The \TEX\ language has conditionals and they are in fact quite +efficient, take for instance: + +\startTEX +\ifnum\scratchcounter>10 + \ifdim\scratchdimen>10pt + one + \else + two + \fi +\else + three +\fi +\stopTEX + +When the first test fails, \TEX\ will do a fast scan over the following tokens +and expand the \type {three} branch. In order to do such a fast scan, the nested +condition needs to be properly balanced: the \type {\else} is optional but the +nested \type {\fi} definitely isn't. Now imagine that you use a few pseudo +booleans, like: + +\startTEX +\newif\ifalpha \alphatrue +\newif\ifbeta \betatrue +\stopTEX + +And you need it in: + +\startTEX +\ifalpha + \ifbeta + YES + \else + NOP + \fi +\else + NOP +\fi +\stopTEX + +This happens occasionally in real applications and one can either repeat the +\type {NOP} or wrap it in a macro in order to save tokens. However, way more +natural would be something like this: + +\startTEX +\ifalphaorbeta + YES +\else + NOP +\fi +\stopTEX + +This basically would introduce a new kind concept: an expandable macro flagged as +\type {\if} kind of token. I actually experimented with that in \LUATEX\ but +rejected it eventually. Instead \type {\ifcondition} was introduced. This is +basically equivalent to \type {\iffalse} when \TEX\ is in fast \type {\if*} +skipping mode, but when a real test happens the next argument is expanded. That +macro is expected to end up as something equivalent to \type {\iftrue} or \type +{\iffalse} so that other the nexct branch or the \type {\else} is entered. Here +is an example: + +\startTEX +\ifcondition\alphaorbeta + YES +\else + NOP +\fi +\stopTEX + +There are several ways to define \type {\alphaorbeta} now and we show a few here. +It's up to you to figure out which ons is the most efficient. + +\startTEX +\def\alphaorbeta{\ifcase0\ifalpha \else\ifbeta \else1\fi\fi\relax} +\def\alphaorbeta{\ifcase \ifalpha0\else\ifbeta0\else1\fi\fi\relax} +\def\alphaorbeta{\ifnum1=\ifalpha1\else\ifbeta1\else0\fi\fi\relax} +\def\alphaorbeta{\ifnum 0\ifalpha1\fi \ifbeta1\fi >1\relax} +\stopTEX + +Now, do we expect users to come up with such constructs? Of course not. Even in +\CONTEXT\ we don't really need them, although there are a few places where they +can be used. In \CONTEXT\ you would just do this: + +\startTEX +\enablemode[alpha] +\enablemode[beta] + +\doifelsemode {alpha,beta} { + YES +} { + NOP +} +\stopTEX + +Of course such a verbose macro is less efficient but even if you use this test +10.000 times in a run it will not take more than 0.06 seconds on a decent 2013 +laptop. + +\stopchapter + +\stopcomponent diff --git a/doc/context/sources/general/manuals/texit/texit-contents.tex b/doc/context/sources/general/manuals/texit/texit-contents.tex new file mode 100644 index 000000000..f22db1c38 --- /dev/null +++ b/doc/context/sources/general/manuals/texit/texit-contents.tex @@ -0,0 +1,9 @@ +\environment texit-style + +\startcomponent texit-contents + +\starttitle[title={Contents}] + \placelist[chapter] +\stoptitle + +\stopcomponent diff --git a/doc/context/sources/general/manuals/texit/texit-introduction.tex b/doc/context/sources/general/manuals/texit/texit-introduction.tex new file mode 100644 index 000000000..6b33437ec --- /dev/null +++ b/doc/context/sources/general/manuals/texit/texit-introduction.tex @@ -0,0 +1,24 @@ +\environment texit-style + +\startcomponent texit-introduction + +\startchapter[title={Introduction}] + +I needed a place to collect examples of \TEX\ coding and this is it. The examples +presented here are an unorganized bunch. Some originate in questions asked on the +mailing list. Others are byproducts of tests made when playing with some (new) +functionality. When you plan to use \TEX\ for a long time, it doesn't hurt to see +a bit of \TEX coding but when possible I will also show the \CONTEXT\ way. + +I hope that this document is useful. You can of course always try to challenge me +for more examples. Hopefully I will nto forget about this document and extend it +occasionaly. + +\startlines +Hans Hagen +Hasselt NL +\stoplines + +\stopchapter + +\stopcomponent diff --git a/doc/context/sources/general/manuals/texit/texit-leaders.tex b/doc/context/sources/general/manuals/texit/texit-leaders.tex new file mode 100644 index 000000000..ed224da5c --- /dev/null +++ b/doc/context/sources/general/manuals/texit/texit-leaders.tex @@ -0,0 +1,247 @@ +\environment texit-style + +\startcomponent texit-leaders + +\startchapter[title={Leaders}] + +The following example comes from a question on the \CONTEXT\ list. It +exhibits a few low level tricks. For the purpose of this example we +use \type {\ruledhbox} instead of \type {\hbox}. We start with a simple +command that puts something at the end of a line: + +\startbuffer +\starttexdefinition MyFill #1 + \removeunwantedspaces + \hfill + \ruledhbox{#1} +\stoptexdefinition +\stopbuffer + +\typebuffer[option=TEX] \getbuffer + +We use this in: + +\startbuffer[sample] +\startitemize[packed,joinedup][rightmargin=3em] + \startitem + \samplefile{ward}\MyFill{DW} + \stopitem +\stopitemize +\stopbuffer + +\typebuffer[sample][option=TEX] + +and get: + +\getbuffer[sample] + +But, the requirement was that we move the number towards the right margin, so +instead we need something: + +\startbuffer +\starttexdefinition MyFill #1 + \removeunwantedspaces + \hfill + \rlap{\ruledhbox to \rightskip{\hss#1}} +\stoptexdefinition +\stopbuffer + +\typebuffer[option=TEX] \getbuffer + +This already looks more like it: + +\getbuffer[sample] + +But also part of the requirements was that there should be dots between the end +of the last sentence and the number. In low level \TEX\ speak that means using +leaders: repeated boxed content where the repitition is driven by a glue +specification. Let's naively use leaders now: + +\startbuffer +\starttexdefinition MyFill #1 + \leaders + \ruledhbox to 1em{\hss.\hss} + \hfill + \ruledhbox{#1} +\stoptexdefinition +\stopbuffer + +\typebuffer[option=TEX] \getbuffer + +Let's see what we get: + +\getbuffer[sample] + +Again we need to move the number to the right. This time we need a different +solution because we need to fill the space in between. When \TEX\ ends a +paragraph it adds \type {\parfillskip} so we will now manipulate that parameter. + +\startbuffer +\starttexdefinition MyFill #1 + \parfillskip-1\rightskip plus 1fil\relax + \leaders + \ruledhbox to 1em{\hss.\hss} + \hfill + \ruledhbox{#1} +\stoptexdefinition +\stopbuffer + +\typebuffer[option=TEX] \getbuffer + +Does it look better? + +\getbuffer[sample] + +Indeed it does, but watch this: + +\startbuffer[sample] +\startitemize[packed,joinedup][rightmargin=8.5em] + \startitem + \samplefile{ward}\MyFill{DW}\par + \samplefile{ward}\par + \samplefile{ward}\MyFill{DW} + \stopitem +\stopitemize +\stopbuffer + +\typebuffer[sample][option=TEX] + +The first \type {\MyFill} will set the \type {\parfillskip} to a value that will +also be used later on. + +\getbuffer[sample] + +The way out is the following + +\startbuffer +\starttexdefinition MyFill #1 + \begingroup + \parfillskip-1\rightskip plus 1fil\relax + \leaders + \ruledhbox to 1em{\hss.\hss} + \hfill + \ruledhbox{#1} + \par + \endgroup +\stoptexdefinition +\stopbuffer + +\typebuffer[option=TEX] \getbuffer + +This looks more or less okay. The \type {\par} keeps the adaption local but for +it to work well, the \type {\par} must be inside the group. + +\getbuffer[sample] + +Now it's time to go for perfection! First of all, we get rid of any leading +spacing. If we need some we should inject it after a cleanup. We also use a +different leader command. Instead of \type {to} we use a \type {spread} so that +we get half the emwidth and not something slightly less due to the width of the +period. + +\startbuffer +\starttexdefinition MyFill #1 + \removeunwantedspaces + \begingroup + \parfillskip-1\rightskip plus 1fil\relax + \cleaders + \ruledhbox spread 1em{\hss.\hss} + \hfill + \ruledhbox{#1} + \par + \endgroup +\stoptexdefinition +\stopbuffer + +\typebuffer[option=TEX] \getbuffer + +So, we end up here: + +\startbuffer[sample] +\startitemize[packed,joinedup][rightmargin=5em] + \startitem + \samplefile{sapolsky}\MyFill{RS}\par + \stopitem +\stopitemize +\stopbuffer + +\getbuffer[sample] + +For which we used this: + +\typebuffer[sample][option=TEX] + +Finally we get rid of the tracing: + +\startbuffer +\starttexdefinition unexpanded MyFill #1 + \begingroup + \parfillskip-1\rightskip plus 1fil\relax + \leaders + \hbox to \emwidth{\hss.\hss} + \hfill + \hbox{#1} + \par + \endgroup +\stoptexdefinition +\stopbuffer + +\typebuffer[option=TEX] \getbuffer + +Watch a few more details. It brings us to: + +\getbuffer[sample] + +\page + +\startbuffer +\definefiller + [MyFiller] + [offset=.25\emwidth, + method=middle] + +\starttexdefinition unexpanded MyFill #1 + \begingroup + \parfillskip-1\rightskip plus 1fil\relax + \filler[MyFiller]% + \hbox{#1} + \par + \endgroup +\stoptexdefinition +\stopbuffer + +\typebuffer[option=TEX] \getbuffer + +\getbuffer[sample] + +When writing these examples I realized that it's rather trivial to add this +option to the already existing filler mechanism. The definition of such a filler +looks like this: + +\startbuffer +\definefiller + [MyFiller] + [offset=.25\emwidth, + rightmargindistance=-\rightskip, + method=middle] +\stopbuffer + +\typebuffer[option=TEX] \getbuffer + +\startbuffer[sample] +\startitemize[packed,joinedup][rightmargin=5em] + \startitem + \samplefile{sapolsky}\fillupto[MyFiller]{RS} + \stopitem +\stopitemize +\stopbuffer + +The sample code now becomes: + +\typebuffer[sample][option=TEX] + +Ans as expected renders as: + +\getbuffer[sample] + +\stopcomponent diff --git a/doc/context/sources/general/manuals/texit/texit-lookahead.tex b/doc/context/sources/general/manuals/texit/texit-lookahead.tex new file mode 100644 index 000000000..d3652e744 --- /dev/null +++ b/doc/context/sources/general/manuals/texit/texit-lookahead.tex @@ -0,0 +1,387 @@ +\environment texit-style + +\startcomponent texit-lookahead + +\startchapter[title={Lookahead}] + +When you look at the \TEX\ source of a macro package, your can often see +constructs like this: + +\startTEX +\def\foo#1% + {We do something with "#1".} +\stopTEX + +or maybe: + +\startTEX +\def\foo#1{% + We do something with "#1".% +} +\stopTEX + +Normally the percentage symbol is used to indicate a comment, but here +are no comments. In these cases it makes the definition effectively + +\startTEX +\def\foo#1{do something with "#1"!} +\stopTEX + +which is different from when we would not have that percent sign there: + +\startTEX +\def\foo#1 {We do something with "#1"!} +\stopTEX + +That variant is valid \TEX\ code but expects a space as delimiter of the +argument to \type {\foo}. This means that you can say: + +\startTEX +\foo{1} \foo 2 \foo {34} and \foo 56 . +\stopTEX + +while this can trigger an error message (when no space is seen at some point) or +at least give unexpected results. + +\startTEX +\foo{1}\foo 2\foo {34}and\foo 56. +\stopTEX + +A different use of the percent is seen in cases like this: + +\startTEX +\def\foo#1% + {We do something % + with "#1".} +\stopTEX + +This time we want to preserve the space after \type {something} because an +end|-|of|-|line would either or not collapse it with \type {with} depending on +how the endofline character is set up. Normally: + +\startTEX +\def\foo#1% + {We do something + with "#1".} +\stopTEX + +Will also add a space after something but when \TEX\ is set up to ignore lines +you get a collapse. So the explicit space is a robust way out. Both cases of +using or omitting the comment symbol are easy to spot as they trigger an error +or result in weird typeset results. + +\startbuffer[defs] +\def\fooA#1% + {\ifnum#1>100 + yes\else nop% + \fi} + +\def\fooB#1{\ifnum#1>100 yes\else nop \fi} + +\def\fooC#1% + {\ifnum#1>100% + yes\else nop% + \fi} +\stopbuffer + +\typebuffer[defs][option=TEX] \getbuffer[defs] + +We test this with: + +\startbuffer[demo] +\fooA{100} \fooB{100} \fooC{100} +\fooA{101} \fooB{101} \fooC{101} +\stopbuffer + +\typebuffer[demo][option=TEX] + +And the result is probably what you expect: + +\startlines +\getbuffer[demo] +\stoplines + +\startbuffer[defs] +\def\fooA#1% + {\ifnum#1>100 + 1\else 0% + \fi} + +\def\fooB#1{\ifnum#1>100 1\else 0\fi} + +\def\fooC#1% + {\ifnum#1>100% + 1\else 0% + \fi} +\stopbuffer + +However, when we have the following macro body: + +\typebuffer[defs][option=TEX] \getbuffer[defs] + +We get this output. Do you see the issue? + +\startlines +\getbuffer[demo] +\stoplines + +A preferred way to catch this is the following as a \type {\relax} ends scanning +for a number: + +\startbuffer[defs] +\def\foo#1% + {\ifnum#1>100\relax + 1\else 0% + \fi} +\stopbuffer + +\typebuffer[defs][option=TEX] \getbuffer[defs] + +However, watch what happens here: + +\startbuffer[demo] +\edef\result{\foo{123}} +\stopbuffer + +\typebuffer[demo][option=TEX] \getbuffer[demo] + +The \type {\result} macro has the following body: + +\expanded{\setbuffer[result]\meaning\result\endbuffer} + +\typebuffer[result][option=TEX] + +A neat trick out of this is the following: + +\startbuffer[defs] +\def\foo#1% + {\ifnum#1>\numexpr100\relax + 1\else 0% + \fi} +\stopbuffer + +\typebuffer[defs][option=TEX] \getbuffer[defs] + +\getbuffer[demo] + +Now the body of \type {\result} looks like this: + +\expanded{\setbuffer[result]\meaning\result\endbuffer} + +\typebuffer[result][option=TEX] + +Of course this also works: + +\startTEX +\def\foo#1% + {\ifnum#1>100 % + 1\else 0% + \fi} +\stopTEX + +as a space also delimits scanning the number. But that method can actually introduce +that space in the output. Think of this definition: + +\startbuffer[defs] +\def\foo#1#2% + {\ifnum#1>#2 % + 1\else 0% + \fi} +\stopbuffer + +\typebuffer[defs][option=TEX] \getbuffer[defs] + +What if \type {#2} has a trailing space? What if it is a verbose number? What if +it is a counter variable? + +\startbuffer[demo] +\scratchcounter=100 + [\foo{101}{100}] [\foo{101}{100 }] [\foo{101}\scratchcounter] +\scratchcounter=101 + [\foo{100}{101}] [\foo{100}{101 }] [\foo{100}\scratchcounter] +\stopbuffer + +\typebuffer[demo][option=TEX] + +\startlines +\getbuffer[demo] +\stoplines + +If you really want to introduce an unpredictable situation, use a coding style like +this: + +\startTEX +\def\foo#1#2#3#4{\if#1=#2#3\else#4\fi} +\stopTEX + +This is not that imaginary as you often see users play safe and do things like this: + +\startTEX +\ifnum\scratchcounterone=\scratchcountertwo% + ... +\else + ... +\fi +\stopTEX + +Here the percent sign is useless as the number scanner already got the number, +just try: + +\startTEX +\scratchcounterone=1 +\scratchcountertwo=1 + +\ifnum\scratchcounterone=\scratchcountertwo + yes +\else + nop +\fi +\stopTEX + +A previous one liner formatted like this really is not better! + +\startTEX +\def\foo#1#2#3#4% + {\ifnum#1=#2% + #3% + \else + #4% + \fi} +\stopTEX + +When you define macros more often than not you don't want unexpected spaces (aka spurious spaces) +which is why in \CONTEXT\ for instance setups ignores lines: + +\startbuffer[defs] +\startsetups foo + here + we ignore + spaces at the end + of a line +\stopsetups +\stopbuffer + +\typebuffer[defs][option=TEX] \getbuffer[defs] + +so we get: \quotation {\directsetup{foo}} which means that the normally few times +that we {\em do} want spaces we need to be explicit: + +\startbuffer[defs] +\startsetups foo + here\space + we ignore\space + spaces at the end\space + of a line\space +\stopsetups +\stopbuffer + +\typebuffer[defs][option=TEX] \getbuffer[defs] + +Now we're okay: \quotation {\directsetup{foo}}. The same is true for: + +\startTEX +\starttexdefinition foo + here\space + we ignore\space + spaces at the end\space + of a line\space +\stoptexdefinition +\stopTEX + +There are more cases where \TEX\ will look further. Take for example skip (glue) +scanning. A glue specification can have \type {plus} and \type {minus} fields. + +\startbuffer[defs] +\scratchdimenone=10pt +\scratchskipone =10pt plus 10pt minus 10pt +\scratchskiptwo =0pt +\stopbuffer + +\typebuffer[defs][option=TEX] + +Now take the following test: + +\startbuffer[demo] +{1 \scratchskiptwo 10pt plus 10pt \relax\the\scratchskiptwo} +{2 \scratchskiptwo \scratchdimenone plus 10pt \relax\the\scratchskiptwo} +{3 \scratchskiptwo 1\scratchdimenone plus 10pt \relax\the\scratchskiptwo} +{4 \scratchskiptwo \scratchskipone plus 10pt \relax\the\scratchskiptwo} +{5 \scratchskiptwo 1\scratchskipone plus 10pt \relax\the\scratchskiptwo} +\stopbuffer + +\typebuffer[demo][option=TEX] + +\startlines +\inlinebuffer[defs]\getbuffer[demo] +\stoplines + +If you wonder what the second \type {\relax} does, here is a variant: + +\startlines +{1 \scratchskiptwo 10pt plus 10pt \the\scratchskiptwo} +{2 \scratchskiptwo \scratchdimenone plus 10pt \the\scratchskiptwo} +{3 \scratchskiptwo 1\scratchdimenone plus 10pt \the\scratchskiptwo} +{4 \scratchskiptwo \scratchskipone plus 10pt \the\scratchskiptwo} +{5 \scratchskiptwo 1\scratchskipone plus 10pt \the\scratchskiptwo} +\stoplines + +\typebuffer[demo][option=TEX] + +\startlines +\inlinebuffer[defs]\getbuffer[demo] +\stoplines + +In this second variant \TEX\ happily keep looking for a glue specification when +it sees the \type {\the} so it serializes \type {\scratchskiptwo}. But as it sees +\type {0pt} then, it stops scanning the glue spec. What we get typeset is the old +value, not the new one! If you want to prevent this you need to \type {\relax}. + +Another case where \TEX\ keeps scanning is the following: + +\startbuffer[demo] +\vrule width 40pt height 2pt depth 5pt \quad +\vrule width 40pt height 20pt depth 5pt height 10pt \quad +\vrule width 40pt height 10pt height 20pt \quad +\vrule width 40pt height 20pt depth 5pt height 10pt width 80pt +\stopbuffer + +\typebuffer[demo][option=TEX] + +This gives the rules: + +\startlinecorrection \darkgray +\getbuffer[demo] +\stoplinecorrection + +So you can overload dimensions. The space before the \type {quad} is gobbled as +part of the look ahead for more keywords. + +Often rules (just like glue assignments) are wrapped in macro definitions where the +macro writer used \type {\relax} to look ahead. That way you prevent an error message +in cases like: + +\startTEX +\def\foo{\vrule width 40pt height 2pt} + +The \foo depth of this thought is amazing. +\stopTEX + +because \type {of} definitely is not a valid dimension. Even more subtle is: + +\startTEX +\def\foo{\hskip 10pt plus 1fil} + +The \foo fine points of typesetting can actually become a nightmare. +\stopTEX + +As \TEX\ will now see the \type {f} of \type {fine} as further specification and +think that you want \type {1fill}. + +So, the most important lesson of this chapter is that you need to be aware of the way +\TEX\ scans for quantities and specifications. In most cases the users can safely use +a \type {\relax} to prevent a lookahead. And try to avoid adding percent signs all +over the place. + +\stopchapter + +\stopcomponent diff --git a/doc/context/sources/general/manuals/texit/texit-style.tex b/doc/context/sources/general/manuals/texit/texit-style.tex new file mode 100644 index 000000000..bee526d7b --- /dev/null +++ b/doc/context/sources/general/manuals/texit/texit-style.tex @@ -0,0 +1,52 @@ +\startenvironment texit-style + +\setupbodyfont + [dejavu,11pt] + +\setuphead + [chapter] + [style=\bfc, + header=empty, + color=darkgray] + +\setuplist + [chapter] + [alternative=c, + width=1.5em] + +\setuplayout + [width=middle, + height=middle, + topspace=15mm, + backspace=15mm, + header=15mm, + footer=0mm] + +\setupwhitespace + [big] + +\setupheadertexts + [] + +\setupheadertexts + [] + [{\getmarking[chapter]\quad\pagenumber}] + [{\pagenumber\quad\getmarking[chapter]}] + [] + +\setupheader + [style=\bf, + color=darkgray] + +% \setuptype +% [color=darkred] + +% \setuptyping +% [color=darkred] + +\setuppagenumbering + [alternative=doublesided] + +\usemodule[scite] + +\stopenvironment diff --git a/doc/context/sources/general/manuals/texit/texit-titlepage.tex b/doc/context/sources/general/manuals/texit/texit-titlepage.tex new file mode 100644 index 000000000..ee5db1969 --- /dev/null +++ b/doc/context/sources/general/manuals/texit/texit-titlepage.tex @@ -0,0 +1,40 @@ +\environment texit-style + +\startcomponent texit-titlepage + +\startMPpage + +fill Page + withcolor "darkyellow" + withtransparency (1,.75) ; + +draw image ( + for i=1 upto 500 : + draw (((1,-2) ... origin ... (-1,2)) randomized 0.2) + scaled 1cm + rotated (0 randomized 15) + shifted (origin randomized (PaperWidth,PaperHeight)) + withpen pencircle yscaled 5mm xscaled 2mm rotated 45 + withcolor "darkmagenta" + withtransparency (1,.5) + ; + endfor ; +) shifted center Page ; + +clip currentpicture to Page ; + +draw textext.ulft ("\TeX it") ysized 5cm + shifted lrcorner Page shifted (-1cm,1cm) + withcolor white ; + +draw textext.llft ("Hans Hagen") ysized 1cm + rotated 90 + shifted urcorner Page shifted (-15mm,-1cm) + withcolor white ; + +\stopMPpage + +\startstandardmakeup[doublesided=no,page=no] +\stopstandardmakeup + +\stopcomponent diff --git a/doc/context/sources/general/manuals/texit/texit.tex b/doc/context/sources/general/manuals/texit/texit.tex new file mode 100644 index 000000000..b8b70c00d --- /dev/null +++ b/doc/context/sources/general/manuals/texit/texit.tex @@ -0,0 +1,19 @@ +\environment texit-style + +\startdocument + +\component texit-titlepage + +\startfrontmatter + \component texit-contents + \component texit-introduction +\stopfrontmatter + +\startbodymatter + \component texit-lookahead + \component texit-conditions + \component texit-leaders + % \component texit-efficiency +\stopbodymatter + +\stopdocument diff --git a/scripts/context/lua/mtxlibs.lua b/scripts/context/lua/mtxlibs.lua index f6839eb9d..fa539b2bf 100644 --- a/scripts/context/lua/mtxlibs.lua +++ b/scripts/context/lua/mtxlibs.lua @@ -98,6 +98,19 @@ local ownlibs = { -- "util-fmt.lua", -- no need for table formatters -- "util-deb.lua", -- no need for debugging (and tracing) + "util-soc-imp-reset", + "util-soc-imp-socket", + "util-soc-imp-copas", + "util-soc-imp-ltn12", + -- "util-soc-imp-mbox", + "util-soc-imp-mime", + "util-soc-imp-url", + "util-soc-imp-headers", + "util-soc-imp-tp", + "util-soc-imp-http", + "util-soc-imp-ftp", + "util-soc-imp-smtp", + "trac-set.lua", "trac-log.lua", -- "trac-pro.lua", -- not relevant outside context diff --git a/scripts/context/lua/mtxrun.lua b/scripts/context/lua/mtxrun.lua index 8702204b2..824a7b7aa 100644 --- a/scripts/context/lua/mtxrun.lua +++ b/scripts/context/lua/mtxrun.lua @@ -1028,7 +1028,7 @@ do -- create closure to overcome 200 locals limit package.loaded["l-lpeg"] = package.loaded["l-lpeg"] or true --- original size: 39717, stripped down to: 21361 +-- original size: 39759, stripped down to: 21371 if not modules then modules={} end modules ['l-lpeg']={ version=1.001, @@ -1772,7 +1772,7 @@ do local nonzero=digit-zero local trailingzeros=zero^1*endofstring local stripper=Cs((1-period)^0*( - (period*trailingzeros/"")+period*(nonzero^1+(trailingzeros/"")+zero^1)^0 + period*trailingzeros/""+period*(nonzero^1+(trailingzeros/"")+zero^1)^0+endofstring )) lpeg.patterns.stripzero=stripper end @@ -6203,7 +6203,7 @@ do -- create closure to overcome 200 locals limit package.loaded["util-str"] = package.loaded["util-str"] or true --- original size: 41537, stripped down to: 23512 +-- original size: 42387, stripped down to: 23340 if not modules then modules={} end modules ['util-str']={ version=1.001, @@ -6797,10 +6797,9 @@ end local format_N=function(f) n=n+1 if not f or f=="" then - return format("(((a%s > -0.0000000005 and a%s < 0.0000000005) and '0') or ((a%s %% 1 == 0) and format('%%i',a%s)) or lpegmatch(stripzero,format('%%.9f',a%s)))",n,n,n,n,n) - else - return format("(((a%s %% 1 == 0) and format('%%i',a%s)) or lpegmatch(stripzero,format('%%%sf',a%s)))",n,n,f,n) - end + f=".9" + end + return format("(((a%s %% 1 == 0) and format('%%i',a%s)) or lpegmatch(stripzero,format('%%%sf',a%s)))",n,n,f,n) end local format_a=function(f) n=n+1 @@ -10936,7 +10935,7 @@ do -- create closure to overcome 200 locals limit package.loaded["util-deb"] = package.loaded["util-deb"] or true --- original size: 8984, stripped down to: 6573 +-- original size: 9387, stripped down to: 6861 if not modules then modules={} end modules ['util-deb']={ version=1.001, @@ -11017,7 +11016,7 @@ end setmetatableindex(names,function(t,name) local v=setmetatableindex(function(t,source) local v=setmetatableindex(function(t,line) - local v={ total=0,count=0 } + local v={ total=0,count=0,nesting=0 } t[line]=v return v end) @@ -11046,12 +11045,24 @@ local function hook(where) end local data=names[name][source][line] if where=="call" then - data.count=data.count+1 - insert(data,ticks()) + local nesting=data.nesting + if nesting==0 then + data.count=data.count+1 + insert(data,ticks()) + data.nesting=1 + else + data.nesting=nesting+1 + end elseif where=="return" then - local t=remove(data) - if t then - data.total=data.total+ticks()-t + local nesting=data.nesting + if nesting==1 then + local t=remove(data) + if t then + data.total=data.total+ticks()-t + end + data.nesting=0 + else + data.nesting=nesting-1 end end end @@ -18005,7 +18016,7 @@ do -- create closure to overcome 200 locals limit package.loaded["data-res"] = package.loaded["data-res"] or true --- original size: 68255, stripped down to: 47783 +-- original size: 68195, stripped down to: 47727 if not modules then modules={} end modules ['data-res']={ version=1.001, @@ -18015,7 +18026,7 @@ if not modules then modules={} end modules ['data-res']={ license="see context related readme files", } local gsub,find,lower,upper,match,gmatch=string.gsub,string.find,string.lower,string.upper,string.match,string.gmatch -local concat,insert,remove,sortedkeys,sortedhash=table.concat,table.insert,table.remove,table.sortedkeys,table.sortedhash +local concat,insert,remove=table.concat,table.insert,table.remove local next,type,rawget=next,type,rawget local os=os local P,S,R,C,Cc,Cs,Ct,Carg=lpeg.P,lpeg.S,lpeg.R,lpeg.C,lpeg.Cc,lpeg.Cs,lpeg.Ct,lpeg.Carg @@ -21694,8 +21705,8 @@ end -- of closure -- used libraries : l-lua.lua l-macro.lua l-sandbox.lua l-package.lua l-lpeg.lua l-function.lua l-string.lua l-table.lua l-io.lua l-number.lua l-set.lua l-os.lua l-file.lua l-gzip.lua l-md5.lua l-url.lua l-dir.lua l-boolean.lua l-unicode.lua l-math.lua util-str.lua util-tab.lua util-fil.lua util-sac.lua util-sto.lua util-prs.lua util-fmt.lua trac-set.lua trac-log.lua trac-inf.lua trac-pro.lua util-lua.lua util-deb.lua util-tpl.lua util-sbx.lua util-mrg.lua util-env.lua luat-env.lua lxml-tab.lua lxml-lpt.lua lxml-mis.lua lxml-aux.lua lxml-xml.lua trac-xml.lua data-ini.lua data-exp.lua data-env.lua data-tmp.lua data-met.lua data-res.lua data-pre.lua data-inp.lua data-out.lua data-fil.lua data-con.lua data-use.lua data-zip.lua data-tre.lua data-sch.lua data-lua.lua data-aux.lua data-tmf.lua data-lst.lua util-lib.lua luat-sta.lua luat-fmt.lua -- skipped libraries : - --- original bytes : 891048 --- stripped bytes : 321893 +-- original bytes : 892283 +-- stripped bytes : 323058 -- end library merge @@ -21747,6 +21758,19 @@ local ownlibs = { -- order can be made better 'util-prs.lua', 'util-fmt.lua', + 'util-soc-imp-reset', + 'util-soc-imp-socket', + 'util-soc-imp-copas', + 'util-soc-imp-ltn12', + -- 'util-soc-imp-mbox', + 'util-soc-imp-mime', + 'util-soc-imp-url', + 'util-soc-imp-headers', + 'util-soc-imp-tp', + 'util-soc-imp-http', + 'util-soc-imp-ftp', + 'util-soc-imp-smtp', + 'trac-set.lua', 'trac-log.lua', 'trac-inf.lua', -- was before trac-set diff --git a/scripts/context/stubs/mswin/mtxrun.lua b/scripts/context/stubs/mswin/mtxrun.lua index 8702204b2..824a7b7aa 100644 --- a/scripts/context/stubs/mswin/mtxrun.lua +++ b/scripts/context/stubs/mswin/mtxrun.lua @@ -1028,7 +1028,7 @@ do -- create closure to overcome 200 locals limit package.loaded["l-lpeg"] = package.loaded["l-lpeg"] or true --- original size: 39717, stripped down to: 21361 +-- original size: 39759, stripped down to: 21371 if not modules then modules={} end modules ['l-lpeg']={ version=1.001, @@ -1772,7 +1772,7 @@ do local nonzero=digit-zero local trailingzeros=zero^1*endofstring local stripper=Cs((1-period)^0*( - (period*trailingzeros/"")+period*(nonzero^1+(trailingzeros/"")+zero^1)^0 + period*trailingzeros/""+period*(nonzero^1+(trailingzeros/"")+zero^1)^0+endofstring )) lpeg.patterns.stripzero=stripper end @@ -6203,7 +6203,7 @@ do -- create closure to overcome 200 locals limit package.loaded["util-str"] = package.loaded["util-str"] or true --- original size: 41537, stripped down to: 23512 +-- original size: 42387, stripped down to: 23340 if not modules then modules={} end modules ['util-str']={ version=1.001, @@ -6797,10 +6797,9 @@ end local format_N=function(f) n=n+1 if not f or f=="" then - return format("(((a%s > -0.0000000005 and a%s < 0.0000000005) and '0') or ((a%s %% 1 == 0) and format('%%i',a%s)) or lpegmatch(stripzero,format('%%.9f',a%s)))",n,n,n,n,n) - else - return format("(((a%s %% 1 == 0) and format('%%i',a%s)) or lpegmatch(stripzero,format('%%%sf',a%s)))",n,n,f,n) - end + f=".9" + end + return format("(((a%s %% 1 == 0) and format('%%i',a%s)) or lpegmatch(stripzero,format('%%%sf',a%s)))",n,n,f,n) end local format_a=function(f) n=n+1 @@ -10936,7 +10935,7 @@ do -- create closure to overcome 200 locals limit package.loaded["util-deb"] = package.loaded["util-deb"] or true --- original size: 8984, stripped down to: 6573 +-- original size: 9387, stripped down to: 6861 if not modules then modules={} end modules ['util-deb']={ version=1.001, @@ -11017,7 +11016,7 @@ end setmetatableindex(names,function(t,name) local v=setmetatableindex(function(t,source) local v=setmetatableindex(function(t,line) - local v={ total=0,count=0 } + local v={ total=0,count=0,nesting=0 } t[line]=v return v end) @@ -11046,12 +11045,24 @@ local function hook(where) end local data=names[name][source][line] if where=="call" then - data.count=data.count+1 - insert(data,ticks()) + local nesting=data.nesting + if nesting==0 then + data.count=data.count+1 + insert(data,ticks()) + data.nesting=1 + else + data.nesting=nesting+1 + end elseif where=="return" then - local t=remove(data) - if t then - data.total=data.total+ticks()-t + local nesting=data.nesting + if nesting==1 then + local t=remove(data) + if t then + data.total=data.total+ticks()-t + end + data.nesting=0 + else + data.nesting=nesting-1 end end end @@ -18005,7 +18016,7 @@ do -- create closure to overcome 200 locals limit package.loaded["data-res"] = package.loaded["data-res"] or true --- original size: 68255, stripped down to: 47783 +-- original size: 68195, stripped down to: 47727 if not modules then modules={} end modules ['data-res']={ version=1.001, @@ -18015,7 +18026,7 @@ if not modules then modules={} end modules ['data-res']={ license="see context related readme files", } local gsub,find,lower,upper,match,gmatch=string.gsub,string.find,string.lower,string.upper,string.match,string.gmatch -local concat,insert,remove,sortedkeys,sortedhash=table.concat,table.insert,table.remove,table.sortedkeys,table.sortedhash +local concat,insert,remove=table.concat,table.insert,table.remove local next,type,rawget=next,type,rawget local os=os local P,S,R,C,Cc,Cs,Ct,Carg=lpeg.P,lpeg.S,lpeg.R,lpeg.C,lpeg.Cc,lpeg.Cs,lpeg.Ct,lpeg.Carg @@ -21694,8 +21705,8 @@ end -- of closure -- used libraries : l-lua.lua l-macro.lua l-sandbox.lua l-package.lua l-lpeg.lua l-function.lua l-string.lua l-table.lua l-io.lua l-number.lua l-set.lua l-os.lua l-file.lua l-gzip.lua l-md5.lua l-url.lua l-dir.lua l-boolean.lua l-unicode.lua l-math.lua util-str.lua util-tab.lua util-fil.lua util-sac.lua util-sto.lua util-prs.lua util-fmt.lua trac-set.lua trac-log.lua trac-inf.lua trac-pro.lua util-lua.lua util-deb.lua util-tpl.lua util-sbx.lua util-mrg.lua util-env.lua luat-env.lua lxml-tab.lua lxml-lpt.lua lxml-mis.lua lxml-aux.lua lxml-xml.lua trac-xml.lua data-ini.lua data-exp.lua data-env.lua data-tmp.lua data-met.lua data-res.lua data-pre.lua data-inp.lua data-out.lua data-fil.lua data-con.lua data-use.lua data-zip.lua data-tre.lua data-sch.lua data-lua.lua data-aux.lua data-tmf.lua data-lst.lua util-lib.lua luat-sta.lua luat-fmt.lua -- skipped libraries : - --- original bytes : 891048 --- stripped bytes : 321893 +-- original bytes : 892283 +-- stripped bytes : 323058 -- end library merge @@ -21747,6 +21758,19 @@ local ownlibs = { -- order can be made better 'util-prs.lua', 'util-fmt.lua', + 'util-soc-imp-reset', + 'util-soc-imp-socket', + 'util-soc-imp-copas', + 'util-soc-imp-ltn12', + -- 'util-soc-imp-mbox', + 'util-soc-imp-mime', + 'util-soc-imp-url', + 'util-soc-imp-headers', + 'util-soc-imp-tp', + 'util-soc-imp-http', + 'util-soc-imp-ftp', + 'util-soc-imp-smtp', + 'trac-set.lua', 'trac-log.lua', 'trac-inf.lua', -- was before trac-set diff --git a/scripts/context/stubs/unix/mtxrun b/scripts/context/stubs/unix/mtxrun index 8702204b2..824a7b7aa 100644 --- a/scripts/context/stubs/unix/mtxrun +++ b/scripts/context/stubs/unix/mtxrun @@ -1028,7 +1028,7 @@ do -- create closure to overcome 200 locals limit package.loaded["l-lpeg"] = package.loaded["l-lpeg"] or true --- original size: 39717, stripped down to: 21361 +-- original size: 39759, stripped down to: 21371 if not modules then modules={} end modules ['l-lpeg']={ version=1.001, @@ -1772,7 +1772,7 @@ do local nonzero=digit-zero local trailingzeros=zero^1*endofstring local stripper=Cs((1-period)^0*( - (period*trailingzeros/"")+period*(nonzero^1+(trailingzeros/"")+zero^1)^0 + period*trailingzeros/""+period*(nonzero^1+(trailingzeros/"")+zero^1)^0+endofstring )) lpeg.patterns.stripzero=stripper end @@ -6203,7 +6203,7 @@ do -- create closure to overcome 200 locals limit package.loaded["util-str"] = package.loaded["util-str"] or true --- original size: 41537, stripped down to: 23512 +-- original size: 42387, stripped down to: 23340 if not modules then modules={} end modules ['util-str']={ version=1.001, @@ -6797,10 +6797,9 @@ end local format_N=function(f) n=n+1 if not f or f=="" then - return format("(((a%s > -0.0000000005 and a%s < 0.0000000005) and '0') or ((a%s %% 1 == 0) and format('%%i',a%s)) or lpegmatch(stripzero,format('%%.9f',a%s)))",n,n,n,n,n) - else - return format("(((a%s %% 1 == 0) and format('%%i',a%s)) or lpegmatch(stripzero,format('%%%sf',a%s)))",n,n,f,n) - end + f=".9" + end + return format("(((a%s %% 1 == 0) and format('%%i',a%s)) or lpegmatch(stripzero,format('%%%sf',a%s)))",n,n,f,n) end local format_a=function(f) n=n+1 @@ -10936,7 +10935,7 @@ do -- create closure to overcome 200 locals limit package.loaded["util-deb"] = package.loaded["util-deb"] or true --- original size: 8984, stripped down to: 6573 +-- original size: 9387, stripped down to: 6861 if not modules then modules={} end modules ['util-deb']={ version=1.001, @@ -11017,7 +11016,7 @@ end setmetatableindex(names,function(t,name) local v=setmetatableindex(function(t,source) local v=setmetatableindex(function(t,line) - local v={ total=0,count=0 } + local v={ total=0,count=0,nesting=0 } t[line]=v return v end) @@ -11046,12 +11045,24 @@ local function hook(where) end local data=names[name][source][line] if where=="call" then - data.count=data.count+1 - insert(data,ticks()) + local nesting=data.nesting + if nesting==0 then + data.count=data.count+1 + insert(data,ticks()) + data.nesting=1 + else + data.nesting=nesting+1 + end elseif where=="return" then - local t=remove(data) - if t then - data.total=data.total+ticks()-t + local nesting=data.nesting + if nesting==1 then + local t=remove(data) + if t then + data.total=data.total+ticks()-t + end + data.nesting=0 + else + data.nesting=nesting-1 end end end @@ -18005,7 +18016,7 @@ do -- create closure to overcome 200 locals limit package.loaded["data-res"] = package.loaded["data-res"] or true --- original size: 68255, stripped down to: 47783 +-- original size: 68195, stripped down to: 47727 if not modules then modules={} end modules ['data-res']={ version=1.001, @@ -18015,7 +18026,7 @@ if not modules then modules={} end modules ['data-res']={ license="see context related readme files", } local gsub,find,lower,upper,match,gmatch=string.gsub,string.find,string.lower,string.upper,string.match,string.gmatch -local concat,insert,remove,sortedkeys,sortedhash=table.concat,table.insert,table.remove,table.sortedkeys,table.sortedhash +local concat,insert,remove=table.concat,table.insert,table.remove local next,type,rawget=next,type,rawget local os=os local P,S,R,C,Cc,Cs,Ct,Carg=lpeg.P,lpeg.S,lpeg.R,lpeg.C,lpeg.Cc,lpeg.Cs,lpeg.Ct,lpeg.Carg @@ -21694,8 +21705,8 @@ end -- of closure -- used libraries : l-lua.lua l-macro.lua l-sandbox.lua l-package.lua l-lpeg.lua l-function.lua l-string.lua l-table.lua l-io.lua l-number.lua l-set.lua l-os.lua l-file.lua l-gzip.lua l-md5.lua l-url.lua l-dir.lua l-boolean.lua l-unicode.lua l-math.lua util-str.lua util-tab.lua util-fil.lua util-sac.lua util-sto.lua util-prs.lua util-fmt.lua trac-set.lua trac-log.lua trac-inf.lua trac-pro.lua util-lua.lua util-deb.lua util-tpl.lua util-sbx.lua util-mrg.lua util-env.lua luat-env.lua lxml-tab.lua lxml-lpt.lua lxml-mis.lua lxml-aux.lua lxml-xml.lua trac-xml.lua data-ini.lua data-exp.lua data-env.lua data-tmp.lua data-met.lua data-res.lua data-pre.lua data-inp.lua data-out.lua data-fil.lua data-con.lua data-use.lua data-zip.lua data-tre.lua data-sch.lua data-lua.lua data-aux.lua data-tmf.lua data-lst.lua util-lib.lua luat-sta.lua luat-fmt.lua -- skipped libraries : - --- original bytes : 891048 --- stripped bytes : 321893 +-- original bytes : 892283 +-- stripped bytes : 323058 -- end library merge @@ -21747,6 +21758,19 @@ local ownlibs = { -- order can be made better 'util-prs.lua', 'util-fmt.lua', + 'util-soc-imp-reset', + 'util-soc-imp-socket', + 'util-soc-imp-copas', + 'util-soc-imp-ltn12', + -- 'util-soc-imp-mbox', + 'util-soc-imp-mime', + 'util-soc-imp-url', + 'util-soc-imp-headers', + 'util-soc-imp-tp', + 'util-soc-imp-http', + 'util-soc-imp-ftp', + 'util-soc-imp-smtp', + 'trac-set.lua', 'trac-log.lua', 'trac-inf.lua', -- was before trac-set diff --git a/scripts/context/stubs/win64/mtxrun.lua b/scripts/context/stubs/win64/mtxrun.lua index 8702204b2..824a7b7aa 100644 --- a/scripts/context/stubs/win64/mtxrun.lua +++ b/scripts/context/stubs/win64/mtxrun.lua @@ -1028,7 +1028,7 @@ do -- create closure to overcome 200 locals limit package.loaded["l-lpeg"] = package.loaded["l-lpeg"] or true --- original size: 39717, stripped down to: 21361 +-- original size: 39759, stripped down to: 21371 if not modules then modules={} end modules ['l-lpeg']={ version=1.001, @@ -1772,7 +1772,7 @@ do local nonzero=digit-zero local trailingzeros=zero^1*endofstring local stripper=Cs((1-period)^0*( - (period*trailingzeros/"")+period*(nonzero^1+(trailingzeros/"")+zero^1)^0 + period*trailingzeros/""+period*(nonzero^1+(trailingzeros/"")+zero^1)^0+endofstring )) lpeg.patterns.stripzero=stripper end @@ -6203,7 +6203,7 @@ do -- create closure to overcome 200 locals limit package.loaded["util-str"] = package.loaded["util-str"] or true --- original size: 41537, stripped down to: 23512 +-- original size: 42387, stripped down to: 23340 if not modules then modules={} end modules ['util-str']={ version=1.001, @@ -6797,10 +6797,9 @@ end local format_N=function(f) n=n+1 if not f or f=="" then - return format("(((a%s > -0.0000000005 and a%s < 0.0000000005) and '0') or ((a%s %% 1 == 0) and format('%%i',a%s)) or lpegmatch(stripzero,format('%%.9f',a%s)))",n,n,n,n,n) - else - return format("(((a%s %% 1 == 0) and format('%%i',a%s)) or lpegmatch(stripzero,format('%%%sf',a%s)))",n,n,f,n) - end + f=".9" + end + return format("(((a%s %% 1 == 0) and format('%%i',a%s)) or lpegmatch(stripzero,format('%%%sf',a%s)))",n,n,f,n) end local format_a=function(f) n=n+1 @@ -10936,7 +10935,7 @@ do -- create closure to overcome 200 locals limit package.loaded["util-deb"] = package.loaded["util-deb"] or true --- original size: 8984, stripped down to: 6573 +-- original size: 9387, stripped down to: 6861 if not modules then modules={} end modules ['util-deb']={ version=1.001, @@ -11017,7 +11016,7 @@ end setmetatableindex(names,function(t,name) local v=setmetatableindex(function(t,source) local v=setmetatableindex(function(t,line) - local v={ total=0,count=0 } + local v={ total=0,count=0,nesting=0 } t[line]=v return v end) @@ -11046,12 +11045,24 @@ local function hook(where) end local data=names[name][source][line] if where=="call" then - data.count=data.count+1 - insert(data,ticks()) + local nesting=data.nesting + if nesting==0 then + data.count=data.count+1 + insert(data,ticks()) + data.nesting=1 + else + data.nesting=nesting+1 + end elseif where=="return" then - local t=remove(data) - if t then - data.total=data.total+ticks()-t + local nesting=data.nesting + if nesting==1 then + local t=remove(data) + if t then + data.total=data.total+ticks()-t + end + data.nesting=0 + else + data.nesting=nesting-1 end end end @@ -18005,7 +18016,7 @@ do -- create closure to overcome 200 locals limit package.loaded["data-res"] = package.loaded["data-res"] or true --- original size: 68255, stripped down to: 47783 +-- original size: 68195, stripped down to: 47727 if not modules then modules={} end modules ['data-res']={ version=1.001, @@ -18015,7 +18026,7 @@ if not modules then modules={} end modules ['data-res']={ license="see context related readme files", } local gsub,find,lower,upper,match,gmatch=string.gsub,string.find,string.lower,string.upper,string.match,string.gmatch -local concat,insert,remove,sortedkeys,sortedhash=table.concat,table.insert,table.remove,table.sortedkeys,table.sortedhash +local concat,insert,remove=table.concat,table.insert,table.remove local next,type,rawget=next,type,rawget local os=os local P,S,R,C,Cc,Cs,Ct,Carg=lpeg.P,lpeg.S,lpeg.R,lpeg.C,lpeg.Cc,lpeg.Cs,lpeg.Ct,lpeg.Carg @@ -21694,8 +21705,8 @@ end -- of closure -- used libraries : l-lua.lua l-macro.lua l-sandbox.lua l-package.lua l-lpeg.lua l-function.lua l-string.lua l-table.lua l-io.lua l-number.lua l-set.lua l-os.lua l-file.lua l-gzip.lua l-md5.lua l-url.lua l-dir.lua l-boolean.lua l-unicode.lua l-math.lua util-str.lua util-tab.lua util-fil.lua util-sac.lua util-sto.lua util-prs.lua util-fmt.lua trac-set.lua trac-log.lua trac-inf.lua trac-pro.lua util-lua.lua util-deb.lua util-tpl.lua util-sbx.lua util-mrg.lua util-env.lua luat-env.lua lxml-tab.lua lxml-lpt.lua lxml-mis.lua lxml-aux.lua lxml-xml.lua trac-xml.lua data-ini.lua data-exp.lua data-env.lua data-tmp.lua data-met.lua data-res.lua data-pre.lua data-inp.lua data-out.lua data-fil.lua data-con.lua data-use.lua data-zip.lua data-tre.lua data-sch.lua data-lua.lua data-aux.lua data-tmf.lua data-lst.lua util-lib.lua luat-sta.lua luat-fmt.lua -- skipped libraries : - --- original bytes : 891048 --- stripped bytes : 321893 +-- original bytes : 892283 +-- stripped bytes : 323058 -- end library merge @@ -21747,6 +21758,19 @@ local ownlibs = { -- order can be made better 'util-prs.lua', 'util-fmt.lua', + 'util-soc-imp-reset', + 'util-soc-imp-socket', + 'util-soc-imp-copas', + 'util-soc-imp-ltn12', + -- 'util-soc-imp-mbox', + 'util-soc-imp-mime', + 'util-soc-imp-url', + 'util-soc-imp-headers', + 'util-soc-imp-tp', + 'util-soc-imp-http', + 'util-soc-imp-ftp', + 'util-soc-imp-smtp', + 'trac-set.lua', 'trac-log.lua', 'trac-inf.lua', -- was before trac-set diff --git a/tex/context/base/mkii/cont-new.mkii b/tex/context/base/mkii/cont-new.mkii index 06c0d4626..253b3250a 100644 --- a/tex/context/base/mkii/cont-new.mkii +++ b/tex/context/base/mkii/cont-new.mkii @@ -11,7 +11,7 @@ %C therefore copyrighted by \PRAGMA. See mreadme.pdf for %C details. -\newcontextversion{2018.08.10 16:51} +\newcontextversion{2018.08.14 23:10} %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/mkii/context.mkii b/tex/context/base/mkii/context.mkii index 33917ad55..633142980 100644 --- a/tex/context/base/mkii/context.mkii +++ b/tex/context/base/mkii/context.mkii @@ -20,7 +20,7 @@ %D your styles an modules. \edef\contextformat {\jobname} -\edef\contextversion{2018.08.10 16:51} +\edef\contextversion{2018.08.14 23:10} %D For those who want to use this: diff --git a/tex/context/base/mkiv/anch-pos.lua b/tex/context/base/mkiv/anch-pos.lua index 99763edae..47fee067f 100644 --- a/tex/context/base/mkiv/anch-pos.lua +++ b/tex/context/base/mkiv/anch-pos.lua @@ -25,7 +25,7 @@ more efficient.</p> -- save much here (at least not now) local tostring, next, rawget, rawset, setmetatable, tonumber = tostring, next, rawget, rawset, setmetatable, tonumber -local sort, sortedhash, sortedkeys = table.sort, table.sortedhash, table.sortedkeys +local sort = table.sort local format, gmatch = string.format, string.gmatch local rawget = rawget local lpegmatch = lpeg.match @@ -46,6 +46,8 @@ local commands = commands local context = context local ctxnode = context.nodes.flush +local ctx_latelua = context.latelua + local tex = tex local texgetcount = tex.getcount local texsetcount = tex.setcount @@ -489,7 +491,8 @@ scanners.bposcolumnregistered = function() -- tag local tag = scanstring() insert(columns,tag) column = tag - ctxnode(new_latelua_node(function() b_column(tag) end)) +-- ctxnode(new_latelua_node(function() b_column(tag) end)) + ctx_latelua(function() b_column(tag) end) end scanners.eposcolumn = function() @@ -498,7 +501,8 @@ scanners.eposcolumn = function() end scanners.eposcolumnregistered = function() - ctxnode(new_latelua_node(e_column)) +-- ctxnode(new_latelua_node(e_column)) + ctx_latelua(e_column) remove(columns) column = columns[#columns] end @@ -635,7 +639,8 @@ scanners.parpos = function() -- todo: relate to localpar (so this is an intermed end local tag = f_p_tag(nofparagraphs) tobesaved[tag] = t - ctxnode(new_latelua_node(function() enhance(tobesaved[tag]) end)) +-- ctxnode(new_latelua_node(function() enhance(tobesaved[tag]) end)) + ctx_latelua(function() enhance(tobesaved[tag]) end) end scanners.dosetposition = function() -- name @@ -649,7 +654,8 @@ scanners.dosetposition = function() -- name n = nofparagraphs > 0 and nofparagraphs or nil, r2l = texgetcount("inlinelefttoright") == 1 or nil, } - ctxnode(new_latelua_node(function() enhance(tobesaved[name]) end)) +-- ctxnode(new_latelua_node(function() enhance(tobesaved[name]) end)) + ctx_latelua(function() enhance(tobesaved[name]) end) end scanners.dosetpositionwhd = function() -- name w h d extra @@ -669,7 +675,8 @@ scanners.dosetpositionwhd = function() -- name w h d extra n = nofparagraphs > 0 and nofparagraphs or nil, r2l = texgetcount("inlinelefttoright") == 1 or nil, } - ctxnode(new_latelua_node(function() enhance(tobesaved[name]) end)) +-- ctxnode(new_latelua_node(function() enhance(tobesaved[name]) end)) + ctx_latelua(function() enhance(tobesaved[name]) end) end scanners.dosetpositionbox = function() -- name box @@ -688,7 +695,8 @@ scanners.dosetpositionbox = function() -- name box n = nofparagraphs > 0 and nofparagraphs or nil, r2l = texgetcount("inlinelefttoright") == 1 or nil, } - ctxnode(new_latelua_node(function() enhance(tobesaved[name]) end)) +-- ctxnode(new_latelua_node(function() enhance(tobesaved[name]) end)) + ctx_latelua(function() enhance(tobesaved[name]) end) end scanners.dosetpositionplus = function() -- name w h d extra @@ -709,7 +717,8 @@ scanners.dosetpositionplus = function() -- name w h d extra e = scanstring(), r2l = texgetcount("inlinelefttoright") == 1 or nil, } - ctxnode(new_latelua_node(function() enhance(tobesaved[name]) end)) +-- ctxnode(new_latelua_node(function() enhance(tobesaved[name]) end)) + ctx_latelua(function() enhance(tobesaved[name]) end) end scanners.dosetpositionstrut = function() -- name @@ -727,7 +736,8 @@ scanners.dosetpositionstrut = function() -- name n = nofparagraphs > 0 and nofparagraphs or nil, r2l = texgetcount("inlinelefttoright") == 1 or nil, } - ctxnode(new_latelua_node(function() enhance(tobesaved[name]) end)) +-- ctxnode(new_latelua_node(function() enhance(tobesaved[name]) end)) + ctx_latelua(function() enhance(tobesaved[name]) end) end scanners.dosetpositionstrutkind = function() -- name @@ -747,7 +757,8 @@ scanners.dosetpositionstrutkind = function() -- name n = nofparagraphs > 0 and nofparagraphs or nil, r2l = texgetcount("inlinelefttoright") == 1 or nil, } - ctxnode(new_latelua_node(function() enhance(tobesaved[name]) end)) +-- ctxnode(new_latelua_node(function() enhance(tobesaved[name]) end)) + ctx_latelua(function() enhance(tobesaved[name]) end) end function jobpositions.getreserved(tag,n) diff --git a/tex/context/base/mkiv/attr-col.lua b/tex/context/base/mkiv/attr-col.lua index 28e63b177..f970fb8e7 100644 --- a/tex/context/base/mkiv/attr-col.lua +++ b/tex/context/base/mkiv/attr-col.lua @@ -406,10 +406,29 @@ function colors.setmodel(name,weightgray) weightgray = true end end - colors.model = name -- global, not useful that way - colors.default = models[name] or 1 -- global - colors.weightgray = weightgray -- global - return colors.default + local default = models[name] or 1 + + colors.model = name -- global, not useful that way + colors.default = default -- global + colors.weightgray = weightgray -- global + + -- avoid selective checking is no need for it + + local forced = colors.forced + + if forced == nil then + -- unset + colors.forced = default + elseif forced == false then + -- assumed mixed + elseif forced ~= default then + -- probably mixed + colors.forced = false + else + -- stil the same + end + + return default end function colors.register(name, colorspace, ...) -- passing 9 vars is faster (but not called that often) diff --git a/tex/context/base/mkiv/cldf-bas.lua b/tex/context/base/mkiv/cldf-bas.lua index 15e941db2..02f8e3e5b 100644 --- a/tex/context/base/mkiv/cldf-bas.lua +++ b/tex/context/base/mkiv/cldf-bas.lua @@ -31,10 +31,13 @@ local concat = table.concat local context = context local ctxcore = context.core local variables = interfaces.variables +local sprint = context.sprint local nodepool = nodes.pool local new_rule = nodepool.rule local new_glyph = nodepool.glyph +local new_latelua = nodepool.latelua + local current_attr = nodes.current_attr local current_font = font.current @@ -172,3 +175,7 @@ context.registers = { -- not really a register but kind of belongs here newchar = function(name,u) context([[\chardef\%s=%s\relax]],name,u) end, } + +function context.latelua(f) + sprint(new_latelua(f)) -- maybe just context +end diff --git a/tex/context/base/mkiv/cont-new.mkiv b/tex/context/base/mkiv/cont-new.mkiv index 0de7057d6..84022b992 100644 --- a/tex/context/base/mkiv/cont-new.mkiv +++ b/tex/context/base/mkiv/cont-new.mkiv @@ -11,7 +11,7 @@ %C therefore copyrighted by \PRAGMA. See mreadme.pdf for %C details. -\newcontextversion{2018.08.10 16:51} +\newcontextversion{2018.08.14 23:10} %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/mkiv/context.mkiv b/tex/context/base/mkiv/context.mkiv index bc599f373..357707a14 100644 --- a/tex/context/base/mkiv/context.mkiv +++ b/tex/context/base/mkiv/context.mkiv @@ -42,7 +42,7 @@ %D has to match \type {YYYY.MM.DD HH:MM} format. \edef\contextformat {\jobname} -\edef\contextversion{2018.08.10 16:51} +\edef\contextversion{2018.08.14 23:10} \edef\contextkind {beta} %D For those who want to use this: @@ -99,6 +99,7 @@ \loadmarkfile{luat-cod} \loadmarkfile{luat-bas} \loadmarkfile{luat-lib} +\loadmarkfile{luat-soc} \loadmarkfile{catc-ini} \loadmarkfile{catc-act} diff --git a/tex/context/base/mkiv/core-con.mkiv b/tex/context/base/mkiv/core-con.mkiv index d0e53833d..3ac33f46f 100644 --- a/tex/context/base/mkiv/core-con.mkiv +++ b/tex/context/base/mkiv/core-con.mkiv @@ -946,4 +946,23 @@ data {#1}% \relax} +%D For those who sart counting at zero: +%D +%D \starttyping +%D \defineconversionset [zero] [n,zero] [n] +%D +%D \setuphead [sectionconversionset=zero] +%D +%D \starttext +%D \startchapter [title=Introduction] +%D \startsection [title=First topic] \stopsection +%D \startsection [title=Second topic] \stopsection +%D \stopchapter +%D \stoptext +%D \stoptyping + +\def\zeronumberconversion#1{\number\numexpr#1-\plusone\relax} + +\defineconversion [zero] [\zeronumberconversion] + \protect \endinput diff --git a/tex/context/base/mkiv/core-two.lua b/tex/context/base/mkiv/core-two.lua index 1e59004be..3ab2112b9 100644 --- a/tex/context/base/mkiv/core-two.lua +++ b/tex/context/base/mkiv/core-two.lua @@ -32,7 +32,7 @@ end job.register('job.passes.collected', tobesaved, initializer, nil) -local function allocate(id) +local function define(id) local p = tobesaved[id] if not p then p = { } @@ -41,10 +41,8 @@ local function allocate(id) return p end -jobpasses.define = allocate - -function jobpasses.save(id,str,index) - local jti = allocate(id) +local function save(id,str,index) + local jti = define(id) if index then jti[index] = str else @@ -52,30 +50,30 @@ function jobpasses.save(id,str,index) end end -function jobpasses.savetagged(id,tag,str) - local jti = allocate(id) +local function savetagged(id,tag,str) + local jti = define(id) jti[tag] = str end -function jobpasses.getdata(id,index,default) +local function getdata(id,index,default) local jti = collected[id] local value = jti and jti[index] return value ~= "" and value or default or "" end -function jobpasses.getfield(id,index,tag,default) +local function getfield(id,index,tag,default) local jti = collected[id] jti = jti and jti[index] local value = jti and jti[tag] return value ~= "" and value or default or "" end -function jobpasses.getcollected(id) +local function getcollected(id) return collected[id] or { } end -function jobpasses.gettobesaved(id) - return allocate(id) +local function gettobesaved(id) + return define(id) end local function get(id) @@ -87,23 +85,17 @@ end local function first(id) local jti = collected[id] - if jti and #jti > 0 then - return jti[1] - end + return jti and jti[1] end local function last(id) local jti = collected[id] - if jti and #jti > 0 then - return jti[#jti] - end + return jti and jti[#jti] end local function find(id,n) local jti = collected[id] - if jti and jti[n] then - return jti[n] - end + return jti and jti[n] or nil end local function count(id) @@ -132,44 +124,49 @@ end local check = first --- - -jobpasses.get = get -jobpasses.first = first -jobpasses.last = last -jobpasses.find = find -jobpasses.list = list -jobpasses.count = count -jobpasses.check = check -jobpasses.inlist = inlist +jobpasses.define = define +jobpasses.save = save +jobpasses.savetagged = savetagged +jobpasses.getdata = getdata +jobpasses.getfield = getfield +jobpasses.getcollected = getcollected +jobpasses.gettobesaved = gettobesaved +jobpasses.get = get +jobpasses.first = first +jobpasses.last = last +jobpasses.find = find +jobpasses.list = list +jobpasses.count = count +jobpasses.check = check +jobpasses.inlist = inlist -- interface local implement = interfaces.implement -implement { name = "gettwopassdata", actions = { get , context }, arguments = "string" } +implement { name = "gettwopassdata", actions = { get, context }, arguments = "string" } implement { name = "getfirsttwopassdata",actions = { first, context }, arguments = "string" } -implement { name = "getlasttwopassdata", actions = { last , context }, arguments = "string" } -implement { name = "findtwopassdata", actions = { find , context }, arguments = "2 strings" } -implement { name = "gettwopassdatalist", actions = { list , context }, arguments = "string" } +implement { name = "getlasttwopassdata", actions = { last, context }, arguments = "string" } +implement { name = "findtwopassdata", actions = { find, context }, arguments = "2 strings" } +implement { name = "gettwopassdatalist", actions = { list, context }, arguments = "string" } implement { name = "counttwopassdata", actions = { count, context }, arguments = "string" } implement { name = "checktwopassdata", actions = { check, context }, arguments = "string" } implement { name = "definetwopasslist", - actions = jobpasses.define, + actions = define, arguments = "string" } implement { name = "savetwopassdata", - actions = jobpasses.save, + actions = save, arguments = "2 strings", } implement { name = "savetaggedtwopassdata", - actions = jobpasses.savetagged, + actions = savetagged, arguments = "3 strings", } @@ -178,3 +175,23 @@ implement { actions = { inlist, commands.doifelse }, arguments = "2 strings", } + +-- local ctx_latelua = context.latelua + +-- implement { +-- name = "lazysavetwopassdata", +-- arguments = "3 strings", +-- public = true, +-- actions = function(a,b,c) +-- ctx_latelua(function() save(a,c) end) +-- end, +-- } + +-- implement { +-- name = "lazysavetaggedtwopassdata", +-- arguments = "3 strings", +-- public = true, +-- actions = function(a,b,c) +-- ctx_latelua(function() savetagged(a,b,c) end) +-- end, +-- } diff --git a/tex/context/base/mkiv/core-two.mkiv b/tex/context/base/mkiv/core-two.mkiv index f83d63042..aae4902bc 100644 --- a/tex/context/base/mkiv/core-two.mkiv +++ b/tex/context/base/mkiv/core-two.mkiv @@ -74,10 +74,10 @@ \registerctxluafile{core-two}{} \def\immediatesavetwopassdata #1#2#3{\normalexpanded{\noexpand\clf_savetwopassdata{#1}{#3}}} -\def\savetwopassdata #1#2#3{\normalexpanded{\noexpand\ctxlatecommand{savetwopassdata('#1',"#3")}}} -\def\lazysavetwopassdata #1#2#3{\normalexpanded{\noexpand\ctxlatecommand{savetwopassdata('#1',"#3")}}} -\def\savetaggedtwopassdata #1#2#3#4{\normalexpanded{\noexpand\clf_savetaggedtwopassdata{#1}{#3}{#4}}} -\def\lazysavetaggedtwopassdata#1#2#3#4{\normalexpanded{\noexpand\ctxlatecommand{savetaggedtwopassdata('#1','#3',"#4")}}} +\def \lazysavetwopassdata #1#2#3{\normalexpanded{\noexpand\ctxlatecommand{savetwopassdata("#1","#3")}}} +\let \savetwopassdata \lazysavetwopassdata +\def \savetaggedtwopassdata#1#2#3#4{\normalexpanded{\noexpand\clf_savetaggedtwopassdata{#1}{#3}{#4}}} +\def\lazysavetaggedtwopassdata#1#2#3#4{\normalexpanded{\noexpand\ctxlatecommand{savetaggedtwopassdata("#1",'#3',"#4")}}} % temp hack: needs a proper \starteverytimeluacode diff --git a/tex/context/base/mkiv/data-res.lua b/tex/context/base/mkiv/data-res.lua index e3c5c32b9..0c2735fc2 100644 --- a/tex/context/base/mkiv/data-res.lua +++ b/tex/context/base/mkiv/data-res.lua @@ -9,7 +9,7 @@ if not modules then modules = { } end modules ['data-res'] = { -- todo: cache:/// home:/// selfautoparent:/// (sometime end 2012) local gsub, find, lower, upper, match, gmatch = string.gsub, string.find, string.lower, string.upper, string.match, string.gmatch -local concat, insert, remove, sortedkeys, sortedhash = table.concat, table.insert, table.remove, table.sortedkeys, table.sortedhash +local concat, insert, remove = table.concat, table.insert, table.remove local next, type, rawget = next, type, rawget local os = os diff --git a/tex/context/base/mkiv/font-map.lua b/tex/context/base/mkiv/font-map.lua index 140702ec8..a7fbfe49e 100644 --- a/tex/context/base/mkiv/font-map.lua +++ b/tex/context/base/mkiv/font-map.lua @@ -214,7 +214,51 @@ local unknown = f_single(0xFFFD) -- end -- end -local hash = table.setmetatableindex(function(t,k) +-- local hash = table.setmetatableindex(function(t,k) +-- local v +-- if k >= 0x00E000 and k <= 0x00F8FF then +-- v = unknown +-- elseif k >= 0x0F0000 and k <= 0x0FFFFF then +-- v = unknown +-- elseif k >= 0x100000 and k <= 0x10FFFF then +-- v = unknown +-- elseif k < 0xD7FF or (k > 0xDFFF and k <= 0xFFFF) then +-- v = f_single(k) +-- else +-- k = k - 0x10000 +-- v = f_double(rshift(k,10)+0xD800,k%1024+0xDC00) +-- end +-- t[k] = v +-- return v +-- end) +-- +-- table.makeweak(hash) +-- +-- local function tounicode(unicode) +-- if type(unicode) == "table" then +-- local t = { } +-- for l=1,#unicode do +-- t[l] = hash[unicode[l]] +-- end +-- return concat(t) +-- else +-- return hash[unicode] +-- end +-- end + +local hash = { } +local conc = { } + +-- table.makeweak(hash) + +table.setmetatableindex(hash,function(t,k) + if type(k) == "table" then + local n = #k + for l=1,n do + conc[l] = hash[k[l]] + end + return concat(conc,"",1,n) + end local v if k >= 0x00E000 and k <= 0x00F8FF then v = unknown @@ -232,18 +276,8 @@ local hash = table.setmetatableindex(function(t,k) return v end) -table.makeweak(hash) - -local function tounicode(unicode,name) - if type(unicode) == "table" then - local t = { } - for l=1,#unicode do - t[l] = hash[unicode[l]] - end - return concat(t) - else - return hash[unicode] - end +local function tounicode(unicode) + return hash[unicode] end local function fromunicode16(str) diff --git a/tex/context/base/mkiv/l-lpeg.lua b/tex/context/base/mkiv/l-lpeg.lua index 827564464..750d5e698 100644 --- a/tex/context/base/mkiv/l-lpeg.lua +++ b/tex/context/base/mkiv/l-lpeg.lua @@ -1135,7 +1135,7 @@ end do - local trailingzeros = zero^0 * -digit -- suggested by Roberto R + local trailingzeros = zero^0 * -digit -- suggested by Roberto local stripper = Cs(( digits * ( period * trailingzeros / "" @@ -1145,15 +1145,15 @@ do lpeg.patterns.stripzeros = stripper -- multiple in string - local nonzero = digit - zero - + local nonzero = digit - zero local trailingzeros = zero^1 * endofstring local stripper = Cs( (1-period)^0 * ( - (period * trailingzeros/"") + - period * (nonzero^1 + (trailingzeros/"") + zero^1)^0 + period * trailingzeros/"" + + period * (nonzero^1 + (trailingzeros/"") + zero^1)^0 + + endofstring )) - lpeg.patterns.stripzero = stripper -- slightly more efficient + lpeg.patterns.stripzero = stripper -- slightly more efficient but expects a float ! -- local sample = "bla 11.00 bla 11 bla 0.1100 bla 1.00100 bla 0.00 bla 0.001 bla 1.1100 bla 0.100100100 bla 0.00100100100" -- collectgarbage("collect") @@ -1164,7 +1164,7 @@ do end --- for practical reasone we keep this here: +-- for practical reasons we keep this here: local byte_to_HEX = { } local byte_to_hex = { } diff --git a/tex/context/base/mkiv/lpdf-ini.lua b/tex/context/base/mkiv/lpdf-ini.lua index 79ed3470c..c53d90848 100644 --- a/tex/context/base/mkiv/lpdf-ini.lua +++ b/tex/context/base/mkiv/lpdf-ini.lua @@ -447,13 +447,6 @@ do end -local function merge_t(a,b) - local t = { } - for k,v in next, a do t[k] = v end - for k,v in next, b do t[k] = v end - return setmetatable(t,getmetatable(a)) -end - local tostring_a, tostring_d do diff --git a/tex/context/base/mkiv/lpdf-wid.lua b/tex/context/base/mkiv/lpdf-wid.lua index 8647a7b39..11cd80623 100644 --- a/tex/context/base/mkiv/lpdf-wid.lua +++ b/tex/context/base/mkiv/lpdf-wid.lua @@ -239,10 +239,12 @@ local function flushembeddedfiles() e[#e+1] = pdfstring(tag) e[#e+1] = reference -- already a reference else - -- messy spec ... when annot not in named else twice in menu list acrobat + -- -- messy spec ... when annot not in named else twice in menu list acrobat end end - lpdf.addtonames("EmbeddedFiles",pdfreference(pdfflushobject(pdfdictionary{ Names = e }))) + if #e > 0 then + lpdf.addtonames("EmbeddedFiles",pdfreference(pdfflushobject(pdfdictionary{ Names = e }))) + end end end @@ -612,7 +614,8 @@ local function insertrendering(specification) local option = settings_to_hash(specification.option) if not mf[label] then local filename = specification.filename - local isurl = find(filename,"://",1,true) + local isurl = find(filename,"://",1,true) + local mimetype = specification.mimetype or specification.mime -- local start = pdfdictionary { -- Type = pdfconstant("MediaOffset"), -- S = pdfconstant("T"), -- time @@ -648,13 +651,16 @@ local function insertrendering(specification) if isurl then descriptor.FS = pdfconstant("URL") elseif option[v_embed] then - descriptor.EF = codeinjections.embedfile { file = filename } + descriptor.EF = codeinjections.embedfile { + file = filename, + mimetype = mimetype, -- yes or no + } end local clip = pdfdictionary { Type = pdfconstant("MediaClip"), S = pdfconstant("MCD"), N = label, - CT = specification.mime, + CT = mimetype, Alt = pdfarray { "", "file not found" }, -- language id + message D = pdfreference(pdfflushobject(descriptor)), -- P = pdfreference(pdfflushobject(parameters)), diff --git a/tex/context/base/mkiv/luat-cod.lua b/tex/context/base/mkiv/luat-cod.lua index f74c53e82..790f741c1 100644 --- a/tex/context/base/mkiv/luat-cod.lua +++ b/tex/context/base/mkiv/luat-cod.lua @@ -53,7 +53,9 @@ local strip = false if arg then for i=-1,#arg do if arg[i] == "--c:strip" then s function lua.registercode(filename,options) local barename = gsub(filename,"%.[%a%d]+$","") - if barename == filename then filename = filename .. ".lua" end + if barename == filename then + filename = filename .. ".lua" + end local basename = match(barename,"^.+[/\\](.-)$") or barename if not bytedone[basename] then local opts = { } @@ -157,12 +159,14 @@ environment.initexmode = INITEXMODE if not environment.luafilechunk then function environment.luafilechunk(filename) + local fullname = filename if sourcepath ~= "" then - filename = sourcepath .. "/" .. filename + fullname = sourcepath .. "/" .. filename end - local data = loadfile(filename) - texio.write("term and log","<",data and "+ " or "- ",filename,">") + local data = loadfile(fullname) + texio.write("term and log","<",data and "+ " or "- ",fullname,">") if data then +-- package.loaded[gsub(filename,"%..-$"] = data() end return data diff --git a/tex/context/base/mkiv/luat-soc.lua b/tex/context/base/mkiv/luat-soc.lua deleted file mode 100644 index 9342a4b33..000000000 --- a/tex/context/base/mkiv/luat-soc.lua +++ /dev/null @@ -1,11 +0,0 @@ --- This is just a loader. The package handler knows about the TEX tree. - --- require "luatex/lua/socket.lua" --- require "luatex/lua/ltn12.lua" --- require "luatex/lua/mime.lua" --- require "luatex/lua/socket/http.lua" --- require "luatex/lua/socket/url.lua" --- require "luatex/lua/socket/tp.lua" --- require "luatex/lua/socket/ftp.lua" - --- "luatex/lua/socket/smtp.lua" diff --git a/tex/context/base/mkiv/luat-soc.mkiv b/tex/context/base/mkiv/luat-soc.mkiv new file mode 100644 index 000000000..e17ff22d3 --- /dev/null +++ b/tex/context/base/mkiv/luat-soc.mkiv @@ -0,0 +1,52 @@ +%D \module +%D [ file=luat-soc, +%D version=2018.08.05, +%D title=\CONTEXT\ Lua Macros, +%D subtitle=Socket Libraries, +%D author=Hans Hagen, +%D date=\currentdate, +%D copyright={PRAGMA ADE \& \CONTEXT\ Development Team}] +%C +%C This module is part of the \CONTEXT\ macro||package and is +%C therefore copyrighted by \PRAGMA. See mreadme.pdf for +%C details. + +\writestatus{loading}{ConTeXt Lua Macros / Socket Libraries} + +%D In \LUATEX\ we provide the socket library that is more or less the standard one +%D for \LUA. It has been around for a while and seems to be pretty stable. The +%D binary module is copmpiled into \LUATEX\ and the accompanying .lua files are +%D preloaded. These files are mostly written by Diego Nehab, Andre Carregal, Javier +%D Guerra, and Fabio Mascarenhas with contributions from Diego Nehab, Mike Pall, +%D David Burgess, Leonardo Godinho, Thomas Harning Jr., and Gary NG. The originals +%D are part of and copyrighted by the Kepler project. +%D +%D Here we reload a slightly reworked version of these \type {.lua} files. We keep +%D the same (documented) interface but streamlined some fo the code. No more +%D modules, no more pre 5.2 \LUA, etc. Also, as it loads into the \CONTEXT +%D ecosystem, we plug in some logging. (and maybe tracing in the future). As we +%D don't support serial ports in \LUATEX, related code has been dropped. +%D +%D The files are reformatted so that we can more easilly add additional features +%D and|/|or tracing options. Any error introduced there is our fault! The url module +%D might be replaced by the one in \CONTEXT. When we need mbox a suitable variant +%D will be provided. + +%D Currently we preload the related \LUA\ code in \LUATEX, but that might change at +%D some point. We're prepared for that. + +\registerctxluafile{util-soc-imp-reset} {} + +\registerctxluafile{util-soc-imp-socket} {} +%registerctxluafile{util-soc-imp-copas} {} +\registerctxluafile{util-soc-imp-ltn12} {} +%registerctxluafile{util-soc-imp-mbox} {} +\registerctxluafile{util-soc-imp-mime} {} +\registerctxluafile{util-soc-imp-url} {} +\registerctxluafile{util-soc-imp-headers}{} +\registerctxluafile{util-soc-imp-http} {} +\registerctxluafile{util-soc-imp-tp} {} +%registerctxluafile{util-soc-imp-ftp} {} +%registerctxluafile{util-soc-imp-smtp} {} + +\endinput diff --git a/tex/context/base/mkiv/mlib-pps.lua b/tex/context/base/mkiv/mlib-pps.lua index 05c29dad3..0c52aa0b9 100644 --- a/tex/context/base/mkiv/mlib-pps.lua +++ b/tex/context/base/mkiv/mlib-pps.lua @@ -101,9 +101,10 @@ local f_f3 = formatters["%.3F"] local f_gray = formatters["%.3F g %.3F G"] local f_rgb = formatters["%.3F %.3F %.3F rg %.3F %.3F %.3F RG"] local f_cmyk = formatters["%.3F %.3F %.3F %.3F k %.3F %.3F %.3F %.3F K"] -local f_cm_b = formatters["q %F %F %F %F %F %F cm"] -local f_shade = formatters["MpSh%s"] +local f_cm_b = formatters["q %.6F %.6F %.6F %.6F %.6F %.6F cm"] +local f_shade = formatters["MpSh%s"] +local f_spot = formatters["/%s cs /%s CS %s SCN %s scn"] local s_cm_e = "Q" directives.register("metapost.stripzeros",function() @@ -112,12 +113,9 @@ directives.register("metapost.stripzeros",function() f_gray = formatters["%.3N g %.3N G"] f_rgb = formatters["%.3N %.3N %.3N rg %.3N %.3N %.3N RG"] f_cmyk = formatters["%.3N %.3N %.3N %.3N k %.3N %.3N %.3N %.3N K"] - f_cm_b = formatters["q %N %N %N %N %N %N cm"] - f_shade = formatters["MpSh%s"] + f_cm_b = formatters["q %.6N %.6N %.6N %.6N %.6N %.6N cm"] end) -local f_spot = formatters["/%s cs /%s CS %s SCN %s scn"] - local function checked_color_pair(color,...) if not color then return innercolor, outercolor diff --git a/tex/context/base/mkiv/mult-prm.lua b/tex/context/base/mkiv/mult-prm.lua index dd19e40b8..77c53beb9 100644 --- a/tex/context/base/mkiv/mult-prm.lua +++ b/tex/context/base/mkiv/mult-prm.lua @@ -251,6 +251,7 @@ return { "expandglyphsinfont", "explicitdiscretionary", "explicithyphenpenalty", + "fixupboxesmode", "fontid", "formatname", "gleaders", @@ -448,6 +449,7 @@ return { "pdfnormaldeviate", "pdfobj", "pdfobjcompresslevel", + "pdfomitcharset", "pdfomitcidset", "pdfoutline", "pdfoutput", diff --git a/tex/context/base/mkiv/node-fin.lua b/tex/context/base/mkiv/node-fin.lua index 3139263ab..3e7a4cd1b 100644 --- a/tex/context/base/mkiv/node-fin.lua +++ b/tex/context/base/mkiv/node-fin.lua @@ -16,10 +16,8 @@ local next, type, format = next, type, string.format local attributes, nodes, node = attributes, nodes, node local nuts = nodes.nuts -local tonut = nuts.tonut local getnext = nuts.getnext -local getprev = nuts.getprev local getid = nuts.getid local getlist = nuts.getlist local getleader = nuts.getleader @@ -605,7 +603,6 @@ local function stacked(attribute,head,default) -- no triggering, no inheritance, elseif id == rule_code then check = getwidth(stack) ~= 0 end - if check then local a = getattr(stack,attribute) if a then @@ -698,7 +695,7 @@ local function stacker(attribute,head,default) -- no triggering, no inheritance, end local n = nsstep(a) if n then - head = insert_node_before(head,current,tonut(n)) -- a + head = insert_node_before(head,current,n) -- a end attrib = a if leader then @@ -717,7 +714,7 @@ local function stacker(attribute,head,default) -- no triggering, no inheritance, if stacked then local n = nsend() while n do - head = insert_node_after(head,previous,tonut(n)) + head = insert_node_after(head,previous,n) n = nsend() end end @@ -780,7 +777,7 @@ end -- end -- local n = nsstep(a) -- if n then --- head = insert_node_before(head,current,tonut(n)) -- a +-- head = insert_node_before(head,current,n) -- a -- end -- attrib = a -- if leader then @@ -800,7 +797,7 @@ end -- if stacked then -- local n = nsend() -- while n do --- head = insert_node_after(head,previous,tonut(n)) +-- head = insert_node_after(head,previous,n) -- n = nsend() -- end -- end diff --git a/tex/context/base/mkiv/node-ref.lua b/tex/context/base/mkiv/node-ref.lua index 27d209701..da72337b8 100644 --- a/tex/context/base/mkiv/node-ref.lua +++ b/tex/context/base/mkiv/node-ref.lua @@ -444,6 +444,108 @@ local function inject_areas(head,attribute,make,stack,done,skip,parent,pardir,tx return head, pardir, txtdir end +-- -- not faster either: +-- +-- local findattr = node.direct.find_attribute +-- +-- local function inject_areas(head,attribute,make,stack,done,skip,parent,pardir,txtdir) -- main +-- local first, last, firstdir, reference +-- if not pardir then +-- pardir = "===" +-- end +-- if not texdir then +-- txtdir = "===" +-- end +-- local someatt = findattr(head,attribute) +-- if someatt then +-- local current = head +-- while current do +-- local id = getid(current) +-- if id == hlist_code or id == vlist_code then +-- local r = getattr(current,attribute) +-- -- test \goto{test}[page(2)] test \gotobox{test}[page(2)] +-- -- test \goto{\TeX}[page(2)] test \gotobox{\hbox {x} \hbox {x}}[page(2)] +-- -- if r and (not skip or r >) skip then -- maybe no > test +-- -- inject_list(id,current,r,make,stack,pardir,txtdir) +-- -- end +-- if r then +-- if not reference then +-- reference, first, last, firstdir = r, current, current, txtdir +-- elseif r == reference then +-- -- same link +-- last = current +-- elseif (done[reference] or 0) == 0 then +-- if not skip or r > skip then -- maybe no > test +-- head, current = inject_range(head,first,last,reference,make,stack,parent,pardir,firstdir) +-- reference, first, last, firstdir = nil, nil, nil, nil +-- end +-- else +-- reference, first, last, firstdir = r, current, current, txtdir +-- end +-- done[r] = (done[r] or 0) + 1 +-- end +-- local list = getlist(current) +-- if list then +-- local h +-- h, pardir, txtdir = inject_areas(list,attribute,make,stack,done,r or skip or 0,current,pardir,txtdir) +-- if h ~= current then +-- setlist(current,h) +-- end +-- end +-- if r then +-- done[r] = done[r] - 1 +-- end +-- elseif id == dir_code then +-- txtdir = getdir(current) +-- elseif id == localpar_code then -- only test at begin +-- pardir = getdir(current) +-- elseif id == glue_code and getsubtype(current) == leftskip_code then -- any glue at the left? +-- -- +-- else +-- local r = getattr(current,attribute) +-- if not r then +-- -- just go on, can be kerns +-- elseif not reference then +-- reference, first, last, firstdir = r, current, current, txtdir +-- elseif r == reference then +-- last = current +-- elseif (done[reference] or 0) == 0 then -- or id == glue_code and getsubtype(current) == right_skip_code +-- if not skip or r > skip then -- maybe no > test +-- head, current = inject_range(head,first,last,reference,make,stack,parent,pardir,firstdir) +-- reference, first, last, firstdir = nil, nil, nil, nil +-- end +-- else +-- reference, first, last, firstdir = r, current, current, txtdir +-- end +-- end +-- current = getnext(current) +-- end +-- if reference and (done[reference] or 0) == 0 then +-- head = inject_range(head,first,last,reference,make,stack,parent,pardir,firstdir) +-- end +-- else +-- local current = head +-- while current do +-- local id = getid(current) +-- if id == hlist_code or id == vlist_code then +-- local list = getlist(current) +-- if list then +-- local h = inject_areas(list,attribute,make,stack,done,skip or 0,current,pardir,txtdir) +-- if h ~= current then +-- setlist(current,h) +-- end +-- end +-- elseif id == dir_code then +-- txtdir = getdir(current) +-- elseif id == localpar_code then -- only test at begin +-- pardir = getdir(current) +-- end +-- current = getnext(current) +-- end +-- end +-- return head, pardir, txtdir +-- end + -- -- maybe first check for glyphs and use a goto: -- -- local function inject_areas(head,attribute,make,stack,done,skip,parent,pardir,txtdir) -- main diff --git a/tex/context/base/mkiv/node-res.lua b/tex/context/base/mkiv/node-res.lua index 39d47f647..b591cafdf 100644 --- a/tex/context/base/mkiv/node-res.lua +++ b/tex/context/base/mkiv/node-res.lua @@ -428,7 +428,8 @@ end function nutpool.latelua(code) local n = copy_nut(latelua) - setfield(n,"string",code) + -- setfield(n,"string",code) + setdata(n,code) return n end diff --git a/tex/context/base/mkiv/status-files.pdf b/tex/context/base/mkiv/status-files.pdf Binary files differindex afcce6971..e95010141 100644 --- a/tex/context/base/mkiv/status-files.pdf +++ b/tex/context/base/mkiv/status-files.pdf diff --git a/tex/context/base/mkiv/status-lua.pdf b/tex/context/base/mkiv/status-lua.pdf Binary files differindex 2eb9c7104..5e0c029e7 100644 --- a/tex/context/base/mkiv/status-lua.pdf +++ b/tex/context/base/mkiv/status-lua.pdf diff --git a/tex/context/base/mkiv/strc-con.mkvi b/tex/context/base/mkiv/strc-con.mkvi index a5360f52a..ed7e401f0 100644 --- a/tex/context/base/mkiv/strc-con.mkvi +++ b/tex/context/base/mkiv/strc-con.mkvi @@ -1093,7 +1093,7 @@ \endgroup \edef\noexpand\currentconstructionlistentry {\the\scratchcounter}% \edef\noexpand\currentconstructionattribute {\the\lastdestinationattribute}% - \edef\noexpand\currentconstructionsynchronize{\ctxlatecommand{enhancelist(\the\scratchcounter)}}% + \edef\noexpand\currentconstructionsynchronize{\clf_deferredenhancelist\scratchcounter}% }% \fi} @@ -1103,11 +1103,11 @@ \def\reinstateconstructionnumberentry#1% was xdef {\edef\currentconstructionattribute {\clf_getinternallistreference#1}% - \edef\currentconstructionsynchronize{\ctxlatecommand{enhancelist(#1)}}} + \edef\currentconstructionsynchronize{\clf_deferredenhancelist#1}} \def\reinstatecachedconstructionnumberentry#1% was xdef | #1 = cached index can be different from real {\edef\currentconstructionattribute {\clf_getinternalcachedlistreference#1}% destination - \edef\currentconstructionsynchronize{\ctxlatecommand{enhancelist(#1)}}} + \edef\currentconstructionsynchronize{\clf_deferredenhancelist#1}} \installstructurelistprocessor{construction}{\usestructurelistprocessor{number+title}} diff --git a/tex/context/base/mkiv/strc-lst.lua b/tex/context/base/mkiv/strc-lst.lua index 13bdf7786..1d2a8bb39 100644 --- a/tex/context/base/mkiv/strc-lst.lua +++ b/tex/context/base/mkiv/strc-lst.lua @@ -35,6 +35,8 @@ local commands = commands local implement = interfaces.implement local conditionals = tex.conditionals +local ctx_latelua = context.latelua + local structures = structures local lists = structures.lists local sections = structures.sections @@ -307,7 +309,7 @@ local synchronizepage = function(r) -- bah ... will move return synchronizepage(r) end -function lists.enhance(n) +local function enhancelist(n) local l = cached[n] if not l then report_lists("enhancing %a, unknown internal",n) @@ -348,6 +350,8 @@ function lists.enhance(n) end end +lists.enhance = enhancelist + -- we can use level instead but we can also decide to remove level from the metadata local nesting = { } @@ -1071,8 +1075,16 @@ implement { implement { name = "enhancelist", - actions = lists.enhance, - arguments = "integer" + arguments = "integer", + actions = enhancelist, +} + +implement { + name = "deferredenhancelist", + arguments = "integer", + actions = function(n) + ctx_latelua(function() enhancelist(n) end) + end, } implement { diff --git a/tex/context/base/mkiv/strc-lst.mkvi b/tex/context/base/mkiv/strc-lst.mkvi index c450e1884..5f6512b82 100644 --- a/tex/context/base/mkiv/strc-lst.mkvi +++ b/tex/context/base/mkiv/strc-lst.mkvi @@ -145,8 +145,9 @@ {\endgroup} % \unexpanded + \def\strc_lists_inject_enhance#listindex#internal% - {\normalexpanded{\ctxlatecommand{enhancelist(\number#listindex)}}} + {\normalexpanded{\clf_deferredenhancelist#listindex}} \unexpanded\def\strc_lists_inject_yes[#settings][#userdata]% can be used directly {\setupcurrentlist[\c!type=userdata,\c!location=\v!none,#settings]% grouped (use \let... @@ -168,7 +169,7 @@ userdata {\detokenize\expandafter{\normalexpanded{#userdata}}} \relax \edef\currentlistnumber{\the\scratchcounter}% -\setxvalue{\??listlocations\currentlist}{\the\locationcount}% + \setxvalue{\??listlocations\currentlist}{\the\locationcount}% \ifx\p_location\v!here % this branch injects nodes ! \strc_lists_inject_enhance{\currentlistnumber}{\the\locationcount}% diff --git a/tex/context/base/mkiv/strc-ref.lua b/tex/context/base/mkiv/strc-ref.lua index 2c9765a44..951c9a44a 100644 --- a/tex/context/base/mkiv/strc-ref.lua +++ b/tex/context/base/mkiv/strc-ref.lua @@ -52,6 +52,8 @@ local context = context local commands = commands local implement = interfaces.implement +local ctx_latelua = context.latelua + local texgetcount = tex.getcount local texsetcount = tex.setcount local texconditionals = tex.conditionals @@ -436,17 +438,27 @@ end references.synchronizepage = synchronizepage -function references.enhance(prefix,tag) +local function enhancereference(prefix,tag) local l = tobesaved[prefix][tag] if l then synchronizepage(l.references) end end +references.enhance = enhancereference + +-- implement { +-- name = "enhancereference", +-- arguments = "2 strings", +-- actions = references.enhance, +-- } + implement { - name = "enhancereference", - actions = references.enhance, + name = "deferredenhancereference", arguments = "2 strings", + actions = function(prefix,tag) + ctx_latelua(function() enhancereference(prefix,tag) end) + end, } -- -- -- related to strc-ini.lua -- -- -- diff --git a/tex/context/base/mkiv/strc-ref.mkvi b/tex/context/base/mkiv/strc-ref.mkvi index 8b887754c..0ae2cfccc 100644 --- a/tex/context/base/mkiv/strc-ref.mkvi +++ b/tex/context/base/mkiv/strc-ref.mkvi @@ -128,7 +128,7 @@ \newcount\lastdestinationattribute \def\strc_references_finish#prefix#reference#internal% - {\normalexpanded{\ctxlatecommand{enhancereference("#prefix","#reference")}}} + {\normalexpanded{\clf_deferredenhancereference{#prefix}{#reference}}} \let\dofinishreference\strc_references_finish % used at lua end diff --git a/tex/context/base/mkiv/strc-reg.lua b/tex/context/base/mkiv/strc-reg.lua index 919290c8f..61e13e7e4 100644 --- a/tex/context/base/mkiv/strc-reg.lua +++ b/tex/context/base/mkiv/strc-reg.lua @@ -48,6 +48,7 @@ local v_last = variables.last local v_text = variables.text local context = context +local ctx_latelua = context.latelua local implement = interfaces.implement @@ -564,9 +565,7 @@ local function storeregister(rawdata) -- metadata, references, entries return #entries end -registers.store = storeregister - -function registers.enhance(name,n) +local function enhanceregister(name,n) local data = tobesaved[name].metadata.notsaved and collected[name] or tobesaved[name] local entry = data.entries[n] if entry then @@ -574,7 +573,7 @@ function registers.enhance(name,n) end end -function registers.extend(name,tag,rawdata) -- maybe do lastsection internally +local function extendregister(name,tag,rawdata) -- maybe do lastsection internally if type(tag) == "string" then tag = tagged[tag] end @@ -618,6 +617,10 @@ function registers.extend(name,tag,rawdata) -- maybe do lastsection internally end end +registers.store = storeregister +registers.enhance = enhanceregister +registers.extend = extendregister + function registers.get(tag,n) local list = tobesaved[tag] return list and list.entries[n] @@ -625,13 +628,21 @@ end implement { name = "enhanceregister", - actions = registers.enhance, arguments = { "string", "integer" }, + actions = enhanceregister, +} + +implement { + name = "deferredenhanceregister", + arguments = { "string", "integer" }, + actions = function(name,n) + ctx_latelua(function() enhanceregister(name,n) end) + end, } implement { name = "extendregister", - actions = registers.extend, + actions = extendregister, arguments = "2 strings", } diff --git a/tex/context/base/mkiv/strc-reg.mkiv b/tex/context/base/mkiv/strc-reg.mkiv index 3f8331745..1b77f135f 100644 --- a/tex/context/base/mkiv/strc-reg.mkiv +++ b/tex/context/base/mkiv/strc-reg.mkiv @@ -305,7 +305,7 @@ \ifx\currentregisterownnumber\v!yes \glet\currentregistersynchronize\relax \else - \xdef\currentregistersynchronize{\ctxlatecommand{enhanceregister("\currentregister",\currentregisternumber)}}% + \xdef\currentregistersynchronize{\clf_deferredenhanceregister{\currentregister}\currentregisternumber}% \fi \currentregistersynchronize % here? % needs thinking ... bla\index{bla}. will break before the . but adding a @@ -341,7 +341,7 @@ % internal \locationcount % view {\interactionparameter\c!focus}% \relax % this will change - \xdef\currentregistersynchronize{\ctxlatecommand{enhanceregister("\currentregister",\currentregisternumber)}}% + \xdef\currentregistersynchronize{\clf_deferredenhanceregister{\currentregister}\currentregisternumber}% \currentregistersynchronize % here? \dostarttagged\t!registerlocation\currentregister \attribute\destinationattribute\lastdestinationattribute \signalcharacter % no \strut as it will be removed during cleanup diff --git a/tex/context/base/mkiv/syst-ini.mkiv b/tex/context/base/mkiv/syst-ini.mkiv index 1ca2bf1ac..b62dbfd7f 100644 --- a/tex/context/base/mkiv/syst-ini.mkiv +++ b/tex/context/base/mkiv/syst-ini.mkiv @@ -1276,5 +1276,6 @@ \ifdefined\breakafterdirmode \else \newcount\breakafterdirmode \fi \ifdefined\exceptionpenalty \else \newcount\exceptionpenalty \fi \ifdefined\luacopyinputnodes \else \newcount\luacopyinputnodes \fi +\ifdefined\fixupboxesmode \else \newcount\fixupboxesmode \fi \protect \endinput diff --git a/tex/context/base/mkiv/util-deb.lua b/tex/context/base/mkiv/util-deb.lua index b8db0c583..9488a728b 100644 --- a/tex/context/base/mkiv/util-deb.lua +++ b/tex/context/base/mkiv/util-deb.lua @@ -98,7 +98,7 @@ end setmetatableindex(names,function(t,name) local v = setmetatableindex(function(t,source) local v = setmetatableindex(function(t,line) - local v = { total = 0, count = 0 } + local v = { total = 0, count = 0, nesting = 0 } t[line] = v return v end) @@ -128,12 +128,24 @@ local function hook(where) end local data = names[name][source][line] if where == "call" then - data.count = data.count + 1 - insert(data,ticks()) + local nesting = data.nesting + if nesting == 0 then + data.count = data.count + 1 + insert(data,ticks()) + data.nesting = 1 + else + data.nesting = nesting + 1 + end elseif where == "return" then - local t = remove(data) - if t then - data.total = data.total + ticks() - t + local nesting = data.nesting + if nesting == 1 then + local t = remove(data) + if t then + data.total = data.total + ticks() - t + end + data.nesting = 0 + else + data.nesting = nesting - 1 end end end diff --git a/tex/context/base/mkiv/util-soc-imp-copas.lua b/tex/context/base/mkiv/util-soc-imp-copas.lua new file mode 100644 index 000000000..8e2278eb2 --- /dev/null +++ b/tex/context/base/mkiv/util-soc-imp-copas.lua @@ -0,0 +1,930 @@ +-- original file : copas.lua +-- for more into : see util-soc.lua + +local socket = socket or require("socket") +local ssl = ssl or nil -- only loaded upon demand + +local WATCH_DOG_TIMEOUT = 120 +local UDP_DATAGRAM_MAX = 8192 + +local type, next, pcall, getmetatable, tostring = type, next, pcall, getmetatable, tostring +local min, max, random = math.min, math.max, math.random +local find = string.find +local insert, remove = table.insert, table.remove + +local gettime = socket.gettime +local selectsocket = socket.select + +local createcoroutine = coroutine.create +local resumecoroutine = coroutine.resume +local yieldcoroutine = coroutine.yield +local runningcoroutine = coroutine.running + +-- Redefines LuaSocket functions with coroutine safe versions (this allows the use +-- of socket.http from within copas). + +-- Meta information is public even if beginning with an "_" + +local report = logs and logs.reporter("copas") or function(fmt,first,...) + if fmt then + fmt = "copas: " .. fmt + if first then + print(format(fmt,first,...)) + else + print(fmt) + end + end +end + +local copas = { + + _COPYRIGHT = "Copyright (C) 2005-2016 Kepler Project", + _DESCRIPTION = "Coroutine Oriented Portable Asynchronous Services", + _VERSION = "Copas 2.0.1", + + autoclose = true, + running = false, + + report = report, + +} + +local function statushandler(status, ...) + if status then + return ... + end + local err = (...) + if type(err) == "table" then + err = err[1] + end + report("error: %s",tostring(err)) + return nil, err +end + +function socket.protect(func) + return function(...) + return statushandler(pcall(func,...)) + end +end + +function socket.newtry(finalizer) + return function (...) + local status = (...) + if not status then + local detail = select(2,...) + pcall(finalizer,detail) + report("error: %s",tostring(detail)) + return + end + return ... + end +end + +-- Simple set implementation based on LuaSocket's tinyirc.lua example +-- adds a FIFO queue for each value in the set + +local function newset() + local reverse = { } + local set = { } + local queue = { } + setmetatable(set, { + __index = { + insert = + function(set, value) + if not reverse[value] then + local n = #set +1 + set[n] = value + reverse[value] = n + end + end, + remove = + function(set, value) + local index = reverse[value] + if index then + reverse[value] = nil + local n = #set + local top = set[n] + set[n] = nil + if top ~= value then + reverse[top] = index + set[index] = top + end + end + end, + push = + function (set, key, itm) + local entry = queue[key] + if entry == nil then -- hm can it be false then? + queue[key] = { itm } + else + entry[#entry + 1] = itm + end + end, + pop = + function (set, key) + local top = queue[key] + if top ~= nil then + local ret = remove(top,1) + if top[1] == nil then + queue[key] = nil + end + return ret + end + end + } + } ) + return set +end + +local _sleeping = { + times = { }, -- list with wake-up times + cos = { }, -- list with coroutines, index matches the 'times' list + lethargy = { }, -- list of coroutines sleeping without a wakeup time + + insert = + function() + end, + remove = + function() + end, + push = + function(self, sleeptime, co) + if not co then + return + end + if sleeptime < 0 then + --sleep until explicit wakeup through copas.wakeup + self.lethargy[co] = true + return + else + sleeptime = gettime() + sleeptime + end + local t = self.times + local c = self.cos + local i = 1 + local n = #t + while i <= n and t[i] <= sleeptime do + i = i + 1 + end + insert(t,i,sleeptime) + insert(c,i,co) + end, + getnext = + -- returns delay until next sleep expires, or nil if there is none + function(self) + local t = self.times + local delay = t[1] and t[1] - gettime() or nil + return delay and max(delay, 0) or nil + end, + pop = + -- find the thread that should wake up to the time + function(self, time) + local t = self.times + local c = self.cos + if #t == 0 or time < t[1] then + return + end + local co = c[1] + remove(t,1) + remove(c,1) + return co + end, + wakeup = + function(self, co) + local let = self.lethargy + if let[co] then + self:push(0, co) + let[co] = nil + else + local c = self.cos + local t = self.times + for i=1,#c do + if c[i] == co then + remove(c,i) + remove(t,i) + self:push(0, co) + return + end + end + end + end +} + +local _servers = newset() -- servers being handled +local _reading = newset() -- sockets currently being read +local _writing = newset() -- sockets currently being written + +local _reading_log = { } +local _writing_log = { } + +local _is_timeout = { -- set of errors indicating a timeout + timeout = true, -- default LuaSocket timeout + wantread = true, -- LuaSec specific timeout + wantwrite = true, -- LuaSec specific timeout +} + +-- Coroutine based socket I/O functions. + +local function isTCP(socket) + return not find(tostring(socket),"^udp") +end + +-- Reads a pattern from a client and yields to the reading set on timeouts UDP: a +-- UDP socket expects a second argument to be a number, so it MUST be provided as +-- the 'pattern' below defaults to a string. Will throw a 'bad argument' error if +-- omitted. + +local function copasreceive(client, pattern, part) + if not pattern or pattern == "" then + pattern = "*l" + end + local current_log = _reading_log + local s, err + repeat + s, err, part = client:receive(pattern, part) + if s or (not _is_timeout[err]) then + current_log[client] = nil + return s, err, part + end + if err == "wantwrite" then + current_log = _writing_log + current_log[client] = gettime() + yieldcoroutine(client, _writing) + else + current_log = _reading_log + current_log[client] = gettime() + yieldcoroutine(client, _reading) + end + until false +end + +-- Receives data from a client over UDP. Not available for TCP. (this is a copy of +-- receive() method, adapted for receivefrom() use). + +local function copasreceivefrom(client, size) + local s, err, port + if not size or size == 0 then + size = UDP_DATAGRAM_MAX + end + repeat + -- upon success err holds ip address + s, err, port = client:receivefrom(size) + if s or err ~= "timeout" then + _reading_log[client] = nil + return s, err, port + end + _reading_log[client] = gettime() + yieldcoroutine(client, _reading) + until false +end + +-- Same as above but with special treatment when reading chunks, unblocks on any +-- data received. + +local function copasreceivepartial(client, pattern, part) + if not pattern or pattern == "" then + pattern = "*l" + end + local logger = _reading_log + local queue = _reading + local s, err + repeat + s, err, part = client:receive(pattern, part) + if s or (type(pattern) == "number" and part ~= "" and part) or not _is_timeout[err] then + logger[client] = nil + return s, err, part + end + if err == "wantwrite" then + logger = _writing_log + queue = _writing + else + logger = _reading_log + queue = _reading + end + logger[client] = gettime() + yieldcoroutine(client, queue) + until false +end + +-- Sends data to a client. The operation is buffered and yields to the writing set +-- on timeouts Note: from and to parameters will be ignored by/for UDP sockets + +local function copassend(client, data, from, to) + if not from then + from = 1 + end + local lastIndex = from - 1 + local logger = _writing_log + local queue = _writing + local s, err + repeat + s, err, lastIndex = client:send(data, lastIndex + 1, to) + -- Adds extra coroutine swap and garantees that high throughput doesn't take + -- other threads to starvation. + if random(100) > 90 then + logger[client] = gettime() + yieldcoroutine(client, queue) + end + if s or not _is_timeout[err] then + logger[client] = nil + return s, err,lastIndex + end + if err == "wantread" then + logger = _reading_log + queue = _reading + else + logger = _writing_log + queue = _writing + end + logger[client] = gettime() + yieldcoroutine(client, queue) + until false +end + +-- Sends data to a client over UDP. Not available for TCP. (this is a copy of send() +-- method, adapted for sendto() use). + +local function copassendto(client, data, ip, port) + repeat + local s, err = client:sendto(data, ip, port) + -- Adds extra coroutine swap and garantees that high throughput doesn't + -- take other threads to starvation. + if random(100) > 90 then + _writing_log[client] = gettime() + yieldcoroutine(client, _writing) + end + if s or err ~= "timeout" then + _writing_log[client] = nil + return s, err + end + _writing_log[client] = gettime() + yieldcoroutine(client, _writing) + until false +end + +-- Waits until connection is completed. + +local function copasconnect(skt, host, port) + skt:settimeout(0) + local ret, err, tried_more_than_once + repeat + ret, err = skt:connect (host, port) + -- A non-blocking connect on Windows results in error "Operation already in + -- progress" to indicate that it is completing the request async. So + -- essentially it is the same as "timeout". + if ret or (err ~= "timeout" and err ~= "Operation already in progress") then + -- Once the async connect completes, Windows returns the error "already + -- connected" to indicate it is done, so that error should be ignored. + -- Except when it is the first call to connect, then it was already + -- connected to something else and the error should be returned. + if not ret and err == "already connected" and tried_more_than_once then + ret = 1 + err = nil + end + _writing_log[skt] = nil + return ret, err + end + tried_more_than_once = tried_more_than_once or true + _writing_log[skt] = gettime() + yieldcoroutine(skt, _writing) + until false +end + +-- Peforms an (async) ssl handshake on a connected TCP client socket. Replacec all +-- previous socket references, with the returned new ssl wrapped socket Throws error +-- and does not return nil+error, as that might silently fail in code like this. + +local function copasdohandshake(skt, sslt) -- extra ssl parameters + if not ssl then + ssl = require("ssl") + end + if not ssl then + report("error: no ssl library") + return + end + local nskt, err = ssl.wrap(skt, sslt) + if not nskt then + report("error: %s",tostring(err)) + return + end + nskt:settimeout(0) + local queue + repeat + local success, err = nskt:dohandshake() + if success then + return nskt + elseif err == "wantwrite" then + queue = _writing + elseif err == "wantread" then + queue = _reading + else + report("error: %s",tostring(err)) + return + end + yieldcoroutine(nskt, queue) + until false +end + +-- Flushes a client write buffer. + +local function copasflush(client) +end + +-- Public. + +copas.connect = copassconnect +copas.send = copassend +copas.sendto = copassendto +copas.receive = copasreceive +copas.receivefrom = copasreceivefrom +copas.copasreceivepartial = copasreceivepartial +copas.copasreceivePartial = copasreceivepartial +copas.dohandshake = copasdohandshake +copas.flush = copasflush + +-- Wraps a TCP socket to use Copas methods (send, receive, flush and settimeout). + +local function _skt_mt_tostring(self) + return tostring(self.socket) .. " (copas wrapped)" +end + +local _skt_mt_tcp_index = { + send = + function(self, data, from, to) + return copassend (self.socket, data, from, to) + end, + receive = + function (self, pattern, prefix) + if self.timeout == 0 then + return copasreceivePartial(self.socket, pattern, prefix) + else + return copasreceive(self.socket, pattern, prefix) + end + end, + + flush = + function (self) + return copasflush(self.socket) + end, + + settimeout = + function (self, time) + self.timeout = time + return true + end, + -- TODO: socket.connect is a shortcut, and must be provided with an alternative + -- if ssl parameters are available, it will also include a handshake + connect = + function(self, ...) + local res, err = copasconnect(self.socket, ...) + if res and self.ssl_params then + res, err = self:dohandshake() + end + return res, err + end, + close = + function(self, ...) + return self.socket:close(...) + end, + -- TODO: socket.bind is a shortcut, and must be provided with an alternative + bind = + function(self, ...) + return self.socket:bind(...) + end, + -- TODO: is this DNS related? hence blocking? + getsockname = + function(self, ...) + return self.socket:getsockname(...) + end, + getstats = + function(self, ...) + return self.socket:getstats(...) + end, + setstats = + function(self, ...) + return self.socket:setstats(...) + end, + listen = + function(self, ...) + return self.socket:listen(...) + end, + accept = + function(self, ...) + return self.socket:accept(...) + end, + setoption = + function(self, ...) + return self.socket:setoption(...) + end, + -- TODO: is this DNS related? hence blocking? + getpeername = + function(self, ...) + return self.socket:getpeername(...) + end, + shutdown = + function(self, ...) + return self.socket:shutdown(...) + end, + dohandshake = + function(self, sslt) + self.ssl_params = sslt or self.ssl_params + local nskt, err = copasdohandshake(self.socket, self.ssl_params) + if not nskt then + return nskt, err + end + self.socket = nskt + return self + end, +} + +local _skt_mt_tcp = { + __tostring = _skt_mt_tostring, + __index = _skt_mt_tcp_index, +} + +-- wraps a UDP socket, copy of TCP one adapted for UDP. + +local _skt_mt_udp_index = { + -- UDP sending is non-blocking, but we provide starvation prevention, so replace + -- anyway. + sendto = + function (self, ...) + return copassendto(self.socket,...) + end, + receive = + function (self, size) + return copasreceive(self.socket, size or UDP_DATAGRAM_MAX) + end, + receivefrom = + function (self, size) + return copasreceivefrom(self.socket, size or UDP_DATAGRAM_MAX) + end, + -- TODO: is this DNS related? hence blocking? + setpeername = + function(self, ...) + return self.socket:getpeername(...) + end, + setsockname = + function(self, ...) + return self.socket:setsockname(...) + end, + -- do not close client, as it is also the server for udp. + close = + function(self, ...) + return true + end +} + +local _skt_mt_udp = { + __tostring = _skt_mt_tostring, + __index = _skt_mt_udp_index, +} + +for k, v in next, _skt_mt_tcp_index do + if not _skt_mt_udp_index[k] then + _skt_mt_udp_index[k] = v + end +end + +-- Wraps a LuaSocket socket object in an async Copas based socket object. + +-- @param skt the socket to wrap +-- @sslt (optional) Table with ssl parameters, use an empty table to use ssl with defaults +-- @return wrapped socket object + +local function wrap(skt, sslt) + if getmetatable(skt) == _skt_mt_tcp or getmetatable(skt) == _skt_mt_udp then + return skt -- already wrapped + end + skt:settimeout(0) + if isTCP(skt) then + return setmetatable ({ socket = skt, ssl_params = sslt }, _skt_mt_tcp) + else + return setmetatable ({ socket = skt }, _skt_mt_udp) + end +end + +copas.wrap = wrap + +-- Wraps a handler in a function that deals with wrapping the socket and doing +-- the optional ssl handshake. + +function copas.handler(handler, sslparams) + return function (skt,...) + skt = wrap(skt) + if sslparams then + skt:dohandshake(sslparams) + end + return handler(skt,...) + end +end + +-- Error handling (a handler per coroutine). + +local _errhandlers = { } + +function copas.setErrorHandler(err) + local co = runningcoroutine() + if co then + _errhandlers[co] = err + end +end + +local function _deferror (msg, co, skt) + report("%s (%s) (%s)", msg, tostring(co), tostring(skt)) +end + +-- Thread handling + +local function _doTick (co, skt, ...) + if not co then + return + end + + local ok, res, new_q = resumecoroutine(co, skt, ...) + + if ok and res and new_q then + new_q:insert(res) + new_q:push(res, co) + else + if not ok then + pcall(_errhandlers[co] or _deferror, res, co, skt) + end + -- Do not auto-close UDP sockets, as the handler socket is also the server socket. + if skt and copas.autoclose and isTCP(skt) then + skt:close() + end + _errhandlers[co] = nil + end +end + +-- Accepts a connection on socket input. + +local function _accept(input, handler) + local client = input:accept() + if client then + client:settimeout(0) + local co = createcoroutine(handler) + _doTick (co, client) + -- _reading:insert(client) + end + return client +end + +-- Handle threads on a queue. + +local function _tickRead(skt) + _doTick(_reading:pop(skt), skt) +end + +local function _tickWrite(skt) + _doTick(_writing:pop(skt), skt) +end + +-- Adds a server/handler pair to Copas dispatcher. + +local function addTCPserver(server, handler, timeout) + server:settimeout(timeout or 0) + _servers[server] = handler + _reading:insert(server) +end + +local function addUDPserver(server, handler, timeout) + server:settimeout(timeout or 0) + local co = createcoroutine(handler) + _reading:insert(server) + _doTick(co, server) +end + +function copas.addserver(server, handler, timeout) + if isTCP(server) then + addTCPserver(server, handler, timeout) + else + addUDPserver(server, handler, timeout) + end +end + +function copas.removeserver(server, keep_open) + local s = server + local mt = getmetatable(server) + if mt == _skt_mt_tcp or mt == _skt_mt_udp then + s = server.socket + end + _servers[s] = nil + _reading:remove(s) + if keep_open then + return true + end + return server:close() +end + +-- Adds an new coroutine thread to Copas dispatcher. Create a coroutine that skips +-- the first argument, which is always the socket passed by the scheduler, but `nil` +-- in case of a task/thread + +function copas.addthread(handler, ...) + local thread = createcoroutine(function(_, ...) return handler(...) end) + _doTick(thread, nil, ...) + return thread +end + +-- tasks registering + +local _tasks = { } + +-- Lets tasks call the default _tick(). + +local function addtaskRead(tsk) + tsk.def_tick = _tickRead + _tasks[tsk] = true +end + +-- Lets tasks call the default _tick(). + +local function addtaskWrite(tsk) + tsk.def_tick = _tickWrite + _tasks[tsk] = true +end + +local function tasks() + return next, _tasks +end + +-- A task to check ready to read events. + +local _readable_t = { + events = + function(self) + local i = 0 + return function () + i = i + 1 + return self._evs[i] + end + end, + tick = + function(self, input) + local handler = _servers[input] + if handler then + input = _accept(input, handler) + else + _reading:remove(input) + self.def_tick(input) + end + end +} + +addtaskRead(_readable_t) + +-- A task to check ready to write events. + +local _writable_t = { + events = + function(self) + local i = 0 + return function() + i = i + 1 + return self._evs[i] + end + end, + tick = + function(self, output) + _writing:remove(output) + self.def_tick(output) + end +} + +addtaskWrite(_writable_t) + +--sleeping threads task + +local _sleeping_t = { + tick = function(self, time, ...) + _doTick(_sleeping:pop(time), ...) + end +} + +-- yields the current coroutine and wakes it after 'sleeptime' seconds. +-- If sleeptime<0 then it sleeps until explicitly woken up using 'wakeup' +function copas.sleep(sleeptime) + yieldcoroutine((sleeptime or 0), _sleeping) +end + +-- Wakes up a sleeping coroutine 'co'. + +function copas.wakeup(co) + _sleeping:wakeup(co) +end + +-- Checks for reads and writes on sockets + +local last_cleansing = 0 + +local function _select(timeout) + + local now = gettime() + + local r_evs, w__evs, err = selectsocket(_reading, _writing, timeout) + + _readable_t._evs = r_evs + _writable_t._evs = w_evs + + if (last_cleansing - now) > WATCH_DOG_TIMEOUT then + + last_cleansing = now + + -- Check all sockets selected for reading, and check how long they have been + -- waiting for data already, without select returning them as readable. + + for skt, time in next, _reading_log do + + if not r_evs[skt] and (time - now) > WATCH_DOG_TIMEOUT then + + -- This one timedout while waiting to become readable, so move it in + -- the readable list and try and read anyway, despite not having + -- been returned by select. + + local n = #r_evs + 1 + _reading_log[skt] = nil + r_evs[n] = skt + r_evs[skt] = n + end + end + + -- Do the same for writing. + + for skt, time in next, _writing_log do + if not w_evs[skt] and (time - now) > WATCH_DOG_TIMEOUT then + local n = #w_evs + 1 + _writing_log[skt] = nil + w_evs[n] = skt + w_evs[skt] = n + end + end + + end + + if err == "timeout" and #r_evs + #w_evs > 0 then + return nil + else + return err + end + +end + +-- Check whether there is something to do. It returns false if there are no sockets +-- for read/write nor tasks scheduled (which means Copas is in an empty spin). + +local function copasfinished() + return not (next(_reading) or next(_writing) or _sleeping:getnext()) +end + +-- Dispatcher loop step. It listens to client requests and handles them and returns +-- false if no data was handled (timeout), or true if there was data handled (or nil +-- + error message). + +local function copasstep(timeout) + _sleeping_t:tick(gettime()) + + local nextwait = _sleeping:getnext() + if nextwait then + timeout = timeout and min(nextwait,timeout) or nextwait + elseif finished() then + return false + end + + local err = _select(timeout) + if err then + if err == "timeout" then + return false + end + return nil, err + end + + for task in tasks() do + for event in task:events() do + tsk:tick(event) + end + end + return true +end + +copas.finished = copasfinished +copas.step = copasstep + +-- Dispatcher endless loop. It listens to client requests and handles them forever. + +function copas.loop(timeout) + copas.running = true + while not copasfinished() do + copasstep(timeout) + end + copas.running = false +end + +if logs then + _G.copas = copas + package.loaded.copas = copas + -- report("module (re)installed") +end + +return copas diff --git a/tex/context/base/mkiv/util-soc-imp-ftp.lua b/tex/context/base/mkiv/util-soc-imp-ftp.lua new file mode 100644 index 000000000..b9f5f15db --- /dev/null +++ b/tex/context/base/mkiv/util-soc-imp-ftp.lua @@ -0,0 +1,400 @@ +-- original file : ftp.lua +-- for more into : see util-soc.lua + +local setmetatable, type, next = setmetatable, type, next +local find, format, gsub, match = string.find, string.format, string.gsub, string.match +local concat = table.concat +local mod = math.mod + +local socket = socket or require("socket") +local url = socket.url or require("socket.url") +local tp = socket.tp or require("socket.tp") +local ltn12 = ltn12 or require("ltn12") + +local tcpsocket = socket.tcp +local trysocket = socket.try +local skipsocket = socket.skip +local sinksocket = socket.sink +local selectsocket = socket.select +local bindsocket = socket.bind +local newtrysocket = socket.newtry +local sourcesocket = socket.source +local protectsocket = socket.protect + +local parseurl = url.parse +local unescapeurl = url.unescape + +local pumpall = ltn12.pump.all +local pumpstep = ltn12.pump.step +local sourcestring = ltn12.source.string +local sinktable = ltn12.sink.table + +local ftp = { + TIMEOUT = 60, + USER = "ftp", + PASSWORD = "anonymous@anonymous.org", +} + +socket.ftp = ftp + +local PORT = 21 + +local methods = { } +local mt = { __index = methods } + +function ftp.open(server, port, create) + local tp = trysocket(tp.connect(server, port or PORT, ftp.TIMEOUT, create)) + local f = setmetatable({ tp = tp }, metat) + f.try = newtrysocket(function() f:close() end) + return f +end + +function methods.portconnect(self) + local try = self.try + local server = self.server + try(server:settimeout(ftp.TIMEOUT)) + self.data = try(server:accept()) + try(self.data:settimeout(ftp.TIMEOUT)) +end + +function methods.pasvconnect(self) + local try = self.try + self.data = try(tcpsocket()) + self(self.data:settimeout(ftp.TIMEOUT)) + self(self.data:connect(self.pasvt.address, self.pasvt.port)) +end + +function methods.login(self, user, password) + local try = self.try + local tp = self.tp + try(tp:command("user", user or ftp.USER)) + local code, reply = try(tp:check{"2..", 331}) + if code == 331 then + try(tp:command("pass", password or ftp.PASSWORD)) + try(tp:check("2..")) + end + return 1 +end + +function methods.pasv(self) + local try = self.try + local tp = self.tp + try(tp:command("pasv")) + local code, reply = try(self.tp:check("2..")) + local pattern = "(%d+)%D(%d+)%D(%d+)%D(%d+)%D(%d+)%D(%d+)" + local a, b, c, d, p1, p2 = skipsocket(2, find(reply, pattern)) + try(a and b and c and d and p1 and p2, reply) + local address = format("%d.%d.%d.%d", a, b, c, d) + local port = p1*256 + p2 + local server = self.server + self.pasvt = { + address = address, + port = port, + } + if server then + server:close() + self.server = nil + end + return address, port +end + +function methods.epsv(self) + local try = self.try + local tp = self.tp + try(tp:command("epsv")) + local code, reply = try(tp:check("229")) + local pattern = "%((.)(.-)%1(.-)%1(.-)%1%)" + local d, prt, address, port = match(reply, pattern) + try(port, "invalid epsv response") + local address = tp:getpeername() + local server = self.server + self.pasvt = { + address = address, + port = port, + } + if self.server then + server:close() + self.server = nil + end + return address, port +end + +function methods.port(self, address, port) + local try = self.try + local tp = self.tp + self.pasvt = nil + if not address then + address, port = try(tp:getsockname()) + self.server = try(bindsocket(address, 0)) + address, port = try(self.server:getsockname()) + try(self.server:settimeout(ftp.TIMEOUT)) + end + local pl = mod(port,256) + local ph = (port - pl)/256 + local arg = gsub(format("%s,%d,%d", address, ph, pl), "%.", ",") + try(tp:command("port", arg)) + try(tp:check("2..")) + return 1 +end + +function methods.eprt(self, family, address, port) + local try = self.try + local tp = self.tp + self.pasvt = nil + if not address then + address, port = try(tp:getsockname()) + self.server = try(bindsocket(address, 0)) + address, port = try(self.server:getsockname()) + try(self.server:settimeout(ftp.TIMEOUT)) + end + local arg = format("|%s|%s|%d|", family, address, port) + try(tp:command("eprt", arg)) + try(tp:check("2..")) + return 1 +end + +function methods.send(self, sendt) + local try = self.try + local tp = self.tp + -- so we try a table or string ? + try(self.pasvt or self.server, "need port or pasv first") + if self.pasvt then + self:pasvconnect() + end + local argument = sendt.argument or unescapeurl(gsub(sendt.path or "", "^[/\\]", "")) + if argument == "" then + argument = nil + end + local command = sendt.command or "stor" + try(tp:command(command, argument)) + local code, reply = try(tp:check{"2..", "1.."}) + if not self.pasvt then + self:portconnect() + end + local step = sendt.step or pumpstep + local readt = { tp } + local checkstep = function(src, snk) + local readyt = selectsocket(readt, nil, 0) + if readyt[tp] then + code = try(tp:check("2..")) + end + return step(src, snk) + end + local sink = sinksocket("close-when-done", self.data) + try(pumpall(sendt.source, sink, checkstep)) + if find(code, "1..") then + try(tp:check("2..")) + end + self.data:close() + local sent = skipsocket(1, self.data:getstats()) + self.data = nil + return sent +end + +function methods.receive(self, recvt) + local try = self.try + local tp = self.tp + try(self.pasvt or self.server, "need port or pasv first") + if self.pasvt then self:pasvconnect() end + local argument = recvt.argument or unescapeurl(gsub(recvt.path or "", "^[/\\]", "")) + if argument == "" then + argument = nil + end + local command = recvt.command or "retr" + try(tp:command(command, argument)) + local code,reply = try(tp:check{"1..", "2.."}) + if code >= 200 and code <= 299 then + recvt.sink(reply) + return 1 + end + if not self.pasvt then + self:portconnect() + end + local source = sourcesocket("until-closed", self.data) + local step = recvt.step or pumpstep + try(pumpall(source, recvt.sink, step)) + if find(code, "1..") then + try(tp:check("2..")) + end + self.data:close() + self.data = nil + return 1 +end + +function methods.cwd(self, dir) + local try = self.try + local tp = self.tp + try(tp:command("cwd", dir)) + try(tp:check(250)) + return 1 +end + +function methods.type(self, typ) + local try = self.try + local tp = self.tp + try(tp:command("type", typ)) + try(tp:check(200)) + return 1 +end + +function methods.greet(self) + local try = self.try + local tp = self.tp + local code = try(tp:check{"1..", "2.."}) + if find(code, "1..") then + try(tp:check("2..")) + end + return 1 +end + +function methods.quit(self) + local try = self.try + try(self.tp:command("quit")) + try(self.tp:check("2..")) + return 1 +end + +function methods.close(self) + local data = self.data + if data then + data:close() + end + local server = self.server + if server then + server:close() + end + local tp = self.tp + if tp then + tp:close() + end +end + +local function override(t) + if t.url then + local u = parseurl(t.url) + for k, v in next, t do + u[k] = v + end + return u + else + return t + end +end + +local function tput(putt) + putt = override(putt) + local host = putt.host + trysocket(host, "missing hostname") + local f = ftp.open(host, putt.port, putt.create) + f:greet() + f:login(putt.user, putt.password) + local typ = putt.type + if typ then + f:type(typ) + end + f:epsv() + local sent = f:send(putt) + f:quit() + f:close() + return sent +end + +local default = { + path = "/", + scheme = "ftp", +} + +local function genericform(u) + local t = trysocket(parseurl(u, default)) + trysocket(t.scheme == "ftp", "wrong scheme '" .. t.scheme .. "'") + trysocket(t.host, "missing hostname") + local pat = "^type=(.)$" + if t.params then + local typ = skipsocket(2, find(t.params, pat)) + t.type = typ + trysocket(typ == "a" or typ == "i", "invalid type '" .. typ .. "'") + end + return t +end + +ftp.genericform = genericform + +local function sput(u, body) + local putt = genericform(u) + putt.source = sourcestring(body) + return tput(putt) +end + +ftp.put = protectsocket(function(putt, body) + if type(putt) == "string" then + return sput(putt, body) + else + return tput(putt) + end +end) + +local function tget(gett) + gett = override(gett) + local host = gett.host + trysocket(host, "missing hostname") + local f = ftp.open(host, gett.port, gett.create) + f:greet() + f:login(gett.user, gett.password) + if gett.type then + f:type(gett.type) + end + f:epsv() + f:receive(gett) + f:quit() + return f:close() +end + +local function sget(u) + local gett = genericform(u) + local t = { } + gett.sink = sinktable(t) + tget(gett) + return concat(t) +end + +ftp.command = protectsocket(function(cmdt) + cmdt = override(cmdt) + local command = cmdt.command + local argument = cmdt.argument + local check = cmdt.check + local host = cmdt.host + trysocket(host, "missing hostname") + trysocket(command, "missing command") + local f = ftp.open(host, cmdt.port, cmdt.create) + local try = f.try + local tp = f.tp + f:greet() + f:login(cmdt.user, cmdt.password) + if type(command) == "table" then + local argument = argument or { } + for i=1,#command do + local cmd = command[i] + try(tp:command(cmd, argument[i])) + if check and check[i] then + try(tp:check(check[i])) + end + end + else + try(tp:command(command, argument)) + if check then + try(tp:check(check)) + end + end + f:quit() + return f:close() +end) + +ftp.get = protectsocket(function(gett) + if type(gett) == "string" then + return sget(gett) + else + return tget(gett) + end +end) + +return ftp diff --git a/tex/context/base/mkiv/util-soc-imp-headers.lua b/tex/context/base/mkiv/util-soc-imp-headers.lua new file mode 100644 index 000000000..ee889956c --- /dev/null +++ b/tex/context/base/mkiv/util-soc-imp-headers.lua @@ -0,0 +1,144 @@ +-- original file : headers.lua +-- for more into : see util-soc.lua + +local next = next +local lower = string.lower +local concat = table.concat + +local socket = socket or require("socket") + +local canonic = { + ["accept"] = "Accept", + ["accept-charset"] = "Accept-Charset", + ["accept-encoding"] = "Accept-Encoding", + ["accept-language"] = "Accept-Language", + ["accept-ranges"] = "Accept-Ranges", + ["action"] = "Action", + ["alternate-recipient"] = "Alternate-Recipient", + ["age"] = "Age", + ["allow"] = "Allow", + ["arrival-date"] = "Arrival-Date", + ["authorization"] = "Authorization", + ["bcc"] = "Bcc", + ["cache-control"] = "Cache-Control", + ["cc"] = "Cc", + ["comments"] = "Comments", + ["connection"] = "Connection", + ["content-description"] = "Content-Description", + ["content-disposition"] = "Content-Disposition", + ["content-encoding"] = "Content-Encoding", + ["content-id"] = "Content-ID", + ["content-language"] = "Content-Language", + ["content-length"] = "Content-Length", + ["content-location"] = "Content-Location", + ["content-md5"] = "Content-MD5", + ["content-range"] = "Content-Range", + ["content-transfer-encoding"] = "Content-Transfer-Encoding", + ["content-type"] = "Content-Type", + ["cookie"] = "Cookie", + ["date"] = "Date", + ["diagnostic-code"] = "Diagnostic-Code", + ["dsn-gateway"] = "DSN-Gateway", + ["etag"] = "ETag", + ["expect"] = "Expect", + ["expires"] = "Expires", + ["final-log-id"] = "Final-Log-ID", + ["final-recipient"] = "Final-Recipient", + ["from"] = "From", + ["host"] = "Host", + ["if-match"] = "If-Match", + ["if-modified-since"] = "If-Modified-Since", + ["if-none-match"] = "If-None-Match", + ["if-range"] = "If-Range", + ["if-unmodified-since"] = "If-Unmodified-Since", + ["in-reply-to"] = "In-Reply-To", + ["keywords"] = "Keywords", + ["last-attempt-date"] = "Last-Attempt-Date", + ["last-modified"] = "Last-Modified", + ["location"] = "Location", + ["max-forwards"] = "Max-Forwards", + ["message-id"] = "Message-ID", + ["mime-version"] = "MIME-Version", + ["original-envelope-id"] = "Original-Envelope-ID", + ["original-recipient"] = "Original-Recipient", + ["pragma"] = "Pragma", + ["proxy-authenticate"] = "Proxy-Authenticate", + ["proxy-authorization"] = "Proxy-Authorization", + ["range"] = "Range", + ["received"] = "Received", + ["received-from-mta"] = "Received-From-MTA", + ["references"] = "References", + ["referer"] = "Referer", + ["remote-mta"] = "Remote-MTA", + ["reply-to"] = "Reply-To", + ["reporting-mta"] = "Reporting-MTA", + ["resent-bcc"] = "Resent-Bcc", + ["resent-cc"] = "Resent-Cc", + ["resent-date"] = "Resent-Date", + ["resent-from"] = "Resent-From", + ["resent-message-id"] = "Resent-Message-ID", + ["resent-reply-to"] = "Resent-Reply-To", + ["resent-sender"] = "Resent-Sender", + ["resent-to"] = "Resent-To", + ["retry-after"] = "Retry-After", + ["return-path"] = "Return-Path", + ["sender"] = "Sender", + ["server"] = "Server", + ["smtp-remote-recipient"] = "SMTP-Remote-Recipient", + ["status"] = "Status", + ["subject"] = "Subject", + ["te"] = "TE", + ["to"] = "To", + ["trailer"] = "Trailer", + ["transfer-encoding"] = "Transfer-Encoding", + ["upgrade"] = "Upgrade", + ["user-agent"] = "User-Agent", + ["vary"] = "Vary", + ["via"] = "Via", + ["warning"] = "Warning", + ["will-retry-until"] = "Will-Retry-Until", + ["www-authenticate"] = "WWW-Authenticate", + ["x-mailer"] = "X-Mailer", +} + +setmetatable(canonic, { + __index = function(t,k) + socket.report("invalid header: %s",k) + t[k] = k + return k + end +}) + +local function normalizeheaders(headers) + if not headers then + return { } + end + local normalized = { } + for k, v in next, headers do + normalized[#normalized+1] = canonic[k] .. ": " .. v + end + normalized[#normalized+1] = "" + normalized[#normalized+1] = "" + return concat(normalized,"\r\n") +end + +local function lowerheaders(lowered,headers) + if not lowered then + return { } + end + if not headers then + lowered, headers = { }, lowered + end + for k, v in next, headers do + lowered[lower(k)] = v + end + return lowered +end + +socket.headers = { + canonic = canonic, + normalize = normalizeheaders, + lower = lowerheaders, +} + +return socket.headers diff --git a/tex/context/base/mkiv/util-soc-imp-http.lua b/tex/context/base/mkiv/util-soc-imp-http.lua new file mode 100644 index 000000000..98789fa7b --- /dev/null +++ b/tex/context/base/mkiv/util-soc-imp-http.lua @@ -0,0 +1,432 @@ +-- original file : http.lua +-- for more into : see util-soc.lua + +local tostring, tonumber, setmetatable, next, type = tostring, tonumber, setmetatable, next, type +local find, lower, format, gsub, match = string.find, string.lower, string.format, string.gsub, string.match +local concat = table.concat + +local socket = socket or require("socket") +local url = socket.url or require("socket.url") +local ltn12 = ltn12 or require("ltn12") +local mime = mime or require("mime") +local headers = socket.headers or require("socket.headers") + +local normalizeheaders = headers.normalize + +local parseurl = url.parse +local buildurl = url.build +local absoluteurl = url.absolute +local unescapeurl = url.unescape + +local skipsocket = socket.skip +local sinksocket = socket.sink +local sourcesocket = socket.source +local trysocket = socket.try +local tcpsocket = socket.tcp +local newtrysocket = socket.newtry +local protectsocket = socket.protect + +local emptysource = ltn12.source.empty +local stringsource = ltn12.source.string +local rewindsource = ltn12.source.rewind +local pumpstep = ltn12.pump.step +local pumpall = ltn12.pump.all +local sinknull = ltn12.sink.null +local sinktable = ltn12.sink.table + +local mimeb64 = mime.b64 + +-- todo: localize ltn12 + +local http = { + TIMEOUT = 60, -- connection timeout in seconds + USERAGENT = socket._VERSION, -- user agent field sent in request +} + +socket.http = http + +local PORT = 80 +local SCHEMES = { + http = true, +} + +-- Reads MIME headers from a connection, unfolding where needed + +local function receiveheaders(sock, headers) + if not headers then + headers = { } + end + -- get first line + local line, err = sock:receive() + if err then + return nil, err + end + -- headers go until a blank line is found + while line ~= "" do + -- get field-name and value + local name, value = skipsocket(2, find(line, "^(.-):%s*(.*)")) + if not (name and value) then + return nil, "malformed reponse headers" + end + name = lower(name) + -- get next line (value might be folded) + line, err = sock:receive() + if err then + return nil, err + end + -- unfold any folded values + while find(line, "^%s") do + value = value .. line + line = sock:receive() + if err then + return nil, err + end + end + -- save pair in table + local found = headers[name] + if found then + value = found .. ", " .. value + end + headers[name] = value + end + return headers +end + +-- Extra sources and sinks + +socket.sourcet["http-chunked"] = function(sock, headers) + return setmetatable ( + { + getfd = function() return sock:getfd() end, + dirty = function() return sock:dirty() end, + }, { + __call = function() + local line, err = sock:receive() + if err then + return nil, err + end + local size = tonumber(gsub(line, ";.*", ""), 16) + if not size then + return nil, "invalid chunk size" + end + if size > 0 then + local chunk, err, part = sock:receive(size) + if chunk then + sock:receive() + end + return chunk, err + else + headers, err = receiveheaders(sock, headers) + if not headers then + return nil, err + end + end + end + } + ) +end + +socket.sinkt["http-chunked"] = function(sock) + return setmetatable( + { + getfd = function() return sock:getfd() end, + dirty = function() return sock:dirty() end, + }, + { + __call = function(self, chunk, err) + if not chunk then + chunk = "" + end + return sock:send(format("%X\r\n%s\r\n",#chunk,chunk)) + end + }) +end + +-- Low level HTTP API + +local methods = { } +local mt = { __index = methods } + +local function openhttp(host, port, create) + local c = trysocket((create or tcpsocket)()) + local h = setmetatable({ c = c }, mt) + local try = newtrysocket(function() h:close() end) + h.try = try + try(c:settimeout(http.TIMEOUT)) + try(c:connect(host, port or PORT)) + return h +end + +http.open = openhttp + +function methods.sendrequestline(self, method, uri) + local requestline = format("%s %s HTTP/1.1\r\n", method or "GET", uri) + return self.try(self.c:send(requestline)) +end + +function methods.sendheaders(self,headers) + self.try(self.c:send(normalizeheaders(headers))) + return 1 +end + +function methods.sendbody(self, headers, source, step) + if not source then + source = emptysource() + end + if not step then + step = pumpstep + end + local mode = "http-chunked" + if headers["content-length"] then + mode = "keep-open" + end + return self.try(pumpall(source, sinksocket(mode, self.c), step)) +end + +function methods.receivestatusline(self) + local try = self.try + local status = try(self.c:receive(5)) + if status ~= "HTTP/" then + return nil, status -- HTTP/0.9 + end + status = try(self.c:receive("*l", status)) + local code = skipsocket(2, find(status, "HTTP/%d*%.%d* (%d%d%d)")) + return try(tonumber(code), status) +end + +function methods.receiveheaders(self) + return self.try(receiveheaders(self.c)) +end + +function methods.receivebody(self, headers, sink, step) + if not sink then + sink = sinknull() + end + if not step then + step = pumpstep + end + local length = tonumber(headers["content-length"]) + local encoding = headers["transfer-encoding"] -- shortcut + local mode = "default" -- connection close + if encoding and encoding ~= "identity" then + mode = "http-chunked" + elseif length then + mode = "by-length" + end + --hh: so length can be nil + return self.try(pumpall(sourcesocket(mode, self.c, length), sink, step)) +end + +function methods.receive09body(self, status, sink, step) + local source = rewindsource(sourcesocket("until-closed", self.c)) + source(status) + return self.try(pumpall(source, sink, step)) +end + +function methods.close(self) + return self.c:close() +end + +-- High level HTTP API + +local function adjusturi(request) + if not request.proxy and not http.PROXY then + request = { + path = trysocket(request.path, "invalid path 'nil'"), + params = request.params, + query = request.query, + fragment = request.fragment, + } + end + return buildurl(request) +end + +local function adjustheaders(request) + local headers = { + ["user-agent"] = http.USERAGENT, + ["host"] = gsub(request.authority, "^.-@", ""), + ["connection"] = "close, TE", + ["te"] = "trailers" + } + local username = request.user + local password = request.password + if username and password then + headers["authorization"] = "Basic " .. (mimeb64(username .. ":" .. unescapeurl(password))) + end + local proxy = request.proxy or http.PROXY + if proxy then + proxy = parseurl(proxy) + local username = proxy.user + local password = proxy.password + if username and password then + headers["proxy-authorization"] = "Basic " .. (mimeb64(username .. ":" .. password)) + end + end + local requestheaders = request.headers + if requestheaders then + headers = lowerheaders(headers,requestheaders) + end + return headers +end + +-- default url parts + +local default = { + host = "", + port = PORT, + path = "/", + scheme = "http" +} + +local function adjustrequest(originalrequest) + local url = originalrequest.url + local request = url and parseurl(url,default) or { } + for k, v in next, originalrequest do + request[k] = v + end + local host = request.host + local port = request.port + local uri = request.uri + if not host or host == "" then + trysocket(nil, "invalid host '" .. tostring(host) .. "'") + end + if port == "" then + request.port = PORT + end + if not uri or uri == "" then + request.uri = adjusturi(request) + end + request.headers = adjustheaders(request) + local proxy = request.proxy or http.PROXY + if proxy then + proxy = parseurl(proxy) + request.host = proxy.host + request.port = proxy.port or 3128 + end + return request +end + +local maxredericts = 4 +local validredirects = { [301] = true, [302] = true, [303] = true, [307] = true } +local validmethods = { [false] = true, GET = true, HEAD = true } + +local function shouldredirect(request, code, headers) + local location = headers.location + if not location then + return false + end + location = gsub(location, "%s", "") + if location == "" then + return false + end + local scheme = match(location, "^([%w][%w%+%-%.]*)%:") + if scheme and not SCHEMES[scheme] then + return false + end + local method = request.method + local redirect = request.redirect + local redirects = request.nredirects or 0 + return redirect and validredirects[code] and validmethods[method] and redirects <= maxredericts +end + +local function shouldreceivebody(request, code) + if request.method == "HEAD" then + return nil + end + if code == 204 or code == 304 then + return nil + end + if code >= 100 and code < 200 then + return nil + end + return 1 +end + +local tredirect, trequest, srequest + +tredirect = function(request, location) + local result, code, headers, status = trequest { + url = absoluteurl(request.url,location), + source = request.source, + sink = request.sink, + headers = request.headers, + proxy = request.proxy, + nredirects = (request.nredirects or 0) + 1, + create = request.create, + } + if not headers then + headers = { } + end + if not headers.location then + headers.location = location + end + return result, code, headers, status +end + +trequest = function(originalrequest) + local request = adjustrequest(originalrequest) + local connection = openhttp(request.host, request.port, request.create) + local headers = request.headers + connection:sendrequestline(request.method, request.uri) + connection:sendheaders(headers) + if request.source then + connection:sendbody(headers, request.source, request.step) + end + local code, status = connection:receivestatusline() + if not code then + connection:receive09body(status, request.sink, request.step) + return 1, 200 + end + while code == 100 do + headers = connection:receiveheaders() + code, status = connection:receivestatusline() + end + headers = connection:receiveheaders() + if shouldredirect(request, code, headers) and not request.source then + connection:close() + return tredirect(originalrequest,headers.location) + end + if shouldreceivebody(request, code) then + connection:receivebody(headers, request.sink, request.step) + end + connection:close() + return 1, code, headers, status +end + +-- turns an url and a body into a generic request + +local function genericform(url, body) + local buffer = { } + local request = { + url = url, + sink = sinktable(buffer), + target = buffer, + } + if body then + request.source = stringsource(body) + request.method = "POST" + request.headers = { + ["content-length"] = #body, + ["content-type"] = "application/x-www-form-urlencoded" + } + end + return request +end + +http.genericform = genericform + +srequest = function(url, body) + local request = genericform(url, body) + local _, code, headers, status = trequest(request) + return concat(request.target), code, headers, status +end + +http.request = protectsocket(function(request, body) + if type(request) == "string" then + return srequest(request, body) + else + return trequest(request) + end +end) + +return http diff --git a/tex/context/base/mkiv/util-soc-imp-ltn12.lua b/tex/context/base/mkiv/util-soc-imp-ltn12.lua new file mode 100644 index 000000000..0a389896b --- /dev/null +++ b/tex/context/base/mkiv/util-soc-imp-ltn12.lua @@ -0,0 +1,388 @@ +-- original file : ltn12.lua +-- for more into : see util-soc.lua + +local select, unpack = select, unpack +local insert, remove = table.insert, table.remove +local sub = string.sub + +local report = logs and logs.reporter("ltn12") or function(fmt,first,...) + if fmt then + fmt = "ltn12: " .. fmt + if first then + print(format(fmt,first,...)) + else + print(fmt) + end + end +end + +local filter = { } +local source = { } +local sink = { } +local pump = { } + +local ltn12 = { + + _VERSION = "LTN12 1.0.3", + + BLOCKSIZE = 2048, + + filter = filter, + source = source, + sink = sink, + pump = pump, + + report = report, + +} + +-- returns a high level filter that cycles a low-level filter + +function filter.cycle(low, ctx, extra) + if low then + return function(chunk) + return (low(ctx, chunk, extra)) + end + end +end + +-- chains a bunch of filters together + +function filter.chain(...) + local arg = { ... } + local n = select('#',...) + local top = 1 + local index = 1 + local retry = "" + return function(chunk) + retry = chunk and retry + while true do + local action = arg[index] + if index == top then + chunk = action(chunk) + if chunk == "" or top == n then + return chunk + elseif chunk then + index = index + 1 + else + top = top + 1 + index = top + end + else + chunk = action(chunk or "") + if chunk == "" then + index = index - 1 + chunk = retry + elseif chunk then + if index == n then + return chunk + else + index = index + 1 + end + else + report("error: filter returned inappropriate 'nil'") + return + end + end + end + end +end + +-- create an empty source + +local function empty() + return nil +end + +function source.empty() + return empty +end + +-- returns a source that just outputs an error + +local function sourceerror(err) + return function() + return nil, err + end +end + +source.error = sourceerror + +-- creates a file source + +function source.file(handle, io_err) + if handle then + local blocksize = ltn12.BLOCKSIZE + return function() + local chunk = handle:read(blocksize) + if not chunk then + handle:close() + end + return chunk + end + else + return sourceerror(io_err or "unable to open file") + end +end + +-- turns a fancy source into a simple source + +function source.simplify(src) + return function() + local chunk, err_or_new = src() + if err_or_new then + src = err_or_new + end + if chunk then + return chunk + else + return nil, err_or_new + end + end +end + +-- creates string source + +function source.string(s) + if s then + local blocksize = ltn12.BLOCKSIZE + local i = 1 + return function() + local nexti = i + blocksize + local chunk = sub(s, i, nexti - 1) + i = nexti + if chunk ~= "" then + return chunk + else + return nil + end + end + else return source.empty() end +end + +-- creates rewindable source + +function source.rewind(src) + local t = { } + return function(chunk) + if chunk then + insert(t, chunk) + else + chunk = remove(t) + if chunk then + return chunk + else + return src() + end + end + end +end + +-- chains a source with one or several filter(s) + +function source.chain(src, f, ...) + if ... then + f = filter.chain(f, ...) + end + local last_in = "" + local last_out = "" + local state = "feeding" + local err + return function() + if not last_out then + report("error: source is empty") + return + end + while true do + if state == "feeding" then + last_in, err = src() + if err then + return nil, err + end + last_out = f(last_in) + if not last_out then + if last_in then + report("error: filter returned inappropriate 'nil'") + end + return nil + elseif last_out ~= "" then + state = "eating" + if last_in then + last_in = "" + end + return last_out + end + else + last_out = f(last_in) + if last_out == "" then + if last_in == "" then + state = "feeding" + else + report("error: filter returned nothing") + return + end + elseif not last_out then + if last_in then + report("filter returned inappropriate 'nil'") + end + return nil + else + return last_out + end + end + end + end +end + +-- creates a source that produces contents of several sources, one after the +-- other, as if they were concatenated + +function source.cat(...) + local arg = { ... } + local src = remove(arg,1) + return function() + while src do + local chunk, err = src() + if chunk then + return chunk + end + if err then + return nil, err + end + src = remove(arg,1) + end + end +end + +-- creates a sink that stores into a table + +function sink.table(t) + if not t then + t = { } + end + local f = function(chunk, err) + if chunk then + insert(t, chunk) + end + return 1 + end + return f, t +end + +-- turns a fancy sink into a simple sink + +function sink.simplify(snk) + return function(chunk, err) + local ret, err_or_new = snk(chunk, err) + if not ret then + return nil, err_or_new + end + if err_or_new then + snk = err_or_new + end + return 1 + end +end + +-- creates a sink that discards data + +local function null() + return 1 +end + +function sink.null() + return null +end + +-- creates a sink that just returns an error + +local function sinkerror(err) + return function() + return nil, err + end +end + +sink.error = sinkerror + +-- creates a file sink + +function sink.file(handle, io_err) + if handle then + return function(chunk, err) + if not chunk then + handle:close() + return 1 + else + return handle:write(chunk) + end + end + else + return sinkerror(io_err or "unable to open file") + end +end + +-- chains a sink with one or several filter(s) + +function sink.chain(f, snk, ...) + if ... then + local args = { f, snk, ... } + snk = remove(args, #args) + f = filter.chain(unpack(args)) + end + return function(chunk, err) + if chunk ~= "" then + local filtered = f(chunk) + local done = chunk and "" + while true do + local ret, snkerr = snk(filtered, err) + if not ret then + return nil, snkerr + end + if filtered == done then + return 1 + end + filtered = f(done) + end + else + return 1 + end + end +end + +-- pumps one chunk from the source to the sink + +function pump.step(src, snk) + local chunk, src_err = src() + local ret, snk_err = snk(chunk, src_err) + if chunk and ret then + return 1 + else + return nil, src_err or snk_err + end +end + +-- pumps all data from a source to a sink, using a step function + +function pump.all(src, snk, step) + if not step then + step = pump.step + end + while true do + local ret, err = step(src, snk) + if not ret then + if err then + return nil, err + else + return 1 + end + end + end +end + +if logs then + _G.ltn12 = ltn12 + package.loaded.ltn12 = ltn12 + -- report("module (re)installed") +end + +return ltn12 diff --git a/tex/context/base/mkiv/util-soc-imp-mime.lua b/tex/context/base/mkiv/util-soc-imp-mime.lua new file mode 100644 index 000000000..b1a5827ac --- /dev/null +++ b/tex/context/base/mkiv/util-soc-imp-mime.lua @@ -0,0 +1,105 @@ +-- original file : mime.lua +-- for more into : see util-soc.lua + +local type, tostring = type, tostring + +local mime = require("mime.core") +local ltn12 = ltn12 or require("ltn12") + +local filtercycle = ltn12.filter.cycle + +local report = logs and logs.reporter("mime") or function(fmt,first,...) + if fmt then + fmt = "mime: " .. fmt + if first then + print(format(fmt,first,...)) + else + print(fmt) + end + end +end + +mime.report = report + +local encodet = { } +local decodet = { } +local wrapt = { } + +mime.encodet = encodet +mime.decodet = decodet +mime.wrapt = wrapt + +local mime_b64 = mime.b64 +local mime_qp = mime.qp +local mime_unb64 = mime.unb64 +local mime_unqp = mime.unqp +local mime_wrp = mime.wrp +local mime_qpwrp = mime.qpwrp +local mime_eol = mime_eol +local mime_dot = mime_dot + +encodet['base64'] = function() + return filtercycle(mime_b64,"") +end + +encodet['quoted-printable'] = function(mode) + return filtercycle(mime_qp, "", mode == "binary" and "=0D=0A" or "\r\n") +end + +decodet['base64'] = function() + return filtercycle(mime_unb64, "") +end + +decodet['quoted-printable'] = function() + return filtercycle(mime_unqp, "") +end + +local wraptext = function(length) + if not length then + length = 76 + end + return filtercycle(mime_wrp, length, length) +end + +local wrapquoted = function() + return filtercycle(mime_qpwrp, 76, 76) +end + +wrapt['text'] = wraptext +wrapt['base64'] = wraptext +wrapt['default'] = wraptext +wrapt['quoted-printable'] = wrapquoted + +function mime.normalize(marker) + return filtercycle(mime_eol, 0, marker) +end + +function mime.stuff() + return filtercycle(mime_dot, 2) +end + +local function choose(list) + return function(name, opt1, opt2) + if type(name) ~= "string" then + name, opt1, opt2 = "default", name, opt1 + end + local filter = list[name or "nil"] + if filter then + return filter(opt1, opt2) + else + report("error: unknown key '%s'",tostring(name)) + end + end +end + +mime.encode = choose(encodet) +mime.decode = choose(decodet) +mime.wrap = choose(wrapt) + +if logs then + _G.mime = mime + package.loaded.mime = mime + -- report("module (re)installed") +end + +return mime diff --git a/tex/context/base/mkiv/util-soc-imp-reset.lua b/tex/context/base/mkiv/util-soc-imp-reset.lua new file mode 100644 index 000000000..a4a489b0f --- /dev/null +++ b/tex/context/base/mkiv/util-soc-imp-reset.lua @@ -0,0 +1,13 @@ +local loaded = package.loaded + +loaded["socket"] = nil +loaded["copas"] = nil +loaded["ltn12"] = nil +loaded["mbox"] = nil +loaded["mime"] = nil +loaded["socket.url"] = nil +loaded["socket.headers"] = nil +loaded["socket.tp"] = nil +loaded["socket.http"] = nil +loaded["socket.ftp"] = nil +loaded["socket.smtp"] = nil diff --git a/tex/context/base/mkiv/util-soc-imp-smtp.lua b/tex/context/base/mkiv/util-soc-imp-smtp.lua new file mode 100644 index 000000000..c13a02688 --- /dev/null +++ b/tex/context/base/mkiv/util-soc-imp-smtp.lua @@ -0,0 +1,265 @@ +-- original file : smtp.lua +-- for more into : see util-soc.lua + +local type, setmetatable, next = type, setmetatable, next +local find, lower, format = string.find, string.lower, string.format +local osdate, osgetenv = os.data, os.getenv +local random = math.random + +local socket = socket or require("socket") +local headers = socket.headers or require("socket.headers") +local ltn12 = ltn12 or require("ltn12") +local tp = socket.tp or require("socket.tp") +local mime = mime or require("mime") + +local mimeb64 = mime.b64 +local mimestuff = mime.stuff + +local skipsocket = socket.skip +local trysocket = socket.try +local newtrysocket = socket.newtry +local protectsocket = socket.protect + +local normalizeheaders = headers.normalize +local lowerheaders = headers.lower + +local createcoroutine = coroutine.create +local resumecoroutine = coroutine.resume +local yieldcoroutine = coroutine.resume + +local smtp = { + TIMEOUT = 60, + SERVER = "localhost", + PORT = 25, + DOMAIN = osgetenv("SERVER_NAME") or "localhost", + ZONE = "-0000", +} + +socket.smtp = smtp + +local methods = { } +local mt = { __index = methods } + +function methods.greet(self, domain) + local try = self.try + local tp = self.tp + try(tp:check("2..")) + try(tp:command("EHLO", domain or _M.DOMAIN)) + return skipsocket(1, try(tp:check("2.."))) +end + +function methods.mail(self, from) + local try = self.try + local tp = self.tp + try(tp:command("MAIL", "FROM:" .. from)) + return try(tp:check("2..")) +end + +function methods.rcpt(self, to) + local try = self.try + local tp = self.tp + try(tp:command("RCPT", "TO:" .. to)) + return try(tp:check("2..")) +end + +function methods.data(self, src, step) + local try = self.try + local tp = self.tp + try(tp:command("DATA")) + try(tp:check("3..")) + try(tp:source(src, step)) + try(tp:send("\r\n.\r\n")) + return try(tp:check("2..")) +end + +function methods.quit(self) + local try = self.try + local tp = self.tp + try(tp:command("QUIT")) + return try(tp:check("2..")) +end + +function methods.close(self) + return self.tp:close() +end + +function methods.login(self, user, password) + local try = self.try + local tp = self.tp + try(tp:command("AUTH", "LOGIN")) + try(tp:check("3..")) + try(tp:send(mimeb64(user) .. "\r\n")) + try(tp:check("3..")) + try(tp:send(mimeb64(password) .. "\r\n")) + return try(tp:check("2..")) +end + +function methods.plain(self, user, password) + local try = self.try + local tp = self.tp + local auth = "PLAIN " .. mimeb64("\0" .. user .. "\0" .. password) + try(tp:command("AUTH", auth)) + return try(tp:check("2..")) +end + +function methods.auth(self, user, password, ext) + if not user or not password then + return 1 + end + local try = self.try + if find(ext, "AUTH[^\n]+LOGIN") then + return self:login(user,password) + elseif find(ext, "AUTH[^\n]+PLAIN") then + return self:plain(user,password) + else + try(nil, "authentication not supported") + end +end + +function methods.send(self, mail) + self:mail(mail.from) + local receipt = mail.rcpt + if type(receipt) == "table" then + for i=1,#receipt do + self:rcpt(receipt[i]) + end + elseif receipt then + self:rcpt(receipt) + end + self:data(ltn12.source.chain(mail.source, mimestuff()), mail.step) +end + +local function opensmtp(self, server, port, create) + if not server or server == "" then + server = smtp.SERVER + end + if not port or port == "" then + port = smtp.PORT + end + local s = { + tp = trysocket(tp.connect(server, port, smtp.TIMEOUT, create)), + try = newtrysocket(function() + s:close() + end), + } + setmetatable(s, mt) + return s +end + +smtp.open = opensmtp + +local nofboundaries = 0 + +local function newboundary() + nofboundaries = nofboundaries + 1 + return format('%s%05d==%05u', osdate('%d%m%Y%H%M%S'), random(0,99999), nofboundaries) +end + +local send_message + +local function send_headers(headers) + yieldcoroutine(normalizeheaders(headers)) +end + +local function send_multipart(message) + local boundary = newboundary() + local headers = lowerheaders(message.headers) + local body = message.body + local preamble = body.preamble + local epilogue = body.epilogue + local content = headers['content-type'] or 'multipart/mixed' + headers['content-type'] = content .. '; boundary="' .. boundary .. '"' + send_headers(headers) + if preamble then + yieldcoroutine(preamble) + yieldcoroutine("\r\n") + end + for i=1,#body do + yieldcoroutine("\r\n--" .. boundary .. "\r\n") + send_message(body[i]) + end + yieldcoroutine("\r\n--" .. boundary .. "--\r\n\r\n") + if epilogue then + yieldcoroutine(epilogue) + yieldcoroutine("\r\n") + end +end + +local default_content_type = 'text/plain; charset="UTF-8"' + +local function send_source(message) + local headers = lowerheaders(message.headers) + if not headers['content-type'] then + headers['content-type'] = default_content_type + end + send_headers(headers) + local getchunk = message.body + while true do + local chunk, err = getchunk() + if err then + yieldcoroutine(nil, err) + elseif chunk then + yieldcoroutine(chunk) + else + break + end + end +end + +local function send_string(message) + local headers = lowerheaders(message.headers) + if not headers['content-type'] then + headers['content-type'] = default_content_type + end + send_headers(headers) + yieldcoroutine(message.body) +end + +function send_message(message) + local body = message.body + if type(body) == "table" then + send_multipart(message) + elseif type(body) == "function" then + send_source(message) + else + send_string(message) + end +end + +local function adjust_headers(message) + local headers = lowerheaders(message.headers) + if not headers["date"] then + headers["date"] = osdate("!%a, %d %b %Y %H:%M:%S ") .. (message.zone or smtp.ZONE) + end + if not headers["x-mailer"] then + headers["x-mailer"] = socket._VERSION + end + headers["mime-version"] = "1.0" + return headers +end + +function smtp.message(message) + message.headers = adjust_headers(message) + local action = createcoroutine(function() + send_message(message) + end) + return function() + local ret, a, b = resumecoroutine(action) + if ret then + return a, b + else + return nil, a + end + end +end + +smtp.send = protectsocket(function(mail) + local snd = opensmtp(mail.server, mail.port, mail.create) + local ext = snd:greet(mail.domain) + snd:auth(mail.user, mail.password, ext) + snd:send(mail) + snd:quit() + return snd:close() +end) + +return smtp diff --git a/tex/context/base/mkiv/util-soc-imp-socket.lua b/tex/context/base/mkiv/util-soc-imp-socket.lua new file mode 100644 index 000000000..0ad685d75 --- /dev/null +++ b/tex/context/base/mkiv/util-soc-imp-socket.lua @@ -0,0 +1,190 @@ +-- original file : socket.lua +-- for more into : see util-soc.lua + +local type, tostring, setmetatable = type, tostring, setmetatable +local min = math.min +local format = string.format + +local socket = require("socket.core") + +local connect = socket.connect +local tcp4 = socket.tcp4 +local tcp6 = socket.tcp6 +local getaddrinfo = socket.dns.getaddrinfo + +local report = logs and logs.reporter("socket") or function(fmt,first,...) + if fmt then + fmt = "socket: " .. fmt + if first then + print(format(fmt,first,...)) + else + print(fmt) + end + end +end + +socket.report = report + +function socket.connect4(address, port, laddress, lport) + return connect(address, port, laddress, lport, "inet") +end + +function socket.connect6(address, port, laddress, lport) + return connect(address, port, laddress, lport, "inet6") +end + +function socket.bind(host, port, backlog) + if host == "*" or host == "" then + host = defaulthost + end + local addrinfo, err = getaddrinfo(host) + if not addrinfo then + return nil, err + end + for i=1,#addrinfo do + local alt = addrinfo[i] + local sock, err = (alt.family == "inet" and tcp4 or tcp6)() + if not sock then + return nil, err or "unknown error" + end + sock:setoption("reuseaddr", true) + local res, err = sock:bind(alt.addr, port) + if res then + res, err = sock:listen(backlog) + if res then + return sock + else + sock:close() + end + else + sock:close() + end + end + return nil, "invalid address" +end + +socket.try = socket.newtry() + +function socket.choose(list) + return function(name, opt1, opt2) + if type(name) ~= "string" then + name, opt1, opt2 = "default", name, opt1 + end + local f = list[name or "nil"] + if f then + return f(opt1, opt2) + else + report("error: unknown key '%s'",tostring(name)) + end + end +end + +local sourcet = { } +local sinkt = { } + +socket.sourcet = sourcet +socket.sinkt = sinkt + +socket.BLOCKSIZE = 2048 + +sinkt["close-when-done"] = function(sock) + return setmetatable ( + { + getfd = function() return sock:getfd() end, + dirty = function() return sock:dirty() end, + }, + { + __call = function(self, chunk, err) + if chunk then + return sock:send(chunk) + else + sock:close() + return 1 -- why 1 + end + end + } + ) +end + +sinkt["keep-open"] = function(sock) + return setmetatable ( + { + getfd = function() return sock:getfd() end, + dirty = function() return sock:dirty() end, + }, { + __call = function(self, chunk, err) + if chunk then + return sock:send(chunk) + else + return 1 -- why 1 + end + end + } + ) +end + +sinkt["default"] = sinkt["keep-open"] + +socket.sink = socket.choose(sinkt) + +sourcet["by-length"] = function(sock, length) + local blocksize = socket.BLOCKSIZE + return setmetatable ( + { + getfd = function() return sock:getfd() end, + dirty = function() return sock:dirty() end, + }, + { + __call = function() + if length <= 0 then + return nil + end + local chunk, err = sock:receive(min(blocksize,length)) + if err then + return nil, err + end + length = length - #chunk + return chunk + end + } + ) +end + +sourcet["until-closed"] = function(sock) + local blocksize = socket.BLOCKSIZE + local done = false + return setmetatable ( + { + getfd = function() return sock:getfd() end, + dirty = function() return sock:dirty() end, + }, { + __call = function() + if done then + return nil + end + local chunk, status, partial = sock:receive(blocksize) + if not status then + return chunk + elseif status == "closed" then + sock:close() + done = true + return partial + else + return nil, status + end + end + } + ) +end + +sourcet["default"] = sourcet["until-closed"] + +socket.source = socket.choose(sourcet) + +if logs then + _G.socket = socket + package.loaded.socket = socket + -- report("module (re)installed") +end + +return socket diff --git a/tex/context/base/mkiv/util-soc-imp-tp.lua b/tex/context/base/mkiv/util-soc-imp-tp.lua new file mode 100644 index 000000000..de3f3f5af --- /dev/null +++ b/tex/context/base/mkiv/util-soc-imp-tp.lua @@ -0,0 +1,142 @@ +-- original file : tp.lua +-- for more into : see util-soc.lua + +local setmetatable, next, type, tonumber = setmetatable, next, type, tonumber +local find, upper = string.find, string,upper + +local socket = socket or require("socket") +local ltn12 = ltn12 or require("ltn12") + +local skipsocket = socket.skip +local sinksocket = socket.sink +local tcpsocket = socket.tcp + +local ltn12pump = ltn12.pump +local pumpall = ltn12pump.all +local pumpstep = ltn12pump.step + +local tp = { + TIMEOUT = 60, +} + +socket.tp = tp + +local function get_reply(c) + local line, err = c:receive() + local reply = line + if err then return + nil, err + end + local code, sep = skipsocket(2, find(line, "^(%d%d%d)(.?)")) + if not code then + return nil, "invalid server reply" + end + if sep == "-" then + local current + repeat + line, err = c:receive() + if err then + return nil, err + end + current, sep = skipsocket(2, find(line, "^(%d%d%d)(.?)")) + reply = reply .. "\n" .. line + until code == current and sep == " " + end + return code, reply +end + +local methods = { } +local mt = { __index = methods } + +function methods.getpeername(self) + return self.c:getpeername() +end + +function methods.getsockname(self) + return self.c:getpeername() +end + +function methods.check(self, ok) + local code, reply = get_reply(self.c) + if not code then + return nil, reply + end + local c = tonumber(code) + local t = type(ok) + if t == "function" then + return ok(c,reply) + elseif t == "table" then + for i=1,#ok do + if find(code,ok[i]) then + return c, reply + end + end + return nil, reply + elseif find(code, ok) then + return c, reply + else + return nil, reply + end +end + +function methods.command(self, cmd, arg) + cmd = upper(cmd) + if arg then + cmd = cmd .. " " .. arg .. "\r\n" + else + cmd = cmd .. "\r\n" + end + return self.c:send(cmd) +end + +function methods.sink(self, snk, pat) + local chunk, err = self.c:receive(pat) + return snk(chunk, err) +end + +function methods.send(self, data) + return self.c:send(data) +end + +function methods.receive(self, pat) + return self.c:receive(pat) +end + +function methods.getfd(self) + return self.c:getfd() +end + +function methods.dirty(self) + return self.c:dirty() +end + +function methods.getcontrol(self) + return self.c +end + +function methods.source(self, source, step) + local sink = sinksocket("keep-open", self.c) + local ret, err = pumpall(source, sink, step or pumpstep) + return ret, err +end + +function methods.close(self) + self.c:close() + return 1 +end + +function tp.connect(host, port, timeout, create) + local c, e = (create or tcpsocket)() + if not c then + return nil, e + end + c:settimeout(timeout or tp.TIMEOUT) + local r, e = c:connect(host, port) + if not r then + c:close() + return nil, e + end + return setmetatable({ c = c }, mt) +end + +return tp diff --git a/tex/context/base/mkiv/util-soc-imp-url.lua b/tex/context/base/mkiv/util-soc-imp-url.lua new file mode 100644 index 000000000..5f2c82841 --- /dev/null +++ b/tex/context/base/mkiv/util-soc-imp-url.lua @@ -0,0 +1,266 @@ +-- original file : url.lua +-- for more into : see util-soc.lua + +local tonumber, tostring, type = tonumber, tostring, type + +local gsub, sub, match, find, format, byte, char = string.gsub, string.sub, string.match, string.find, string.format, string.byte, string.char +local insert = table.insert + +local socket = socket or require("socket") + +local url = { + _VERSION = "URL 1.0.3", +} + +socket.url = url + +function url.escape(s) + return (gsub(s, "([^A-Za-z0-9_])", function(c) + return format("%%%02x", byte(c)) + end)) +end + +local function make_set(t) -- table.tohash + local s = { } + for i=1,#t do + s[t[i]] = true + end + return s +end + +local segment_set = make_set { + "-", "_", ".", "!", "~", "*", "'", "(", + ")", ":", "@", "&", "=", "+", "$", ",", +} + +local function protect_segment(s) + return gsub(s, "([^A-Za-z0-9_])", function(c) + if segment_set[c] then + return c + else + return format("%%%02X", byte(c)) + end + end) +end + +function url.unescape(s) + return (gsub(s, "%%(%x%x)", function(hex) + return char(tonumber(hex,16)) + end)) +end + +local function absolute_path(base_path, relative_path) + if find(relative_path,"^/") then + return relative_path + end + local path = gsub(base_path, "[^/]*$", "") + path = path .. relative_path + path = gsub(path, "([^/]*%./)", function (s) + if s ~= "./" then + return s + else + return "" + end + end) + path = gsub(path, "/%.$", "/") + local reduced + while reduced ~= path do + reduced = path + path = gsub(reduced, "([^/]*/%.%./)", function (s) + if s ~= "../../" then + return "" + else + return s + end + end) + end + path = gsub(reduced, "([^/]*/%.%.)$", function (s) + if s ~= "../.." then + return "" + else + return s + end + end) + return path +end + +function url.parse(url, default) + local parsed = { } + for k, v in next, default or parsed do + parsed[k] = v + end + if not url or url == "" then + return nil, "invalid url" + end + url = gsub(url, "#(.*)$", function(f) + parsed.fragment = f + return "" + end) + url = gsub(url, "^([%w][%w%+%-%.]*)%:", function(s) + parsed.scheme = s + return "" + end) + url = gsub(url, "^//([^/]*)", function(n) + parsed.authority = n + return "" + end) + url = gsub(url, "%?(.*)", function(q) + parsed.query = q + return "" + end) + url = gsub(url, "%;(.*)", function(p) + parsed.params = p + return "" + end) + if url ~= "" then + parsed.path = url + end + local authority = parsed.authority + if not authority then + return parsed + end + authority = gsub(authority,"^([^@]*)@", function(u) + parsed.userinfo = u + return "" + end) + authority = gsub(authority, ":([^:%]]*)$", function(p) + parsed.port = p + return "" + end) + if authority ~= "" then + parsed.host = match(authority, "^%[(.+)%]$") or authority + end + local userinfo = parsed.userinfo + if not userinfo then + return parsed + end + userinfo = gsub(userinfo, ":([^:]*)$", function(p) + parsed.password = p + return "" + end) + parsed.user = userinfo + return parsed +end + +function url.build(parsed) + local url = parsed.path or "" + if parsed.params then + url = url .. ";" .. parsed.params + end + if parsed.query then + url = url .. "?" .. parsed.query + end + local authority = parsed.authority + if parsed.host then + authority = parsed.host + if find(authority, ":") then -- IPv6? + authority = "[" .. authority .. "]" + end + if parsed.port then + authority = authority .. ":" .. tostring(parsed.port) + end + local userinfo = parsed.userinfo + if parsed.user then + userinfo = parsed.user + if parsed.password then + userinfo = userinfo .. ":" .. parsed.password + end + end + if userinfo then authority = userinfo .. "@" .. authority end + end + if authority then + url = "//" .. authority .. url + end + if parsed.scheme then + url = parsed.scheme .. ":" .. url + end + if parsed.fragment then + url = url .. "#" .. parsed.fragment + end + return url +end + +function url.absolute(base_url, relative_url) + local base_parsed + if type(base_url) == "table" then + base_parsed = base_url + base_url = url.build(base_parsed) + else + base_parsed = url.parse(base_url) + end + local relative_parsed = url.parse(relative_url) + if not base_parsed then + return relative_url + elseif not relative_parsed then + return base_url + elseif relative_parsed.scheme then + return relative_url + else + relative_parsed.scheme = base_parsed.scheme + if not relative_parsed.authority then + relative_parsed.authority = base_parsed.authority + if not relative_parsed.path then + relative_parsed.path = base_parsed.path + if not relative_parsed.params then + relative_parsed.params = base_parsed.params + if not relative_parsed.query then + relative_parsed.query = base_parsed.query + end + end + else + relative_parsed.path = absolute_path(base_parsed.path or "", relative_parsed.path) + end + end + return url.build(relative_parsed) + end +end + +function url.parse_path(path) + local parsed = { } + path = path or "" + gsub(path, "([^/]+)", function (s) + insert(parsed, s) + end) + for i=1,#parsed do + parsed[i] = url.unescape(parsed[i]) + end + if sub(path, 1, 1) == "/" then + parsed.is_absolute = 1 + end + if sub(path, -1, -1) == "/" then + parsed.is_directory = 1 + end + return parsed +end + +function url.build_path(parsed, unsafe) + local path = "" + local n = #parsed + if unsafe then + for i = 1, n-1 do + path = path .. parsed[i] .. "/" + end + if n > 0 then + path = path .. parsed[n] + if parsed.is_directory then + path = path .. "/" + end + end + else + for i = 1, n-1 do + path = path .. protect_segment(parsed[i]) .. "/" + end + if n > 0 then + path = path .. protect_segment(parsed[n]) + if parsed.is_directory then + path = path .. "/" + end + end + end + if parsed.is_absolute then + path = "/" .. path + end + return path +end + +return url diff --git a/tex/context/base/mkiv/util-soc.lua b/tex/context/base/mkiv/util-soc.lua index 3a52ee86d..29b93635c 100644 --- a/tex/context/base/mkiv/util-soc.lua +++ b/tex/context/base/mkiv/util-soc.lua @@ -6,6 +6,29 @@ if not modules then modules = { } end modules ['util-soc'] = { license = "see context related readme files" } +--[[-- + +In LuaTeX we provide the socket library that is more or less the standard one for +Lua. It has been around for a while and seems to be pretty stable. The binary +module is copmpiled into LuaTeX and the accompanying .lua files are preloaded. +These files are mostly written by Diego Nehab, Andre Carregal, Javier Guerra, and +Fabio Mascarenhas with contributions from Diego Nehab, Mike Pall, David Burgess, +Leonardo Godinho, Thomas Harning Jr., and Gary NG. The originals are part of and +copyrighted by the Kepler project. + +Here we reload a slightly reworked version of these .lua files. We keep the same +(documented) interface but streamlined some fo the code. No more modules, no more +pre 5.2 Lua, etc. Also, as it loads into the ConTeXt ecosystem, we plug in some +logging. (and maybe tracing in the future). As we don't support serial ports in +LuaTeX, related code has been dropped. + +The files are reformatted so that we can more easilly add additional features +and/or tracing options. Any error introduced there is our fault! The url module +might be replaced by the one in ConTeXt. When we need mbox a suitable variant +will be provided. + +--]]-- + local format = string.format local smtp = require("socket.smtp") diff --git a/tex/context/base/mkiv/util-str.lua b/tex/context/base/mkiv/util-str.lua index 3ad30757b..29305f3bb 100644 --- a/tex/context/base/mkiv/util-str.lua +++ b/tex/context/base/mkiv/util-str.lua @@ -918,14 +918,33 @@ end -- return format("tostring(tonumber(a%s) or a%s)",n,n) -- end -local format_N = function(f) -- strips leading and trailing zeros (also accepts string) +-- local format_N = function(f) -- strips leading and trailing zeros +-- n = n + 1 +-- -- stripzero (singular) as we only have a number +-- if not f or f == "" then +-- return format("(((a%s > -0.0000000005 and a%s < 0.0000000005) and '0') or ((a%s %% 1 == 0) and format('%%i',a%s)) or lpegmatch(stripzero,format('%%.9f',a%s)))",n,n,n,n,n) +-- else +-- return format("(((a%s %% 1 == 0) and format('%%i',a%s)) or lpegmatch(stripzero,format('%%%sf',a%s)))",n,n,f,n) +-- end +-- end + +-- local format_N = function(f) -- strips leading and trailing zeros +-- n = n + 1 +-- -- stripzero (singular) as we only have a number +-- if not f or f == "" then +-- return format("(((a%s %% 1 == 0) and format('%%i',a%s)) or ((a%s > -0.0000000005 and a%s < 0.0000000005) and '0') or lpegmatch(stripzero,format('%%.9f',a%s)))",n,n,n,n,n) +-- else +-- return format("(((a%s %% 1 == 0) and format('%%i',a%s)) or lpegmatch(stripzero,format('%%%sf',a%s)))",n,n,f,n) +-- end +-- end + +local format_N = function(f) -- strips leading and trailing zeros n = n + 1 -- stripzero (singular) as we only have a number if not f or f == "" then - return format("(((a%s > -0.0000000005 and a%s < 0.0000000005) and '0') or ((a%s %% 1 == 0) and format('%%i',a%s)) or lpegmatch(stripzero,format('%%.9f',a%s)))",n,n,n,n,n) - else - return format("(((a%s %% 1 == 0) and format('%%i',a%s)) or lpegmatch(stripzero,format('%%%sf',a%s)))",n,n,f,n) - end + f = ".9" + end -- always a leading number ! + return format("(((a%s %% 1 == 0) and format('%%i',a%s)) or lpegmatch(stripzero,format('%%%sf',a%s)))",n,n,f,n) end local format_a = function(f) diff --git a/tex/context/base/mkiv/util-you.lua b/tex/context/base/mkiv/util-you.lua index 32a7e07d4..5802e7d7a 100644 --- a/tex/context/base/mkiv/util-you.lua +++ b/tex/context/base/mkiv/util-you.lua @@ -30,7 +30,6 @@ utilities.youless = youless local lpegmatch = lpeg.match local formatters = string.formatters -local sortedhash = table.sortedhash local tonumber, type, next = tonumber, type, next diff --git a/tex/context/interface/mkiv/i-context.pdf b/tex/context/interface/mkiv/i-context.pdf Binary files differindex 96e7b9c5a..28123182c 100644 --- a/tex/context/interface/mkiv/i-context.pdf +++ b/tex/context/interface/mkiv/i-context.pdf diff --git a/tex/context/interface/mkiv/i-readme.pdf b/tex/context/interface/mkiv/i-readme.pdf Binary files differindex afe48ba5a..4bd42a9cd 100644 --- a/tex/context/interface/mkiv/i-readme.pdf +++ b/tex/context/interface/mkiv/i-readme.pdf diff --git a/tex/context/modules/mkiv/s-languages-system.lua b/tex/context/modules/mkiv/s-languages-system.lua index 3b422db9f..d18050577 100644 --- a/tex/context/modules/mkiv/s-languages-system.lua +++ b/tex/context/modules/mkiv/s-languages-system.lua @@ -19,7 +19,7 @@ local ctx_bold = context.bold function moduledata.languages.system.loadinstalled() context.start() - for k, v in table.sortedhash(registered) do + for k, v in sortedhash(registered) do context.language{ k } end context.stop() diff --git a/tex/generic/context/luatex/luatex-fonts-merged.lua b/tex/generic/context/luatex/luatex-fonts-merged.lua index 2cbb670ce..4336f8a25 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 : c:/data/develop/context/sources/luatex-fonts-merged.lua -- parent file : c:/data/develop/context/sources/luatex-fonts.lua --- merge date : 08/10/18 16:51:00 +-- merge date : 08/14/18 23:10:05 do -- begin closure to overcome local limits and interference @@ -880,7 +880,7 @@ do local nonzero=digit-zero local trailingzeros=zero^1*endofstring local stripper=Cs((1-period)^0*( - (period*trailingzeros/"")+period*(nonzero^1+(trailingzeros/"")+zero^1)^0 + period*trailingzeros/""+period*(nonzero^1+(trailingzeros/"")+zero^1)^0+endofstring )) lpeg.patterns.stripzero=stripper end @@ -4375,10 +4375,9 @@ end local format_N=function(f) n=n+1 if not f or f=="" then - return format("(((a%s > -0.0000000005 and a%s < 0.0000000005) and '0') or ((a%s %% 1 == 0) and format('%%i',a%s)) or lpegmatch(stripzero,format('%%.9f',a%s)))",n,n,n,n,n) - else - return format("(((a%s %% 1 == 0) and format('%%i',a%s)) or lpegmatch(stripzero,format('%%%sf',a%s)))",n,n,f,n) - end + f=".9" + end + return format("(((a%s %% 1 == 0) and format('%%i',a%s)) or lpegmatch(stripzero,format('%%%sf',a%s)))",n,n,f,n) end local format_a=function(f) n=n+1 @@ -10737,7 +10736,16 @@ local function tounicode16sequence(unicodes) return concat(t) end local unknown=f_single(0xFFFD) -local hash=table.setmetatableindex(function(t,k) +local hash={} +local conc={} +table.setmetatableindex(hash,function(t,k) + if type(k)=="table" then + local n=#k + for l=1,n do + conc[l]=hash[k[l]] + end + return concat(conc,"",1,n) + end local v if k>=0x00E000 and k<=0x00F8FF then v=unknown @@ -10754,17 +10762,8 @@ local hash=table.setmetatableindex(function(t,k) t[k]=v return v end) -table.makeweak(hash) -local function tounicode(unicode,name) - if type(unicode)=="table" then - local t={} - for l=1,#unicode do - t[l]=hash[unicode[l]] - end - return concat(t) - else - return hash[unicode] - end +local function tounicode(unicode) + return hash[unicode] end local function fromunicode16(str) if #str==4 then |