Support gswin64c, rename .tlu -> .lua

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

2 files changed, 58 insertions, 43 deletions

diff --git a/Build/source/texk/texlive/linked_scripts/texlive/rungs.lua b/Build/source/texk/texlive/linked_scripts/texlive/rungs.lua
new file mode 100755
index 00000000000..1cd3fe17e2a
--- /dev/null
+++ b/Build/source/texk/texlive/linked_scripts/texlive/rungs.lua
@@ -0,0 +1,58 @@
+#!/usr/bin/env texlua
+--*-Lua-*-
+
+-- $Id$
+
+-- rungs - Run Ghostscript (gs on Unix, gswin(32|64)c on Windows)
+
+-- Copyright (C) 2008-2022 Reinhard Kotucha.
+-- You may freely use, modify and/or distribute this file.
+
+-- Maintained in TeX Live:Master/texmf-dist/scripts/texlive.
+
+
+function fixwindows (args_unix)
+   -- Windows converts the argument vector specified by execv*() to a
+   -- string and then back to a vector (argv).  In order to support
+   -- spaces in filenames each argument has to be quoted explicitly.
+   
+   if os.type == 'windows' then
+      local args_windows = {}  -- new table
+      args_windows[0] = args_unix[1]
+      for i=1, #args_unix do  
+	 args_windows[i] = '"'..args_unix[i]..'"'
+      end
+      return args_windows
+   else
+      return args_unix
+   end
+end
+
+
+if os.type == 'windows' then
+   if os.getenv('PROCESSOR_ARCHITECTURE') == 'AMD64' or
+      os.getenv('PROCESSOR_ARCHITEW6432') == 'AMD64'
+   then
+      command = {'gswin64c'}
+   else
+      command = {'gswin32c'}
+   end
+else
+   command = {'gs'}
+end
+
+for i=1, #arg do
+   command[#command+1] = arg[i]
+end
+
+command = fixwindows (command)
+
+--[[ prepend an additional hyphen to activate this code
+for i=0, #command do
+   print (command[i])
+end
+os.exit(ret)
+--]]
+
+ret = os.spawn(command)
+os.exit(ret)
diff --git a/Build/source/texk/texlive/linked_scripts/texlive/rungs.tlu b/Build/source/texk/texlive/linked_scripts/texlive/rungs.tlu
deleted file mode 100755
index b9d4caf34ef..00000000000
--- a/Build/source/texk/texlive/linked_scripts/texlive/rungs.tlu
+++ /dev/null
@@ -1,43 +0,0 @@
-#!/usr/bin/env texlua
---*-Lua-*-
--- $Id: rungs.tlu 30101 2013-04-25 17:29:00Z karl $
--- rungs - Run Ghostscript (gs on Unix, gswin32c on Windows)
--- (Maintained in TeX Live:Master/texmf-dist/scripts/texlive.)
-
--- Copyright (C) 2008-2013 Reinhard Kotucha.
--- You may freely use, modify and/or distribute this file.
-
-function fixwin(args_unix)
-   if os.type == 'windows' then
-      local args_win={}  -- new table
-      args_win[0]=args_unix[1]
-      for i=1, #args_unix do  
-	 args_win[i]='"'..args_unix[i]..'"'
-      end
-      return args_win
-   else
-      return args_unix
-   end
-end
-
-if os.type == 'windows' then
-   command={'gswin32c'}
-else
-   command={'gs'}
-end
-
-for i=1, #arg do
-   command[#command+1]=arg[i]
-end
-
-command=fixwin(command)
-
---[[ prepend an additional hyphen to activate this code
-for i=0, #command do
-   print (command[i])
-end
-os.exit(ret)
---]]
-
-ret=os.spawn(command)
-os.exit(ret)