doc/pspdf.pl

   1 #!/usr/bin/perl
   2 #
   3 # Wrapper around a variety of programs that can do PS -> PDF conversion
   4 #
   5
   6 use strict;
   7
   8 my ($in, $out) = @ARGV;
   9
  10 if (!defined($out)) {
  11         die "Usage: $0 infile outfile\n";
  12 }
  13
  14 # Remove output file
  15 unlink($out);
  16
  17 # 1. Acrobat distiller
  18 my $r = system('acrodist', '-n', '-q', '--nosecurity', '-o', $out, $in);
  19 exit 0 if ( !$r && -f $out );
  20
  21 # 2. ps2pdf (from Ghostscript)
  22 my $r = system('ps2pdf', $in, $out);
  23 exit 0 if ( !$r && -f $out );
  24
  25 # 3. pstopdf (BSD/MacOS X utility)
  26 my $r = system('pstopdf', $in, '-o', $out);
  27 exit 0 if ( !$r && -f $out );
  28
  29 # Otherwise, fail
  30 unlink($out);
  31 exit 1;