stable 2010-05-24 13:10

1 files changed, 498 insertions, 0 deletions

diff --git a/tex/context/base/page-lin.mkiv b/tex/context/base/page-lin.mkiv
new file mode 100644
index 000000000..51f027639
--- /dev/null
+++ b/tex/context/base/page-lin.mkiv
@@ -0,0 +1,498 @@
+%D \module
+%D   [       file=page-lin,
+%D        version=2007.11.29,
+%D          title=\CONTEXT\ Core Macros,
+%D       subtitle=Line Numbering,
+%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.
+
+% generic or not ... maybe not bother too much and simplify to mkiv only
+
+\writestatus{loading}{ConTeXt Core Macros / Line Numbering}
+
+\unprotect
+
+% todo: save settings
+
+% low level interface
+
+\registerctxluafile{page-lin}{1.001}
+
+\definesystemattribute[line-number]    \chardef\linenumberattribute    \dogetattributeid{line-number}
+\definesystemattribute[line-reference] \chardef\linereferenceattribute \dogetattributeid{line-reference}
+
+\appendtoksonce \attribute\linenumberattribute \attributeunsetvalue \to \everyforgetall
+\appendtoksonce \attribute\displaymathattribute\plusone             \to \everybeforedisplayformula
+
+\newcount\linenumber
+\newbox  \linenumberscratchbox
+\newcount\linenumberchunk
+\newcount\linerefcounter
+
+\newconditional\tracelinenumbering
+
+\def\mkprocesstextlinenumbers#1%
+  {\setbox\linenumberscratchbox\vbox{\forgetall\offinterlineskip\ctxlua{nodes.lines.boxed.stage_one(\number#1)}}%
+   \ctxlua{nodes.lines.boxed.stage_two(\number#1,\number\linenumberscratchbox)}}% can move to lua code
+
+% id nr shift width leftskip dir
+
+% \def\mkskiplinenumber #1#2#3#4#6#5{}
+% \def\mkleftlinenumber #1#2#3#4#5#6{\hbox{\llap{#2\quad\hskip#3\scaledpoint}}}
+% \def\mkrightlinenumber#1#2#3#4#5#6{\hbox{\rlap{\hskip#4\scaledpoint\hskip#3\scaledpoint\quad#2}}}
+
+\let\makenumber\gobblesixarguments
+
+\newconditional\boxcontentneedsprocessing
+
+\def\mkdoprocesspagecontents  #1{\mkaddtextlinenumbers{#1}\plusone      \plusone}
+\def\mkdoprocessboxcontents   #1{\mkaddtextlinenumbers{#1}\plusone      \plusone}
+\def\mkdoprocesscolumncontents#1{\mkaddtextlinenumbers{#1}\currentcolumn\nofcolumns}
+
+\def\mklinenumberparameters
+  {continue = "\linenumberparameter\c!continue",
+   start    = \linenumberparameter\c!start,
+   step     = \linenumberparameter\c!step,
+   method   = "\linenumberparameter\c!method",
+   tag      = "\currentlinenumbering"}
+
+\def\mklinenumberupdateparameters
+  {continue = "\linenumberparameter\c!continue"}
+
+\def\mkdefinetextlinenumbering
+  {\setxvalue{ln:c:\currentlinenumbering}{\number\ctxlua{tex.sprint(nodes.lines.boxed.register({\mklinenumberparameters}))}}}
+
+\def\mkupdatetextlinenumbering
+  {\ctxlua{nodes.lines.boxed.setup(\getvalue{ln:c:\currentlinenumbering},{\mklinenumberupdateparameters})}}
+
+\def\mkstarttextlinenumbering#1#2% always when assignment
+  {\globallet\mkprocesspagecontents  \mkdoprocesspagecontents
+   \globallet\mkprocesscolumncontents\mkdoprocesscolumncontents
+   \global\settrue\boxcontentneedsprocessing % see core-rul.mkiv
+   \edef\currentlinenumbering{#1}%
+   \ifcase#2\relax
+     \mkupdatetextlinenumbering % continue
+   \or
+     \mkdefinetextlinenumbering % only when assignment
+   \fi
+   \attribute\linenumberattribute\getvalue{ln:c:\currentlinenumbering}\relax}
+
+\def\mksetuptextlinenumbering
+  {\ifcsname ln:c:\currentlinenumbering\endcsname
+     \ctxlua{nodes.lines.boxed.setup(\getvalue{ln:c:\currentlinenumbering},{\mklinenumberparameters})}%
+   \fi}
+
+\def\mkstoptextlinenumbering
+  {\attribute\linenumberattribute\attributeunsetvalue}
+
+% we could make this a bit more efficient by putting the end reference
+% in the same table as the start one but why make things complex ...
+
+\let\dofinishlinereference\dofinishfullreference
+
+\def\mksomelinereference#1#2#3%
+  {\dontleavehmode\begingroup
+   \global\advance\linerefcounter\plusone
+   \attribute\linereferenceattribute\linerefcounter
+   #3%
+   % for the moment we use a simple system i.e. no prefixes etc .. todo: store as number
+   \expanded{\dodosetreference{line}{#2}{conversion=\linenumberparameter\c!conversion}{\the\linerefcounter}}% kind labels userdata text
+   \endgroup}
+
+\def\mkstartlinereference#1{\mksomelinereference{#1}{lr:b:#1}{}\ignorespaces}
+\def\mkstoplinereference #1{\removeunwantedspaces\mksomelinereference{#1}{lr:e:#1}{}}
+
+\def\mklinestartreference#1[#2]{\in{#1}[lr:b:#2]} % not interfaced
+\def\mklinestopreference #1[#2]{\in{#1}[lr:e:#2]} % not interfaced
+
+% high level interface
+
+\newif\ifnumberinglines
+\newif\iftypesettinglines
+
+\let\currentlinenumbering\empty
+
+\chardef\linenumbermode      = 1 % 0=continue, 1=restart
+\chardef\linenumberlocation  = 1 % 0=middle, 1=left, 2=right, 3=inner, 4=outer, 5=text, 6=begin, 7=end
+\chardef\linenumberalignment = 5 % 0=middle, 1=left, 2=right, 5=auto
+
+\newevery \beforeeverylinenumbering \relax
+\newevery \aftereverylinenumbering  \relax
+\newevery \everylinenumber          \relax
+
+\newdimen\linenumberwidth
+\newdimen\linenumberdistance
+
+\unexpanded\def\definelinenumbering
+  {\dosingleempty\dodefinelinenumbering}
+
+\def\dodefinelinenumbering[#1]%
+  {\edef\currentlinenumbering{#1}%
+   \mkdefinetextlinenumbering}
+
+\unexpanded\def\setuplinenumbering
+  {\dodoubleempty\dosetuplinenumbering}
+
+\def\dosetuplinenumbering[#1][#2]%
+  {\ifsecondargument
+     \def\currentlinenumbering{#1}%
+     \getparameters[\??rn#1][#2]%
+   \else
+     \let\currentlinenumbering\empty
+     \getparameters[\??rn][#1]%
+   \fi
+   \mksetuptextlinenumbering}
+
+\def\linenumberparameter#1%
+  {\csname\??rn\ifcsname\??rn\currentlinenumbering#1\endcsname\currentlinenumbering\fi#1\endcsname}
+
+\def\linenumberattributes
+  {\doattributes{\??rn\ifcsname\??rn\currentlinenumbering\c!style\endcsname\currentlinenumbering\fi}}
+
+\setuplinenumbering
+  [\c!conversion=\v!numbers,
+   \c!start=1,
+   \c!step=1,
+   \c!method=\v!first,
+   \c!continue=\v!no,
+   \c!location=\v!left,
+   \c!style=,
+   \c!color=,
+   \c!width=2em,
+   \c!left=,
+   \c!right=,
+   \c!command=,
+   \c!distance=\zeropoint,
+   \c!align=\v!auto]
+
+\definelinenumbering
+
+\unexpanded\def\startlinenumbering
+  {\dodoubleempty\dostartlinenumbering}
+
+% no intermediate changes in values, define a class, otherwise each range
+% would need a number
+
+% todo: text
+
+\expandafter\chardef\csname\??rn:l:\v!middle  \endcsname \zerocount
+\expandafter\chardef\csname\??rn:l:\v!left    \endcsname \plusone
+\expandafter\chardef\csname\??rn:l:\v!margin  \endcsname \plusone
+\expandafter\chardef\csname\??rn:l:\v!inmargin\endcsname \plusone
+\expandafter\chardef\csname\??rn:l:\v!inleft  \endcsname \plusone
+\expandafter\chardef\csname\??rn:l:\v!right   \endcsname \plustwo
+\expandafter\chardef\csname\??rn:l:\v!inright \endcsname \plustwo
+\expandafter\chardef\csname\??rn:l:\v!inner   \endcsname \plusthree
+\expandafter\chardef\csname\??rn:l:\v!outer   \endcsname \plusfour
+\expandafter\chardef\csname\??rn:l:\v!text    \endcsname \plusfive
+\expandafter\chardef\csname\??rn:l:\v!begin   \endcsname \plussix
+\expandafter\chardef\csname\??rn:l:\v!end     \endcsname \plusseven
+
+\expandafter\chardef\csname\??rn:a:\v!middle    \endcsname \zerocount
+\expandafter\chardef\csname\??rn:a:\v!right     \endcsname \plusone
+\expandafter\chardef\csname\??rn:a:\v!flushleft \endcsname \plusone
+\expandafter\chardef\csname\??rn:a:\v!left      \endcsname \plustwo
+\expandafter\chardef\csname\??rn:a:\v!flushright\endcsname \plustwo
+\expandafter\chardef\csname\??rn:a:\v!auto      \endcsname \plusfive
+
+\def\dostartlinenumbering[#1][#2]% todo: c!continue
+  {\begingroup
+   \chardef\linenumbermode\plusone
+   \ifsecondargument
+     \def\currentlinenumbering{#1}%
+     \doifassignmentelse{#2}
+       {\getparameters[\??rn\currentlinenumbering][#2]}
+       {\doifnumberelse{#2}% downward compatible
+          {\setvalue{\??rn#1\c!start}{#2}}%
+          {\doif{#2}\v!continue
+             {\getparameters[\??rn\currentlinenumbering][\c!continue=\v!yes]%
+              \chardef\linenumbermode\zerocount}}}%
+   \else\iffirstargument
+     \doifnumberelse{#1}% downward compatible
+       {\let\currentlinenumbering\empty
+        \setvalue{\??rn\c!start}{#1}}%
+       {\doifelse{#1}\v!continue
+          {\let\currentlinenumbering\empty
+           \getparameters[\??rn\currentlinenumbering][\c!continue=\v!yes]%
+           \chardef\linenumbermode\zerocount}
+          {\def\currentlinenumbering{#1}}}%
+   \fi\fi
+   \doif{\linenumberparameter\c!continue}\v!yes
+     {\chardef\linenumbermode\zerocount}%
+   \numberinglinestrue
+   \the\beforeeverylinenumbering
+   \mkstarttextlinenumbering\currentlinenumbering\linenumbermode}
+
+\unexpanded\def\stoplinenumbering
+  {\mkstoptextlinenumbering
+   \the\aftereverylinenumbering
+   \endgroup}
+
+% number placement
+
+\let\mkskiplinenumber \gobblesixarguments
+
+\def\mkdoinnerlinenumber{\doifoddpageelse\mkdoleftlinenumber\mkdorightlinenumber}
+\def\mkdoouterlinenumber{\doifoddpageelse\mkdorightlinenumber\mkdoleftlinenumber}
+
+\def\mkleftlinenumber
+  {\ifcase\linenumberlocation
+     \expandafter\mkdoleftlinenumber
+   \or
+     \expandafter\mkdoleftlinenumber
+   \or
+     \expandafter\mkdoleftlinenumber
+   \or
+     \expandafter\mkdoinnerlinenumber
+   \or
+     \expandafter\mkdoouterlinenumber
+   \or
+     \expandafter\mkdotextlinenumber
+   \or
+     \expandafter\mkdobeginlinenumber
+   \or
+     \expandafter\mkdoendlinenumber
+   \fi}
+
+\def\mkrightlinenumber
+  {\ifcase\linenumberlocation
+     \expandafter\mkdorightlinenumber
+   \or
+     \expandafter\mkdorightlinenumber
+   \or
+     \expandafter\mkdorightlinenumber
+   \or
+     \expandafter\mkdoouterlinenumber
+   \or
+     \expandafter\mkdoinnerlinenumber
+   \or
+     \expandafter\mkdotextlinenumber
+   \or
+     \expandafter\mkdoendlinenumber
+   \or
+     \expandafter\mkdobeginlinenumber
+   \fi}
+
+\def\mkaddtextlinenumbers#1#2#3% box col max
+  {\bgroup
+   \chardef\linenumberbox       #1\relax
+   \chardef\linenumbercolumn    #2\relax
+   \chardef\linenumberlastcolumn#3\relax
+   \fullrestoreglobalbodyfont
+   \def\skipnumber{\hbox{}}%
+   \let\makenumber\maketextlinenumber
+   \mkprocesstextlinenumbers\linenumberbox
+   \egroup}
+
+\def\maketextlinenumber#1%
+  {\edef\currentlinenumbering{#1}%
+   \chardef\linenumberlocation \executeifdefined{\??rn:l:\linenumberparameter\c!location}\plusone  % left
+   \chardef\linenumberalignment\executeifdefined{\??rn:a:\linenumberparameter\c!align   }\plusfive % auto
+   \ifcase\linenumberlastcolumn\relax
+     \let\domakenumber\mkskiplinenumber
+   \or
+    % one column
+     \ifcase\linenumberlocation
+       \let\domakenumber\mkskiplinenumber
+        % hm
+     \or
+       \let\domakenumber\mkleftlinenumber
+     \or
+       \let\domakenumber\mkrightlinenumber
+     \or % inner
+       \let\domakenumber\mkdoinnerlinenumber
+     \or % outer
+       \let\domakenumber\mkdoouterlinenumber
+     \or % text
+       \let\domakenumber\mkdotextlinenumber
+     \or
+       \let\domakenumber\mkdobeginlinenumber
+     \or
+       \let\domakenumber\mkdoendlinenumber
+     \fi
+   \else\ifcase\linenumbercolumn\relax
+     \let\domakenumber\mkskiplinenumber
+   \or
+     \let\domakenumber\mkleftlinenumber
+     \ifcase\linenumberlocation\or
+       \chardef\linenumberlocation\plusone
+     \or
+       \chardef\linenumberlocation\plustwo
+     \else
+       \chardef\linenumberlocation\plusone
+     \or
+       \chardef\linenumberlocation\plusone
+     \or
+       \chardef\linenumberlocation\plusone
+     \or
+       \chardef\linenumberlocation\plusone % todo
+     \or
+       \chardef\linenumberlocation\plusone % todo
+     \fi
+   \else
+     \let\domakenumber\mkrightlinenumber
+     \ifcase\linenumberlocation\or
+       \chardef\linenumberlocation\plustwo
+     \or
+       \chardef\linenumberlocation\plusone
+     \or
+       \chardef\linenumberlocation\plustwo
+     \or
+       \chardef\linenumberlocation\plustwo
+     \or
+       \chardef\linenumberlocation\plustwo % todo
+     \or
+       \chardef\linenumberlocation\plustwo % todo
+     \fi
+   \fi\fi
+   \domakenumber{#1}}
+
+\def\mkdotextlinenumber #1#2#3#4#5#6% beware, one needs so compensate for this in the width !
+  {\hbox{\dosomelinenumber{#1}{2}{#2}{#5}\hskip#3\scaledpoint}}
+
+\def\mkdotextlinenumber #1#2#3#4#5#6% beware, one needs so compensate for this in the width !
+  {\hbox{\dosomelinenumber{#1}{2}{#2}{#5}\hskip#3\scaledpoint}}
+
+\def\mkdoleftlinenumber #1#2#3#4#5#6%
+  {\naturalhbox to \zeropoint
+     {\ifcase\istltdir#6\else \hskip-#4\scaledpoint \fi
+      \llap{\dosomelinenumber{#1}{2}{#2}{#5}\kern#3\scaledpoint}}}
+
+\def\mkdorightlinenumber#1#2#3#4#5#6%
+  {\naturalhbox to \zeropoint
+     {\ifcase\istltdir#6\else \hskip-#4\scaledpoint \fi
+      \rlap{\hskip#4\scaledpoint\hskip#3\scaledpoint\dosomelinenumber{#1}{1}{#2}{#5}}}}
+
+\def\mkdobeginlinenumber #1#2#3#4#5#6%
+  {\ifcase\istltdir#6\relax
+     \chardef\linenumberlocation\plusone
+     \expandafter\mkdoleftlinenumber
+   \else
+     \chardef\linenumberlocation\plustwo
+     \expandafter\mkdorightlinenumber
+   \fi{#1}{#2}{#3}{#4}{#5}{#6}}
+
+\def\mkdoendlinenumber#1#2#3#4#5#6%
+  {\ifcase\istltdir#6\relax
+     \chardef\linenumberlocation\plustwo
+     \expandafter\mkdorightlinenumber
+   \else
+     \chardef\linenumberlocation\plusone
+     \expandafter\mkdoleftlinenumber
+   \fi{#1}{#2}{#3}{#4}{#5}{#6}}
+
+\def\dosomelinenumber#1#2#3#4% tag 1=left|2=right linenumber leftskip
+  {\begingroup
+   \def\currentlinenumbering{#1}%
+   \def\linenumber{#3}% unsafe
+   \doifelse{\linenumberparameter\c!width}\v!margin
+     {\linenumberwidth\leftmarginwidth}
+     {\linenumberwidth\linenumberparameter\c!width}%
+   \linenumberdistance\linenumberparameter\c!distance\relax
+   \ifcase#2\relax\or\hskip\linenumberdistance\fi\relax
+   \ifnum\linenumberlocation=\plusfive
+     \scratchdimen\dimexpr#4\scaledpoint-\linenumberdistance\relax
+     \chardef\linenumberlocation\plusone
+   \else
+     \scratchdimen\zeropoint
+   \fi
+   \ifcase\linenumberalignment
+     \chardef\linenumberlocation\zerocount % middle
+   \or
+     \chardef\linenumberlocation\plusone % left
+   \or
+     \chardef\linenumberlocation\plustwo % right
+   \fi
+   \ifconditional\tracelinenumbering\ruledhbox\else\hbox\fi to \linenumberwidth
+     {\ifcase\linenumberlocation
+        \hss % middle
+      \or
+        % left
+      \or
+        \hss % right
+      \or
+        \doifoddpageelse\relax\hss % inner
+      \or
+        \doifoddpageelse\hss\relax % outer
+      \fi
+      \linenumberattributes\c!style\c!color
+        {\linenumberparameter\c!command
+           {\linenumberparameter\c!left
+            \convertnumber{\linenumberparameter\c!conversion}{#3}%
+            \linenumberparameter\c!right}}%
+      \ifcase\linenumberlocation
+        \hss % middle
+      \or
+        \hss % left
+      \or
+        % right
+      \or
+        \doifoddpageelse\hss\relax % inner
+      \or
+        \doifoddpageelse\relax\hss % outer
+      \fi}%
+   \ifcase#2\relax\or\or\hskip\linenumberdistance\fi\relax
+   \hskip-\scratchdimen
+   \the\everylinenumber
+   \endgroup}
+
+% left right inner outer
+
+% align: \alignedline\@@rnalign\v!right{\box0\hskip\@@rndistance}
+
+% referencing
+
+\def\someline [#1]{\mkstartlinereference{#1}\mkstoplinereference{#1}}
+\unexpanded\def\startline[#1]{\mkstartlinereference{#1}}
+\unexpanded\def\stopline [#1]{\mkstoplinereference {#1}}
+
+\def\mkshowstartlinereference#1%
+  {\ifconditional\tracelinenumbering
+     \setbox\scratchbox\hbox{\llap
+       {\vrule\!!width\onepoint\!!depth\strutdp\!!height.8\strutht\raise.85\strutht\hbox{\llap{\tt\txx#1}}}}%
+     \smashbox\scratchbox\box\scratchbox
+   \fi}
+\def\mkshowstoplinereference#1%
+  {\ifconditional\tracelinenumbering
+     \setbox\scratchbox\hbox{\rlap
+       {\raise.85\strutht\hbox{\rlap{\tt\txx#1}}\vrule\!!width\onepoint\!!depth\strutdp\!!height.8\strutht}}%
+     \smashbox\scratchbox\box\scratchbox
+   \fi}
+
+\def\mkstartlinereference#1{\mksomelinereference{#1}{lr:b:#1}{\mkshowstartlinereference{#1}}\ignorespaces}
+\def\mkstoplinereference #1{\removeunwantedspaces\mksomelinereference{#1}{lr:e:#1}{\mkshowstoplinereference{#1}}}
+
+% eventually we will do this in lua
+
+\def\currentreferencelinenumber{\ctxlua{jobreferences.filter("linenumber")}}
+
+\def\doifelsesamelinereference#1#2#3%
+  {\doifreferencefoundelse{lr:b:#1}
+     {\edef\fline{\currentreferencelinenumber}%
+      \doifreferencefoundelse{lr:e:#1}
+        {\edef\tline{\currentreferencelinenumber}%
+         %[\fline,\tline]
+         \ifx\fline\tline#2\else#3\fi}
+        {\unknownreference{#1}#2}}
+     {\unknownreference{#1}#2}}
+
+\def\inline#1[#2]%
+  {\doifelsenothing{#1}
+     {\doifelsesamelinereference{#2}
+        {\in{\leftlabeltext\v!line}{\rightlabeltext\v!line}[lr:b:#2]}
+        {\in{\leftlabeltext\v!lines}{}[lr:b:#2]--\in{}{\rightlabeltext\v!lines}[lr:e:#2]}}
+     {\doifelsesamelinereference{#2}
+        {\in{#1}[lr:b:#2]}
+        {\in{#1}[lr:b:#2]--\in[lr:e:#2]}}}
+
+\def\inlinerange[#1]%
+  {\doifelsesamelinereference{#1}
+     {\in[lr:b:#1]}
+     {\in[lr:b:#1]--\in[lr:e:#1]}}
+
+\protect \endinput