projects
/
mono.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
d0e163eaab58ee2505050454d8303b875c4c869f
[mono.git]
/
doc
/
web
/
htmlify
1
#!/usr/bin/perl
2
$q = 1;
3
4
while (<>){
5
chop;
6
if (/^\* (.*)$/){
7
print "<h1>$1</h1>\n";
8
} elsif (/^\*\* (.*)$/) {
9
print "<h2>$1</h2>\n";
10
} elsif (/^\*\*\* (.*)$/) {
11
print "<h3>$1</h3>\n";
12
} elsif (/^$/) {
13
print "<p>\n";
14
} elsif (/^\t\t\* (.*)$/) {
15
print "<li>$1\n";
16
} elsif (/^Q: (.*)$/){
17
print "<p><a name=\"q$q\"><b>Question $q:</b> $1\n";
18
$q++;
19
} elsif (/^A: (.*)$/){
20
print "$1\n";
21
} else {
22
print "$_\n";
23
}
24
}