commit 4e9c030821471342b69c47ac2b24307614a7a41d
parent 6776e2c89fa49bbb389ab05e197785aca04f6a19
Author: robert <robertrussell.72001@gmail.com>
Date: Mon, 17 Jan 2022 23:58:27 -0800
Add some align-related macros from plain
Diffstat:
2 files changed, 15 insertions(+), 29 deletions(-)
diff --git a/alloc.tex b/alloc.tex
@@ -87,7 +87,6 @@
\chardef\maxchar=1114111
\newcount\maxcount \maxcount="7FFFFFFF
\newdimen\maxdimen \maxdimen=16383.99999pt
-\newskip\hideskip \hideskip=-1000pt plus1fill
\newskip\centering \centering=0pt plus1000pt minus1000pt
\newbox\voidbox
diff --git a/text.tex b/text.tex
@@ -79,6 +79,8 @@
\def\enskip{\hskip.5em\relax}
\def\quad{\hskip1em\relax}
\def\qquad{\hskip2em\relax}
+\newskip\hideskip \hideskip=-1000pt plus1fill
+\def\hidewidth{\hskip\hideskip}
% Break control
\def~{\nobreak\ }
@@ -107,6 +109,19 @@
\def\strut{\vrule height\lineht depth\linedp width0pt }
+\def\ialign{\everycr={}\tabskip=0pt\halign}
+\def\ooalign#1{%
+ \leavevmode
+ \vtop{%
+ \baselineskip=0pt \lineskiplimit=-\maxdimen
+ \ialign{##\cr #1\crcr}%
+ }%
+}
+
+\newcount\mscount
+\def\multispan#1{\omit \mscount=#1\relax \loop\ifnum\mscount>1 \@cspan \repeat}
+\def\@cspan{\cspan\omit \decr\mscount}
+
% TODO: sort through all this; after this, all that remains is line 729 and
% onwards in plain.tex
@@ -124,36 +139,8 @@
% \def\rightline#1{\line{\hss#1}}
% \def\centerline#1{\line{\hss#1\hss}}
-% \def\hidewidth{\hskip\hideskip} % for alignment entries that can stick out
-% \def\ialign{\everycr{}\tabskip\z@skip\halign} % initialized \halign
-% \newcount\mscount
-% \def\multispan#1{\omit \mscount#1\relax
- % \loop\ifnum\mscount>\@ne \sp@n\repeat}
-% \def\sp@n{\span\omit\advance\mscount\m@ne}
-
% \def\_{\leavevmode \kern.06em \vbox{\hrule width.3em}}
-% \def\mathhexbox#1#2#3{\leavevmode
- % \hbox{$\m@th \mathchar"#1#2#3$}}
-% \def\dag{\mathhexbox279}
-% \def\ddag{\mathhexbox27A}
-% \def\S{\mathhexbox278}
-% \def\P{\mathhexbox27B}
-% \def\Orb{\mathhexbox20D}
-
-% \def\oalign#1{\leavevmode\vtop{\baselineskip\z@skip \lineskip.25ex%
- % \ialign{##\crcr#1\crcr}}} \def\o@lign{\lineskiplimit\z@ \oalign}
-% \def\ooalign{\lineskiplimit-\maxdimen \oalign} % chars over each other
-% {\catcode`p=12 \catcode`t=12 \gdef\\#1pt{#1}} \let\getf@ctor=\\
-% \def\sh@ft#1{\dimen@#1\kern\expandafter\getf@ctor\the\fontdimen1\font
- % \dimen@} % kern by #1 times the current slant
-% \def\d#1{{\o@lign{\relax#1\crcr\hidewidth\sh@ft{-1ex}.\hidewidth}}}
-% \def\b#1{{\o@lign{\relax#1\crcr\hidewidth\sh@ft{-3ex}%
- % \vbox to.2ex{\hbox{\char22}\vss}\hidewidth}}}
-% \def\c#1{{\setbox\z@\hbox{#1}\ifdim\ht\z@=1ex\accent24 #1%
- % \else\ooalign{\unhbox\z@\crcr\hidewidth\char24\hidewidth}\fi}}
-% \def\copyright{{\ooalign{\hfil\raise.07ex\hbox{c}\hfil\crcr\Orb}}}
-
% \def\dots{\relax\ifmmode\ldots\else$\m@th\ldots\,$\fi}
% \def\TeX{T\kern-.1667em\lower.5ex\hbox{E}\kern-.125emX}
