diff options
Diffstat (limited to 'Master/texmf-dist/doc/latex/lisp-on-tex/examples')
-rw-r--r-- | Master/texmf-dist/doc/latex/lisp-on-tex/examples/fact.pdf | bin | 36635 -> 36628 bytes | |||
-rw-r--r-- | Master/texmf-dist/doc/latex/lisp-on-tex/examples/repl.tex | 12 | ||||
-rw-r--r-- | Master/texmf-dist/doc/latex/lisp-on-tex/examples/rocket.pdf | bin | 30978 -> 30979 bytes | |||
-rw-r--r-- | Master/texmf-dist/doc/latex/lisp-on-tex/examples/showfont.tex | 32 |
4 files changed, 44 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/latex/lisp-on-tex/examples/fact.pdf b/Master/texmf-dist/doc/latex/lisp-on-tex/examples/fact.pdf Binary files differindex bef54e029ca..def5e3421a7 100644 --- a/Master/texmf-dist/doc/latex/lisp-on-tex/examples/fact.pdf +++ b/Master/texmf-dist/doc/latex/lisp-on-tex/examples/fact.pdf diff --git a/Master/texmf-dist/doc/latex/lisp-on-tex/examples/repl.tex b/Master/texmf-dist/doc/latex/lisp-on-tex/examples/repl.tex new file mode 100644 index 00000000000..9a4d1a9bdbd --- /dev/null +++ b/Master/texmf-dist/doc/latex/lisp-on-tex/examples/repl.tex @@ -0,0 +1,12 @@ +\documentclass{article} +\usepackage{lisp-on-tex} +\lispinterp{% + (\define \repl (\lambda () + (\begin + (\stdprint (\eval (\read))) + (\repl)))) +} +\begin{document} + \typeout{LISP on TeX interpretor mode} + \lispinterp{(\repl)} +\end{document}
\ No newline at end of file diff --git a/Master/texmf-dist/doc/latex/lisp-on-tex/examples/rocket.pdf b/Master/texmf-dist/doc/latex/lisp-on-tex/examples/rocket.pdf Binary files differindex 482cb62993b..d4bcb95ca50 100644 --- a/Master/texmf-dist/doc/latex/lisp-on-tex/examples/rocket.pdf +++ b/Master/texmf-dist/doc/latex/lisp-on-tex/examples/rocket.pdf diff --git a/Master/texmf-dist/doc/latex/lisp-on-tex/examples/showfont.tex b/Master/texmf-dist/doc/latex/lisp-on-tex/examples/showfont.tex new file mode 100644 index 00000000000..31200d9796a --- /dev/null +++ b/Master/texmf-dist/doc/latex/lisp-on-tex/examples/showfont.tex @@ -0,0 +1,32 @@ +\documentclass{article} +\usepackage{lisp-on-tex} +\newcount\hoge \hoge\endlinechar +\endlinechar=-1 +\read16 to\tmp +\endlinechar=\hoge +\global\font\testfont="\tmp" +\lispinterp{ + (\define \foldl (\lambda (\func \init \list) + (\lispif (\= \list ()) + \init + (\foldl \func (\func \init (\car \list)) (\cdr \list))))) + (\define \createtoken (\lambda (\code) + (\concat '\iffontchar\testfont' (\concat (\intTOstring \code) 't\else f\fi' )))) + (\define \MAX :"30000)} +\begin{document} +\noindent +\lispinterp{ + (\letrec ((\count :0) + (\loop (\lambda () + (\lispif (\< \MAX \count) () + (\begin + (\lispif (\= 't' (\expand (\createtoken \count))) + (\texprint (\group (\concat '\testfont\char' (\intTOstring \count)))) + ()) + (\texprint '\hskip0pt plus1pt') + (\immediatewrite) + (\setB \count (\+ \count :1)) + (\loop)))))) + (\loop)) + } +\end{document}
\ No newline at end of file |