From 08d366cf6b753e76cb42a8e9883a0cb2bbbdff80 Mon Sep 17 00:00:00 2001
From: Wolfram Schneider <wosch@FreeBSD.org>
Date: Sat, 28 Dec 1996 16:24:57 +0000
Subject: epfe - extract printing filter examples from printing.sgml

usage:
	$ cd /usr/share/examples/printing
	$ epfe < printing.sgml
---
 tools/tools/epfe/epfe.pl | 38 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 38 insertions(+)
 create mode 100644 tools/tools/epfe/epfe.pl

(limited to 'tools')

diff --git a/tools/tools/epfe/epfe.pl b/tools/tools/epfe/epfe.pl
new file mode 100644
index 000000000000..4afd824d4791
--- /dev/null
+++ b/tools/tools/epfe/epfe.pl
@@ -0,0 +1,38 @@
+#!/usr/bin/perl
+# Copyright (c) 1996 Wolfram Schneider <wosch@FreeBSD.org>. Berlin.
+#
+# epfe - extract printing filter examples from printing.sgml
+#
+# usage: 
+#	$ cd /usr/share/examples/printing
+#	$ epfe < ../../doc/handbook/printing.sgml
+#
+# $Id$
+
+$in = 0; @a = ();
+sub Print { s/\&amp\;/&/g; push(@a,$_); }
+sub out { 
+    local($name, *lines) = @_;
+    open(F, "> $name") || die "open $_[0]: $!\n"; 
+    print F @lines;
+    close F;
+}
+
+while(<>) {
+    if (/^<code>/) {
+	$in = 1;
+    } elsif (m%</code>% && $in > 0) {
+	if ($in > 1) {
+	    $name = 'unknown' if !$name;
+	    while(1) { if ($d{$name}) { $name .= 'X'; } else { last } }
+	    &out("$name", *a);
+	    $d{$name} = $name;
+	}
+	$in = 0; $name = ''; @a = ();
+    } elsif ($in == 1 && /^\#\s*!/) {
+	$in++; &Print;
+    } elsif ($in > 1) {
+	$name = $1 if (!$name && /^\#\s+(\S+)\s+-\s+/);
+	$in++; &Print;
+    }
+}
-- 
cgit v1.3