blob: 5c7c9a8f61ae0319ece070cb559d242fb8b5e7ee (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
|
%D \module
%D [ file=xtag-pmu,
%D version=2001.06.10,
%D title=\CONTEXT\ XML Macros,
%D subtitle=Units,
%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 XML Macros / Units}
%D Quick and dirty in||line units:
%D
%D \startbuffer
%D <phys>
%D <cn> 10 </cn>
%D <cu> <Newton/> <Square/> <Meter/> <Per/> <Sec/> </cu>
%D </phys>
%D \stopbuffer
%D
%D \typebuffer \processXMLbuffer
%D
%D A more \MATHML||like unit application:
%D
%D \startbuffer
%D <phys> <apply> <unit/>
%D <cn> 10 </cn>
%D <csymbol> <Square/> <Meter/> <Per/> <Sec/> </csymbol>
%D </apply> </phys>
%D \stopbuffer
%D
%D \typebuffer \processXMLbuffer
%D
%D A bit more compact:
%D
%D \startbuffer
%D <phys> <apply> <unit/>
%D <cn> 10 </cn>
%D <cu> <Square/> <Meter/> <Per/> <Sec/> </cu>
%D </apply> </phys>
%D \stopbuffer
%D
%D \typebuffer \processXMLbuffer
%D
%D A bit more complicated:
%D
%D \startbuffer
%D <phys> <apply> <unit/>
%D <apply> <divide/> <ci> a </ci> <cn> 10 </cn> </apply>
%D <cu> <Square/> <Meter/> <Per/> <Sec/> </cu>
%D </apply> </phys>
%D \stopbuffer
%D
%D \typebuffer \processXMLbuffer
%D
%D An alternative (equivalent) for \type {</cu>}:
%D
%D \startbuffer
%D <phys> <apply> <unit/>
%D <cn> 10 </cn> <cunseq> <Square/> <Meter/> <Per/> <Sec/> </cunseq>
%D </apply> </phys>
%D \stopbuffer
%D
%D \typebuffer \processXMLbuffer
\defineXMLsingular [unitmeaning] [label=] \doPMLunitmeaning
\def\doPMLunitmeaning
{\expanded{\unitmeaning{\XMLop{label}}}}
\startXMLmapping [mml]
\remapXMLsequence [unit] [CPA] \doPMLuseq
\remapXMLsingular [unit] [CPA] \doPMLunit % #2\empty
\remapXMLsequence [cunseq] [CPA] \doPMLuseq % #2
\remapXMLsequence [cu] [CPA] \doPMLuseq % #2
\newif\ifPMLunit \PMLunittrue
\def\doPMLuseq#1#2{\PMLunittrue\ignorespaces#2\unskip\PMLunitfalse}
\def\doPMLunit#1#2\empty{\ignorespaces#2\unskip}
\def\handlePMLunit#1{\ifPMLunit\ignorespaces#1\fi\ignorespaces}
%D All unit commands are remapped in a similar way.
\remapXMLsingular [Atto] [C] {\handlePMLunit\Atto}
\remapXMLsingular [Femto] [C] {\handlePMLunit\Femto}
\remapXMLsingular [Pico] [C] {\handlePMLunit\Pico}
\remapXMLsingular [Nano] [C] {\handlePMLunit\Nano}
\remapXMLsingular [Micro] [C] {\handlePMLunit\Micro}
\remapXMLsingular [Milli] [C] {\handlePMLunit\Milli}
\remapXMLsingular [Centi] [C] {\handlePMLunit\Centi}
\remapXMLsingular [Deci] [C] {\handlePMLunit\Deci}
\remapXMLsingular [Hecto] [C] {\handlePMLunit\Hecto}
\remapXMLsingular [Kilo] [C] {\handlePMLunit\Kilo}
\remapXMLsingular [Mega] [C] {\handlePMLunit\Mega}
\remapXMLsingular [Giga] [C] {\handlePMLunit\Giga}
\remapXMLsingular [Terra] [C] {\handlePMLunit\Terra}
\remapXMLsingular [Peta] [C] {\handlePMLunit\Peta}
\remapXMLsingular [Exa] [C] {\handlePMLunit\Exa}
\remapXMLsingular [Times] [C] {\handlePMLunit\Times}
\remapXMLsingular [Solidus] [C] {\handlePMLunit\Solidus}
\remapXMLsingular [Per] [C] {\handlePMLunit\Per}
\remapXMLsingular [OutOf] [C] {\handlePMLunit\OutOf}
\remapXMLsingular [Linear] [C] {\handlePMLunit\Linear}
\remapXMLsingular [Square] [C] {\handlePMLunit\Square}
\remapXMLsingular [Cubic] [C] {\handlePMLunit\Cubic}
\remapXMLsingular [Inverse] [C] {\handlePMLunit\Inverse}
\remapXMLsingular [Degrees] [C] {\handlePMLunit\Degrees}
\remapXMLsingular [Meter] [C] {\handlePMLunit\Meter}
\remapXMLsingular [Liter] [C] {\handlePMLunit\Liter}
\remapXMLsingular [Sec] [C] {\handlePMLunit\Sec}
\remapXMLsingular [Year] [C] {\handlePMLunit\Year}
\remapXMLsingular [Month] [C] {\handlePMLunit\Month}
\remapXMLsingular [Week] [C] {\handlePMLunit\Week}
\remapXMLsingular [Day] [C] {\handlePMLunit\Day}
\remapXMLsingular [Hour] [C] {\handlePMLunit\Hour}
\remapXMLsingular [Min] [C] {\handlePMLunit\Min}
\remapXMLsingular [Second] [C] {\handlePMLunit\Sec}
\remapXMLsingular [Rad] [C] {\handlePMLunit\Rad}
\remapXMLsingular [Deg] [C] {\handlePMLunit\Deg}
\remapXMLsingular [Hertz] [C] {\handlePMLunit\Hertz}
\remapXMLsingular [RevPerSec] [C] {\handlePMLunit\RevPerSec}
\remapXMLsingular [RevPerMin] [C] {\handlePMLunit\RevPerMin}
\remapXMLsingular [Gram] [C] {\handlePMLunit\Gram}
\remapXMLsingular [Atom] [C] {\handlePMLunit\Atom}
\remapXMLsingular [Newton] [C] {\handlePMLunit\Newton}
\remapXMLsingular [Pascal] [C] {\handlePMLunit\Pascal}
\remapXMLsingular [Joule] [C] {\handlePMLunit\Joule}
\remapXMLsingular [Watt] [C] {\handlePMLunit\Watt}
\remapXMLsingular [Celsius] [C] {\handlePMLunit\Celsius}
\remapXMLsingular [Kelvin] [C] {\handlePMLunit\Kelvin}
\remapXMLsingular [Fahrenheit] [C] {\handlePMLunit\Fahrenheit}
\remapXMLsingular [Mol] [C] {\handlePMLunit\Mol}
\remapXMLsingular [Molair] [C] {\handlePMLunit\Molair}
\remapXMLsingular [Equivalent] [C] {\handlePMLunit\Equivalent}
\remapXMLsingular [Farad] [C] {\handlePMLunit\Farad}
\remapXMLsingular [Ohm] [C] {\handlePMLunit\Ohm}
\remapXMLsingular [Siemens] [C] {\handlePMLunit\Siemens}
\remapXMLsingular [Ampere] [C] {\handlePMLunit\Ampere}
\remapXMLsingular [Coulomb] [C] {\handlePMLunit\Coulomb}
\remapXMLsingular [Volt] [C] {\handlePMLunit\Volt}
\remapXMLsingular [eVolt] [C] {\handlePMLunit\eVolt}
\remapXMLsingular [Tesla] [C] {\handlePMLunit\Tesla}
\remapXMLsingular [VoltAC] [C] {\handlePMLunit\VoltAC}
\remapXMLsingular [VoltDC] [C] {\handlePMLunit\VoltDC}
\remapXMLsingular [Baud] [C] {\handlePMLunit\Baud}
\remapXMLsingular [Bit] [C] {\handlePMLunit\Bit}
\remapXMLsingular [Byte] [C] {\handlePMLunit\Byte}
\remapXMLsingular [Bequerel] [C] {\handlePMLunit\Bequerel}
\remapXMLsingular [Sievert] [C] {\handlePMLunit\Sievert}
\remapXMLsingular [Candela] [C] {\handlePMLunit\Candela}
\remapXMLsingular [Bell] [C] {\handlePMLunit\Bell}
\remapXMLsingular [At] [C] {\handlePMLunit\At}
\remapXMLsingular [Atm] [C] {\handlePMLunit\Atm}
\remapXMLsingular [Bar] [C] {\handlePMLunit\Bar}
\remapXMLsingular [EVolt] [C] {\handlePMLunit\EVolt}
\remapXMLsingular [Foot] [C] {\handlePMLunit\Foot}
\remapXMLsingular [Inch] [C] {\handlePMLunit\Inch}
\remapXMLsingular [Cal] [C] {\handlePMLunit\Cal}
\remapXMLsingular [Force] [C] {\handlePMLunit\Force}
\remapXMLsingular [Lux] [C] {\handlePMLunit\Lux}
\remapXMLsingular [Gray] [C] {\handlePMLunit\Gray}
\remapXMLsingular [Weber] [C] {\handlePMLunit\Weber}
\remapXMLsingular [Henry] [C] {\handlePMLunit\Henry}
\remapXMLsingular [Sterant] [C] {\handlePMLunit\Sterant}
\remapXMLsingular [Angstrom] [C] {\handlePMLunit\Angstrom}
\remapXMLsingular [Gauss] [C] {\handlePMLunit\Gauss}
\remapXMLsingular [Percent] [C] {\handlePMLunit\Percent}
\remapXMLsingular [Promille] [C] {\handlePMLunit\Promille}
\remapXMLsingular [Permille] [C] {\handlePMLunit\Permille}
\remapXMLsingular [Unit] [C] {\handlePMLunit\Unit}
\remapXMLsingular [NoUnit] [C] {\handlePMLunit\NoUnit}
\stopXMLmapping
\endinput
|
