view interps/c-intercal/doc/fixtoc.pl @ 12292:d51f2100210c draft

<kspalaiologos> `` cat <<<"asmbf && bfi output.b" > /hackenv/ibin/asmbf
author HackEso <hackeso@esolangs.org>
date Thu, 02 Jan 2020 15:38:21 +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;}