/.shellarguments as well as /shellarguments, for gs 9.27

git-svn-id: svn://tug.org/texlive/trunk@50767 c570f23f-e606-0410-a88d-b1316a301751

2 files changed, 29 insertions, 5 deletions

diff --git a/Build/source/texk/gsftopk/ChangeLog b/Build/source/texk/gsftopk/ChangeLog
index 8a386627aca..fb67e8bd1ad 100644
--- a/Build/source/texk/gsftopk/ChangeLog
+++ b/Build/source/texk/gsftopk/ChangeLog
@@ -1,3 +1,8 @@
+2019-04-05  Paul Vojta <vojta@math.berkeley.edu>
+
+	* render.ps (shellarguments): check for /.shellarguments
+	before shellarguments.
+
 2014-06-23  Akira Kakuto  <kakuto@fuk.kindai.ac.jp>
 
 	* gsftopk.c: Support 64bit compilation (Windows only).
diff --git a/Build/source/texk/gsftopk/render.ps b/Build/source/texk/gsftopk/render.ps
index 2c067451b97..be9d8c8b532 100644
--- a/Build/source/texk/gsftopk/render.ps
+++ b/Build/source/texk/gsftopk/render.ps
@@ -3,7 +3,7 @@
 
 % ========================================================================
 %
-% Copyright (c) 1993-1998  Paul Vojta
+% Copyright (c) 1993-2019  Paul Vojta
 %
 % Permission is hereby granted, free of charge, to any person obtaining a copy
 % of this software and associated documentation files (the "Software"), to
@@ -214,10 +214,29 @@ def
 
 % Get arguments.
 
-shellarguments not
-  {
-    (You must provide arguments to the shell!\n) fatal
-  }
+%
+% shellarguments is renamed as .shellarguments in gs-9.27 (early 2019)
+% The following works for gs-9.27 and gs-9.26 or older ones.
+%
+/.shellarguments where
+{
+  pop
+  .shellarguments not
+    {
+      (You must provide arguments to the shell!\n) fatal
+    }
+  if
+}
+if
+/shellarguments where
+{
+  pop
+  shellarguments not
+    {
+      (You must provide arguments to the shell!\n) fatal
+    }
+  if
+}
 if
 
 /dpi exch cvr def