From f98303632bc9dac488096dea603fedb7f49f13c8 Mon Sep 17 00:00:00 2001
From: P. J. McDermott <pjm@nac.net>
Date: Sun, 12 Aug 2012 15:36:01 -0400
Subject: Now remove the old notes and demo script.

---
(limited to 'notes/number-sections.pl')

diff --git a/notes/number-sections.pl b/notes/number-sections.pl
deleted file mode 100755
index 3cef327..0000000
--- a/notes/number-sections.pl
+++ /dev/null
@@ -1,73 +0,0 @@
-#! /usr/bin/perl
-
-use strict;
-use warnings;
-
-use HTML::TreeBuilder;
-
-sub find_elements_by_tag_names($@)
-{
-	my ($elem, @tagnames) = @_;
-	if (ref($elem) ne 'HTML::TreeBuilder' && ref($elem) ne 'HTML::Element') {
-		die('Invalid argument to find_elements_by_tag_names');
-	}
-
-	my @list = $elem->content_list();
-	my $tag;
-	my @retlist = ();
-
-	foreach (@list) {
-		if (ref($_) ne 'HTML::Element') {
-			next;
-		}
-		$tag = $_->tag();
-		if (grep($_ eq $tag, @tagnames)) {
-			push(@retlist, $_);
-		}
-	}
-
-	return @retlist;
-}
-
-sub number_sections($)
-{
-	my ($doc) = @_;
-#	my $doc = shift;
-	if (ref($doc) ne 'HTML::TreeBuilder') {
-		die('Invalid argument to number_sections');
-	}
-
-	my @body = find_elements_by_tag_names($doc, ('body'));
-	my @headers = find_elements_by_tag_names($body[0],
-		('h1', 'h2', 'h3', 'h4', 'h5', 'h6'));
-	my @secnums = (0, 0, 0, 0, 0, 0);
-	my $curlev = -1;
-	my $newlev;
-	my $secstr;
-
-	foreach (@headers) {
-		$newlev = $_->tag();
-		$newlev =~ s/^h(\d)$/$1/;
-		if ($newlev != $curlev) {
-			foreach (@secnums[$newlev .. $#secnums]) {
-				$_ = 0;
-			}
-		}
-		++$secnums[$newlev - 1];
-		$secstr = join('.', @secnums);
-		$secstr =~ s/(\.0)*$//;
-		print($secstr, ":\t\"", $_->content_list(), "\"\n");
-		$curlev = $newlev;
-	}
-}
-
-sub main()
-{
-	my $doc = HTML::TreeBuilder->new();
-	while (<>) {
-		$doc->parse($_);
-	}
-	number_sections($doc);
-}
-
-main();
--
cgit v0.9.1