From: Nguyễn Hồng Quân Date: Thu, 25 Oct 2012 17:27:45 +0000 (+0700) Subject: First commit. X-Git-Url: https://vcs.maemo.org/git/?p=mverbiste;a=commitdiff_plain;h=b852b4dfc8d0b85d85c00963eb9b23e12b1b86cf First commit. --- b852b4dfc8d0b85d85c00963eb9b23e12b1b86cf diff --git a/data/check-data.pl b/data/check-data.pl new file mode 100755 index 0000000..b4b0bd3 --- /dev/null +++ b/data/check-data.pl @@ -0,0 +1,85 @@ +#!/usr/bin/perl -w + +use strict; +use XML::Parser; + + +my $numErrors = 0; +my %personTable = (); +my $curTemplate; +my $curInflection; + + +sub error +{ + my ($msg) = @_; + + print "$0: ERROR: $msg\n"; + $numErrors++; +} + + +sub handleStart +{ + my ($expat, $el, %attr) = @_; + + if ($el eq "template") + { + $curTemplate = $attr{name}; + if (!defined $curTemplate) + { + error("