- ntg-context - Mailing Lists

SHA512 for LuaTeX-5.2
by Pablo Rodriguez 23 Jul '18

23 Jul '18

Dear list, I have the following sample (adapted from https://stackoverflow.com/q/50442185) ✂️------------------------------------------------------------ \starttext \startlua -- -- UTILITY FUNCTIONS -- -- transform a string of bytes in a string of hexadecimal digits local function str2hexa (s) local h = string.gsub(s, ".", function(c) return string.format("%02x", string.byte(c)) end) return h end -- transforms number 'l' into a big-endian sequence of 'n' bytes --(coded as a string) local function num2string(l, n) local s = "" for i = 1, n do --most significant byte of l local remainder = l % 256 s = string.char(remainder) .. s --remove from l the bits we have already transformed l = (l-remainder) / 256 end return s end -- transform the big-endian sequence of eight bytes starting at -- index 'i' in 's' into a number local function s264num (s, i) local n = 0 for i = i, i + 7 do n = n*256 + string.byte(s, i) end return n end -- -- MAIN SECTION -- -- FIRST STEP: INITIALIZE HASH VALUES --(second 32 bits of the fractional parts of the square roots of the first 9th through 16th primes 23..53) local HH = {} local function initH512(H) H = {0x6a09e667f3bcc908, 0xbb67ae8584caa73b, 0x3c6ef372fe94f82b, 0xa54ff53a5f1d36f1, 0x510e527fade682d1, 0x9b05688c2b3e6c1f, 0x1f83d9abfb41bd6b, 0x5be0cd19137e2179} return H end -- SECOND STEP: INITIALIZE ROUND CONSTANTS --(first 80 bits of the fractional parts of the cube roots of the first 80 primes 2..409) local k = { 0x428a2f98d728ae22, 0x7137449123ef65cd, 0xb5c0fbcfec4d3b2f, 0xe9b5dba58189dbbc, 0x3956c25bf348b538, 0x59f111f1b605d019, 0x923f82a4af194f9b, 0xab1c5ed5da6d8118, 0xd807aa98a3030242, 0x12835b0145706fbe, 0x243185be4ee4b28c, 0x550c7dc3d5ffb4e2, 0x72be5d74f27b896f, 0x80deb1fe3b1696b1, 0x9bdc06a725c71235, 0xc19bf174cf692694, 0xe49b69c19ef14ad2, 0xefbe4786384f25e3, 0x0fc19dc68b8cd5b5, 0x240ca1cc77ac9c65, 0x2de92c6f592b0275, 0x4a7484aa6ea6e483, 0x5cb0a9dcbd41fbd4, 0x76f988da831153b5, 0x983e5152ee66dfab, 0xa831c66d2db43210, 0xb00327c898fb213f, 0xbf597fc7beef0ee4, 0xc6e00bf33da88fc2, 0xd5a79147930aa725, 0x06ca6351e003826f, 0x142929670a0e6e70, 0x27b70a8546d22ffc, 0x2e1b21385c26c926, 0x4d2c6dfc5ac42aed, 0x53380d139d95b3df, 0x650a73548baf63de, 0x766a0abb3c77b2a8, 0x81c2c92e47edaee6, 0x92722c851482353b, 0xa2bfe8a14cf10364, 0xa81a664bbc423001, 0xc24b8b70d0f89791, 0xc76c51a30654be30, 0xd192e819d6ef5218, 0xd69906245565a910, 0xf40e35855771202a, 0x106aa07032bbd1b8, 0x19a4c116b8d2d0c8, 0x1e376c085141ab53, 0x2748774cdf8eeb99, 0x34b0bcb5e19b48a8, 0x391c0cb3c5c95a63, 0x4ed8aa4ae3418acb, 0x5b9cca4f7763e373, 0x682e6ff3d6b2b8a3, 0x748f82ee5defb2fc, 0x78a5636f43172f60, 0x84c87814a1f0ab72, 0x8cc702081a6439ec, 0x90befffa23631e28, 0xa4506cebde82bde9, 0xbef9a3f7b2c67915, 0xc67178f2e372532b, 0xca273eceea26619c, 0xd186b8c721c0c207, 0xeada7dd6cde0eb1e, 0xf57d4f7fee6ed178, 0x06f067aa72176fba, 0x0a637dc5a2c898a6, 0x113f9804bef90dae, 0x1b710b35131c471b, 0x28db77f523047d84, 0x32caab7b40c72493, 0x3c9ebe0a15c9bebc, 0x431d67c49c100d4c, 0x4cc5d4becb3e42b6, 0x597f299cfc657e2a, 0x5fcb6fab3ad6faec, 0x6c44198c4a475817 } -- THIRD STEP: PRE-PROCESSING (padding) local function preprocess(toProcess, len) --append a single '1' bit --append K '0' bits, where K is the minimum number >= 0 such that L + 1 + K = 896mod1024 local extra = 128 - (len + 9) % 128 len = num2string(8 * len, 8) toProcess = toProcess .. "\\128" .. string.rep("\\0", extra) .. len assert(#toProcess % 128 == 0) return toProcess end local function rrotate(rot, n) return (rot >> n) | ((rot << 64 - n)) end local function digestblock(msg, i, H) local w = {} for j = 1, 16 do w[j] = s264num(msg, i + (j - 1)*4) end for j = 17, 80 do local v = w[j - 15] local s0 = rrotate(v, 1) ~ rrotate(v, 8) ~ (v >> 7) v = w[j - 2] w[j] = w[j - 16] + s0 + w[j - 7] + ((rrotate(v, 19) ~ rrotate(v, 61)) ~ (v >> 6)) end local a, b, c, d, e, f, g, h = H[1], H[2], H[3], H[4], H[5], H[6], H[7], H[8] for i = 1, 80 do a, b, c, d, e, f, g, h = a , b , c , d , e , f , g , h local s0 = rrotate(a, 28) ~ (rrotate(a, 34) ~ rrotate(a, 39)) local maj = ((a & b) ~ (a & c)) ~ (b & c) local t2 = s0 + maj local s1 = rrotate(e, 14) ~ (rrotate(e, 18) ~ rrotate(e, 41)) local ch = (e & f) ~ (~e & g) local t1 = h + s1 + ch + k[i] + w[i] h, g, f, e, d, c, b, a = g, f, e, d + t1, c, b, a, t1 + t2 end H[1] = (H[1] + a) H[2] = (H[2] + b) H[3] = (H[3] + c) H[4] = (H[4] + d) H[5] = (H[5] + e) H[6] = (H[6] + f) H[7] = (H[7] + g) H[8] = (H[8] + h) end local function finalresult512 (H) -- Produce the final hash value: return str2hexa(num2string(H[1], 8)..num2string(H[2], 8)..num2string(H[3], 8)..num2string(H[4], 8).. num2string(H[5], 8)..num2string(H[6], 8)..num2string(H[7], 8)..num2string(H[8], 8)) end -- Returns the hash512 for the given string. local function hash512(msg) msg = preprocess(msg, #msg) local H = initH512(HH) -- Process the message in successive 1024-bit (128 bytes) chunks: for i = 1, #msg, 128 do digestblock(msg, i, H) end context finalresult512(H) end \stoplua \def\hashfive#1{\ctxlua{hash512("#1")}} \hashfive{a} \stoptext ✂️------------------------------------------------------------ I’m afraid I cannot make it working, since LuaTeX complains about hash512 being nil. Could anyone explain me what I’m doing wrong? Many thanks fory your help, Pablo -- http://www.ousia.tk

2 6

Align the chapter-title to the middle of the header
by Huseyin Özoguz 23 Jul '18

23 Jul '18

Dear list, how can I align the text of the header in the double-page layout to the middle? I want something like that: \setupheadertexts [{\startalignment[middle] \definedfont[name:Gentium_Basic at 9pt]\getmarking[chapter] \stopalignment}][] [][] Of course, that does not work. By default, there are only the four places to set the text in the header: left and right in the header for both pages. How to place the chapter-title (or whatever) into the middle of the header? Thanks. Huseyin

3 2

Problem with pagella font (beta)
by Fabrice Couvreur 23 Jul '18

23 Jul '18

Hello, I only use the standalone version of ConteXt with Emacs. I can not use the pagella font anymore because the text is in bold type. Wolfgang told me a discussion about this problem that still does not seem to be resolved. By cons, no problem with ConteXt of Texlive 2018. Thank you Fabrice

2 2

two questions about endnotes
by Robert Zydenbos 23 Jul '18

23 Jul '18

First question: I am considering using endnotes in my book instead of footnotes. There is a command \endnote, but I do not see the notes appear anywhere in my text. What am I doing wrong? What I tried: \starttext Dit is iets met een endnote.\endnote{Wat een zooi. Werkt het?} \page Het zou moeten werken,\endnote{Ja, toch?} want ik zie tekens in de tekst. \stoptext Second question: Is it possible to use endnotes as well as footnotes in the same text? -- Robert

2 2

page ranges in \markpage
by Pablo Rodriguez 22 Jul '18

22 Jul '18

Hans, would it be possible that \markpage could have page ranges as in the following sample? \setuplayout [backspace=0pt, topspace=0pt, width=middle, height=middle, location=middle, header=0pt, footer=0pt] \setupinteraction[state=start] \setupinteractionscreen[option={portrait, paper}, print=pages] \markpage[pages][100-300] \starttext \insertpages[i-context.pdf][width=0pt] \stoptext Many thanks for your help, Pablo -- http://www.ousia.tk

3 7

startlines in margin
by Rik Kabel 22 Jul '18

22 Jul '18

List, Can somebody suggest an export-friendly mechanism to put fixed lines into the margin? Use case: I am reproducing a 17th century text with marginal footnotes. I do not need a solution that works with both pdf and xml, but there is less mode fiddling if it does. This example: \setupbackend [export=yes] \starttext \subject{\tex{startlines} in margin} \startparagraph \margintext{\startlines abc def ghi jkl mno pqr \stoplines} \input knuth \stopparagraph \subject{\tex{crlf} in margin} \startparagraph \margintext{abc def\crlf ghi\crlf jkl\crlf mno pqr} \input knuth \stopparagraph \subject{\tex{\textbackslash} in margin} \startparagraph \margintext{abc def\\ ghi\\ jkl\\ mno pqr} \input knuth \stopparagraph \subject{\tex{startlines} in main flow} \startparagraph \startlines abc def ghi jkl mno pqr \stoplines \input knuth \stopparagraph \stoptext generates the following xml with \startlines and \crlf: <margintext detail="margintext" chain="margintext"><lines detail="lines" chain="lines"><line>abc def ghi jkl mno pqr</line></lines></margintext> and no <lines> element at all with \\, while it generates proper lines in the main flow: <lines detail="lines" chain="lines"><line>abc def</line><line>ghi</line><line>jkl</line><line>mno pqr</line></lines> I also note that \startlines in \margintext does not work in pdf output, but both \crlf and \\ do, and \bpar..\epar works in margintext for pdf output but breaks strangely in xml (the \epar ends the margintext element and the rest is set as body flow paragraphs). -- Rik

1 0

Question to covers
by Tomas Hala 21 Jul '18

21 Jul '18

Hi all, I would like to ask whether we have got some module or macros for comfortable proposing of covers for different kinds of binding, containing automatic computation of the corresponding measurments and displaying the parts for bookbinders (eg cutting lines, protection zones, bends, pasting parts etc.) The best, Tomáš

4 4

Some questions about the presentation of a book
by Fabrice Couvreur 21 Jul '18

21 Jul '18

Hello, I would like to modify the file below to : - center the title "Sommaire" - delete the line of the first page - center the title of each chapter - delete the line on each page with the title of the chapter Thanks for your help Fabrice ################################################################################## \usemodule[visual] \mainlanguage[fr] \setuphead[chapter][commandbefore={:\,},header=empty] \setuphead[subsection][style=bold] \setuphead[section] [distance=\zeropoint, style=bold, commandbefore={\space\endash\space}] \setuphead[title][commandbefore={}] \setuplayout [height=middle, width=middle, backspace=2cm, topspace=10mm, bottomspace=10mm, header=10mm, footer=10mm, footerdistance=10mm, headerdistance=10mm] \definelayout [firstpage] [header=empty] \setupbackgrounds[header][text][bottomframe=on] \setupheadertexts[{\getmarking[section]}] [pagenumber] [{\getmarking[chapter]}] [pagenumber] \setuppagenumbering[alternative=,location=] \setuplabeltext[fr][chapter=Chapitre ] \definestructureconversionset [structure] [n, R, n, n, n] \definestructureconversionset [digits] [n, n, n, n, n] \setupheads[sectionconversionset=structure] \setuplist[chapter][style=bold,width=5mm] \starttext \starttitle[title={\bf Sommaire}] \placelist [chapter,section,subsection] [criterium=all, alternative=c] \stoptitle \startchapter[title=First chapter] \startsection[title=Fist section] \startsubsection[title=First subsection] \dorecurse{10}{\fakewords{120}{120}\par} \stopsubsection \stopsection \stopchapter \startchapter[title=Second chapter] \startsection[title=Second section] \startsubsection[title=Second subsection] \dorecurse{10}{\fakewords{120}{120}\par} \stopsubsection \stopsection \stopchapter \stoptext ##################################################################################

2 2

Crossref in bibtex
by context＠joshuamoerman.nl 20 Jul '18

20 Jul '18

Hi all, I am now playing around with ConTeXt to see if it fits my needs for writing my thesis :-). One thing which did not work for me was the use of crossref in bibtex entries. This feature is used when generating bibtex entries via DBLP (which is quite standard in computer science). It is used to have one single entry for the journal/conference which the lists the editors. Consequently you can have several paper entries referring to that, without duplicating the editors. This has worked fine for me in LaTeX. But in ConTeXt it seems the crossref is not used at all. Example: \usebtxdefinitions[apa] \usebtxdataset[biblio.bib] \starttext See \cite{PAPER}. Version: \contextversion. \placelistofpublications \stoptext @inproceedings{PAPER, author = {First Last}, title = {PaperTitle}, booktitle = {Conference of BlaBla}, year = {2017}, crossref = {CONF}, } @proceedings{CONF, title = {Conference on BlaBla}, year = {2017}, editor = {Edith Tor}, publisher = {Springer}, } Result (copied from pdf): See (Last, 2017). Version: 2018.07.02 14:39. Last, F. (2017). PaperTitle. In PaperTitle. Conference of BlaBla. Author. Expected (made by manually copying editor/publisher): See (Last, 2017). Version: 2018.07.02 14:39. Last, F. (2017). PaperTitle. In E. Tor (Ed.) Conference of BlaBla. Springer. Should I setup the style differently? Or is the crossref feature not supported? Thanks in advance, All the best, Joshua

