#!/usr/bin/perl -w # # Convert a single gnuplot demo script to a web page # Usage: # webify xxx # # Reads xxx.dem and creates xxx.html along with associated # png images output to xxx..png # # If gpsavediff is present also create a set of scripts # xxx..gnu corresponding to the minimal set of commands # needed to generate that png image. # # If gnuplot_demo.css is present, link to it as a stylesheet. # # Ethan A Merritt # December 2003 # # EAM Jan 2004 # use gpsavediff if available # link to gnuplot_demo.css if available # # EAM Aug 2005 # If DEMOTERM is present as an environmental variable, then use # set term DEMOTERM # rather than the default terminal settings # E.g. (for image demo) # setenv DEMOTERM "png truecolor enhanced font arial 8 transparent size 420,320" # ./webify.pl image # use Env qw(DEMOTERM GNUPLOT_LIB); use HTML::Entities; require "ctime.pl"; # Use the in-tree copy of gnuplot if there is one my $gnuplot = ( -x "../../src/gnuplot" ) ? "../../src/gnuplot" : "gnuplot" ; my $date = &ctime(time); my $plot = 1; # input and output files open(IN, "<$GNUPLOT_LIB/$ARGV[0].dem") or die "can't open $GNUPLOT_LIB/$ARGV[0].dem"; open(OUT, ">$ARGV[0].html") or die "can't open $ARGV[0].html"; # open pipe to gnuplot and set terminal type open(GNUPLOT, "|$gnuplot") or die "can't find gnuplot"; if ((defined $ENV{DEMOTERM}) && $DEMOTERM ne "") { print GNUPLOT "set term $DEMOTERM\n"; } else { print GNUPLOT "set term png enhanced font arial 8 transparent size 420,320\n"; } print GNUPLOT "set output \"$ARGV[0].$plot.png\"\n"; # find out if gpsavediff is available in current path my $savescripts = T; {local $^W=0; $savescripts = open(FOO, "|gpsavediff") } close FOO if ($savescripts); # Boiler plate header print OUT "\n\ngnuplot demo script: $ARGV[0].dem \n"; print OUT "\n" if (-e "gnuplot_demo.css"); print OUT "\n"; print OUT "\n

gnuplot demo script: $ARGV[0].dem

\n"; print OUT "autogenerated by webify.pl on $date"; # try to find gnuplot version $version = `gnuplot --version`; print OUT "\n
gnuplot version $version"; print OUT "
\n"; # Start processing print OUT "\"\"\n"; print OUT "
\n";

	while () {
		if (/^pause -1/) {
			if ($savescripts) {
			    print OUT "
Click here ",
				  "for minimal script to generate this plot
\n";
			    print GNUPLOT "save \"| gpsavediff > $ARGV[0].$plot.gnu\"\n";
			}
			print OUT "
\n
\n
\n"; $plot++; print OUT "\"\"\n"; print OUT "
\n";
			print GNUPLOT "set output \"$ARGV[0].$plot.png\"\n";
		} elsif (/^pause/) {
			print GNUPLOT "set output \"$ARGV[0].$plot.png\"\n";
		} else {
			print OUT HTML::Entities::encode($_);
			print GNUPLOT;
		}
	}

# Amazingly enough, that's it.
# Unlink leftover empty plot before leaving.
	close GNUPLOT;
	unlink("$ARGV[0].$plot.png");
	print OUT "
\n"; print OUT "\n\n";