diff options
author | Jeff Morriss <jeff.morriss@ulticom.com> | 2009-06-21 12:47:48 +0000 |
---|---|---|
committer | Jeff Morriss <jeff.morriss@ulticom.com> | 2009-06-21 12:47:48 +0000 |
commit | c47eeae22b4edcebb6b58a5ef1a67b139473d203 (patch) | |
tree | 779fd228d4c61751c9f15f4c07cbe25078beff98 /doc/make-authors-format.pl | |
parent | 05a3dca2bc492be7443afc52fbff2bb9c182e705 (diff) |
Move the generated documentation (man pages, AUTHORS-SHORT-FORMAT, and
AUTHORS-SHORT) into doc/. This cleans up the top-level Makefile.am (no more
need to have rules for each man page in both files) and solves the
parallel-build problem described in:
https://bugs.wireshark.org/bugzilla/show_bug.cgi?id=3494
svn path=/trunk/; revision=28784
Diffstat (limited to 'doc/make-authors-format.pl')
-rwxr-xr-x | doc/make-authors-format.pl | 89 |
1 files changed, 89 insertions, 0 deletions
diff --git a/doc/make-authors-format.pl b/doc/make-authors-format.pl new file mode 100755 index 0000000000..8c325d2d87 --- /dev/null +++ b/doc/make-authors-format.pl @@ -0,0 +1,89 @@ +# $Id$ + +# Convert AUTHORS-SHORT file for use in man page and HTML documentation +# after processing through pod2man and pod2html. +# +# Must be called via perlnoutf. + +use strict; + +print "=for html <pre>\n\n"; +print "=for man .nf\n\n"; + +while (<>) { + printline(); +} + +print "\n=for html </pre>\n"; +print "\n=for man .fi\n"; + +sub printline { + my $line = shift || $_; +# +# Translate UTF-8 characters to the E<> escapes handled by Pod::Man +# (and only those, since they're a subset of HTML entities) +# + $line =~ s/\xc3\x80/E<Agrave>/g; + $line =~ s/\xc3\x81/E<Aacute>/g; + $line =~ s/\xc3\x82/E<Acirc>/g; + $line =~ s/\xc3\x83/E<Atilde>/g; + $line =~ s/\xc3\x84/E<Auml>/g; + $line =~ s/\xc3\x85/E<Aring>/g; + $line =~ s/\xc3\x86/E<AElig>/g; + $line =~ s/\xc3\x87/E<Ccedil>/g; + $line =~ s/\xc3\x88/E<Egrave>/g; + $line =~ s/\xc3\x89/E<Eacute>/g; + $line =~ s/\xc3\x8a/E<Ecirc>/g; + $line =~ s/\xc3\x8b/E<Euml>/g; + $line =~ s/\xc3\x8c/E<Igrave>/g; + $line =~ s/\xc3\x8d/E<Iacute>/g; + $line =~ s/\xc3\x8e/E<Icirc>/g; + $line =~ s/\xc3\x8f/E<Iuml>/g; + $line =~ s/\xc3\x90/E<ETH>/g; + $line =~ s/\xc3\x91/E<Ntilde>/g; + $line =~ s/\xc3\x92/E<Ograve>/g; + $line =~ s/\xc3\x93/E<Oacute>/g; + $line =~ s/\xc3\x94/E<Ocirc>/g; + $line =~ s/\xc3\x95/E<Otilde>/g; + $line =~ s/\xc3\x96/E<Ouml>/g; + $line =~ s/\xc3\x98/E<Oslash>/g; + $line =~ s/\xc3\x99/E<Ugrave>/g; + $line =~ s/\xc3\x9a/E<Uacute>/g; + $line =~ s/\xc3\x9b/E<Ucirc>/g; + $line =~ s/\xc3\x9c/E<Uuml>/g; + $line =~ s/\xc3\x9d/E<Yacute>/g; + $line =~ s/\xc3\x9e/E<THORN>/g; + $line =~ s/\xc3\x9f/E<szlig>/g; + $line =~ s/\xc3\xa0/E<agrave>/g; + $line =~ s/\xc3\xa1/E<aacute>/g; + $line =~ s/\xc3\xa2/E<acirc>/g; + $line =~ s/\xc3\xa3/E<atilde>/g; + $line =~ s/\xc3\xa4/E<auml>/g; + $line =~ s/\xc3\xa5/E<aring>/g; + $line =~ s/\xc3\xa6/E<aelig>/g; + $line =~ s/\xc3\xa7/E<ccedil>/g; + $line =~ s/\xc3\xa8/E<egrave>/g; + $line =~ s/\xc3\xa9/E<eacute>/g; + $line =~ s/\xc3\xaa/E<ecirc>/g; + $line =~ s/\xc3\xab/E<euml>/g; + $line =~ s/\xc3\xac/E<igrave>/g; + $line =~ s/\xc3\xad/E<iacute>/g; + $line =~ s/\xc3\xae/E<icirc>/g; + $line =~ s/\xc3\xaf/E<iuml>/g; + $line =~ s/\xc3\xb0/E<eth>/g; + $line =~ s/\xc3\xb1/E<ntilde>/g; + $line =~ s/\xc3\xb2/E<ograve>/g; + $line =~ s/\xc3\xb3/E<oacute>/g; + $line =~ s/\xc3\xb4/E<ocirc>/g; + $line =~ s/\xc3\xb5/E<otilde>/g; + $line =~ s/\xc3\xb6/E<ouml>/g; + $line =~ s/\xc3\xb8/E<oslash>/g; + $line =~ s/\xc3\xb9/E<ugrave>/g; + $line =~ s/\xc3\xba/E<uacute>/g; + $line =~ s/\xc3\xbb/E<ucirc>/g; + $line =~ s/\xc3\xbc/E<uuml>/g; + $line =~ s/\xc3\xbd/E<yacute>/g; + $line =~ s/\xc3\xbe/E<thorn>/g; + $line =~ s/\xc3\xbf/E<yuml>/g; + print $line; +} |