Merge pull request penma#4 from Zaba/master

Some changes and fixes

cache2dot

@@ -8,11 +8,8 @@ print "digraph Wikisophy {\n";
 print "\tnode [shape=box];\n";
 
 while (<>) {
-	s/^/\t"/;
-	s/#/" -> "/;
-	s/$/";/;
+	s/^([^#]+)#(.*)$/\t"\u$1" -> "\u$2";/;
 	y/_/ /;
-	$_ = lc;
 
 	print;
 }

cacheleaves

@@ -0,0 +1,23 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+use open IN => ':encoding(UTF-8)';
+
+binmode STDIN, ':encoding(UTF-8)';
+binmode STDOUT, ':utf8';
+
+my (%parents, %children);
+
+while (<>) {
+	if (m/^([^#]+)#(.*)$/) {
+		$parents{ucfirst($1)} = 1;
+		$children{ucfirst($2)} = 1;
+	}
+}
+
+for (keys %parents) {
+	if (not $children{$_}) {
+		print "$_\n";
+	}
+}

wikisophy

@@ -57,15 +57,16 @@ sub parse_page {
 	my ($c) = @_;
 	my $page_name;
 
+	$c =~ s/<ref[^>]*>[^<]+<\/ref>//gs;
+	$c =~ s/'{2,}[^\n]+?'{2,}//gs;
+	$c =~ s/<!--.*?-->//gs;
+
 	wikiparse: while (length($c)) {
 		if ($is_debug) {
 			print $c;
 			print "*" x 80 . "\n\n";
 		}
 
-		$c =~ s/<ref[^>]*>[^<]+<\/ref>//gs;
-		$c =~ s/'{2,}[^\n]+?'{2,}//gs;
-
 		if ($c =~ /^[^{(]+\[\[/s) {
 			$c =~ s/^[^\[]+//s;
 			($page_name, $c) = extract_bracketed($c, "[");