summaryrefslogtreecommitdiff
path: root/language/arabic/arabtex/examples/ligtable.tex
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2022-06-09 03:01:00 +0000
committerNorbert Preining <norbert@preining.info>2022-06-09 03:01:00 +0000
commit16559ce13a74c7a182875559b379cac00b07efda (patch)
tree6ee63e6aadfabf9a7334e6667fa32646fd812667 /language/arabic/arabtex/examples/ligtable.tex
parentb3aac3ae7b628835121d1f485fd49998308170e7 (diff)
CTAN sync 202206090300
Diffstat (limited to 'language/arabic/arabtex/examples/ligtable.tex')
-rw-r--r--language/arabic/arabtex/examples/ligtable.tex344
1 files changed, 172 insertions, 172 deletions
diff --git a/language/arabic/arabtex/examples/ligtable.tex b/language/arabic/arabtex/examples/ligtable.tex
index 35105d845c..6fa941521b 100644
--- a/language/arabic/arabtex/examples/ligtable.tex
+++ b/language/arabic/arabtex/examples/ligtable.tex
@@ -1,172 +1,172 @@
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% Tabelle aller Zeichenverbindungen
-% Stand 27.01.1992
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
-\documentstyle[arabtex]{article}
-\pagestyle{myheadings}
-\thispagestyle{empty}
-\parskip=5mm
-\parindent=0mm
-\setarab
-
-\begin{document}
-{\huge \bf Arab\TeX\ Ligatures \hfil \today }
-\markright{Arab\TeX\ Ligatures \hfil \today }
-
-\novocalize
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
-\newdimen \fw \newcount \nf
-
-\def \tableformat #1*{% Tabellenformat berechnen
-% columns
-\fw \hsize \advance \fw -3pt \relax
-\nf 1
-\ctfd #1,\end
-\divide \fw \nf }
-
-\def \ctfd #1,#2\end{% Felder zaehlen
-\advance \nf 1
-\ifx #2\relax \relax \let \next \relax
-\else \def \next {\ctfd #2\end }%
-\fi \next }
-
-\def \enter #1\end {% Element eintragen
-\hbox to \fw {\hss <#1>\hss }%
-}
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
-\def \tableline #1*#2*#3*#4*{% eine Zeile eintragen
-% beg row columns end
-%\hrule
-%\leavevmode
-%\hrule
-\hbox {%
-\ifx #2A\enter -a#4\end \else
-\enter -#2#4\end
-\fi
-\vrule
-\addtoline #1*#2*#3,*#4*%
-}
-%\hrule
-\typeout{#2 * #3}% Statusmeldung
-}
-
-\def \addtoline #1*#2*#3,#4*#5*{% Tabellenelemente eintragen
-% beg row column columns end
-\ifx #2A\enter #1#3#2#5\end
-\else \enter #1#3a#2#5\end
-\fi
-\ifx #4\relax \relax \let \next \relax
-\else \def \next {\addtoline #1*#2*#4*#5*}%
-\fi \next }
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
-\newif \ifcon
-
-\def \testcon #1#2*{% pruefe ob verbindbar
-\contrue
-\ifx #1A\confalse \else
-\ifx #1E\confalse \else
-\ifx #1d\confalse \else
-\ifx #1r\confalse \else
-\ifx #1z\confalse \else
-\ifx #1w\confalse \else
-\ifx #1_\ifx #2d\confalse \fi \else
-\ifx #1^\ifx #2z\confalse \fi \else
-\ifx #2\relax \relax \else
-\testcon #2*%
-\fi\fi\fi\fi\fi\fi\fi\fi\fi }
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
-\def \addlines #1*#2*#3*#4*{% Zeilenblock aufbauen
-% beg rows columns end
-\addrow #1*#2,*#3*#4*}
-
-\def \addrow #1*#2,#3*#4*#5*{% Zeilen eintragen
-% beg row rows columns end
-\ifx #5\relax \relax \contrue
- \tableline #1*#2*#4*#5*% eine Zeile
-\else \testcon #2*%
- \ifcon
- \tableline #1*#2*#4*#5*% eine Zeile
- \fi
-\fi
-\ifx #3\relax \relax \let \next \relax
-\else \def \next {\addrow #1*#3*#4*#5*}% weiter
-% \ifcon \\
-% \fi
-\fi \next }
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
-\def \ligtab #1*#2*#3*#4*{% Tabelle ausgeben
-% beg rows columns end
-{\offinterlineskip \tableformat #3*% Format aufbauen
-\leavevmode
-\tableline #1*-*#3**% Kopfzeile eintragen
-\hrule
-%\tracingmacros = 1 %
-\addlines #1*#2*#3*#4*% Tabellenrumpf eintragen
-\tracingmacros = 0 %
-}}
-
-\def \ligtable #1#2{% alle Tabellen
-% rows columns
-\expandafter \ligtabi #2*#1*}
-
-\def \ligtabi #1*#2*{% erstes Argument explizit
-% columns rows
-\expandafter \ligtabii #2*#1*}
-
-\def \ligtabii #1*#2*{% beide Argumente explizit
-% rows columns
-
-%Anfangsform -- Endform
-initial form to final form
-
-\ligtab *#1*#2**%
-
-%Mittelform -- Endform
-medial form to final form
-
-\ligtab -*#1*#2**%
-
-\newpage
-%Anfangsform -- Mittelform
-initial form to medial form
-
-\ligtab *#1*#2*-*%
-
-\newpage
-%Mittelform -- Mittelform
-medial form to medial form
-
-\ligtab -*#1*#2*-*%
-}
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
-\def \crow {A,p,_t,^c,_h,_d,^z,^s,.d,.z,.g,q,k,l,m,n,h,w,y,E,%
-lA,p^c,m^c,h^c,hm,py,pm,hE}
-
-\def \ccol {p,_t,^c,^s,.d,.z,.g,q,k,l,m,h}
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
-\huge
-\Huge
-\Large
-
-\ligtable \crow \ccol
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
-\tracingmacros=0
-\end{document}
-
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% Tabelle aller Zeichenverbindungen
+% Stand 27.01.1992
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+\documentstyle[arabtex]{article}
+\pagestyle{myheadings}
+\thispagestyle{empty}
+\parskip=5mm
+\parindent=0mm
+\setarab
+
+\begin{document}
+{\huge \bf Arab\TeX\ Ligatures \hfil \today }
+\markright{Arab\TeX\ Ligatures \hfil \today }
+
+\novocalize
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+\newdimen \fw \newcount \nf
+
+\def \tableformat #1*{% Tabellenformat berechnen
+% columns
+\fw \hsize \advance \fw -3pt \relax
+\nf 1
+\ctfd #1,\end
+\divide \fw \nf }
+
+\def \ctfd #1,#2\end{% Felder zaehlen
+\advance \nf 1
+\ifx #2\relax \relax \let \next \relax
+\else \def \next {\ctfd #2\end }%
+\fi \next }
+
+\def \enter #1\end {% Element eintragen
+\hbox to \fw {\hss <#1>\hss }%
+}
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+\def \tableline #1*#2*#3*#4*{% eine Zeile eintragen
+% beg row columns end
+%\hrule
+%\leavevmode
+%\hrule
+\hbox {%
+\ifx #2A\enter -a#4\end \else
+\enter -#2#4\end
+\fi
+\vrule
+\addtoline #1*#2*#3,*#4*%
+}
+%\hrule
+\typeout{#2 * #3}% Statusmeldung
+}
+
+\def \addtoline #1*#2*#3,#4*#5*{% Tabellenelemente eintragen
+% beg row column columns end
+\ifx #2A\enter #1#3#2#5\end
+\else \enter #1#3a#2#5\end
+\fi
+\ifx #4\relax \relax \let \next \relax
+\else \def \next {\addtoline #1*#2*#4*#5*}%
+\fi \next }
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+\newif \ifcon
+
+\def \testcon #1#2*{% pruefe ob verbindbar
+\contrue
+\ifx #1A\confalse \else
+\ifx #1E\confalse \else
+\ifx #1d\confalse \else
+\ifx #1r\confalse \else
+\ifx #1z\confalse \else
+\ifx #1w\confalse \else
+\ifx #1_\ifx #2d\confalse \fi \else
+\ifx #1^\ifx #2z\confalse \fi \else
+\ifx #2\relax \relax \else
+\testcon #2*%
+\fi\fi\fi\fi\fi\fi\fi\fi\fi }
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+\def \addlines #1*#2*#3*#4*{% Zeilenblock aufbauen
+% beg rows columns end
+\addrow #1*#2,*#3*#4*}
+
+\def \addrow #1*#2,#3*#4*#5*{% Zeilen eintragen
+% beg row rows columns end
+\ifx #5\relax \relax \contrue
+ \tableline #1*#2*#4*#5*% eine Zeile
+\else \testcon #2*%
+ \ifcon
+ \tableline #1*#2*#4*#5*% eine Zeile
+ \fi
+\fi
+\ifx #3\relax \relax \let \next \relax
+\else \def \next {\addrow #1*#3*#4*#5*}% weiter
+% \ifcon \\
+% \fi
+\fi \next }
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+\def \ligtab #1*#2*#3*#4*{% Tabelle ausgeben
+% beg rows columns end
+{\offinterlineskip \tableformat #3*% Format aufbauen
+\leavevmode
+\tableline #1*-*#3**% Kopfzeile eintragen
+\hrule
+%\tracingmacros = 1 %
+\addlines #1*#2*#3*#4*% Tabellenrumpf eintragen
+\tracingmacros = 0 %
+}}
+
+\def \ligtable #1#2{% alle Tabellen
+% rows columns
+\expandafter \ligtabi #2*#1*}
+
+\def \ligtabi #1*#2*{% erstes Argument explizit
+% columns rows
+\expandafter \ligtabii #2*#1*}
+
+\def \ligtabii #1*#2*{% beide Argumente explizit
+% rows columns
+
+%Anfangsform -- Endform
+initial form to final form
+
+\ligtab *#1*#2**%
+
+%Mittelform -- Endform
+medial form to final form
+
+\ligtab -*#1*#2**%
+
+\newpage
+%Anfangsform -- Mittelform
+initial form to medial form
+
+\ligtab *#1*#2*-*%
+
+\newpage
+%Mittelform -- Mittelform
+medial form to medial form
+
+\ligtab -*#1*#2*-*%
+}
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+\def \crow {A,p,_t,^c,_h,_d,^z,^s,.d,.z,.g,q,k,l,m,n,h,w,y,E,%
+lA,p^c,m^c,h^c,hm,py,pm,hE}
+
+\def \ccol {p,_t,^c,^s,.d,.z,.g,q,k,l,m,h}
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+\huge
+\Huge
+\Large
+
+\ligtable \crow \ccol
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+\tracingmacros=0
+\end{document}
+