texlive[50767] trunk: /.shellarguments as well as /shellarguments,

[commits+karl at tug.org]

Revision: 50767
          http://tug.org/svn/texlive?view=revision&revision=50767
Author:   karl
Date:     2019-04-05 00:29:54 +0200 (Fri, 05 Apr 2019)
Log Message:
-----------
/.shellarguments as well as /shellarguments, for gs 9.27

Modified Paths:
--------------
    trunk/Build/source/texk/gsftopk/ChangeLog
    trunk/Build/source/texk/gsftopk/render.ps
    trunk/Master/texmf-dist/dvips/gsftopk/render.ps

Modified: trunk/Build/source/texk/gsftopk/ChangeLog
===================================================================
--- trunk/Build/source/texk/gsftopk/ChangeLog	2019-04-04 22:08:18 UTC (rev 50766)
+++ trunk/Build/source/texk/gsftopk/ChangeLog	2019-04-04 22:29:54 UTC (rev 50767)
@@ -1,3 +1,8 @@
+2019-04-05  Paul Vojta <vojta at math.berkeley.edu>
+
+	* render.ps (shellarguments): check for /.shellarguments
+	before shellarguments.
+
 2014-06-23  Akira Kakuto  <kakuto at fuk.kindai.ac.jp>
 
 	* gsftopk.c: Support 64bit compilation (Windows only).

Modified: trunk/Build/source/texk/gsftopk/render.ps
===================================================================
--- trunk/Build/source/texk/gsftopk/render.ps	2019-04-04 22:08:18 UTC (rev 50766)
+++ trunk/Build/source/texk/gsftopk/render.ps	2019-04-04 22:29:54 UTC (rev 50767)
@@ -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,11 +214,30 @@
 
 % 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
 /specinfo exch def

Modified: trunk/Master/texmf-dist/dvips/gsftopk/render.ps
===================================================================
--- trunk/Master/texmf-dist/dvips/gsftopk/render.ps	2019-04-04 22:08:18 UTC (rev 50766)
+++ trunk/Master/texmf-dist/dvips/gsftopk/render.ps	2019-04-04 22:29:54 UTC (rev 50767)
@@ -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,11 +214,30 @@
 
 % 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
 /specinfo exch def