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

[DJ Delorie]

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@moria.seul.org
http://www.seul.org/cgi-bin/mailman/listinfo/geda-user