summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/context/base/mkii/strc-syn.mkii
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/context/base/mkii/strc-syn.mkii')
-rw-r--r--Master/texmf-dist/tex/context/base/mkii/strc-syn.mkii438
1 files changed, 0 insertions, 438 deletions
diff --git a/Master/texmf-dist/tex/context/base/mkii/strc-syn.mkii b/Master/texmf-dist/tex/context/base/mkii/strc-syn.mkii
deleted file mode 100644
index 2ba5c94679e..00000000000
--- a/Master/texmf-dist/tex/context/base/mkii/strc-syn.mkii
+++ /dev/null
@@ -1,438 +0,0 @@
-%D \module
-%D [ file=strc-syn,
-%D version=1997.03.31,
-%D title=\CONTEXT\ Structure Macros,
-%D subtitle=Synonyms and Sorts,
-%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 Structure Macros / Synonyms and Sorts}
-
-\unprotect
-
-% \checkdefined kan hierheen
-
-% Formaat tex-utility-input-file <jobname.tui>:
-%
-% synonym entry {tag} {pure} {text} {synonym}
-%
-% Deze file wordt met het programma TeXUtil omgezet in een
-% in te lezen TeXFile met de commando's:
-%
-% \synonymentry {tag} {pure} {text} {synonym}
-
-\newif\ifsynonymmeaning
-
-% todo: \def\synonymparameter#1{\csname\??sm\currentsynonym#1\endcsname}
-
-\def\dosetupsynonyms[#1][#2]%
- {\getparameters[\??sm#1][#2]}
-
-\def\setupsynonyms
- {\dodoubleargument\dosetupsynonyms}
-
-\def\doresetsynonym#1%
- {\letvalue{#1\s!entry}\gobblethreearguments}
-
-\def\dohandlesynonymentry#1#2#3#4%
- {\bgroup
- \global\utilitydonetrue
- \syndef
- {\doattributes{\??sm#1}\c!textstyle\c!textcolor{#3}}
- \ConvertToConstant\doifelse{#4}{}{\unknown}{#4}\par
- \egroup}
-
-\def\synonymentry#1%
- {\executeifdefined{#1\s!entry}\gobblethreearguments}
-
-\def\dosetsynonym#1%
- {\doifdefinedelse{\??sm#1\c!command}
- {\setvalue{#1\s!entry}{\getvalue{\??sm#1\c!command}}} % 3 argumenten
- {\setvalue{#1\s!entry}{\dohandlesynonymentry{#1}}}}
-
-\def\synonymparameter#1{\csname\??sm\currentsynonym#1\endcsname}
-
-\def\doplacelistofsynonyms#1#2%
- {\whitespace
- \begingroup
- \def\currentsynonym{#1}%
- \definedescription % nog eens een class van maken, net als framed
- [syndef]
- [\c!location=\synonymparameter\c!location,
- \c!width=\synonymparameter\c!width,
- \c!distance=\synonymparameter\c!distance,
- \c!sample=\synonymparameter\c!sample,
- \c!hang=\synonymparameter\c!hang,
- \c!align=\synonymparameter\c!align,
- \c!before=\synonymparameter\c!before,
- \c!inbetween=\synonymparameter\c!inbetween,
- \c!after=\synonymparameter\c!after,
- \c!indentnext=\synonymparameter\c!indentnext,
- \c!headstyle=\synonymparameter\c!headstyle,
- \c!headcolor=\synonymparameter\c!headcolor,
- \c!style=,
- \c!color=]%
- \setupwhitespace[\v!none]%
- %doutilities{#1}\jobname{#2}\relax\par % no longer \par
- \doutilities{#1}\jobname{#1}\relax\relax
- \endgroup
- \ifutilitydone\else\nowhitespace\fi}
-
-\def\docompletelistofsynonyms#1#2% expansion needed to avoid v! (due to french active !)
- {\expanded{\systemsuppliedchapter[#1]{\noexpand\headtext{#2}}}%
- \doplacelistofsynonyms{#1}{#2}%
- \page[\v!yes]}
-
-\def\processsynonym#1#2#3%
- {\begingroup % anders in mathmode lege \hbox, zie eenheden
- \ifsynonymmeaning
- \synonymmeaningfalse
- \doattributes{\??sm#1}\c!synonymstyle\c!synonymcolor{#3}%
- \else
- \dontleavehmode
- \doattributes{\??sm#1}\c!textstyle\c!textcolor{#2}%
- \fi
- \endgroup}
-
-\def\getsynonymmeaning#1#2#3%
- {\bgroup
- \doifundefined{#2#3}
- {\setgvalue{#2#3}{{\tt[#3]}}%
- \showmessage\m!systems{18}{#1,#3}}%
- \synonymmeaningtrue
- \getvalue{#2#3}%
- \egroup}
-
-\def\dowritesynonym#1#2#3#4%
- {\begingroup % anders in mathmode lege \hbox
- \defconvertexpanded\asciisynonym{\getvalue{\??sm#1\c!expansion}}{#3}%
- \defconvertexpanded\asciimeaning{\getvalue{\??sm#1\c!expansion}}{#4}%
- \immediatewriteutility{s e {#1} {#2} {\asciisynonym} {\asciimeaning}}%
- \endgroup}
-
-\def\reprocesssynonym#1#2#3%
- {\processsynonym{#1}{#2}{#3}%
- \getvalue{\??sm#1\c!next}} % not formally documented
-
-\def\preexecutesynonym#1#2#3#4%
- {\ifdoinpututilities \else
- \dowritesynonym{#1}{#2}{#3}{#4}%
- \unexpanded\setgvalue{#2}{\reprocesssynonym{#1}{#3}{#4}}%
- \fi}
-
-\def\executesynonym#1#2#3#4%
- {\preexecutesynonym{#1}{#2}{#3}{#4}%
- \processsynonym{#1}{#3}{#4}%
- \getvalue{\??sm#1\c!next}} % not formally documented
-
-\def\expandsynonym#1#2#3#4%
- {{\synonymmeaningtrue
- \processsynonym{#1}{#3}{#4}}}
-
-\def\dodoloadsynonym#1#2#3#4%
- {\setgvalue{#2}{\executesynonym{#1}{#2}{#3}{#4}}}
-
-\def\doloadsynonym#1%
- {\setvalue{#1\s!entry}##1##2##3%
- {\doifelsenothing{##1}
- {\dodoloadsynonym{#1}{##2}{##2}{##3}}
- {\dodoloadsynonym{#1}{##1}{##2}{##3}}%
- \global\utilitydonetrue}}
-
-\def\doloadsynonyms#1#2%
- {\bgroup
- \let\dosetsynonym\doloadsynonym
- \showmessage\m!systems{19}{#2}%
- \doutilities{#1}\jobname{#1}\relax\relax
- \egroup
- \setvalue{\s!check#1}##1{}}
-
-\def\dodocomplexsynonym[#1][#2]#3#4%
- {\doifsomething{#2}
- {\getvalue{\s!check#1}{#2}%
- \doglobal\appendtoks\setvalue{#2}{#2}\to\simplifiedcommands
- \doifelsevalue{\??sm#1\c!conversion}\v!yes
- {\unexpanded\setgvalue{#2}{\expandsynonym{#1}{#2}{#3}{#4}}}
- {\doifelsevalue{\??sm#1\c!state}\v!start
- {\doifelsevalue{\??sm#1\c!criterium}\v!all
- {\preexecutesynonym{#1}{#2}{#3}{#4}}
- {\unexpanded\setgvalue{#2}{\executesynonym{#1}{#2}{#3}{#4}}}}
- {\unexpanded\setgvalue{#2}{\processsynonym{#1}{#3}{#4}}}}}}
-
-\def\docomplexsynonym[#1][#2][#3]#4#5%
- {\ifthirdargument
- \dodocomplexsynonym[#2][#1#3]{#4}{#5}%
- \else
- \dodocomplexsynonym[#2][#1#4]{#4}{#5}%
- \fi}
-
-\def\doregistersynonymlanguage#1%
- {\savesortlanguage{\getvalue{\??sm#1\s!language}}%
- \immediatewriteutility{s l {#1} {\getvalue{\??sm#1\s!language}}}}
-
-\def\dodefinesynonyms[#1][#2][#3][#4]%
- {\iffourthargument
- \unexpanded\def#4##1{\getsynonymmeaning{#1}{\??sm:#1:}{##1}}%
- \ifthirdargument
- \unexpanded\def#3##1{\getvalue{\??sm:#1:##1}}%
- \fi
- \setvalue{#1}{\dotripleempty\docomplexsynonym[\??sm:#1:][#1]}%
- \else
- \ifthirdargument
- \unexpanded\def#3##1{\getsynonymmeaning{#1}{}{##1}}%
- \fi
- \setvalue{#1}{\dotripleempty\docomplexsynonym[][#1]}%
- \fi
- \dosetupsynonyms
- [#1]%
- [\c!synonymstyle=,\c!textstyle=,
- \c!headstyle=,\c!headcolor=,
- \c!state=\v!start,\c!criterium=,
- \c!location=\v!left,\c!width=5em,\c!distance=0pt,
- \c!sample=,\c!hang=,\c!align=,
- \c!before=,\c!inbetween=,\c!after=,
- \c!indentnext=\v!no,
- \c!expansion=,
- \s!language=\currentmainlanguage]%
- \doglobal\appendtoksonce
- \doregistersynonymlanguage{#1}%
- \to \everysavesortkeys
- \presetheadtext[#2=\Word{#2}]% changes the \if...argument
- \addutilityreset{#1}%
- \setvalue{\e!setup #2\e!endsetup}{\dodoubleargument\getparameters[\??sm#1]}% to be obsolete
- \setvalue{\s!set #1}{\dosetsynonym{#1}}%
- \setvalue{\s!reset #1}{\doresetsynonym{#1}}%
- \setvalue{\s!check #1}##1{\checkdefined{synonym}{#1}{##1}}%
- \setvalue{\e!load #2}{\doloadsynonyms{#1}{#2}}%
- \setvalue{\e!place\e!listof #2}{\doplacelistofsynonyms{#1}{#2}}%
- \setvalue{\e!complete\e!listof#2}{\docompletelistofsynonyms{#1}{#2}}}
-
-\def\definesynonyms
- {\doquadrupleempty\dodefinesynonyms}
-
-% Formaat tex-utility-input-file <jobname.tui>:
-%
-% synonym entry {tag} {pure} {text} {}
-%
-% Deze file wordt met het programma TeXUtil omgezet in een
-% in te lezen TeXFile met de commando's:
-%
-% \synonymentry {tag} {pure} {text} {}
-
-\def\dosetupsorting[#1][#2]%
- {\getparameters[\??so#1][#2]}
-
-\def\setupsorting
- {\dodoubleargument\dosetupsorting}
-
-\def\doresetsort#1%
- {\letvalue{#1\s!entry}\gobblethreearguments}
-
-\def\dosetsort#1%
- {\setvalue{#1\s!entry}##1##2##3%
- {\let\dowritesort\gobblethreearguments
- \global\utilitydonetrue
- \bgroup
- \doifdefinedelse{\??so#1\c!command}
- {\getvalue{\??so#1\c!command}{##2}} % 1 argument
- {\getvalue{\??so#1\c!before}%
- \doattributes{\??so#1}\c!style\c!color{##2}%
- \getvalue{\??so#1\c!after}}%
- \egroup}}
-
-\def\doplacelistofsorts#1% NOG EEN RUWE VERSIE MAKEN
- {\whitespace % ZONDER WITRUIMTE ETC ETC
- \begingroup
- \setupwhitespace[\v!none]%
- \doutilities{#1}\jobname{#1}\relax\relax
- \endgroup
- \ifutilitydone\else\nowhitespace\fi}
-
-% to be tested
-%
-% \def\doplacelistofsorts#1% NOG EEN RUWE VERSIE MAKEN
-% {\startpacked
-% %doutilities{#1}\jobname{#1}\relax\par
-% \doutilities{#1}\jobname{#1}\relax\relax
-% \stoppacked}
-
-\def\docompletelistofsorts#1#2%
- {\expanded{\systemsuppliedchapter[#1]{\noexpand\headtext{#2}}}%
- \doplacelistofsorts{#1}%
- \page[\v!yes]}
-
-% todo:
-%
-% \def\placelistofsorts[#1]%
-% {\doplacelistofsorts{#1}}
-
-\def\processsort#1#2#3%
- {\dontleavehmode
- \begingroup % was \bgroup
- \doattributes{\??so#1}\c!style\c!color{#2}%
- \endgroup} % was \egroup
-
-\def\dowritesort#1#2#3%
- {\bgroup
- \defconvertexpanded\asciisynonym{\getvalue{\??so#1\c!expansion}}{#3}%
- \immediatewriteutility{s e {#1} {#2} {\asciisynonym} {}}%
- \egroup}
-
-\def\synonymentry#1%
- {\executeifdefined{#1\s!entry}\gobblethreearguments}
-
-\def\reprocesssort#1#2#3%
- {\processsort{#1}{#2}{#3}%
- \getvalue{\??so#1\c!next}}
-
-\def\preexecutesort#1#2#3%
- {\ifdoinpututilities \else
- \dowritesort{#1}{#2}{#3}%
- \unexpanded\setgvalue{#2}{\reprocesssort{#1}{#3}{#2}}%
- \fi}
-
-\def\executesort#1#2#3%
- {\begingroup
- \let\executesort\thirdofthreearguments % Trick needed for nested logo's.
- \preexecutesort{#1}{#2}{#3}%
- \processsort{#1}{#3}{#2}%
- \endgroup
- \getvalue{\??so#1\c!next}} % not formally documented
-
-\def\doloadsort#1%
- {\setvalue{#1\s!entry}##1##2##3%
- {\setgvalue{##1}{##2}%
- \global\utilitydonetrue}}
-
-\def\doloadsort#1#2%
- {\bgroup
- \let\dosetsort\doloadsort
- \showmessage\m!systems{20}{#2}%
- \doutilities{#1}\jobname{#1}\relax\relax
- \egroup
- \setvalue{\s!check#1}##1{}}
-
-\def\dodocomplexsort[#1][#2]#3%
- {\doifsomething{#2}
- {\getvalue{\s!check#1}{#2}%
- \doglobal\appendtoks\setvalue{#2}{#2}\to\simplifiedcommands
- \doifelsevalue{\??so#1\c!state}\v!start
- {\doifelsevalue{\??so#1\c!criterium}\v!all
- {\preexecutesort{#1}{#2}{#3}}
- {\unexpanded\setgvalue{#2}{\executesort{#1}{#2}{#3}}}}
- {\unexpanded\setgvalue{#2}{\processsort{#1}{#3}{#2}}}}}
-
-\def\docomplexsort[#1][#2][#3]#4%
- {\ifthirdargument
- \dodocomplexsort[#2][#1#3]{#4}%
- \else
- \dowritesort{#2}{#4}{#4}%
- \fi}
-
-% if #3=\relax or \v!none, then no command but still protected
-
-\def\doregistersortinglanguage#1%
- {\savesortlanguage{\getvalue{\??so#1\s!language}}%
- \immediatewriteutility{s l {#1} {\getvalue{\??so#1\s!language}}}}
-
-\def\dodefinesorting[#1][#2][#3]%
- {\getparameters[\??so#1]
- [%\c!command=, % we test for defined !
- \c!state=\v!start,
- \c!criterium=,
- \c!style=,
- \c!before=,
- \c!after=\endgraf,
- \c!expansion=,
- \s!language=\currentmainlanguage]%
- \doglobal\appendtoksonce
- \doregistersortinglanguage{#1}%
- \to \everysavesortkeys
- \ifthirdargument
- \ConvertConstantAfter\doifnot{#3}\v!none
- {\ifx#3\relax \else
- \def#3##1{\getvalue{\??so:#1:##1}}
- \fi}%
- \setvalue{#1}{\dotripleempty\docomplexsort[\??so:#1:][#1]}%
- \else
- \setvalue{#1}{\dotripleempty\docomplexsort[][#1]}%
- \fi
- \addutilityreset{#1}%
- \presetheadtext[#2=\Word{#2}]% after \ifthirdargument -)
- \setvalue{\e!setup#2\e!endsetup}[##1]{\getparameters[\??so#1][##1]}% to be obsolete
- \setvalue{\s!set#1}{\dosetsort{#1}}%
- \setvalue{\s!reset#1}{\doresetsort{#1}}%
- \setvalue{\e!load#2}{\doloadsort{#1}{#2}}%
- \setvalue{\s!check#1}##1{\checkdefined{sort}{#1}{##1}}%
- \setvalue{\e!place\e!listof#2}{\doplacelistofsorts{#1}}%
- \setvalue{\e!complete\e!listof#2}{\docompletelistofsorts{#1}{#2}}}
-
-\def\definesorting
- {\dotripleempty\dodefinesorting}
-
-%D Here we define a support macro that can sort simple comma
-%D separated lists. It's a multi-list variant of a prototype
-%D written by Taco.
-
-\def\processlistofsorts[#1]%
- {\doutilities{#1}\jobname{#1}\relax\relax}
-
-\newcounter\nofsortedalphalists
-
-\def\sortalphacommacommand#1%
- {\begingroup
- \doglobal\increment\nofsortedalphalists
- \edef\currentsortedalphalist{alpha:\nofsortedalphalists}%
- \definesorting[\currentsortedalphalist][\currentsortedalphalist]%
- \processcommacommand[#1]{\getvalue\currentsortedalphalist}%
- \global\let\sortedcommalist\empty
- \def\makesortedlist##1{\doglobal\appendtocommalist{##1}\sortedcommalist}%
- \setupsorting[\currentsortedalphalist][\c!criterium=\v!all,\c!command=\makesortedlist]%
- \processlistofsorts[\currentsortedalphalist]%
- \endgroup
- \dodoglobal\let#1\sortedcommalist}
-
-% \starttext
-% \def\whatever{a,b,q,d,r,f} \sortalphacommacommand\whatever \whatever \endgraf
-% \def\whatever{ax,bx,qx,dx,rx,fx} \sortalphacommacommand\whatever \whatever \endgraf
-% \stoptext
-
-%D Presets.
-
-\definesynonyms
- [\v!abbreviation]
- [\v!abbreviations]
- [\infull]
-
-\setupsynonyms
- [\v!abbreviation]
- [\c!textstyle=\v!capital,
- \c!textcolor=,
- \c!synonymstyle=,
- \c!synonymcolor=,
- \c!headstyle=,
- \c!headcolor=,
- \c!location=\v!left,
- \c!width=5em,
- \c!state=\v!start]
-
-\definesorting
- [\v!logo]
- [\v!logos]
-% no [\logogram]
-
-\definesynonyms
- [\v!unit]
- [\v!units]
- [\unitmeaning]
-
-\setupsynonyms
- [\v!unit]
- [\c!textstyle=\dimension]
-
-\protect \endinput