LuaTeXWiki - User contributions [en]

Main Page

2021-02-22T23:46:36Z

Rkrug: Added a link to TeX_without_TeX_revised_and_expanded

== Welcome to the LuaTeX wiki ==

This is a wiki for [http://www.luatex.org LuaTeX], a typesetting engine derived from
[http://en.wikipedia.org/wiki/TeX TeX] that includes [http://www.lua.org Lua] as an embedded scripting language.

See [[Special:Allpages|all the articles]] or the [[Special:Recentchanges|recent changes]].

* [http://www.mediawiki.org/wiki/Help:Formatting How to edit wiki pages]
* [[Bug tracking|Bug tracking]]: Mantis [http://tracker.luatex.org bug tracker]

== Some articles ==

* [[Documentation and help]] points to other online resources (manuals, mailing list, etc.) related to LuaTeX.
* [[Writing Lua in TeX]] explains how to write Lua code in a TeX document (and back).
* [[Attributes]] introduces LuaTeX's thrilling new concept.
* Pages on callbacks:
** [[Callbacks]] introduces callbacks and how to use them.
** There is a page on the [[Post linebreak filter|<tt>post_linebreak_filter</tt>]] callback, explaining and illustrating it with a couple of examples. The [[Show the hyphenation points]] article is another example of use.
** The page on [[process input buffer|the <tt>process_input_buffer</tt> callback]] illustrates how to read documents with non-UTF-8 encoding, and how to write TeX with lightweight markup instead of the usual commands.
** Another callback is [[show error hook|<tt>show_error_hook</tt>]], which lets you enliven your error messages!
** You can fake XeTeX's interchar tokens with the [[token filter|<tt>token_filter</tt>]].
* [[TeX without TeX]] is about using TeX's functionality (typesetting, pdf writing) only using Lua code (no <tt>\TeX</tt> macros).
* [[TeX_without_TeX_revised_and_expanded]] is a revision and expansion of the above.
* [[fontsampler|Create a fontsampler]] using plain LuaTeX and <tt>luaotfload</tt>.
* [[Annotate math expressions]] in PDF with a bounding box using LuaLaTeX.

== Packages on LuaTeX ==

* [http://ctan.org/pkg/lua-visual-debug lua-visual-debug] Visual debugging with LuaLaTeX.
* [https://github.com/koppor/luabibentry luabibentry] Repeat BibTeX entries in a LuaLaTeX document body.
* [http://ctan.org/pkg/luacode luacode] Helper for executing lua code from within TeX.
* [http://en.sourceforge.jp/projects/luatex-ja/ LuaTeX-ja] LuaTeX-ja is a macro package to typeset Japanese(also Chinese) texts using Lua(La)TeX.
* [http://ctan.org/pkg/luaindex luaindex] Create index using lualatex.
* [http://ctan.org/pkg/luainputenc luainputenc] Replacing inputenc for use in LuaTeX.
* [http://ctan.org/pkg/lualatex-math lualatex-math] Fixes for mathematics-related LuaLaTeX issues.
* [http://ctan.org/pkg/lualibs lualibs] Additional Lua functions for LuaTeX macro programmers.
* [http://ctan.org/pkg/luamplib luamplib] Use LuaTeX's built-in MetaPost interpreter.
* [http://ctan.org/pkg/luaotfload luaotfload] OpenType layout system for Plain TeX and LaTeX.
* [http://ctan.org/pkg/luasseq luasseq] Drawing spectral sequences in LuaLaTeX.
* [http://ctan.org/pkg/luatexbase luatexbase] Basic resource management for LuaTeX code.

== Useful modules ==

* [http://ctan.org/pkg/nodetree nodetree] visualize node lists in a tree view

* [https://gist.github.com/556247 viznodelist] LuaTeX nodelist visualization

== From the old bluwiki.com ==

(Mostly by and thanks to [http://omega.enstb.org/yannis/ Yannis Haralambous])

* An example of code [[traversing TeX nodes]] before an horizontal list goes through the line breaking engine;
* An example of code [[traversing tokens]] just before execution or expansion;
* you want to [[explore the table obtained from a TrueType font]], loaded by <tt>font.read_ttf</tt>;
* you want to [[explore the internal font table]] of a pre-loaded font or of a font you have loaded by <tt>\font</tt> and then used for at least one glyph;
* how to [[use a TrueType font]] without going through a TFM or a OFM file;
* how to do kinsoku ([[Japanese and more generally CJK typesetting]]);
* you want a newline in your log file or on the terminal? add <tt>\string\n</tt> to your string;
* you want to [[sort a token list]];
* you want to [[split a comma-separated list]];
* you want to [[encrypt your document using ROT13]];
* you want to [[typeset non-TeX files by converting them using Lua code]];
* example code to [[mirror characters with Bidi_Mirrored property]];
* using mplib to write [[metapost with LuaTeX]]

TeX without TeX revised and expanded

2021-02-22T23:38:18Z

Rkrug: Created page with " == About == This is an update and expansion of TeX without TeX --- using TeX's functionality (typesetting, pdf writing) using only Lua code (no \TeX macros). It is (I b..."

== About ==

This is an update and expansion of [[TeX without TeX]] --- using TeX's
functionality (typesetting, pdf writing) using only Lua code (no \TeX
macros).

It is (I believe) an adequate framework for developing a complete
type-setting system; although one dedicated to a specific task, rather
than a general purpose system such as LaTeX or ConTeXt. It includes a
couple of example formatting commands (\Emph and \Bold), titles
(\Title), the ability to include other subsidiary text files (\Input)
and footnotes (\Footnote). It can be easily adapted and expanded to
suit your needs.

I am not much of a programmer, and knew little about TeX and even less
about Lua when I started this, so there is undoubtedly much that can
be improved. All questions, comments, suggestions, and corrections
will be appreciated. You can reach me at "destiny6 <AT> mac <DOT>
com".

== Pre-requisites ==

This system requires the luatex-plain format (from ConTeXt), so that
we have access to Open Type Fonts and other goodies. This is what I
did on my system:

<ol>
<li> Find the luatex-plain.tex file. On my system (with TeX-Live 2020)
it was at:

<pre>
/usr/local/share/texmf-dist/tex/generic/context/luatex/luatex-plain.tex
</pre>
</li>

<li> If you just build a format file,

<pre>
luatex --ini /usr/local/share/texmf-dist/tex/generic/context/luatex/luatex-plain.tex
</pre>

you will probably get warnings about using the "merged" file, and not
the more current and supported files. Delete, move, or rename this
file. On my system I did:

<pre>
doas mv /usr/local/share/texmf-dist/tex/generic/context/luatex/luatex-fonts-merged.lua /usr/local/share/texmf-dist/tex/generic/context/luatex/luatex-fonts-merged.lua.bak
</pre>
</li>

<li> Now, build the format file.

<pre>
luatex --ini /usr/local/share/texmf-dist/tex/generic/context/luatex/luatex-plain.tex
</pre>
</li>

<li> We are almost done. If the resulting format file (luatex-plain.fmt)
is in the current working directory, you can use it with something
like:

<pre>
luatex --fmt luatex-plain test
</pre>
</li>

<li> But, this is too restrictive.

<ol>
<li> Create a new executable with the name luatex-plain. Something like:

<pre>
ln -s `which luatex` /usr/local/bin/luatex-plain
</pre>
</li>

<li> When you try to invoke it:

<pre>
luatex-plain test
</pre>

it will fail with a message about failing to find the proper
format file. There should be a line something like:

<pre>
mktexfmt [INFO]: writing formats under ~/.texlive2020/texmf-var/web2c
</pre>

so, copy the format file to that location:

<pre>
cp luatex-plain.fmt ~/.texlive2020/texmf-var/web2c/
</pre>

now, this should work:

<pre>
luatex-plain test
</pre>

Finally, run mtxrun to generate a fonts database: 

<pre>
mtxrun --script fonts --reload --simple
</pre>
</li>
</ol>
</ol>

== Contents ==

The most recent files for this project are also available at:
[https://github.com/s-dismas/TeX-without-TeX-revised GitHub]

There is a Read Eval Print Loop available for interactive exploring:

[[T_wo_T_r:repl.lua|repl.lua]]

It can be invoked with <code>repl.repl()<code/>, and either
<code>quit()<code/> or <code>exit<code/> will exit it. I use Shell Mode in
Emacs, but a simple terminal or similar should also work.

Some utilites are in the file:

[[T_wo_T_r:utils.lua|utils.lua]]

The following five files comprise the system:

[[T_wo_T_r:reader.lua|reader.lua]]

[[T_wo_T_r:format.lua|format.lua]]

[[T_wo_T_r:main.lua|main.lua]]

[[T_wo_T_r:pages.lua|pages.lua]]

[[T_wo_T_r:commands.lua|commands.lua]]

The license for this software can be seen at:

[[T_wo_T_r:LICENSE.txt| License.]]

The TeX file to be compiled by luatex-plain is:

[[T_wo_T_r:test.tex|test.tex]]

The Lua file executed by <code>\directlua{dofile "test.lua"}</code>
within [[T_wo_T_r:test.tex|test.tex]] is:

[[T_wo_T_r:test.lua|test.lua]]

The main text file to be typeset is:

[[T_wo_T_r:text.tex|text.tex]]

It includes the following five files:

[[T_wo_T_r:chapter-1.tex|chapter 1]]

[[T_wo_T_r:chapter-2.tex|chapter 2]]

[[T_wo_T_r:chapter-3.tex|chapter 3]]

[[T_wo_T_r:chapter-4.tex|chapter 4]]

[[T_wo_T_r:chapter-5.tex|chapter 5]]

T wo T r:twotr

2021-02-22T23:35:36Z

Rkrug: Really fix formatting?

T wo T r:twotr

2021-02-22T23:13:14Z

Rkrug: Fix formatting

== About ==

This is an update and expansion of [[TeX without TeX]] --- using TeX's
functionality (typesetting, pdf writing) using only Lua code (no \TeX
macros).

It is (I believe) an adequate framework for developing a complete
type-setting system; although one dedicated to a specific task, rather
than a general purpose system such as LaTeX or ConTeXt. It includes a
couple of example formatting commands (\Emph and \Bold), titles
(\Title), the ability to include other subsidiary text files (\Input)
and footnotes (\Footnote). It can be easily adapted and expanded to
suit your needs.

I am not much of a programmer, and knew little about TeX and even less
about Lua when I started this, so there is undoubtedly much that can
be improved. All questions, comments, suggestions, and corrections
will be appreciated. You can reach me at "destiny6 <AT> mac <DOT>
com".

== Pre-requisites ==

This system requires the luatex-plain format (from ConTeXt), so that
we have access to Open Type Fonts and other goodies. This is what I
did on my system:

# Find the luatex-plain.tex file. On my system (with TeX-Live 2020)
it was at:

<pre>
/usr/local/share/texmf-dist/tex/generic/context/luatex/luatex-plain.tex
</pre>

# If you just build a format file,

<pre>
luatex --ini /usr/local/share/texmf-dist/tex/generic/context/luatex/luatex-plain.tex
</pre>

you will probably get warnings about using the "merged" file, and not
the more current and supported files. Delete, move, or rename this
file. On my system I did:

<pre>
doas mv /usr/local/share/texmf-dist/tex/generic/context/luatex/luatex-fonts-merged.lua /usr/local/share/texmf-dist/tex/generic/context/luatex/luatex-fonts-merged.lua.bak
</pre>

# Now, build the format file.

<pre>
luatex --ini /usr/local/share/texmf-dist/tex/generic/context/luatex/luatex-plain.tex
</pre>

# We are almost done. If the resulting format file (luatex-plain.fmt)
is in the current working directory, you can use it with something
like:

<pre>
luatex --fmt luatex-plain test
</pre>

# But, this is too restrictive.

## Create a new executable with the name luatex-plain. Something
like:

<pre>
ln -s `which luatex` /usr/local/bin/luatex-plain
</pre>

## When you try to invoke it:

<pre>
luatex-plain test
</pre>

it will fail with a message about failing to find the proper
format file. There should be a line something like:

<pre>
mktexfmt [INFO]: writing formats under ~/.texlive2020/texmf-var/web2c
</pre>

so, copy the format file to that location:

<pre>
cp luatex-plain.fmt ~/.texlive2020/texmf-var/web2c/
</pre>

now, this should work:

<pre>
luatex-plain test
</pre>

Finally, run mtxrun to generate a fonts database: 

<pre>
mtxrun --script fonts --reload --simple
</pre>

== Contents ==

This files for this project are also available at:
[https://github.com/s-dismas/TeX-without-TeX-revised GitHub]

There is a Read Eval Print Loop available for interactively exploring:

[[T_wo_T_r:repl.lua|repl.lua]]

It can be invoked with <code>repl.repl()<code/>, and either
<code>quit()<code/> or <code>exit<code/> will exit it. I use Shell Mode in
Emacs, but a simple terminal or similar should also work.

Some utilites are in the file:

[[T_wo_T_r:utils.lua|utils.lua]]

The following five files comprise the system:

[[T_wo_T_r:reader.lua|reader.lua]]

[[T_wo_T_r:format.lua|format.lua]]

[[T_wo_T_r:main.lua|main.lua]]

[[T_wo_T_r:pages.lua|pages.lua]]

[[T_wo_T_r:commands.lua|commands.lua]]

The license for this software can be seen at:

[[T_wo_T_r:LICENSE.txt| License.]]

The TeX file to be compiled by luatex-plain is:

[[T_wo_T_r:test.tex|test.tex]]

The Lua file executed by <code>\directlua{dofile "test.lua"}</code>
within [[T_wo_T_r:test.tex|test.tex]] is:

[[T_wo_T_r:test.lua|test.lua]]

The main text file to be typeset is:

[[T_wo_T_r:text.tex|text.tex]]

It includes the following five files:

[[T_wo_T_r:chapter-1.tex|chapter 1]]

[[T_wo_T_r:chapter-2.tex|chapter 2]]

[[T_wo_T_r:chapter-3.tex|chapter 3]]

[[T_wo_T_r:chapter-4.tex|chapter 4]]

[[T_wo_T_r:chapter-5.tex|chapter 5]]

T wo T r:chapter-5.tex

2021-02-22T18:41:44Z

Rkrug: Created page with " <nowiki> \Title[Chapter 5]{Chapter V. Elders} Some of my readers may imagine that my young man was a sickly, ecstatic, poorly developed creature, a pale, consumptive dreamer..."

<nowiki>
\Title[Chapter 5]{Chapter V. Elders}

Some of my readers may imagine that my young man was a sickly, ecstatic,
poorly developed creature, a pale, consumptive dreamer. On the contrary,
Alyosha was at this time a well‐grown, red‐cheeked, clear‐eyed lad of
nineteen, radiant with health. He was very handsome, too, graceful,
moderately tall, with hair of a dark brown, with a regular, rather long,
oval‐shaped face, and wide‐set dark gray, shining eyes; he was very
thoughtful, and apparently very serene. I shall be told, perhaps, that red
cheeks are not incompatible with fanaticism and mysticism; but I fancy
that Alyosha was more of a realist than any one. Oh! no doubt, in the
monastery he fully believed in miracles, but, to my thinking, miracles are
never a stumbling‐block to the realist. It is not miracles that dispose
realists to belief. The genuine realist, if he is an unbeliever, will
always find strength and ability to disbelieve in the miraculous, and if
he is confronted with a miracle as an irrefutable fact he would rather
disbelieve his own senses than admit the fact. Even if he admits it, he
admits it as a fact of nature till then unrecognized by him. Faith does
not, in the realist, spring from the miracle but the miracle from faith.
If the realist once believes, then he is bound by his very realism to
admit the miraculous also. The Apostle Thomas said that he would not
believe till he saw, but when he did see he said, “My Lord and my God!”
Was it the miracle forced him to believe? Most likely not, but he believed
solely because he desired to believe and possibly he fully believed in his
secret heart even when he said, “I do not believe till I see.”

I shall be told, perhaps, that Alyosha was stupid, undeveloped, had not
finished his studies, and so on. That he did not finish his studies is
true, but to say that he was stupid or dull would be a great injustice.
I’ll simply repeat what I have said above. He entered upon this path only
because, at that time, it alone struck his imagination and presented
itself to him as offering an ideal means of escape for his soul from
darkness to light. Add to that that he was to some extent a youth of our
last epoch—that is, honest in nature, desiring the truth, seeking for it
and believing in it, and seeking to serve it at once with all the strength
of his soul, seeking for immediate action, and ready to sacrifice
everything, life itself, for it. Though these young men unhappily fail to
understand that the sacrifice of life is, in many cases, the easiest of
all sacrifices, and that to sacrifice, for instance, five or six years of
their seething youth to hard and tedious study, if only to multiply
tenfold their powers of serving the truth and the cause they have set
before them as their goal—such a sacrifice is utterly beyond the strength
of many of them. The path Alyosha chose was a path going in the opposite
direction, but he chose it with the same thirst for swift achievement. As
soon as he reflected seriously he was convinced of the existence of God
and immortality, and at once he instinctively said to himself: “I want to
live for immortality, and I will accept no compromise.” In the same way,
if he had decided that God and immortality did not exist, he would at once
have become an atheist and a socialist. For socialism is not merely the
labor question, it is before all things the atheistic question, the
question of the form taken by atheism to‐day, the question of the tower of
Babel built without God, not to mount to heaven from earth but to set up
heaven on earth. Alyosha would have found it strange and impossible to go
on living as before. It is written: “Give all that thou hast to the poor
and follow Me, if thou wouldst be perfect.”

Alyosha said to himself: “I can’t give two roubles instead of ‘all,’ and
only go to mass instead of ‘following Him.’ ” Perhaps his memories of
childhood brought back our monastery, to which his mother may have taken
him to mass. Perhaps the slanting sunlight and the holy image to which his
poor “crazy” mother had held him up still acted upon his imagination.
Brooding on these things he may have come to us perhaps only to see
whether here he could sacrifice all or only “two roubles,” and in the
monastery he met this elder. I must digress to explain what an “elder” is
in Russian monasteries, and I am sorry that I do not feel very competent
to do so. I will try, however, to give a superficial account of it in a
few words. Authorities on the subject assert that the institution of
“elders” is of recent date, not more than a hundred years old in our
monasteries, though in the orthodox East, especially in Sinai and Athos,
it has existed over a thousand years. It is maintained that it existed in
ancient times in Russia also, but through the calamities which overtook
Russia—the Tartars, civil war, the interruption of relations with the East
after the destruction of Constantinople—this institution fell into
oblivion. It was revived among us towards the end of last century by one
of the great “ascetics,” as they called him, Païssy Velitchkovsky, and his
disciples. But to this day it exists in few monasteries only, and has
sometimes been almost persecuted as an innovation in Russia. It flourished
especially in the celebrated Kozelski Optin Monastery. When and how it was
introduced into our monastery I cannot say. There had already been three
such elders and Zossima was the last of them. But he was almost dying of
weakness and disease, and they had no one to take his place. The question
for our monastery was an important one, for it had not been distinguished
by anything in particular till then: they had neither relics of saints,
nor wonder‐working ikons, nor glorious traditions, nor historical
exploits. It had flourished and been glorious all over Russia through its
elders, to see and hear whom pilgrims had flocked for thousands of miles
from all parts.

What was such an elder? An elder was one who took your soul, your will,
into his soul and his will. When you choose an elder, you renounce your
own will and yield it to him in complete submission, complete self‐
abnegation. This novitiate, this terrible school of abnegation, is
undertaken voluntarily, in the hope of self‐conquest, of self‐mastery, in
order, after a life of obedience, to attain perfect freedom, that is, from
self; to escape the lot of those who have lived their whole life without
finding their true selves in themselves. This institution of elders is not
founded on theory, but was established in the East from the practice of a
thousand years. The obligations due to an elder are not the ordinary
“obedience” which has always existed in our Russian monasteries. The
obligation involves confession to the elder by all who have submitted
themselves to him, and to the indissoluble bond between him and them.

The story is told, for instance, that in the early days of Christianity
one such novice, failing to fulfill some command laid upon him by his
elder, left his monastery in Syria and went to Egypt. There, after great
exploits, he was found worthy at last to suffer torture and a martyr’s
death for the faith. When the Church, regarding him as a saint, was
burying him, suddenly, at the deacon’s exhortation, “Depart all ye
unbaptized,” the coffin containing the martyr’s body left its place and
was cast forth from the church, and this took place three times. And only
at last they learnt that this holy man had broken his vow of obedience and
left his elder, and, therefore, could not be forgiven without the elder’s
absolution in spite of his great deeds. Only after this could the funeral
take place. This, of course, is only an old legend. But here is a recent
instance.

A monk was suddenly commanded by his elder to quit Athos, which he loved
as a sacred place and a haven of refuge, and to go first to Jerusalem to
do homage to the Holy Places and then to go to the north to Siberia:
“There is the place for thee and not here.” The monk, overwhelmed with
sorrow, went to the Œcumenical Patriarch at Constantinople and besought
him to release him from his obedience. But the Patriarch replied that not
only was he unable to release him, but there was not and could not be on
earth a power which could release him except the elder who had himself
laid that duty upon him. In this way the elders are endowed in certain
cases with unbounded and inexplicable authority. That is why in many of
our monasteries the institution was at first resisted almost to
persecution. Meantime the elders immediately began to be highly esteemed
among the people. Masses of the ignorant people as well as men of
distinction flocked, for instance, to the elders of our monastery to
confess their doubts, their sins, and their sufferings, and ask for
counsel and admonition. Seeing this, the opponents of the elders declared
that the sacrament of confession was being arbitrarily and frivolously
degraded, though the continual opening of the heart to the elder by the
monk or the layman had nothing of the character of the sacrament. In the
end, however, the institution of elders has been retained and is becoming
established in Russian monasteries. It is true, perhaps, that this
instrument which had stood the test of a thousand years for the moral
regeneration of a man from slavery to freedom and to moral perfectibility
may be a two‐edged weapon and it may lead some not to humility and
complete self‐control but to the most Satanic pride, that is, to bondage
and not to freedom.

The elder Zossima was sixty‐five. He came of a family of landowners, had
been in the army in early youth, and served in the Caucasus as an officer.
He had, no doubt, impressed Alyosha by some peculiar quality of his soul.
Alyosha lived in the cell of the elder, who was very fond of him and let
him wait upon him. It must be noted that Alyosha was bound by no
obligation and could go where he pleased and be absent for whole days.
Though he wore the monastic dress it was voluntarily, not to be different
from others. No doubt he liked to do so. Possibly his youthful imagination
was deeply stirred by the power and fame of his elder. It was said that so
many people had for years past come to confess their sins to Father
Zossima and to entreat him for words of advice and healing, that he had
acquired the keenest intuition and could tell from an unknown face what a
new‐comer wanted, and what was the suffering on his conscience. He
sometimes astounded and almost alarmed his visitors by his knowledge of
their secrets before they had spoken a word.

Alyosha noticed that many, almost all, went in to the elder for the first
time with apprehension and uneasiness, but came out with bright and happy
faces. Alyosha was particularly struck by the fact that Father Zossima was
not at all stern. On the contrary, he was always almost gay. The monks
used to say that he was more drawn to those who were more sinful, and the
greater the sinner the more he loved him. There were, no doubt, up to the
end of his life, among the monks some who hated and envied him, but they
were few in number and they were silent, though among them were some of
great dignity in the monastery, one, for instance, of the older monks
distinguished for his strict keeping of fasts and vows of silence. But the
majority were on Father Zossima’s side and very many of them loved him
with all their hearts, warmly and sincerely. Some were almost fanatically
devoted to him, and declared, though not quite aloud, that he was a saint,
that there could be no doubt of it, and, seeing that his end was near,
they anticipated miracles and great glory to the monastery in the
immediate future from his relics. Alyosha had unquestioning faith in the
miraculous power of the elder, just as he had unquestioning faith in the
story of the coffin that flew out of the church. He saw many who came with
sick children or relatives and besought the elder to lay hands on them and
to pray over them, return shortly after—some the next day—and, falling in
tears at the elder’s feet, thank him for healing their sick.

Whether they had really been healed or were simply better in the natural
course of the disease was a question which did not exist for Alyosha, for
he fully believed in the spiritual power of his teacher and rejoiced in
his fame, in his glory, as though it were his own triumph. His heart
throbbed, and he beamed, as it were, all over when the elder came out to
the gates of the hermitage into the waiting crowd of pilgrims of the
humbler class who had flocked from all parts of Russia on purpose to see
the elder and obtain his blessing. They fell down before him, wept, kissed
his feet, kissed the earth on which he stood, and wailed, while the women
held up their children to him and brought him the sick “possessed with
devils.” The elder spoke to them, read a brief prayer over them, blessed
them, and dismissed them. Of late he had become so weak through attacks of
illness that he was sometimes unable to leave his cell, and the pilgrims
waited for him to come out for several days. Alyosha did not wonder why
they loved him so, why they fell down before him and wept with emotion
merely at seeing his face. Oh! he understood that for the humble soul of
the Russian peasant, worn out by grief and toil, and still more by the
everlasting injustice and everlasting sin, his own and the world’s, it was
the greatest need and comfort to find some one or something holy to fall
down before and worship.

“Among us there is sin, injustice, and temptation, but yet, somewhere on
earth there is some one holy and exalted. He has the truth; he knows the
truth; so it is not dead upon the earth; so it will come one day to us,
too, and rule over all the earth according to the promise.”

Alyosha knew that this was just how the people felt and even reasoned. He
understood it, but that the elder Zossima was this saint and custodian of
God’s truth—of that he had no more doubt than the weeping peasants and the
sick women who held out their children to the elder. The conviction that
after his death the elder would bring extraordinary glory to the monastery
was even stronger in Alyosha than in any one there, and, of late, a kind
of deep flame of inner ecstasy burnt more and more strongly in his heart.
He was not at all troubled at this elder’s standing as a solitary example
before him.

“No matter. He is holy. He carries in his heart the secret of renewal for
all: that power which will, at last, establish truth on the earth, and all
men will be holy and love one another, and there will be no more rich nor
poor, no exalted nor humbled, but all will be as the children of God, and
the true Kingdom of Christ will come.” That was the dream in Alyosha’s
heart.

The arrival of his two brothers, whom he had not known till then, seemed
to make a great impression on Alyosha. He more quickly made friends with
his half‐brother Dmitri (though he arrived later) than with his own
brother Ivan. He was extremely interested in his brother Ivan, but when
the latter had been two months in the town, though they had met fairly
often, they were still not intimate. Alyosha was naturally silent, and he
seemed to be expecting something, ashamed about something, while his
brother Ivan, though Alyosha noticed at first that he looked long and
curiously at him, seemed soon to have left off thinking of him. Alyosha
noticed it with some embarrassment. He ascribed his brother’s indifference
at first to the disparity of their age and education. But he also wondered
whether the absence of curiosity and sympathy in Ivan might be due to some
other cause entirely unknown to him. He kept fancying that Ivan was
absorbed in something—something inward and important—that he was striving
towards some goal, perhaps very hard to attain, and that that was why he
had no thought for him. Alyosha wondered, too, whether there was not some
contempt on the part of the learned atheist for him—a foolish novice. He
knew for certain that his brother was an atheist. He could not take
offense at this contempt, if it existed; yet, with an uneasy embarrassment
which he did not himself understand, he waited for his brother to come
nearer to him. Dmitri used to speak of Ivan with the deepest respect and
with a peculiar earnestness. From him Alyosha learnt all the details of
the important affair which had of late formed such a close and remarkable
bond between the two elder brothers. Dmitri’s enthusiastic references to
Ivan were the more striking in Alyosha’s eyes since Dmitri was, compared
with Ivan, almost uneducated, and the two brothers were such a contrast in
personality and character that it would be difficult to find two men more
unlike.

It was at this time that the meeting, or, rather gathering of the members
of this inharmonious family took place in the cell of the elder who had
such an extraordinary influence on Alyosha. The pretext for this gathering
was a false one. It was at this time that the discord between Dmitri and
his father seemed at its acutest stage and their relations had become
insufferably strained. Fyodor Pavlovitch seems to have been the first to
suggest, apparently in joke, that they should all meet in Father Zossima’s
cell, and that, without appealing to his direct intervention, they might
more decently come to an understanding under the conciliating influence of
the elder’s presence. Dmitri, who had never seen the elder, naturally
supposed that his father was trying to intimidate him, but, as he secretly
blamed himself for his outbursts of temper with his father on several
recent occasions, he accepted the challenge. It must be noted that he was
not, like Ivan, staying with his father, but living apart at the other end
of the town. It happened that Pyotr Alexandrovitch Miüsov, who was staying
in the district at the time, caught eagerly at the idea. A Liberal of the
forties and fifties, a freethinker and atheist, he may have been led on by
boredom or the hope of frivolous diversion. He was suddenly seized with
the desire to see the monastery and the holy man. As his lawsuit with the
monastery still dragged on, he made it the pretext for seeing the
Superior, in order to attempt to settle it amicably. A visitor coming with
such laudable intentions might be received with more attention and
consideration than if he came from simple curiosity. Influences from
within the monastery were brought to bear on the elder, who of late had
scarcely left his cell, and had been forced by illness to deny even his
ordinary visitors. In the end he consented to see them, and the day was
fixed.

“Who has made me a judge over them?” was all he said, smilingly, to
Alyosha.

Alyosha was much perturbed when he heard of the proposed visit. Of all the
wrangling, quarrelsome party, Dmitri was the only one who could regard the
interview seriously. All the others would come from frivolous motives,
perhaps insulting to the elder. Alyosha was well aware of that. Ivan and
Miüsov would come from curiosity, perhaps of the coarsest kind, while his
father might be contemplating some piece of buffoonery. Though he said
nothing, Alyosha thoroughly understood his father. The boy, I repeat, was
far from being so simple as every one thought him. He awaited the day with
a heavy heart. No doubt he was always pondering in his mind how the family
discord could be ended. But his chief anxiety concerned the elder. He
trembled for him, for his glory, and dreaded any affront to him,
especially the refined, courteous irony of Miüsov and the supercilious
half‐utterances of the highly educated Ivan. He even wanted to venture on
warning the elder, telling him something about them, but, on second
thoughts, said nothing. He only sent word the day before, through a
friend, to his brother Dmitri, that he loved him and expected him to keep
his promise. Dmitri wondered, for he could not remember what he had
promised, but he answered by letter that he would do his utmost not to let
himself be provoked “by vileness,” but that, although he had a deep
respect for the elder and for his brother Ivan, he was convinced that the
meeting was either a trap for him or an unworthy farce.

“Nevertheless I would rather bite out my tongue than be lacking in respect
to the sainted man whom you reverence so highly,” he wrote in conclusion.
Alyosha was not greatly cheered by the letter.

</nowiki>

T wo T r:chapter-4.tex

2021-02-22T18:41:12Z

Rkrug: Created page with " <nowiki> \Title[Chapter 4]{Chapter IV. The Third Son, Alyosha} He was only twenty, his brother Ivan was in his twenty‐fourth year at the time, while their elder brother Dm..."

<nowiki>
\Title[Chapter 4]{Chapter IV. The Third Son, Alyosha}

He was only twenty, his brother Ivan was in his twenty‐fourth year at the
time, while their elder brother Dmitri was twenty‐seven. First of all, I
must explain that this young man, Alyosha, was not a fanatic, and, in my
opinion at least, was not even a mystic. I may as well give my full
opinion from the beginning. He was simply an early lover of humanity, and
that he adopted the monastic life was simply because at that time it
struck him, so to say, as the ideal escape for his soul struggling from
the darkness of worldly wickedness to the light of love. And the reason
this life struck him in this way was that he found in it at that time, as
he thought, an extraordinary being, our celebrated elder, Zossima, to whom
he became attached with all the warm first love of his ardent heart. But I
do not dispute that he was very strange even at that time, and had been so
indeed from his cradle. I have mentioned already, by the way, that though
he lost his mother in his fourth year he remembered her all his life—her
face, her caresses, “as though she stood living before me.” Such memories
may persist, as every one knows, from an even earlier age, even from two
years old, but scarcely standing out through a whole lifetime like spots
of light out of darkness, like a corner torn out of a huge picture, which
has all faded and disappeared except that fragment. That is how it was
with him. He remembered one still summer evening, an open window, the
slanting rays of the setting sun (that he recalled most vividly of all);
in a corner of the room the holy image, before it a lighted lamp, and on
her knees before the image his mother, sobbing hysterically with cries and
moans, snatching him up in both arms, squeezing him close till it hurt,
and praying for him to the Mother of God, holding him out in both arms to
the image as though to put him under the Mother’s protection ... and
suddenly a nurse runs in and snatches him from her in terror. That was the
picture! And Alyosha remembered his mother’s face at that minute. He used
to say that it was frenzied but beautiful as he remembered. But he rarely
cared to speak of this memory to any one. In his childhood and youth he
was by no means expansive, and talked little indeed, but not from shyness
or a sullen unsociability; quite the contrary, from something different,
from a sort of inner preoccupation entirely personal and unconcerned with
other people, but so important to him that he seemed, as it were, to
forget others on account of it. But he was fond of people: he seemed
throughout his life to put implicit trust in people: yet no one ever
looked on him as a simpleton or naïve person. There was something about
him which made one feel at once (and it was so all his life afterwards)
that he did not care to be a judge of others—that he would never take it
upon himself to criticize and would never condemn any one for anything. He
seemed, indeed, to accept everything without the least condemnation though
often grieving bitterly: and this was so much so that no one could
surprise or frighten him even in his earliest youth. Coming at twenty to
his father’s house, which was a very sink of filthy debauchery, he, chaste
and pure as he was, simply withdrew in silence when to look on was
unbearable, but without the slightest sign of contempt or condemnation.
His father, who had once been in a dependent position, and so was
sensitive and ready to take offense, met him at first with distrust and
sullenness. “He does not say much,” he used to say, “and thinks the more.”
But soon, within a fortnight indeed, he took to embracing him and kissing
him terribly often, with drunken tears, with sottish sentimentality, yet
he evidently felt a real and deep affection for him, such as he had never
been capable of feeling for any one before.

Every one, indeed, loved this young man wherever he went, and it was so
from his earliest childhood. When he entered the household of his patron
and benefactor, Yefim Petrovitch Polenov, he gained the hearts of all the
family, so that they looked on him quite as their own child. Yet he
entered the house at such a tender age that he could not have acted from
design nor artfulness in winning affection. So that the gift of making
himself loved directly and unconsciously was inherent in him, in his very
nature, so to speak. It was the same at school, though he seemed to be
just one of those children who are distrusted, sometimes ridiculed, and
even disliked by their schoolfellows. He was dreamy, for instance, and
rather solitary. From his earliest childhood he was fond of creeping into
a corner to read, and yet he was a general favorite all the while he was
at school. He was rarely playful or merry, but any one could see at the
first glance that this was not from any sullenness. On the contrary he was
bright and good‐tempered. He never tried to show off among his
schoolfellows. Perhaps because of this, he was never afraid of any one,
yet the boys immediately understood that he was not proud of his
fearlessness and seemed to be unaware that he was bold and courageous. He
never resented an insult. It would happen that an hour after the offense
he would address the offender or answer some question with as trustful and
candid an expression as though nothing had happened between them. And it
was not that he seemed to have forgotten or intentionally forgiven the
affront, but simply that he did not regard it as an affront, and this
completely conquered and captivated the boys. He had one characteristic
which made all his schoolfellows from the bottom class to the top want to
mock at him, not from malice but because it amused them. This
characteristic was a wild fanatical modesty and chastity. He could not
bear to hear certain words and certain conversations about women. There
are “certain” words and conversations unhappily impossible to eradicate in
schools. Boys pure in mind and heart, almost children, are fond of talking
in school among themselves, and even aloud, of things, pictures, and
images of which even soldiers would sometimes hesitate to speak. More than
that, much that soldiers have no knowledge or conception of is familiar to
quite young children of our intellectual and higher classes. There is no
moral depravity, no real corrupt inner cynicism in it, but there is the
appearance of it, and it is often looked upon among them as something
refined, subtle, daring, and worthy of imitation. Seeing that Alyosha
Karamazov put his fingers in his ears when they talked of “that,” they
used sometimes to crowd round him, pull his hands away, and shout
nastiness into both ears, while he struggled, slipped to the floor, tried
to hide himself without uttering one word of abuse, enduring their insults
in silence. But at last they left him alone and gave up taunting him with
being a “regular girl,” and what’s more they looked upon it with
compassion as a weakness. He was always one of the best in the class but
was never first.

At the time of Yefim Petrovitch’s death Alyosha had two more years to
complete at the provincial gymnasium. The inconsolable widow went almost
immediately after his death for a long visit to Italy with her whole
family, which consisted only of women and girls. Alyosha went to live in
the house of two distant relations of Yefim Petrovitch, ladies whom he had
never seen before. On what terms he lived with them he did not know
himself. It was very characteristic of him, indeed, that he never cared at
whose expense he was living. In that respect he was a striking contrast to
his elder brother Ivan, who struggled with poverty for his first two years
in the university, maintained himself by his own efforts, and had from
childhood been bitterly conscious of living at the expense of his
benefactor. But this strange trait in Alyosha’s character must not, I
think, be criticized too severely, for at the slightest acquaintance with
him any one would have perceived that Alyosha was one of those youths,
almost of the type of religious enthusiast, who, if they were suddenly to
come into possession of a large fortune, would not hesitate to give it
away for the asking, either for good works or perhaps to a clever rogue.
In general he seemed scarcely to know the value of money, not, of course,
in a literal sense. When he was given pocket‐money, which he never asked
for, he was either terribly careless of it so that it was gone in a
moment, or he kept it for weeks together, not knowing what to do with it.

In later years Pyotr Alexandrovitch Miüsov, a man very sensitive on the
score of money and bourgeois honesty, pronounced the following judgment,
after getting to know Alyosha:

“Here is perhaps the one man in the world whom you might leave alone
without a penny, in the center of an unknown town of a million
inhabitants, and he would not come to harm, he would not die of cold and
hunger, for he would be fed and sheltered at once; and if he were not, he
would find a shelter for himself, and it would cost him no effort or
humiliation. And to shelter him would be no burden, but, on the contrary,
would probably be looked on as a pleasure.”

He did not finish his studies at the gymnasium. A year before the end of
the course he suddenly announced to the ladies that he was going to see
his father about a plan which had occurred to him. They were sorry and
unwilling to let him go. The journey was not an expensive one, and the
ladies would not let him pawn his watch, a parting present from his
benefactor’s family. They provided him liberally with money and even
fitted him out with new clothes and linen. But he returned half the money
they gave him, saying that he intended to go third class. On his arrival
in the town he made no answer to his father’s first inquiry why he had
come before completing his studies, and seemed, so they say, unusually
thoughtful. It soon became apparent that he was looking for his mother’s
tomb. He practically acknowledged at the time that that was the only
object of his visit. But it can hardly have been the whole reason of it.
It is more probable that he himself did not understand and could not
explain what had suddenly arisen in his soul, and drawn him irresistibly
into a new, unknown, but inevitable path. Fyodor Pavlovitch could not show
him where his second wife was buried, for he had never visited her grave
since he had thrown earth upon her coffin, and in the course of years had
entirely forgotten where she was buried.

Fyodor Pavlovitch, by the way, had for some time previously not been
living in our town. Three or four years after his wife’s death he had gone
to the south of Russia and finally turned up in Odessa, where he spent
several years. He made the acquaintance at first, in his own words, “of a
lot of low Jews, Jewesses, and Jewkins,” and ended by being received by
“Jews high and low alike.” It may be presumed that at this period he
developed a peculiar faculty for making and hoarding money. He finally
returned to our town only three years before Alyosha’s arrival. His former
acquaintances found him looking terribly aged, although he was by no means
an old man. He behaved not exactly with more dignity but with more
effrontery. The former buffoon showed an insolent propensity for making
buffoons of others. His depravity with women was not simply what it used
to be, but even more revolting. In a short time he opened a great number
of new taverns in the district. It was evident that he had perhaps a
hundred thousand roubles or not much less. Many of the inhabitants of the
town and district were soon in his debt, and, of course, had given good
security. Of late, too, he looked somehow bloated and seemed more
irresponsible, more uneven, had sunk into a sort of incoherence, used to
begin one thing and go on with another, as though he were letting himself
go altogether. He was more and more frequently drunk. And, if it had not
been for the same servant Grigory, who by that time had aged considerably
too, and used to look after him sometimes almost like a tutor, Fyodor
Pavlovitch might have got into terrible scrapes. Alyosha’s arrival seemed
to affect even his moral side, as though something had awakened in this
prematurely old man which had long been dead in his soul.

“Do you know,” he used often to say, looking at Alyosha, “that you are
like her, ‘the crazy woman’ ”—that was what he used to call his dead wife,
Alyosha’s mother. Grigory it was who pointed out the “crazy woman’s” grave
to Alyosha. He took him to our town cemetery and showed him in a remote
corner a cast‐iron tombstone, cheap but decently kept, on which were
inscribed the name and age of the deceased and the date of her death, and
below a four‐lined verse, such as are commonly used on old‐fashioned
middle‐class tombs. To Alyosha’s amazement this tomb turned out to be
Grigory’s doing. He had put it up on the poor “crazy woman’s” grave at his
own expense, after Fyodor Pavlovitch, whom he had often pestered about the
grave, had gone to Odessa, abandoning the grave and all his memories.
Alyosha showed no particular emotion at the sight of his mother’s grave.
He only listened to Grigory’s minute and solemn account of the erection of
the tomb; he stood with bowed head and walked away without uttering a
word. It was perhaps a year before he visited the cemetery again. But this
little episode was not without an influence upon Fyodor Pavlovitch—and a
very original one. He suddenly took a thousand roubles to our monastery to
pay for requiems for the soul of his wife; but not for the second,
Alyosha’s mother, the “crazy woman,” but for the first, Adelaïda Ivanovna,
who used to thrash him. In the evening of the same day he got drunk and
abused the monks to Alyosha. He himself was far from being religious; he
had probably never put a penny candle before the image of a saint. Strange
impulses of sudden feeling and sudden thought are common in such types.

I have mentioned already that he looked bloated. His countenance at this
time bore traces of something that testified unmistakably to the life he
had led. Besides the long fleshy bags under his little, always insolent,
suspicious, and ironical eyes; besides the multitude of deep wrinkles in
his little fat face, the Adam’s apple hung below his sharp chin like a
great, fleshy goiter, which gave him a peculiar, repulsive, sensual
appearance; add to that a long rapacious mouth with full lips, between
which could be seen little stumps of black decayed teeth. He slobbered
every time he began to speak. He was fond indeed of making fun of his own
face, though, I believe, he was well satisfied with it. He used
particularly to point to his nose, which was not very large, but very
delicate and conspicuously aquiline. “A regular Roman nose,” he used to
say, “with my goiter I’ve quite the countenance of an ancient Roman
patrician of the decadent period.” He seemed proud of it.

Not long after visiting his mother’s grave Alyosha suddenly announced that
he wanted to enter the monastery, and that the monks were willing to
receive him as a novice. He explained that this was his strong desire, and
that he was solemnly asking his consent as his father. The old man knew
that the elder Zossima, who was living in the monastery hermitage, had
made a special impression upon his “gentle boy.”

“That is the most honest monk among them, of course,” he observed, after
listening in thoughtful silence to Alyosha, and seeming scarcely surprised
at his request. “H’m!... So that’s where you want to be, my gentle boy?”

He was half drunk, and suddenly he grinned his slow half‐drunken grin,
which was not without a certain cunning and tipsy slyness. “H’m!... I had
a presentiment that you would end in something like this. Would you
believe it? You were making straight for it. Well, to be sure you have
your own two thousand. That’s a dowry for you. And I’ll never desert you,
my angel. And I’ll pay what’s wanted for you there, if they ask for it.
But, of course, if they don’t ask, why should we worry them? What do you
say? You know, you spend money like a canary, two grains a week. H’m!...
Do you know that near one monastery there’s a place outside the town where
every baby knows there are none but ‘the monks’ wives’ living, as they are
called. Thirty women, I believe. I have been there myself. You know, it’s
interesting in its own way, of course, as a variety. The worst of it is
it’s awfully Russian. There are no French women there. Of course they
could get them fast enough, they have plenty of money. If they get to hear
of it they’ll come along. Well, there’s nothing of that sort here, no
‘monks’ wives,’ and two hundred monks. They’re honest. They keep the
fasts. I admit it.... H’m.... So you want to be a monk? And do you know
I’m sorry to lose you, Alyosha; would you believe it, I’ve really grown
fond of you? Well, it’s a good opportunity. You’ll pray for us sinners; we
have sinned too much here. I’ve always been thinking who would pray for
me, and whether there’s any one in the world to do it. My dear boy, I’m
awfully stupid about that. You wouldn’t believe it. Awfully. You see,
however stupid I am about it, I keep thinking, I keep thinking—from time
to time, of course, not all the while. It’s impossible, I think, for the
devils to forget to drag me down to hell with their hooks when I die. Then
I wonder—hooks? Where would they get them? What of? Iron hooks? Where do
they forge them? Have they a foundry there of some sort? The monks in the
monastery probably believe that there’s a ceiling in hell, for instance.
Now I’m ready to believe in hell, but without a ceiling. It makes it more
refined, more enlightened, more Lutheran that is. And, after all, what
does it matter whether it has a ceiling or hasn’t? But, do you know,
there’s a damnable question involved in it? If there’s no ceiling there
can be no hooks, and if there are no hooks it all breaks down, which is
unlikely again, for then there would be none to drag me down to hell, and
if they don’t drag me down what justice is there in the world? _Il
faudrait les inventer_, those hooks, on purpose for me alone, for, if you
only knew, Alyosha, what a blackguard I am.”

“But there are no hooks there,” said Alyosha, looking gently and seriously
at his father.

“Yes, yes, only the shadows of hooks, I know, I know. That’s how a
Frenchman described hell: ‘_J’ai vu l’ombre d’un cocher qui avec l’ombre
d’une brosse frottait l’ombre d’une carrosse._’ How do you know there are
no hooks, darling? When you’ve lived with the monks you’ll sing a
different tune. But go and get at the truth there, and then come and tell
me. Anyway it’s easier going to the other world if one knows what there is
there. Besides, it will be more seemly for you with the monks than here
with me, with a drunken old man and young harlots ... though you’re like
an angel, nothing touches you. And I dare say nothing will touch you
there. That’s why I let you go, because I hope for that. You’ve got all
your wits about you. You will burn and you will burn out; you will be
healed and come back again. And I will wait for you. I feel that you’re
the only creature in the world who has not condemned me. My dear boy, I
feel it, you know. I can’t help feeling it.”

And he even began blubbering. He was sentimental. He was wicked and
sentimental.

</nowiki>

T wo T r:chapter-3.tex

2021-02-22T18:40:32Z

Rkrug: Created page with " <nowiki> \Title[Chapter 3.]{Chapter III. The Second Marriage And The Second Family} Very shortly after getting his four‐year‐old Mitya off his hands Fyodor Pavlovitch ma..."

<nowiki>
\Title[Chapter 3.]{Chapter III. The Second Marriage And The Second Family}

Very shortly after getting his four‐year‐old Mitya off his hands Fyodor
Pavlovitch married a second time. His second marriage lasted eight years.
He took this second wife, Sofya Ivanovna, also a very young girl, from
another province, where he had gone upon some small piece of business in
company with a Jew. Though Fyodor Pavlovitch was a drunkard and a vicious
debauchee he never neglected investing his capital, and managed his
business affairs very successfully, though, no doubt, not over‐
scrupulously. Sofya Ivanovna was the daughter of an obscure deacon, and
was left from childhood an orphan without relations. She grew up in the
house of a general’s widow, a wealthy old lady of good position, who was
at once her benefactress and tormentor. I do not know the details, but I
have only heard that the orphan girl, a meek and gentle creature, was once
cut down from a halter in which she was hanging from a nail in the loft,
so terrible were her sufferings from the caprice and everlasting nagging
of this old woman, who was apparently not bad‐hearted but had become an
insufferable tyrant through idleness.

Fyodor Pavlovitch made her an offer; inquiries were made about him and he
was refused. But again, as in his first marriage, he proposed an elopement
to the orphan girl. There is very little doubt that she would not on any
account have married him if she had known a little more about him in time.
But she lived in another province; besides, what could a little girl of
sixteen know about it, except that she would be better at the bottom of
the river than remaining with her benefactress. So the poor child
exchanged a benefactress for a benefactor. Fyodor Pavlovitch did not get a
penny this time, for the general’s widow was furious. She gave them
nothing and cursed them both. But he had not reckoned on a dowry; what
allured him was the remarkable beauty of the innocent girl, above all her
innocent appearance, which had a peculiar attraction for a vicious
profligate, who had hitherto admired only the coarser types of feminine
beauty.

“Those innocent eyes slit my soul up like a razor,” he used to say
afterwards, with his loathsome snigger. In a man so depraved this might,
of course, mean no more than sensual attraction. As he had received no
dowry with his wife, and had, so to speak, taken her “from the halter,” he
did not stand on ceremony with her. Making her feel that she had “wronged”
him, he took advantage of her phenomenal meekness and submissiveness to
trample on the elementary decencies of marriage. He gathered loose women
into his house, and carried on orgies of debauchery in his wife’s
presence. To show what a pass things had come to, I may mention that
Grigory, the gloomy, stupid, obstinate, argumentative servant, who had
always hated his first mistress, Adelaïda Ivanovna, took the side of his
new mistress. He championed her cause, abusing Fyodor Pavlovitch in a
manner little befitting a servant, and on one occasion broke up the revels
and drove all the disorderly women out of the house. In the end this
unhappy young woman, kept in terror from her childhood, fell into that
kind of nervous disease which is most frequently found in peasant women
who are said to be “possessed by devils.” At times after terrible fits of
hysterics she even lost her reason. Yet she bore Fyodor Pavlovitch two
sons, Ivan and Alexey, the eldest in the first year of marriage and the
second three years later. When she died, little Alexey was in his fourth
year, and, strange as it seems, I know that he remembered his mother all
his life, like a dream, of course. At her death almost exactly the same
thing happened to the two little boys as to their elder brother, Mitya.
They were completely forgotten and abandoned by their father. They were
looked after by the same Grigory and lived in his cottage, where they were
found by the tyrannical old lady who had brought up their mother. She was
still alive, and had not, all those eight years, forgotten the insult done
her. All that time she was obtaining exact information as to her Sofya’s
manner of life, and hearing of her illness and hideous surroundings she
declared aloud two or three times to her retainers:

“It serves her right. God has punished her for her ingratitude.”

Exactly three months after Sofya Ivanovna’s death the general’s widow
suddenly appeared in our town, and went straight to Fyodor Pavlovitch’s
house. She spent only half an hour in the town but she did a great deal.
It was evening. Fyodor Pavlovitch, whom she had not seen for those eight
years, came in to her drunk. The story is that instantly upon seeing him,
without any sort of explanation, she gave him two good, resounding slaps
on the face, seized him by a tuft of hair, and shook him three times up
and down. Then, without a word, she went straight to the cottage to the
two boys. Seeing, at the first glance, that they were unwashed and in
dirty linen, she promptly gave Grigory, too, a box on the ear, and
announcing that she would carry off both the children she wrapped them
just as they were in a rug, put them in the carriage, and drove off to her
own town. Grigory accepted the blow like a devoted slave, without a word,
and when he escorted the old lady to her carriage he made her a low bow
and pronounced impressively that, “God would repay her for the orphans.”
“You are a blockhead all the same,” the old lady shouted to him as she
drove away.

Fyodor Pavlovitch, thinking it over, decided that it was a good thing, and
did not refuse the general’s widow his formal consent to any proposition
in regard to his children’s education. As for the slaps she had given him,
he drove all over the town telling the story.

It happened that the old lady died soon after this, but she left the boys
in her will a thousand roubles each “for their instruction, and so that
all be spent on them exclusively, with the condition that it be so
portioned out as to last till they are twenty‐one, for it is more than
adequate provision for such children. If other people think fit to throw
away their money, let them.” I have not read the will myself, but I heard
there was something queer of the sort, very whimsically expressed. The
principal heir, Yefim Petrovitch Polenov, the Marshal of Nobility of the
province, turned out, however, to be an honest man. Writing to Fyodor
Pavlovitch, and discerning at once that he could extract nothing from him
for his children’s education (though the latter never directly refused but
only procrastinated as he always did in such cases, and was, indeed, at
times effusively sentimental), Yefim Petrovitch took a personal interest
in the orphans. He became especially fond of the younger, Alexey, who
lived for a long while as one of his family. I beg the reader to note this
from the beginning. And to Yefim Petrovitch, a man of a generosity and
humanity rarely to be met with, the young people were more indebted for
their education and bringing up than to any one. He kept the two thousand
roubles left to them by the general’s widow intact, so that by the time
they came of age their portions had been doubled by the accumulation of
interest. He educated them both at his own expense, and certainly spent
far more than a thousand roubles upon each of them. I won’t enter into a
detailed account of their boyhood and youth, but will only mention a few
of the most important events. Of the elder, Ivan, I will only say that he
grew into a somewhat morose and reserved, though far from timid boy. At
ten years old he had realized that they were living not in their own home
but on other people’s charity, and that their father was a man of whom it
was disgraceful to speak. This boy began very early, almost in his infancy
(so they say at least), to show a brilliant and unusual aptitude for
learning. I don’t know precisely why, but he left the family of Yefim
Petrovitch when he was hardly thirteen, entering a Moscow gymnasium, and
boarding with an experienced and celebrated teacher, an old friend of
Yefim Petrovitch. Ivan used to declare afterwards that this was all due to
the “ardor for good works” of Yefim Petrovitch, who was captivated by the
idea that the boy’s genius should be trained by a teacher of genius. But
neither Yefim Petrovitch nor this teacher was living when the young man
finished at the gymnasium and entered the university. As Yefim Petrovitch
had made no provision for the payment of the tyrannical old lady’s legacy,
which had grown from one thousand to two, it was delayed, owing to
formalities inevitable in Russia, and the young man was in great straits
for the first two years at the university, as he was forced to keep
himself all the time he was studying. It must be noted that he did not
even attempt to communicate with his father, perhaps from pride, from
contempt for him, or perhaps from his cool common sense, which told him
that from such a father he would get no real assistance. However that may
have been, the young man was by no means despondent and succeeded in
getting work, at first giving sixpenny lessons and afterwards getting
paragraphs on street incidents into the newspapers under the signature of
“Eye‐Witness.” These paragraphs, it was said, were so interesting and
piquant that they were soon taken. This alone showed the young man’s
practical and intellectual superiority over the masses of needy and
unfortunate students of both sexes who hang about the offices of the
newspapers and journals, unable to think of anything better than
everlasting entreaties for copying and translations from the French.
Having once got into touch with the editors Ivan Fyodorovitch always kept
up his connection with them, and in his latter years at the university he
published brilliant reviews of books upon various special subjects, so
that he became well known in literary circles. But only in his last year
he suddenly succeeded in attracting the attention of a far wider circle of
readers, so that a great many people noticed and remembered him. It was
rather a curious incident. When he had just left the university and was
preparing to go abroad upon his two thousand roubles, Ivan Fyodorovitch
published in one of the more important journals a strange article, which
attracted general notice, on a subject of which he might have been
supposed to know nothing, as he was a student of natural science. The
article dealt with a subject which was being debated everywhere at the
time—the position of the ecclesiastical courts. After discussing several
opinions on the subject he went on to explain his own view. What was most
striking about the article was its tone, and its unexpected conclusion.
Many of the Church party regarded him unquestioningly as on their side.
And yet not only the secularists but even atheists joined them in their
applause. Finally some sagacious persons opined that the article was
nothing but an impudent satirical burlesque. I mention this incident
particularly because this article penetrated into the famous monastery in
our neighborhood, where the inmates, being particularly interested in the
question of the ecclesiastical courts, were completely bewildered by it.
Learning the author’s name, they were interested in his being a native of
the town and the son of “that Fyodor Pavlovitch.” And just then it was
that the author himself made his appearance among us.

Why Ivan Fyodorovitch had come amongst us I remember asking myself at the
time with a certain uneasiness. This fateful visit, which was the first
step leading to so many consequences, I never fully explained to myself.
It seemed strange on the face of it that a young man so learned, so proud,
and apparently so cautious, should suddenly visit such an infamous house
and a father who had ignored him all his life, hardly knew him, never
thought of him, and would not under any circumstances have given him
money, though he was always afraid that his sons Ivan and Alexey would
also come to ask him for it. And here the young man was staying in the
house of such a father, had been living with him for two months, and they
were on the best possible terms. This last fact was a special cause of
wonder to many others as well as to me. Pyotr Alexandrovitch Miüsov, of
whom we have spoken already, the cousin of Fyodor Pavlovitch’s first wife,
happened to be in the neighborhood again on a visit to his estate. He had
come from Paris, which was his permanent home. I remember that he was more
surprised than any one when he made the acquaintance of the young man, who
interested him extremely, and with whom he sometimes argued and not
without an inner pang compared himself in acquirements.

“He is proud,” he used to say, “he will never be in want of pence; he has
got money enough to go abroad now. What does he want here? Every one can
see that he hasn’t come for money, for his father would never give him
any. He has no taste for drink and dissipation, and yet his father can’t
do without him. They get on so well together!”

That was the truth; the young man had an unmistakable influence over his
father, who positively appeared to be behaving more decently and even
seemed at times ready to obey his son, though often extremely and even
spitefully perverse.

It was only later that we learned that Ivan had come partly at the request
of, and in the interests of, his elder brother, Dmitri, whom he saw for
the first time on this very visit, though he had before leaving Moscow
been in correspondence with him about an important matter of more concern
to Dmitri than himself. What that business was the reader will learn fully
in due time. Yet even when I did know of this special circumstance I still
felt Ivan Fyodorovitch to be an enigmatic figure, and thought his visit
rather mysterious.

I may add that Ivan appeared at the time in the light of a mediator
between his father and his elder brother Dmitri, who was in open quarrel
with his father and even planning to bring an action against him.

The family, I repeat, was now united for the first time, and some of its
members met for the first time in their lives. The younger brother,
Alexey, had been a year already among us, having been the first of the
three to arrive. It is of that brother Alexey I find it most difficult to
speak in this introduction. Yet I must give some preliminary account of
him, if only to explain one queer fact, which is that I have to introduce
my hero to the reader wearing the cassock of a novice. Yes, he had been
for the last year in our monastery, and seemed willing to be cloistered
there for the rest of his life.

</nowiki>

T wo T r:chapter-2.tex

2021-02-22T18:39:52Z

Rkrug: Created page with " <nowiki> \Title[Chapter 2]{Chapter II. He Gets Rid Of His Eldest Son} You can easily imagine what a father such a man could be and how he would bring up his children. His be..."

<nowiki>
\Title[Chapter 2]{Chapter II. He Gets Rid Of His Eldest Son}

You can easily imagine what a father such a man could be and how he would
bring up his children. His behavior as a father was exactly what might be
expected. He completely abandoned the child of his marriage with Adelaïda
Ivanovna, not from malice, nor because of his matrimonial grievances, but
simply because he forgot him. While he was wearying every one with his
tears and complaints, and turning his house into a sink of debauchery, a
faithful servant of the family, Grigory, took the three‐year‐old Mitya
into his care. If he hadn’t looked after him there would have been no one
even to change the baby’s little shirt.

It happened moreover that the child’s relations on his mother’s side
forgot him too at first. His grandfather was no longer living, his widow,
Mitya’s grandmother, had moved to Moscow, and was seriously ill, while his
daughters were married, so that Mitya remained for almost a whole year in
old Grigory’s charge and lived with him in the servant’s cottage. But if
his father had remembered him (he could not, indeed, have been altogether
unaware of his existence) he would have sent him back to the cottage, as
the child would only have been in the way of his debaucheries. But a
cousin of Mitya’s mother, Pyotr Alexandrovitch Miüsov, happened to return
from Paris. He lived for many years afterwards abroad, but was at that
time quite a young man, and distinguished among the Miüsovs as a man of
enlightened ideas and of European culture, who had been in the capitals
and abroad. Towards the end of his life he became a Liberal of the type
common in the forties and fifties. In the course of his career he had come
into contact with many of the most Liberal men of his epoch, both in
Russia and abroad. He had known Proudhon and Bakunin personally, and in
his declining years was very fond of describing the three days of the
Paris Revolution of February 1848, hinting that he himself had almost
taken part in the fighting on the barricades. This was one of the most
grateful recollections of his youth. He had an independent property of
about a thousand souls, to reckon in the old style. His splendid estate
lay on the outskirts of our little town and bordered on the lands of our
famous monastery, with which Pyotr Alexandrovitch began an endless
lawsuit, almost as soon as he came into the estate, concerning the rights
of fishing in the river or wood‐cutting in the forest, I don’t know
exactly which. He regarded it as his duty as a citizen and a man of
culture to open an attack upon the “clericals.” Hearing all about Adelaïda
Ivanovna, whom he, of course, remembered, and in whom he had at one time
been interested, and learning of the existence of Mitya, he intervened, in
spite of all his youthful indignation and contempt for Fyodor Pavlovitch.
He made the latter’s acquaintance for the first time, and told him
directly that he wished to undertake the child’s education. He used long
afterwards to tell as a characteristic touch, that when he began to speak
of Mitya, Fyodor Pavlovitch looked for some time as though he did not
understand what child he was talking about, and even as though he was
surprised to hear that he had a little son in the house. The story may
have been exaggerated, yet it must have been something like the truth.

Fyodor Pavlovitch was all his life fond of acting, of suddenly playing an
unexpected part, sometimes without any motive for doing so, and even to
his own direct disadvantage, as, for instance, in the present case. This
habit, however, is characteristic of a very great number of people, some
of them very clever ones, not like Fyodor Pavlovitch. Pyotr Alexandrovitch
carried the business through vigorously, and was appointed, with Fyodor
Pavlovitch, joint guardian of the child, who had a small property, a house
and land, left him by his mother. Mitya did, in fact, pass into this
cousin’s keeping, but as the latter had no family of his own, and after
securing the revenues of his estates was in haste to return at once to
Paris, he left the boy in charge of one of his cousins, a lady living in
Moscow. It came to pass that, settling permanently in Paris he, too,
forgot the child, especially when the Revolution of February broke out,
making an impression on his mind that he remembered all the rest of his
life. The Moscow lady died, and Mitya passed into the care of one of her
married daughters. I believe he changed his home a fourth time later on. I
won’t enlarge upon that now, as I shall have much to tell later of Fyodor
Pavlovitch’s firstborn, and must confine myself now to the most essential
facts about him, without which I could not begin my story.

In the first place, this Mitya, or rather Dmitri Fyodorovitch, was the
only one of Fyodor Pavlovitch’s three sons who grew up in the belief that
he had property, and that he would be independent on coming of age. He
spent an irregular boyhood and youth. He did not finish his studies at the
gymnasium, he got into a military school, then went to the Caucasus, was
promoted, fought a duel, and was degraded to the ranks, earned promotion
again, led a wild life, and spent a good deal of money. He did not begin
to receive any income from Fyodor Pavlovitch until he came of age, and
until then got into debt. He saw and knew his father, Fyodor Pavlovitch,
for the first time on coming of age, when he visited our neighborhood on
purpose to settle with him about his property. He seems not to have liked
his father. He did not stay long with him, and made haste to get away,
having only succeeded in obtaining a sum of money, and entering into an
agreement for future payments from the estate, of the revenues and value
of which he was unable (a fact worthy of note), upon this occasion, to get
a statement from his father. Fyodor Pavlovitch remarked for the first time
then (this, too, should be noted) that Mitya had a vague and exaggerated
idea of his property. Fyodor Pavlovitch was very well satisfied with this,
as it fell in with his own designs. He gathered only that the young man
was frivolous, unruly, of violent passions, impatient, and dissipated, and
that if he could only obtain ready money he would be satisfied, although
only, of course, for a short time. So Fyodor Pavlovitch began to take
advantage of this fact, sending him from time to time small doles,
installments. In the end, when four years later, Mitya, losing patience,
came a second time to our little town to settle up once for all with his
father, it turned out to his amazement that he had nothing, that it was
difficult to get an account even, that he had received the whole value of
his property in sums of money from Fyodor Pavlovitch, and was perhaps even
in debt to him, that by various agreements into which he had, of his own
desire, entered at various previous dates, he had no right to expect
anything more, and so on, and so on. The young man was overwhelmed,
suspected deceit and cheating, and was almost beside himself. And, indeed,
this circumstance led to the catastrophe, the account of which forms the
subject of my first introductory story, or rather the external side of it.
But before I pass to that story I must say a little of Fyodor Pavlovitch’s
other two sons, and of their origin.

</nowiki>

T wo T r:chapter-1.tex

2021-02-22T18:39:08Z

Rkrug: Created page with " <nowiki> \Title[Chapter 1]{Chapter I. Fyodor Pavlovitch Karamazov and a bit more text to force a multiline title.} VAT \Footnote{A first footnote.} Office. ſ õ Æ Alexey..."

<nowiki>

\Title[Chapter 1]{Chapter I. Fyodor Pavlovitch Karamazov and a bit
more text to force a multiline title.}

VAT
\Footnote{A first footnote.}
Office. ſ õ Æ Alexey {Fyodorovitch \Emph{Karamazov} was} the third son of
%%% This is a comment
Fyodor {Pavlovitch \Bold{Karamazov}, a} land owner well known in our district
in his own day, and still remembered among us owing to his gloomy and
tragic death, which happened thirteen years ago, and which I shall
describe in its proper place.{ \Emph{For the {\Bold present} I}
will\Footnote{A second footnote with no leading space.} only say} that
this "landowner"—for so we used to call him, although he hardly spent
a day of his life on his own estate—was a strange type, yet one pretty
frequently to be met with, a type abject and vicious and at the same
time senseless. But he was one of those senseless persons who are very
well capable of looking after their worldly affairs, and, apparently,
after nothing else. Fyodor Pavlovitch, for instance, began with next
to nothing; his estate was of the smallest; he ran to dine at other
men's tables, and fastened on them as a toady, yet at his death it
appeared that he had a hundred thousand roubles in hard cash. At the
same time, he was all his life one of the most senseless, fantastical
fellows in the whole district. I repeat, it was not stupidity—the
majority of these fantastical fellows are shrewd and intelligent\
enough—but just senselessness, and a peculiar national form of it.
\Footnote{A longer footnote that will be broken into more than one paragraph.
Some more text. And a repeat of some of the text being noted upon:
I repeat, it was not stupidity—the
majority of these \Bold{fantastical} fellows are shrewd and intelligent\
enough—but just senselessness, and a peculiar national form of it.

Here is the second paragraph. I repeat, it was not stupidity—the
majority of these \Bold{fantastical} fellows are shrewd and intelligent\
enough—but just senselessness, and a peculiar national form of it.}

He was married {\Bold twice}, and had three sons, the eldest, Dmitri, by his
\Fix{fist}{first}{typo}% This comment will eliminate any white space.
wife, and two, Ivan and Alexey, by his second. Fyodor
Pavlovitch's first wife, Adelaïda Ivanovna, belonged to a fairly rich
and distinguished noble family, also landowners in our district, the
Miüsovs. How it came to pass that an heiress, who was also a beauty,
and moreover one of those vigorous, intelligent girls, so common in
this generation, but sometimes also to be found in the last, could
have married such a worthless, puny weakling, as we all called him, I
won't attempt to explain. {I knew a young lady} of the last “romantic”
generation who after some years of an enigmatic passion for a
gentleman, whom she might quite easily have married at any moment,
invented insuperable obstacles to their union, and ended by throwing
herself one stormy night into a rather deep and rapid river from a
high bank, almost a precipice, and so perished, entirely to satisfy
her own caprice, and to be like Shakespeare's Ophelia. Indeed, if this
precipice, a chosen and favorite spot of hers, had been less
picturesque, if there had been a prosaic flat bank in its place, most
likely the suicide would never have taken place. This is a fact, and
probably there have been not a few similar instances in the last two
or three generations. Adelaïda Ivanovna Miüsov's action was similarly,
no doubt, an echo of other people's ideas, and was due to the
irritation caused by lack of mental freedom. She wanted, perhaps, to
show her feminine independence, to override class distinctions and the
despotism of her family. And a pliable imagination persuaded her, we
must suppose, for a brief moment, that Fyodor Pavlovitch, in spite of
his parasitic position, was one of the bold and ironical spirits of
that progressive epoch, though he was, in fact, an ill-natured buffoon
and nothing more. What gave the marriage piquancy was that it was
preceded by an elopement, and this greatly captivated Adelaïda
Ivanovna's fancy. Fyodor Pavlovitch's position at the time made him
specially eager for any such enterprise, for he was passionately
anxious to make a career in one way or another. To attach himself to a
good family and obtain a dowry was an alluring prospect. As for mutual
love it did not exist apparently, either in the bride or in him, in
spite of Adelaïda Ivanovna's beauty. This was, perhaps, a unique case
of the kind in the life of Fyodor Pavlovitch, who was always of a
voluptuous temper, and ready to run after any petticoat on the
slightest encouragement. She seems to have been the only woman who
made no particular appeal {to his senses.}

Immediately after the elopement Adelaïda Ivanovna discerned in a flash
that she had no feeling for her husband but contempt. The marriage
accordingly showed itself in its true colors with extraordinary
rapidity. Although the family accepted the event pretty quickly and
apportioned the runaway bride her dowry, the husband and wife began to
lead a most disorderly life, and there were everlasting scenes between
them. It was said that the young wife showed incomparably more
generosity and dignity than Fyodor Pavlovitch, who, as is now known,
got hold of all her money up to twenty-five thousand roubles as soon
as she received it, so that those thousands were lost to her for
ever. The little village and the rather fine town house which formed
part of her dowry he did his utmost for a long time to transfer to his
name, by means of some deed of conveyance. He would probably have
succeeded, merely from her moral fatigue and desire to get rid of him,
and from the contempt and loathing he aroused by his persistent and
shameless importunity. But, fortunately, Adelaïda Ivanovna's family
intervened and circumvented his greediness. It is known for a fact
that frequent fights took place between the husband and wife, but
rumor had it that Fyodor Pavlovitch did not beat his wife but was
beaten by her, for she was a hot-tempered, bold, dark-browed,
impatient woman, possessed of remarkable physical strength. Finally,
she left the house and ran away from Fyodor Pavlovitch with a
destitute divinity student, leaving Mitya, a child of three years old,
in her husband's hands. Immediately Fyodor Pavlovitch introduced a
regular harem into the house, and abandoned himself to orgies of
drunkenness. In the intervals he used to drive all over the province,
complaining tearfully to each and all of Adelaïda Ivanovna's having
left him, going into details too disgraceful for a husband to mention
in regard to his own married life. What seemed to gratify him and
flatter his self-love most was to play the ridiculous part of the
injured husband, and to parade his woes with embellishments.

“One would think that you'd got a promotion, Fyodor Pavlovitch, you
seem so pleased in spite of your sorrow,” scoffers said to him. Many
even added that he was glad of a new comic part in which to play the
buffoon, and that it was simply to make it funnier that he pretended
to be unaware of his ludicrous position. But, who knows, it may have
been simplicity. At last he succeeded in getting on the track of his
runaway wife. The poor woman turned out to be in Petersburg, where she
had gone with her divinity student, and where she had thrown herself
into a life of complete emancipation. Fyodor Pavlovitch at once began
bustling about, making preparations to go to Petersburg, with what
object he could not himself have said. He would perhaps have really
gone; but having determined to do so he felt at once entitled to
fortify himself for the journey by another bout of reckless
drinking. And just at that time his wife's family received the news of
her death in Petersburg. She had died quite suddenly in a garret,
according to one story, of typhus, or as another version had it, of
starvation. Fyodor Pavlovitch was drunk when he heard of his wife's
death, and the story is that he ran out into the street and began
shouting with joy, raising his hands to Heaven: “Lord, now lettest
Thou Thy servant depart in peace,” but others say he wept without
restraint like a little child, so much so that people were sorry for
him, in spite of the repulsion he inspired. It is quite possible that
both versions were true, that he rejoiced at his release, and at the
same time wept for her who released him. As a general rule, people,
even the wicked, are much more naïve and simple-hearted than we
suppose. And we ourselves are, too.
</nowiki>

T wo T r:text.tex

2021-02-22T18:37:58Z

Rkrug: Created page with " <nowiki> \Input{chapter-1.tex} \Input{ chapter-2.tex } \Input{chapter-3.tex} \Input{chapter-4.tex} \Input{chapter-5.tex} </nowiki>"

<nowiki>

\Input{chapter-1.tex}

\Input{ chapter-2.tex }

\Input{chapter-3.tex}

\Input{chapter-4.tex}

\Input{chapter-5.tex}

</nowiki>

T wo T r:test.lua

2021-02-22T18:37:12Z

Rkrug: Created page with " <nowiki> --- Everything is global, so that it will be available in the REPL --- For use in REPL, not used here util = require("utils") sp_to_p = util.sp_to_p sp_to_in..."

<nowiki>

--- Everything is global, so that it will be available in the REPL

--- For use in REPL, not used here

util = require("utils")

sp_to_p = util.sp_to_p
sp_to_in = util.sp_to_in

node_type = util.node_type
node_subtype = util.node_subtype

link_nodes = util.link_nodes

make_glyph = util.make_glyph
make_glue = util.make_glue
make_glue_spec = util.make_glue_spec
make_rule = util.make_rule
make_penalty = util.make_penalty

fil = util.fil
fill = util.fill
filll = util.filll

is_whitespace = util.is_whitespace
is_linefeed = util.is_linefeed
is_nobreak = util.is_nobreak
is_command_terminator = util.is_command_terminator

copy_table = util.copy_table

read_string = util.read_string
read_group = util.read_group

walk_table = util.walk_table
show_node = util.show_node
walk_list = util.walk_list

--- For use here

repl = require("repl")

repl = repl.repl

reader = require("reader")

push_reader = reader.push_reader

commands = require("commands")

pages = require("pages")

build_pages = pages.build_pages
build_page = pages.build_page

main = require("main")

main_loop = main.main_loop

format = require("format")

main_text_tbl = format.main_text_tbl
push_tbl = format.push_tbl

--- Do the job

function do_job()
push_reader("file:text.tex")
push_tbl(main_text_tbl)
main_loop()
build_pages()
end

do_job()

--- Enter REPL for exploration

--- repl()
</nowiki>

T wo T r:twotr

2021-02-22T18:36:33Z

Rkrug: /* Contents */

== About ==

This is an update and expansion of [[TeX without TeX]] --- using TeX's
functionality (typesetting, pdf writing) using only Lua code (no \TeX
macros).

It is (I believe) an adequate framework for developing a complete
type-setting system; although one dedicated to a specific task, rather
than a general purpose system such as LaTeX or ConTeXt. It includes a
couple of example formatting commands (\Emph and \Bold), titles
(\Title), the ability to include other subsidiary text files (\Input)
and footnotes (\Footnote). It can be easily adapted and expanded to
suit your needs.

I am not much of a programmer, and knew little about TeX and even less
about Lua when I started this, so there is undoubtedly much that can
be improved. All questions, comments, suggestions, and corrections
will be appreciated. You can reach me at "destiny6 <AT> mac <DOT>
com".

== Pre-requisites ==

This system requires the luatex-plain format (from ConTeXt), so that
we have access to Open Type Fonts and other goodies. This is what I
did on my system:

# Find the luatex-plain.tex file. On my system (with TeX-Live 2020)
it was at:

<code>
/usr/local/share/texmf-dist/tex/generic/context/luatex/luatex-plain.tex
</code>

# If you just build a format file,

<code>
luatex --ini /usr/local/share/texmf-dist/tex/generic/context/luatex/luatex-plain.tex
</code>

you will probably get warnings about using the "merged" file, and not
the more current and supported files. Delete, move, or rename this
file. On my system I did:

<code>
doas mv /usr/local/share/texmf-dist/tex/generic/context/luatex/luatex-fonts-merged.lua /usr/local/share/texmf-dist/tex/generic/context/luatex/luatex-fonts-merged.lua.bak
</code>

# Now, build the format file.

<code>
luatex --ini /usr/local/share/texmf-dist/tex/generic/context/luatex/luatex-plain.tex
</code>

# We are almost done. If the resulting format file (luatex-plain.fmt)
is in the current working directory, you can use it with something
like:

<code>
luatex --fmt luatex-plain test
</code>

# But, this is too restrictive.

## Create a new executable with the name luatex-plain. Something
like:

<code>
ln -s `which luatex` /usr/local/bin/luatex-plain
</code>

## When you try to invoke it:

<code>
luatex-plain test
</code>

it will fail with a message about failing to find the proper
format file. There should be a line something like:

<code>
mktexfmt [INFO]: writing formats under ~/.texlive2020/texmf-var/web2c
</code>

so, copy the format file to that location:

<code>
cp luatex-plain.fmt ~/.texlive2020/texmf-var/web2c/
</code>

now, this should work:

<code>
luatex-plain test
</code>

Finally, run mtxrun to generate a fonts database: 

<code>
mtxrun --script fonts --reload --simple
</code>

== Contents ==

This files for this project are also available at:
[https://github.com/s-dismas/TeX-without-TeX-revised GitHub]

There is a Read Eval Print Loop available for interactively exploring:

[[T_wo_T_r:repl.lua|repl.lua]]

It can be invoked with <code>repl.repl()<code/>, and either
<code>quit()<code/> or <code>exit<code/> will exit it. I use Shell Mode in
Emacs, but a simple terminal or similar should also work.

Some utilites are in the file:

[[T_wo_T_r:utils.lua|utils.lua]]

The following five files comprise the system:

[[T_wo_T_r:reader.lua|reader.lua]]

[[T_wo_T_r:format.lua|format.lua]]

[[T_wo_T_r:main.lua|main.lua]]

[[T_wo_T_r:pages.lua|pages.lua]]

[[T_wo_T_r:commands.lua|commands.lua]]

The license for this software can be seen at:

[[T_wo_T_r:LICENSE.txt| License.]]

The TeX file to be compiled by luatex-plain is:

[[T_wo_T_r:test.tex|test.tex]]

The Lua file executed by <code>\directlua{dofile "test.lua"}</code>
within [[T_wo_T_r:test.tex|test.tex]] is:

[[T_wo_T_r:test.lua|test.lua]]

The main text file to be typeset is:

[[T_wo_T_r:text.tex|text.tex]]

It includes the following five files:

[[T_wo_T_r:chapter-1.tex|chapter 1]]

[[T_wo_T_r:chapter-2.tex|chapter 2]]

[[T_wo_T_r:chapter-3.tex|chapter 3]]

[[T_wo_T_r:chapter-4.tex|chapter 4]]

[[T_wo_T_r:chapter-5.tex|chapter 5]]

T wo T r:test.tex

2021-02-22T18:35:43Z

Rkrug: Created page with " <nowiki> \directlua{dofile "test.lua"} \bye </nowiki>"

<nowiki>

\directlua{dofile "test.lua"}
\bye

</nowiki>

T wo T r:LICENSE.txt

2021-02-22T18:35:00Z

Rkrug: Created page with " <nowiki> Copyright (c) 2021 Toadstone Enterprises. ----------------------------------------------------------------- The stone must be taken out of the head alive, before..."

<nowiki>

Copyright (c) 2021 Toadstone Enterprises.

-----------------------------------------------------------------

The stone must be taken out of the head alive, before the Toad be
dead, with a peece of cloth of the colour of red Skarlet,
where-withall the toads are much delighted, so that they stretch out
themselves as it were in sport upon that cloth. They cast out the
stone of their head, but instantly they sup it up againe, unlesse it
be taken from them through some secrete hole in the said cloth,
whereby it falleth into a cestern or vessell of water, into which the
Toade dareth not enter, by reason of the coldnes of the water.

-----------------------------------------------------------------

Permission to use, copy, modify, and/or distribute this software for
any purpose with or without fee is hereby granted, provided that the
above copyright notice and this permission notice appear in all
copies.

THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL
WARRANTIES WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED
WARRANTIES OF MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE
AUTHOR BE LIABLE FOR ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL
DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR
PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER
TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
PERFORMANCE OF THIS SOFTWARE.
</nowiki>

T wo T r:commands.lua

2021-02-22T18:34:15Z

Rkrug: Created page with " <nowiki> --- Copyright (c) 2021 by Toadstone Enterprises. --- ISC-type license, see License.txt for details. -------------------------------------------------------------..."

<nowiki>

--- Copyright (c) 2021 by Toadstone Enterprises.
--- ISC-type license, see License.txt for details.

-----------------------------------------------------------------

local util = require("utils")

local read_group = util.read_group
local is_command_terminator = util.is_command_terminator
local is_whitespace = util.is_whitespace
local node_type = util.node_type

local reader = require("reader")

local push_reader = reader.push_reader
local pop_reader = reader.pop_reader
local read_value = reader.read_value
local unread_value = reader.unread_value
local replace_text = reader.replace_text
local pos = reader.pos

local format = require("format")

local update_state = format.update_state
local update_locals = format.update_locals
local push_tbl = format.push_tbl
local pop_tbl = format.pop_tbl
local top_tbl = format.top_tbl
local push_do_command_stop = format.push_do_command_stop
local footnote_tbl = format.footnote_tbl
local emph_text_font = format.emph_text_font
local bold_text_font = format.bold_text_font
local title_font = format.title_font
local superscript_font = format.superscript_font

local pages = require("pages")

local process_par = pages.process_par
local build_par = pages.build_par
local build_pages = pages.build_pages

local main = main or require("main")

local main_loop = main.main_loop

-----------------------------------------------------------------

--- We will keep our various commands in a table, so that we
--- can retrieve them by name. We use a metatable to throw
--- a consistent error if a non-existant command is looked
--- for. The idea was that this would throw the error at that
--- time, instead of later on when we tried to use it.

local command_table = {}

local mt = {__index = function (_, command)
error("Bad Command:" .. command)
end
}

setmetatable(command_table, mt)

local register_command = function(name, func)
command_table[name] = func
end

-----------------------------------------------------------------

local get_command = function()
-- A command in initiated by a "\", and terminated by a
-- "[", "{", or whitespace. (But the initiating "\" has
-- already been read past.) Return the command as a string.
-- We also 'eat' any extra following whitespace, and then
-- back up by one character, so the command can see the
-- terminator; although we may lose the distinction of
-- which whitespace terminated the command.
-- This backing up will also allow the main_loop to see
-- the "{", if there was one, and so doing the do_command_start.

local command = ""
local value = read_value()

if is_command_terminator(value) then
-- A one character command, consisting solely of a command terminator.
command = unicode.utf8.char(value)
else
while (value and (not is_command_terminator(value))) do
command = command .. unicode.utf8.char(value)
value = read_value()
end
end

while is_whitespace(value) do
-- eat the white
value = read_value()
end

-- so command can see the 'terminator'
-- Note that if the command was terminated by whitespace,
-- and then followed by more whitespace, we will not be
-- distinguishing between the various types of whitespace.
-- Does this matter?
unread_value()

return command
end

--- WARNING: An Emph in a Footnote will result in a change of font size!
--- There should be some notion of a font family where given the current
--- font, an appropriate Emph font can be chosen. At least consider size.

--- Emph displays most of the standard ways to do a command.
--- We define a function do_emph, which will then be registered.

local do_emph = function()
-- We start off with some initialization. In this case, are we
-- emphasizing the following group, or are we (presumably) already
-- within a group?

local value = read_value()
unread_value{}

if value == unicode.utf8.byte("{") then
-- We emphasize the following group

-- We now finish the initialization in this branch of the
-- if statement.

-- We push the current table, to that we can restore it
-- at the end, namely in the do_command_stop.
push_tbl(copy_table(top_tbl()))

-- We have finished the initialization, so we define a
-- do_command_start function to be executed upon encountering
-- the "{"
local do_command_start = function()
-- Switch over to the Emph font.
local tbl = top_tbl()
tbl.font = emph_text_font
end

-- We then put this function into the proper place in State.
State.do_command_start = do_command_start

-- We also define a do_command_stop function, to be executed
-- upon encountering the terminating "}".
local do_command_stop = function()
-- Pop the table, to return to the
-- previous situation.
pop_tbl()
end
-- We then put this function into the proper place in State.
push_do_command_stop(do_command_stop)

else
-- Emphasize all the following text (presumably within a group)
-- This change of font will get reset when the group is exited,
-- since State.tbl has been copied and pushed upon entrance into
-- the group.
local tbl = top_tbl()
tbl.font = emph_text_font
end
end

register_command("Emph", do_emph)

local do_bold = function()
local value = read_value()
unread_value{}

if value == unicode.utf8.byte("{") then
push_tbl(copy_table(top_tbl()))
local do_command_start = function()
local tbl = top_tbl()
tbl.font = bold_text_font
end
State.do_command_start = do_command_start
local do_command_stop = function()
pop_tbl()
end
push_do_command_stop(do_command_stop)
else
local tbl = top_tbl()
tbl.font = bold_text_font
end
end

register_command("Bold", do_bold)

local do_input = function()
-- Input a file.

local filename

local do_command_start = function()
-- so that the following read_group will see the opening "{"
unread_value()
-- Note that with the argument true to read_group
-- Input{filename}
-- Input { filename }
-- Input{file name}
-- wil all read "filename"
-- Do we want this? The second seems useful, the
-- third does not.
filename = read_group(true)
-- So that main_loop will see the closing "}"
-- and call do_command_stop.
unread_value()
end
State.do_command_start = do_command_start
local do_command_stop = function()
-- We could have done all this above.
-- Now read in the file
push_reader("file:" .. filename)
-- Recursively call main_loop to typeset the
-- material we have read in. At the end of the
-- files contents, main_loop will terminate,
-- and execution will resume with the call to
-- pop_reader below.
-- Why do I need to qualify this?
main.main_loop()
-- Back to the original reader.
pop_reader()
-- And we now build the pages. We could probably
-- just leave the material there, but I am
-- envisioning each of these input files to
-- represent a chapter, to be typeset as their
-- own set of pages.
build_pages()
end
push_do_command_stop(do_command_stop)
end

register_command("Input", do_input)

local do_fix = function()
-- If one is transcribing a document, one may wish to correct
-- typos. Three args - {<old>}{<new>}{<reason>}
-- Perhaps not too useful in general, but a nice demonstration
-- piece.

-- Read the three groups, and insert the new text.
local start = pos()
local old = read_group(false)
local new = read_group(false)
local reason = read_group(false)
local stop = pos()
replace_text(new, start, stop-1)
end

register_command("Fix", do_fix)

local do_nb_space = function()
-- Non breaking space. Note that we may have eaten any
-- extra following white space, so the char at pos() may not
-- be the original space.
local cur_pos = pos()
replace_text(unicode.utf8.char(0x00A0), cur_pos -2, cur_pos -1)
end

register_command(" ", do_nb_space)

--- QUESTION: Why, unlike in Footnote, do we not need to save the
--- current head and tail? Why do we set them to nil when we return
--- in do_command_stop?

local do_title = function()
local value = read_value()
if value == unicode.utf8.byte("[") then
-- We use the contents of this optional argument to set the
-- text of the header.
unread_value()
local args = read_group(false)
-- Set the text of the header.
State.header_text = args
else
-- So that the opening "{" will be seen.
unread_value()
end

local old_baselineskip = tex.baselineskip
push_tbl(copy_table(top_tbl()))

local do_command_start = function()
-- Set the new font and baselineskip
tex.baselineskip = make_glue_spec(tex.sp("25pt"))
-- Add a title_tbl in format.lua?
local tbl = top_tbl()
tbl.font = title_font

tbl.parindent = tex.sp("0pt")
tbl.leftskip = filll()
tbl.rightskip = filll()
end
State.do_command_start = do_command_start
local do_command_stop = function()
-- We have now read the title, so force
-- building a paragraph
local head, tail, _, _ = update_locals()
local par = build_par(head, tail)
process_par(par)
-- Insert the (vertical) space after the title.
local title_sep = make_glue("userskip", tex.sp("0.25in"))
process_par(title_sep)
-- Reset various variables
update_state(nil, nil, false, false)
tex.baselineskip = old_baselineskip
pop_tbl()

-- New chapter started
State.first_paragraph_of_chapter = true
State.first_page_of_chapter = true
State.notes = {}
State.max_notes = 0
end
push_do_command_stop(do_command_stop)
end

register_command("Title", do_title)

local do_footnote = function()

-- See the QUESTION: before do_title.
local old_head, old_tail, _, _ = update_locals()
local old_baselineskip = tex.baselineskip
State.max_notes = State.max_notes + 1

local do_command_start = function()
-- We want to mark the first preceding glyph
-- node with the Footnote marker.
local to_be_marked = old_tail
-- Search backward
while (node_type(to_be_marked) ~= "glyph") do
to_be_marked = to_be_marked.prev
end
-- Naked glyphs cannot go into a vlist:
local marker = node.hpack(make_glyph(unicode.utf8.byte(tostring(State.max_notes)),
superscript_font,
1, 3, 3))
-- Some glue to raise the mark
local marker_glue = make_glue(0, tex.sp("5pt"))
link_nodes(marker, marker_glue)
-- vpack, so that the glue is on the bottom,
-- not the left.
local packed = node.vpack(marker)
-- Link things back up.
if (to_be_marked == old_tail) then
link_nodes(to_be_marked, packed)
old_tail = packed
else
link_nodes(to_be_marked, packed, to_be_marked.next)
end
-- Add attribute to to_be_marked, so that we can
-- see it while building the page, and get the
-- note.
node.set_attribute(to_be_marked, 444, State.max_notes)

-- Now, set up the first glyph of the footnote
-- to also receive the footnote mark. Here we need
-- to search forward using the reader.
local pos = pos()
local value = read_value()
-- We make the (possibly false) assumption that
-- the footnote starts with a glyph. There should
-- be some way to identify glyphs. What if the
-- footnote started with an Emph?
replace_text("\\Mark{" .. unicode.utf8.char(value) .. "}", pos, pos)

-- Switch to footnote mode, and call main_loop
-- to typeset the footnote.
State.mode = "footnote"
update_state(nil, nil, false, false)
push_tbl(footnote_tbl)
main.main_loop()
end
State.do_command_start = do_command_start
local do_command_stop = function()
-- We now build the (final) paragraph of the
-- footnote and process it (put it in
-- State.notes[max_notes]). Note that if the
-- footnote contains multiple paragraphs, the
-- earlier ones have already been processed.
-- Note also that, unlike with Input, where
-- main_loop will terminate on eol, and so
-- build_par, process_par, and build_pages,
-- we have to do some of this now.
local head, tail, _, _ = update_locals()
tex.baselineskip = make_glue_spec(tex.sp("12pt"))
local par = build_par(head, tail)
process_par(par)
tex.baselineskip = old_baselineskip
-- and restore the previous mode, head, and tail.
pop_tbl()
State.mode = "main_text"
update_state(old_head, old_tail, false, false)
end
push_do_command_stop(do_command_stop)
end

register_command("Footnote", do_footnote)

local do_mark = function()

-- Even though we do nothing in do_command_start, we
-- must define it, so that upon seeing the "{" main_loop
-- will know that we are starting a command, and not
-- entering a new group.
local do_command_start = function()
end
State.do_command_start = do_command_start
local do_command_stop = function()
local head, tail, _, _ = update_locals()
-- We should have just read the single chararcter
-- at the start of the footnote. Therefore head
-- and tail should be the same. Check this.
assert((head == tail), "Head and tail are not the same.")
-- add the mark as in Footnote.
local marker = node.hpack(make_glyph(unicode.utf8.byte(tostring(State.max_notes)),
superscript_font,
1, 3, 3))
local marker_glue = make_glue(0, tex.sp("5pt"))
link_nodes(marker, marker_glue)
local packed = node.vpack(marker)
link_nodes(packed, head)
update_state(packed, tail, false, false)
end
push_do_command_stop(do_command_stop)

end

register_command("Mark", do_mark)

local initialize_command = function(command)
return command_table[command]()
end

local commands = {get_command = get_command,
initialize_command = initialize_command,
}

return commands
</nowiki>

T wo T r:pages.lua

2021-02-22T18:33:27Z

<nowiki>

--- Copyright (c) 2021 by Toadstone Enterprises.
--- ISC-type license, see License.txt for details.

-----------------------------------------------------------------

local util = require("utils")

local node_type = util.node_type
local link_nodes = util.link_nodes
local make_glue = util.make_glue
local make_rule = util.make_rule

local format = require("format")

local text_height = format.text_height

local top_margin = format.top_margin
local left_margin = format.left_margin

local header_height = format.header_height
local header_sep = format.header_sep

local footer_height = format.footer_height
local footer_sep = format.footer_sep

local page_number = format.page_number

local header_tbl = format.header_tbl
local footer_tbl = format.footer_tbl
local push_tbl = format.push_tbl
local pop_tbl = format.pop_tbl
local top_tbl = format.top_tbl

local reader = require("reader")

local push_reader = reader.push_reader
local pop_reader = reader.pop_reader

local main = main or require("main")

local main_loop = main.main_loop

-----------------------------------------------------------------

local par_height = function(par)
-- But can really be used on any list of lines including
-- multiple paragraphs.
local height = 0
while par do
if (node_type(par) == "hlist") then
height = height + par.height + par.depth
elseif (node_type(par) == "glue") then
height = height + par.width
else
-- A penalty has zero height, but what else might we find?
assert((node_type(par) == "penalty"), "Found a: " .. node_type(par))
end
par = par.next
end
return height
end

local build_par = function(head, tail)
-- We have a linked list of nodes, starting with head, and ending
-- with tail. We insert the initial parindent and final penalty
-- and parfillskip.

local tbl = top_tbl()

local n
if State.first_paragraph_of_chapter then
-- This is the first paragraph after a title. Do not indent.
n = make_glue(0, 0)
State.first_paragraph_of_chapter = false
else
--indent.
n = make_glue(0,
tbl.parindent or tex.parindent)
end
link_nodes(n, head)
head = n

local penalty = node.new("penalty")
penalty.penalty = 10000

local parfillskip = make_glue("parfillskip",
0,
tbl.parfillskipstretch or 2^16, 0,
tbl.parfillskipstretch_order or 2, 0)

link_nodes(tail, penalty, parfillskip)

-- hyphenate, kern, and ligature
lang.hyphenate(head)
-- With otf fonts, use this rather than kern and ligature.
nodes.simple_font_handler(head)

-- and make the paragraph.
local par = tex.linebreak(head, tbl)

return par
end

local process_par = function(par)
-- Move par to the appropriate place, based on State.mode

-- If we want to build pages as we go, instead of in batches,
-- we can call the page builder from in here.

local a_par_is_already_there
if (State.mode == "main_text") then
a_par_is_already_there = State.main
elseif (State.mode == "header") then
a_par_is_already_there = State.header
elseif (State.mode == "footer") then
a_par_is_already_there = State.footer
elseif (State.mode == "footnote") then
a_par_is_already_there = State.notes[State.max_notes]
else
assert(false, "Invalid mode seen in process_par")
end

if a_par_is_already_there then

-- at least one paragraph has already been processed, so we link
-- the new par to the old one.
local tail = node.tail(a_par_is_already_there)
if ((node_type(tail) == "hlist") and
(node_type(par) == "hlist")) then
-- add tex.baselineskip
local glue_needed = tex.baselineskip.width - (par.height + tail.depth)
local n = make_glue("baselineskip",
glue_needed)
link_nodes(tail, n, par)
else
-- tail or par is glue?
assert(((node_type(tail) == "glue") or
(node_type(par) == "glue")), "Not glue!")
-- We assume that this glue is enough.
link_nodes(tail, par)
end

else

-- This is the first par, so we just put it where it belongs.
if (State.mode == "main_text") then
State.main = par
elseif (State.mode == "header") then
State.header = par
elseif (State.mode == "footer") then
State.footer = par
elseif (State.mode == "footnote") then
State.notes[State.max_notes] = par
else
assert(false, "Invalid mode seen in process_par")
end
end
end

local pop_line = function()
-- Pop the top line from State.main.
-- This is used by build_page to incrementally build a page.

if State.main then
local line = State.main
State.main = State.main.next
if State.main then
State.main.prev = nil
end
line.next = nil
return line
else
return nil
end
end

local return_line = function(line)
-- Return a (previously popped) line to State.main

line.next = State.main
if State.main then
State.main.prev = line
end
State.main = line

end

-----------------------------------------------------------------

--- Now, on to build_page.

local make_header = function()
-- Make the header

-- The text of our header.
-- When we call main_loop, this will be the reader used.
if State.header_text then
push_reader(State.header_text)
else
push_reader("Header")
end

-- This is the tbl that will be used by main_loop.
push_tbl(header_tbl)
local old_mode = State.mode
State.mode = "header"
-- Now we do the work.
-- When pages and main became mutually dependant, I had to
-- prefix main_loop with the package name. Otherwise:
-- attempt to call a nil value (upvalue 'main_loop')
-- Similarly in make_footer.
-- Why is this?
main.main_loop()
State.mode = old_mode

-- Restore the old reader and tbl.
pop_reader()
pop_tbl()

-- We assume that the header is only one line
local line = State.header
State.header = nil
assert((line.next == nil), "Header is not just one line.")

-- We center the header (vertically) in its header_height box
local needed_height = header_height - line.height
local top_glue = make_glue(0, needed_height / 2)
local bot_glue = make_glue(0, needed_height / 2)

-- Add a rule
local header_rule = make_rule("normal", text_width, tex.sp("1pt"))
header_rule_box = node.hpack(header_rule) -- Must hpack. Why?

-- centered (vertically) in its header_sep height box
local top_sep_glue = make_glue(0, (header_sep - tex.sp("1pt") / 2))
local bot_sep_glue = make_glue(0, (header_sep - tex.sp("1pt") / 2))

-- link it al together
link_nodes(top_glue, line, bot_glue,
top_sep_glue, header_rule_box, bot_sep_glue)

-- and package it up in a vbox
local header = node.vpack(top_glue)

return header
end

local make_footer = function()

-- the text of our footer
push_reader(tostring(page_number))

push_tbl(footer_tbl)

local old_mode = State.mode
State.mode = "footer"
main.main_loop()
State.mode = old_mode

pop_reader()
pop_tbl()

local line = State.footer
State.footer = nil
assert((line.next == nil), "Footer is not just one line.")

local needed_height = footer_height - line.height
local foot_glue = make_glue(0, needed_height)

local sep_glue = make_glue(0, footer_sep)

link_nodes(sep_glue, foot_glue, line)

local footer = node.vpack(foot_glue)

return footer
end

local build_page_step_one = function(line)
-- 1) get the main text from main_text, a line at a time until
-- we either run out of lines or text_height.

local head = line
local tail = line
local note = nil
local notes = nil
local current_height = 0
while ((current_height < text_height) and line) do

if node_type(line) == "hlist" then
-- See if this line has an associated footnote.
local v, _ = node.find_attribute(line.head, 444)
if v then
-- Get the note, and account for its height.
note = State.notes[v]
local extra = par_height(note)
if notes then
-- The separation between notes.
extra = extra + tex.sp("4pt")
else
-- The separation before the first note.
extra = extra + tex.sp("8pt")
end
-- Does the line still fit on the page?
if (current_height + line.height + line.depth + extra) < text_height then
-- Add the line to the end of the text.
link_nodes(tail, line)
tail = line
current_height = (current_height + line.height + line.depth + par_height(note))
if notes then
-- Add the note to the notes.
local n = make_glue(0, tex.sp("4pt"))
link_nodes(node.tail(notes), n, note)
else
-- This is the first note.
notes = note
end
else
-- The line plus the note do not fit on the page.
return_line(line, main_text)
return current_height, head, tail, notes
end
elseif (current_height + line.height + line.depth) < text_height then
-- We have a line without a note, that fits on the page.
link_nodes(tail, line)
tail = line
current_height = (current_height + line.height + line.depth)
else
-- The line does not fit on the page.
return_line(line, main_text)
return current_height, head, tail, notes
end
elseif node_type(line) == "glue" then
-- line is glue, not an hlist.
if (current_height + line.width) < text_height then
-- line fits on the page.
link_nodes(tail, line)
tail = line
current_height = current_height + line.width
else
-- line does not fit on the page.
return_line(line, main_text)
return current_height, head, tail, notes
end
else
-- line is neither an hlist nor glue.
assert((node_type(line) == "penalty"), "Threw away a non-penalty: " .. node_type(line))
end

-- Get the next line, and go to the top of the while loop
line = pop_line()

end
return current_height, head, tail, notes
end

local build_page_step_four = function(text_box, notes, header_box, footer_box)
-- 4) put it all together

local top_margin_glue = make_glue(0, top_margin)

if State.first_page_of_chapter then
-- No header
if notes then
local n = make_glue(0, tex.sp("8pt"))
link_nodes(top_margin_glue, text_box, n, notes)
else
link_nodes(top_margin_glue, text_box)
end
State.first_page_of_chapter = false
else
-- Include a header
if notes then
local n = make_glue(0, tex.sp("8pt"))
link_nodes(top_margin_glue, header_box, text_box, n, notes, footer_box)
else
link_nodes(top_margin_glue, header_box, text_box, footer_box)
end
end

-- 4a) Finish the assembly of the page, and ship it out.

local main_box = node.vpack(top_margin_glue)

local left_margin_glue = make_glue(0, left_margin)

link_nodes(left_margin_glue, main_box)

local page_box = node.hpack(left_margin_glue)

tex.setbox(666, page_box)

tex.shipout(666)

-- Increment the page counters, both tex's and ours.
tex.count[0] = tex.count[0] + 1
page_number = page_number + 1
end

local build_page = function()
-- Build a page by:
-- 1) get the main text from main_text, a line at a time until
-- we either run out of lines or text_height.
-- 2) pad out the text to fill text_height
-- 3) make our header and footer
-- 4) put it all together

local line = pop_line()
local current_height = 0
local head, tail
local notes

-- We are at the top of the page, so we throw away anything
-- that is not an hlist
while node_type(line) ~= "hlist" do
print("Throwing away a: " .. node_type(line))
line = pop_line(main_text)
end

-- 1) get the main text from State.text, a line at a time until
-- we either run out of lines or text_height.
current_height, head, tail, notes = build_page_step_one(line)

-- We have fit all the text that will fit on the page.
-- 2) pad out the text to fill text_height

if (current_height < text_height) then
local needed_height = text_height - current_height
local n = make_glue(0, needed_height)
link_nodes(tail, n)
end

local text_box = node.vpack(head)

-- 3) make our header and footer

local header_box = make_header()
local footer_box = make_footer()

-- 4) put it all together

build_page_step_four(text_box, notes, header_box, footer_box)

end

local build_pages = function()
-- While there is text to fill a page, we build pages.
while State.main do
build_page()
end
end

return {build_par = build_par,
process_par = process_par,
build_pages = build_pages}
</nowiki>

T wo T r:main.lua

2021-02-22T18:32:47Z

<nowiki>

--- Copyright (c) 2021 by Toadstone Enterprises.
--- ISC-type license, see License.txt for details.

-----------------------------------------------------------------

--- Why is this needed?
local main = {}
package.loaded[...] = main

local util = require("utils")

local link_nodes = util.link_nodes
local make_glyph = util.make_glyph
local make_glue = util.make_glue
local make_penalty = util.make_penalty
local is_whitespace = util.is_whitespace
local is_linefeed = util.is_linefeed
local is_nobreak = util.is_nobreak
local copy_table = util.copy_table
local read_line = util.read_line

local reader = require("reader")

local read_value = reader.read_value

local format = require("format")

local update_state = format.update_state
local update_locals = format.update_locals
local push_tbl = format.push_tbl
local pop_tbl = format.pop_tbl
local top_tbl = format.top_tbl
local pop_do_command_stop = format.pop_do_command_stop

local commands = commands or require("commands")

local get_command = commands.get_command
local initialize_command = commands.initialize_command

local pages = pages or require("pages")

local build_par = pages.build_par
local process_par = pages.process_par

-----------------------------------------------------------------

local do_char = function(value, head, tail)
-- We are building the hlist that will be passed on to
-- tex.linebreak for creating a paragraph.

local tbl = top_tbl()

local n = nil
local p = nil -- for penalties

if is_nobreak(value) then
-- we treat all unbreakable whitespace equally
p = make_penalty(10000)
n = make_glue("spaceskip",
tbl.space,
tbl.space_stretch,
tbl.space_shrink)
elseif is_whitespace(value) then
-- we treat all (breakable) whitespace equally
n = make_glue("spaceskip",
tbl.space,
tbl.space_stretch,
tbl.space_shrink)
else
-- presumably a glyph
n = make_glyph(value,
tbl.font,
tbl.lang,
tbl.lefthyphenmin,
tbl.righthyphenmin)
end

if (head == nil) then
-- starting a new paragraph, but we add the initial glue in
-- build_par.
head = n
elseif p then
-- We have a penalty
link_nodes(tail, p, n)
else
-- only a single node
link_nodes(tail, n)
end

-- n is our new tail
return head, n
end

local reading_par = function(head, tail)
-- before we start reading a paragraph, head and tail will be nil.
return (node.is_node(head) and node.is_node(tail))
end

main.main_loop = function()

local head, tail, eat_the_white, eol_seen = update_locals()

local value = read_value()

while value do

if value == unicode.utf8.byte("%") then
-- Start of comment. Comment goes to the end of the line.

read_line()

elseif is_linefeed(value) then

if (eol_seen and reading_par(head, tail)) then
-- eol_seen ==> this is a blank line,
-- reading_par(head, tail) ==> we are in the middle of a paragraph.
-- Thus we avoid building 'empty' paragraphs.
local par = build_par(head, tail)
process_par(par)
-- After we process the par, we reset head and tail to nil
-- in preparation for the next paragraph to be read in.
head = nil
tail = nil

elseif ((not eat_the_white) and reading_par(head, tail)) then
-- (not eat_the_white) ==> this is the first bit of white space
-- seen,
-- reading_par(head, tail) ==> we are in the middle of a paragraph.
-- Thus, we avoid starting a paragraph with white space.
head, tail = do_char(value, head, tail)
eat_the_white = true
eol_seen = true
end

elseif is_whitespace(value) then

if ((not eat_the_white) and reading_par(head, tail)) then
-- (not eat_the_white) ==> this is the first bit of white space
-- seen,
-- reading_par(head, tail) ==> we are in the middle of a paragraph.
-- Thus, we avoid starting a paragraph with white space.
head, tail = do_char(value, head, tail)
-- But we do not set eol_seen to false. Thus an "empty" line can
-- contain white space.
eat_the_white = true
end

elseif value == unicode.utf8.byte("\\") then

-- get the command, and initialize it
command = get_command()
update_state(head, tail, false, false)
initialize_command(command)
-- initialize_command may hace done some stuff, resetting
-- head, tail, eat_the_white, and eol_seen so we reset them here.
head, tail, eat_the_white, eol_seen = update_locals()

elseif value == unicode.utf8.byte("{") then
-- enter a group or start a command

update_state(head, tail, false , false)
local do_command_start = State.do_command_start
if do_command_start then
-- We have a command, but before executing it, we reset
-- State.do_command_start so that we do not get into a loop.
State.do_command_start = nil
do_command_start()
head, tail, eat_the_white, eol_seen = update_locals()

else
-- enter a group.
push_tbl(copy_table(top_tbl()))
end

elseif value == unicode.utf8.byte("}") then
-- leave a group or stop a command

local do_command_stop = pop_do_command_stop()
if do_command_stop then
update_state(head, tail, false, false)
do_command_stop()
head, tail, eat_the_white, eol_seen = update_locals()
else
pop_tbl()
end

else
-- presumably a glyph

eat_the_white = false
eol_seen = false
head, tail = do_char(value, head, tail)
end

value = read_value()

end -- while (value) do

if reading_par(head, tail) then
-- eof, and we may have a par to build.
if reading_par(head, tail) then
local par = build_par(head, tail)
process_par(par)
end
end

update_state(nil, nil, false, false)

-- Check for unpopped tbls or do_command_stops?

end

return main
</nowiki>

T wo T r:format.lua

2021-02-22T18:32:00Z

<nowiki>

--- Copyright (c) 2021 by Toadstone Enterprises.
--- ISC-type license, see License.txt for details.

-----------------------------------------------------------------

local util = require("utils")

local filll = util.filll

-----------------------------------------------------------------

--- Page Layout

-- This should be set based on the current font!
tex.baselineskip = tex.sp("14pt")

-- set tex's margins to the edge of the page, so that we can define
-- our own page layout more easily
tex.hoffset = tex.sp("-1.in")
tex.voffset = tex.sp("-1.in")

-- American paper size. USA!
local paper_width = tex.sp("8.5in")
local paper_height = tex.sp("11in")

local top_margin = tex.sp("0.75in")
local right_margin = tex.sp("0.75in")
local bottom_margin = tex.sp("0.75in")
local left_margin = tex.sp("0.75in")

-- header_height is the height of the header box, and it is
-- separated from the main text box by header_sep.
local header_height = tex.sp("0.5in")
local header_sep = tex.sp("0.25in")

local footer_height = tex.sp("0.5in")
local footer_sep = tex.sp("0.25in")

-- The main text box.
local text_width = paper_width - (right_margin + left_margin)
local text_height = paper_height - (top_margin +
header_height + header_sep +
footer_height + footer_sep +
bottom_margin)

local page_number = 1

-----------------------------------------------------------------

--- We define all the fonts we will be using here.
--- This requires the luatex-plain format, or (untested) luaotfload.

-- fonts.definers.read returns a table representing the font.
-- font.define ties this font to an integer which we can use to refer
-- to the desired font.

local main_text_font_table = fonts.definers.read("lmroman12-regular.otf:mode=node;liga=true;kern=true;", tex.sp("12pt"))
local main_text_font = font.define(main_text_font_table)

local emph_text_font_table = fonts.definers.read("lmroman12-italic.otf:mode=node;liga=true;kern=true;", tex.sp("12pt"))
local emph_text_font = font.define(emph_text_font_table)

local bold_text_font_table = fonts.definers.read("lmroman12-bold.otf:mode=node;liga=true;kern=true;", tex.sp("12pt"))
local bold_text_font = font.define(bold_text_font_table)

local title_font_table = fonts.definers.read("lmroman17-regular.otf:mode=node;liga=true;kern=true;", tex.sp("17pt"))
local title_font = font.define(title_font_table)

local header_font_table = fonts.definers.read("lmroman12-regular.otf:mode=node;liga=true;kern=true;", tex.sp("12pt"))
local header_font = font.define(header_font_table)

local footer_font_table = fonts.definers.read("lmroman12-regular.otf:mode=node;liga=true;kern=true;", tex.sp("12pt"))
local footer_font = font.define(footer_font_table)

local footnote_font_table = fonts.definers.read("lmroman10-regular.otf::mode=node;liga=true;kern=true;", tex.sp("10pt"))
local footnote_font = font.define(footnote_font_table)

-- For the footnote markers.
local superscript_font_table = fonts.definers.read("lmroman7-regular.otf:mode=node;liga=true;kern=true;", tex.sp("7pt"))
local superscript_font = font.define(superscript_font_table)

-----------------------------------------------------------------

--- This is the state that we will be passing around as we typeset.

State = {-- What are we typesetting now?
-- One of "main_text", "header", "footer", or "footnote"
mode = "main_text",

-- Where we will store the main text as we build our paragraphs.
main = nil,
-- Where we store the header and footer, as we build them.
header = nil,
footer = nil,
-- We use a table of notes, indexed by footnote number
max_notes = 0,
notes = {},

-- We store some of main_loops local variables, so that we
-- can pass them around as needed.
head = nil,
tail = nil,
eat_the_white = false,
eol_seen = false,

-- We want to be able to use different parameters for typesetting
-- the different pieces of text. A header is not the same as a
-- footnote. We therefore keep a stack of tbls containing the
-- settings for formatting a paragraph (these are passed to
-- tex.linebreak).
max_tbls = 0,
tbls = {},

-- When we see a command, do_command_start will (potentially)
-- be filled in with the part of the command to do upon
-- encountering a "{"
do_command_start = nil,
-- And a stack of do_command_stops: do_command_stops
-- We need a stack, because commands can be nested.
-- e.g., an Emph inside a Bold.
-- We need only one do_command_start, because that is for
-- the current command and the next "{" seen.
max_do_command_stops = 0,
do_command_stops = {},

-- A place to store the text to be made into the header.
header_text = nil,

-- So we can format the first paragraph of a chapter
-- differently from the rest.
first_paragraph_of_chapter = false,
-- So we can format the first page of a chapter
-- differently from the rest.
first_page_of_chapter = false,
}

local main_text_tbl = {hsize = text_width,

parindent = tex.parindent,
parfillskipstretch = 2^16,
parfillskipstretch_order = 2,

font = main_text_font,
space = font.fonts[main_text_font].parameters.space,
space_stretch = font.fonts[main_text_font].parameters.space_stretch,
space_shrink = font.fonts[main_text_font].parameters.space_shrink,

lang = tex.language,
lefthyphenmin = tex.lefthyphenmin,
righthyphenmin = tex.righthyphenmin,
}

local header_tbl = {hsize = text_width,

-- The header will be centered.
leftskip = filll(),
rightskip = filll(),
parindent = 0,
parfillskipstretch = 2^16,
parfillskipstretch_order = 2,

font = header_font,
space = font.fonts[header_font].parameters.space,
space_stretch = font.fonts[header_font].parameters.space_stretch,
space_shrink = font.fonts[header_font].parameters.space_shrink,

lang = tex.language,
lefthyphenmin = tex.lefthyphenmin,
righthyphenmin = tex.righthyphenmin,
}

local footer_tbl = {hsize = text_width,

leftskip = filll(),
rightskip = filll(),
parindent = 0,
parfillskipstretch = 2^16,
parfillskipstretch_order = 2,

font = footer_font,
space = font.fonts[footer_font].parameters.space,
space_stretch = font.fonts[footer_font].parameters.space_stretch,
space_shrink = font.fonts[footer_font].parameters.space_shrink,

lang = tex.language,
lefthyphenmin = tex.lefthyphenmin,
righthyphenmin = tex.righthyphenmin,
}

local footnote_tbl = {hsize = text_width,

parindent = 0,
parfillskipstretch = 2^16,
parfillskipstretch_order = 2,

font = footnote_font,
space = font.fonts[footnote_font].parameters.space,
space_stretch = font.fonts[footnote_font].parameters.space_stretch,
space_shrink = font.fonts[footnote_font].parameters.space_shrink,

lang = tex.language,
lefthyphenmin = tex.lefthyphenmin,
righthyphenmin = tex.righthyphenmin,
}

local update_state = function(head, tail, eat_the_white, eol_seen)
-- As we pass the State around, we wil want to pass along the
-- current values of head, tail, eat_the_white, and eol_seen.
-- See main_loop and the commands for examples.
State.head = head
State.tail = tail
State.eat_the_white = eat_the_white
State.eol_seen = eol_seen
end

local update_locals = function()
-- As we return from calls in which we passed the State out, the
-- values of head, tail, eat_the_white, and eol_seen may have been
-- changed. So we update them from the current State. See main_loop
-- and the commands for examples.
local head = State.head
local tail = State.tail
local eat_the_white = State.eat_the_white
local eol_seen = State.eol_seen
return head, tail, eat_the_white, eol_seen
end

local push_tbl = function(tbl)
local max = State.max_tbls
State.max_tbls = max + 1
State.tbls[max + 1] = tbl
end

local pop_tbl = function()
local max = State.max_tbls
if (max > 0) then
local tbl = State.tbls[max]
State.tbls[max] = nil
State.max_tbls = max - 1
return tbl
else
return nil
end
end

local top_tbl = function()
local max = State.max_tbls
if (max > 0) then
return State.tbls[max]
else
return nil
end
end

local push_do_command_stop = function(do_command_stop)
local max = State.max_do_command_stops
State.max_do_command_stops = max + 1
State.do_command_stops[max + 1] = do_command_stop
end

local pop_do_command_stop = function()
local max = State.max_do_command_stops
if (max > 0) then
local do_command_stop = State.do_command_stops[max]
State.do_command_stops[max] = nil
State.max_do_command_stops = max - 1
return do_command_stop
else
return nil
end
end

local format = {paper_width = paper_width,
paper_height = paper_height,

top_margin = top_margin,
right_margin = right_margin,
bottom_margin = bottom_margin,
left_margin = left_margin,
header_height = header_height,
header_sep = header_sep,
footer_height = footer_height,
footer_sep = footer_sep,
text_width = text_width,
text_height = text_height,

page_number = page_number,

update_state = update_state,
update_locals = update_locals,
push_tbl = push_tbl,
pop_tbl = pop_tbl,
top_tbl = top_tbl,
push_do_command_stop = push_do_command_stop,
pop_do_command_stop = pop_do_command_stop,

main_text_tbl = main_text_tbl,
header_tbl = header_tbl,
footer_tbl = footer_tbl,
footnote_tbl = footnote_tbl,

main_text_font = main_text_font,
emph_text_font = emph_text_font,
bold_text_font = bold_text_font,
title_font = title_font,
header_font = header_font,
footer_font = footer_font,
footnote_font = footnote_font,
superscript_font = superscript_font,
}

return format
</nowiki>

T wo T r:reader.lua

2021-02-22T18:31:09Z

<nowiki>

--- Copyright (c) 2021 by Toadstone Enterprises.
--- ISC-type license, see License.txt for details.

-----------------------------------------------------------------

--- We maintain a stack of 'readers'.
--- push_reader will push a new 'reader' onto the stack, and
--- pop_reader will pop it. push_reader should be given a string or a
--- filename (of the form "file:filename") If a string is passed in,
--- its contents will be used by the 'reader'. If a filename is
--- passed in, the file will be read, and its contents will form the
--- contents of the 'reader'.
--- The top 'reader' is the current one, and read_value will return a
--- char (really a Unicode integer value) from that 'reader'.

-----------------------------------------------------------------

--- The index of the current 'reader'. No 'readers' yet.

local n = 0

local explode = function(s)
-- This is the lower level function used by push_reader to create
-- a 'reader'.
--
-- Take the string s, and break it into unicode values (integers)
-- and place these into the table, text, indexed by position.
-- text.max is the maximum index.
-- text.pos is the current position to be read from. Initially the
-- start of the text.

assert((type(s) == "string"),
"explode was given a " .. type(s) .. " instead of a string.")
local text = {}
local i = 0

for v in string.utfvalues(s) do
i = i + 1
text[i] = v
end

text.max = i
text.pos = 1
return text
end

local push_reader = function(data)
-- Create a 'reader'. That is, use explode to create a table
-- containing the text from data (either a file pointer or the
-- text itself). Then place this table into the next index of
-- the 'reader' table, Reader, in the next available index.

local text

assert((type(data) == "string"), "Bad arg to push_reader.")

if (unicode.utf8.sub(data, 1, 5) == "file:") then
local f = io.open(unicode.utf8.sub(data, 6, -1))
assert(f, "File " .. unicode.utf8.sub(data, 6, -1) .. "failed to open.")
text = f:read("a")
else
text = data
end

local reader = explode(text)

n = n + 1
Reader[n] = reader

end

local pop_reader = function()
-- Remove the currently active 'reader' from Reader.

assert((n > 0), "No reader to pop!")

Reader[n] = nil
n = n - 1

end

local read_value = function()
-- Get the char (a Unicode integer) from the currenly active
-- 'reader'.

local value

assert((n > 0), "No reader to read from!")

local reader = Reader[n]
local max = reader.max
local pos = reader.pos

if (pos <= max) then
value = reader[pos]
else
-- We are already at the end.
return nil
end

reader.pos = pos + 1
return value
end

local unread_value = function()
-- Back the indexed position of the currently active 'reader'
-- by one.

assert((n > 0), "No reader to unread to!")

local reader = Reader[n]
local pos = reader.pos

assert((pos > 1), "Already at start of text!")

reader.pos = pos - 1
end

local replace_text = function(text, start, stop)
-- Insert some text (a string) into the current 'reader' replacing
-- the text from the indices start to stop, and reset the 'reader'
-- to the beginning of inserted text
-- There are three special cases,
-- 1. prepend some text, before any reading
-- 2. insert without replacing any text
-- 3. deleting text, without inserting
-- These can be handled by using
-- 1. start = 0, stop = -1
-- 2. stop = start -1
-- 3. text = ""

assert((n > 0), "No reader to replace text in!")
local reader = Reader[n]
local max = reader.max

assert((type(text) == "string"), "Text is not a string!")
assert((start >= 0), "Start must be a non-negative integer")
assert((stop <= max), "Stop must be less than max")

local insert = explode(text)
local difference = insert.max - (stop - start + 1)

if (difference > 0) then
-- move up
for i = max, stop + 1, -1 do
reader[i + difference] = reader[i]
end
elseif (difference < 0) then
-- move down
for i = stop + 1, max do
reader[i + difference] = reader[i]
end
end

-- insert
-- If we are prepending some text (special case 1. above)
-- we need to reset start from 0 to 1.
if (start == 0) then start = 1 end
for i = 1, insert.max do
reader[start + i - 1] = insert[i]
end

reader.max = reader.max + difference
reader.pos = start
end

local pos = function()
-- Return the position of the current 'reader'.

assert((n > 0), "No reader to replace text in!")
local reader = Reader[n]

return reader.pos

end

Reader = {push_reader = push_reader,
pop_reader = pop_reader,
read_value = read_value,
unread_value = unread_value,
replace_text = replace_text,
pos = pos,}

return Reader
</nowiki>

T wo T r:utils.lua

2021-02-22T18:30:10Z

<nowiki>

--- Copyright (c) 2021 by Toadstone Enterprises.
--- ISC-type license, see License.txt for details.

-----------------------------------------------------------------

local reader = require("reader")

local read_value = reader.read_value

-----------------------------------------------------------------

local sp_to_p = function(sp)
-- Convert scaled points to points.
return sp/65536
end

local sp_to_in = function(sp)
-- Convert scaled points to inches.
return sp_to_p(sp)/72.27
end

local node_type = function(x)
-- Return the type of a node as a string.
return node.types()[x.id]
end

local node_subtype = function(x)
-- Return the subtype of a node as a string.
local type = node_type(x)
return node.subtypes(type)[x.subtype]
end

local link_nodes = function(...)
-- Link the nodes, setting both the next and prev fields.
local arg = {...}
for i = 1, (#arg - 1) do
arg[i].next = arg[i+1]
arg[i+1].prev = arg[i]
end
end

local make_glyph = function(value, fnt, lang, lefthyphenmin, righthyphenmin)
local n = node.new("glyph")
n.font = fnt or font.current()
n.subtype = 1
n.char = value
n.lang = lang or tex.language
n.uchyph = 1
n.left = lefthyphenmin or tex.lefthyphenmin
n.right = righthyphenmin or tex.righthyphenmin
return n
end

local make_glue = function(subtype,
width,
stretch, shrink,
stretch_order, shrink_order)
local n = node.new("glue", subtype)
node.setglue(n, width or 0,
stretch or 0,
shrink or 0,
stretch_order or 0,
shrink_order or 0)
return n
end

local make_glue_spec = function(width,
stretch, shrink,
stretch_order, shrink_order)
local n = node.new("glue_spec")
n.width = width or 0
n.stretch = stretch or 0
n.shrink = shrink or 0
n.stretch_order = stretch_order or 0
n.shrink_order = shrink_order or 0
return n
end

local make_rule = function(subtype, width, height, depth, dir)
local n = node.new("rule", subtype or 0)
n.width = width or 0
n.height = height or 0
n.depth = depth or 0
n.dir = dir or "TLT"
return n
end

local make_penalty = function(penalty)
local n = node.new("penalty")
n.penalty = penalty
return n
end

local fil = function()
-- Return a "fil" glue_spec.
return make_glue_spec(0, tex.sp("1pt"), 0, 1, 0)
end

local fill = function()
-- Return a "fill" glue_spec.
return make_glue_spec(0, tex.sp("1pt"), 0, 2, 0)
end

local filll = function()
-- Return a "filll" glue_spec.
return make_glue_spec(0, tex.sp("1pt"), 0, 3, 0)
end

-----------------------------------------------------------------

local read_string = function()
-- We return a regular (not exploded or anything) string.

local ans = ""
local value = read_value()

-- Should we be eat any white space before the string?
while is_whitespace(value) do
value = read_value()
end

if ((value ~= unicode.utf8.byte('"')) and
(value ~= unicode.utf8.byte("'"))) then
error("Not a string. No opening quoteation mark.")
end

-- So we can look only for the matching quote
local delimiter = value

value = read_value()
while (value and (value ~= delimiter)) do
-- We want to return a regular string.
ans = ans .. unicode.utf8.char(value)
value = read_value()
end

if (not value) then -- eof
error("Not a string. No closing quotation mark.")
end

return ans
end

local read_group = function(eat_the_white)
-- We read a group, (delimited by matching "{", "}" or "[", "]")
-- possibly eating any white space within the group.
-- We return a regular (not exploded or anything) string.

local ans = ""
local value = read_value()

-- Should we eat any white space before the group?
while is_whitespace(value) do
value = read_value()
end

-- So we can look only for the matching delimiter
local delimiter
if (value == unicode.utf8.byte("{")) then
delimiter = unicode.utf8.byte("}")
elseif (value == unicode.utf8.byte("[")) then
delimiter = unicode.utf8.byte("]")
else
error("Not a group. No opening group delimiter.")
end

value = read_value()
while (value and (value ~= delimiter)) do
if ((not eat_the_white) or (not is_whitespace(value))) then
ans = ans .. unicode.utf8.char(value)
end
value = read_value()
end

if (not value) then -- eof
error("Not a group. No closing group delimiter.")
end

return ans
end

local read_line = function()
-- Read to the end of the current line (and throw away the result).
local value = read_value()
while (not is_linefeed(value)) do
value = read_value()
end
end

-----------------------------------------------------------------

local copy_table = function(tbl)
-- Make a deep copy of the table.
-- We do not copy the keys.

local result = {}
if type(tbl) == "table" then
for k,v in pairs(tbl) do
result[k] = copy_table(v)
end
else
result = tbl
end
return result

end

-----------------------------------------------------------------

--- Character categories

local whitespace = {[0x0009] = true, -- Tab
[0x000A] = true, -- LF -- Line Break
[0x000B] = true, -- Line Tab -- Line Break
[0x000C] = true, -- Form Feed -- Line Break
[0x000D] = true, -- CR -- Line Break
[0x0020] = true, -- Space
[0x0085] = true, -- Next Line -- Line Break
[0x00A0] = true, -- NB Space -- No Break
[0x1680] = true, -- Ogham Space Mark
[0x2000] = true, -- EN Quad
[0x2001] = true, -- EM Quad
[0x2002] = true, -- EN Space
[0x2003] = true, -- EM Space
[0x2004] = true, -- Three per EM Space
[0x2005] = true, -- Four per EM Space
[0x2006] = true, -- Six per Em Space
[0x2007] = true, -- Figure Space -- No Break
[0x2008] = true, -- Punctuation Space
[0x2009] = true, -- Thin Space
[0x200A] = true, -- Hair Space
[0x2028] = true, -- Line Separator -- Line Break
[0x2029] = true, -- Paragraph Separator -- Line Break
[0x202F] = true, -- Narrow NB Space -- No Break
[0x205F] = true, -- Medium Mathematical Space
[0x3000] = true -- Ideographic Space
}

local is_whitespace = function(value)
return whitespace[value]
end

local linefeed = {[0x000A] = true, -- LF -- Line Break
[0x000B] = true, -- Line Tab -- Line Break
[0x000C] = true, -- Form Feed -- Line Break
[0x000D] = true, -- CR -- Line Break
[0x0085] = true, -- Next Line -- Line Break
[0x2028] = true, -- Line Separator -- Line Break
[0x2029] = true -- Paragraph Separator -- Line Break
}

local is_linefeed = function(value)
return linefeed[value]
end

local nobreak = {[0x00A0] = true, -- NB Space -- No Break
[0x2007] = true, -- Figure Space -- No Break
[0x202F] = true, -- Narrow NB Space -- No Break
}

local is_nobreak = function(value)
return nobreak[value]
end

local command_terminator = {[unicode.utf8.byte("{")] = true,
[unicode.utf8.byte("[")] = true,
-- But we want to terminate on
-- whitespace in general
-- [unicode.utf8.byte(" ")] = true
}

local is_command_terminator = function(value)
return (command_terminator[value] or is_whitespace(value))
end

-----------------------------------------------------------------

--- Functions for exploring the state of nodes and tables.

--- With this schema, if you are in the REPL and discover that
--- a node you wish to show is not yet supported, for a node of
--- type xxx, define a function (in the REPL):
--- util.show_node_functions.show_xxx_node(n)
--- If you can't remember the correct name of the table,
--- walk_table(util)
--- will remind you.

local show_node_functions = {}

show_node_functions.show_hlist_node = function(n)
local id = node_type(n)
local subtype = node.subtypes(tostring(id))[n.subtype]
print("id: " .. id)
print("subtype: " .. subtype)
print("width: " .. sp_to_in(n.width) .. "in")
print("height: " .. sp_to_p(n.height) .. "p")
print("depth: " .. sp_to_p(n.depth) .. "p")
print()
end

show_node_functions.show_vlist_node = function(n)
local id = node_type(n)
local subtype = node_subtype(n)
print("id: " .. id)
print("subtype: " .. subtype)
print("width: " .. sp_to_in(n.width) .. "in")
print("height: " .. sp_to_in(n.height) .. "in")
print("depth: " .. sp_to_in(n.depth) .. "in")
print()
end

show_node_functions.show_glyph_node = function(n)
local id = node_type(n)
local subtype = node_subtype(n)
print("id: " .. id)
-- sometimes a glyph node will not have a subtype?
if subtype then print("subtype: " .. subtype) end
print("char: " .. unicode.utf8.char(n.char))
print("font: " .. n.font)
print("lang: " .. n.lang)
print()
end

show_node_functions.show_glue_node = function(n)
local id = node_type(n)
local subtype = node_subtype(n)
print("id: " .. id)
print("subtype: " .. subtype)
print("width: " .. sp_to_p(n.width) .. "p")
print("stretch: " .. sp_to_p(n.stretch) .. "p")
print("shrink: " .. sp_to_p(n.stretch) .. "p")
print()
end

show_node_functions.show_disc_node = function(n)
local id = node_type(n)
local subtype = node_subtype(n)
print("id: " .. id)
print("subtype: " .. subtype)
-- pre
-- post
-- repl
print()
end

show_node_functions.show_penalty_node = function(n)
local id = node_type(n)
local subtype = node_subtype(n)
print("id: " .. id)
print("subtype: " .. subtype)
print("penalty: " .. n.penalty)
print()
end

show_node_functions.show_kern_node = function(n)
local id = node_type(n)
local subtype = node_subtype(n)
print("id: " .. id)
print("subtype: " .. subtype)
print("kern: " .. sp_to_p(n.kern) .. "p")
print("expansion_factor: " .. n.expansion_factor)
print()
end

show_node_functions.show_rule_node = function(n)
local id = node_type(n)
local subtype = node_subtype(n)
print("id: " .. id)
print("subtype: " .. subtype)
print("width: " .. sp_to_in(n.width) .. "in")
print("height: " .. sp_to_p(n.height) .. "p")
print("depth: " .. sp_to_p(n.depth) .. "p")
print("dir: " .. n.dir)
print()
end

local show_node = function(n)
local id = node_type(n)
local show_function_name = "show_" .. id .. "_node"
local show_function = show_node_functions[show_function_name]
if show_function then
show_function(n)
else
print("I don't know how to show a " .. id .. " node.")
print()
end
end

local walk_list = function(l)
-- Walk down a list of nodes, showing them as we go.
for n in node.traverse(l) do
show_node(n)
end
end

local walk_table = function(t)
-- Walk through a table, showing the key/value pairs.
local k, v
for k,v in pairs(t) do
print(k,v)
end
end

util = {
sp_to_p = sp_to_p,
sp_to_in = sp_to_in,

node_type = node_type,
node_subtype = node_subtype,

link_nodes = link_nodes,

make_glyph = make_glyph,
make_glue = make_glue,
make_glue_spec = make_glue_spec,
make_rule = make_rule,
make_penalty = make_penalty,

fil = fil,
fill = fill,
filll = filll,

read_string = read_string,
read_group = read_group,
read_line = read_line,

copy_table = copy_table,

is_whitespace = is_whitespace,
is_linefeed = is_linefeed,
is_nobreak = is_nobreak,
is_command_terminator = is_command_terminator,

show_node = show_node,
walk_list = walk_list,
walk_table = walk_table,
}

return util
</nowiki>

T wo T r:repl.lua

2021-02-22T18:28:37Z

Rkrug: Created page with " <nowiki> --- Copyright (c) 2011-2015 Rob Hoelz <rob@hoelz.ro> --- --- Further hacked by others. --- --- Permission is hereby granted, free of charge, to any person --- obtain..."

<nowiki>
--- Copyright (c) 2011-2015 Rob Hoelz <rob@hoelz.ro>
---
--- Further hacked by others.
---
--- Permission is hereby granted, free of charge, to any person
--- obtaining a copy of this software and associated documentation
--- files (the "Software"), to deal in the Software without
--- restriction, including without limitation the rights to use, copy,
--- modify, merge, publish, distribute, sublicense, and/or sell copies
--- of the Software, and to permit persons to whom the Software is
--- furnished to do so, subject to the following conditions:
---
--- The above copyright notice and this permission notice shall be
--- included in all copies or substantial portions of the Software.
---
--- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
--- EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
--- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
--- NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS
--- BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN
--- ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
--- CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
--- SOFTWARE.
---
--- This module implements the core functionality of a REPL.

--- repl() is the REPL.

--- quit() or exit() will terminate the REPL.

--- require("utils") or anything else you will want to use in the
--- REPL as a global, or they will not be visible.

--- Note: The REPL is NOT Unicode aware!

local repl_buffer = ""

local function gather_results(success, ...)
local n = select("#", ...)
return success, {n = n, ... }
end

local function detectcontinue(err)
-- Uses the compilation error to determine whether or not further input
-- is pending after the last line. That is, is this a fraction of a
-- statement.
-- Rather crude, but this seems to work.
return string.match(err, "'<eof>'$") or string.match(err, "<eof>$")
end

local function compilechunk(chunk)
-- If this is an expression, rather than a statement, we should
-- get a function, in f, to return the value of that expression.
local f, err = load("return " .. chunk, "REPL")
-- For statements (or fractions thereof).
if not f then
f, err = load(chunk, "REPL")
end
return f, err
end

local function displayresults(results)
-- @param results The results to display. The results are a table,
-- with the integer keys containing the results, and the "n" key
-- containing the highest integer key.
if results.n == 0 then return end
print(table.unpack(results, 1, results.n))
end

local function displayerror(err)
print(err)
end

local function handleline(line)
-- Evaluates a line of input, and displays return value(s).
local chunk = repl_buffer .. line
local f, err = compilechunk(chunk)

if f then
-- We have a (presumed) function. Try to call it, and display the
-- results, or error.
repl_buffer = ""
local success, results = gather_results(xpcall(f, function(...) return debug.traceback(...) end))
if success then
displayresults(results)
else
displayerror(results[1])
end
elseif detectcontinue(err) then
-- This is a (presumed) fraction of a statement?
repl_buffer = chunk .. "\n"
return 2
else
-- An error. Clear the buffer, so this does not keep happening.
repl_buffer = ""
displayerror(err)
end

return 1
end

local function prompt(level)
local prompt
if level == 1 then prompt=">>>" else prompt="..." end
io.write(prompt)
end

local function repl()
-- Run a REPL loop in a synchronous fashion.
print()
prompt(1)
for line in io.stdin:lines() do
if line == "quit()" then
break
end
if line == "exit()" then
break
end
local level = handleline(line)
prompt(level)
end
end

return {repl = repl}
</nowiki>

T wo T r:twotr

2021-02-22T18:20:56Z

Rkrug: Rename some files so I could upload them.

== About ==

This is an update and expansion of [[TeX without TeX]] --- using TeX's
functionality (typesetting, pdf writing) using only Lua code (no \TeX
macros).

It is (I believe) an adequate framework for developing a complete
type-setting system; although one dedicated to a specific task, rather
than a general purpose system such as LaTeX or ConTeXt. It includes a
couple of example formatting commands (\Emph and \Bold), titles
(\Title), the ability to include other subsidiary text files (\Input)
and footnotes (\Footnote). It can be easily adapted and expanded to
suit your needs.

I am not much of a programmer, and knew little about TeX and even less
about Lua when I started this, so there is undoubtedly much that can
be improved. All questions, comments, suggestions, and corrections
will be appreciated. You can reach me at "destiny6 <AT> mac <DOT>
com".

== Pre-requisites ==

This system requires the luatex-plain format (from ConTeXt), so that
we have access to Open Type Fonts and other goodies. This is what I
did on my system:

# Find the luatex-plain.tex file. On my system (with TeX-Live 2020)
it was at:

<code>
/usr/local/share/texmf-dist/tex/generic/context/luatex/luatex-plain.tex
</code>

# If you just build a format file,

<code>
luatex --ini /usr/local/share/texmf-dist/tex/generic/context/luatex/luatex-plain.tex
</code>

you will probably get warnings about using the "merged" file, and not
the more current and supported files. Delete, move, or rename this
file. On my system I did:

<code>
doas mv /usr/local/share/texmf-dist/tex/generic/context/luatex/luatex-fonts-merged.lua /usr/local/share/texmf-dist/tex/generic/context/luatex/luatex-fonts-merged.lua.bak
</code>

# Now, build the format file.

<code>
luatex --ini /usr/local/share/texmf-dist/tex/generic/context/luatex/luatex-plain.tex
</code>

# We are almost done. If the resulting format file (luatex-plain.fmt)
is in the current working directory, you can use it with something
like:

<code>
luatex --fmt luatex-plain test
</code>

# But, this is too restrictive.

## Create a new executable with the name luatex-plain. Something
like:

<code>
ln -s `which luatex` /usr/local/bin/luatex-plain
</code>

## When you try to invoke it:

<code>
luatex-plain test
</code>

it will fail with a message about failing to find the proper
format file. There should be a line something like:

<code>
mktexfmt [INFO]: writing formats under ~/.texlive2020/texmf-var/web2c
</code>

so, copy the format file to that location:

<code>
cp luatex-plain.fmt ~/.texlive2020/texmf-var/web2c/
</code>

now, this should work:

<code>
luatex-plain test
</code>

Finally, run mtxrun to generate a fonts database: 

<code>
mtxrun --script fonts --reload --simple
</code>

== Contents ==

This files for this project are also available at:
[https://github.com/s-dismas/TeX-without-TeX-revised GitHub]

There is a Read Eval Print Loop available for interactively exploring:

[[T_wo_T_r:repl.lua|repl.lua]]

It can be invoked with <code>repl.repl()<code/>, and either
<code>quit()<code/> or <code>exit<code/> will exit it. I use Shell Mode in
Emacs, but a simple terminal or similar should also work.

Some utilites are in the file:

[[T_wo_T_r:utils.lua|utils.lua]]

The following five files comprise the system:

[[T_wo_T_r:reader.lua|reader.lua]]

[[T_wo_T_r:format.lua|format.lua]]

[[T_wo_T_r:main.lua|main.lua]]

[[T_wo_T_r:pages.lua|pages.lua]]

[[T_wo_T_r:commands.lua|commands.lua]]

The license for this software can be seen at:

[[T_wo_T_r:LICENSE.txt| License.]]

The TeX file to be compiled by luatex-plain is:

[[T_wo_T_r:test.tex|test.tex]]

The Lua file executed by <code>\directlua{dofile "test.lua"}</code>
within [[T_wo_T_r:test.tex|test.tex]] is:

[[T_wo_T_r:test.lua|test.tex]]

The main text file to be typeset is:

[[T_wo_T_r:text.tex|text.tex]]

It includes the following five files:

[[T_wo_T_r:chapter-1.tex|chapter 1]]

[[T_wo_T_r:chapter-2.tex|chapter 2]]

[[T_wo_T_r:chapter-3.tex|chapter 3]]

[[T_wo_T_r:chapter-4.tex|chapter 4]]

[[T_wo_T_r:chapter-5.tex|chapter 5]]

T wo T r:twotr

2021-02-22T02:25:57Z

Rkrug: TeX without TeX Revised and expanded

== About ==

This is an update and expansion of [[TeX without TeX]] --- using TeX's
functionality (typesetting, pdf writing) using only Lua code (no \TeX
macros).

It is (I believe) an adequate framework for developing a complete
type-setting system; although one dedicated to a specific task, rather
than a general purpose system such as LaTeX or ConTeXt. It includes a
couple of example formatting commands (\Emph and \Bold), titles
(\Title), the ability to include other subsidiary text files (\Input)
and footnotes (\Footnote). It can be easily adapted and expanded to
suit your needs.

I am not much of a programmer, and knew little about TeX and even less
about Lua when I started this, so there is undoubtedly much that can
be improved. All questions, comments, suggestions, and corrections
will be appreciated. You can reach me at "destiny6 <AT> mac <DOT>
com".

== Pre-requisites ==

This system requires the luatex-plain format (from ConTeXt), so that
we have access to Open Type Fonts and other goodies. This is what I
did on my system:

# Find the luatex-plain.tex file. On my system (with TeX-Live 2020)
it was at:

<code>
/usr/local/share/texmf-dist/tex/generic/context/luatex/luatex-plain.tex
</code>

# If you just build a format file,

<code>
luatex --ini /usr/local/share/texmf-dist/tex/generic/context/luatex/luatex-plain.tex
</code>

you will probably get warnings about using the "merged" file, and not
the more current and supported files. Delete, move, or rename this
file. On my system I did:

<code>
doas mv /usr/local/share/texmf-dist/tex/generic/context/luatex/luatex-fonts-merged.lua /usr/local/share/texmf-dist/tex/generic/context/luatex/luatex-fonts-merged.lua.bak
</code>

# Now, build the format file.

<code>
luatex --ini /usr/local/share/texmf-dist/tex/generic/context/luatex/luatex-plain.tex
</code>

# We are almost done. If the resulting format file (luatex-plain.fmt)
is in the current working directory, you can use it with something
like:

<code>
luatex --fmt luatex-plain test
</code>

# But, this is too restrictive.

## Create a new executable with the name luatex-plain. Something
like:

<code>
ln -s `which luatex` /usr/local/bin/luatex-plain
</code>

## When you try to invoke it:

<code>
luatex-plain test
</code>

it will fail with a message about failing to find the proper
format file. There should be a line something like:

<code>
mktexfmt [INFO]: writing formats under ~/.texlive2020/texmf-var/web2c
</code>

so, copy the format file to that location:

<code>
cp luatex-plain.fmt ~/.texlive2020/texmf-var/web2c/
</code>

now, this should work:

<code>
luatex-plain test
</code>

Finally, run mtxrun to generate a fonts database: 

<code>
mtxrun --script fonts --reload --simple
</code>

== Contents ==

This files for this project are also available at:
[https://github.com/s-dismas/TeX-without-TeX-revised GitHub]

There is a Read Eval Print Loop available for interactively exploring:

[[T_wo_T_r:repl.lua|repl.lua]]

It can be invoked with <code>repl.repl()<code/>, and either
<code>quit()<code/> or <code>exit<code/> will exit it. I use Shell Mode in
Emacs, but a simple terminal or similar should also work.

Some utilites are in the file:

[[T_wo_T_r:utils.lua|utils.lua]]

The following five files comprise the system:

[[T_wo_T_r:reader.lua|reader.lua]]

[[T_wo_T_r:format.lua|format.lua]]

[[T_wo_T_r:main.lua|main.lua]]

[[T_wo_T_r:pages.lua|pages.lua]]

[[T_wo_T_r:commands.lua|commands.lua]]

The license for this software can be seen at:

[[T_wo_T_r:LICENSE.txt| License.]]

The TeX file to be compiled by luatex-plain is:

[[T_wo_T_r:test.tex|test.tex]]

The Lua file executed by <code>\directlua{dofile "test.lua"}</code>
within [[T_wo_T_r:test.tex|test.tex]] is:

[[T_wo_T_r:test.lua|test.tex]]

The main text file to be typeset is:

[[T_wo_T_r:text.txt|text.txt]]

It includes the following five files:

[[T_wo_T_r:chapter-1.txt|chapter 1]]

[[T_wo_T_r:chapter-2.txt|chapter 2]]

[[T_wo_T_r:chapter-3.txt|chapter 3]]

[[T_wo_T_r:chapter-4.txt|chapter 4]]

[[T_wo_T_r:chapter-5.txt|chapter 5]]