2 # Copyright (c) 1996 Wolfram Schneider <wosch@FreeBSD.org>. Berlin.
4 # epfe - extract printing filter examples from printing.sgml
7 # $ cd /usr/share/examples/printing
8 # $ epfe < ../../doc/handbook/printing.sgml
13 sub Print { s/\&\;/&/g; push(@a,$_); }
15 local($name, *lines) = @_;
16 open(F, "> $name") || die "open $_[0]: $!\n";
24 } elsif (m%</code>% && $in > 0) {
26 $name = 'unknown' if !$name;
27 while(1) { if ($d{$name}) { $name .= 'X'; } else { last } }
31 $in = 0; $name = ''; @a = ();
32 } elsif ($in == 1 && /^\#\s*!/) {
35 $name = $1 if (!$name && /^\#\s+(\S+)\s+-\s+/);