From 8e96ca083471a730df14fb680fb72ce9302dd84a Mon Sep 17 00:00:00 2001 From: Akira Kakuto Date: Fri, 2 Dec 2016 23:00:22 +0000 Subject: mplibdir: sync with the upstream: introduce restricted mode git-svn-id: svn://tug.org/texlive/trunk@42625 c570f23f-e606-0410-a88d-b1316a301751 --- Build/source/texk/web2c/pmpostdir/ChangeLog | 4 ++++ Build/source/texk/web2c/pmpostdir/pmpost.ch | 19 ++++++++++++------- 2 files changed, 16 insertions(+), 7 deletions(-) (limited to 'Build/source/texk/web2c/pmpostdir') 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 + + * pmpost.ch: Adapt to the restricted mode in the latest mpost.w. + 2016-03-06 Akira Kakuto * 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 @@ -243,6 +243,12 @@ else #endif @z +@x + if (FILESTRCASEEQ(base, "rmpost")){ +@y + if (FILESTRCASEEQ(base, "r" P_UP "mpost")){ +@z + @x if (FILESTRCASEEQ(base, "dvitomp")) @y @@ -270,13 +276,12 @@ else if (dvitomp_only) { @; } 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 -- cgit v1.2.3