Mercurial > repo
view interps/c-intercal/doc/fixtoc.pl @ 10602:e75549e6a193
<rdococ> le//rn tip//A tip is \x030,3[ $ ]\x03 if you\'re American, \x0312[ \xc2\xa3 ]\x03 if you\'re British, and if you\'re Japanese.
author | HackBot |
---|---|
date | Mon, 10 Apr 2017 20:02:38 +0000 |
parents | 859f9b4339e6 |
children |
line wrap: on
line source
#!/bin/perl -w # Deindent and delink part headings in the TOC, and remove the initial # H2 entry. my $f=1; while(<>) { $f and /<ul>/ and do{$f=0; next;}; /^<li><a[^>]*>C-INTERCAL / and next; s%^<li><a[^>]*>(PART .*?)</a>%</ul><h3>$1</h3><ul>%; print; last if $_ eq "</div>\n"; } while(<>) {print;}