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

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

1 files changed, 24 insertions, 5 deletions

diff --git a/Master/texmf-dist/dvips/gsftopk/render.ps b/Master/texmf-dist/dvips/gsftopk/render.ps
index 2c067451b97..be9d8c8b532 100644
--- a/Master/texmf-dist/dvips/gsftopk/render.ps
+++ b/Master/texmf-dist/dvips/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