Source Browser ?

1%D \module
2%D   [       file=m-mathcrap,
3%D        version=2010.05.30,
4%D          title=\CONTEXT\ Modules,
5%D       subtitle=Math Crap,
6%D         author=Hans Hagen,
7%D           date=\currentdate,
8%D      copyright={PRAGMA ADE \& \CONTEXT\ Development Team}]
9%C
10%C This module is part of the \CONTEXT\ macro||package and is
11%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
12%C details.
13
14%D This is meant for those who want to use the (incomplete and sort of useless)
15%D unicode superscripts and subscripts. We should look ahead and collapse them
16%D but I will only implement that in calcmath when the need is there. Now the
17%D spacing can be somewhat non optimal but probably that does not matter here.
18%D
19%D \startbuffer
20%D $a₀₁₂₃₄₅₆₇₈₉₋₌₊$
21%D \stopbuffer
22%D
23%D \typebuffer \blank \getbuffer \blank
24
25\unprotect
26
27\unexpanded\def\mathunicodesupercrap#1{\mathortext{{\normalsuperscript{#1}}}{\high{#1}}}
\unexpanded\def\mathunicodesubcrap  #1{\mathortext{{\normalsubscript  {#1}}}{\low {#1}}}
29
30\ifdefined\installanddefineactivecharacter\else
31
32    \def\installanddefineactivecharacter #1 #2% we need this as command
33      {\normalexpanded{\noexpand\installactivecharacter \utfchar{#1} }%
34       \defineactivecharacter #1 {#2}}
35
36\fi
37
38\installanddefineactivecharacter "2070 {\mathunicodesupercrap 0}
39\installanddefineactivecharacter "00B9 {\mathunicodesupercrap 1}
40\installanddefineactivecharacter "00B2 {\mathunicodesupercrap 2}
41\installanddefineactivecharacter "00B3 {\mathunicodesupercrap 3}
42\installanddefineactivecharacter "2074 {\mathunicodesupercrap 4}
43\installanddefineactivecharacter "2075 {\mathunicodesupercrap 5}
44\installanddefineactivecharacter "2076 {\mathunicodesupercrap 6}
45\installanddefineactivecharacter "2077 {\mathunicodesupercrap 7}
46\installanddefineactivecharacter "2078 {\mathunicodesupercrap 8}
47\installanddefineactivecharacter "2079 {\mathunicodesupercrap 9}
48\installanddefineactivecharacter "207A {\mathunicodesupercrap +}
49\installanddefineactivecharacter "207B {\mathunicodesupercrap -}
50\installanddefineactivecharacter "207C {\mathunicodesupercrap =}
51\installanddefineactivecharacter "207D {\mathunicodesupercrap (}
52\installanddefineactivecharacter "207E {\mathunicodesupercrap )}
53\installanddefineactivecharacter "207F {\mathunicodesupercrap n}
54
\installanddefineactivecharacter "2080 {\mathunicodesubcrap   0}
\installanddefineactivecharacter "2081 {\mathunicodesubcrap   1}
\installanddefineactivecharacter "2082 {\mathunicodesubcrap   2}
\installanddefineactivecharacter "2083 {\mathunicodesubcrap   3}
\installanddefineactivecharacter "2084 {\mathunicodesubcrap   4}
\installanddefineactivecharacter "2085 {\mathunicodesubcrap   5}
\installanddefineactivecharacter "2086 {\mathunicodesubcrap   6}
\installanddefineactivecharacter "2087 {\mathunicodesubcrap   7}
\installanddefineactivecharacter "2088 {\mathunicodesubcrap   8}
\installanddefineactivecharacter "2089 {\mathunicodesubcrap   9}
\installanddefineactivecharacter "208A {\mathunicodesubcrap   +}
\installanddefineactivecharacter "208B {\mathunicodesubcrap   -}
\installanddefineactivecharacter "208C {\mathunicodesubcrap   =}
\installanddefineactivecharacter "208D {\mathunicodesubcrap   (}
\installanddefineactivecharacter "208E {\mathunicodesubcrap   )}
\installanddefineactivecharacter "2090 {\mathunicodesubcrap   A}
\installanddefineactivecharacter "2091 {\mathunicodesubcrap   E}
\installanddefineactivecharacter "2092 {\mathunicodesubcrap   O}
\installanddefineactivecharacter "2093 {\mathunicodesubcrap   X}
74%installanddefineactivecharacter "2094 {\mathunicodesubcrap   ?} % SCHWAA
75
76\protect \endinput
77