diff options
Diffstat (limited to 'Master/texmf-dist/doc/luatex/luaintro/03-08-1.lualtx')
-rw-r--r-- | Master/texmf-dist/doc/luatex/luaintro/03-08-1.lualtx | 57 |
1 files changed, 57 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/luatex/luaintro/03-08-1.lualtx b/Master/texmf-dist/doc/luatex/luaintro/03-08-1.lualtx new file mode 100644 index 00000000000..d1b0ebacc29 --- /dev/null +++ b/Master/texmf-dist/doc/luatex/luaintro/03-08-1.lualtx @@ -0,0 +1,57 @@ +%% +%% Ein Beispiel der DANTE-Edition +%% +%% 1. Auflage +%% +%% Beispiel 03-08-1 auf Seite 56. +%% +%% Copyright (C) 2013 Herbert Voss +%% +%% It may be distributed and/or modified under the conditions +%% of the LaTeX Project Public License, either version 1.3 +%% of this license or (at your option) any later version. +%% +%% See http://www.latex-project.org/lppl.txt for details. +%% +%% +%% ==== +% Show page(s) 1 +%% +%% +\documentclass[]{examinimal} +\pagestyle{empty} +\setlength\textwidth{352.81416pt} +\setlength\parindent{0pt} +%StartShownPreambleCommands +\documentclass{minimal} +\usepackage{luacode} +\begin{luacode*} +local out=assert(io.open("target/CP/xlist.nodes","w")) +local n=node.types() +function printnode(head) +while head do + if head.id==8 then out:write(head.id..","..head.subtype) -- ein whatsit + else out:write(string.format("%3d",head.id)) + end + if head.id==37 then out:write("\"",string.char(head.char),"\" ->") + else out:write(" ->") + end + if head.next == nil then out:write("nil") + else out:write(string.format("%3d",head.next.id)) + end + out:write(" ("..n[head.id].."->") + if head.next==nil then out:write("nil)\n") + else out:write(n[head.next.id]..")\n") + end + if head.id==0 or head.id==1 then printnode(head.head) -- Rekursion + end + head=head.next +end +return true +end +luatexbase.add_to_callback("post_linebreak_filter",printnode,"printnode") +\end{luacode*} +%StopShownPreambleCommands +\begin{document} +abc1 +\end{document} |