diff options
Diffstat (limited to 'Master/texmf/scripts/tlgs/gswin32/eps2eps.tlu')
-rwxr-xr-x | Master/texmf/scripts/tlgs/gswin32/eps2eps.tlu | 64 |
1 files changed, 64 insertions, 0 deletions
diff --git a/Master/texmf/scripts/tlgs/gswin32/eps2eps.tlu b/Master/texmf/scripts/tlgs/gswin32/eps2eps.tlu new file mode 100755 index 00000000000..9d5ffd7b30b --- /dev/null +++ b/Master/texmf/scripts/tlgs/gswin32/eps2eps.tlu @@ -0,0 +1,64 @@ +#!/usr/bin/env texlua +--*-Lua-*- +-- $Id$ + +-- Copyright (C) 2008 Reinhard Kotucha. +-- You may freely use, modify and/or distribute this file. + +-- Replacement for eps2eps.bat. +-- 'Distill' Encapsulated PostScript. + +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 + +kpse.set_program_name('eps2eps.bat', 'eps2eps') + +TEXDIR=kpse.var_value('SELFAUTOPARENT') + +if os.type == 'windows' then + os.setenv('GS_LIB', TEXDIR..'/tlpkg/tlgs/lib;'..TEXDIR..'/tlpkg/tlgs/fonts') + os.setenv('PATH', TEXDIR..'/tlpkg/tlgs/bin;'..os.getenv('PATH')) + gs='gswin32c' +else + gs='gs' +end + +command={gs, '-q', '-sDEVICE=epswrite', '-dNOPAUSE', + '-sOutputFile='..arg[#arg], '-dBATCH', '-dSAFER', + '-dDEVICEWIDTH=250000', '-dDEVICEHEIGHT=250000'} + +files=0 + +for i=1, #arg do + if not string.find(arg[i], '^-') then + files=files+1 + end + command[#command+1]=arg[i] +end + +if files < 2 then + io.stderr:write('Usage: eps2eps [options] input.eps output.eps') + os.exit(0) +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) |