treat 0.1.4 → 0.2.0

data/lib/treat/languages/italian.rb

@@ -1,13 +1,16 @@
 module Treat
   module Languages
     class Italian
+      RequiredDependencies = []
+      OptionalDependencies = []
       Extractors = {}
       Inflectors = {}
       Lexicalizers = {}
       Processors = {
-        chunkers: [:txt],
-        segmenters: [:tactful, :punkt, :stanford],
-        tokenizers: [:multilingual, :macintyre, :perl, :punkt, :tactful, :stanford]
+        :chunkers => [:txt],
+        :parsers => [:stanford],
+        :segmenters => [:punkt],
+        :tokenizers => [:tactful]
       }
     end
   end

data/lib/treat/languages/polish.rb

@@ -0,0 +1,16 @@
+module Treat
+  module Languages
+    class Polish
+      RequiredDependencies = []
+      OptionalDependencies = []
+      Processors = {
+        :chunkers => [:txt],
+        :segmenters => [:punkt],
+        :tokenizers => [:tactful]
+      }
+      Extractors = {}
+      Inflectors = {}
+      Lexicalizers = {}
+    end
+  end
+end

data/lib/treat/languages/portuguese.rb

@@ -0,0 +1,16 @@
+module Treat
+  module Languages
+    class Portuguese
+      RequiredDependencies = []
+      OptionalDependencies = []
+      Processors = {
+        :chunkers => [:txt],
+        :segmenters => [:punkt],
+        :tokenizers => [:tactful]
+      }
+      Extractors = {}
+      Inflectors = {}
+      Lexicalizers = {}
+    end
+  end
+end

data/lib/treat/languages/russian.rb

@@ -0,0 +1,16 @@
+module Treat
+  module Languages
+    class Russian
+      RequiredDependencies = []
+      OptionalDependencies = []
+      Processors = {
+        :chunkers => [:txt],
+        :segmenters => [:punkt],
+        :tokenizers => [:tactful]
+      }
+      Extractors = {}
+      Inflectors = {}
+      Lexicalizers = {}
+    end
+  end
+end

data/lib/treat/languages/spanish.rb

@@ -0,0 +1,16 @@
+module Treat
+  module Languages
+    class Spanish
+      RequiredDependencies = []
+      OptionalDependencies = []
+      Processors = {
+        :chunkers => [:txt],
+        :segmenters => [:punkt],
+        :tokenizers => [:tactful]
+      }
+      Extractors = {}
+      Inflectors = {}
+      Lexicalizers = {}
+    end
+  end
+end

data/lib/treat/languages/swedish.rb

@@ -0,0 +1,16 @@
+module Treat
+  module Languages
+    class Swedish
+      RequiredDependencies = []
+      OptionalDependencies = []
+      Processors = {
+        :chunkers => [:txt],
+        :segmenters => [:punkt],
+        :tokenizers => [:tactful]
+      }
+      Extractors = {}
+      Inflectors = {}
+      Lexicalizers = {}
+    end
+  end
+end

data/lib/treat/languages/tags.rb

