summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/pmpostdir
diff options
context:
space:
mode:
authorAkira Kakuto <kakuto@fuk.kindai.ac.jp>2016-12-02 23:00:22 +0000
committerAkira Kakuto <kakuto@fuk.kindai.ac.jp>2016-12-02 23:00:22 +0000
commit8e96ca083471a730df14fb680fb72ce9302dd84a (patch)
tree2ff222275f7c9381a06d8164deb91fbababbc4f1 /Build/source/texk/web2c/pmpostdir
parent457a8e33ef7c5bb33b3d68f9aec793f92916ca69 (diff)
mplibdir: sync with the upstream: introduce restricted mode
git-svn-id: svn://tug.org/texlive/trunk@42625 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/pmpostdir')
-rw-r--r--Build/source/texk/web2c/pmpostdir/ChangeLog4
-rw-r--r--Build/source/texk/web2c/pmpostdir/pmpost.ch19
2 files changed, 16 insertions, 7 deletions
diff --git a/Build/source/texk/web2c/pmpostdir/ChangeLog b/Build/source/texk/web2c/pmpostdir/ChangeLog
index d666e5734c5..37f3c87234c 100644
--- a/Build/source/texk/web2c/pmpostdir/ChangeLog
+++ b/Build/source/texk/web2c/pmpostdir/ChangeLog
@@ -1,3 +1,7 @@
+2016-12-02 Akira Kakuto <kakuto@fuk.kindai.ac.jp>
+
+ * pmpost.ch: Adapt to the restricted mode in the latest mpost.w.
+
2016-03-06 Akira Kakuto <kakuto@fuk.kindai.ac.jp>
* pmp.ch: Adapt to MetaPost 1.9991.
diff --git a/Build/source/texk/web2c/pmpostdir/pmpost.ch b/Build/source/texk/web2c/pmpostdir/pmpost.ch
index 9e1bb4d43a4..a7add6f26fe 100644
--- a/Build/source/texk/web2c/pmpostdir/pmpost.ch
+++ b/Build/source/texk/web2c/pmpostdir/pmpost.ch
@@ -244,6 +244,12 @@ else
@z
@x
+ if (FILESTRCASEEQ(base, "rmpost")){
+@y
+ if (FILESTRCASEEQ(base, "r" P_UP "mpost")){
+@z
+
+@x
if (FILESTRCASEEQ(base, "dvitomp"))
@y
if (FILESTRCASEEQ(base, P_UP "dvitomp"))
@@ -270,13 +276,12 @@ else
if (dvitomp_only) {
@<Read and set dvitomp command line options@>;
} else {
-#ifdef WIN32
- options->mem_name =
- strlwr(kpse_program_basename(argv[0]));
-#else
- options->mem_name =
- kpse_program_basename(argv[0]);
-#endif
+@z
+
+@x
+ if (FILESTRCASEEQ(kpse_program_name, "rmpost"))
+@y
+ if (FILESTRCASEEQ(kpse_program_name, "r" P_UP "mpost"))
@z
@x