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

[Wolfram Schneider]

The branch main has been updated by wosch:

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

commit 1cf4473fa36dd9252f2258e86adf85eb94694b9c
Author:     Wolfram Schneider <wo...@freebsd.org>
AuthorDate: 2023-05-15 06:22:41 +0000
Commit:     Wolfram Schneider <wo...@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 <wo...@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;
-    }
-}