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
32
33
34
35
36
37
38
39
|
#!/usr/bin/perl -w
# Used to convert MANUAL.markdown to MANUAL.
use strict;
use warnings;
my $lastBlank = 0;
while(<>) {
# Skip comments
next if /^\s*<!--/;
next if /^\s*!/;
next if /^\s*-->/;
# Skip internal links
next if /\[.*\]: #/;
# Skip HTML
next if /^\s?\s?\s?<.*>\s*$/;
# Skip HTML
next if /^\s*<table/;
next if /^\s*<\/td/;
# Strip [`...`]
s/\[`/`/g;
s/`\]/`/g;
# Strip [#...]
s/\[#[^\]]*\]//g;
# Strip (#...)
s/\(#[^\)]*\)//g;
# Turn hashes into spaces
s/^####/ /;
s/^###/ /;
if(/^\s*$/) {
next if $lastBlank;
$lastBlank = 1;
} else {
$lastBlank = 0;
}
print $_;
}
|
