summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/latex/lisp-on-tex/examples
diff options
context:
space:
mode:
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.pdfbin36635 -> 36628 bytes
-rw-r--r--Master/texmf-dist/doc/latex/lisp-on-tex/examples/repl.tex12
-rw-r--r--Master/texmf-dist/doc/latex/lisp-on-tex/examples/rocket.pdfbin30978 -> 30979 bytes
-rw-r--r--Master/texmf-dist/doc/latex/lisp-on-tex/examples/showfont.tex32
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
index 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
Binary files differ
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
index 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
Binary files differ
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