diff options
author | Karl Berry <karl@freefriends.org> | 2013-03-05 00:30:35 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2013-03-05 00:30:35 +0000 |
commit | cecaa6eb0816bb7e9ca11b0aa34254ddf60e41ba (patch) | |
tree | c72ff97a1cd04bab9611929800ac9414e3e26e49 /Master/texmf-dist/tex/context | |
parent | 44274c5c125d614b168254dc1cbe67f5db7aaa88 (diff) |
context-fixme (4mar13)
git-svn-id: svn://tug.org/texlive/trunk@29287 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/context')
-rw-r--r-- | Master/texmf-dist/tex/context/third/fixme/t-fixme.mkii (renamed from Master/texmf-dist/tex/context/third/fixme/t-fixme.tex) | 135 | ||||
-rw-r--r-- | Master/texmf-dist/tex/context/third/fixme/t-fixme.mkiv | 265 |
2 files changed, 341 insertions, 59 deletions
diff --git a/Master/texmf-dist/tex/context/third/fixme/t-fixme.tex b/Master/texmf-dist/tex/context/third/fixme/t-fixme.mkii index d372374ebc2..0ef107a854a 100644 --- a/Master/texmf-dist/tex/context/third/fixme/t-fixme.tex +++ b/Master/texmf-dist/tex/context/third/fixme/t-fixme.mkii @@ -1,6 +1,6 @@ %D \module %D [ file=t-fixme, -%D version=2009.11.08, +%D version=2013.03.03, %D title=\CONTEXT\ User Module, %D subtitle=FiXme, %D author=Wolfgang Schuster, @@ -43,7 +43,7 @@ \setinterfacemessage{fixme}{title}{FiXme} \setinterfacemessage{fixme}{1} {Number of notes: --} \setinterfacemessage{fixme}{2} {Number of warnings: --} - \setinterfacemessage{fixme}{3} {Number of errors:} + \setinterfacemessage{fixme}{3} {Number of errors: --} \setinterfacemessage{fixme}{4} {Number of fatal errors: --} \setinterfacemessage{fixme}{5} {Total: --} \stopinterface @@ -55,20 +55,28 @@ \def\????fx{@@@@fx} % FiXme +\def\fixmeparameter#1{\csname\????fx\currentfixme#1\endcsname} + \def\setupfixme - {\dosingleargument\dosetupfixme} + {\dodoubleempty\dosetupfixme} + +\def\dosetupfixme[#1][#2]% + {\ifsecondargument + \dodoubleargumentwithset\dodosetupfixme[#1][#2]% + \else + \dodosetupfixme[][#1]% + \fi} -\def\dosetupfixme[#1]% - {\doifassignmentelse{#1} - {\getparameters[\????fx][#1]} - {\setvalue{\????fx\c!version}{#1}}} +\def\dodosetupfixme[#1][#2]% + {\edef\currentfixme{#1}% + \getparameters[\????fx\currentfixme][#2]} %D Lists \definelist[\v!fixme][\c!width=\zeropoint] -\setvalue{\e!place \e!listof\v!fixmes}{\dodoubleempty\doplacelist [\v!fixme]} -\setvalue{\e!complete\e!listof\v!fixmes}{\dotripleempty\dodocompletelist[\v!fixme][\v!fixmes]} +\setvalue{\e!place \e!listof\v!fixmes}{\placelist [\v!fixme]} +\setvalue{\e!complete\e!listof\v!fixmes}{\completelist[\v!fixme]} %D \macros %D {fixme,fxnote,fxwarning,fxerror, @@ -85,13 +93,12 @@ \def\dofixme[#1][#2]#3% {\removeunwantedspaces \bgroup - \ifsecondargument - \setvalue{\????fx\c!location}{#2}% - \fi - \expanded{\writetolist[\v!fixme]{}{\labeltext{fixme#1}#3}}% - \pluscounter{\????fx\v!total}% - \pluscounter{\????fx #1}% - \doif\@@@@fxversion\v!draft{\processcommacommand[\@@@@fxlocation]{\dofixmelocation{#1}{#3}}}% + \setupfixme[#1][\c!location={#2}] + \expanded{\writetolist[\v!fixme]{}{\labeltext{fixme\fixmeparameter\c!type}#3}}% + \pluscounter{\????fx\v!total }% + \pluscounter{\????fx\fixmeparameter\c!type}% + \doif{\fixmeparameter\c!version}\v!draft + {\processcommacommand[\fixmeparameter\c!location]{\expanded{\dofixmelocation{\fixmeparameter\c!type}}{#3}}}% \egroup} \def\dofixmelocation#1#2#3{\executeifdefined{@@fixme@@#3}\gobbleoneargument{\labeltext{fixme#1}#2}} @@ -112,28 +119,38 @@ \def\dostartfixme[#1][#2]% {\bgroup - \setupfixme[\c!list=,#2]% - \doifsomething\@@@@fxlist{\expanded{\writetolist[\v!fixme]{}{\labeltext{fixme#1}\@@@@fxlist}}}% - \pluscounter{\????fx\v!total}% - \pluscounter{\????fx #1}% - \@@@@fxbefore} + \setupfixme[#1][\c!list=,#2]% + \doifelse{\fixmeparameter\c!version}\v!draft + {\doifsomething{\fixmeparameter\c!list}{\expanded{\writetolist[\v!fixme]{}{\labeltext{fixme\fixmeparameter\c!type}\fixmeparameter\c!list}}}% + \pluscounter{\????fx\v!total }% + \pluscounter{\????fx\fixmeparameter\c!type}% + \fixmeparameter\c!before} + {\egroup\@EA\gobbleuntil\csname\e!stop#1\endcsname}} \def\dostopfixme - {\@@@@fxafter + {\fixmeparameter\c!after \egroup} \def\definefixme {\dodoubleargument\dodefinefixme} \def\dodefinefixme[#1][#2]% - {\setvalue {#1}{\dodoubleempty\dofixme [#2]}% - \setvalue{\e!start#1}{\dodoubleempty\dostartfixme[#2]}% + {\getparameters + [\????fx#1] + [\c!before=\@@@@fxbefore, + \c!after=\@@@@fxafter, + \c!location=\@@@@fxlocation, + \c!version=\@@@@fxversion, + \c!type=\v!fatal, + #2]% + \setvalue {#1}{\dodoubleempty\dofixme [#1]}% + \setvalue{\e!start#1}{\dodoubleempty\dostartfixme[#1]}% \setvalue{\e!stop #1}{\dostopfixme}} -\definefixme [\v!fixme ] [\v!fatal ] -\definefixme [\v!fxnote ] [\v!note ] -\definefixme [\v!fxwarning] [\v!warning] -\definefixme [\v!fxerror ] [\v!error ] +\definefixme [\v!fixme ] [\c!type=\v!fatal ] +\definefixme [\v!fxnote ] [\c!type=\v!note ] +\definefixme [\v!fxwarning] [\c!type=\v!warning] +\definefixme [\v!fxerror ] [\c!type=\v!error ] \appendtoks \showmessage\m!fixme{1}{\countervalue{\????fx\v!note }}% @@ -145,13 +162,13 @@ %D Labels -\setupheadtext[\s!en][fixmes=List of Corrections] -\setupheadtext[\s!de][fixmes=Verzeichnis der Korrekturen] -\setupheadtext[\s!fr][fixmes=Liste des Corrections] -\setupheadtext[\s!it][fixmes=Corrigenda] -\setupheadtext[\s!es][fixmes=Lista de Correcciones] -\setupheadtext[\s!da][fixmes=Rettelser] -\setupheadtext[\s!hr][fixmes=Popis korekcija] +\setupheadtext[\s!en][fixme=List of Corrections] +\setupheadtext[\s!de][fixme=Verzeichnis der Korrekturen] +\setupheadtext[\s!fr][fixme=Liste des Corrections] +\setupheadtext[\s!it][fixme=Corrigenda] +\setupheadtext[\s!es][fixme=Lista de Correcciones] +\setupheadtext[\s!da][fixme=Rettelser] +\setupheadtext[\s!hr][fixme=Popis korekcija] \setuplabeltext[\s!en][fixmenote=\fixmelogo~Note: ] \setuplabeltext[\s!en][fixmewarning=\fixmelogo~Warning: ] @@ -163,30 +180,30 @@ \setuplabeltext[\s!de][fixmeerror=\fixmelogo~Fehler: ] \setuplabeltext[\s!de][fixmefatal=\fixmelogo] -\setuplabeltext[\s!fr][fixmenoteprefix=\fixmelogo~Note: ] -\setuplabeltext[\s!fr][fixmewarningprefix=\fixmelogo~Attention: ] -\setuplabeltext[\s!fr][fixmeerrorprefix=\fixmelogo~Erreur: ] -\setuplabeltext[\s!fr][fixmefatalprefix=\fixmelogo: ] - -\setuplabeltext[\s!it][fixmenoteprefix=\fixmelogo~Nota: ] -\setuplabeltext[\s!it][fixmewarningprefix=\fixmelogo~Avviso: ] -\setuplabeltext[\s!it][fixmeerrorprefix=\fixmelogo~Errore: ] -\setuplabeltext[\s!it][fixmefatalprefix=\fixmelogo: ] - -\setuplabeltext[\s!es][fixmenoteprefix=\fixmelogo~Nota: ] -\setuplabeltext[\s!es][fixmewarningprefix=\fixmelogo~Aviso: ] -\setuplabeltext[\s!es][fixmeerrorprefix=\fixmelogo~Error: ] -\setuplabeltext[\s!es][fixmefatalprefix=\fixmelogo: ] - -\setuplabeltext[\s!da][fixmenoteprefix=\fixmelogo~Note: ] -\setuplabeltext[\s!da][fixmewarningprefix=\fixmelogo~Advarsel: ] -\setuplabeltext[\s!da][fixmeerrorprefix=\fixmelogo~Fejl: ] -\setuplabeltext[\s!da][fixmefatalprefix=\fixmelogo: ] - -\setuplabeltext[\s!hr][fixmenoteprefix=\fixmelogo~Poruka: ] -\setuplabeltext[\s!hr][fixmewarningprefix=\fixmelogo~Upozorenje: ] -\setuplabeltext[\s!hr][fixmeerrorprefix=\fixmelogo~Gre\scaron ska: ] -\setuplabeltext[\s!hr][fixmefatalprefix=\fixmelogo: ] +\setuplabeltext[\s!fr][fixmenote=\fixmelogo~Note: ] +\setuplabeltext[\s!fr][fixmewarning=\fixmelogo~Attention: ] +\setuplabeltext[\s!fr][fixmeerror=\fixmelogo~Erreur: ] +\setuplabeltext[\s!fr][fixmefatal=\fixmelogo: ] + +\setuplabeltext[\s!it][fixmenote=\fixmelogo~Nota: ] +\setuplabeltext[\s!it][fixmewarning=\fixmelogo~Avviso: ] +\setuplabeltext[\s!it][fixmeerror=\fixmelogo~Errore: ] +\setuplabeltext[\s!it][fixmefatal=\fixmelogo: ] + +\setuplabeltext[\s!es][fixmenote=\fixmelogo~Nota: ] +\setuplabeltext[\s!es][fixmewarning=\fixmelogo~Aviso: ] +\setuplabeltext[\s!es][fixmeerror=\fixmelogo~Error: ] +\setuplabeltext[\s!es][fixmefatal=\fixmelogo: ] + +\setuplabeltext[\s!da][fixmenote=\fixmelogo~Note: ] +\setuplabeltext[\s!da][fixmewarning=\fixmelogo~Advarsel: ] +\setuplabeltext[\s!da][fixmeerror=\fixmelogo~Fejl: ] +\setuplabeltext[\s!da][fixmefatal=\fixmelogo: ] + +\setuplabeltext[\s!hr][fixmenote=\fixmelogo~Poruka: ] +\setuplabeltext[\s!hr][fixmewarning=\fixmelogo~Upozorenje: ] +\setuplabeltext[\s!hr][fixmeerror=\fixmelogo~Gre\scaron ska: ] +\setuplabeltext[\s!hr][fixmefatal=\fixmelogo: ] %D Defaults diff --git a/Master/texmf-dist/tex/context/third/fixme/t-fixme.mkiv b/Master/texmf-dist/tex/context/third/fixme/t-fixme.mkiv new file mode 100644 index 00000000000..cbb4aa9c149 --- /dev/null +++ b/Master/texmf-dist/tex/context/third/fixme/t-fixme.mkiv @@ -0,0 +1,265 @@ +%D \module +%D [ file=t-fixme, +%D version=2013.03.03, +%D title=\CONTEXT\ User Module, +%D subtitle=FiXme, +%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 / FiXme} + +\unprotect + +%D Logo + +\def\fixmelogo{{\ss FiXme}} \logo[FIXME]{\fixmelogo} + +\startinterface all + \setinterfaceconstant {version} {version} +\stopinterface + +\startinterface all + \setinterfacevariable {fixme} {fixme} + \setinterfacevariable {fixmes} {fixmes} + \setinterfacevariable {fatal} {fatal} + \setinterfacevariable {note} {note} + \setinterfacevariable {warning} {warning} + \setinterfacevariable {error} {error} + \setinterfacevariable {total} {total} + \setinterfacevariable {draft} {draft} + \setinterfacevariable {fxnote} {fxnote} + \setinterfacevariable {fxwarning} {fxwarning} + \setinterfacevariable {fxerror} {fxerror} +\stopinterface + +%D Messages + +\definemessageconstant {fixme} + +\startinterface all + \setinterfacemessage{fixme}{title}{FiXme} + \setinterfacemessage{fixme}{1} {Number of notes: --} + \setinterfacemessage{fixme}{2} {Number of warnings: --} + \setinterfacemessage{fixme}{3} {Number of errors: --} + \setinterfacemessage{fixme}{4} {Number of fatal errors: --} + \setinterfacemessage{fixme}{5} {Total: --} +\stopinterface + +%D \macros +%D {setupfixme} +%D +%D Namespace and setup command + +\installnamespace {fixme} +\installnamespace {fixmecounter} +\installnamespace {fixmelocation} +\installnamespace {fixmerenderings} + +\installcommandhandler \????fixme {fixme} \????fixme +\installcommandhandler \????fixmelocation {fixmelocation} \????fixmelocation + +%D \starttyping +%D \def\setupfixme +%D {\dosingleargument\dosetupfixme} +%D +%D \def\dosetupfixme[#1]% +%D {\doifassignmentelse{#1} +%D {\getparameters[\????fx][#1]} +%D {\setvalue{\????fx\c!version}{#1}}} +%D \stoptyping + +%D Lists + +\definelist[\v!fixme][\c!width=\zeropoint] + +\setvalue{\e!place \e!listof\v!fixmes}{\placelist [\v!fixme]} +\setvalue{\e!complete\e!listof\v!fixmes}{\completelist[\v!fixme][\v!fixmes]} + +%D \macros +%D {fixme,fxnote,fxwarning,fxerror, +%D definefixme,definefixmelocation} +%D +%D Commands + +\definecounter[\????fixmecounter\v!note ] +\definecounter[\????fixmecounter\v!warning] +\definecounter[\????fixmecounter\v!error ] +\definecounter[\????fixmecounter\v!fatal ] +\definecounter[\????fixmecounter\v!total ] + +\unexpanded\def\fixme_direct#1% + {\edef\currentfixme{#1}% + \dosingleempty\fixme_direct_indeed} + +\def\fixme_direct_indeed[#1]#2% + {\removeunwantedspaces + \begingroup + \setupcurrentfixme[\c!location={#1},\c!text={#2}]% + \edef\p_fixme_version {\fixmeparameter\c!version }% + \edef\p_fixme_type {\fixmeparameter\c!type }% + \edef\p_fixme_location{\fixmeparameter\c!location}% + \edef\p_fixme_text {\fixmeparameter\c!text }% + \ifx\p_fixme_location\empty + \let\p_fixme_location\v!margin + \fi + \ifx\p_fixme_version\v!draft + \normalexpanded{\writetolist[\v!fixme]{}{\fixmetext{\p_fixme_type}\p_fixme_text}}% + \incrementcounter[\????fixmecounter\v!total ]% + \incrementcounter[\????fixmecounter\p_fixme_type]% + \processcommacommand[\p_fixme_location]\fixme_location + \fi + \endgroup} + +\def\fixme_location#1% + {\edef\currentfixmelocation{#1}% + \ifcsname\currentfixmelocationhash\s!parent\endcsname \else + \let\currentfixmelocation\v!margin + \fi + \edef\p_fixme_renderingsetup{\fixmelocationparameter\c!renderingsetup}% + \texsetup\p_fixme_renderingsetup} + +\definefixmelocation [\v!text] [\c!renderingsetup=\????fixmerenderings:\v!text] + +\startsetups[\????fixmerenderings:\v!text] + \ifhmode\normalspace\fi + \fixmetext\p_fixme_type + \p_fixme_text +\stopsetups + +\definefixmelocation [\v!command] [\c!renderingsetup=\????fixmerenderings:\v!command] +\definefixmelocation [\v!margin] [\v!command] [\c!command=\inright] +\definefixmelocation [\v!footnote] [\v!command] [\c!command=\footnote] +\definefixmelocation [\v!left] [\v!command] [\c!command=\inleft] +\definefixmelocation [\v!right] [\v!command] [\c!command=\inright] +\definefixmelocation [\v!inner] [\v!command] [\c!command=\ininner] +\definefixmelocation [\v!outer] [\v!command] [\c!command=\inouter] + +\startsetups[\????fixmerenderings:\v!command] + \edef\p_fixme_command{\fixmelocationparameter\c!command}% + \normalexpanded{\p_fixme_command{\fixmetext{\p_fixme_type}\p_fixme_text}} +\stopsetups + +\definefixmelocation [\v!none] [\c!renderingsetup=\????fixmerenderings:\v!none] + +\startsetups[\????fixmerenderings:\v!none] + % EMPTY +\stopsetups + +\unexpanded\def\fixme_start#1% + {\begingroup + \edef\currentfixme{#1}% + \dosingleempty\fixme_start_indeed} + +\def\fixme_start_indeed[#1]% + {\iffirstargument + \setupcurrentfixme[#1]% + \fi + \edef\p_fixme_version{\fixmeparameter\c!version}% + \edef\p_fixme_list {\fixmeparameter\c!list }% + \edef\p_fixme_type {\fixmeparameter\c!type }% + \ifx\p_fixme_version\v!draft + \ifx\p_fixme_list\empty \else + \normalexpanded{\writetolist[\v!fixme]{}{\fixmetext\p_fixme_type\p_fixme_list}}% + \fi + \incrementcounter[\????fixmecounter\v!total ]% + \incrementcounter[\????fixmecounter\p_fixme_type]% + \fixmeparameter\c!before + \else + \expandafter\fixme_gobble + \fi} + +\unexpanded\def\fixme_gobble + {\expandafter\endgroup\expandafter\gobbleuntil\csname\e!stop\currentfixme\endcsname} + +\unexpanded\def\fixme_stop + {\fixmeparameter\c!after + \endgroup} + + +%D \starttyping +%D \def\definefixme +%D {\dodoubleargument\dodefinefixme} +%D +%D \def\dodefinefixme[#1][#2]% +%D {\setvalue {#1}{\dodoubleempty\dofixme [#2]}% +%D \setvalue{\e!start#1}{\dodoubleempty\dostartfixme[#2]}% +%D \setvalue{\e!stop #1}{\dostopfixme}} +%D \stoptyping + +\appendtoks + \setuevalue {\currentfixme}{\fixme_direct{\currentfixme}}% + \setuevalue{\e!start\currentfixme}{\fixme_start {\currentfixme}}% + \setuevalue{\e!stop \currentfixme}{\fixme_stop }% +\to \everydefinefixme + +\definefixme [\v!fixme ] [\c!type=\v!fatal ] +\definefixme [\v!fxnote ] [\c!type=\v!note ] +\definefixme [\v!fxwarning] [\c!type=\v!warning] +\definefixme [\v!fxerror ] [\c!type=\v!error ] + +\appendtoks + \showmessage\m!fixme{1}{\rawcountervalue[\????fixmecounter\v!note ]}% + \showmessage\m!fixme{2}{\rawcountervalue[\????fixmecounter\v!warning]}% + \showmessage\m!fixme{3}{\rawcountervalue[\????fixmecounter\v!error ]}% + \showmessage\m!fixme{4}{\rawcountervalue[\????fixmecounter\v!fatal ]}% + \showmessage\m!fixme{5}{\rawcountervalue[\????fixmecounter\v!total ]}% +\to \everynotabene + +\setupfixme + [ \c!before=\startquotation, + \c!after=\stopquotation, + \c!location=\v!margin, + \c!version=\v!draft, + \c!type=\v!fatal] + +%D Labels + +\definelabelclass[fixme] + +\setupheadtext [\s!en] [\v!fixme=List of Corrections] +\setupheadtext [\s!de] [\v!fixme=Verzeichnis der Korrekturen] +\setupheadtext [\s!fr] [\v!fixme=Liste des Corrections] +\setupheadtext [\s!it] [\v!fixme=Corrigenda] +\setupheadtext [\s!es] [\v!fixme=Lista de Correcciones] +\setupheadtext [\s!da] [\v!fixme=Rettelser] +\setupheadtext [\s!hr] [\v!fixme=Popis korekcija] + +\setupfixmetext [\s!en] [\v!note=\fixmelogo~Note: ] +\setupfixmetext [\s!en] [\v!warning=\fixmelogo~Warning: ] +\setupfixmetext [\s!en] [\v!error=\fixmelogo~Error: ] +\setupfixmetext [\s!en] [\v!fatal=\fixmelogo: ] + +\setupfixmetext [\s!de] [\v!note=\fixmelogo~Anm.: ] +\setupfixmetext [\s!de] [\v!warning=\fixmelogo~Warnung: ] +\setupfixmetext [\s!de] [\v!error=\fixmelogo~Fehler: ] +\setupfixmetext [\s!de] [\v!fatal=\fixmelogo] + +\setupfixmetext [\s!fr] [\v!note=\fixmelogo~Note: ] +\setupfixmetext [\s!fr] [\v!warning=\fixmelogo~Attention: ] +\setupfixmetext [\s!fr] [\v!error=\fixmelogo~Erreur: ] +\setupfixmetext [\s!fr] [\v!fatal=\fixmelogo: ] + +\setupfixmetext [\s!it] [\v!note=\fixmelogo~Nota: ] +\setupfixmetext [\s!it] [\v!warning=\fixmelogo~Avviso: ] +\setupfixmetext [\s!it] [\v!error=\fixmelogo~Errore: ] +\setupfixmetext [\s!it] [\v!fatal=\fixmelogo: ] + +\setupfixmetext [\s!es] [\v!note=\fixmelogo~Nota: ] +\setupfixmetext [\s!es] [\v!warning=\fixmelogo~Aviso: ] +\setupfixmetext [\s!es] [\v!error=\fixmelogo~Error: ] +\setupfixmetext [\s!es] [\v!fatal=\fixmelogo: ] + +\setupfixmetext [\s!da] [\v!note=\fixmelogo~Note: ] +\setupfixmetext [\s!da] [\v!warning=\fixmelogo~Advarsel: ] +\setupfixmetext [\s!da] [\v!error=\fixmelogo~Fejl: ] +\setupfixmetext [\s!da] [\v!fatal=\fixmelogo: ] + +\setupfixmetext [\s!hr] [\v!note=\fixmelogo~Poruka: ] +\setupfixmetext [\s!hr] [\v!warning=\fixmelogo~Upozorenje: ] +\setupfixmetext [\s!hr] [\v!error=\fixmelogo~Gre\scaron ska: ] +\setupfixmetext [\s!hr] [\v!fatal=\fixmelogo: ] + +\protect \endinput |