texlive[68417] Master/texmf-dist/scripts/psviewer/psviewer.vbs:

[commits+siepo at tug.org]

Revision: 68417
          https://tug.org/svn/texlive?view=revision&revision=68417
Author:   siepo
Date:     2023-10-01 11:48:30 +0200 (Sun, 01 Oct 2023)
Log Message:
-----------
Adapted to 64bit

Modified Paths:
--------------
    trunk/Master/texmf-dist/scripts/psviewer/psviewer.vbs

Modified: trunk/Master/texmf-dist/scripts/psviewer/psviewer.vbs
===================================================================
--- trunk/Master/texmf-dist/scripts/psviewer/psviewer.vbs	2023-09-30 23:48:50 UTC (rev 68416)
+++ trunk/Master/texmf-dist/scripts/psviewer/psviewer.vbs	2023-10-01 09:48:30 UTC (rev 68417)
@@ -1,4 +1,5 @@
 ' Written by Siep Kroonenberg in 2020 and placed in the Public Domain
+' 2023: Adaptation to 64bit
 
 option explicit
 On Error Resume next
@@ -50,10 +51,10 @@
   If oWsh.run( "kpsewhich -format texmfscripts epstopdf.pl", 0, true ) = 0 Then
     oWsh.run "epstopdf """ & f & """ """ & tf & """", 0, true
   Else
-    oWsh.run "gswin32c -q -dNOPAUSE -dBATCH -P- -dSAFER -sDEVICE#pdfwrite -dEPSCrop ""-sOutputFile#" & tf & """ -f """ & f & """", 0, true
+    oWsh.run "gswin64c -q -dNOPAUSE -dBATCH -P- -dSAFER -sDEVICE#pdfwrite -dEPSCrop ""-sOutputFile#" & tf & """ -f """ & f & """", 0, true
   End if
 Else
-  oWsh.run "gswin32c -q -dNOPAUSE -dBATCH -P- -dSAFER -sDEVICE#pdfwrite ""-sOutputFile#" & tf & """ -f """ & f & """", 0, true
+  oWsh.run "gswin64c -q -dNOPAUSE -dBATCH -P- -dSAFER -sDEVICE#pdfwrite ""-sOutputFile#" & tf & """ -f """ & f & """", 0, true
 End If
 
 ' open temporary pdf
@@ -62,4 +63,4 @@
 Else
   MsgBox f & " could not be converted," & vbcrlf & _
   "is probably not valid PostScript", 0, "Error"
-End If
\ No newline at end of file
+End If