summaryrefslogtreecommitdiff
path: root/macros/context/contrib/context-account/tex
diff options
context:
space:
mode:
Diffstat (limited to 'macros/context/contrib/context-account/tex')
-rw-r--r--macros/context/contrib/context-account/tex/context/interface/third/t-account.xml147
-rw-r--r--macros/context/contrib/context-account/tex/context/third/account/t-account.mkii38
-rw-r--r--macros/context/contrib/context-account/tex/context/third/account/t-account.mkiv84
-rw-r--r--macros/context/contrib/context-account/tex/context/third/account/t-account.tex439
-rw-r--r--macros/context/contrib/context-account/tex/context/third/account/t-floatnumber.mkii68
-rw-r--r--macros/context/contrib/context-account/tex/context/third/account/t-floatnumber.mkiv37
-rw-r--r--macros/context/contrib/context-account/tex/context/third/account/t-floatnumber.tex78
7 files changed, 0 insertions, 891 deletions
diff --git a/macros/context/contrib/context-account/tex/context/interface/third/t-account.xml b/macros/context/contrib/context-account/tex/context/interface/third/t-account.xml
deleted file mode 100644
index e1c94bd353..0000000000
--- a/macros/context/contrib/context-account/tex/context/interface/third/t-account.xml
+++ /dev/null
@@ -1,147 +0,0 @@
-<?xml version="1.0"?>
-
-<cd:interface xmlns:cd="http://www.pragma-ade.com/commands" name="context" language="en" version="2006.07.14">
-
-<cd:command name="debits" type="environment" file="wolf-mis">
- <cd:sequence>
- <cd:string value="DEBITS"/>
- </cd:sequence>
- <cd:arguments>
- <cd:assignments list="yes">
- <cd:parameter name="color">
- <cd:constant type="cd:name"/>
- </cd:parameter>
- </cd:assignments>
- </cd:arguments>
-</cd:command>
-
-<cd:command name="debit" file="wolf-mis.tex">
- <cd:sequence>
- <cd:string value="debit"/>
- </cd:sequence>
- <cd:arguments>
- <cd:keywords optional="yes">
- <cd:constant type="cd:text"/>
- </cd:keywords>
- <cd:content/>
- </cd:arguments>
-</cd:command>
-
-<cd:command name="credits" type="environment" file="wolf-mis">
- <cd:sequence>
- <cd:string value="CREDITS"/>
- </cd:sequence>
- <cd:arguments>
- <cd:assignments list="yes">
- <cd:parameter name="color">
- <cd:constant type="cd:name"/>
- </cd:parameter>
- </cd:assignments>
- </cd:arguments>
-</cd:command>
-
-<cd:command name="credit" file="wolf-mis.tex">
- <cd:sequence>
- <cd:string value="credit"/>
- </cd:sequence>
- <cd:arguments>
- <cd:keywords optional="yes">
- <cd:constant type="cd:text"/>
- </cd:keywords>
- <cd:content/>
- </cd:arguments>
-</cd:command>
-
-<cd:command name="account" type="environment" file="wolf-mis">
- <cd:sequence>
- <cd:string value="ACCOUNT"/>
- </cd:sequence>
- <cd:arguments>
- <cd:keywords>
- <cd:constant type="cd:name"/>
- </cd:keywords>
- <cd:assignments optional="yes" list="yes">
- <cd:inherit name="setupACCOUNT"/>
- </cd:assignments>
- </cd:arguments>
-</cd:command>
-
-<cd:command name="setupaccount" file="wolf-mis.tex">
- <cd:sequence>
- <cd:string value="setupACCOUNT" />
- </cd:sequence>
- <cd:arguments>
- <cd:keywords>
- <cd:constant type="cd:name"/>
- </cd:keywords>
- <cd:assignments list="yes">
- <cd:parameter name="frame">
- <cd:constant type="on"/>
- <cd:constant type="off" default="yes"/>
- <cd:constant type="none"/>
- <cd:constant type="overlay"/>
- </cd:parameter>
- <cd:parameter name="background">
- <cd:constant type="screen"/>
- <cd:constant type="color"/>
- <cd:constant type="none"/>
- <cd:constant type="foreground"/>
- <cd:constant type="cd:name"/>
- </cd:parameter>
- <cd:parameter name="backgroundscreen">
- <cd:constant type="cd:number"/>
- </cd:parameter>
- <cd:parameter name="backgroundcolor">
- <cd:constant type="cd:name"/>
- </cd:parameter>
- <cd:parameter name="backgroundoffset">
- <cd:constant type="frame"/>
- <cd:constant type="cd:dimension"/>
- </cd:parameter>
- <cd:parameter name="rulethickness">
- <cd:constant type="cd:dimension"/>
- </cd:parameter>
- <cd:parameter name="framecolor">
- <cd:constant type="cd:name"/>
- </cd:parameter>
- <cd:parameter name="offset">
- <cd:constant type="none"/>
- <cd:constant type="overlay"/>
- <cd:constant type="default"/>
- <cd:constant type="cd:dimension"/>
- </cd:parameter>
- <cd:parameter name="width">
- <cd:constant type="fit" default="yes"/>
- <cd:constant type="cd:dimension"/>
- </cd:parameter>
- <cd:parameter name="left">
- <cd:constant type="cd:text"/>
- </cd:parameter>
- <cd:parameter name="middle">
- <cd:constant type="cd:text"/>
- </cd:parameter>
- <cd:parameter name="right">
- <cd:constant type="cd:text"/>
- </cd:parameter>
- <cd:parameter name="distance">
- <cd:constant type="cd:dimension"/>
- </cd:parameter>
- </cd:assignments>
- </cd:arguments>
-</cd:command>
-
-<cd:command name="defineaccount" file="wolf-mis.tex">
- <cd:sequence>
- <cd:string value="defineACCOUNT"/>
- </cd:sequence>
- <cd:arguments>
- <cd:keywords>
- <cd:constant type="cd:name"/>
- </cd:keywords>
- <cd:assignments optional="yes" list="yes">
- <cd:inherit name="setupACCOUNT"/>
- </cd:assignments>
- </cd:arguments>
-</cd:command>
-
-</cd:interface>
diff --git a/macros/context/contrib/context-account/tex/context/third/account/t-account.mkii b/macros/context/contrib/context-account/tex/context/third/account/t-account.mkii
deleted file mode 100644
index ae4785a9af..0000000000
--- a/macros/context/contrib/context-account/tex/context/third/account/t-account.mkii
+++ /dev/null
@@ -1,38 +0,0 @@
-%D \module
-%D [ file=t-account,
-%D version=2007.01.15, % last change: 2008.02.13
-%D title=\CONTEXT\ User Module,
-%D subtitle=Miscelaneous,
-%D author=Wolfgang Schuster,
-%D date=\currentdate,
-%D copyright=Wolfgang Schuster,
-%D email=schuster.wolfgang@googlemail.com,
-%D license=Public Domain]
-
-\unprotect
-
-\defineXMLpickup [account] [name=TACCOUNT]
- {\startACCOUNT
- [\XMLpar{account}{name}{TACCOUNT}]
- [calculate=\XMLpar{account}{calculate}{no},
- left=\XMLpar{account}{left}{},
- middle=\XMLpar{account}{middle}{},
- right=\XMLpar{account}{right}{},
- background=\XMLpar{account}{background}{},
- rule=\XMLpar{account}{rule}{on},
- framecolor=\XMLpar{account}{framecolor}{black}]}
- {\stopACCOUNT}
-
-\defineXMLpickup [debits]
- \startDEBITS
- \stopDEBITS
-
-\defineXMLpickup [credits]
- \startCREDITS
- \stopCREDITS
-
-\defineXMLsingular [debit] {\debit[\XMLpar{debit}{text}{}]{\XMLpar{debit}{value}{}}}
-
-\defineXMLsingular [credit] {\credit[\XMLpar{credit}{text}{}]{\XMLpar{credit}{value}{}}}
-
-\protect \endinput
diff --git a/macros/context/contrib/context-account/tex/context/third/account/t-account.mkiv b/macros/context/contrib/context-account/tex/context/third/account/t-account.mkiv
deleted file mode 100644
index 6beb50b3ee..0000000000
--- a/macros/context/contrib/context-account/tex/context/third/account/t-account.mkiv
+++ /dev/null
@@ -1,84 +0,0 @@
-%D \module
-%D [ file=t-account,
-%D version=2007.01.15, % last change: 2008.02.13
-%D title=\CONTEXT\ User Module,
-%D subtitle=Miscelaneous,
-%D author=Wolfgang Schuster,
-%D date=\currentdate,
-%D copyright=Wolfgang Schuster,
-%D email=schuster.wolfgang@googlemail.com,
-%D license=Public Domain]
-
-\unprotect
-
-\startxmlsetups xml:account
- \xmlsetsetup{\xmldocument}{account|debits|credits|debit|credit}{*}
-\stopxmlsetups
-
-\xmlregistersetup{xml:account}
-
-\startxmlsetups account
-
- \bgroup
-
- \startcollecting
-
- \startcollect\startACCOUNT\stopcollect
- \doifelsenothing{\xmlatt{#1}{name}}
- {\startcollect[TACCOUNT]\stopcollect}
- {\startexpandedcollect[\xmlatt{#1}{name}]\stopexpandedcollect}
- \startcollect[\stopcollect
- \doifsomething{\xmlatt{#1}{background}}{\startexpandedcollect background=\xmlatt{#1}{background},\stopexpandedcollect}
- \doifsomething{\xmlatt{#1}{backgroundcolor}}{\startexpandedcollect backgroundcolor=\xmlatt{#1}{backgroundcolor},\stopexpandedcollect}
- \doifsomething{\xmlatt{#1}{backgroundoffset}}{\startexpandedcollect backgroundoffset=\xmlatt{#1}{backgroundoffset},\stopexpandedcollect}
- \doifsomething{\xmlatt{#1}{backgroundscreen}}{\startexpandedcollect backgroundscreen=\xmlatt{#1}{backgroundscreen},\stopexpandedcollect}
- \doifsomething{\xmlatt{#1}{frame}}{\startexpandedcollect frame=\xmlatt{#1}{frame},\stopexpandedcollect}
- \doifsomething{\xmlatt{#1}{framecolor}}{\startexpandedcollect framecolor=\xmlatt{#1}{framecolor},\stopexpandedcollect}
- \doifsomething{\xmlatt{#1}{offset}}{\startexpandedcollect offset=\xmlatt{#1}{offset},\stopexpandedcollect}
- \doifsomething{\xmlatt{#1}{calculate}}{\startexpandedcollect calculate=\xmlatt{#1}{calculate},\stopexpandedcollect}
- \doifsomething{\xmlatt{#1}{rule}}{\startexpandedcollect rule=\xmlatt{#1}{rule},\stopexpandedcollect}
- \startcollect]\stopcollect
-
- \xmlflush{#1}
-
- \startcollect\stopACCOUNT\stopcollect
-
- \stopcollecting
-
- \egroup
-
-\stopxmlsetups
-
-\startxmlsetups debits
-
- \startcollect\startDEBITS\stopcollect
- \xmlflush{#1}
- \startcollect\stopDEBITS\stopcollect
-
-\stopxmlsetups
-
-\startxmlsetups debit
-
- \startexpandedcollect
- \noexpand\debit[\xmlatt{#1}{text}]{\xmlatt{#1}{value}}
- \stopexpandedcollect
-
-\stopxmlsetups
-
-\startxmlsetups credits
-
- \startcollect\startCREDITS\stopcollect
- \xmlflush{#1}
- \startcollect\stopCREDITS\stopcollect
-
-\stopxmlsetups
-
-\startxmlsetups credit
-
- \startexpandedcollect
- \noexpand\credit[\xmlatt{#1}{text}]{\xmlatt{#1}{value}}
- \stopexpandedcollect
-
-\stopxmlsetups
-
-\protect \endinput
diff --git a/macros/context/contrib/context-account/tex/context/third/account/t-account.tex b/macros/context/contrib/context-account/tex/context/third/account/t-account.tex
deleted file mode 100644
index 625d436b23..0000000000
--- a/macros/context/contrib/context-account/tex/context/third/account/t-account.tex
+++ /dev/null
@@ -1,439 +0,0 @@
-%D \module
-%D [ file=t-account,
-%D version=2007.01.15, % last change: 2009.02.06
-%D title=\CONTEXT\ User Module,
-%D subtitle=Miscelaneous,
-%D author=Wolfgang Schuster,
-%D date=\currentdate,
-%D copyright=Wolfgang Schuster,
-%D email=schuster.wolfgang@googlemail.com,
-%D license=Public Domain]
-
-%M \usemodule [account]
-%M \loadsetups[t-account.xml]
-
-\writestatus{loading}{Context User Module / Miscelaneous}
-
-\unprotect
-
-\usemodule[floatnumber]
-
-\def\????ac{@@@@ac} % Account
-
-%D This is the second version of my T-Account module. If I want
-%D to be true I wrote this module the n-th time but the current
-%D version is my second version that has all things implemented
-%D that I wanted and is written as a real \CONTEXT\ module and
-%D in a simple plain \TEX\ style, although it is sometimes better
-%D to try writing things for plain \TEX\ and creating an extended
-%D for \CONTEXT\ later, after everything works.
-
-%D The next two count registers save the values for the values
-%D from the \tex{debit} and \tex{credit} macros. You can output
-%D the values at the end of the account.
-
-\definefloatnumber[creditvalue][\c!command=\accountparameter\c!numbercommand]
-\definefloatnumber[debitvalue] [\c!command=\accountparameter\c!numbercommand]
-
-\definefloatnumber[creditsum][\c!command=\accountparameter\c!numbercommand]
-\definefloatnumber[debitsum] [\c!command=\accountparameter\c!numbercommand]
-
-%D The following dimens are needed to save the textwidth in the
-%D first run with my account parser and feed these values into
-%D the account boxes, most of them only needed for the
-%D \mono{width=fit} option.
-
-\newdimen\!!debitwidth
-\newdimen\!!debitheight
-\newdimen\!!creditwidth
-\newdimen\!!creditheight
-\newdimen\!!accountwidth
-\newdimen\!!accountheight
-\newdimen\!!debittextwidth
-\newdimen\!!debitnumberwidth
-\newdimen\!!credittextwidth
-\newdimen\!!creditnumberwidth
-
-%D I collect the content from the debit environment in an box and
-%D put the content into the main box, after all values are collected.
-%D The same happens for the credit environment and his content.
-
-\newbox\debitbox
-\newbox\creditbox
-
-%D And the last thing is a private token register to save the account
-%D content and use it for both parsing the content and using it afterwards
-%D to fill the box with the processed content.
-
-\newtoks\accounttoks
-
-%D This nice thing was taken from \mono{core-rul.tex}.
-
-\def\accountparameter#1%
- {\csname\@@account#1\endcsname}
-
-%D \macros{startACCOUNT,stopACCOUNT}
-%D
-%D \showsetup{startaccount}
-
-%D My first version used a buffers to store the content between the
-%D \tex{startACCOUNT} \unknown\ \tex{stopACCOUNT} pair. This has
-%D worked untill I tried to put the environment into a float or to
-%D put a few of them side by side in an \mono{combination} environment.
-%D A solution for this problems could have been to call the output
-%D from my \mono{ACCOUNT} environment by a command like \tex{useACCOUNT}
-%D like the \mono{MPgraphics}, but is was not what I wanted and the
-%D only solution for this was to use an delimited environment on the
-%D one side or collext the text into braces like \tex{ACCOUNT{}} on
-%D the other side. The second way would have made it easier to define
-%D new macros to for the account with presets with the sideeffect to
-%D enclose the content with braces. The first way avoids braces and
-%D uses delimitercommands instead, more to write and harder to define
-%D wrapper macros (in the way I like) but I prefered this solution
-%D as shown below.
-
-\def\startACCOUNT
- {\dodoubleempty\dostartACCOUNT}
-
-\long\def\dostartACCOUNT[#1][#2]#3\stopACCOUNT
- {\bgroup
- \edef\@@account{\????ac#1}%
- \ifsecondargument
- \setupACCOUNT[#1][#2]%
- \fi
- \edef\accountwidth {\accountparameter\c!width}%
- \edef\accountdistance {\accountparameter\c!distance}%
- \resetfloatnumber[creditsum]%
- \resetfloatnumber[debitsum]%
- \def\creditsum{\getfloatnumber[creditsum]}%
- \def\debitsum {\getfloatnumber[debitsum]}%
- \doifvaluesomething{\accountparameter\c!bodyfont}
- {\expanded{\switchtobodyfont
- [\accountparameter\c!bodyfont]}}%
- \parseACCOUNT{#3}%
- \doifnot\accountwidth\v!fit
- {\global\!!accountwidth\the\dimexpr\accountwidth\relax
- \global\advance\!!accountwidth-\accountdistance
- \global\!!accountwidth0.5\!!accountwidth}%
- #3\removeunwantedspaces
- \checkACCOUNT
- \presetlocalframed[\????ac]%
- \localframed
- [\????ac]
- [\c!background=\accountparameter\c!background,
- \c!backgroundcolor=\accountparameter\c!backgroundcolor,
- \c!backgroundoffset=\accountparameter\c!backgroundoffset,
- \c!backgroundscreen=\accountparameter\c!backgroundscreen,
- \c!frame=\accountparameter\c!frame,
- \c!framecolor=\accountparameter\c!framecolor,
- \c!offset=\accountparameter\c!offset]
- \bgroup
- \setbox\scratchbox\vbox
- {\offinterlineskip
- \doifelsenothing
- {\accountparameter\c!left%
- \accountparameter\c!middle%
- \accountparameter\c!right}
- {\xdef\MPaccountheaderheight{\the\zeropoint}}
- {\setbox\scratchbox\hbox\!!to\dimexpr2\!!accountwidth+\accountdistance\relax
- {\doif{\accountparameter\c!strut}\v!yes\strut
- \rlap{\accountparameter\c!left}\hfil
- \accountparameter\c!middle\hfil
- \llap{\accountparameter\c!right}}%
- \xdef\MPaccountheaderheight{\the\dimexpr\ht\scratchbox+\dp\scratchbox\relax}%
- \box\scratchbox}
- \doifelse{\accountparameter\c!rule}\v!on
- {\doifsomething{\accountparameter\c!framecolor}
- {\color[\accountparameter\c!framecolor]}
- {\hrule\!!height\accountparameter\c!rulethickness\relax}}
- {\vskip\accountparameter\c!rulethickness\relax}%
- \hbox{\box\debitbox\betweenaccount\box\creditbox}%
- \doifelse{\accountparameter\c!calculate}\v!yes
- {\setbox\scratchbox\vbox
- {\doifelse{\accountparameter\c!rule}\v!on
- {\doifsomething{\accountparameter\c!framecolor}
- {\color[\accountparameter\c!framecolor]}
- {\hrule\!!height\accountparameter\c!rulethickness\relax}}
- {\vskip\accountparameter\c!rulethickness\relax}
- \hbox
- {\hbox\!!to\!!accountwidth
- {\doif{\accountparameter\c!strut}\v!yes\strut%
- \hfil\debitsum}%
- \spacebetweenaccount
- \hbox\!!to\!!accountwidth
- {\doif{\accountparameter\c!strut}\v!yes\strut%
- \hfil\creditsum}}}%
- \xdef\MPaccountfooterheight{\the\dimexpr\ht\scratchbox+\dp\scratchbox\relax}%
- \box\scratchbox}
- {\xdef\MPaccountfooterheight{\the\zeropoint}}}%
- \xdef\MPaccountmaxheight{\the\dimexpr\ht\scratchbox+\dp\scratchbox\relax}%
- \xdef\MPaccountmaxwidth {\the\wd\scratchbox}%
- \box\scratchbox
- \egroup
- \egroup}
-
-\defineoverlay[account][\useMPgraphic{account}]
-
-%D We are not limited to simple rules with \TEX\ primitives.
-%D The following \METAPOST\ example graphic shows one way to
-%D draw more complicated rules behind the T-Account, you can
-%D use thus as an example for your own backgrounds.
-
-\startuseMPgraphic{account}
- AccountNumberGap := 0.5*\MPaccountmaxwidth-\MPaccountwidth ;
- AccountRuleWidth := \the\dimexpr\accountparameter\c!rulethickness\relax ;
-
- z11 = (0,\MPaccountmaxheight-\MPaccountheaderheight) ;
- z12 = (\MPaccountmaxwidth,\MPaccountmaxheight-\MPaccountheaderheight) ;
-
- z21 = (\MPaccountwidth-\MPaccountnumberwidth-AccountNumberGap,\MPaccountmaxheight-\MPaccountheaderheight-\MPaccountdebitheight) ;
- z22 = (0.5*\MPaccountmaxwidth,\MPaccountmaxheight-\MPaccountheaderheight-\MPaccountdebitheight) ;
- z23 = (\MPaccountmaxwidth-\MPaccountnumberwidth-AccountNumberGap,\MPaccountmaxheight-\MPaccountheaderheight-\MPaccountcreditheight) ;
- z24 = (\MPaccountmaxwidth,\MPaccountmaxheight-\MPaccountheaderheight-\MPaccountcreditheight) ;
-
- z31 = (\MPaccountwidth-\MPaccountnumberwidth-AccountNumberGap,\MPaccountfooterheight) ;
- z32 = (0.5*\MPaccountmaxwidth-AccountNumberGap,\MPaccountfooterheight) ;
- z33 = (\MPaccountmaxwidth-\MPaccountnumberwidth-AccountNumberGap,\MPaccountfooterheight) ;
- z34 = (\MPaccountmaxwidth,\MPaccountfooterheight) ;
-
- z41 = (0.5*\MPaccountmaxwidth,\MPaccountmaxheight-\MPaccountheaderheight) ;
- z42 = (0.5*\MPaccountmaxwidth,0) ;
- z43 = whatever[z41,z42]=whatever[z22,z23] ;
- z44 = (0.5*\MPaccountmaxwidth,\MPaccountfooterheight) ;
-
- z51 = (0,\MPaccountfooterheight) ;
- z52 = (\MPaccountnumberwidth,\MPaccountfooterheight) ;
- z53 = (0.5*\MPaccountmaxwidth-\MPaccountnumberwidth-AccountNumberGap,\MPaccountmaxheight-\MPaccountheaderheight-\MPaccountdebitheight) ;
- z54 = (0.5*\MPaccountmaxwidth-AccountNumberGap,\MPaccountmaxheight-\MPaccountheaderheight-\MPaccountdebitheight) ;
-
- z61 = (\MPaccountwidth-\MPaccountnumberwidth-AccountNumberGap,0) ;
- z62 = (0.5*\MPaccountmaxwidth-AccountNumberGap,0) ;
- z63 = (\MPaccountmaxwidth-\MPaccountnumberwidth-AccountNumberGap,0) ;
- z64 = (\MPaccountmaxwidth,0) ;
-
- drawoptions (withpen pencircle scaled AccountRuleWidth withcolor \MPcolor{\accountparameter\c!framecolor}) ;
- linecap := butt ; % no round end of the lines
-
- draw z11--z12 ;
- draw z33--z34 ;
-
- if \MPaccountfooterheight>0pt:
- draw z61--z62 ;
- draw z63--z64 ;
- fi
-
- if \MPaccountcreditheight>\MPaccountdebitheight:
- draw z31--z32 ;
- draw z41--z44 ;
- draw z51--z52--z53--z54 ;
- else:
- draw z21--z22--z23--z24 ;
- draw z41--z43 ;
- fi
-
- setbounds currentpicture to unitsquare xyscaled (\MPaccountmaxwidth,\MPaccountmaxheight) ;
-\stopuseMPgraphic
-
-%D \showsetup{startdebits}
-%D \showsetup{debit}
-
-\long\def\startDEBITS#1\stopDEBITS
- {\bgroup
- \def\debit{\dosingleempty\dodebit}%
- \def\dodebit[##1]%
- {\def\dododebit####1{\dodododebit[##1]{####1}}%
- \permitspacesbetweengroups
- \dosinglegroupempty\dododebit}%
- \def\dodododebit[##1]##2%
- {\setfloatnumber[debitvalue]{##2}%
- \incrementfloatnumber[debitsum]{\rawfloatnumber[debitvalue]}%
- \hbox\!!to\hsize{\strut##1\hfill\getfloatnumber[debitvalue]}}%
- \global\setbox\debitbox\vtop{\hsize\!!accountwidth#1}%
- \!!debitheight\ht\debitbox
- \advance\!!debitheight\dp\debitbox
- \xdef\MPaccountdebitheight{\the\!!debitheight}%
- \egroup}
-
-%D \showsetup{startcredits}
-%D \showsetup{credit}
-
-\long\def\startCREDITS#1\stopCREDITS
- {\bgroup
- \def\credit{\dosingleempty\docredit}%
- \def\docredit[##1]%
- {\def\dodocredit####1{\dododocredit[##1]{####1}}%
- \permitspacesbetweengroups
- \dosinglegroupempty\dodocredit}%
- \def\dododocredit[##1]##2%
- {\setfloatnumber[creditvalue]{##2}%
- \incrementfloatnumber[creditsum]{\rawfloatnumber[creditvalue]}%
- \hbox\!!to\hsize{\strut##1\hfill\getfloatnumber[creditvalue]}}%
- \global\setbox\creditbox\vtop{\hsize\!!accountwidth#1}%
- \!!creditheight\ht\creditbox
- \advance\!!creditheight\dp\creditbox
- \xdef\MPaccountcreditheight{\the\!!creditheight}%
- \egroup}
-
-\long\def\parseACCOUNT#1%
- {\bgroup
- \resetfloatnumber[creditsum]%
- \resetfloatnumber[debitsum]%
- \def\startCREDITS##1\stopCREDITS
- {\def\credit{\dosingleempty\docredit}%
- \def\docredit[####1]%
- {\def\dodocredit########1{\dododocredit[####1]{########1}}%
- \permitspacesbetweengroups
- \dosinglegroupempty\dodocredit}%
- \def\dododocredit[####1]####2%
- {\incrementfloatnumber[creditsum]{####2}%
- \setbox\scratchbox\hbox{####1}\!!dimena\wd\scratchbox
- \compareaccountdimen\!!credittextwidth\!!dimena}%
- ##1\removeunwantedspaces}%
- \def\startDEBITS##1\stopDEBITS
- {\def\debit{\dosingleempty\dodebit}%
- \def\dodebit[####1]%
- {\def\dododebit########1{\dodododebit[####1]{########1}}%
- \permitspacesbetweengroups
- \dosinglegroupempty\dododebit}%
- \def\dodododebit[####1]####2%
- {\incrementfloatnumber[debitsum]{####2}%
- \setbox\scratchbox\hbox{####1}\!!dimena\wd\scratchbox
- \compareaccountdimen\!!debittextwidth\!!dimena}%
- ##1\removeunwantedspaces}%
- #1\removeunwantedspaces
- \compareACCOUNTnumberwidth
- \compareaccountdimen\!!debittextwidth\!!credittextwidth
- \global\!!accountwidth\!!debittextwidth
- \global\advance\!!accountwidth\dimexpr\MPaccountnumberwidth\relax
- \global\advance\!!accountwidth\accountparameter\c!columndistance
- \xdef\MPaccounttextwidth{\the\!!debittextwidth}%
- \xdef\MPaccountwidth {\the\!!accountwidth}%
- \resetfloatnumber[creditsum]%
- \resetfloatnumber[debitsum]%
- \egroup}
-
-\def\compareACCOUNTnumberwidth
- {\bgroup
- \setbox\plusone\hbox{\getfloatnumber[debitsum]}%
- \setbox\plustwo\hbox{\getfloatnumber[creditsum]}%
- \ifdim\wd\plusone>\wd\plustwo
- \xdef\MPaccountnumberwidth{\the\wd\plusone}%
- \else
- \xdef\MPaccountnumberwidth{\the\wd\plustwo}%
- \fi
- \egroup}
-
-\def\compareaccountdimen#1#2%
- {\ifdim#2>#1\relax
- #1#2
- \fi}
-
-\def\checkACCOUNT
- {\bgroup
- \compareaccountdimen\!!debitheight\!!creditheight
- \xdef\MPaccountheight{\the\!!debitheight}%
- \egroup}
-
-\def\linebetweenaccount
- {\bgroup
- \xdef\MPaccountdistance{\the\dimexpr\accountdistance\relax}%
- \ifdim\accountdistance>\zeropoint\relax
- \!!dimena\accountdistance
- \else
- \!!dimena\linewidth
- \fi
- \advance\!!dimena-\linewidth
- \hskip.5\!!dimena
- \doifsomething{\accountparameter\c!framecolor}
- {\color[\accountparameter\c!framecolor]}%
- {\vrule\!!width\accountparameter\c!rulethickness}%
- \hskip.5\!!dimena\relax
- \egroup}
-
-\def\spacebetweenaccount
- {\xdef\MPaccountdistance{\zeropoint}%
- \hskip\accountdistance}
-
-%D \macros{setupACCOUNT}
-%D
-%D \showsetup{setupaccount}
-
-\def\setupACCOUNT
- {\dodoubleargument\dosetupACCOUNT}
-
-\def\dosetupACCOUNT[#1][#2]%
- {\getparameters[\????ac#1][#2]%
- \processaction
- [\getvalue{\????ac#1\c!rule}]
- [ \v!on=>\let\betweenaccount\linebetweenaccount,
- \v!off=>\let\betweenaccount\spacebetweenaccount,
- \s!default=>\let\betweenaccount\spacebetweenaccount,
- \s!unknown=>\let\betweenaccount\spacebetweenaccount]}
-
-\def\defineACCOUNT
- {\dodoubleempty\dodefineACCOUNT}
-
-\def\dodefineACCOUNT[#1][#2]%
- {\setupACCOUNT
- [#1]
- [\c!background=,
- \c!backgroundoffset=0pt,
- \c!backgroundscreen=,
- \c!backgroundcolor=,
- \c!bodyfont=,
- \c!calculate=\v!no,
- \c!columndistance=\bodyfontsize,
- \c!distance=\bodyfontsize,
- \c!frame=\v!off,
- \c!framecolor=,
- \c!left=,
- \c!middle=,
- \c!offset=0.25ex,
- \c!right=,
- \c!rule=\v!on,
- \c!rulethickness=\linewidth,
- \c!width=\v!fit,
- \c!strut=\v!yes,
- \c!numbercommand=\integerrounding,
- #2]%
- \processbetween{#1}{\ACCOUNT[#1]}%
- \setvalue{\e!setup#1\e!endsetup}{\dodoubleargument\setupACCOUNT[#1]}}
-
-\def\ACCOUNT[#1]#2%
- {\startACCOUNT[#1]#2\stopACCOUNT}
-
-\defineACCOUNT[TACCOUNT]
-
-\defineACCOUNT[TKONTO]
-
-%D \subject{Example}
-%D
-%D \startbuffer
-%D \startTACCOUNT[left=S,middle=Retained Earnings,right=H]
-%D \startTACCOUNT
-%D \startDEBITS
-%D \debit [Rent Expense] {2200}
-%D \debit [Salaries Expense] {1650}
-%D \debit [Interest Expense] {3950}
-%D \debit [Dividends] {2000}
-%D \stopDEBITS
-%D \startCREDITS
-%D \credit [Sales Revenue] {8500}
-%D \credit [Interest Revenue] {1300}
-%D \stopCREDITS
-%D \stopTACCOUNT
-%D \stopbuffer
-%D
-%D A simple example:
-%D
-%D \typebuffer
-%D
-%D This results in the following output:
-%D
-%D \startlinecorrection
-%D \getbuffer
-%D \stoplinecorrection
-
-\loadmarkfile{t-account}
-
-\protect \endinput
diff --git a/macros/context/contrib/context-account/tex/context/third/account/t-floatnumber.mkii b/macros/context/contrib/context-account/tex/context/third/account/t-floatnumber.mkii
deleted file mode 100644
index 18ce3b92af..0000000000
--- a/macros/context/contrib/context-account/tex/context/third/account/t-floatnumber.mkii
+++ /dev/null
@@ -1,68 +0,0 @@
-%D \module
-%D [ file=floatnumber,
-%D version=2008.02.11,
-%D title=\CONTEXT\ User Module,
-%D subtitle=Float Numbers,
-%D author=Wolfgang Schuster,
-%D date=\currentdate,
-%D copyright=Wolfgang Schuster,
-%D email=schuster.wolfgang@googlemail.com,
-%D license=Public Domain]
-
-\writestatus{loading}{Context User Module / Float Numbers}
-
-\unprotect
-
-\def\@@floatnumber@@v{@@floatnumber@@v}
-\def\@@floatnumber@@s{@@floatnumber@@s}
-
-% namespace is already dealt with in the frontend
-
-% \def\@@floatnumber@@v{v:}
-% \def\@@floatnumber@@s{s:}
-
-\def\makefloatcounter#1%
- {\global\@EA\let\csname\@@floatnumber@@v#1\endcsname\zeropoint
- \global\@EA\let\csname\@@floatnumber@@s#1\endcsname\zeropoint}
-
-\def\floatcountervalue#1%
- {\ifcsname\@@floatnumber@@v#1\endcsname
- \@EA\withoutpt\the\dimexpr\csname\@@floatnumber@@v#1\endcsname\relax
- \fi}
-
-\def\plusfloatcounter#1#2%
- {\@EA\xdef\csname\@@floatnumber@@v#1\endcsname
- {\the\dimexpr\csname\@@floatnumber@@v#1\endcsname+#2\points\relax}}
-
-\def\minusfloatcounter#1#2%
- {\@EA\xdef\csname\@@floatnumber@@v#1\endcsname
- {\the\dimexpr\csname\@@floatnumber@@v#1\endcsname-#2\points\relax}}
-
-\def\multiplyfloatcounter#1#2%
- {\@EA\xdef\csname\@@floatnumber@@v#1\endcsname
- {\the\dimexpr\csname\@@floatnumber@@v#1\endcsname*\integerrounding{\@EA\withoutpt\the\dimexpr#2\points*\plushundred\relax}/\plushundred\relax}}
-
-\def\multiplyfloatcounter#1#2%
- {\@EA\xdef\csname\@@floatnumber@@v#1\endcsname
- {\the\dimexpr\csname\@@floatnumber@@v#1\endcsname*\numexpr\number\dimexpr#2\points\relax*\plushundred/\maxcard\relax/\plushundred\relax}}
-
-\def\dividefloatcounter#1#2%
- {\@EA\xdef\csname\@@floatnumber@@v#1\endcsname
- {\the\dimexpr\csname\@@floatnumber@@v#1\endcsname*\plushundred/\integerrounding{\@EA\withoutpt\the\dimexpr#2\points*\plushundred\relax}\relax}}
-
-\def\dividefloatcounter#1#2%
- {\@EA\xdef\csname\@@floatnumber@@v#1\endcsname
- {\the\dimexpr\csname\@@floatnumber@@v#1\endcsname*\plushundred/\numexpr\number\dimexpr#2\points\relax*\plushundred/\maxcard\relax\relax}}
-
-\let\resetfloatcounter\makefloatcounter
-
-\def\setfloatcounter#1#2%
- {\global\@EA\xdef\csname\@@floatnumber@@v#1\endcsname{\the\dimexpr#2\points\relax}}
-
-\def\savefloatcounter#1%
- {\global\@EA\xdef\csname\@@floatnumber@@s#1\endcsname{\the\dimexpr\csname\@@floatnumber@@v#1\endcsname\relax}}
-
-\def\restorefloatcounter#1%
- {\global\@EA\xdef\csname\@@floatnumber@@v#1\endcsname{\the\dimexpr\csname\@@floatnumber@@s#1\endcsname\relax}}
-
-\protect \endinput
diff --git a/macros/context/contrib/context-account/tex/context/third/account/t-floatnumber.mkiv b/macros/context/contrib/context-account/tex/context/third/account/t-floatnumber.mkiv
deleted file mode 100644
index bbd5e37916..0000000000
--- a/macros/context/contrib/context-account/tex/context/third/account/t-floatnumber.mkiv
+++ /dev/null
@@ -1,37 +0,0 @@
-%D \module
-%D [ file=floatnumber,
-%D version=2008.02.11,
-%D title=\CONTEXT\ User Module,
-%D subtitle=Float Numbers,
-%D author=Wolfgang Schuster,
-%D date=\currentdate,
-%D copyright=Wolfgang Schuster,
-%D email=schuster.wolfgang@googlemail.com,
-%D license=Public Domain]
-
-\writestatus{loading}{Context User Module / Float Numbers}
-
-\unprotect
-
-\startluacode
- thirddata = thirddata or { }
- thirddata.floatnumbers = thirddata.floatnumbers or { }
- thirddata.floatnumbers.data = thirddata.floatnumbers.data or { }
- thirddata.floatnumbers.saved = thirddata.floatnumbers.saved or { }
-\stopluacode
-
-\def\makefloatcounter #1{\ctxlua{thirddata.floatnumbers.data ["#1"] = 0 thirddata.floatnumbers.saved["#1"] = 0}}
-\def\setfloatcounter #1#2{\ctxlua{thirddata.floatnumbers.data ["#1"] = #2}}
-
-\def\plusfloatcounter #1#2{\ctxlua{thirddata.floatnumbers.data ["#1"] = thirddata.floatnumbers.data ["#1"] + #2}}
-\def\minusfloatcounter #1#2{\ctxlua{thirddata.floatnumbers.data ["#1"] = thirddata.floatnumbers.data ["#1"] - #2}}
-\def\multiplyfloatcounter#1#2{\ctxlua{thirddata.floatnumbers.data ["#1"] = thirddata.floatnumbers.data ["#1"] * #2}}
-\def\dividefloatcounter #1#2{\ctxlua{thirddata.floatnumbers.data ["#1"] = thirddata.floatnumbers.data ["#1"] / #2}}
-\def\savefloatcounter #1{\ctxlua{thirddata.floatnumbers.saved["#1"] = thirddata.floatnumbers.data ["#1"]}}
-\def\restorefloatcounter #1{\ctxlua{thirddata.floatnumbers.data ["#1"] = thirddata.floatnumbers.saved["#1"]}}
-
-\def\floatcountervalue #1{\ctxlua{tex.print(thirddata.floatnumbers.data["#1"])}}
-
-\let\resetfloatcounter\makefloatcounter
-
-\protect \endinput
diff --git a/macros/context/contrib/context-account/tex/context/third/account/t-floatnumber.tex b/macros/context/contrib/context-account/tex/context/third/account/t-floatnumber.tex
deleted file mode 100644
index f0bb838312..0000000000
--- a/macros/context/contrib/context-account/tex/context/third/account/t-floatnumber.tex
+++ /dev/null
@@ -1,78 +0,0 @@
-%D \module
-%D [ file=t-floatnumber,
-%D version=2008.02.11,
-%D title=\CONTEXT\ User Module,
-%D subtitle=Float Numbers,
-%D author=Wolfgang Schuster,
-%D date=\currentdate,
-%D copyright=Wolfgang Schuster,
-%D email=schuster.wolfgang@googlemail.com,
-%D license=Public Domain]
-
-\writestatus{loading}{Context User Module / Float Numbers}
-
-\unprotect
-
-% Commands for floatnumbers:
-%
-% \definefloatnumber[name]
-% \setfloatnumber[name]{value}
-% \resetfloatnumber[name]
-% \incrementfloatnumber[name]{value}
-% \decrementfloatnumber[name]{value}
-% \multiplyfloatnumber[name]{value}
-% \dividefloatnumber[name]{value}
-% \savefloatnumber[name]
-% \restorefloatnumber[name]
-% \getfloatnumber[name]
-
-\def\setupfloatnumber
- {\dodoubleargument\dosetupfloatnumber}
-
-\def\dosetupfloatnumber[#1][#2]%
- {\getparameters[\s!float\s!number#1][#2]}
-
-\def\definefloatnumber
- {\dodoubleempty\dodefinefloatnumber}
-
-\def\dodefinefloatnumber[#1][#2]%
- {\setupfloatnumber
- [#1]
- [\c!command=\twodigitrounding,
- #2]%
- \makefloatcounter{\s!float\s!number#1}}
-
-\def\setfloatnumber[#1]#2%
- {\setfloatcounter{\s!float\s!number#1}{#2}}
-
-\def\resetfloatnumber[#1]%
- {\resetfloatcounter{\s!float\s!number#1}}
-
-\def\incrementfloatnumber[#1]#2%
- {\plusfloatcounter{\s!float\s!number#1}{#2}}
-
-\def\decrementfloatnumber[#1]#2%
- {\minusfloatcounter{\s!float\s!number#1}{#2}}
-
-\def\multiplyfloatnumber[#1]#2%
- {\multiplyfloatcounter{\s!float\s!number#1}{#2}}
-
-\def\dividefloatnumber[#1]#2%
- {\dividefloatcounter{\s!float\s!number#1}{#2}}
-
-\def\savefloatnumber[#1]%
- {\savefloatcounter{\s!float\s!number#1}}
-
-\def\restorefloatnumber[#1]%
- {\restorefloatcounter{\s!float\s!number#1}}
-
-\def\getfloatnumber[#1]%
- {\csname\s!float\s!number#1\c!command\endcsname
- {\floatcountervalue{\s!float\s!number#1}}}
-
-\def\rawfloatnumber[#1]%
- {\floatcountervalue{\s!float\s!number#1}}
-
-\loadmarkfile{t-floatnumber}
-
-\protect \endinput