stable 2001.04.23

1 files changed, 408 insertions, 0 deletions

diff --git a/tex/context/base/s-mod-00.tex b/tex/context/base/s-mod-00.tex
new file mode 100644
index 000000000..1a9500831
--- /dev/null
+++ b/tex/context/base/s-mod-00.tex
@@ -0,0 +1,408 @@
+%D \module
+%D   [      file=s-mod-00,
+%D        version=very-old,
+%D          title=\CONTEXT\ Style File,
+%D       subtitle=Documentation Base Environment,
+%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. 
+
+%D This module looks like crap, is not documented, will 
+%D change, and used to be called modu-*.tex. 
+
+% todo: 
+% 
+% file inclusions -> hyperlinks 
+
+\newprettytrue
+
+\gebruikmodule[eenheid]
+
+\mainlanguage[en]
+
+\enableactivediscretionaries
+
+% beter:
+%
+% group    -> title
+% title    -> category
+% subtitle -> subtitle
+
+% herzien ivm fonts 
+
+% nog eens \interface \\ \\ verder doorvoeren 
+
+\unprotect
+
+\def\resetmodule%
+  {\getparameters
+     [Module]
+     [       file=\jobname,
+          version={\currentdate[jaar,{.},maand,{.},dag]},
+            title=,
+         subtitle=,
+           author=Hans Hagen,
+             date=\currentdate,
+        copyright={PRAGMA / Hans Hagen \& Ton Otten},
+      suggestions=]}
+
+\resetmodule
+
+\def\dostartmodule[#1]%
+  {\newcounter\ParagraphNumber
+   \resetmodule
+   \getparameters[Module][type=tex,#1]}
+
+\def\startmodule%
+  {\dosingleempty\dostartmodule}
+
+\def\complexmodule[#1]%
+  {\startglobaal % i.v.m. \bgroup in \startdocumentation  
+   \getparameters[Module][#1]
+   \stopglobaal  % i.v.m. \bgroup in \startdocumentation  
+   \moduletitel}
+
+\def\stopmodule%
+  {\pagina  
+   \plaatsindex
+     [balanceren=ja,
+      aanduiding=nee,
+      criterium=tekst]}
+
+\def\simplemodule#1%
+  {\type{#1}}
+
+\definecomplexorsimple\module
+
+\startmode[atpragma]
+
+  \def\TitelPagina#1% can be done more efficient 
+    {\startMPrun
+        mpgraph := #1 ; 
+        input mp-cont ; 
+    \stopMPrun
+     \externalfigure[\bufferprefix mprun.#1][hoogte=\vsize,breedte=\hsize]}
+
+  \definieeroverlay[titelpagina][\TitelPagina{512}]
+
+\stopmode
+
+\def\moduletitel%
+  {\ifx\ModuleNumber\undefined \else
+     \ifnum\ModuleNumber<10
+       \edef\ModuleNumber{00\ModuleNumber}%
+     \else\ifnum\ModuleNumber<100
+       \edef\ModuleNumber{0\ModuleNumber}%
+     \fi\fi
+     \stelachtergrondenin
+       [pagina] 
+       [achtergrond=titelpagina]
+   \fi
+   \startstandaardopmaak[hoofdstatus=geen,voetstatus=geen]
+   \switchnaarkorps[14.4pt,ss] 
+   \definefont[temp][SansBold at 72pt] % \font\temp=cmssbx10 at 72pt 
+   \bgroup
+   \def\CONTEXT {Con\kern-.15em\TeX t}
+   \def\TEXUTIL {\TeX Util}
+   \def\PPCHTEX {PPCH\TeX}
+   \regellinks{\temp               \CONTEXT}            \vskip24pt
+   \doifelse{\Modulesubtitle}{}
+     {\regellinks{\bfd             \Moduletitle}        \vfill}   
+     {\regellinks{\bfd             \Modulesubtitle}     \vfill
+      \doifnot{\Moduletitle}{}
+        {\regellinks{\bf category: \Moduletitle}        \vskip6pt}}
+  %\regellinks{\bf        version: \Moduleversion}      \vskip6pt
+  %\regellinks{\bf           date: \Moduledate}         \vskip6pt
+   \regellinks{\bf         author: \Moduleauthor}       \vskip6pt
+   \regellinks{\bf           date: \currentdate}        \vskip6pt
+   \doifnot{\Modulesuggestions}{}
+     {\regellinks{\bs suggestions: \Modulesuggestions}  \vskip6pt}
+  %\regellinks{\bf      copyright: \Modulecopyright}    \par
+   \egroup
+   \stopstandaardopmaak
+   \ifx\ModuleNumber\undefined \else
+     \stelachtergrondenin[pagina][achtergrond=]
+   \fi}
+
+\let\stopdocumentation=\relax
+
+\def\startdocumentation%
+  {\bgroup
+   \doglobal\newcounter\NOfMarginLines
+   \def\stopdocumentation{\par\egroup}}
+
+\newif\ifcompressdefinitions
+
+\def\startcompressdefinitions {\global\compressdefinitionstrue}
+\def\stopcompressdefinitions  {\global\compressdefinitionsfalse}
+
+\gdef\CompressDefinitions%
+  {\ifcompressdefinitions
+     \switchnaarkorps[klein]%
+   \fi}
+
+\definieertypen
+  [definition]
+
+\steltypenin
+  [definition]  
+  [voor={\pagina[voorkeur]}\blanko\PresetParagraphNumber\CompressDefinitions,
+   na=\ResetParagraphNumber\blanko,
+   optie=\Moduletype]
+
+\definieertypen
+  [PL]
+  [optie=PL,
+   marge=standaard]
+
+\definieertypen
+  [JV]
+  [optie=JV,
+   marge=standaard]
+
+\definieertypen
+  [MP]
+  [optie=MP,
+   marge=standaard]
+
+\definieertypen
+  [TEX]
+  [optie=TEX,
+   marge=standaard]
+
+\steltypenin [typen]      [marge=standaard]
+\steltypenin [file]       [marge=standaard]
+\steltypenin [definition] [marge=0pt]
+
+\newcounter\NOfMarginLines
+\newcounter\ParagraphNumber
+
+\def\ResetParagraphNumber%
+  {\egroup}
+
+\def\PresetParagraphNumber%
+  {\bgroup
+   \xdef\NOfTextLines%
+     {\the\prevgraf}%
+   \doglobal\decrement\NOfMarginLines
+   \doglobal\increment\ParagraphNumber
+   \message{.}%
+   \gdef\ShowParagraphNumber%
+     {\llap{\slx\ParagraphNumber\hskip\linkermargeafstand}}%
+   \gdef\ShowParagraphNumberA%
+     {\ifnum\NOfMarginLines>\NOfTextLines\relax
+        \doglobal\increment\NOfTextLines
+      \else
+        \ShowParagraphNumber
+        \global\let\ShowParagraphNumberA=\relax
+        \global\let\ShowParagraphNumberB=\ShowParagraphNumber
+        \doglobal\newcounter\NOfMarginLines
+      \fi}%
+   \gdef\ShowParagraphNumberB%
+     {}%
+   \EveryLine
+     {\ShowParagraphNumberA}%
+   \EveryPar 
+     {\vadjust{\nobreak}%
+      \ShowParagraphNumberB}}
+
+\EveryPar % skip one 
+  {\EveryPar 
+     {\doglobal\newcounter\NOfMarginLines}}
+
+\def\dodomargeaanduidingen[#1]#2%
+  {\def\docommando##1%
+     {\indent\hbox
+        {\ifx#2\relax 
+           \index{##1}%
+         \else
+           \index{#2{##1}}%
+         \fi
+         #2{\doboundtext{##1}{\linkermargebreedte}{..}}}%
+       \doglobal\increment\NOfMarginLines
+       \endgraf}%
+   \processcommalist[#1]\docommando}
+
+\def\margeaanduidingen#1[#2]%
+  {\def\domargeaanduidingen##1##2%
+     {\margetitel[#2]%
+        {\switchnaarkorps[klein]%
+         \doglobal\newcounter\NOfMarginLines
+         \dodomargeaanduidingen[##1]#1%
+         \scratchcounter=\NOfMarginLines
+         \multiply\scratchcounter by 10
+         \divide\scratchcounter by 12
+         \advance\scratchcounter by 1
+         \xdef\NOfMarginLines{\the\scratchcounter}%
+         \processcommalist[##2]\index}}%
+   \dodoublegroupempty\domargeaanduidingen}
+
+\def\complexmacros%
+  {\margeaanduidingen\tex}
+
+\def\complexextras%
+  {\margeaanduidingen\relax}
+
+\definecomplexorsimpleempty\macros
+\definecomplexorsimpleempty\extras
+
+% \macros{a,b}        
+% \macros{a,b}{b}     
+% \macros[a]{a,b}{b}  
+
+\definieeralineas [interface] [n=2]
+\stelalineasin    [interface] [1] [breedte=4cm]
+
+\def\startvoorbeeld{\par\startsmaller}
+\def\stopvoorbeeld {\stopsmaller}
+
+\gdef\VisualizeLastSpace%
+  {\ifdim\lastskip>0pt\unskip\tttf\char32\fi}
+\gdef\ShowHeadText#1%
+  {\tttf#1\VL\headtext{#1}\VisualizeLastSpace}%
+\gdef\ShowLabelText#1%
+  {\tttf#1\VL\labeltext{#1}\VisualizeLastSpace}
+
+\startbuffer[lang-a]
+\starttabel[|l|l|]
+  \HL
+  \VL \bf head key  \VL \bf current value \VL\SR
+  \HL
+  \VL \ShowHeadText \v!afkortingen        \VL\FR
+  \VL \ShowHeadText \v!eenheden           \VL\MR
+  \VL \ShowHeadText \v!figuren            \VL\MR
+  \VL \ShowHeadText \v!grafieken          \VL\MR
+  \VL \ShowHeadText \v!index              \VL\MR
+  \VL \ShowHeadText \v!inhoud             \VL\MR
+  \VL \ShowHeadText \v!intermezzos        \VL\MR
+  \VL \ShowHeadText \v!logos              \VL\MR
+  \VL \ShowHeadText \v!tabellen           \VL\LR
+  \HL
+\stoptabel
+\stopbuffer
+
+\startbuffer[lang-b]
+\starttabel[|l|l|]
+  \HL
+  \VL \bf label key  \VL \bf current value      \VL\SR
+  \HL
+  \VL \ShowLabelText \v!tabel                   \VL\FR
+  \VL \ShowLabelText \v!figuur                  \VL\MR
+  \VL \ShowLabelText \v!intermezzo              \VL\MR
+  \VL \ShowLabelText \v!grafiek                 \VL\MR
+  \VL \ShowLabelText \v!hoofdstuk               \VL\MR
+  \VL \ShowLabelText \v!paragraaf               \VL\MR
+  \VL \ShowLabelText {\v!sub\v!paragraaf}       \VL\MR
+  \VL \ShowLabelText {\v!sub\v!sub\v!paragraaf} \VL\MR
+  \VL \ShowLabelText \v!bijlage                 \VL\MR
+  \VL \ShowLabelText \v!deel                    \VL\MR
+  \VL \ShowLabelText \v!regel                   \VL\MR
+  \VL \ShowLabelText \v!regels                  \VL\LR
+  \HL
+\stoptabel
+\stopbuffer
+
+\startbuffer[lang-c]
+\starttabel[|l|l|]
+  \HL
+  \VL \bf label key  \VL \bf current value \VL\SR
+  \HL
+  \VL \ShowLabelText \v!january            \VL\FR
+  \VL \ShowLabelText \v!february            \VL\MR
+  \VL \ShowLabelText \v!march              \VL\MR
+  \VL \ShowLabelText \v!april              \VL\MR
+  \VL \ShowLabelText \v!may                \VL\MR
+  \VL \ShowLabelText \v!june               \VL\MR
+  \VL \ShowLabelText \v!july               \VL\MR
+  \VL \ShowLabelText \v!august             \VL\MR
+  \VL \ShowLabelText \v!september          \VL\MR
+  \VL \ShowLabelText \v!october            \VL\MR
+  \VL \ShowLabelText \v!november           \VL\MR
+  \VL \ShowLabelText \v!december           \VL\LR
+  \HL
+\stoptabel
+\stopbuffer
+ 
+\startbuffer[lang-d]
+\starttabel[|l|l|]
+  \HL
+  \VL \bf label key  \VL \bf current value \VL\SR
+  \HL
+  \VL \ShowLabelText \v!sunday             \VL\FR
+  \VL \ShowLabelText \v!monday             \VL\MR
+  \VL \ShowLabelText \v!tuesday            \VL\MR
+  \VL \ShowLabelText \v!wednesday          \VL\MR
+  \VL \ShowLabelText \v!thursday           \VL\MR
+  \VL \ShowLabelText \v!friday             \VL\MR
+  \VL \ShowLabelText \v!saturday           \VL\MR
+  \HL
+\stoptabel
+\stopbuffer
+
+\gdef\ShowTextsValues [#1] [#2]
+  {\vbox\bgroup
+   \language[#1]%
+   \setbox0=\hbox to \hsize{\hss\bfb#2 language defaults\hss}
+   \dp0=0pt
+   \box0
+   \vskip1em
+   \hrule
+   \vskip2em
+   \halign
+     {\hss##\hss&##\hskip1em&\hss##\hss\cr
+      $\vcenter{\haalbuffer[lang-a]}$&&$\vcenter{\haalbuffer[lang-b]}$\cr
+      \noalign{\vskip1em}
+      $\vcenter{\haalbuffer[lang-c]}$&&$\vcenter{\haalbuffer[lang-d]}$\cr}%
+   \egroup}
+
+\gdef\ShowLanguageValues [#1] [#2] #3 #4
+  {\hbox to \hsize
+     {\hss
+      \vbox
+        \bgroup
+        \language[#1]%
+        \let\normalbar=|
+        \starttabel[||||]
+        \HL 
+        \VL \THREE{\bf subsentence symbol and quotes} \VL\SR
+        \HL
+        \VL \citaat{#3 #4} \VL \citeer{#2} \VL \let|=\normalbar |<||<|#3|>|#4|>| \VL\SR
+        \HL 
+        \stoptabel
+        \egroup
+      \hss}}
+  
+\gdef\doShowAllLanguageValues [#1] [#2] #3 #4
+  {\vbox 
+     {\ShowTextsValues [#1] [#2]
+      \vskip2em
+      \ShowLanguageValues  [#1] [#2] #3 #4 }
+   \protect
+   \pagina}
+
+\gdef\ShowAllLanguageValues%
+  {\pagina
+   \unprotect
+   \doShowAllLanguageValues}
+
+\protect
+
+%D Command references: 
+
+\input setupa
+\input setupb
+
+\def\showsetup%
+  {\doglobal\newcounter\CurrentArgument
+   \setup}
+
+\stelkadertekstenin
+  [setuptext]
+  [achtergrond=raster,
+   kader=uit]
+
+\endinput