summaryrefslogtreecommitdiff
path: root/Master/bin/win32/pdf2dsc.bat
blob: c81cc48d68eecd6ae888565a8e581540b97d120b (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
@rem = '--*-Perl-*--
@echo off
perl -x -S %0 %*
goto endofperl
@rem ';
#!/usr/bin/env perl 
#line 8
$^W=1;

@GS_CMD=(-d "/usr/bin")? ("gs"):("gswin32");

die "usage: $0 pdffile [dscfile]\n" unless (@ARGV);

$pdffile=shift @ARGV;

if (@ARGV) {
    $dscfile=shift @ARGV;
} else {
    ($dscfile=$pdffile)=~s/\.pdf$/\.dsc/;
}

push @GS_CMD, qw(-q -dNODISPLAY -dSAFER -dDELAYSAFER);
push @GS_CMD, ("-sPDFname=$pdffile", "-sDSCname=$dscfile");
push @GS_CMD, qw(pdf2dsc.ps -c quit);

exec @GS_CMD or die $!;

__END__
:endofperl