Re: gEDA-user: printing out more than one schematic sheet as a ps document

[DJ Delorie <dj@xxxxxxxxxxx>]

I use this perl script to stitch together N *.ps files from gschem
into a single multi-page *.ps file:

#!/usr/bin/perl
# -*- perl -*-

$need_prolog = 1;

$pageno = 0;

for $ps (@ARGV) {
    open(PS, $ps);
    $print = $need_prolog ? 1 : 0;
    while (<PS>) {
	if (/%%Page: \d/) {
	    $pageno++;
	    $_ = "%%Page: $pageno\n";
	    $print = 1;
	}
	$Print = 0 if /^%%End/;

	print if $print;
    }
    close PS;
    $need_prolog = 0;
}

print "%%End\n";


_______________________________________________
geda-user mailing list
geda-user@xxxxxxxxxxxxxx
http://www.seul.org/cgi-bin/mailman/listinfo/geda-user