Re: gEDA-user: Printing schematics

[DJ Delorie <dj@xxxxxxxxxxx>]

> Hi DJ, Yes please I would like to have that script.  Ian.

#!/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