Date: Mon, 15 May 2023 06:24:09 GMT From: Wolfram Schneider <wosch@FreeBSD.org> To: src-committers@FreeBSD.org, dev-commits-src-all@FreeBSD.org, dev-commits-src-main@FreeBSD.org Subject: git: 1cf4473fa36d - main - remove stale script epfe.pl Message-ID: <202305150624.34F6O9bV052231@gitrepo.freebsd.org>
next in thread | raw e-mail | index | archive | help
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/\&\;/&/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; - } -}
Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?202305150624.34F6O9bV052231>