From 8009e0ec2449002df344f784da9fe6846abc774f Mon Sep 17 00:00:00 2001
From: Marius <mariausol@gmail.com>
Date: Mon, 18 Oct 2010 12:40:11 +0300
Subject: beta 2010.10.18 11:11

---
 tex/context/base/supp-ali.tex | 173 ------------------------------------------
 1 file changed, 173 deletions(-)
 delete mode 100644 tex/context/base/supp-ali.tex

(limited to 'tex/context/base/supp-ali.tex')

diff --git a/tex/context/base/supp-ali.tex b/tex/context/base/supp-ali.tex
deleted file mode 100644
index 8727efbb2..000000000
--- a/tex/context/base/supp-ali.tex
+++ /dev/null
@@ -1,173 +0,0 @@
-%D \module
-%D   [       file=supp-ali,
-%D        version=2000.04.17,
-%D          title=\CONTEXT\ Support Macros,
-%D       subtitle=Alignment,
-%D         author=Hans Hagen,
-%D           date=\currentdate,
-%D      copyright={PRAGMA / Hans Hagen \& Ton Otten}]
-%C
-%C This module is part of the \CONTEXT\ macro||package and is
-%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
-%C details.
-
-%D Yet undocumented.
-
-% 0 = centered
-% 1 = left  in before
-% 2 = right in before
-% 3 = left  in after
-% 4 = right in after
-
-\unprotect
-
-% \starttabulate[|cg{.}|cg{,}|cg{,}|]
-% \NC period     \NC comma      \NC comma   \NC\NR
-% \NG 100.000,00 \NG 100.000,00 \NG 100,00  \NC\NR
-% \NG 10.000,00  \NG 10.000,00  \NG 1000,00 \NC\NR
-% \NG 100,00     \NG 100,00     \NG 10,00   \NC\NR
-% \NG 100,00     \NG 100,00     \NG 10,00   \NC\NR
-% \NG 10\\       \NG 10\\       \NG 0,00    \NC\NR
-% \NG 10         \NG 10         \NG 0,00    \NC\NR
-% \NG 10         \NG 10         \NG 0,00    \NC\NR
-% \stoptabulate
-
-\chardef\characteralignmentmode=4
-\chardef\characteralignmentslot=1
-
-\newtoks\@@characteralignlst
-
-\let\afterassignwidth \!!zeropoint
-\let\beforeassignwidth\!!zeropoint
-
-\def\alignmentcharacter{.}
-
-\let\alignmentclass\s!default % can be used to handle multiple mixed ones
-
-\def\setfirstpasscharacteralign
-  {\popcharacteralign
-   \expanded{\dosetfirstpasscharacteralign{\alignmentcharacter}}}
-
-\def\dosetfirstpasscharacteralign#1%
-  {\def\checkalignment##1%
-     {\popcharacteralign
-      \let\\\empty
-      \setbox\scratchbox\hbox{#1}%
-      \edef\characterassignwidth{\the\wd\scratchbox}%
-      \setbox\scratchbox\null
-      \docheckalignment##1#1\relax\relax
-      \scratchdimen-\wd\scratchbox
-      \setbox\scratchbox\hbox{\ignorespaces##1\unskip}%
-      \advance\scratchdimen \wd\scratchbox
-      \ifdim\scratchdimen>\beforeassignwidth\relax
-        \edef\beforeassignwidth{\the\scratchdimen}%
-      \fi
-      \ifdim\scratchdimen=\zeropoint
-        \setbox\scratchbox\hbox{\ignorespaces##1\unskip}%
-        \scratchdimen\wd\scratchbox
-        \ifcase\characteralignmentmode
-          % do nothing
-        \else\ifnum\characteralignmentmode<\plusthree
-          \advance\scratchdimen \characterassignwidth
-          \ifdim\scratchdimen>\beforeassignwidth\relax
-            \edef\beforeassignwidth{\the\scratchdimen}%
-          \fi
-        \else
-          \ifdim\scratchdimen>\afterassignwidth\relax
-            \edef\afterassignwidth{\the\scratchdimen}%
-          \fi
-        \fi\fi
-      \fi
-      \pushcharacteralign}%
-   \def\docheckalignment##1#1##2##3\relax
-     {\ifx##2\relax
-        \setbox\scratchbox\hbox{\ignorespaces##1\unskip}%
-        \ifdim\wd\scratchbox>\afterassignwidth
-          \edef\afterassignwidth{\the\wd\scratchbox}%
-        \fi
-      \else
-        \docheckalignment##2##3\relax\relax
-      \fi}}
-
-\def\setsecondpasscharacteralign
-  {\popcharacteralign
-   \expanded{\dosetsecondpasscharacteralign{\alignmentcharacter}}}
-
-\def\dosetsecondpasscharacteralign#1%
-  {\def\checkalignment##1%
-     {\popcharacteralign
-      \let\\\empty % beware, no grouping
-      \setbox\scratchbox\hbox{#1}%
-      \edef\characterassignwidth{\the\wd\scratchbox}%
-      \setbox\scratchbox\null
-      % new 12,34 vs 10\\ where 10 aligns on 12 if #1 = ,
-      \ifcase\characteralignmentslot
-        \docheckalignment##1#1\relax\relax
-        \scratchdimen\wd\scratchbox
-        \setbox\scratchbox\hbox{\ignorespaces##1\unskip}%
-      \else
-        \def\\{#1}%
-        \expanded{\docheckalignment##1#1\relax\relax}%
-        \scratchdimen\wd\scratchbox
-        \setbox\scratchbox\hbox{\def\\{\hphantom{#1}}\ignorespaces##1\unskip}%
-      \fi
-      \noindent
-      \ifdim\scratchdimen=\wd\scratchbox
-        \ifcase\characteralignmentmode
-          \box\scratchbox
-        \else
-          \hbox
-            {\dontcomplain
-             \hbox to \beforeassignwidth
-               {\ifcase\characteralignmentmode\or
-                  \box\scratchbox\hss
-                \or
-                  \hss\box\scratchbox\hskip\characterassignwidth
-                \or
-                  \hss\rlap{\box\scratchbox}%
-                \or
-                  \hss\rlap{\hbox to \afterassignwidth{\hss\box\scratchbox}}%
-                \fi}%
-             \hskip\afterassignwidth}%
-        \fi
-      \else
-        \hbox
-          {\hbox to \beforeassignwidth
-             {\hss\box\scratchbox\hskip-\scratchdimen}%
-           \hskip\afterassignwidth}%
-      \fi}%
-   \def\docheckalignment##1#1##2##3\relax
-     {\ifx##2\relax
-        \setbox\scratchbox\hbox{\ignorespaces##1\unskip}%
-      \else
-        \docheckalignment##2##3\relax\relax
-      \fi}}
-
-% provide a means to use multiple alignments mixed
-
-\def\pushcharacteralign
-  {\ifundefined{@cac@\alignmentclass}%
-     \doglobal\appendetoks\noexpand\do{\alignmentclass}\to\@@characteralignlst
-   \fi
-   \setxvalue{@cac@\alignmentclass}{\noexpand\do
-     {\afterassignwidth}{\beforeassignwidth}{\alignmentcharacter}}}
-
-\def\popcharacteralign
-  {\def\do##1##2##3%
-     {\def\afterassignwidth  {##1}%
-      \def\beforeassignwidth {##2}%
-      \def\alignmentcharacter{##3}}%
-   \executeifdefined{@cac@\alignmentclass}\donothing}
-
-\def\resetcharacteralign % does not work well nested
-  {\def\do##1{\global\letbeundefined{@cac@##1}}% global !
-   \the\@@characteralignlst
-   \global\@@characteralignlst\emptytoks}
-
-\long\def\startcharacteralign#1\stopcharacteralign
-  {\bgroup
-   \setfirstpasscharacteralign #1%
-   \setsecondpasscharacteralign#1%
-   \egroup}
-
-\protect \endinput
-- 
cgit v1.2.3

