git: 1cf4473fa36d - main - remove stale script epfe.pl

From: Wolfram Schneider <wosch_at_FreeBSD.org>
Date: Mon, 15 May 2023 06:24:09 UTC
The branch main has been updated by wosch:

URL: https://cgit.FreeBSD.org/src/commit/?id=1cf4473fa36dd9252f2258e86adf85eb94694b9c

commit 1cf4473fa36dd9252f2258e86adf85eb94694b9c
Author:     Wolfram Schneider <wosch@FreeBSD.org>
AuthorDate: 2023-05-15 06:22:41 +0000
Commit:     Wolfram Schneider <wosch@FreeBSD.org>
CommitDate: 2023-05-15 06:22:41 +0000

    remove stale script epfe.pl
    
    tools/tools/epfe/epfe.pl was a perl script that formerly generated some
    printing example files from content in a very old version of the handbook.
    
    Reported by:    wblock
---
 tools/tools/README       |  1 -
 tools/tools/epfe/epfe.pl | 38 --------------------------------------
 2 files changed, 39 deletions(-)

diff --git a/tools/tools/README b/tools/tools/README
index 084c9fe65be9..6d2be5e7ae6b 100644
--- a/tools/tools/README
+++ b/tools/tools/README
@@ -18,7 +18,6 @@ cxgbetool	A tool for the cxgbe(4) driver.
 cxgbtool	A tool for the cxgb(4) driver.
 drm		Tools specific to the DRM/KMS device drivers.
 editing		Editor modes and the like to help editing FreeBSD code.
-epfe 		Extract printing filter examples from printing.sgml.
 ether_reflect	An Ethernet packet reflector for low level testing.
 find-sb		Scan a disk for possible filesystem superblocks.
 gdb_regofs	A simple tool that prints out a register offset table
diff --git a/tools/tools/epfe/epfe.pl b/tools/tools/epfe/epfe.pl
deleted file mode 100644
index 0aea2c247a64..000000000000
--- a/tools/tools/epfe/epfe.pl
+++ /dev/null
@@ -1,38 +0,0 @@
-#!/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
-#
-# $FreeBSD$
-
-$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;
-    }
-}