Source Browser ?

1
%D \module
2
%D   [       file=metafun.mp,
3
%D        version=2000.07.15,
4
%D          title=\CONTEXT\ \METAPOST\ graphics,
5
%D       subtitle=format generation file,
6
%D         author=Hans Hagen,
7
%D           date=\currentdate,
8
%D      copyright={PRAGMA / Hans Hagen \& Ton Otten}]
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 First we input John Hobby's metapost plain file. However, because we want to
15
%D prevent dependency problems and in the end even may use a patched version,
16
%D we prefer to use a copy.
17
18
boolean
 
contextlmtxmode
 
;
 
contextlmtxmode
 
:
=
 
if
 
known
 
fontmaking
 
:
 
false
 
else
:
 
true
 
fi
;
19
20
prologues
 
:
=
 
0
 
;
 
% not used
21
mpprocset
 
:
=
 
1
 
;
 
% not used
22
23
input
 
"
mp-base.mpiv
"
 
;
24
input
 
"
mp-tool.mpiv
"
 
;
25
input
 
"
mp-mlib.mpiv
"
 
;
26
input
 
"
mp-luas.mpiv
"
 
;
27
input
 
"
mp-cont.mpiv
"
 
;
28
input
 
"
mp-page.mpiv
"
 
;
29
input
 
"
mp-butt.mpiv
"
 
;
30
input
 
"
mp-shap.mpiv
"
 
;
31
input
 
"
mp-grph.mpiv
"
 
;
32
input
 
"
mp-grid.mpiv
"
 
;
33
input
 
"
mp-form.mpiv
"
 
;
34
input
 
"
mp-figs.mpiv
"
 
;
35
input
 
"
mp-func.mpiv
"
 
;
36
input
 
"
mp-node.mpiv
"
 
;
37
input
 
"
mp-apos.mpiv
"
 
;
38
input
 
"
mp-abck.mpiv
"
 
;
39
input
 
"
mp-blob.mpiv
"
 
;
40
41
string
 
metafunversion
 
;
 
metafunversion
 
=
 
"
metafun iv 
"
 
&
 
mfun_timestamp
;
42
43
let
 
normalend
 
=
 
end
 
;
44
45
if
 
known
 
mplib
 
:
46    
def
 
end
 
=
 
;
 
message
 
"
"
 
;
 
message
 
metafunversion
 
;
 
message
 
"
"
 
;
 
endinput
  
;
 
enddef
 
;
47    
def
 
bye
 
=
 
;
 
message
 
"
"
 
;
 
message
 
metafunversion
 
;
 
message
 
"
"
 
;
 
endinput
  
;
 
enddef
 
;
48
else
 
:
49    
def
 
end
 
=
 
;
 
message
 
"
"
 
;
 
message
 
metafunversion
 
;
 
message
 
"
"
 
;
 
normalend
 
;
 
enddef
 
;
50
fi
 
;
51