%D \module
%D   [       file=spac-ali,
%D        version=2009.10.16, % 1997.03.31, was core-spa.tex
%D          title=\CONTEXT\ Spacing Macros,
%D       subtitle=Alignments,
%D         author=Hans Hagen,
%D           date=\currentdate,
%D      copyright={PRAGMA ADE \& \CONTEXT\ Development Team}]
%C
%C This module is part of the \CONTEXT\ macro||package and is
%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
%C details.

\writestatus{loading}{ConTeXt Spacing Macros / Alignments}

\unprotect

%D The \type {new} and \type {old} methods are gone as we now have \type {flush*}
%D variants. Starting at the last day of 2011 both methods are merged into one and
%D caching has been added, which makes switching twice as fast.

\registerctxluafile{spac-ali}{autosuffix}

% Used once so ... replace it or use if more frequently ...

\installcorenamespace {alignswitch}

% maybe \setconstantvalue or so

\expandafter\integerdef\csname\??alignswitch\v!left  \endcsname\zerocount
\expandafter\integerdef\csname\??alignswitch\v!middle\endcsname\plusone
\expandafter\integerdef\csname\??alignswitch\v!right \endcsname\plustwo

\mutable\integerdef\alignmentswitch\zerocount

\permanent\protected\def\setalignmentswitch#1%
  {\integerdef\alignmentswitch\csname\??alignswitch\ifcsname\??alignswitch#1\endcsname#1\else\v!left\fi\endcsname}

% till here

\definesystemattribute[realign]   [public] % might be combined with the next one
\definesystemattribute[alignstate][public] % will make a single attributes for several states

\appendtoks
    \c_attr_realign   \attributeunsetvalue
    \c_attr_alignstate\attributeunsetvalue
\to \everyforgetall

\permanent\protected\def\signalinnerrealign{\clf_setrealign\plustwo}
\permanent\protected\def\signalouterrealign{\clf_setrealign\plusone}

\installcorenamespace{aligncommand}
\installcorenamespace{alignhorizontal}
\installcorenamespace{alignvertical}

% \installcorenamespace{alignmentnormalcache}
% \installcorenamespace{alignmentraggedcache}

% nasty hack:

\installcorenamespace{alignmentnormalcacheodd}
\installcorenamespace{alignmentnormalcacheeven}

\installcorenamespace{alignmentraggedcacheodd}
\installcorenamespace{alignmentraggedcacheeven}

\permanent\def\??alignmentnormalcache{\ifodd\realpageno\??alignmentnormalcacheodd\else\??alignmentnormalcacheeven\fi}
\permanent\def\??alignmentraggedcache{\ifodd\realpageno\??alignmentraggedcacheodd\else\??alignmentraggedcacheeven\fi}

\newtoks\everyresetalign % todo

% This will become a more advanced layout controller soon:

\newconditional\layoutlefttoright   \layoutlefttoright \conditionaltrue
\newconditional\displaylefttoright  \displaylefttoright\conditionaltrue
\newconditional\inlinelefttoright   \inlinelefttoright \conditionaltrue

\permanent\protected\def\lefttoright
  {\ifvmode
     \spac_directions_lefttoright_vmode
   \else
     \spac_directions_lefttoright_hmode
   \fi}

\permanent\protected\def\righttoleft
  {\ifvmode
     \spac_directions_righttoleft_vmode
   \else
     \spac_directions_righttoleft_hmode
   \fi}

\protected\def\spac_directions_lefttoright_vmode
  {\displaylefttoright\conditionaltrue
   \inlinelefttoright\conditionaltrue
   \textdirection\directionlefttoright
   \pardirection \directionlefttoright}

\protected\def\spac_directions_righttoleft_vmode
  {\displaylefttoright\conditionalfalse
   \inlinelefttoright\conditionalfalse
   \textdirection\directionrighttoleft
   \pardirection \directionrighttoleft}

\protected\def\spac_directions_lefttoright_hmode
  {\linedirection\directionlefttoright % linedir keeps subtype of skip
   \inlinelefttoright\conditionaltrue}

\protected\def\spac_directions_righttoleft_hmode
  {\linedirection\directionrighttoleft % linedir keeps subtype of skip
   \inlinelefttoright\conditionalfalse}

\permanent\protected\def\synchronizelayoutdirection
  {\ifconditional\layoutlefttoright
     \spac_directions_synchronize_lr
   \else
     \spac_directions_synchronize_rl
   \fi}

\permanent\protected\def\synchronizedisplaydirection
  {\ifconditional\displaylefttoright
     \spac_directions_synchronize_lr
   \else
     \spac_directions_synchronize_rl
   \fi}

\def\spac_directions_synchronize_lr
  {\inlinelefttoright\conditionaltrue
   \textdirection\directionlefttoright
   \pardirection \directionlefttoright}

\def\spac_directions_synchronize_rl
  {\inlinelefttoright\conditionalfalse
   \textdirection\directionrighttoleft
   \pardirection \directionrighttoleft}

\permanent\protected\def\synchronizeinlinedirection
  {% why not \linedirection here
   \textdirection\ifconditional\inlinelefttoright\directionlefttoright\else\directionrighttoleft\fi}

\permanent\protected\def\checkedlefttoright
  {\ifvmode
     \spac_directions_lefttoright_vmode
   \else
     \spac_directions_lefttoright_hmode_checked
   \fi}

\permanent\protected\def\checkedrighttoleft
  {\ifvmode
     \spac_directions_righttoleft_vmode
   \else
     \spac_directions_righttoleft_hmode_checked
   \fi}

\protected\def\spac_directions_lefttoright_hmode_checked
  {\ifconditional\inlinelefttoright\else
     \lefttoright
   \fi}

\protected\def\spac_directions_righttoleft_hmode_checked
  {\ifconditional\inlinelefttoright
     \righttoleft
   \fi}

\installcorenamespace{bidi}

\letcsname\??bidi\v!left \endcsname\checkedlefttoright \letcsname\??bidi l2r\endcsname\checkedlefttoright
\letcsname\??bidi\v!right\endcsname\checkedrighttoleft \letcsname\??bidi r2l\endcsname\checkedrighttoleft

\permanent\protected\def\usebidiparameter#1%
  {\begincsname\??bidi#1\c!bidi\endcsname}

%D Moved here:

\appendtoks
    \usebidiparameter\languageparameter
\to \everylanguage

\permanent\protected\def\showdirections
  {\dontleavehmode
   \begingroup\infofont\textdirection\directionlefttoright[\space
   layout:  \ifconditional\layoutlefttoright  l2r\else r2l\fi\space
   display: \ifconditional\displaylefttoright l2r\else r2l\fi\space
   inline:  \ifconditional\inlinelefttoright  l2r\else r2l\fi\space
   ]\endgroup}

\permanent\protected\def\righttolefthbox#1#{\reversehbox#1\bgroup\righttoleft\let\next} \aliased\let\rtlhbox\righttolefthbox
\permanent\protected\def\lefttorighthbox#1#{\naturalhbox#1\bgroup\lefttoright\let\next} \aliased\let\ltrhbox\lefttorighthbox
\permanent\protected\def\righttoleftvbox#1#{\reversevbox#1\bgroup\righttoleft\let\next} \aliased\let\rtlvbox\righttoleftvbox
\permanent\protected\def\lefttorightvbox#1#{\naturalvbox#1\bgroup\lefttoright\let\next} \aliased\let\ltrvbox\lefttorightvbox
\permanent\protected\def\righttoleftvtop#1#{\reversevtop#1\bgroup\righttoleft\let\next} \aliased\let\rtlvtop\righttoleftvtop
\permanent\protected\def\lefttorightvtop#1#{\naturalvtop#1\bgroup\lefttoright\let\next} \aliased\let\ltrvtop\lefttorightvtop

\permanent\protected\def\autodirhbox#1#{\hbox#1\bgroup\synchronizeinlinedirection\let\next}
\permanent\protected\def\autodirvbox#1#{\vbox#1\bgroup\synchronizeinlinedirection\let\next} % maybe also pardir or maybe just a \vbox
\permanent\protected\def\autodirvtop#1#{\vtop#1\bgroup\synchronizeinlinedirection\let\next} % maybe also pardir or maybe just a \vtop

\permanent\protected\def\leftorrighthbox{\ifconditional\displaylefttoright\expandafter\lefttorighthbox\else\expandafter\righttolefthbox\fi}
\permanent\protected\def\leftorrightvbox{\ifconditional\displaylefttoright\expandafter\lefttorightvbox\else\expandafter\righttoleftvbox\fi}
\permanent\protected\def\leftorrightvtop{\ifconditional\displaylefttoright\expandafter\lefttorightvtop\else\expandafter\righttoleftvtop\fi}

\permanent\protected\def\rtltext{\groupedcommand{\dontleavehmode\righttoleft\ignorespaces}\removeunwantedspaces}
\permanent\protected\def\ltrtext{\groupedcommand{\dontleavehmode\lefttoright\ignorespaces}\removeunwantedspaces}

% Tolerance and hyphenation

\ifdefined\lesshyphens \else \let\lesshyphens\relax \fi
\ifdefined\morehyphens \else \let\morehyphens\relax \fi
\ifdefined\nohyphens   \else \let\nohyphens  \relax \fi
\ifdefined\dohyphens   \else \let\dohyphens  \relax \fi

% \pretolerance 100
% \tolerance    200

\newconstant\c_spac_tolerance_default  \c_spac_tolerance_default  200
\newconstant\c_spac_tolerance_minimum  \c_spac_tolerance_minimum 1500
\newconstant\c_spac_tolerance_normal   \c_spac_tolerance_normal  3000
\newconstant\c_spac_tolerance_extreme  \c_spac_tolerance_extreme 4500

\def\spac_align_set_raggedness_left  {\plustwo\bodyfontsize}
\def\spac_align_set_raggedness_right {\plustwo\bodyfontsize}
\def\spac_align_set_raggedness_middle{\plussix\bodyfontsize} % overloaded below

% oeps, hsize can be 0pt in which case we get a strange division
% was: 6\bodyfontsize, fails on: \placefigure{x $x=x$ x}{}

\def\spac_align_set_raggedness_middle{\ifzeropt\hsize\plussix\bodyfontsize\else.5\hsize\fi}

\permanent\protected\def\setraggedness#1% tricky .. we keep the global tolerance otherwise ... to be reconsidered
  {\ifnum\tolerance<\c_spac_tolerance_minimum
     \tolerance\c_spac_tolerance_minimum % small values have unwanted side effects
   \else
     % todo: take set value or none .. better done elsewhere (200 is normal)
   \fi
   \ifrelax\dohyphens % was 2.5 in old implementation using scratch registers
     \hyphenpenalty\dimexpr2.8\hsize/\dimexpr#1\relax\relax % 50 in raggedright/raggedleft
  %\else
     % no need to do something as we're in \nohyphens
   \fi}

\protected\def\spac_align_set_tolerant
  {\tolerance\c_spac_tolerance_normal}

\protected\def\spac_align_set_very_tolerant
  {\tolerance\c_spac_tolerance_extreme}

\protected\def\spac_align_set_stretch
  {\emergencystretch\bodyfontsize}

\protected\def\spac_align_set_extreme_stretch
  {\emergencystretch10\bodyfontsize}

% Vertical

\newconstant\c_spac_align_state_vertical
\newconstant\c_spac_align_state_spread

\protected\def\spac_align_set_vertical_none
  {\enforced\let\raggedtopcommand   \relax
   \enforced\let\raggedbottomcommand\relax}

\protected\def\spac_align_set_vertical_lohi
  {\enforced\let\raggedtopcommand   \vfilll
   \enforced\let\raggedbottomcommand\vfilll}

\protected\def\spac_align_set_vertical_low
  {\enforced\let\raggedtopcommand   \vfilll
   \enforced\let\raggedbottomcommand\relax}

\protected\def\spac_align_set_vertical_high
  {\enforced\let\raggedtopcommand   \relax
   \enforced\let\raggedbottomcommand\vfilll}

\def\spac_align_flush_vertical
  {\ifcase\c_spac_align_state_vertical
     \spac_align_set_vertical_none
   \or
     \spac_align_set_vertical_lohi
   \or
     \spac_align_set_vertical_low
   \or
     \spac_align_set_vertical_high
   \fi
   \baselineskip
     1\baselineskip
     \ifcase\c_spac_align_state_spread\else
       \s!plus \onepoint
     \fi
   \relax}

% Horizontal

\ifdefined\raggedonelinerstate \else
    \newconditional\raggedonelinerstate  % public
\fi

% \appendtoks
%     \raggedonelinerstate\conditionalfalse
% \to \everyforgetall

\newconstant\raggedstatus     % public
\newconstant\raggedhangstatus % public

\newconstant\c_spac_align_state_horizontal
\newconstant\c_spac_align_state_broad
\newconstant\c_spac_align_state_par_fill

\def\v_spac_align_fill_amount          {\plusone            fil}
\def\v_spac_align_fill_amount_hard     {\plusone           fill}
\def\v_spac_align_fill_amount_extreme  {\plustenthousand  filll}
\def\v_spac_align_fill_amount_negative {\minusone           fil}
\def\v_spac_align_fill_amount_double   {\plustwo            fil}
\def\v_spac_align_fill_amount_space    {\plustwo            fil} % can be added to xspace if we have a key
\def\v_spac_align_fill_amount_half                       {.5fil}

\newgluespec\s_zero_plus_one_fil  \s_zero_plus_one_fil  = 0pt plus 1fil  \relax
\newgluespec\s_zero_plus_one_fill \s_zero_plus_one_fill = 0pt plus 1fill \relax
\newgluespec\s_zero_plus_zero     \s_zero_plus_zero     = 0pt plus 0pt   \relax

%D In the past we used \type {\spaceskip} and \type {\xspaceskip} in ragged modes,
%D just like plain \TEX\ does, although with different values. However, freezing the
%D space doesn't work well if we change the font after the alignment setting.
%D Therefore we now discard the stretch and shrink of the regular space which then
%D automatically adapts spacing to the current font. Actually, the comment in TBT
%D \quotation {Note that, if \type {\spaceskip} and \type {\xspaceskip} are defined
%D in terms of em, they change with the font.} is not true, becuase first of all
%D we're talking skips so even if \TEX\ would bind to a font parameter is would be a
%D dimen to skip binding, and there is no way to involve a multiplier in that. It's
%D really something that the engine has to do. An alternative for us is to set the
%D \type {\spaceskipfactor} every font switch but even that is not robust in mixed
%D font scenarios; we keep it around for experiments.

% musical timestamp: Tori Amos, Stronger Together, February 2026

% using spaceskip
%
% \let\v_spac_align_space_amount    \interwordspace
% \def\v_spac_align_space_amount_x  {.5\emwidth}
% \let\v_spac_align_space_mode      \zerocount
%
% using regular space with mode, the indirectness will go.
%
% \let\v_spac_align_space_amount  \zeropoint
% \let\v_spac_align_space_amount_x\zeropoint
% \let\v_spac_align_space_mode    \nogluespaceskipcode
%
% with
%
%  \spaceskipmode    \nogluespaceskipcode % \v_spac_align_space_mode
%  \spaceskip        \zeropoint           % \v_spac_align_space_amount
%  \xspaceskip       \zeropoint           % \v_spac_align_space_amount_x

%D In the end we nowhere want to use the \type {spaceskip} and \type {\xspaceskip}
%D variables. We can gain some by not setting them at all or even aliasing them to
%D dummies.
%D
%D \starttyping
%D \startTEXpage
%D     \showglyphs \showmakeup[glue]
%D     \bfa\setupinterlinespace
%D     \raggedright
%D     \samplefile{tufte} \par
%D     \bfb\setupinterlinespace
%D     \samplefile{tufte} \par
%D \stopTEXpage
%D
%D \startTEXpage
%D     \showglyphs \showmakeup[glue]
%D     \raggedright
%D     \bfa\setupinterlinespace
%D     \samplefile{tufte} \par
%D     \bfb\setupinterlinespace
%D     \samplefile{tufte} \par
%D \stopTEXpage
%D \stoptyping

\appendtoks
    \spaceskipmode\zerocount
  % \spaceskip    \zeroskip
  % \xspaceskip   \zeroskip
    \parfillmode  \zerocount
\to \everyforgetall

\permanent\protected\def\spac_align_set_horizontal_none % should also relax \updateraggedskips
  {\raggedstatus     \zerocount
   \raggedhangstatus \zerocount
   \c_attr_alignstate\attributeunsetvalue
   \leftskip         \plusone\leftskip
   \rightskip        \plusone\rightskip
   \spaceskipmode    \zerocount
   \spaceskip        \zeroskip
   \xspaceskip       \zeroskip
   \parfillmode      \zerocount
   \parinitleftskip  \zeroskip
   \parinitrightskip \zeroskip
   \parfillleftskip  \zeroskip
   \parfillrightskip \s_zero_plus_one_fil % new
   \raggedonelinerstate\conditionalfalse % now here
   \enforced\aliased\let\updateraggedskips\relax}          % no need for adaption

% Musical timestamp: more advanced ragging was implemented around Archive's
% release of Glass Minds (February 2026).

\permanent\protected\def\spac_align_set_horizontal_none_sense % should also relax \updateraggedskips
  {\raggedstatus     \zerocount
   \raggedhangstatus \zerocount
   \c_attr_alignstate\attributeunsetvalue
   \leftskip         \plusone\leftskip
   \rightskip        \plusone\rightskip
   \spaceskipmode    \noshrinkspaceskipcode
   \spaceskip        \zeroskip
   \xspaceskip       \zeroskip
  %\parfillmode      \zerocount
   \parinitleftskip  \zeroskip
   \parinitrightskip \zeroskip
   \parfillleftskip  \zeroskip % no \s_zero_plus_one_fil else no expansion
   \parfillrightskip\zeropoint % to be checked
   \raggedonelinerstate\conditionalfalse % now here
   \enforced\aliased\let\updateraggedskips\relax}

\permanent\protected\def\spac_align_set_horizontal_none_left  {\spac_align_set_horizontal_none_sense\parfillmode\leftparagraphfillmodecode }
\permanent\protected\def\spac_align_set_horizontal_none_right {\spac_align_set_horizontal_none_sense\parfillmode\rightparagraphfillmodecode}
\permanent\protected\def\spac_align_set_horizontal_none_center{\spac_align_set_horizontal_none_sense\parfillmode\bothparagraphfillmodecode }

\permanent\protected\def\spac_align_set_horizontal_left
  {\setraggedness    \spac_align_set_raggedness_left
   \raggedstatus     \plusone
   \raggedhangstatus \zerocount
   \c_attr_alignstate\plusone
   \leftskip         \plusone\leftskip \s!plus\spac_align_set_raggedness_left
   \rightskip        \plusone\rightskip % \s!plus\zeropoint % why plus
   \spaceskipmode    \nogluespaceskipcode
   \spaceskip        \zeropoint
   \xspaceskip       \zeropoint
   \parfillmode      \zerocount
   \parinitleftskip  \zeroskip
   \parinitrightskip \zeroskip
   \parfillleftskip  \s_zero_plus_one_fil
   \parfillrightskip \zeroskip
   \parindent        \zeropoint
   \relax}

\permanent\protected\def\spac_align_set_horizontal_center
  {\setraggedness    \spac_align_set_raggedness_middle
   \raggedstatus     \plustwo
   \raggedhangstatus \zerocount
   \c_attr_alignstate\plustwo
   \leftskip         \plusone\leftskip \s!plus\spac_align_set_raggedness_middle
   \rightskip        \plusone\rightskip\s!plus\spac_align_set_raggedness_middle
   \spaceskipmode    \nogluespaceskipcode
   \spaceskip        \zeropoint
   \xspaceskip       \zeropoint
   \parfillmode      \zerocount
   \parinitleftskip  \zeroskip
   \parinitrightskip \zeroskip
   \parfillleftskip  \zeroskip
   \parfillrightskip \s_zero_plus_zero
   \parindent        \zeropoint
   \relax}

\permanent\protected\def\spac_align_set_horizontal_right
  {\setraggedness    \spac_align_set_raggedness_right
   \raggedstatus     \plusthree
   \raggedhangstatus \zerocount
   \c_attr_alignstate\plusthree
   \leftskip         \plusone\leftskip % \s!plus\zeropoint
   \rightskip        \plusone\rightskip\s!plus\spac_align_set_raggedness_right
   \spaceskipmode    \nogluespaceskipcode
   \spaceskip        \zeropoint
   \xspaceskip       \zeropoint
   \parfillmode      \zerocount
   \parinitleftskip  \zeroskip
   \parinitrightskip \zeroskip
   \parfillleftskip  \zeroskip
   \parfillrightskip \s_zero_plus_one_fil
  %\parindent        \parindent
   \relax}

\permanent\protected\def\spac_align_set_horizontal_very_left
  {\raggedstatus     \plusone
   \raggedhangstatus \zerocount
   \c_attr_alignstate\plusone
   \leftskip         \plusone\leftskip \s!plus\v_spac_align_fill_amount
   \rightskip        \plusone\rightskip % \s!plus\zeropoint
   \spaceskipmode    \nogluespaceskipcode
   \spaceskip        \zeropoint
   \xspaceskip       \zeropoint
   \parfillmode      \zerocount
   \parinitleftskip  \zeroskip
   \parinitrightskip \zeroskip
   \parfillleftskip  \s_zero_plus_zero
   \parfillrightskip \zeroskip
   \parindent        \zeropoint
   \relax}

\permanent\protected\def\spac_align_set_horizontal_very_center
  {\raggedstatus     \plustwo
   \raggedhangstatus \zerocount
   \c_attr_alignstate\plustwo
   \leftskip         \plusone\leftskip \s!plus\v_spac_align_fill_amount
   \rightskip        \plusone\rightskip\s!plus\v_spac_align_fill_amount
   \spaceskipmode    \nogluespaceskipcode
   \spaceskip        \zeropoint
   \xspaceskip       \zeropoint
   \parfillmode      \zerocount
   \parinitleftskip  \zeroskip
   \parinitrightskip \zeroskip
   \parfillleftskip  \zeroskip
   \parfillrightskip \s_zero_plus_zero
   \parindent        \zeropoint
   \relax}

\permanent\protected\def\spac_align_set_horizontal_very_right
  {\raggedstatus     \plusthree
   \raggedhangstatus \zerocount
   \c_attr_alignstate\plusthree
   \leftskip         \plusone\leftskip % \s!plus\zeropoint
   \rightskip        \plusone\rightskip\s!plus\v_spac_align_fill_amount
   \spaceskipmode    \nogluespaceskipcode
   \spaceskip        \zeropoint
   \xspaceskip       \zeropoint
   \parfillmode      \zerocount
   \parinitleftskip  \zeroskip
   \parinitrightskip \zeroskip
   \parfillleftskip  \zeroskip
   \parfillrightskip \s_zero_plus_zero
  %\parindent        \parindent
   \relax}

\permanent\protected\def\spac_align_set_horizontal_wide_center
  {\setraggedness    \spac_align_set_raggedness_middle
   \raggedstatus     \plustwo
   \raggedhangstatus \zerocount
   \c_attr_alignstate\plustwo
   \leftskip         \plusone\leftskip \s!plus\v_spac_align_fill_amount_half
   \rightskip        \plusone\rightskip\s!plus\v_spac_align_fill_amount_half
   \spaceskipmode    \nogluespaceskipcode
   \spaceskip        \zeropoint
   \xspaceskip       \zeropoint
   \parfillmode      \zerocount
   \parinitleftskip  \zeroskip
   \parinitrightskip \zeroskip
   \parfillleftskip  \zeroskip
   \parfillrightskip \s_zero_plus_zero
   \parindent        \zeropoint
   \relax}

\permanent\protected\def\spac_align_set_horizontal_centered_last_line
  {\raggedstatus     \zerocount
   \raggedhangstatus \zerocount
   \c_attr_alignstate\attributeunsetvalue
   \leftskip         \plusone\leftskip \s!plus\v_spac_align_fill_amount\relax
   \rightskip        \plusone\rightskip\s!plus\v_spac_align_fill_amount_negative\relax
   \spaceskipmode    \zerocount
   \spaceskip        \zeroskip
   \xspaceskip       \zeroskip
   \parfillmode      \zerocount
   \parinitleftskip  \zeroskip
   \parinitrightskip \zeroskip
   \parfillleftskip  \zeroskip
   \parfillrightskip \zeropoint\s!plus\v_spac_align_fill_amount_double\relax
   \parindent        \zeropoint
   \relax}

\permanent\protected\def\spac_align_set_horizontal_flushedright_last_line
  {\raggedstatus     \zerocount
   \raggedhangstatus \zerocount
   \c_attr_alignstate\attributeunsetvalue
   \leftskip         \plusone\leftskip \s!plus\v_spac_align_fill_amount\relax
   \rightskip        \plusone\rightskip\s!plus\v_spac_align_fill_amount_negative\relax
   \spaceskipmode    \zerocount
   \spaceskip        \zeroskip
   \xspaceskip       \zeroskip
   \parfillmode      \zerocount
   \parinitleftskip  \zeroskip
   \parinitrightskip \zeroskip
   \parfillleftskip  \zeropoint\s!plus\v_spac_align_fill_amount_extreme\relax
   \parfillrightskip \zeroskip
   \parindent        \zeropoint
   \relax}

\permanent\protected\def\spac_align_set_horizontal_right_tt % a plain command
  {\tttf % brrr
   \raggedstatus     \plusthree
   \raggedhangstatus \zerocount
   \c_attr_alignstate\plusthree
   \leftskip         \plusone\leftskip % \s!plus\zeropoint\relax
   \rightskip        \plusone\rightskip\s!plus\spac_align_set_raggedness_right\relax
   \spaceskipmode    \zerocount
   \spaceskip        \zeroskip
   \xspaceskip       \zeroskip
   \parfillmode      \zerocount
   \parinitleftskip  \zeroskip
   \parinitrightskip \zeroskip
   \parfillleftskip  \zeroskip
   \parfillrightskip \s_zero_plus_zero
  %\parindent        \parindent
   \relax}

\permanent\protected\def\spac_align_set_horizontal_slanted
  {\raggedstatus     \zerocount
   \raggedhangstatus \zerocount
  %\c_attr_alignstate\attributeunsetvalue
   \c_attr_alignstate\plustwo
   \leftskip         \plusone\leftskip \s!plus\spac_align_set_raggedness_middle
   \rightskip        \plusone\rightskip\s!plus\spac_align_set_raggedness_middle
   \spaceskipmode    \zerocount
   \spaceskip        \zeroskip
   \xspaceskip       \zeroskip
   \parfillmode      \zerocount
   \parinitleftskip  \zeroskip
   \parinitrightskip \zeropoint\s!plus\v_spac_align_fill_amount_extreme\relax
   \parfillleftskip  \zeropoint\s!plus\v_spac_align_fill_amount_extreme\relax
   \parfillrightskip \zeroskip
   \parindent        \zeropoint
   \relax}

\def\spac_align_flush_horizontal
  {\ifcase\c_spac_align_state_horizontal
     % 0
     \spac_align_set_horizontal_none
   \or
     % 1 center
     \ifcase\c_spac_align_state_broad
       \spac_align_set_horizontal_center
     \or
       \spac_align_set_horizontal_very_center
     \or
       \spac_align_set_horizontal_wide_center
     \or
       \spac_align_set_horizontal_none_center
     \fi
   \or
     % 2 flush left
     \ifcase\c_spac_align_state_broad
       \ifcase\c_spac_align_state_tight
         \spac_align_set_horizontal_right
       \else
         \spac_align_set_horizontal_center
         \leftskip1\leftskip
       \fi
     \or
       \spac_align_set_horizontal_very_right
     \or
       \spac_align_set_horizontal_very_right
     \or
       \spac_align_set_horizontal_none_right
     \fi
   \or
     % 3 flush right
     \ifcase\c_spac_align_state_broad
       \ifcase\c_spac_align_state_tight
         \spac_align_set_horizontal_left
       \else
         \spac_align_set_horizontal_center
         \rightskip1\rightskip
       \fi
     \or
       \spac_align_set_horizontal_very_left
     \or
       \spac_align_set_horizontal_very_left
     \or
       \spac_align_set_horizontal_none_left
     \fi
   \or
     % 4 inner
     \ifdoublesided
       \signalinnerrealign
     \fi
     \rightorleftpageaction\spac_align_set_horizontal_right\spac_align_set_horizontal_left
   \or
     % 5 outer
     \ifdoublesided
       \signalouterrealign
     \fi
     \rightorleftpageaction\spac_align_set_horizontal_left\spac_align_set_horizontal_right
   \or
     % 6 oneliner
     \ifcase\c_spac_align_state_broad
       \spac_align_set_horizontal_right
     \else
       \spac_align_set_horizontal_very_right
     \fi
    %\parfillleftskip \zeroskip
     \parfillrightskip\zeroskip
   \or
     % 7 centered last line
     \spac_align_set_horizontal_centered_last_line
   \or
     % 8 right aligned last line
     \spac_align_set_horizontal_flushedright_last_line
   \or
     % 9 paragraph
    %\parfillleftskip \zeroskip
     \parfillrightskip\zeroskip
   \or
     % 10 slanted
     \spac_align_set_horizontal_slanted
   \or
     % 11 hangleft
     \spac_align_set_horizontal_hang_left
   \or
     % 12 hangright
     \spac_align_set_horizontal_hang_right
   \or
     % 13 hangleft range, private
     \spac_align_set_horizontal_hang_left_range
   \or
     % 14 hangright range, private
     \spac_align_set_horizontal_hang_right_range
   \fi
   \relax}

% Page spacing:

\newconstant\c_spac_align_state_page

% \mutable\def\bottomalignlimit{\plusthree\lineheight}

\newconstant\bottomraggednessmode % 0=ragged 1=normal/align 2=baseline 3=depth 4=weird-line

\permanent\protected\def\raggedbottom
  {\bottomraggednessmode\zerocount
   \settopskip
   \setmaxdepth}

\permanent\protected\def\alignbottom
  {\bottomraggednessmode\plusone
   \settopskip
   \setmaxdepth}

\permanent\protected\def\baselinebottom
  {\bottomraggednessmode\plustwo
   \settopskip
   \setmaxdepth}

\permanent\protected\def\depthlinebottom
  {\bottomraggednessmode\plusthree
   \settopskip
   \setmaxdepth}

\aliased\let\normalbottom\alignbottom % downward compatible

\permanent\protected\def\setbottomalignmode#1%
  {\bottomraggednessmode#1%
   \settopskip
   \setmaxdepth}

\def\spac_align_flush_page
  {\ifcase\c_spac_align_state_page
     % keep state
   \or
     \raggedbottom
   \or
     \alignbottom
   \or
     \baselinebottom
   \or
     \depthlinebottom
   \fi}

% Directions

\newconstant\c_spac_align_state_direction

\def\spac_align_flush_direction
  {\ifcase\c_spac_align_state_direction
    % keep state
   \or
     \lefttoright
   \or
     \righttoleft
   \fi}

% Trick

%D \starttyping
%D \framed[width=5.5cm,align={flushleft}]       {This is a test sentence to see if it aligns okay.}
%D \framed[width=5.5cm,align={flushright}]      {This is a test sentence to see if it aligns okay.}
%D \framed[width=5.5cm,align={flushleft,tight}] {This is a test sentence to see if it aligns okay.}
%D \framed[width=5.5cm,align={flushright,tight}]{This is a test sentence to see if it aligns okay.}
%D \framed[width=5.5cm,align={flushleft,broad}] {This is a test sentence to see if it aligns okay.}
%D \framed[width=5.5cm,align={flushright,broad}]{This is a test sentence to see if it aligns okay.}
%D \stoptyping

\newconstant\c_spac_align_state_tight

% Interesting is that the non cached version is also pretty efficient
% and as we cache we seldom call that one now so one can debate the
% speedup.

\newtoks\t_spac_align_collected
\newtoks\t_spac_align_applied
\newtoks\t_spac_align_presets

\aliased\let\raggedcommand    \relax
\aliased\let\updateraggedskips\relax

\lettonothing\m_spac_align_asked
%lettonothing\m_spac_align_named

\def\spac_align_add_to_cache
  {\enforced\let\raggedbox\relax % why
   % we inherit hyphenation and tolerance
   \expand\t_spac_align_presets
%    \lastlinefit\zerocount
   \ifcsname\??aligncommand\m_spac_align_named\endcsname
     \lastnamedcs
   \else
     \rawprocesscommacommand[\m_spac_align_asked]\spac_align_collect
   \fi
   \etoks\t_spac_align_collected
     {\raggedonelinerstate\conditionalfalse % bad
      \expand\t_spac_align_collected
      \expand\t_spac_align_applied}%
   \enforced\permanent\protected\edef\raggedcommand    {\expand\t_spac_align_collected}%
   \enforced\permanent\protected\edef\updateraggedskips{\spac_align_flush_horizontal}%
   \enforced\aliased\gletcsname\??alignmentnormalcache\m_spac_align_named\endcsname\raggedcommand
   \enforced\aliased\gletcsname\??alignmentraggedcache\m_spac_align_named\endcsname\updateraggedskips}

\appendtoks
  \spac_align_flush_horizontal
  \spac_align_flush_vertical
  \spac_align_flush_direction
  \spac_align_flush_page
  \spac_align_flush_parfill
\to \t_spac_align_applied

\appendtoks
   \t_spac_align_collected       \emptytoks
   \c_spac_align_state_broad     \zerocount
   \c_spac_align_state_horizontal\zerocount
   \c_spac_align_state_vertical  \zerocount
   \c_spac_align_state_spread    \zerocount
   \c_spac_align_state_direction \zerocount % what is default ?
   \c_spac_align_state_tight     \zerocount
   \c_spac_align_state_page      \zerocount
   \c_spac_align_state_par_fill  \zerocount
\to \t_spac_align_presets

\mutable\def\m_spac_align_named{\m_spac_align_asked}

\def\spac_align_collect#1%
  {\csname\??aligncommand#1\endcsname}

\permanent\protected\tolerant\def\definealign[#1]#*[#2]%
  {\pushmacro\raggedcommand
   \pushmacro\updateraggedskips
   \edef\m_spac_align_named{#1}%
   \edef\m_spac_align_asked{#2}%
   \spac_align_add_to_cache
   \popmacro\updateraggedskips
   \popmacro\raggedcommand}

% The local (key driven) setter:

\permanent\protected\def\spac_align_prepare#1% deferred
  {\edef\m_spac_align_asked{#1}%
   \enforced\aliased\expandafter\let\expandafter\raggedcommand\csname\??alignmentnormalcache\m_spac_align_asked\endcsname
   \ifrelax\raggedcommand
     \spac_align_add_to_cache
   \else
     \enforced\aliased\expandafter\let\expandafter\updateraggedskips\csname\??alignmentraggedcache\m_spac_align_asked\endcsname
   \fi}

\aliased\let\dosetraggedcommand\spac_align_prepare % sort of public

% The regular align setter:

\permanent\tolerant\protected\def\setupalign[#1]% immediate
  {\edef\m_spac_align_asked{#1}%
   \enforced\expandafter\let\expandafter\raggedcommand\csname\??alignmentnormalcache\m_spac_align_asked\endcsname
   \ifrelax\raggedcommand
     \spac_align_add_to_cache
   \else
     \enforced\aliased\expandafter\let\expandafter\updateraggedskips\csname\??alignmentraggedcache\m_spac_align_asked\endcsname
   \fi
   \raggedcommand}

\permanent\protected\def\usealignparameter#1% faster local variant
  {\edef\m_spac_align_asked{#1\c!align}%
   \ifempty\m_spac_align_asked\else
     \spac_align_use_indeed
   \fi}

\permanent\protected\def\dousealignparameter#1% faster local variant
  {\edef\m_spac_align_asked{#1}%
   \ifempty\m_spac_align_asked\else
     \spac_align_use_indeed
   \fi}

\def\spac_align_use_indeed
  {\enforced\aliased\expandafter\let\expandafter\raggedcommand\csname\??alignmentnormalcache\m_spac_align_asked\endcsname
   \ifrelax\raggedcommand
     \spac_align_add_to_cache
   \else
     \enforced\aliased\expandafter\let\expandafter\updateraggedskips\csname\??alignmentraggedcache\m_spac_align_asked\endcsname
   \fi
   \raggedcommand}

% experiment

\protected\def\spac_align_use_later#1%
  {\begingroup
   \edef\m_spac_align_asked{#1}%
   \enforced\aliased\expandafter\let\expandafter\raggedcommand\csname\??alignmentnormalcache\m_spac_align_asked\endcsname
   \ifrelax\raggedcommand
     \spac_align_add_to_cache
   \fi
   \endgroup}

\protected\def\spac_align_use_now#1%
  {\csname\??alignmentnormalcache#1\endcsname}

% Maybe we need something different in columns.

\permanent\protected\def\installalign#1#2% beware: commands must be unexpandable!
  {\ifcsname\??aligncommand#1\endcsname \else  % : so maybe we should use \etoksapp
     \defcsname\??aligncommand#1\endcsname{\toksapp\t_spac_align_collected{#2}}%
   \fi}

% The keywords:

\letcsname\??aligncommand\empty            \endcsname\empty
\defcsname\??aligncommand\v!broad          \endcsname{\c_spac_align_state_broad     \plusone  }
\defcsname\??aligncommand\v!wide           \endcsname{\c_spac_align_state_broad     \plustwo  }
\defcsname\??aligncommand\v!squeeze        \endcsname{\c_spac_align_state_broad     \plusthree}

\defcsname\??aligncommand\v!bottom         \endcsname{\c_spac_align_state_page      \plusone  }
\defcsname\??aligncommand\v!height         \endcsname{\c_spac_align_state_page      \plustwo  }
\defcsname\??aligncommand\v!depth          \endcsname{\c_spac_align_state_page      \plusfour }
\defcsname\??aligncommand\v!line           \endcsname{\c_spac_align_state_page      \plusthree
                                                      % this will become another keyword (undocumented anyway)
                                                      \toksapp\t_spac_align_collected{\raggedonelinerstate\conditionaltrue}}

\defcsname\??aligncommand\v!high           \endcsname{\c_spac_align_state_vertical  \plusthree}
\defcsname\??aligncommand\v!low            \endcsname{\c_spac_align_state_vertical  \plustwo  }
\defcsname\??aligncommand\v!lohi           \endcsname{\c_spac_align_state_vertical  \plusone  }

\defcsname\??aligncommand\v!spread         \endcsname{\c_spac_align_state_spread    \plusone  }

\defcsname\??aligncommand\v!flushright     \endcsname{\c_spac_align_state_horizontal\plusthree}
\defcsname\??aligncommand\v!flushleft      \endcsname{\c_spac_align_state_horizontal\plustwo  }
\defcsname\??aligncommand\v!middle         \endcsname{\c_spac_align_state_horizontal\plusone  }
\defcsname\??aligncommand\v!no             \endcsname{\c_spac_align_state_horizontal\plustwo  }
\defcsname\??aligncommand\v!yes            \endcsname{\c_spac_align_state_horizontal\zerocount}
\defcsname\??aligncommand\v!width          \endcsname{\c_spac_align_state_horizontal\zerocount}
\defcsname\??aligncommand\v!normal         \endcsname{\c_spac_align_state_horizontal\zerocount}
\defcsname\??aligncommand\v!reset          \endcsname{\c_spac_align_state_page      \zerocount
                                                      \c_spac_align_state_horizontal\zerocount}
\defcsname\??aligncommand\v!inner          \endcsname{\c_spac_align_state_horizontal\plusfour }
\defcsname\??aligncommand\v!outer          \endcsname{\c_spac_align_state_horizontal\plusfive }
\defcsname\??aligncommand\v!flushinner     \endcsname{\c_spac_align_state_horizontal\plusfour }
\defcsname\??aligncommand\v!flushouter     \endcsname{\c_spac_align_state_horizontal\plusfive }
\defcsname\??aligncommand\v!right          \endcsname{\c_spac_align_state_horizontal\plustwo  }
\defcsname\??aligncommand\v!left           \endcsname{\c_spac_align_state_horizontal\plusthree}
\defcsname\??aligncommand\v!center         \endcsname{\c_spac_align_state_horizontal\plusone
                                                      \c_spac_align_state_broad     \plustwo  }
\defcsname\??aligncommand\v!disable        \endcsname{\c_spac_align_state_horizontal\plussix  }
\defcsname\??aligncommand\v!last           \endcsname{\c_spac_align_state_horizontal\plusseven}
\defcsname\??aligncommand\v!end            \endcsname{\c_spac_align_state_horizontal\pluseight}
\defcsname\??aligncommand\v!paragraph      \endcsname{\c_spac_align_state_horizontal\plusnine}

\defcsname\??aligncommand\v!lefttoright    \endcsname{\c_spac_align_state_direction \plusone  }
\defcsname\??aligncommand\v!righttoleft    \endcsname{\c_spac_align_state_direction \plustwo  }
\defcsname\??aligncommand               l2r\endcsname{\c_spac_align_state_direction \plusone  }
\defcsname\??aligncommand               r2l\endcsname{\c_spac_align_state_direction \plustwo  }

\defcsname\??aligncommand\v!tight          \endcsname{\c_spac_align_state_tight     \plusone}

\defcsname\??aligncommand\v!slanted        \endcsname{\c_spac_align_state_horizontal\plusten
                                                      \c_spac_align_state_broad     \plustwo  }


\defcsname\??aligncommand\v!table          \endcsname{\c_spac_align_state_vertical  \plusthree
                                                      \c_spac_align_state_broad     \plusone
                                                      \c_spac_align_state_horizontal\plustwo  }

\defcsname\??aligncommand\v!lesshyphenation\endcsname{\toksapp\t_spac_align_collected{\lesshyphens}}
\defcsname\??aligncommand\v!morehyphenation\endcsname{\toksapp\t_spac_align_collected{\morehyphens}}

\defcsname\??aligncommand\v!hanging        \endcsname{\toksapp\t_spac_align_collected{\font_protruding_enable }}
\defcsname\??aligncommand\v!hangingboth    \endcsname{\toksapp\t_spac_align_collected{\font_protruding_enable_b}}
\defcsname\??aligncommand\v!nothanging     \endcsname{\toksapp\t_spac_align_collected{\font_protruding_disable}}
\defcsname\??aligncommand\v!hz             \endcsname{\toksapp\t_spac_align_collected{\font_expansion_enable  }}
\defcsname\??aligncommand\v!fullhz         \endcsname{\toksapp\t_spac_align_collected{\font_expansion_enable_k}}
\defcsname\??aligncommand\v!nohz           \endcsname{\toksapp\t_spac_align_collected{\font_expansion_disable }}
%defcsname\??aligncommand\v!spacing        \endcsname{\toksapp\t_spac_align_collected{\normalspacing\zerocount}} % not yet
%defcsname\??aligncommand\v!nospacing      \endcsname{\toksapp\t_spac_align_collected{\normalspacing\plusone}}   % not yet
\defcsname\??aligncommand\v!hyphenated     \endcsname{\toksapp\t_spac_align_collected{\dohyphens}}
\defcsname\??aligncommand\v!nothyphenated  \endcsname{\toksapp\t_spac_align_collected{\nohyphens}}
\defcsname\??aligncommand\v!collapsed      \endcsname{\toksapp\t_spac_align_collected{\dohyphencollapsing}}
\defcsname\??aligncommand\v!notcollapsed   \endcsname{\toksapp\t_spac_align_collected{\nohyphencollapsing}}
\defcsname\??aligncommand\v!explicit       \endcsname{\toksapp\t_spac_align_collected{\nohyphens\doexplicithyphens}}

\defcsname\??aligncommand\v!tolerant       \endcsname{\toksapp\t_spac_align_collected{\spac_align_set_tolerant}}
\defcsname\??aligncommand\v!verytolerant   \endcsname{\toksapp\t_spac_align_collected{\spac_align_set_very_tolerant}}
\defcsname\??aligncommand\v!stretch        \endcsname{\toksapp\t_spac_align_collected{\spac_align_set_stretch}}
\defcsname\??aligncommand\v!extremestretch \endcsname{\toksapp\t_spac_align_collected{\spac_align_set_extreme_stretch}}

\defcsname\??aligncommand          \v!final\endcsname{\c_spac_align_state_par_fill\plusone}
\defcsname\??aligncommand        1*\v!final\endcsname{\c_spac_align_state_par_fill\plusone}
\defcsname\??aligncommand        2*\v!final\endcsname{\c_spac_align_state_par_fill\plustwo}      % hardcoded multiplier
\defcsname\??aligncommand        3*\v!final\endcsname{\c_spac_align_state_par_fill\plusthree}
\defcsname\??aligncommand        4*\v!final\endcsname{\c_spac_align_state_par_fill\plusfour}

% a one shot (only usefull in e.g. framed, also needs tolerance and stretch)

\defcsname\??aligncommand          \v!more\endcsname{\toksapp\t_spac_align_collected{\looseness\plusone}}
\defcsname\??aligncommand        1*\v!more\endcsname{\toksapp\t_spac_align_collected{\looseness\plusone}}
\defcsname\??aligncommand        2*\v!more\endcsname{\toksapp\t_spac_align_collected{\looseness\plustwo}}

% for verbatim overflow

\defcsname\??aligncommand\v!hangleft      \endcsname{\c_spac_align_state_horizontal\pluseleven}
\defcsname\??aligncommand\v!hangright     \endcsname{\c_spac_align_state_horizontal\plustwelve}

\permanent\protected\def\spac_align_set_horizontal_hang_right
  {\spac_align_set_horizontal_very_left
   \parinitrightskip\s_zero_plus_one_fill
   \raggedhangstatus \plusone
   \relax}

\permanent\protected\def\spac_align_set_horizontal_hang_left
  {\spac_align_set_horizontal_very_right
   \parinitleftskip \s_zero_plus_one_fill
   \raggedhangstatus \plustwo
   \relax}

% idem but better: experimental !

\defcsname\??aligncommand\v!hangleft  range\endcsname{\c_spac_align_state_horizontal\plusthirteen}
\defcsname\??aligncommand\v!hangright range\endcsname{\c_spac_align_state_horizontal\plusfourteen}

\permanent\protected\def\spac_align_set_horizontal_hang_right_range % special purpose
  {\spac_align_set_horizontal_very_left
  %\rightskip        \plusone\rightskip\s!plus\spac_align_set_raggedness_left
   \rightskip        \plusone\rightskip\s!plus.5\hsize % if we change this then we need a *_right_range_tt variant
   \parinitrightskip \s_zero_plus_one_fill
   \parfillleftskip  \s_zero_plus_zero
   \raggedhangstatus \plusthree
   \relax}

\permanent\protected\def\spac_align_set_horizontal_hang_left_range % special purpose
  {\spac_align_set_horizontal_very_right
  %\leftskip        \plusone\leftskip \s!plus\spac_align_set_raggedness_left %
   \leftskip        \plusone\leftskip \s!plus.5\hsize % if we change this then we need a *_right_range_tt variant
   \parinitleftskip \s_zero_plus_one_fill
   \raggedhangstatus\plusfour
   \relax}

\newconditional\c_spac_align_hang_done

\permanent\protected\def\starthangrange
  {\c_spac_align_hang_done\conditionalfalse}

\permanent\protected\def\stophangrange
  {\c_spac_align_hang_done\conditionalfalse
   \removeunwantedspaces
  %\localbreakpar
   \par}

\permanent\protected\def\starthangrangestep
  {\ifconditional\c_spac_align_hang_done
     \removeunwantedspaces
   % \hfillneg
   % \strut
   % \parbreak
     \localbreakpar
   \fi
   \ifnum\raggedhangstatus=\plusthree
     \ifhmode
       \strut
       \penalty\plustenthousand
       \hskip-\leftskip
       \penalty\plustenthousand
     \else
       \spac_align_set_horizontal_hang_right_range
       \dontleavehmode
     \fi
   \orelse\ifnum\raggedhangstatus=\plusfour
     \ifhmode
       \strut
       \hfill
     \else
       \spac_align_set_horizontal_hang_left_range
       \dontleavehmode
     \fi
   \fi
  %\luaboundary 123 456
   \ignorespaces}

\permanent\protected\def\stophangrangestep
  {\par\c_spac_align_hang_done\conditionaltrue} % par is needed

\permanent\protected\def\emptyhangrangestep
  {\strut\localbreakpar}

% experiment

\defcsname\??aligncommand\v!flushforward \endcsname{\c_spac_align_state_horizontal\ifconditional\inlinelefttoright\plustwo\else\plusthree\fi}
\defcsname\??aligncommand\v!flushbackward\endcsname{\c_spac_align_state_horizontal\ifconditional\inlinelefttoright\plusthree\else\plustwo\fi}

% experiment

\defcsname\??aligncommand\v!always\endcsname{\toksapp\t_spac_align_collected{\bitwiseflip\hyphenationmode\forcecheckhyphenationcode}}

% experiment

\defcsname\??aligncommand\v!profile\endcsname{\toksapp\t_spac_align_collected{\setmainlineprofile}}

% lastlinefit

\newconstant\c_spac_align_state_fit

\defcsname\??aligncommand\v!fit\endcsname
  {\c_spac_align_state_fit\plusone}

\appendtoks
   \c_spac_align_state_fit\zerocount
\to \t_spac_align_presets

\appendtoks
   \lastlinefit\ifcase\c_spac_align_state_fit\zerocount\else\plusthousand\fi
\to \t_spac_align_applied

\permanent\immutable\integerdef\defaultdoublehyphendemerits\plustenthousand
\permanent\immutable\integerdef\defaultfinalhyphendemerits \plusfivethousand
\permanent\immutable\integerdef\defaultadjdemerits         \plustenthousand
\permanent\immutable\integerdef\defaultorphanpenalty       \plusfifty
\permanent\immutable\integerdef\defaulttoddlerpenalty      \plusfifty
\permanent\immutable\integerdef\defaultlefttwindemerits    \plusseventyfivehundred
\permanent\immutable\integerdef\defaultrighttwindemerits   \plusseventyfivehundred

\permanent\immutable\integerdef\granularadjdemerits        \plusfivethousand % see accumulation in granular

\frozen\doublehyphendemerits \defaultdoublehyphendemerits
\frozen\finalhyphendemerits  \defaultfinalhyphendemerits
\frozen\adjdemerits          \defaultadjdemerits

\frozen\orphanpenalty        \zerocount
\frozen\toddlerpenalty       \zerocount
\frozen\lefttwindemerits     \zerocount
\frozen\righttwindemerits    \zerocount

\permanent\protected\def\noorphans   {\orphanpenalty    \defaultorphanpenalty}
\permanent\protected\def\notoddlers  {\toddlerpenalty   \defaulttoddlerpenalty}
\permanent\protected\def\notwins     {\lefttwindemerits \defaultlefttwindemerits
                                      \righttwindemerits\defaultrighttwindemerits}

\permanent\protected\def\keeporphans {\orphanpenalty    \zerocount}
\permanent\protected\def\keeptoddlers{\toddlerpenalty   \zerocount}
\permanent\protected\def\keeptwins   {\lefttwindemerits \zerocount
                                      \righttwindemerits\zerocount}

\defcsname\??aligncommand\s!noorphans   \endcsname{\toksapp\t_spac_align_collected{\noorphans}}
\defcsname\??aligncommand\s!keeporphans \endcsname{\toksapp\t_spac_align_collected{\keeporphans}}
\defcsname\??aligncommand\s!notwins     \endcsname{\toksapp\t_spac_align_collected{\notwins}}
\defcsname\??aligncommand\s!keeptwins   \endcsname{\toksapp\t_spac_align_collected{\keeptwins}}
\defcsname\??aligncommand\s!notoddlers  \endcsname{\toksapp\t_spac_align_collected{\notoddlers}}
\defcsname\??aligncommand\s!keeptoddlers\endcsname{\toksapp\t_spac_align_collected{\keeptoddlers}}

\permanent\protected\def\nosnapping{\linesnapping\zerocount}

\defcsname\??aligncommand\s!nosnapping  \endcsname{\toksapp\t_spac_align_collected{\nosnapping}}
\defcsname\??aligncommand\v!nosnapping  \endcsname{\toksapp\t_spac_align_collected{\nosnapping}}

\newconstant \matchallfitnessclasses \setconstant \matchallfitnessclasses "FF

\appendtoks
    \fitnessclasses \zerocount
\to \t_spac_align_presets

\permanent\protected\def\installaligncommand#1#2%
  {\defcsname\??aligncommand#1\endcsname{\appendtoks#2\to\t_spac_align_applied}}

\aliased\let\stopinstallaligncommand\relax

\permanent\protected\def\startinstallaligncommand[#1]#S#/\stopinstallaligncommand
  {\defcsname\??aligncommand#1\endcsname{\appendtoks#2\to\t_spac_align_applied}}

\permanent \specificationdef \granularfitnessclasses \fitnessclasses \plusnine
    \plusninetynine
    \plusfourtytwo  % .75
    \plustwelve     % .50
    \plustwo        % .25
    \zerocount      % .00
    \plustwo        % .25
    \plustwelve     % .50
    \plusfourtytwo  % .75
    \plusninetynine

% \permanent \specificationdef \defaultadjacentdemerits \adjacentdemerits \minusone \plustenthousand

\permanent \specificationdef \granularadjacentdemerits \adjacentdemerits \pluseight
    \zerocount
    \plustwentyfivehundred
    \plusfivethousand
    \plusseventyfivehundred
    \plustenthousand
    \numexpr\plustenthousand+\plustwentyfivehundred \relax
    \numexpr\plustenthousand+\plusfivethousand      \relax
   %\numexpr\plustenthousand+\plusseventyfivehundred\relax
    \numexpr\plustenthousand+\plustenthousand       \relax

\installaligncommand
  {\v!granular}
  {\granularfitnessclasses
   \granularadjacentdemerits}

% end of definitions

\definehspace [\v!final] [\emspaceamount]

\def\spac_align_flush_parfill
  {\ifcase\c_spac_align_state_par_fill\else
     \spac_align_flush_parfill_indeed{\the\c_spac_align_state_par_fill}%
   \fi}

\protected\def\spac_align_flush_parfill_indeed#1%
  {\parfillrightskip
     #1\directhspaceamount\v!final
   % plus \dimexpr\availablehsize-#1\directhspaceamount\v!final\relax
     plus 1fill
   \relax}

%D For Wolfgang:

\newtoks \t_spac_every_swap_align

\appendtoks
    \defcsname\??aligncommand\v!right\endcsname{\c_spac_align_state_horizontal\plusthree}%
    \defcsname\??aligncommand\v!left \endcsname{\c_spac_align_state_horizontal\plustwo  }%
\to \t_spac_every_swap_align

\permanent\protected\def\enablereversealignment
  {\expand\t_spac_every_swap_align
   \t_spac_every_swap_align\emptytoks}

% Visible commands:

\aliased\let\notragged           \spac_align_set_horizontal_none
\aliased\let\raggedleft          \spac_align_set_horizontal_left
\aliased\let\raggedcenter        \spac_align_set_horizontal_center
\aliased\let\raggedright         \spac_align_set_horizontal_right
\aliased\let\veryraggedleft      \spac_align_set_horizontal_very_left
\aliased\let\veryraggedcenter    \spac_align_set_horizontal_very_center
\aliased\let\veryraggedright     \spac_align_set_horizontal_very_right
\aliased\let\raggedwidecenter    \spac_align_set_horizontal_wide_center
\aliased\let\centeredlastline    \spac_align_set_horizontal_centered_last_line
\aliased\let\flushedrightlastline\spac_align_set_horizontal_flushedright_last_line
\aliased\let\ttraggedright       \spac_align_set_horizontal_right_tt            % a plain command
\aliased\let\forgetragged        \spac_align_set_horizontal_none
\aliased\let\raggedslanted       \spac_align_set_horizontal_slanted

\aliased\let\riggedleft          \spac_align_set_horizontal_none_left
\aliased\let\riggedcenter        \spac_align_set_horizontal_none_center
\aliased\let\riggedright         \spac_align_set_horizontal_none_right

\appendtoks
    \spac_align_set_horizontal_none
\to \everyforgetall

% Box commands.

\permanent\protected\def\ibox
  {\vbox\bgroup
     \forgetall
     \enforced\let\\\endgraf
     \ifdoublesided\signalinnerrealign\fi
     \doifelserightpage\spac_align_set_horizontal_right\spac_align_set_horizontal_left
     \let\next}

\permanent\protected\def\obox
  {\vbox\bgroup
     \forgetall
     \enforced\let\\\endgraf
     \ifdoublesided\signalouterrealign\fi
     \doifelserightpage\spac_align_set_horizontal_left\spac_align_set_horizontal_right
     \let\next}

\let\raggedbox\relax

\permanent\protected\def\dosetraggedvbox#1% can be more keys .. how about caching here (but seldom used)
  {\enforced\let\raggedbox\vbox
   \processcommacommand[#1]\spac_align_set_ragged_vbox}

\permanent\protected\def\dosetraggedhbox#1% can be more keys .. how about caching here (but seldom used)
  {\enforced\let\raggedbox\hbox
   \processcommacommand[#1]\spac_align_set_ragged_hbox}

\def\spac_align_set_ragged_vbox#1%
  {\ifcsname\??alignvertical#1\endcsname
     \lastnamedcs
     \quitcommalist
   \fi}

\def\spac_align_set_ragged_hbox#1%
  {\ifcsname\??alignhorizontal#1\endcsname
     \lastnamedcs
     \quitcommalist
   \fi}

\permanent\protected\def\spac_align_vertical_left      {\lbox}
\permanent\protected\def\spac_align_vertical_right     {\rbox}
\permanent\protected\def\spac_align_vertical_middle    {\cbox}
\permanent\protected\def\spac_align_vertical_inner     {\ibox}
\permanent\protected\def\spac_align_vertical_outer     {\obox}
\permanent\protected\def\spac_align_vertical_flushleft {\rbox}
\permanent\protected\def\spac_align_vertical_flushright{\lbox}
\permanent\protected\def\spac_align_vertical_center    {\cbox}
\permanent\protected\def\spac_align_vertical_no        {\vbox\bgroup\spac_align_set_horizontal_right\let\next=}

\permanent\protected\def\spac_align_horizontal_left      {\doalignedline\v!left}
\permanent\protected\def\spac_align_horizontal_right     {\doalignedline\v!right}
\permanent\protected\def\spac_align_horizontal_middle    {\doalignedline\v!middle}
\permanent\protected\def\spac_align_horizontal_inner     {\doalignedline\v!inner}
\permanent\protected\def\spac_align_horizontal_outer     {\doalignedline\v!outer}
\permanent\protected\def\spac_align_horizontal_flushleft {\doalignedline\v!right}
\permanent\protected\def\spac_align_horizontal_flushright{\doalignedline\v!left}
\permanent\protected\def\spac_align_horizontal_center    {\doalignedline\v!middle}

\defcsname\??alignvertical  \v!left      \endcsname{\enforced\let\raggedbox\spac_align_vertical_left}
\defcsname\??alignvertical  \v!right     \endcsname{\enforced\let\raggedbox\spac_align_vertical_right}
\defcsname\??alignvertical  \v!middle    \endcsname{\enforced\let\raggedbox\spac_align_vertical_middle}
\defcsname\??alignvertical  \v!inner     \endcsname{\enforced\let\raggedbox\spac_align_vertical_inner}
\defcsname\??alignvertical  \v!outer     \endcsname{\enforced\let\raggedbox\spac_align_vertical_outer}
\defcsname\??alignvertical  \v!flushleft \endcsname{\enforced\let\raggedbox\spac_align_vertical_flushleft }
\defcsname\??alignvertical  \v!flushright\endcsname{\enforced\let\raggedbox\spac_align_vertical_flushright}
\defcsname\??alignvertical  \v!center    \endcsname{\enforced\let\raggedbox\spac_align_vertical_center}
\defcsname\??alignvertical  \v!no        \endcsname{\enforced\let\raggedbox\spac_align_vertical_no}

\defcsname\??alignhorizontal\v!left      \endcsname{\enforced\let\raggedbox\spac_align_horizontal_left}
\defcsname\??alignhorizontal\v!right     \endcsname{\enforced\let\raggedbox\spac_align_horizontal_right}
\defcsname\??alignhorizontal\v!middle    \endcsname{\enforced\let\raggedbox\spac_align_horizontal_middle}
\defcsname\??alignhorizontal\v!inner     \endcsname{\enforced\let\raggedbox\spac_align_horizontal_inner}
\defcsname\??alignhorizontal\v!outer     \endcsname{\enforced\let\raggedbox\spac_align_horizontal_outer}
\defcsname\??alignhorizontal\v!flushleft \endcsname{\enforced\let\raggedbox\spac_align_horizontal_flushleft}
\defcsname\??alignhorizontal\v!flushright\endcsname{\enforced\let\raggedbox\spac_align_horizontal_flushright}
\defcsname\??alignhorizontal\v!center    \endcsname{\enforced\let\raggedbox\spac_align_horizontal_center}

% older (context) names:

\aliased\let\spaceamount  \interwordspace
\aliased\let\emspaceamount\emwidth

\fetchmodulecommand \showpardata \f!spac_run

% Structure:

\protected\def\startalignment
  {\par
   \begingroup
   \setupalign}

\protected\def\stopalignment
  {\par
   \endgroup}

\setnewconstant\alignstrutmode\plusone

% see later for the real definition, which in the simple case is:

\newtoks \everyleftofalignedline
\newtoks \everyrightofalignedline

\permanent\protected\def\shiftalignedline#1#2#3#4% left, right, inner, outer
  {\rightorleftpageaction
     {\everyleftofalignedline {\hskip{#1+#3}}%
      \everyrightofalignedline{\hskip{#2+#4}}}
     {\everyleftofalignedline {\hskip{#1+#4}}%
      \everyrightofalignedline{\hskip{#2+#3}}}}

\permanent\protected\def\doalignline#1#2% \\ == newline
  {\noindentation  % was \noindent
   \dontleavehmode % added in marrakesch at TUG 2006\begingroup
   \begingroup
   \setlocalhsize % new
   \enforced\permanent\protected\def\\{\egroup\par\doalignline{#1}{#2}\bgroup}%
   \dowithnextbox
     {\hbox to \localhsize
        {\ifcase\alignstrutmode\or\strut\fi
         \expand\everyleftofalignedline
         #1\unhbox\nextbox#2\relax
         \expand\everyrightofalignedline}%
      \endgroup}
     \hbox}

% plain commands

\ifdefined\line       \else \permanent\protected\def\line        {\hbox to\hsize}    \fi
\ifdefined\leftline   \else \permanent\protected\def\leftline  #1{\line{#1\hss}}     \fi
\ifdefined\rightline  \else \permanent\protected\def\rightline #1{\line{\hss#1}}     \fi
\ifdefined\centerline \else \permanent\protected\def\centerline#1{\line{\hss#1\hss}} \fi

% direct commands

\installcorenamespace{alignwrapper}

\protected\defcsname\??alignwrapper\v!left  \endcsname{\doalignline\relax \hss  }
\protected\defcsname\??alignwrapper\v!middle\endcsname{\doalignline\hss   \hss  }
\protected\defcsname\??alignwrapper\v!right \endcsname{\doalignline\hss   \relax}
\protected\defcsname\??alignwrapper\v!max   \endcsname{\doalignline\relax \relax}

\def\spac_align_wrapper_middle{\doalignline\hss\hss}

\def\spac_align_wrapper_handle#1%
  {\ifcsname\??alignwrapper#1\endcsname\expandafter\lastnamedcs\else\expandafter\spac_align_wrapper_middle\fi}

\permanent\tolerant\protected\def\startlinealignment[#1]%
  {\spac_align_wrapper_handle{#1}%
   \bgroup\ignorespaces}

\protected\def\spac_align_wrapper_stop
  {\removeunwantedspaces\egroup}

\permanent\let\stoplinealignment\spac_align_wrapper_stop

\permanent\protected\def\startleftaligned  {\startlinealignment[\v!left  ]}  \permanent\let\stopleftaligned  \spac_align_wrapper_stop
\permanent\protected\def\startmiddlealigned{\startlinealignment[\v!middle]}  \permanent\let\stopmiddlealigned\spac_align_wrapper_stop
\permanent\protected\def\startrightaligned {\startlinealignment[\v!right ]}  \permanent\let\stoprightaligned \spac_align_wrapper_stop
\permanent\protected\def\startmaxaligned   {\startlinealignment[\v!max   ]}  \permanent\let\stopmaxaligned   \spac_align_wrapper_stop

\aliased\let\startmidaligned   \startmiddlealigned  \aliased\let\stopmidaligned   \stopmiddlealigned
\aliased\let\startcenteraligned\startmiddlealigned  \aliased\let\stopcenteraligned\stopmiddlealigned

\permanent\protected\def\leftaligned  {\spac_align_wrapper_handle\v!left  }
\permanent\protected\def\middlealigned{\spac_align_wrapper_handle\v!middle}
\permanent\protected\def\rightaligned {\spac_align_wrapper_handle\v!right }
\permanent\protected\def\maxaligned   {\spac_align_wrapper_handle\v!max   }

\aliased\let\midaligned   \middlealigned
\aliased\let\centeraligned\middlealigned

\installcorenamespace{alignline}

% Here left and flushleft as well as right and flushright are the same, as it's
% not used with % the aligh key.

\letcsname\??alignline\v!left      \endcsname\leftaligned
\letcsname\??alignline\v!right     \endcsname\rightaligned
\letcsname\??alignline\v!middle    \endcsname\midaligned
\letcsname\??alignline\v!flushleft \endcsname\leftaligned  % beware, makes no sense in locations / we will have a special locations handler
\letcsname\??alignline\v!flushright\endcsname\rightaligned % beware, makes no sense in locations / we will have a special locations handler
\letcsname\??alignline\v!center    \endcsname\midaligned
\letcsname\??alignline\v!max       \endcsname\maxaligned

%D Experimental (will be redone when floats are redone as it's real messy
%D now). It can also be made faster (if needed).

\permanent\protected\def\doxalignline#1#2#3#4#5#6%
  {\noindentation  % was \noindent
   \dontleavehmode % added in marrakesch at TUG 2006\begingroup
   \begingroup
   \setlocalhsize
   \enforced\permanent\protected\def\\{\egroup\par\doxalignline#1#2#3#4#5#6\bgroup}% inefficient
   \dowithnextbox
     {\hbox to \localhsize
        {#1\hskip\ifdone#2\else#3\fi#4%
         \hbox to \localhsize
           {\expand\everyleftofalignedline
            \ifcase\alignstrutmode\or\strut\fi
            \ifdone#5\unhbox\nextbox#6\else#6\unhbox\nextbox#5\fi
            \expand\everyrightofalignedline}%
         \hss}%
        \endgroup}
     \hbox}

\permanent\protected\def\doxcheckline % used for floats so multipass anyway
  {\signalrightpage\doifelserightpage\donetrue\donefalse}

\defcsname\??alignline\v!inner      \endcsname{\doxalignline\doxcheckline++\zeropoint       \relax\hss  }
\defcsname\??alignline\v!outer      \endcsname{\doxalignline\doxcheckline++\zeropoint       \hss  \relax}
\defcsname\??alignline\v!innermargin\endcsname{\doxalignline\doxcheckline-+\innermargintotal\relax\hss  }
\defcsname\??alignline\v!outermargin\endcsname{\doxalignline\doxcheckline+-\outermargintotal\hss  \relax}
\defcsname\??alignline\v!inneredge  \endcsname{\doxalignline\doxcheckline-+\inneredgetotal  \relax\hss  }
\defcsname\??alignline\v!outeredge  \endcsname{\doxalignline\doxcheckline+-\outeredgetotal  \hss  \relax}
\defcsname\??alignline\v!backspace  \endcsname{\doxalignline\doxcheckline-+\backspace       \relax\hss  }
\defcsname\??alignline\v!cutspace   \endcsname{\doxalignline\doxcheckline+-\cutspace        \hss  \relax}

\defcsname\??alignline\v!leftmargin \endcsname{\doxalignline\donefalse   --\leftmargintotal \hss  \relax}
\defcsname\??alignline\v!rightmargin\endcsname{\doxalignline\donefalse   ++\rightmargintotal\relax\hss  }
\defcsname\??alignline\v!leftedge   \endcsname{\doxalignline\donefalse   --\leftedgetotal   \hss  \relax}
\defcsname\??alignline\v!rightedge  \endcsname{\doxalignline\donefalse   ++\rightedgetotal  \relax\hss  }

\permanent\protected\def\doalignedline#1{\begincsname\??alignline#1\endcsname}

\permanent\protected\def\alignedline#1#2% setting default
  {\ifcsname\??alignline#1\endcsname
     \expandafter\lastnamedcs
   \else
     \csname\??alignline#2\expandafter\endcsname
   \fi}

% beware: \wordright{whatever\kern-\rightskip} should work!
% so, no funny boxing here

%D We need to pick up a box (downward compatible in case \type {\bgroup} is used
%D (test suite index example).

\permanent\tolerant\protected\def\wordright[#1]%
  {\dowithnextbox
     {\expanded{\spac_word_right_indeed{#1}{\hpack{\thebox\nextbox}}}}
     \hbox}

\protected\def\spac_word_right_indeed#1#2%
  {\registerparwrapper
     {\v!word:\v!right}
     {\begingroup
      \frozen\parfillrightskip\zeroskip  % frozen ?
      \endgroup}
     {\doifelseparwrapper{\v!word:\v!right}{\unregisterparwrapper{\v!word:\v!right}}\donothing
      \removeunwantedspaces
      \ifcstok{#1}\v!right
        \kern-\rightskip
      \orelse\ifempty{#1}%
        % no kern
      \else
        \kern-#1%
      \fi
      \hfill
      \strut
      \kern\emwidth\strut\kern-\emwidth
      \nobreak
      \hfilll
      \quad
      #2}}

% \dorecurse{5}{something} \wordright{--someone} \endgraf
% \dorecurse{6}{something} \wordright{--someone} \endgraf
% \dorecurse{7}{something} \wordright{--someone} \endgraf
%
% \dorecurse{5}{something} \wordright{--someone else entirely} \endgraf
% \dorecurse{6}{something} \wordright{--someone else entirely} \endgraf
% \dorecurse{7}{something} \wordright{--someone else entirely} \endgraf
%
% \wordright[\rightskip]{whatever}

% Trick posted by WS on mailing list, generalized a bit. The bottom text only shows
% op when there is one line space available. We could add some extra space if needed.

% v\protected\def\bottomword
%   {\par
%    \dowithnextbox
%      {\leaders\box\nextbox\vfil\page}
%      \vbox to \lineheight}
%
% \permanent\protected\def\bottomword
%   {\par
%    \groupedcommand
%      {\leaders
%       \vbox to \lineheight\bgroup}
%      {\egroup
%       \vfil
%       \page}}

% \simplealignedbox{2cm}{right}{x}

\installcorenamespace{alignsimple}
\installcorenamespace{alignsimplereverse}

% todo: also handle \bgroup ... \egroup

\protected\def\spac_align_simple_left  #1{{#1\hss}}
\protected\def\spac_align_simple_right #1{{\hss#1}}
\protected\def\spac_align_simple_middle#1{{\hss#1\hss}}

\letcsname\??alignsimple       \v!right     \endcsname\spac_align_simple_left
\letcsname\??alignsimple       \v!outer     \endcsname\spac_align_simple_left   % not managed! see linenumbers
\letcsname\??alignsimple       \v!flushleft \endcsname\spac_align_simple_left
\letcsname\??alignsimple       \v!left      \endcsname\spac_align_simple_right
\letcsname\??alignsimple       \v!inner     \endcsname\spac_align_simple_right  % not managed! see linenumbers
\letcsname\??alignsimple       \v!flushright\endcsname\spac_align_simple_right
\letcsname\??alignsimple       \v!middle    \endcsname\spac_align_simple_middle

\letcsname\??alignsimplereverse\v!right     \endcsname\spac_align_simple_right
\letcsname\??alignsimplereverse\v!outer     \endcsname\spac_align_simple_right % not managed! see linenumbers
\letcsname\??alignsimplereverse\v!flushleft \endcsname\spac_align_simple_right
\letcsname\??alignsimplereverse\v!left      \endcsname\spac_align_simple_left
\letcsname\??alignsimplereverse\v!inner     \endcsname\spac_align_simple_left  % not managed! see linenumbers
\letcsname\??alignsimplereverse\v!flushright\endcsname\spac_align_simple_left
\letcsname\??alignsimplereverse\v!middle    \endcsname\spac_align_simple_middle

\protected\def\spac_align_simple#1%
  {\begincsname\??alignsimple#1\endcsname}

\permanent\protected\def\simplealignedbox#1#2%
  {\hbox \ifdim#1>\zeropoint to #1
     \ifcsname\??alignsimple#2\endcsname
       \doubleexpandafter\lastnamedcs
     \else
       \doubleexpandafter\spac_align_simple_left
     \fi
   \fi}

\permanent\protected\def\simplealignedspreadbox#1#2%
  {\hbox \ifdim#1>\zeropoint spread #1
     \ifcsname\??alignsimple#2\endcsname
       \doubleexpandafter\lastnamedcs
     \else
       \doubleexpandafter\spac_align_simple_left
     \fi
   \fi}

\permanent\protected\def\simplealignedboxplus#1#2#3%
  {\hbox #3 \ifdim#1>\zeropoint to #1
     \ifcsname\??alignsimple#2\endcsname
       \doubleexpandafter\lastnamedcs
     \else
       \doubleexpandafter\spac_align_simple_left
     \fi
   \fi}

\newconditional\alignsimplelefttoright \alignsimplelefttoright\conditionaltrue

\permanent\protected\def\simplereversealignedbox#1#2%
  {\hbox \ifdim#1>\zeropoint to #1
     \ifcsname\??alignsimplereverse#2\endcsname
       \doubleexpandafter\lastnamedcs
     \else
       \doubleexpandafter\spac_align_simple_left
     \fi
   \fi}

\permanent\protected\def\simplereversealignedboxplus#1#2#3%
  {\hbox #3 \ifdim#1>\zeropoint to #1
     \ifcsname\??alignsimplereverse#2\endcsname
       \doubleexpandafter\lastnamedcs
     \else
       \doubleexpandafter\spac_align_simple_left
     \fi
   \fi}

% Some obsolete (old) helpers:

\permanent\tolerant\protected\def\definehbox[#1]#*[#2]%
  {\ifarguments\else\protected\frozen\instance\defcsname hbox#1\endcsname##1{\hbox to #2{\begstrut##1\endstrut\hss}}\fi}

%D Some direction related helpers:

\installcorenamespace {reverse}

\defcsname\??reverse\v!normal \endcsname{\ifconditional\inlinelefttoright\else\s!reverse\fi}
\defcsname\??reverse\v!reverse\endcsname{\ifconditional\inlinelefttoright     \s!reverse\fi}

\permanent\def\usedirectionparameterreverse#1{\begincsname\??reverse#1\c!direction\endcsname}

%D Now official:

\permanent\protected\def\spaceorpar{\endgraf\ifhmode\space\fi}

%D Kind of documenting:
%D
%D \starttyping
%D \disabletrackers[builders.hpack.quality] % enabled by default
%D \enabletrackers[builders.hpack.collect]
%D \enabletrackers[builders.hpack.overflow]
%D
%D \starttext
%D     {\hsize 4cm \input tufte \par} \page
%D     {\hsize 8cm \input tufte \par} \page
%D \stoptext
%D \stoptyping

%D Bonus (for testing only):

\permanent\protected\def\showraggedrules#1% 1000 == 100 percent
  {\atrightmargin
     {\kern-\linewidth
      \darkblue
      \virtualvrule height 1sh depth 4lh width 2\linewidth \relax
      \kern{-(\textwidth/\plusthousand)*#1-\linewidth}%
      \darkred
      \virtualvrule height 1sh depth 4lh width 2\linewidth \relax}}

\protect \endinput