2 2

Problems with letter module
by Lutz Haseloff 20 Jul '18

20 Jul '18

Hi Wolfgang, hi all, I would like to use the letter module. With my minimal letter i don't get pagenumbering and background working. They don't appear in the pdf. ------ \setupbodyfont[cambria] \usemodule[letter] \useletterstyle[dinb] \mainlanguage[de] \starttext \setupletter [signature={Unterschrift}, fromname={Absender}, fromaddress={Straße\\Ort}, toname={An}, toaddress={Adresse}] % correspondence.pdf, p. 73 \startsetups letter:head \rightaligned{Seite \correspagenumber\ von \numberofcorrespages} \stopsetups % correspondence.pdf, p. 71 \startuseMPgraphic{dactylus} draw unitsquare xyscaled (OverlayWidth-2cm,OverlayHeight-2cm) smoothed 1cm withpen pencircle scaled 2 ; fill fullcircle scaled 1.5cm shifted (1cm,1cm) withcolor \MPcolor{orange} ; \stopuseMPgraphic \setupletterstyle[background=\useMPgraphic{dactylus}] \startletter [opening={Anrede}, subject={Betreff}, closing={Gruß}] \input tufte \input knuth \input ward \stopletter \stoptext ------ Recent context beta, luatex 1.08 6731 Greetings Lutz

2 2