1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17def primitive = setproperty 1 : enddef;
18def permanent = setproperty 2 : enddef;
19def immutable = setproperty 3 : enddef;
20def frozen = setproperty 4 : enddef;
21def mutable = setproperty -3 : enddef;
22
23permanent permanent, immutable, mutable, primitive, frozen ;
24
25newinternal boolean contextlmtxmode ; contextlmtxmode := true ; immutable contextlmtxmode ;
26
27input "mp-base.mpxl" ;
28input "mp-tool.mpxl" ;
29input "mp-luas.mpxl" ;
30input "mp-mlib.mpxl" ;
31input "mp-math.mpxl" ;
32input "mp-cont.mpxl" ;
33input "mp-page.mpxl" ;
34
35newinternal string minifunversion ; minifunversion := "minifun xl " & mfun_timestamp;
36
37let normalend = end ;
38
39def end = ; message "" ; message minifunversion ; message "" ; endinput ; enddef ;
40def bye = ; message "" ; message minifunversion ; message "" ; endinput ; enddef ;
41 |