package dpl::tei; use dpl; use Data::Dumper; $VERSION = 0.01; sub mktei { my $file = shift; my $dic = dpl::opendb($file); open(LIST,"LC_ALL=en_UK.UTF-8 sort -d -f $file.wrdlst|") or die("cant open $file\n"); print header(); # TODO -- print front matter & stuff like print "\n"; while () { chomp; next if /^!/; print " \n"; print entry($_,$dic->{h}{$_}); print " \n"; } print "\n"; # TODO -- print back matter... close LIST; } sub header { return <<'EOX'; ]> EOX } sub entry { my ($term,$entry) = @_; print "
\n"; print " $term\n"; print "
\n"; for (@$entry) { print " \n"; print " $_->{sem}\n" if exists($_->{sem}); print " $_->{!ex}\n" if exists($_->{!ex}); print " ",join("; ",@{$_->{syn}}),"\n" if exists($_->{syn}); print " \n"; } } 1; __END__