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 $compress = 1;
   9
  10 while ($ARGV[0] =~ /^-(.*)$/) {
  11     my $opt = $1;
  12     shift @ARGV;
  13
  14     if ($opt eq '-nocompress') {
  15         $compress = 0;
  16     }
  17 }
  18
  19 my ($in, $out) = @ARGV;
  20
  21 if (!defined($out)) {
  22         die "Usage: $0 [-nocompress] infile outfile\n";
  23 }
  24
  25 # Remove output file
  26 unlink($out);
  27
  28 # 1. Acrobat distiller
  29 my $r = system('acrodist', '-n', '-q', '--nosecurity', '-o', $out, $in);
  30 exit 0 if ( !$r && -f $out );
  31
  32 # 2. ps2pdf (from Ghostscript)
  33 my $r = system('ps2pdf', '-dOptimize=true', '-dEmbedAllFonts=true',
  34                '-dCompressPages=' . ($compress ? 'true' : 'false'),
  35                '-dUseFlateCompression=true', $in, $out);
  36 exit 0 if ( !$r && -f $out );
  37
  38 # 3. pstopdf (BSD/MacOS X utility)
  39 my $r = system('pstopdf', $in, '-o', $out);
  40 exit 0 if ( !$r && -f $out );
  41
  42 # Otherwise, fail
  43 unlink($out);
  44 exit 1;