File: man2debiandoc.pl

package info (click to toggle)
svn-buildpackage 0.6.16etch1
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k
  • size: 260 kB
  • ctags: 42
  • sloc: perl: 1,399; makefile: 76; sh: 26
file content (31 lines) | stat: -rw-r--r-- 580 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
#!/usr/bin/perl
use HTML::Entities;

while(<>) {
   s/\\-/-/g;
   s/\\_/_/g;
   s/^\.\\\".*//;
   encode_entities($_);
   exit if /SEE ALSO/;
   s/^\.TH.*//;
   if(s/\.SH (.*)/<sect1>$1\n<p>/) {
      $secname=$1;
      if($sect1_open) {
         $_="</sect1>\n$_";
         $sect1_open=0;
      }
      else { $sect1_open=1}
   }
   s/^\.B(.*)/<strong>$1<\/strong>/;
   s/\.TP/<p>/;
   s/\.PP/<p>/;
   s/\.RS/<example>/;
   s/\.PD.*//;
   s/\.P//;
   s/\.RE/<\/example>/;
   s/\\fI/ <em>/g;
   s/\\fB/ <em>/g;
   s/\\fR/<\/em> /g;
   print $_;
}
print "</sect1>" if $sect1_open;