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
10 # $FreeBSD: src/tools/tools/epfe/epfe.pl,v 1.4 1999/08/28 00:54:26 peter Exp $
11 # $DragonFly: src/tools/tools/epfe/Attic/epfe.pl,v 1.2 2003/06/17 04:29:11 dillon Exp $
14 sub Print { s/\&\;/&/g; push(@a,$_); }
16 local($name, *lines) = @_;
17 open(F, "> $name") || die "open $_[0]: $!\n";
25 } elsif (m%</code>% && $in > 0) {
27 $name = 'unknown' if !$name;
28 while(1) { if ($d{$name}) { $name .= 'X'; } else { last } }
32 $in = 0; $name = ''; @a = ();
33 } elsif ($in == 1 && /^\#\s*!/) {
36 $name = $1 if (!$name && /^\#\s+(\S+)\s+-\s+/);