Mercurial > repo
annotate interps/c-intercal/doc/fixtoc.pl @ 9060:d2ff199ea178
<shachaf> revert
author | HackBot |
---|---|
date | Thu, 22 Sep 2016 00:06:48 +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;} |