#!/usr/local/bin/perl

open(text, ">notdtd.txt");
$footsize=0;
$headsize=0;
$prev = "";
$writing="text";
line:
while (<STDIN>) {
    if ($footsize==0) {
	if (/^Request for Comments/) {
	    $footsize = 3;
	    $headsize = 4;
	} elsif (/^INTERNET-DRAFT/) {
	    $footsize=1;
	    $headsize=3;
	};
    };
    push(@lines,$_);
    if ($#lines<$footsize) { next line; };

    if (/\[Page \d+\]/) {
# Skip $footsize+$headsize lines of which ${footsize}th has matched
# i.e strip page breaks
	@lines=();		# throw away $footsize lines
	for ($i=0;$i<$headsize;$i++) { $_ = <STDIN>; };
	next line;
    };
    
    $_ = shift(@lines);
    if ($writing eq "output") {
# Stop when a section number is seen
	if (/^\d+\./) {
	    close output;
	    $writing = "text";
	};
    } elsif (($file) = /^<!--\s+([-\w]+\.dtd)/) {
# Comment at start of dtd file seen
	open(output,">$file") || die "Failed to open $file for output";
	print "Writing $file\n";
	$writing = "output";
    } elsif (/^<!SGML/) {
# Found the SGML declaration
	$file = "html.decl";
	open(output,">$file") || die "Failed to open $file for output";
	print "Writing $file\n";
	$writing = "output";
    } elsif (/^\s+-- catalog:/) {
# Found the catalog
	$file = "catalog";
	open(output,">$file") || die "Failed to open $file for output";
	print "Writing $file\n";
	$writing = "output";
    } elsif (/^<!-- \(C\) International Organization for Standardization /) {
# Found the Character entity set
	$file = "ISOlat1.sgml";
	open(output,">$file") || die "Failed to open $file for output";
	print "Writing $file\n";
	$writing = "output";
    };
    print $writing $_;
}
if ($writing eq "output") {close output};
close text;