Fixed escape char, reported by Dohyun Kim

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

7 files changed, 16 insertions, 20 deletions

diff --git a/Master/texmf-dist/scripts/tlgs/gswin32/eps2eps.tlu b/Master/texmf-dist/scripts/tlgs/gswin32/eps2eps.tlu
index fe862ec81b5..28f10afea71 100755
--- a/Master/texmf-dist/scripts/tlgs/gswin32/eps2eps.tlu
+++ b/Master/texmf-dist/scripts/tlgs/gswin32/eps2eps.tlu
@@ -52,7 +52,7 @@ end
 
 if files < 2 then
    io.stderr:write('Usage: eps2eps [options] input.eps output.eps\n')
-   os.exit(0)
+   os.exit(1)
 end
 
 command[#command]=nil -- already processed at -sOutputFile
diff --git a/Master/texmf-dist/scripts/tlgs/gswin32/pdf2dsc.tlu b/Master/texmf-dist/scripts/tlgs/gswin32/pdf2dsc.tlu
index 442284b4a17..25921db23ea 100755
--- a/Master/texmf-dist/scripts/tlgs/gswin32/pdf2dsc.tlu
+++ b/Master/texmf-dist/scripts/tlgs/gswin32/pdf2dsc.tlu
@@ -29,14 +29,14 @@ end
 
 if #arg == 0 or #arg > 2 then
    io.stderr:write('Usage: pdf2dsc input.pdf [output.dsc]\n')
-   os.exit(0) 
+   os.exit(1)
 end
 
 pdffile=arg[1]
 if #arg==2 then
    dscfile=arg[2]
 else
-   dscfile=string.gsub(pdffile, '\.%a+$', '.dsc')
+   dscfile=string.gsub(pdffile, '%.%a+$', '.dsc')
 end
 
 command={gs, '-q', '-dNODISPLAY', '-dSAFER', '-dDELAYSAFER',
diff --git a/Master/texmf-dist/scripts/tlgs/gswin32/pdfopt.tlu b/Master/texmf-dist/scripts/tlgs/gswin32/pdfopt.tlu
index 2169407a198..d267d55f057 100755
--- a/Master/texmf-dist/scripts/tlgs/gswin32/pdfopt.tlu
+++ b/Master/texmf-dist/scripts/tlgs/gswin32/pdfopt.tlu
@@ -44,7 +44,7 @@ command[#command+1]='pdfopt.ps'
 
 if #files ~= 2 then
    io.stderr:write('Usage: pdfopt [options] input.pdf output.pdf\n')
-   os.exit(0) 
+   os.exit(1) 
 else
    for i=1, #files do
       command[#command+1]=files[i]
diff --git a/Master/texmf-dist/scripts/tlgs/gswin32/ps2pdf.tlu b/Master/texmf-dist/scripts/tlgs/gswin32/ps2pdf.tlu
index 5ee91548751..7cb82173cfa 100755
--- a/Master/texmf-dist/scripts/tlgs/gswin32/ps2pdf.tlu
+++ b/Master/texmf-dist/scripts/tlgs/gswin32/ps2pdf.tlu
@@ -30,7 +30,7 @@ function filename (file)
 end
 
 function basename (file)
-   return string.match(filename(file), '(.*)[\.].*')
+   return string.match(filename(file), '(.*)[%.].*')
 end 
 
 if os.type == 'windows' then
@@ -66,16 +66,15 @@ end
 
 if #files < 1 or #files > 2 then
    io.stderr:write('Usage: ps2pdf [options] (input.[e]ps|-) [output.pdf]\n')
-   os.exit(0) 
+   os.exit(1) 
 end
 
 if #files == 1 then
    if files[1] == '-' then
       outfile='-'
-   elseif string.find(filename(files[1]), '\.[eE]?[pP][sS]$') then
+   elseif string.find(filename(files[1]), '%.[eE]?[pP][sS]$') then
       outfile=basename(files[1])..'.pdf'
    else
-      print ('xxx:'..files[1])
       outfile=filename(files[1])..'.pdf'
    end
 else
diff --git a/Master/texmf-dist/scripts/tlgs/gswin32/ps2pdf12.tlu b/Master/texmf-dist/scripts/tlgs/gswin32/ps2pdf12.tlu
index 5ee91548751..a35e3b0912a 100755
--- a/Master/texmf-dist/scripts/tlgs/gswin32/ps2pdf12.tlu
+++ b/Master/texmf-dist/scripts/tlgs/gswin32/ps2pdf12.tlu
@@ -30,7 +30,7 @@ function filename (file)
 end
 
 function basename (file)
-   return string.match(filename(file), '(.*)[\.].*')
+   return string.match(filename(file), '(.*)[%.].*')
 end 
 
 if os.type == 'windows' then
@@ -66,16 +66,15 @@ end
 
 if #files < 1 or #files > 2 then
    io.stderr:write('Usage: ps2pdf [options] (input.[e]ps|-) [output.pdf]\n')
-   os.exit(0) 
+   os.exit(1)
 end
 
 if #files == 1 then
    if files[1] == '-' then
       outfile='-'
-   elseif string.find(filename(files[1]), '\.[eE]?[pP][sS]$') then
+   elseif string.find(filename(files[1]), '%.[eE]?[pP][sS]$') then
       outfile=basename(files[1])..'.pdf'
    else
-      print ('xxx:'..files[1])
       outfile=filename(files[1])..'.pdf'
    end
 else
diff --git a/Master/texmf-dist/scripts/tlgs/gswin32/ps2pdf13.tlu b/Master/texmf-dist/scripts/tlgs/gswin32/ps2pdf13.tlu
index 5ee91548751..a35e3b0912a 100755
--- a/Master/texmf-dist/scripts/tlgs/gswin32/ps2pdf13.tlu
+++ b/Master/texmf-dist/scripts/tlgs/gswin32/ps2pdf13.tlu
@@ -30,7 +30,7 @@ function filename (file)
 end
 
 function basename (file)
-   return string.match(filename(file), '(.*)[\.].*')
+   return string.match(filename(file), '(.*)[%.].*')
 end 
 
 if os.type == 'windows' then
@@ -66,16 +66,15 @@ end
 
 if #files < 1 or #files > 2 then
    io.stderr:write('Usage: ps2pdf [options] (input.[e]ps|-) [output.pdf]\n')
-   os.exit(0) 
+   os.exit(1)
 end
 
 if #files == 1 then
    if files[1] == '-' then
       outfile='-'
-   elseif string.find(filename(files[1]), '\.[eE]?[pP][sS]$') then
+   elseif string.find(filename(files[1]), '%.[eE]?[pP][sS]$') then
       outfile=basename(files[1])..'.pdf'
    else
-      print ('xxx:'..files[1])
       outfile=filename(files[1])..'.pdf'
    end
 else
diff --git a/Master/texmf-dist/scripts/tlgs/gswin32/ps2pdf14.tlu b/Master/texmf-dist/scripts/tlgs/gswin32/ps2pdf14.tlu
index 5ee91548751..a35e3b0912a 100755
--- a/Master/texmf-dist/scripts/tlgs/gswin32/ps2pdf14.tlu
+++ b/Master/texmf-dist/scripts/tlgs/gswin32/ps2pdf14.tlu
@@ -30,7 +30,7 @@ function filename (file)
 end
 
 function basename (file)
-   return string.match(filename(file), '(.*)[\.].*')
+   return string.match(filename(file), '(.*)[%.].*')
 end 
 
 if os.type == 'windows' then
@@ -66,16 +66,15 @@ end
 
 if #files < 1 or #files > 2 then
    io.stderr:write('Usage: ps2pdf [options] (input.[e]ps|-) [output.pdf]\n')
-   os.exit(0) 
+   os.exit(1)
 end
 
 if #files == 1 then
    if files[1] == '-' then
       outfile='-'
-   elseif string.find(filename(files[1]), '\.[eE]?[pP][sS]$') then
+   elseif string.find(filename(files[1]), '%.[eE]?[pP][sS]$') then
       outfile=basename(files[1])..'.pdf'
    else
-      print ('xxx:'..files[1])
       outfile=filename(files[1])..'.pdf'
    end
 else