🚀 go-pugleaf

In article <1876@icpcs41.icpc.fukui-u.ac.jp>
	takada@sgauss.fuis.fukui-u.ac.jp (Takahiro Takada) writes:

   >$B$5$i$K(B Bugfix($BLgNS(B 1992)$B$b$"$k$_$?$$$G$9(B 
   $B!J110f$5$s$,;}$C$F$i$C$7$c$i$J$$$h$&$G$7$?$i$$$$$G$9$1$I(B...$B$"$CLgNS$5$s$,(B
     $BFI$s$G$i$C$7$c$k$h$&$G$7$?$i!"$=$A$i$NJ}$+$i$N%U%)%m!<$bBT$C$F$^$9!#!K(B

$B$O!<$$(B :-)  bugfix $B$H$$$C$F$b!"Bg$7$?JQ99$G$O$J$+$C$?$h$&$J5$$,$7$^$9$,(B...

$BKM$O(B tgif $B$O;H$C$F$J$$$N$G$h$/J,$+$j$^$;$s$,!"(Bkdraw $B$G:n$C$?3($r(B
TeX $B$KF~$l$F(B Preview $B$9$k$H$-$K$O!"$3$N%9%/%j%W%H$,7g$+$;$^$;$s!#(B
($BIw4V$5$s$"$j$,$H$&(B!)

# $BC/$+(B TeX 3.14 $B$rF|K\8l2=$7$F$/$@$5!<$$(B

----------------
#!/usr/local/bin/perl
# psfix: fix EPS files to attain DSC conformance.
#	Copyright (C) 1990	Kazuhiro Kazama
#	modified 4/11/1992	Youki Kadobayashi	fixed globbing bug
$tmp="psfix$$";

if ($#ARGV < 0) {
	do usage();
}

while ($_ = shift(@ARGV)) {
	push(psfiles, ($_));
}

foreach $file (@psfiles) {
	unless (open(stdin, $file)) {
		print("Can't open $file\n");
		exit;
	}
	unless (open(stdout, "> $tmp")) {
		print("Can't create file\n");
		exit;
	}
	$_ = <>;
	if (/^%!/) {
		print "%!PS-Adobe-2.0 EPSF-1.2\n";
		do print_comment();
		do print_body();
	} else {
		close(stdout);
		unlink $tmp;
		die("This file is not a postscript file.");
	}
	close(stdin);
	close(stdout);
	rename("$file", "$file.bak") || die "$!";
	rename($tmp, $file) || die "$!";
}

sub print_comment {
	while (<>) {
		next if (/^%%BoundingBox: \? \? \? \?/);
		next if (/^%%Page/);
		print;
		last if (/^%%EndComments/);
	}
}

sub print_body {
	while (<>) {
		next if (/^%%Page/);
		next if (/^%%Trailer/);
		next if (/^%%EOF/);
		print;
	}
}

sub usage {
	print STDERR "Usage: psfix f1 ... fn\n";
	exit;
}

--
		$BLgNS(B $BM:4p(B <youki@rd.ecip.osaka-u.ac.jp>
		$B>pJs%M%C%H%o!<%/3X9V:B(B $B=$;N0lG/(B
		$BBg:eBg3X4pAC9)3XIt>pJs9)3X2J(B