annotate interps/c-intercal/doc/fixtoc.pl @ 3397:131be0e3c486
<boily> addquote <Roujo> I AM AN INVADING NECROPOLIS... ALL BOW BEFORE MY... erm... WALLS?... NECROBUILDINGS?
author |
HackBot |
date |
Fri, 09 Aug 2013 13:57:27 +0000 |
parents |
859f9b4339e6 |
children |
|
rev |
line source |
996
|
1 #!/bin/perl -w
|
|
2
|
|
3 # Deindent and delink part headings in the TOC, and remove the initial
|
|
4 # H2 entry.
|
|
5
|
|
6 my $f=1;
|
|
7
|
|
8 while(<>)
|
|
9 {
|
|
10 $f and /<ul>/ and do{$f=0; next;};
|
|
11 /^<li><a[^>]*>C-INTERCAL / and next;
|
|
12 s%^<li><a[^>]*>(PART .*?)</a>%</ul><h3>$1</h3><ul>%;
|
|
13 print;
|
|
14 last if $_ eq "</div>\n";
|
|
15 }
|
|
16 while(<>) {print;}
|