@@ -0,0 +1,377 @@
+module Treat
+  module Languages
+
+    module Tags
+      ClawsC5 = 0
+      Brown = 1
+      Penn = 2
+      Negra = 3
+      PennChinese = 4
+      Simple = 5
+
+      PTBClauseTagDescription = [
+        ['S', 'Simple declarative clause'],
+        ['SBAR', 'Clause introduced by a (possibly empty) subordinating conjunction'],
+        ['SBARQ', 'Direct question introduced by a wh-word or a wh-phrase'],
+        ['SINV', 'Inverted declarative sentence'],
+        ['SQ', 'Inverted yes/no question']
+      ]
+
+      AlignedPhraseTags =
+      [
+        'Adjective phrase', ['', '', 'ADJP'],
+        'Adverb phrase', ['', '', 'ADVP'],
+        'Conjunction phrase', ['', '', 'CONJP'],
+        'Fragment', ['', '', 'FRAG'],
+        'Interjection', ['', '', 'INTJ'],
+        'List marker', ['', '', 'LST'],
+        'Not a phrase', ['', '', 'NAC'],
+        'Noun phrase', ['', '', 'NP'],
+        'Head of NP', ['', '', 'NX'],
+        'Prepositional phrase', ['', '', 'PP'],
+        'Parenthetical', ['', '', 'PRN'],
+        'Particle', ['', '', 'PRT'],
+        'Quantifier phrase', ['', '', 'QP'],
+        'Reduced relative clause', ['', '', 'RRC'],
+        'Unlike coordinated phrase', ['', '', 'UCP'],
+        'Verb phrase', ['', '', 'VP'],
+        'Wh adjective phrase', ['', '', 'WHADJP'],
+        'Wh adverb phrase', ['', '', 'WHAVP'],
+        'Wh noun phrase', ['', '', 'WHNP'],
+        'Wh prepositional phrase', ['', '', 'WHPP'],
+        'Unknown', ['', '', 'X'],
+        'Phrase', ['', '', 'P'],
+        'Sentence', ['', '', 'S'],
+        'Phrase', ['', '', 'SBAR'] # Fix
+      ]
+
+      # A description of Enju categories.
+      EnjuCatDescription = [
+        ['ADJ',	'Adjective'],
+        ['ADV',	'Adverb'],
+        ['CONJ',	'Coordination conjunction'],
+        ['C',	'Complementizer'],
+        ['D',	'Determiner'],
+        ['N',	'Noun'],
+        ['P',	'Preposition'],
+        ['SC',	'Subordination conjunction'],
+        ['V',	'Verb'],
+        ['COOD',	'Part of coordination'],
+        ['PN',	'Punctuation'],
+        ['PRT',	'Particle'],
+        ['S',	'Sentence']
+      ]
+
+      # Maps Enju categories to Treat categories.
+      EnjuCatToCategory = {
+        'ADJ' => :adjective,
+        'ADV' => :adverb,
+        'CONJ' => :conjunction,
+        'COOD' => :conjunction,
+        'C' => :complementizer,
+        'D' => :determiner,
+        'N' => :noun,
+        'P' => :preposition,
+        'PN' => :punctuation,
+        'SC' => :conjunction,
+        'V' => :verb,
+        'PRT' => :particle
+      }
+
+      # Description of the xcat in the Enju output specification.
+      EnjuXCatDescription = [
+        ['COOD',	'Coordinated phrase/clause'],
+        ['IMP',	'Imperative sentence'],
+        ['INV',	'Subject-verb inversion'],
+        ['Q',	'Interrogative sentence with subject-verb inversion'],
+        ['REL',	'A relativizer included'],
+        ['FREL', 'A free relative included'],
+        ['TRACE',	'A trace included'],
+        ['WH', 'A wh-question word included']
+      ]
+
+      EnjuCatXcatToPTB = [
+        ['ADJP', '', 'ADJP'],
+        ['ADJP', 'REL', 'WHADJP'],
+        ['ADJP', 'FREL', 'WHADJP'],
+        ['ADJP', 'WH', 'WHADJP'],
+        ['ADVP', '', 'ADVP'],
+        ['ADVP', 'REL', 'WHADVP'],
+        ['ADVP', 'FREL', 'WHADVP'],
+        ['ADVP', 'WH', 'WHADVP'],
+        ['CONJP', '', 'CONJP'],
+        ['CP', '', 'SBAR'],
+        ['DP', '', 'NP'],
+        ['NP', '', 'NP'],
+        ['NX', 'NX', 'NAC'],
+        ['NP'	'REL'	'WHNP'],
+        ['NP'	'FREL'	'WHNP'],
+        ['NP'	'WH'	'WHNP'],
+        ['PP', '', 'PP'],
+        ['PP', 'REL', 'WHPP'],
+        ['PP', 'WH', 'WHPP'],
+        ['PRT', '', 'PRT'],
+        ['S', '', 'S'],
+        ['S', 'INV', 'SINV'],
+        ['S', 'Q', 'SQ'],
+        ['S', 'REL', 'SBAR'],
+        ['S', 'FREL', 'SBAR'],
+        ['S', 'WH', 'SBARQ'],
+        ['SCP', '', 'SBAR'],
+        ['VP', '', 'VP'],
+        ['VP', '', 'VP'],
+        ['', '', 'UK']
+      ]
+
+      # Aligned tags for the Claws C5, Brown and Penn tag sets.
+      # Adapted from Manning, Christopher and Schütze, Hinrich,
+      # 1999. Foundations of Statistical Natural Language
+      # Processing. MIT Press, p. 141-142;
+      # http://www.isocat.org/rest/dcs/376;
+      #
+      # JRS?
+
+
+      SimpleWordTagToCategory = {
+        'C' => :complementizer,
+        'PN' => :punctuation,
+        'SC' => :conjunction
+      }
+
+      AlignedWordTags = [
+
+        'Adjective', ['AJ0', 'JJ', 'JJ', '', 'JJ', 'A'],
+        'Adjective', ['AJ0', 'JJ', 'JJ', '', 'JJ', 'ADJ'],
+        'Ajective, adverbial or predicative', ['', '', '', 'ADJD', '', 'ADJ'],
+        'Adjective, attribute', ['', '', '', 'ADJA', 'VA', 'ADJ'],
+        'Adjective, ordinal number', ['ORD', 'OD', 'JJ', '', 'OD', 'ADJ'],
+        'Adjective, comparative', ['AJC', 'JJR', 'JJR', 'KOKOM', '', 'ADJ'],
+        'Adjective, superlative', ['AJS', 'JJT', 'JJS', '', 'JJ', 'ADJ'],
+        'Adjective, superlative, semantically', ['AJ0', 'JJS', 'JJ', '', '', 'ADJ'],
+        'Adjective, cardinal number', ['CRD', 'CD', 'CD', 'CARD', 'CD', 'ADJ'],
+        'Adjective, cardinal number, one', ['PNI', 'CD', 'CD', 'CARD', 'CD', 'ADJ'],
+
+        'Adverb', ['AV0', 'RB', 'RB', 'ADV', 'AD', 'ADV'],
+        'Adverb, negative', ['XX0', '*', 'RB', 'PTKNEG', '', 'ADV'],
+        'Adverb, comparative', ['AV0', 'RBR', 'RBR', '', 'AD', 'ADV'],
+        'Adverb, superlative', ['AV0', 'RBT', 'RBS', '', 'AD', 'ADV'],
+        'Adverb, particle', ['AVP', 'RP', 'RP', '', '', 'ADV'],
+        'Adverb, question', ['AVQ', 'WRB', 'WRB', '', 'AD', 'ADV'],
+        'Adverb, degree & question', ['AVQ', 'WQL', 'WRB', '', 'ADV'],
+        'Adverb, degree', ['AV0', 'QL', 'RB', '', '', 'ADV'],
+        'Adverb, degree, postposed', ['AV0', 'QLP', 'RB', '', '', 'ADV'],
+        'Adverb, nominal', ['AV0', 'RN', 'RB', 'PROP', '', 'ADV'],
+        'Adverb, pronominal', ['', '', '', '', 'PROP', '', 'ADV'],
+
+        'Clitic', ['', '', 'POS', '', '', ''],
+
+        'Conjunction, coordination', ['CJC', 'CC', 'CC', 'KON', 'CC', 'COOD'],
+        'Conjunction, coordination, and', ['CJC', 'CC', 'CC', 'KON', 'CC', 'ET'],
+        'Conjunction, subordination', ['CJS', 'CS', 'IN', 'KOUS', 'CS', 'CONJ'],
+        'Conjunction, subordination with to and infinitive', ['', '', '', 'KOUI', '', ''],
+        'Conjunction, complementizer, that', ['CJT', 'CS', 'IN', '', '', 'C'],
+
+        'Determiner', ['DT0', 'DT', 'DT', '', 'DT', 'D'],
+        'Determiner', ['DT0', 'DT', 'DET', '', 'DT', 'D'],
+        'Determiner, pronoun', ['DT0', 'DTI', 'DT', '', '', 'D'],
+        'Determiner, pronoun, plural', ['DT0', 'DTS', 'DT', '', '', 'D'],
+        'Determiner, prequalifier', ['DT0', 'ABL', 'DT', '', '', 'D'],
+        'Determiner, prequantifier', ['DT0', 'ABN', 'PDT', '', 'DT', 'D'],
+        'Determiner, pronoun or double conjunction', ['DT0', 'ABX', 'PDT', '', '', 'D'],
+        'Determiner, pronoun or double conjunction', ['DT0', 'DTX', 'DT', '', '', 'D'],
+        'Determiner, article', ['AT0', 'AT', 'DT', 'ART', '', 'D'],
+        'Determiner, postdeterminer', ['DT0', 'AP', 'DT', '', '', 'D'],
+        'Determiner, possessive', ['DPS', 'PP$', 'PRP$', '', '', 'D'],
+        'Determiner, possessive, second', ['DPS', 'PPSS', 'PRPS', '', '', 'D'],
+        'Determiner, possessive, second', ['DPS', 'PP$$', 'PRP', '', '', 'D'],
+        'Determiner, possessive, second', ['DPS', 'PPSS', 'PRP', '', '', 'D'],
+        'Determiner, question', ['DTQ', 'WDT', 'WDT', '', 'DT', 'D'],
+        'Determiner, possessive & question', ['DTQ', 'WP$', 'WP$', '', '', 'D'],
+        'Determiner, possessive & question', ['DTQ', 'WPS', 'WPS', '', '', 'D'],
+
+        'Localizer', ['', '', '', '', 'LC'],
+
+        'Measure word', ['', '', '', '', 'M'],
+
+        'Noun, common', ['NN0', 'NN', 'NN', 'N', 'NN', 'NN'],
+        'Noun, singular', ['NN1', 'NN', 'NN', 'NN', 'NN', 'N'],
+        'Noun, plural', ['NN2', 'NNS', 'NNS', 'NN', 'NN', 'N'],
+        'Noun, proper, singular', ['NP0', 'NP', 'NNP', 'NE', 'NR', 'N'],
+        'Noun, proper, plural', ['NP0', 'NPS', 'NNPS', 'NE', 'NR', 'N'],
+        'Noun, adverbial', ['NN0', 'NR', 'NN', 'NE', '', 'N'],
+        'Noun, adverbial, plural', ['NN2', 'NRS', 'NNS', '', 'N'],
+        'Noun, temporal', ['', '', '', '', 'NT', 'N'],
+        'Noun, verbal', ['', '', '', '', 'NN', 'N'],
+
+        'Pronoun, nominal (indefinite)', ['PNI', 'PN', 'PRP', '', 'PN', 'CL'],
+        'Pronoun, personal, subject', ['PNP', 'PPSS', 'PRP', 'PPER'],
+        'Pronoun, personal, subject, 3SG', ['PNP', 'PPS', 'PRP', 'PPER'],
+        'Pronoun, personal, object', ['PNP', 'PPO', 'PRP', 'PPER'],
+        'Pronoun, reflexive', ['PNX', 'PPL', 'PRP', 'PRF'],
+        'Pronoun, reflexive, plural', ['PNX', 'PPLS', 'PRP', 'PRF'],
+        'Pronoun, question, subject', ['PNQ', 'WPS', 'WP', 'PWAV'],
+        'Pronoun, question, object', ['PNQ', 'WPO', 'WP', 'PWAV', 'PWAT'],
+        'Pronoun, existential there', ['EX0', 'EX', 'EX'],
+        'Pronoun, attributive demonstrative', ['', '', '', 'PDAT'],
+        'Prounoun, attributive indefinite without determiner', ['', '', '', 'PIAT'],
+        'Pronoun, attributive possessive', ['', '', '', 'PPOSAT', ''],
+        'Pronoun, substituting demonstrative', ['', '', '', 'PDS'],
+        'Pronoun, substituting possessive', ['', '', '', 'PPOSS', ''],
+        'Prounoun, substituting indefinite', ['', '', '', 'PIS'],
+        'Pronoun, attributive relative', ['', '', '', 'PRELAT', ''],
+        'Pronoun, substituting relative', ['', '', '', 'PRELS', ''],
+        'Pronoun, attributive interrogative', ['', '', '', 'PWAT'],
+        'Pronoun, adverbial interrogative', ['', '', '', 'PWAV'],
+
+        'Pronoun, substituting interrogative', ['', '', '', 'PWS'],
+        'Verb, main, finite', ['', '', '', 'VVFIN', '', 'V'],
+        'Verb, main, infinitive', ['', '', '', 'VVINF', '', 'V'],
+        'Verb, main, imperative', ['', '', '', 'VVIMP', '', 'V'],
+        'Verb, base present form (not infinitive)', ['VVB', 'VB', 'VBP', '', '', 'V'],
+        'Verb, infinitive', ['VVI', 'VB', 'VB', 'V', '', 'V'],
+        'Verb, past tense', ['VVD', 'VBD', 'VBD', '', '', 'V'],
+        'Verb, present participle', ['VVG', 'VBG', 'VBG', 'VAPP', '', 'V'],
+        'Verb, past/passive participle', ['VVN', 'VBN', 'VBN', 'VVPP', '', 'V'],
+        'Verb, present, 3SG, -s form', ['VVZ', 'VBZ', 'VBZ', '', '', 'V'],
+        'Verb, auxiliary', ['', '', '', 'VAFIN', '', 'V'],
+        'Verb, imperative', ['', '', '', 'VAIMP', '', 'V'],
+        'Verb, imperative infinitive', ['', '', '', 'VAINF', '', 'V'],
+        'Verb, auxiliary do, base', ['VDB', 'DO', 'VBP', '', '', 'V'],
+        'Verb, auxiliary do, infinitive', ['VDB', 'DO', 'VB', '', '', 'V'],
+        'Verb, auxiliary do, past', ['VDD', 'DOD', 'VBD', '', '', 'V'],
+        'Verb, auxiliary do, present participle', ['VDG', 'VBG', 'VBG', '', '', 'V'],
+        'Verb, auxiliary do, past participle', ['VDN', 'VBN', 'VBN', '', '', 'V'],
+        'Verb, auxiliary do, present 3SG', ['VDZ', 'DOZ', 'VBZ', '', '', 'V'],
+        'Verb, auxiliary have, base', ['VHB', 'HV', 'VBP', 'VA', '', 'V'],
+        'Verb, auxiliary have, infinitive', ['VHI', 'HV', 'VB', 'VAINF', '', 'V'],
+        'Verb, auxiliary have, past', ['VHD', 'HVD', 'VBD', 'VA', '', 'V'],
+        'Verb, auxiliary have, present participle', ['VHG', 'HVG', 'VBG', 'VA', '', 'V'],
+        'Verb, auxiliary have, past participle', ['VHN', 'HVN', 'VBN', 'VAPP', '', 'V'],
+        'Verb, auxiliary have, present 3SG', ['VHZ', 'HVZ', 'VBZ', 'VA', '', 'V'],
+        'Verb, auxiliary be, infinitive', ['VBI', 'BE', 'VB', '', '', 'V'],
+        'Verb, auxiliary be, past', ['VBD', 'BED', 'VBD', '', '', 'V'],
+        'Verb, auxiliary be, past, 3SG', ['VBD', 'BEDZ', 'VBD', '', '', 'V'],
+        'Verb, auxiliary be, present participle', ['VBG', 'BEG', 'VBG', '', '', 'V'],
+        'Verb, auxiliary be, past participle', ['VBN', 'BEN', 'VBN', '', '', 'V'],
+        'Verb, auxiliary be, present, 3SG', ['VBZ', 'BEZ', 'VBZ', '', '', 'V'],
+        'Verb, auxiliary be, present, 1SG', ['VBB', 'BEM', 'VBP', '', '', 'V'],
+        'Verb, auxiliary be, present', ['VBB', 'BER', 'VBP', '', '', 'V'],
+        'Verb, modal', ['VM0', 'MD', 'MD', 'VMFIN', 'VV', 'V'],
+        'Verb, modal', ['VM0', 'MD', 'MD', 'VMINF', 'VV', 'V'],
+        'Verb, modal, finite', ['', '', '', '', 'VMFIN', 'V'],
+        'Verb, modal, infinite', ['', '', '', '', 'VMINF', 'V'],
+        'Verb, modal, past participle', ['', '', '', '', 'VMPP', 'V'],
+
+        'Particle', ['', '', '', '', '', 'PRT'],
+        'Particle, with adverb', ['', '', '', 'PTKA', '', 'PRT'],
+        'Particle, answer', ['', '', '', 'PTKANT', '', 'PRT'],
+        'Particle, negation', ['', '', '', 'PTKNEG', '', 'PRT'],
+        'Particle, separated verb', ['', '', '', 'PTKVZ', '', 'PRT'],
+        'Particle, to as infinitive marker', ['TO0', 'TO', 'TO', 'PTKZU', '', 'PRT'],
+
+        'Preposition, comparative', ['', '', '', 'KOKOM', '', 'P'],
+        'Preposition, to', ['PRP', 'IN', 'TO', '', '', 'P'],
+        'Preposition', ['PRP', 'IN', 'IN', 'APPR', 'P', 'P'],
+        'Preposition, with aritcle', ['', '', '', 'APPART', '', 'P'],
+        'Preposition, of', ['PRF', 'IN', 'IN', '', '', 'P'],
+
+        'Possessive', ['POS', '$', 'POS'],
+
+        'Postposition', ['', '', '', 'APPO'],
+
+        'Circumposition, right', ['', '', '', 'APZR', ''],
+
+        'Interjection, onomatopoeia or other isolate', ['ITJ', 'UH', 'UH', 'ITJ', 'IJ'],
+
+        'Onomatopoeia', ['', '', '', '', 'ON'],
+
+        'Punctuation', ['', '', '', '', 'PU', 'PN'],
+        'Punctuation, sentence ender', ['PUN', '.', '.', '', '', 'PN'],
+        'Punctuation, sentence ender', ['PUN', '.', 'PP', '$.', '', 'PN'],
+        'Punctuation, semicolon', ['PUN', '.', '.', '', '', 'PN'],
+        'Puncutation, colon or ellipsis', ['PUN', ':', ':'],
+        'Punctuationm, comma', ['PUN', ',', ',', '$,'],
+        'Punctuation, dash', ['PUN', '-', '-'],
+        'Punctuation, dollar sign', ['PUN', '', '$'],
+        'Punctuation, left bracket', ['PUL', '(', '(', '$('],
+        'Punctuation, right bracket', ['PUR', ')', ')'],
+        'Punctuation, quotation mark, left', ['PUQ', '', '``'],
+        'Punctuation, quotation mark, right', ['PUQ', '', '"'],
+
+        'Word, truncated, left', ['', '', '', 'TRUNC'],
+
+        'Unknown, foreign words (not in lexicon)', ['UNZ', '(FW-)', 'FW', '', 'FW'],
+
+        'Symbol', ['', '', 'SYM', 'XY'],
+        'Symbol, alphabetical', ['ZZ0', '', ''],
+        'Symbol, list item', ['', '', 'LS'],
+
+        # Not sure about these tags from the Chinese PTB.
+        'Aspect marker', ['', '', '', '', 'AS'],                         # ?
+        'Ba-construction', ['', '', '', '', 'BA'],                       # ?
+        'In relative', ['', '', '', '', 'DEC'],                          # ?
+        'Associative', ['', '', '', '', 'DER'],                          # ?
+        'In V-de or V-de-R construct', ['', '', '', '', 'DER'],          # ?
+        'For words ? ', ['', '', '', '', 'ETC'],                         # ?
+        'In long bei-construct', ['', '', '', '', 'LB'],                 # ?
+        'In short bei-construct', ['', '', '', '', 'SB'],                # ?
+        'Sentence-nal particle', ['', '', '', '', 'SB'],                 # ?
+        'Particle, other', ['', '', '', '', 'MSP'],                      # ?
+        'Before VP', ['', '', '', '', 'DEV'],                            # ?
+        'Verb, ? as main verb', ['', '', '', '', 'VE'],                  # ?
+        'Verb, ????', ['', '', '', '', 'VC']                             # ?
+      ]
+
+      wttc = {
+
+      }
+      Treat::Languages::Tags::AlignedWordTags.each_slice(2) do |desc, tags|
+
+        category = desc.gsub(',', ' ,').split(' ')[0].downcase.intern
+
+        wttc[tags[ClawsC5]] ||= {}
+        wttc[tags[Brown]] ||= {}
+        wttc[tags[Penn]] ||= {}
+        wttc[tags[Negra]] ||= {}
+        wttc[tags[PennChinese]] ||= {}
+        wttc[tags[Simple]] ||= {}
+
+        wttc[tags[ClawsC5]][:claws_5] = category
+        wttc[tags[Brown]][:brown] = category
+        wttc[tags[Penn]][:penn] = category
+        wttc[tags[Negra]][:negra] = category if tags[Negra]
+        wttc[tags[PennChinese]][:penn_chinese] = category if tags[PennChinese]
+        wttc[tags[Simple]][:simple] = category if tags[Simple]
+
+      end
+      # A hash converting word tags to word categories.
+      WordTagToCategory = wttc
+
+      # A hash converting phrase tag to categories.
+      pttc = {}
+      Treat::Languages::Tags::AlignedPhraseTags.each_slice(2) do |desc, tags|
+        category = desc.gsub(',', ' ,').gsub(' ', '_').downcase.intern
+        pttc[tags[Penn]] ||= {};
+        # Not yet for other tag sts.
+        #pttc[tags[0]][:claws_5] = category
+        #pttc[tags[1]][:brown] = category
+        pttc[tags[Penn]][:penn] = category
+      end
+
+      # A hash converting word tags to word categories.
+      PhraseTagToCategory = pttc
+
+      def self.has_phrase_tag?(tag, tag_set)
+        PhraseTagToCategory[tag] &&
+        PhraseTagToCategory[tag_set]
+      end
+
+      def self.has_word_tag?(tag, tag_set)
+        WordTagToCategory[tag] &&
+        WordTagToCategory[tag_set]
+      end
+
+
+    end
+  end
+end