diff options
| author | Dag-Erling Smørgrav <des@FreeBSD.org> | 2002-06-07 13:16:50 +0000 |
|---|---|---|
| committer | Dag-Erling Smørgrav <des@FreeBSD.org> | 2002-06-07 13:16:50 +0000 |
| commit | 31f658b72427bb1b80ff1897e235e41575d47af3 (patch) | |
| tree | b3e61d02eed024d6e8502394f7bd46c55246c607 /share | |
| parent | ba497fd8edfdf173e459d950d9e44a20479860f7 (diff) | |
Perl script that translates a list of man pages to a list of SGML entity
definitions.
Notes
svn path=/head/; revision=13320
Diffstat (limited to 'share')
| -rw-r--r-- | share/sgml/man-refs.pl | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/share/sgml/man-refs.pl b/share/sgml/man-refs.pl new file mode 100644 index 0000000000..48d96b6421 --- /dev/null +++ b/share/sgml/man-refs.pl @@ -0,0 +1,11 @@ +#!/usr/bin/perl -w +# $FreeBSD$ + +use strict; + +while (<>) { + next unless (m,^(.*/)([\w\._-]+)\.(\d\w*)(\.gz)?$,); + my ($entity, $page, $volume) = ($2, $2, $3); + $entity =~ y/_/./; + print "<!ENTITY man.$entity.$volume \"<citerefentry/<refentrytitle/$page/<manvolnum/$volume//\">\n"; +} |