WebSVN – nexmon – Blame – Rev 1 – /utilities/wireshark/doc/make-authors-format.pl

1

office

1

# Convert AUTHORS-SHORT file for use in man page and HTML documentation

2

# after processing through pod2man and pod2html.

3

#

4

# Must be called via perlnoutf.

#

#

# Wireshark - Network traffic analyzer

9

# By Gerald Combs <gerald@wireshark.org>

10

11

#

12

# This program is free software; you can redistribute it and/or

13

# modify it under the terms of the GNU General Public License

14

# as published by the Free Software Foundation; either version 2

15

# of the License, or (at your option) any later version.

16

#

17

# This program is distributed in the hope that it will be useful,

18

# but WITHOUT ANY WARRANTY; without even the implied warranty of

19

# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the

20

# GNU General Public License for more details.

21

#

22

# You should have received a copy of the GNU General Public License

23

# along with this program; if not, write to the Free Software

24

# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.

use strict;

print "=for html <pre>\n\n";

29

print "=for man .nf\n\n";

while (<>) {

printline();

}

print "\n=for html </pre>\n";

36

print "\n=for man .fi\n";

37

38

sub printline {

39

my $line = shift || $_;

40

#

41

# Translate UTF-8 characters to the E<> escapes handled by Pod::Man

42

# (and only those, since they're a subset of HTML entities)

43

#

44

$line =~ s/\xc3\x80/E<Agrave>/g;

45

$line =~ s/\xc3\x81/E<Aacute>/g;

46

$line =~ s/\xc3\x82/E<Acirc>/g;

47

$line =~ s/\xc3\x83/E<Atilde>/g;

48

$line =~ s/\xc3\x84/E<Auml>/g;

49

$line =~ s/\xc3\x85/E<Aring>/g;

50

$line =~ s/\xc3\x86/E<AElig>/g;

51

$line =~ s/\xc3\x87/E<Ccedil>/g;

52

$line =~ s/\xc3\x88/E<Egrave>/g;

53

$line =~ s/\xc3\x89/E<Eacute>/g;

54

$line =~ s/\xc3\x8a/E<Ecirc>/g;

55

$line =~ s/\xc3\x8b/E<Euml>/g;

56

$line =~ s/\xc3\x8c/E<Igrave>/g;

57

$line =~ s/\xc3\x8d/E<Iacute>/g;

58

$line =~ s/\xc3\x8e/E<Icirc>/g;

59

$line =~ s/\xc3\x8f/E<Iuml>/g;

60

$line =~ s/\xc3\x90/E<ETH>/g;

61

$line =~ s/\xc3\x91/E<Ntilde>/g;

62

$line =~ s/\xc3\x92/E<Ograve>/g;

63

$line =~ s/\xc3\x93/E<Oacute>/g;

64

$line =~ s/\xc3\x94/E<Ocirc>/g;

65

$line =~ s/\xc3\x95/E<Otilde>/g;

66

$line =~ s/\xc3\x96/E<Ouml>/g;

67

$line =~ s/\xc3\x98/E<Oslash>/g;

68

$line =~ s/\xc3\x99/E<Ugrave>/g;

69

$line =~ s/\xc3\x9a/E<Uacute>/g;

70

$line =~ s/\xc3\x9b/E<Ucirc>/g;

71

$line =~ s/\xc3\x9c/E<Uuml>/g;

72

$line =~ s/\xc3\x9d/E<Yacute>/g;

73

$line =~ s/\xc3\x9e/E<THORN>/g;

74

$line =~ s/\xc3\x9f/E<szlig>/g;

75

$line =~ s/\xc3\xa0/E<agrave>/g;

76

$line =~ s/\xc3\xa1/E<aacute>/g;

77

$line =~ s/\xc3\xa2/E<acirc>/g;

78

$line =~ s/\xc3\xa3/E<atilde>/g;

79

$line =~ s/\xc3\xa4/E<auml>/g;

80

$line =~ s/\xc3\xa5/E<aring>/g;

81

$line =~ s/\xc3\xa6/E<aelig>/g;

82

$line =~ s/\xc3\xa7/E<ccedil>/g;

83

$line =~ s/\xc3\xa8/E<egrave>/g;

84

$line =~ s/\xc3\xa9/E<eacute>/g;

85

$line =~ s/\xc3\xaa/E<ecirc>/g;

86

$line =~ s/\xc3\xab/E<euml>/g;

87

$line =~ s/\xc3\xac/E<igrave>/g;

88

$line =~ s/\xc3\xad/E<iacute>/g;

89

$line =~ s/\xc3\xae/E<icirc>/g;

90

$line =~ s/\xc3\xaf/E<iuml>/g;

91

$line =~ s/\xc3\xb0/E<eth>/g;

92

$line =~ s/\xc3\xb1/E<ntilde>/g;

93

$line =~ s/\xc3\xb2/E<ograve>/g;

94

$line =~ s/\xc3\xb3/E<oacute>/g;

95

$line =~ s/\xc3\xb4/E<ocirc>/g;

96

$line =~ s/\xc3\xb5/E<otilde>/g;

97

$line =~ s/\xc3\xb6/E<ouml>/g;

98

$line =~ s/\xc3\xb8/E<oslash>/g;

99

$line =~ s/\xc3\xb9/E<ugrave>/g;

100

$line =~ s/\xc3\xba/E<uacute>/g;

101

$line =~ s/\xc3\xbb/E<ucirc>/g;

102

$line =~ s/\xc3\xbc/E<uuml>/g;

103

$line =~ s/\xc3\xbd/E<yacute>/g;

104

$line =~ s/\xc3\xbe/E<thorn>/g;

105

$line =~ s/\xc3\xbf/E<yuml>/g;

106

print $line;

107

}

nexmon – Blame information for rev 1