From 1319dbd05208684a4d33711cb2cfdda29f7b5b8c Mon Sep 17 00:00:00 2001 From: Hans Hagen Date: Fri, 17 Sep 2004 00:00:00 +0200 Subject: stable 2004.09.17 --- tex/generic/context/ppchtex.noc | 117 ++++++++++++++++++++-------------------- 1 file changed, 57 insertions(+), 60 deletions(-) (limited to 'tex/generic') diff --git a/tex/generic/context/ppchtex.noc b/tex/generic/context/ppchtex.noc index 12cc676af..4ae710279 100644 --- a/tex/generic/context/ppchtex.noc +++ b/tex/generic/context/ppchtex.noc @@ -9,38 +9,37 @@ %D suggestions={Tobias Burnus, Dirk Kuypers \& Ton Otten}] %C %C This module is part of the \CONTEXT\ macro||package and is -%C therefore copyrighted by \PRAGMA. See licen-en.pdf for -%C details. - -%D This module facilitates the use of \PPCHTEX\ in macro -%D packages other than \CONTEXT. One of the features of -%D \CONTEXT\ is that the user interface can be in any -%D language. This language is defined at loading time. -%D -%D This module is indeed a surrogate one and is only a poor -%D man's alternative to the more extensive \type{mult-***} -%D modules of \CONTEXT. The extra overhead in terms of macros -%D and functionality that these modules offer is only useful -%D in \CONTEXT. -%D -%D Two interfaces are supported here, but others can easily be +%C therefore copyrighted by \PRAGMA. See licen-en.pdf for +%C details. + +%D This module facilitates the use of \PPCHTEX\ in macro +%D packages other than \CONTEXT. One of the features of +%D \CONTEXT\ is that the user interface can be in any +%D language. This language is defined at loading time. +%D +%D This module is indeed a surrogate one and is only a poor +%D man's alternative to the more extensive \type{mult-***} +%D modules of \CONTEXT. The extra overhead in terms of macros +%D and functionality that these modules offer is only useful +%D in \CONTEXT. +%D +%D Two interfaces are supported here, but others can easily be %D defined. This module expects the general system macros to be -%D loaded as wel as a interface switch \type{\ifalternativeinterface} -%D to be set. +%D loaded as wel as a interface switch \type{\ifalternativeinterface} +%D to be set. %D First we load some auxiliary macro's: \input supp-mis.tex \let\writestatus\undefined -\input syst-gen.tex +\input syst-gen.tex -%D after which we can go on with: +%D after which we can go on with: \unprotect -%D 0 = english -%D 1 = dutch -%D 2 = german -%D 3 = czech (not yet implemented here) +%D 0 = english +%D 1 = dutch +%D 2 = german \ifx\interfacenumber\undefined \chardef\interfacenumber=0 @@ -52,40 +51,40 @@ \def\definesystemconstant #1 % {\setvalue{s!#1}{#1}} -\def\definevariable #1 #2 #3 % +\def\definevariable #1 #2 #3 % en nl de {\ifcase\interfacenumber - \setvalue{v!#2}{#1} + \setvalue{v!#1}{#1} \or - \setvalue{v!#2}{#2} + \setvalue{v!#1}{#2} \or - \setvalue{v!#2}{#3} + \setvalue{v!#1}{#3} \fi} -\def\defineconstant #1 #2 #3 % +\def\defineconstant #1 #2 #3 % en nl de {\ifcase\interfacenumber - \setvalue{c!#2}{#2} \setvalue{c!#1}{#2} - \or \setvalue{c!#2}{#2} \or - \setvalue{c!#2}{#2} + \setvalue{c!#1}{#2} + \or + \setvalue{c!#1}{#2} \setvalue{c!#3}{#2} \fi} \def\definecommand #1 #2 #3 % {\ifcase\interfacenumber - % core commands are english + % core commands are english \or \doifnot{#1}{#2}{\setvalue{#2}{\getvalue{#1}}} \or \doifnot{#1}{#3}{\setvalue{#3}{\getvalue{#1}}} \fi} -\long\def\startcommands#1\stopcommands% +\long\def\startcommands#1\stopcommands {} \def\dosetvalue#1#2#3% - {\p!doifundefined{\c!prefix!#2}% + {\p!doifundefined{\c!prefix!#2}% \let\donottest=\doprocesstest \@EA\def\csname#1#2\endcsname{#3}% \else @@ -124,7 +123,7 @@ \defineconstant width breedte breite \defineconstant size formaat groesse \defineconstant number getal nummer -\defineconstant height hoogte hoehe +\defineconstant height hoogte hoehe \defineconstant frame kader rahmen %defineconstant framecolor kaderkleur rahmenfarbe \defineconstant color kleur farbe @@ -132,24 +131,24 @@ \defineconstant style letter schriftstil \defineconstant rulethickness lijndikte liniendicke \defineconstant rulecolor lijnkleur linienfarbe -\defineconstant left links links +\defineconstant left links links \defineconstant offset offset offset \defineconstant bottom onder unten \defineconstant option optie option \defineconstant location plaats platz \defineconstant right rechts rechts \defineconstant resolution resolutie aufloesung -\defineconstant scale schaal format +\defineconstant scale schaal format \defineconstant status status status \defineconstant text tekst text \defineconstant textcolor tekstkleur tekstfarbe -\defineconstant textsize tekstformaat textgroesse +\defineconstant textsize tekstformaat textgroesse \defineconstant alternative variant alternative \defineconstant x x x \defineconstant y y y \definevariable on aan an -\definevariable big groot gross +\definevariable big groot gross \definevariable intext intekst imtext \definevariable small klein klein \definevariable medium middel mittel @@ -159,53 +158,51 @@ \definevariable test test test \definevariable off uit aus -\definecommand definechemical definieerchemie definierechemie -\definecommand setupchemical stelchemiein stellechemieein -\definecommand chemical chemie chemie -\definecommand tochemical naarchemie zurchemie -\definecommand startchemical startchemie startchemie -\definecommand stopchemical stopchemie stopchemie -\definecommand toptext boventekst textueber +\definecommand definechemical definieerchemie definierechemie +\definecommand setupchemical stelchemiein stellechemieein +\definecommand chemical chemie chemie +\definecommand tochemical naarchemie zurchemie +\definecommand startchemical startchemie startchemie +\definecommand stopchemical stopchemie stopchemie +\definecommand toptext boventekst textueber \definecommand bottext ondertekst textunter \definecommand midtext middentekst textmitte \protect -%D After those definitions we actually load \PPCHTEX: +%D After those definitions we actually load \PPCHTEX: \input ppchtex.tex -%D We also change some setup values. Let's hope that the next -%D setups forever suits \LATEX. +%D We also change some setup values. Let's hope that the next +%D setups forever suits \LATEX. \unprotect \ifx\bodyfontsize\undefined \ifx\f@size\undefined \ifx\@ptsize\undefined - \setupchemical[\c!korps=11pt] + \setupchemical[\c!bodyfont=11pt] \else - \setupchemical[\c!korps=1\@ptsize pt] + \setupchemical[\c!bodyfont=1\@ptsize pt] \fi \else - \setupchemical[\c!korps=\f@size pt] + \setupchemical[\c!bodyfont=\f@size pt] \fi \else - \setupchemical[\c!korps=\bodyfontsize] + \setupchemical[\c!bodyfont=\bodyfontsize] \fi \ifx\mathrm\undefined - \setupchemical[\c!letter=\rm] + \setupchemical[\c!style=\rm] \else - \setupchemical[\c!letter=\mathrm] + \setupchemical[\c!style=\mathrm] \fi \ifx\outputresolution\undefined - \setupchemical[\c!resolutie=300] + \setupchemical[\c!resolution=300] \else - \setupchemical[\c!resolutie=\outputresolution] + \setupchemical[\c!resolution=\outputresolution] \fi -\protect - -\endinput +\protect \endinput -- cgit v1.2.3