blob: da620fa7e7d73671654fd9a5bcd6e5d4b7ce1d2e (
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
|
%D \module
%D [ file=syst-omg,
%D version=2000.09.09,
%D title=\CONTEXT\ System Macros,
%D subtitle=A couple of Omega goodies,
%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 will become obsolete as soon as Omega
%D supports \ETEX\ functionality.
\ifx\OmegaVersion\undefined \endinput \fi
% \def\newcount {\myalloc@0\count \countdef \@@maxallocation}
% \def\newdimen {\myalloc@1\dimen \dimendef \@@maxallocation}
% \def\newskip {\myalloc@2\skip \skipdef \@@maxallocation}
% \def\newmuskip {\myalloc@3\muskip \muskipdef \@@maxallocation}
% \def\newbox {\myalloc@4\box \mathchardef\@@maxallocation}
% \def\newtoks {\myalloc@5\toks \toksdef \@@maxallocation}
% \def\newread {\myalloc@6\read \chardef \@@minallocation}
% \def\newwrite {\myalloc@7\write \chardef \@@minallocation}
% \def\newmarks {\myalloc@8\marks \mathchardef\@@maxallocation}
% \def\newlanguage{\myalloc@9\language\chardef \@@minallocation}
%
% \def\newfam#1{\chardef#1=15 }
%
% \count18=1
%
% \mathchardef\@@minallocation= 16
% \mathchardef\@@medallocation= 256
% \mathchardef\@@maxallocation=32767
% \chardef \@@insallocation= 8
%
% \def\myalloc@#1#2#3#4#5%
% {\global\advance\count1#1by\@ne
% \ifnum\count1#1>\@@medallocation \else
% \global\advance\insc@unt by -\@@insallocation
% \ifnum\count1#1<\insc@unt \else
% \global\count1#1=\@@medallocation % \wait
% \fi
% \global\advance\insc@unt by +\@@insallocation
% \fi
% \ifnum\count1#1>#4%
% \global\count1#1=#4%
% \errmessage{No room for (\string#2) \string#5}%
% \fi
% \allocationnumber=\count1#1%
% \global#3#5=\allocationnumber
% \wlog{\string#5=\string#2\the\allocationnumber}}
\unprotect
\def\newcount {\myalloc@0\count \countdef \@@maxallocation}
\def\newdimen {\myalloc@1\dimen \dimendef \@@maxallocation}
\def\newskip {\myalloc@2\skip \skipdef \@@maxallocation}
\def\newmuskip {\myalloc@3\muskip \muskipdef \@@maxallocation}
\def\newbox {\myalloc@4\box \mathchardef\@@maxallocation}
\def\newtoks {\myalloc@5\toks \toksdef \@@maxallocation}
\def\newread {\myalloc@6\read \chardef \@@minallocation}
\def\newwrite {\myalloc@7\write \chardef \@@minallocation}
\def\newmarks {\myalloc@8\marks \mathchardef\@@maxallocation}
\def\newlanguage{\myalloc@9\language\chardef \@@minallocation}
\def\newfam#1{\chardef#1=15 }
\count18=1
\mathchardef\@@minallocation = 16
\mathchardef\@@medallocation = 256
\mathchardef\@@maxallocation = 32767
\chardef\@@insallocation=24
\def\myalloc@#1#2#3#4#5%
{\global\advance\count1#1by\@ne
\ifnum\count1#1>\@@medallocation \else
\global\advance\insc@unt by -\@@insallocation
\ifnum\count1#1<\insc@unt \else
\global\count1#1=\@@medallocation % \wait
\fi
\global\advance\insc@unt by +\@@insallocation
\fi
\ifnum\count1#1>#4%
\global\count1#1=#4%
\errmessage{No room for (\string#2) \string#5}%
\fi
\allocationnumber=\count1#1%
\global#3#5=\allocationnumber
\wlog{\string#5=\string#2\the\allocationnumber}}
%D We need to catch a (rather crappy) automatic OMEGA
%D mechanism. Unfortunately loading of the SGML vectors
%D happens automatically without control over the regime
%D under which it takes place.
\ifx\SGMLFontEntity\undefined \else
\let\normalSGMLFontEntity\SGMLFontEntity
\def\SGMLFontEntity#1#2#3#4#5%
{\convertargument#3\to\ascii
\ExpandBothAfter\doifinstringelse{\letterbackslash}{\ascii}
{\normalSGMLFontEntity{#1}{#2}{#3}{#4}{#5}}
{\normalSGMLFontEntity{#1}{#2}{\string#3}{#4}{#5}}}
\fi
\protect \endinput
|
