From 1873d112b56f49e40ece29916ede51933412bca8 Mon Sep 17 00:00:00 2001
From: Hans Hagen <pragma@wxs.nl>
Date: Wed, 31 Jul 2019 18:26:52 +0200
Subject: 2019-07-31 18:13:00

---
 metapost/context/base/mpiv/metafun.mpiv | 37 ++++++++++-----------------------
 1 file changed, 11 insertions(+), 26 deletions(-)

(limited to 'metapost/context/base/mpiv/metafun.mpiv')

diff --git a/metapost/context/base/mpiv/metafun.mpiv b/metapost/context/base/mpiv/metafun.mpiv
index 5a47280c4..346642cac 100644
--- a/metapost/context/base/mpiv/metafun.mpiv
+++ b/metapost/context/base/mpiv/metafun.mpiv
@@ -23,34 +23,21 @@ mpprocset := 1 ; % not used
 input "mp-base.mpiv" ;
 input "mp-tool.mpiv" ;
 input "mp-mlib.mpiv" ;
-%     "mp-core.mpiv" ; % todo: namespace and cleanup
-input "mp-luas.mpiv" ; % experimental
-input "mp-page.mpiv" ; % todo: namespace and cleanup
-input "mp-butt.mpiv" ; % todo: namespace and cleanup
-input "mp-shap.mpiv" ; % will be improved
-input "mp-grph.mpiv" ; % todo: namespace and cleanup
-input "mp-grid.mpiv" ; % todo: namespace and cleanup
-input "mp-form.mpiv" ; % under (re)construction
-input "mp-figs.mpiv" ; % obsolete, needs checking
-input "mp-func.mpiv" ; % under construction
-%     "mp-text.mpiv" ; % loaded on demand
-%     "mp-char.mpiv" ; % loaded on demand
-%     "mp-step.mpiv" ; % loaded on demand
-%     "mp-chem.mpiv" ; % loaded on demand
-input "mp-node.mpiv" ; % relatively small so preloaded
+input "mp-luas.mpiv" ;
+input "mp-page.mpiv" ;
+input "mp-butt.mpiv" ;
+input "mp-shap.mpiv" ;
+input "mp-grph.mpiv" ;
+input "mp-grid.mpiv" ;
+input "mp-form.mpiv" ;
+input "mp-figs.mpiv" ;
+input "mp-func.mpiv" ;
+input "mp-node.mpiv" ;
 input "mp-apos.mpiv" ;
 input "mp-abck.mpiv" ;
 input "mp-blob.mpiv" ;
 
-string metafunversion ; metafunversion =
-    "metafun iv"                        & " " &
-    decimal year                        & "-" &
-    decimal month                       & "-" &
-    decimal day                         & " " &
-    if ((time div 60) < 10)           :   "0" & fi
-    decimal (time div 60)               & ":" &
-    if ((time-(time div 60)*60) < 10) :   "0" & fi
-    decimal (time-(time div 60)*60)   ;
+string metafunversion ; metafunversion = "metafun iv " & mfun_timestamp;
 
 let normalend = end ;
 
@@ -60,5 +47,3 @@ if known mplib :
 else :
     def end = ; message "" ; message metafunversion ; message "" ; normalend ; enddef ;
 fi ;
-
-% dump ; % obsolete in mplib
-- 
cgit v1.2.3