add morphology support for Latin, dependent on Perseus morphology

[scpubgit/stemmatology.git] / lib / Text / Tradition / Language / Base.pm

diff --git a/lib/Text/Tradition/Language/Base.pm b/lib/Text/Tradition/Language/Base.pm
index 98d2625..05f81c0 100644 (file)
--- a/lib/Text/Tradition/Language/Base.pm
+++ b/lib/Text/Tradition/Language/Base.pm
@@ -13,7 +13,8 @@ use Text::Tradition::Collation::Reading::Lexeme;
 use Text::Tradition::Collation::Reading::WordForm;
 use TryCatch;
 
-@EXPORT_OK = qw/ lemmatize_treetagger reading_lookup_treetagger /;
+@EXPORT_OK = qw/ lemmatize_treetagger reading_lookup_treetagger treetagger_struct
+       multext_struct /;
 
 =head1 NAME
 
@@ -244,6 +245,18 @@ sub _treetag_string {
        return $tagresult->as_text();
 }
 
+## HACK function to correct for TagSet::TreeTagger brokenness
+sub treetagger_struct {
+       my $pos = shift;
+       $pos =~ s/PREP/PRP/;
+       return Lingua::TagSet::TreeTagger->tag2structure( $pos );
+}
+
+sub multext_struct {
+       my $pos = shift;
+       # No known hacks needed
+       return Lingua::TagSet::Multext->tag2structure( $pos );
+}
 
 1;