#!/usr/bin/perl

# Generates PS from a blc file (generally made by concise2blc)

use strict;
use warnings;
use Getopt::Long;

use Jpred;

my ($in, $out, $ps);
GetOptions(
	"in=s" => \$in,
	"out=s" => \$out,
	"postscript=s" => \$ps
);

die "No input BLC file given\n" unless defined $in;
die "No output path given\n" unless defined $out;
die "No PostScript output path given\n" unless defined $ps;

#xsystem("$BINDIR/prettify -f $in -prefix $out -ignore 2");
xsystem("$BINDIR/prettify.pl --blc $in --alscript $out --postscript $ps");
xsystem("$BINDIR/alscript -f $out");