luaintro (12feb13)

git-svn-id: svn://tug.org/texlive/trunk@29093 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 49 insertions, 0 deletions

diff --git a/Master/texmf-dist/doc/luatex/luaintro/03-11-6.lualtx b/Master/texmf-dist/doc/luatex/luaintro/03-11-6.lualtx
new file mode 100644
index 00000000000..e2711168191
--- /dev/null
+++ b/Master/texmf-dist/doc/luatex/luaintro/03-11-6.lualtx
@@ -0,0 +1,49 @@
+%% 
+%%  Ein Beispiel der DANTE-Edition
+%%  
+%%  1. Auflage
+%% 
+%%  Beispiel 03-11-6 auf Seite 65.
+%% 
+%%  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{52.91997pt}
+\setlength\parindent{0pt}
+%StartShownPreambleCommands
+\usepackage{luacode}
+\begin{luacode*}
+function checknode(head)
+local START=head
+while head do
+ if head.id==37 then
+  if head.char==string.byte("1") then
+   n=node.new(37) n.char=string.byte("0")
+   n.font=head.font
+   head,n=node.insert_before(START,head,n)
+   head=n.next
+  end
+ end
+ if head.id==0 or head.id==1 then checknode(head.head) end
+ head=head.next
+end
+return true
+end
+luatexbase.add_to_callback("post_linebreak_filter",checknode,"checknode")
+\end{luacode*}
+%StopShownPreambleCommands
+\begin{document}
+abc1
+\end{document}