home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Source Code / C / Applications / MacPerl 5.0.3 / MacPerl Source ƒ / MacPerl5 / pod / pod2man < prev    next >
Encoding:
Text File  |  1994-12-26  |  14.0 KB  |  626 lines  |  [TEXT/MPS ]
  1. #!/usr/bin/perl
  2.  
  3. $/ = "";
  4. $cutting = 1;
  5.  
  6. $CFont = 'CW';
  7. if ($ARGV[0] =~ s/-fc(.*)//) {
  8.     shift;
  9.     $CFont = $1 || shift;
  10. }
  11.  
  12. if (length($CFont) == 2) {
  13.     $CFont_embed = "\\f($CFont";
  14. } 
  15. elsif (length($CFont) == 1) {
  16.     $CFont_embed = "\\f$CFont";
  17. } 
  18. else {
  19.     die "Roff font should be 1 or 2 chars, not `$CFont_embed'";
  20. } 
  21.  
  22. $name = @ARGV ? $ARGV[0] : "something";
  23. $name =~ s/\..*//;
  24.  
  25. print <<"END";
  26. .rn '' }`
  27. ''' \$RCSfile\$\$Revision\$\$Date\$
  28. ''' 
  29. ''' \$Log\$
  30. ''' 
  31. .de Sh
  32. .br
  33. .if t .Sp
  34. .ne 5
  35. .PP
  36. \\fB\\\\\$1\\fR
  37. .PP
  38. ..
  39. .de Sp
  40. .if t .sp .5v
  41. .if n .sp
  42. ..
  43. .de Ip
  44. .br
  45. .ie \\\\n(.\$>=3 .ne \\\\\$3
  46. .el .ne 3
  47. .IP "\\\\\$1" \\\\\$2
  48. ..
  49. .de Vb
  50. .ft $CFont
  51. .nf
  52. .ne \\\\\$1
  53. ..
  54. .de Ve
  55. .ft R
  56.  
  57. .fi
  58. ..
  59. '''
  60. '''
  61. '''     Set up \\*(-- to give an unbreakable dash;
  62. '''     string Tr holds user defined translation string.
  63. '''     Bell System Logo is used as a dummy character.
  64. '''
  65. .tr \\(*W-|\\(bv\\*(Tr
  66. .ie n \\{\\
  67. .ds -- \\(*W-
  68. .if (\\n(.H=4u)&(1m=24u) .ds -- \\(*W\\h'-12u'\\(*W\\h'-12u'-\\" diablo 10 pitch
  69. .if (\\n(.H=4u)&(1m=20u) .ds -- \\(*W\\h'-12u'\\(*W\\h'-8u'-\\" diablo 12 pitch
  70. .ds L" ""
  71. .ds R" ""
  72. .ds L' '
  73. .ds R' '
  74. 'br\\}
  75. .el\\{\\
  76. .ds -- \\(em\\|
  77. .tr \\*(Tr
  78. .ds L" ``
  79. .ds R" ''
  80. .ds L' `
  81. .ds R' '
  82. .if t .ds PI \\(*p
  83. .if n .ds PI PI
  84. 'br\\}
  85. .TH \U$name\E 1 "\\*(RP"
  86. .UC
  87. END
  88.  
  89. print <<'END';
  90. .if n .hy 0 
  91. .if n .na
  92. .ds C+ C\v'-.1v'\h'-1p'\s-2+\h'-1p'+\s0\v'.1v'\h'-1p'
  93. .de CQ          \" put $1 in typewriter font
  94. END
  95. print ".ft $CFont\n";
  96. print <<'END';
  97. 'if n "\c
  98. 'if t \\\\&\\\\$1\c
  99. 'if n \\\\&\\\\$1\c
  100. 'if n \&"
  101. \\\\&\\\\$2 \\\\$3 \\\\$4 \\\\$5 \\\\$6 \\\\$7
  102. '.ft R
  103. ..
  104. .\" @(#)ms.acc 1.5 88/02/08 SMI; from UCB 4.2
  105. .    \" AM - accent mark definitions
  106. .bd S B 3
  107. .    \" fudge factors for nroff and troff
  108. .if n \{\
  109. .    ds #H 0
  110. .    ds #V .8m
  111. .    ds #F .3m
  112. .    ds #[ \f1
  113. .    ds #] \fP
  114. .\}
  115. .if t \{\
  116. .    ds #H ((1u-(\\\\\\\\n(.fu%2u))*.13m)
  117. .    ds #V .6m
  118. .    ds #F 0
  119. .    ds #[ \&
  120. .    ds #] \&
  121. .\}
  122. .    \" simple accents for nroff and troff
  123. .if n \{\
  124. .    ds ' \&
  125. .    ds ` \&
  126. .    ds ^ \&
  127. .    ds , \&
  128. .    ds ~ ~
  129. .    ds ? ?
  130. .    ds ! !
  131. .    ds / 
  132. .    ds q 
  133. .\}
  134. .if t \{\
  135. .    ds ' \\\\k:\h'-(\\\\n(.wu*8/10-\*(#H)'\'\h"|\\\\n:u"
  136. .    ds ` \\\\k:\h'-(\\\\n(.wu*8/10-\*(#H)'\`\h'|\\\\n:u'
  137. .    ds ^ \\\\k:\h'-(\\\\n(.wu*10/11-\*(#H)'^\h'|\\\\n:u'
  138. .    ds , \\\\k:\h'-(\\\\n(.wu*8/10)',\h'|\\\\n:u'
  139. .    ds ~ \\\\k:\h'-(\\\\n(.wu-\*(#H-.1m)'~\h'|\\\\n:u'
  140. .    ds ? \s-2c\h'-\w'c'u*7/10'\u\h'\*(#H'\zi\d\s+2\h'\w'c'u*8/10'
  141. .    ds ! \s-2\(or\s+2\h'-\w'\(or'u'\v'-.8m'.\v'.8m'
  142. .    ds / \\\\k:\h'-(\\\\n(.wu*8/10-\*(#H)'\z\(sl\h'|\\\\n:u'
  143. .    ds q o\h'-\w'o'u*8/10'\s-4\v'.4m'\z\(*i\v'-.4m'\s+4\h'\w'o'u*8/10'
  144. .\}
  145. .    \" troff and (daisy-wheel) nroff accents
  146. .ds : \\\\k:\h'-(\\\\n(.wu*8/10-\*(#H+.1m+\*(#F)'\v'-\*(#V'\z.\h'.2m+\*(#F'.\h'|\\\\n:u'\v'\*(#V'
  147. .ds 8 \h'\*(#H'\(*b\h'-\*(#H'
  148. .ds v \\\\k:\h'-(\\\\n(.wu*9/10-\*(#H)'\v'-\*(#V'\*(#[\s-4v\s0\v'\*(#V'\h'|\\\\n:u'\*(#]
  149. .ds _ \\\\k:\h'-(\\\\n(.wu*9/10-\*(#H+(\*(#F*2/3))'\v'-.4m'\z\(hy\v'.4m'\h'|\\\\n:u'
  150. .ds . \\\\k:\h'-(\\\\n(.wu*8/10)'\v'\*(#V*4/10'\z.\v'-\*(#V*4/10'\h'|\\\\n:u'
  151. .ds 3 \*(#[\v'.2m'\s-2\&3\s0\v'-.2m'\*(#]
  152. .ds o \\\\k:\h'-(\\\\n(.wu+\w'\(de'u-\*(#H)/2u'\v'-.3n'\*(#[\z\(de\v'.3n'\h'|\\\\n:u'\*(#]
  153. .ds d- \h'\*(#H'\(pd\h'-\w'~'u'\v'-.25m'\f2\(hy\fP\v'.25m'\h'-\*(#H'
  154. .ds D- D\\\\k:\h'-\w'D'u'\v'-.11m'\z\(hy\v'.11m'\h'|\\\\n:u'
  155. .ds th \*(#[\v'.3m'\s+1I\s-1\v'-.3m'\h'-(\w'I'u*2/3)'\s-1o\s+1\*(#]
  156. .ds Th \*(#[\s+2I\s-2\h'-\w'I'u*3/5'\v'-.3m'o\v'.3m'\*(#]
  157. .ds ae a\h'-(\w'a'u*4/10)'e
  158. .ds Ae A\h'-(\w'A'u*4/10)'E
  159. .ds oe o\h'-(\w'o'u*4/10)'e
  160. .ds Oe O\h'-(\w'O'u*4/10)'E
  161. .    \" corrections for vroff
  162. .if v .ds ~ \\\\k:\h'-(\\\\n(.wu*9/10-\*(#H)'\s-2\u~\d\s+2\h'|\\\\n:u'
  163. .if v .ds ^ \\\\k:\h'-(\\\\n(.wu*10/11-\*(#H)'\v'-.4m'^\v'.4m'\h'|\\\\n:u'
  164. .    \" for low resolution devices (crt and lpr)
  165. .if \n(.H>23 .if \n(.V>19 \
  166. \{\
  167. .    ds : e
  168. .    ds 8 ss
  169. .    ds v \h'-1'\o'\(aa\(ga'
  170. .    ds _ \h'-1'^
  171. .    ds . \h'-1'.
  172. .    ds 3 3
  173. .    ds o a
  174. .    ds d- d\h'-1'\(ga
  175. .    ds D- D\h'-1'\(hy
  176. .    ds th \o'bp'
  177. .    ds Th \o'LP'
  178. .    ds ae ae
  179. .    ds Ae AE
  180. .    ds oe oe
  181. .    ds Oe OE
  182. .\}
  183. .rm #[ #] #H #V #F C
  184. END
  185.  
  186. $indent = 0;
  187.  
  188. while (<>) {
  189.     if ($cutting) {
  190.     next unless /^=/;
  191.     $cutting = 0;
  192.     }
  193.     chomp;
  194.  
  195.     # Translate verbatim paragraph
  196.  
  197.     if (/^\s/) {
  198.     @lines = split(/\n/);
  199.     for (@lines) {
  200.         1 while s
  201.         {^( [^\t]* ) \t ( \t* ) }
  202.         { $1 . ' ' x (8 - (length($1)%8) + 8 * (length($2))) }ex;
  203.         s/\\/\\e/g;
  204.         s/\A/\\&/s;
  205.     }
  206.     $lines = @lines;
  207.     makespace() unless $verbatim++;
  208.     print ".Vb $lines\n";
  209.     print join("\n", @lines), "\n";
  210.     print ".Ve\n";
  211.     $needspace = 0;
  212.     next;
  213.     }
  214.  
  215.     $verbatim = 0;
  216.  
  217.     # check for things that'll hosed our noremap scheme; affects $_
  218.     init_noremap();
  219.  
  220.     if (!/^=item/) {
  221.  
  222.     # trofficate backslashes; must do it before what happens below
  223.     s/\\/noremap('\\e')/ge;
  224.  
  225.     # first hide the escapes in case we need to 
  226.     # intuit something and get it wrong due to fmting
  227.  
  228.     s/([A-Z]<[^<>]*>)/noremap($1)/ge;
  229.  
  230.     # func() is a reference to a perl function
  231.     s{
  232.         \b
  233.         (
  234.         [:\w]+ \(\)
  235.         )
  236.     } {I<$1>}gx;
  237.  
  238.     # func(n) is a reference to a man page
  239.     s{
  240.         (\w+)
  241.         (
  242.         \(
  243.             [^\s,\051]+
  244.         \)
  245.         )
  246.     } {I<$1>\\|$2}gx;
  247.  
  248.     # convert simple variable references
  249.     s/([\$\@%][\w:]+)/C<$1>/g;
  250.  
  251.     if (m{ (
  252.             [\-\w]+
  253.             \(
  254.             [^\051]*?
  255.             [\@\$,]
  256.             [^\051]*?
  257.             \)
  258.         )
  259.         }x && $` !~ /([LCI]<[^<>]*|-)$/ && !/^=\w/) 
  260.     {
  261.         warn "``$1'' should be a [LCI]<$1> ref";
  262.     } 
  263.  
  264.     while (/(-[a-zA-Z])\b/g && $` !~ /[\w\-]$/) {
  265.         warn "``$1'' should be [CB]<$1> ref";
  266.     } 
  267.  
  268.     # put it back so we get the <> processed again;
  269.     clear_noremap(0); # 0 means leave the E's
  270.  
  271.     } else {
  272.     # trofficate backslashes
  273.     s/\\/noremap('\\e')/ge;
  274.  
  275.     } 
  276.  
  277.     # need to hide E<> first; they're processed in clear_noremap
  278.     s/(E<[^<>]+>)/noremap($1)/ge;
  279.  
  280.  
  281.     $maxnest = 10;
  282.     while ($maxnest-- && /[A-Z]</) {
  283.  
  284.     # can't do C font here
  285.     s/([BI])<([^<>]*)>/font($1) . $2 . font('R')/eg;
  286.  
  287.     # files and filelike refs in italics
  288.     s/F<([^<>]*)>/I<$1>/g;
  289.  
  290.     # no break -- usually we want C<> for this
  291.     s/S<([^<>]*)>/nobreak($1)/eg;
  292.  
  293.     # LREF: a manpage(3f) 
  294.     s:L<([a-zA-Z][^\s\/]+)(\([^\)]+\))?>:the I<$1>$2 manpage:g;
  295.  
  296.     # LREF: an =item on another manpage
  297.     s{
  298.         L<
  299.         ([^/]+)
  300.         /
  301.         (
  302.             [:\w]+
  303.             (\(\))?
  304.         )
  305.         >
  306.     } {the C<$2> entry in the I<$1> manpage}gx;
  307.  
  308.     # LREF: an =item on this manpage
  309.     s{
  310.        ((?:
  311.         L<
  312.         /
  313.         (
  314.             [:\w]+
  315.             (\(\))?
  316.         )
  317.         >
  318.         (,?\s+(and\s+)?)?
  319.       )+)
  320.     } { internal_lrefs($1) }gex;
  321.  
  322.     # LREF: a =head2 (head1?), maybe on a manpage, maybe right here
  323.     # the "func" can disambiguate
  324.     s{
  325.         L<
  326.         (?:
  327.             ([a-zA-Z]\S+?) / 
  328.         )?
  329.         "?(.*?)"?
  330.         >
  331.     }{
  332.         do {
  333.         $1     # if no $1, assume it means on this page.
  334.             ?  "the section on I<$2> in the I<$1> manpage"
  335.             :  "the section on I<$2>"
  336.         } 
  337.     }gex;
  338.  
  339.     s/Z<>/\\&/g;
  340.  
  341.     # comes last because not subject to reprocessing
  342.     s/C<([^<>]*)>/noremap("${CFont_embed}${1}\\fR")/eg;
  343.     }
  344.  
  345.     if (s/^=//) {
  346.     $needspace = 0;        # Assume this.
  347.  
  348.     s/\n/ /g;
  349.  
  350.     ($Cmd, $_) = split(' ', $_, 2);
  351.  
  352.     if (defined $_) {
  353.         &escapes;
  354.         s/"/""/g;
  355.     }
  356.  
  357.     clear_noremap(1);
  358.  
  359.     if ($Cmd eq 'cut') {
  360.         $cutting = 1;
  361.     }
  362.     elsif ($Cmd eq 'head1') {
  363.         print qq{.SH "$_"\n}
  364.     }
  365.     elsif ($Cmd eq 'head2') {
  366.         print qq{.Sh "$_"\n}
  367.     }
  368.     elsif ($Cmd eq 'over') {
  369.         push(@indent,$indent);
  370.         $indent = $_ + 0;
  371.     }
  372.     elsif ($Cmd eq 'back') {
  373.         $indent = pop(@indent);
  374.         warn "Unmatched =back\n" unless defined $indent;
  375.         $needspace = 1;
  376.     }
  377.     elsif ($Cmd eq 'item') {
  378.         s/^\*( |$)/\\(bu$1/g;
  379.         print STDOUT qq{.Ip "$_" $indent\n};
  380.     }
  381.     else {
  382.         warn "Unrecognized directive: $Cmd\n";
  383.     }
  384.     }
  385.     else {
  386.     if ($needspace) {
  387.         &makespace;
  388.     }
  389.     &escapes;
  390.     clear_noremap(1);
  391.     print $_, "\n";
  392.     $needspace = 1;
  393.     }
  394. }
  395.  
  396. print <<"END";
  397.  
  398. .rn }` ''
  399. END
  400.  
  401. #########################################################################
  402.  
  403. sub nobreak {
  404.     my $string = shift;
  405.     $string =~ s/ /\\ /g;
  406.     $string;
  407. }
  408.  
  409. sub escapes {
  410.  
  411.     # translate the minus in foo-bar into foo\-bar for roff
  412.     s/([^0-9a-z-])-([^-])/$1\\-$2/g;
  413.  
  414.     # make -- into the string version \*(-- (defined above)
  415.     s/\b--\b/\\*(--/g;
  416.     s/"--([^"])/"\\*(--$1/g;  # should be a better way
  417.     s/([^"])--"/$1\\*(--"/g;
  418.  
  419.     # fix up quotes; this is somewhat tricky
  420.     if (!/""/) {
  421.     s/(^|\s)(['"])/noremap("$1\\*(L$2")/ge;
  422.     s/(['"])($|[\-\s,;\\!?.])/noremap("\\*(R$1$2")/ge;
  423.     }
  424.  
  425.     #s/(?!")(?:.)--(?!")(?:.)/\\*(--/g;
  426.     #s/(?:(?!")(?:.)--(?:"))|(?:(?:")--(?!")(?:.))/\\*(--/g;
  427.     
  428.  
  429.     # make sure that func() keeps a bit a space tween the parens
  430.     ### s/\b\(\)/\\|()/g;
  431.     ### s/\b\(\)/(\\|)/g;
  432.  
  433.     # make C++ into \*C+, which is a squinched version (defined above)
  434.     s/\bC\+\+/\\*(C+/g;
  435.  
  436.     # make double underbars have a little tiny space between them
  437.     s/__/_\\|_/g;
  438.  
  439.     # PI goes to \*(-- (defined above)
  440.     s/\bPI\b/noremap('\\*(PI')/ge;
  441.  
  442.     # make all caps a teeny bit smaller, but don't muck with embedded code literals
  443.     my $hidCFont = font('C');
  444.     if ($Cmd !~ /^head1/) { # SH already makes smaller
  445.     # /g isn't enough; 1 while or we'll be off
  446.  
  447. #    1 while s{
  448. #        (?!$hidCFont)(..|^.|^)
  449. #        \b
  450. #        (
  451. #        [A-Z][\/A-Z+:\-\d_$.]+
  452. #        )
  453. #        (s?)         
  454. #        \b
  455. #    } {$1\\s-1$2\\s0}gmox;
  456.  
  457.     1 while s{
  458.         (?!$hidCFont)(..|^.|^)
  459.         (
  460.         \b[A-Z]{2,}[\/A-Z+:\-\d_\$]*\b
  461.         )
  462.     } { 
  463.         $1 . noremap( '\\s-1' .  $2 . '\\s0' )
  464.     }egmox;
  465.  
  466.     }
  467. }
  468.  
  469. # make troff just be normal, but make small nroff get quoted
  470. # decided to just put the quotes in the text; sigh;
  471. sub ccvt {
  472.      local($_,$prev) = @_;
  473.      if ( /^\W+$/ && !/^\$./ ) {
  474.      ($prev && "\n") . noremap(qq{.CQ $_ \n\\&});
  475.      # what about $" ?
  476.      } else {
  477.      noremap(qq{${CFont_embed}$_\\fR});
  478.      } 
  479.     noremap(qq{.CQ "$_" \n\\&});
  480. } 
  481.  
  482. sub makespace {
  483.     if ($indent) {
  484.     print ".Sp\n";
  485.     }
  486.     else {
  487.     print ".PP\n";
  488.     }
  489. }
  490.  
  491. sub font {
  492.     local($font) = shift;
  493.     return '\\f' . noremap($font);
  494. } 
  495.  
  496. sub noremap {
  497.     local($thing_to_hide) = shift;
  498.     $thing_to_hide =~ tr/\000-\177/\200-\377/;
  499.     return $thing_to_hide;
  500. } 
  501.  
  502. sub init_noremap {
  503.     if ( /[\200-\377]/ ) {
  504.     warn "hit bit char in input stream";
  505.     } 
  506. } 
  507.  
  508. sub clear_noremap {
  509.     my $ready_to_print = $_[0];
  510.  
  511.     tr/\200-\377/\000-\177/;
  512.  
  513.     # trofficate backslashes
  514.     # s/(?!\\e)(?:..|^.|^)\\/\\e/g;
  515.  
  516.     # now for the E<>s, which have been hidden until now
  517.     # otherwise the interative \w<> processing would have
  518.     # been hosed by the E<gt>
  519.     s {
  520.         E<    
  521.         ( [A-Za-z]+ )    
  522.         >    
  523.     } { 
  524.      do {    
  525.          exists $HTML_Escapes{$1}
  526.         ? do { $HTML_Escapes{$1} }
  527.         : do {
  528.             warn "Unknown escape: $& in $_";
  529.             "E<$1>";
  530.         } 
  531.      } 
  532.     }egx if $ready_to_print;
  533. } 
  534.  
  535. sub internal_lrefs {
  536.     local($_) = shift;
  537.  
  538.     s{L</([^>]+)>}{$1}g;
  539.     my(@items) = split( /(?:,?\s+(?:and\s+)?)/ );
  540.     my $retstr = "the ";
  541.     my $i;
  542.     for ($i = 0; $i <= $#items; $i++) {
  543.     $retstr .= "C<$items[$i]>";
  544.     $retstr .= ", " if @items > 2 && $i != $#items;
  545.     $retstr .= " and " if $i+2 == @items;
  546.     } 
  547.  
  548.     $retstr .= " entr" . ( @items > 1  ? "ies" : "y" )
  549.         .  " elsewhere in this document";
  550.  
  551.     return $retstr;
  552.  
  553. } 
  554.  
  555. BEGIN {
  556. %HTML_Escapes = (
  557.     'amp'    =>    '&',    #   ampersand
  558.     'lt'    =>    '<',    #   left chevron, less-than
  559.     'gt'    =>    '>',    #   right chevron, greater-than
  560.     'quot'    =>    '"',    #   double quote
  561.  
  562.     "Aacute"    =>    "A\\*'",    #   capital A, acute accent
  563.     "aacute"    =>    "a\\*'",    #   small a, acute accent
  564.     "Acirc"    =>    "A\\*^",    #   capital A, circumflex accent
  565.     "acirc"    =>    "a\\*^",    #   small a, circumflex accent
  566.     "AElig"    =>    '\*(AE',    #   capital AE diphthong (ligature)
  567.     "aelig"    =>    '\*(ae',    #   small ae diphthong (ligature)
  568.     "Agrave"    =>    "A\\*`",    #   capital A, grave accent
  569.     "agrave"    =>    "A\\*`",    #   small a, grave accent
  570.     "Aring"    =>    'A\\*o',    #   capital A, ring
  571.     "aring"    =>    'a\\*o',    #   small a, ring
  572.     "Atilde"    =>    'A\\*~',    #   capital A, tilde
  573.     "atilde"    =>    'a\\*~',    #   small a, tilde
  574.     "Auml"    =>    'A\\*:',    #   capital A, dieresis or umlaut mark
  575.     "auml"    =>    'a\\*:',    #   small a, dieresis or umlaut mark
  576.     "Ccedil"    =>    'C\\*,',    #   capital C, cedilla
  577.     "ccedil"    =>    'c\\*,',    #   small c, cedilla
  578.     "Eacute"    =>    "E\\*'",    #   capital E, acute accent
  579.     "eacute"    =>    "e\\*'",    #   small e, acute accent
  580.     "Ecirc"    =>    "E\\*^",    #   capital E, circumflex accent
  581.     "ecirc"    =>    "e\\*^",    #   small e, circumflex accent
  582.     "Egrave"    =>    "E\\*`",    #   capital E, grave accent
  583.     "egrave"    =>    "e\\*`",    #   small e, grave accent
  584.     "ETH"    =>    '\\*(D-',    #   capital Eth, Icelandic
  585.     "eth"    =>    '\\*(d-',    #   small eth, Icelandic
  586.     "Euml"    =>    "E\\*:",    #   capital E, dieresis or umlaut mark
  587.     "euml"    =>    "e\\*:",    #   small e, dieresis or umlaut mark
  588.     "Iacute"    =>    "I\\*'",    #   capital I, acute accent
  589.     "iacute"    =>    "i\\*'",    #   small i, acute accent
  590.     "Icirc"    =>    "I\\*^",    #   capital I, circumflex accent
  591.     "icirc"    =>    "i\\*^",    #   small i, circumflex accent
  592.     "Igrave"    =>    "I\\*`",    #   capital I, grave accent
  593.     "igrave"    =>    "i\\*`",    #   small i, grave accent
  594.     "Iuml"    =>    "I\\*:",    #   capital I, dieresis or umlaut mark
  595.     "iuml"    =>    "i\\*:",    #   small i, dieresis or umlaut mark
  596.     "Ntilde"    =>    'N\*~',        #   capital N, tilde
  597.     "ntilde"    =>    'n\*~',        #   small n, tilde
  598.     "Oacute"    =>    "O\\*'",    #   capital O, acute accent
  599.     "oacute"    =>    "o\\*'",    #   small o, acute accent
  600.     "Ocirc"    =>    "O\\*^",    #   capital O, circumflex accent
  601.     "ocirc"    =>    "o\\*^",    #   small o, circumflex accent
  602.     "Ograve"    =>    "O\\*`",    #   capital O, grave accent
  603.     "ograve"    =>    "o\\*`",    #   small o, grave accent
  604.     "Oslash"    =>    "O\\*/",    #   capital O, slash
  605.     "oslash"    =>    "o\\*/",    #   small o, slash
  606.     "Otilde"    =>    "O\\*~",    #   capital O, tilde
  607.     "otilde"    =>    "o\\*~",    #   small o, tilde
  608.     "Ouml"    =>    "O\\*:",    #   capital O, dieresis or umlaut mark
  609.     "ouml"    =>    "o\\*:",    #   small o, dieresis or umlaut mark
  610.     "szlig"    =>    '\*8',        #   small sharp s, German (sz ligature)
  611.     "THORN"    =>    '\\*(Th',    #   capital THORN, Icelandic
  612.     "thorn"    =>    '\\*(th',,    #   small thorn, Icelandic
  613.     "Uacute"    =>    "U\\*'",    #   capital U, acute accent
  614.     "uacute"    =>    "u\\*'",    #   small u, acute accent
  615.     "Ucirc"    =>    "U\\*^",    #   capital U, circumflex accent
  616.     "ucirc"    =>    "u\\*^",    #   small u, circumflex accent
  617.     "Ugrave"    =>    "U\\*`",    #   capital U, grave accent
  618.     "ugrave"    =>    "u\\*`",    #   small u, grave accent
  619.     "Uuml"    =>    "U\\*:",    #   capital U, dieresis or umlaut mark
  620.     "uuml"    =>    "u\\*:",    #   small u, dieresis or umlaut mark
  621.     "Yacute"    =>    "Y\\*'",    #   capital Y, acute accent
  622.     "yacute"    =>    "y\\*'",    #   small y, acute accent
  623.     "yuml"    =>    "y\\*:",    #   small y, dieresis or umlaut mark
  624. );
  625. }
  626.