websoft/bin/blc2ps

   1 #!/usr/bin/perl
   2
   3 # Generates PS from a blc file (generally made by concise2blc)
   4
   5 use strict;
   6 use warnings;
   7 use Getopt::Long;
   8
   9 use Jpred;
  10
  11 my ($in, $out, $ps);
  12 GetOptions(
  13         "in=s" => \$in,
  14         "out=s" => \$out,
  15         "postscript=s" => \$ps
  16 );
  17
  18 die "No input BLC file given\n" unless defined $in;
  19 die "No output path given\n" unless defined $out;
  20 die "No PostScript output path given\n" unless defined $ps;
  21
  22 #xsystem("$BINDIR/prettify -f $in -prefix $out -ignore 2");
  23 xsystem("$BINDIR/prettify.pl --blc $in --alscript $out --postscript $ps");
  24 xsystem("$BINDIR/alscript -f $out");