Linux ip-172-26-7-228 5.4.0-1103-aws #111~18.04.1-Ubuntu SMP Tue May 23 20:04:10 UTC 2023 x86_64
Your IP : 52.14.219.203
#!/usr/bin/perl
## This file is part of the Petri-nets packages. See file README for
## copyright notice.
use strict;
use Digest::MD5 qw(md5_hex);
use Getopt::Long;
##
## read options
##
Getopt::Long::Configure ("bundling");
my $keep = 0;
my $force = 0;
my $verbose = 0;
GetOptions ("k|keep" => \$keep,
"f|force" => \$force,
"v|verbose" => \$verbose,
"t|test" => \&Test,
"d|delete" => \&Delete,
"b|batch" => \&Batch,
"h|help" => \&Help);
&Help if scalar @ARGV > 1;
##
## Global variables
##
my $figure = shift @ARGV;
my $basename = $figure; $basename =~ s/\.pn$//;
my $jobname = $basename; $jobname =~ s/-fig\d+$//;
my $data = "";
my %sum;
##
## Load checksums
##
if (-f "$jobname.sum") {
open SUM, "$jobname.sum"
or &Error ("could not open $jobname.sum -- $!");
while (<SUM>) {
next unless /^(.+)\s+(.+)$/;
$sum{$1} = $2;
}
close SUM;
}
##
## Get preamble
##
if (-f "$jobname.pre") {
# read the existing preamble
my @lines;
open PRE, "$jobname.pre"
or &Error ("could not open $jobname.sum -- $!");
@lines = <PRE>;
close PRE;
$data .= join "", @lines;
} else {
# create a new preamble
open TEX, "$jobname.tex"
or &Error ("could not open $jobname.tex -- $!");
while (<TEX>) {
$data .= $_;
last if /\\begin\{document\}/;
}
close TEX;
$data =~ s/(\\begin\{document\}).*$/$1\n/;
$data .= "\\pagestyle\{empty\}\n";
# save it
open PRE, ">$jobname.pre"
or &Error ("could not create $jobname.sum -- $!");
print PRE $data;
close PRE;
}
##
## Read the figure
##
{
my $pre = 1;
open TEX, $figure or &Error ("could not open $figure -- $!");
open PRE, ">>$jobname.pre"
or &Error ("could not append $jobname.pre -- $!");
while (<TEX>) {
$pre = 0 if /^\\begin\{petrinet\}/;
print PRE if $pre;
$data .= $_;
}
close TEX;
close PRE;
}
##
## Generate the EPDF
##
if (&SumChanged ($figure, "$data") or $force or (! -f "$basename.pdf")) {
open TEX, ">$basename.tex"
or &Error ("could not create file $basename.tex -- $!\n");
print TEX "$data\\end\{document\}\n";
close TEX;
system "latex", "$basename.tex";
system "dvips", "-E", "-Ppdf", "-o", "$basename.eps", "$basename";
system "epstopdf", "$basename.eps";
}
unlink ("$basename.tex", "$basename.log", "$basename.aux",
"$basename.dvi", "$basename.eps", "$basename.pn") unless $keep;
##
## Save checksums
##
open SUM, ">$jobname.sum"
or die "pn2pdf: could not create file $jobname.sum -- $!\n";
foreach my $file (sort keys %sum) {
print SUM "$file $sum{$file}\n";
}
close SUM;
exit 0;
##
## Sub programs
##
sub Help {
print <<"EOF";
Usage: pn2pdf [OPTIONS]
Create EPDF files for Petri net figures.
FIGURE process FIGURE
-b, --batch FILE process the commands in FILE
-k, --keep keep temporary files
-f, --force force the rendering of all pictures
-t, --test FILES create FILES for test purpose
-d, --delete FILES delete FILES (may be patterns)
-h, --help display this help and exit
Report bugs to <pommereau\@univ-paris12.fr>
EOF
exit 0; }
sub Error {
foreach my $line (@_) {
warn "pn2pdf: $line\n";
}
exit 1;
}
sub Verbose {
return unless $verbose;
foreach my $line (@_) {
warn "[pn2pdf] $line\n";
}
}
sub SumChanged {
my ($file, $lines) = @_;
my $md5 = md5_hex ($lines);
if ($md5 eq $sum{$file}) {
return 0;
} else {
$sum{$file} = $md5;
return 1;
}
}
sub Test {
foreach my $file (@ARGV) {
open FILE, ">$file" or &Error ("could not create $file -- $!");
close FILE;
}
exit 0;
}
sub Delete {
foreach my $pattern (@ARGV) {
unlink glob $pattern unless $keep;
}
exit 0;
}
sub Batch {
my @lines;
foreach my $file (@ARGV) {
$file =~ s/(\.[a-z]{3})?$/.bpn/i;
open FILE, $file or &Error ("could not open $file -- $!");
while (<FILE>) {
next unless /^pn2pdf\s/;
s/^pn2pdf\s/pn2pdf --keep / if $keep;
s/^pn2pdf\s/pn2pdf --force / if $force;
s/^pn2pdf\s/pn2pdf --verbose / if $verbose;
push @lines, $_;
}
close FILE;
}
foreach (@lines) {
system $_;
}
exit 0;
}
|