zenlish 0.2.01 → 0.2.02

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: 18b53b01ebe8e3f9a895026ae2b63c7753081ed12572a16d75dc35f943b479e9
-  data.tar.gz: 74def3a1abe88f1fa457ee151bd2420c682aedbeecf36a62a857b5e0327e43ab
+  metadata.gz: 5a4f38ce593249cf97998ec7d51977400b6bb1445a368823b3c8db0f779aec41
+  data.tar.gz: 30e519af42ccf67586f3314892d63a8150200e671a4c42e5185154746ea2218d
 SHA512:
-  metadata.gz: a7d8a33af3c91ab977a7f7ca9addd6ba0929e662c599dd0e5d3d5bbb3c3eb4ced11f765ce7e62c59e152600cccc94122e33066416faaab66c2893a207d89de6c
-  data.tar.gz: 9649988e311bfaccd0ed8ca12b1c648eddec01b27f4b3549c7518cb62e725ed03ecfb1c2de1459434b0a481aaa68bff1a4f978cf4ae33f7a3983e35b3614efe7
+  metadata.gz: 007460f06685b5a84c239b70f14503d1420deffd8291b087bea657a966292e3c04be01f3dd973cbd7e6f543ba1e0daf86afad73d2085da2b7c23ad5c3e3e7624
+  data.tar.gz: 9a3a5904dfd78edbb50a7886d1d830e400619039bc736760356381c9845dd9ec2919089c0803c64ffef89b2d9d55fe0b061b4542e25a1371550c6863a7d4aafa

data/.travis.yml

@@ -9,8 +9,9 @@ script:
   - bundle exec rake
   
 rvm:
-  - 2.6.3
-  - 2.5.5
+  - 2.7.0
+  - 2.6.5
+  - 2.5.7
   - 2.4.6
   - jruby-9.1.9.0
   

data/CHANGELOG.md

@@ -1,4 +1,19 @@
 # CHANGELOG
+## [0.2.02] - 2020-02-06
+Extending the inflection model to irregular verbs. Zenlish can inflect all irregular verbs in its dictionary (except modals and be).
+
+### Added
+- Module `WordClasses::IreegularVerbExtension` mix-in module for extending the lexeme for irregular verbs.
+
+### Changed
+- File `dictionary.rb`: added past simple and past participles to most irregular verbs in lexicon.
+- Class `Lex::Lexeme`: added capability of word class to add dynamically extension (specialization) to lexeme instances.
+- Class `WordClass::IrregularVerb` added inflection table.
+- File `.travis.yml` Added Ruby 2.7 and increased version number for other rubies.
+
+### Fixed
+- Class `WordClass::RegularVerb` fixed rules for gerund spelling.
+
 ## [0.2.01] - 2020-02-02
 Extending the inflection table capabilities.
 Extending the inflection model to regular verbs. Zenlish can inflect all regular verbs in its dictionary.
@@ -26,7 +41,7 @@ This is WIP.
 ## [0.1.25] - 2019-12-06
 __Zenlish__ can parse all sentences in lesson 1, 2 and 3-A .. 3-G (352 sentences in total) from
  [Learn These Words First](http://learnthesewordsfirst.com/).
- 
+
 ### Changed
  - File `lesson3_spec.rb`: tests include all sentences from lesson 3-A to 3-G.
  - `ZenlishGrammar`: refactoring of the predicative_sentence rules.
@@ -40,7 +55,7 @@ __Zenlish__ can parse all sentences in lesson 1, 2 and 3-A .. 3-F (323 sentences
 ### Added
  - Class `ModalVerbCould` to represent the auxiliary verb `could`.
  - Support module `Var2Word`: used to create variable names and assign them specific `Literal` objects.
- 
+
  ### Changed
  - File `zparser_spec.rb` splitted. Lesson-specific test suites have their own spec file.
  - File `lesson3_spec.rb`: tests include all sentences from lesson 3-A .. 3-F.
@@ -73,7 +88,7 @@ __Zenlish__ can parse all sentences in lesson 1, 2 and 3-A .. 3-C from
  [Learn These Words First](http://learnthesewordsfirst.com/).
 
  ### Added
- - Class `DistributiveDeterminer` to represent the words `each`, `every`, `either`, `neither`. 
+ - Class `DistributiveDeterminer` to represent the words `each`, `every`, `either`, `neither`.
  - Class `FrontingQuantifier` to represent the quantifiers `all` and `both`.
 
  ### Changed
@@ -140,7 +155,7 @@ __Zenlish__ can parse all sentences in lesson 1 and 2-A..2-H from
 ## [0.1.16] - 2019-11-23
 __Zenlish__ can parse all sentences in lesson 1 and 2-A..2-G from
  [Learn These Words First](http://learnthesewordsfirst.com/).
- 
+
 ### Changed
 - `ZenlishGrammar`: Vast grammar reworking.
 - File `dictionary.rb`: `there` in lexicon has `ExistentialThere` as word class.

data/lib/zenlish/lang/dictionary.rb

@@ -43,7 +43,9 @@ unless defined?(Zenlish::Lang::Dictionary)
       add_entry('be', 'AuxiliaryBe')
       add_entry('be', 'IrregularVerbBe')
       add_entry('because', 'SubordinatingConjunction')
-      add_entry('become', 'IrregularLinkingVerb')
+      add_entry('become', 'IrregularLinkingVerb') do
+        forms past_simple: 'became', past_participle: 'become'
+      end
       add_entry('before', 'Adverb')
       add_entry('before', 'Adjective')
       add_entry('before', 'Preposition')
@@ -58,7 +60,9 @@ unless defined?(Zenlish::Lang::Dictionary)
       add_entry('can', 'ModalVerbCan')
       add_entry('cause', 'RegularVerb')
       add_entry('change', 'RegularVerb')
-      add_entry('choose', 'IrregularVerb')
+      add_entry('choose', 'IrregularVerb') do
+        forms past_simple: 'chose', past_participle: 'chosen'
+      end
       add_entry('contain', 'RegularVerb')
       add_entry('container', 'CommonNoun')
       add_entry('could', 'ModalVerbCould')
@@ -67,14 +71,18 @@ unless defined?(Zenlish::Lang::Dictionary)
       add_entry('difficult', 'Adjective')      
       add_entry('different', 'Adjective')
       add_entry('do', 'AuxiliaryDo')
-      add_entry('do', 'IrregularVerbDo')
+      add_entry('do', 'IrregularVerbDo') do
+        forms past_simple: 'did', past_participle: 'done'
+      end
       add_entry('each', 'DistributiveDeterminer')
       add_entry('each', 'Pronoun')
       add_entry('exist', 'RegularVerb')
       add_entry('false', 'Adjective')
       add_entry('far', 'Adverb')
       add_entry('far from', 'Preposition')
-      add_entry('feel', 'IrregularLinkingVerb')
+      add_entry('feel', 'IrregularLinkingVerb') do
+        forms past_simple: 'felt', past_participle: 'felt'
+      end
       add_entry('for', 'Preposition')
       add_entry('from', 'Preposition')
       add_entry('good', 'Adjective')
@@ -92,13 +100,17 @@ unless defined?(Zenlish::Lang::Dictionary)
       add_entry('it', 'PersonalPronoun')
       add_entry('its', 'PossessiveDeterminer')
       add_entry('kind', 'CommonNoun')
-      add_entry('know', 'IrregularVerbKnow')
+      add_entry('know', 'IrregularVerbKnow') do
+        forms past_simple: 'knew', past_participle: 'known'
+      end
       add_entry('like', 'Preposition')
       add_entry('live', 'RegularVerb')
       add_entry('living', 'Adjective')
       add_entry('long', 'Adjective')
       add_entry('machine', 'CommonNoun')
-      add_entry('make', 'IrregularVerb')
+      add_entry('make', 'IrregularVerb') do
+        forms past_simple: 'made', past_participle: 'made'
+      end
       add_entry('many', 'Quantifier')
       add_entry('maybe', 'AdverbMaybe')
       add_entry('me', 'PersonalPronoun')
@@ -129,8 +141,12 @@ unless defined?(Zenlish::Lang::Dictionary)
       add_entry('place', 'CommonNoun')
       add_entry('same', 'Adjective')
       add_entry('same', 'Pronoun')
-      add_entry('say', 'IrregularVerbSay')
-      add_entry('see', 'IrregularVerb')
+      add_entry('say', 'IrregularVerbSay') do
+        forms past_simple: 'said', past_participle: 'said'
+      end
+      add_entry('see', 'IrregularVerb') do
+        forms past_simple: 'saw', past_participle: 'seen'
+      end
       add_entry('short', 'Adjective')
       add_entry('side', 'CommonNoun')
       add_entry('small', 'Adjective')
@@ -148,7 +164,9 @@ unless defined?(Zenlish::Lang::Dictionary)
       add_entry('there', 'ExistentialThere')
       add_entry('they', 'PersonalPronoun')
       add_entry('thing', 'CommonNoun')
-      add_entry('think', 'IrregularVerbThink')
+      add_entry('think', 'IrregularVerbThink') do
+        forms past_simple: 'thought', past_participle: 'thought'
+      end
       add_entry('this', 'DemonstrativeDeterminer')
       add_entry('this', 'DemonstrativePronoun')
       add_entry('this one', 'DemonstrativePronoun')

data/lib/zenlish/lex/lexeme.rb

@@ -18,10 +18,15 @@ module Zenlish
         @wclass = aWClass
         @entry = anEntry.object_id
         anEntry.add_lexeme(self)
-
-        p_struct = aWClass.kind_of?(WClasses::WordClass) ? aWClass.struct : nil
-        overriding_struct_defs = aFeatureHash.nil? ? {} : aFeatureHash
-        init_struct_def(p_struct, overriding_struct_defs)
+        if aWClass.kind_of?(WClasses::WordClass)
+          unless wclass.extension.nil?
+            self.extend(wclass.extension)
+            init_extension(self)
+          end
+          p_struct = aWClass.kind_of?(WClasses::WordClass) ? aWClass.struct : nil
+          overriding_struct_defs = aFeatureHash.nil? ? {} : aFeatureHash
+          init_struct_def(p_struct, overriding_struct_defs)
+        end
       end
 
       # @return [Zenlish::Lex::LexicalEntry] Link to its dictionary entry (headword)

data/lib/zenlish/lex/lexical_entry.rb

@@ -2,18 +2,25 @@ module Zenlish
   module Lex
     # TODO: document
     class LexicalEntry
+      #@return [String] the lemma (dictionary) form of a word.
       attr_reader :lemma
+
+      # @return [Array<Lexeme, Rley::Syntax::Terminal>]
       attr_reader :lexemes
-      
+
+      # @param theLemma [String] lemma (= citation form), a word form used 
+      #   conventionnaly to represent a lexeme.
+      # @param aLexeme [Lexeme, NilClass] the lexeme to link with lexical entry.
       def initialize(theLemma, aLexeme = nil)
         @lemma = theLemma.dup
         @lexemes = []
         add_lexeme(aLexeme)
       end
-      
+
+      # @param aLexeme [Lexeme, NilClass] the lexeme to link with lexical entry.      
       def add_lexeme(aLexeme)
         lexemes << aLexeme if aLexeme
       end
     end # class
-  end # module    
+  end # module
 end # module

data/lib/zenlish/lex/lexicon.rb

@@ -5,6 +5,8 @@ module Zenlish
     class Lexicon
       # @return [Array<Lex::LexicalEntry>] entries in the lexicon
       attr_reader :entries
+      
+      # @return [Hash{String => Lex::LexicalEntry}] the lexical entry for the given lemma.
       attr_reader :lemma2entry
 
       # The list of terminal symbols. Examples of terminal symbols:
@@ -23,6 +25,7 @@ module Zenlish
       # @param aLemma[String] retrieve the lexeme form the given "head word".
       # @param aWordClass [WordClasses::WordClass, NilClass] the word class of 
       #   the lexeme.
+      # @return [Lex::Lexeme]
       def get_lexeme(aLemma, aWordClass = nil)
         if aWordClass
           lexeme = nil
@@ -51,11 +54,13 @@ module Zenlish
         end
       end
 
+      # @param aTerminal [Rley::Syntax::Terminal]
       def add_terminal(aTerminal)
         terminals << aTerminal
         name2terminal[aTerminal.name] = aTerminal
       end
 
+      # @param anEntry [Lex::LexicalEntry]
       def add_entry(anEntry)
         entries << anEntry
         lemma = anEntry.lemma

data/lib/zenlish/version.rb

@@ -1,3 +1,3 @@
 module Zenlish
-  VERSION = '0.2.01'.freeze
+  VERSION = '0.2.02'.freeze
 end

data/lib/zenlish/wclasses/adjective.rb

@@ -4,6 +4,10 @@ module Zenlish
   module WClasses
     # TODO: document
     class Adjective < WordClass
+      # @return [FalseClass] Indicates that an adjective may inflect.
+      def invariable?
+        false
+      end    
     end # class
   end # module
 end # module

data/lib/zenlish/wclasses/adverb.rb

@@ -3,7 +3,7 @@ require_relative 'word_class'
 module Zenlish
   module WClasses
     # TODO: document
-    class Adverb < WordClass
+    class Adverb < WordClass   
     end # class
   end # module
 end # module

data/lib/zenlish/wclasses/comparative_particle.rb

@@ -4,7 +4,7 @@ module Zenlish
   module WClasses
     # TODO: document 
     # Example: 'as' in 'same ... as'
-    class ComparativeParticle < WordClass
+    class ComparativeParticle < WordClass   
     end # class
   end # module
 end # module

data/lib/zenlish/wclasses/coordinator.rb

@@ -6,7 +6,7 @@ module Zenlish
     # can join words, phrases, and clauses that share some logical relationhip
     # Common coordinators are enumerated in the FANBOYS acronym:
     # For, And, Nor, But, Or, Yet and So.
-    class Coordinator < WordClass
+    class Coordinator < WordClass    
     end # class
   end # module
 end # module

data/lib/zenlish/wclasses/determiner.rb

@@ -3,7 +3,7 @@ require_relative 'word_class'
 module Zenlish
   module WClasses
     # TODO: document
-    class Determiner < WordClass
+    class Determiner < WordClass   
     end # class
   end # module
 end # module

data/lib/zenlish/wclasses/fronting_quantifier.rb

@@ -3,7 +3,7 @@ require_relative 'quantifier'
 module Zenlish
   module WClasses
     # Quantifiers that appear in front of determiners: all, both
-    class  FrontingQuantifier < Quantifier
+    class  FrontingQuantifier < Quantifier    
     end # class
   end # module
 end # module

data/lib/zenlish/wclasses/irregular_verb.rb

@@ -1,4 +1,5 @@
 require_relative 'lexical_verb'
+require_relative 'irregular_verb_extension'
 
 module Zenlish
   module WClasses
@@ -8,26 +9,51 @@ module Zenlish
 
       def initialize
         super()
+        @paradigms = {}
         init_feature_defs
+        init_paradigms
       end
-
-      def past_simple
-        raise StandardError
-      end
-
-      def past_participle
-        raise StandardError
-      end
+      
+      # The mix-in module used to extend the lexeme
+      # @return [Module, NilClass]
+      def extension
+        IrregularVerbExtension
+      end     
 
       private
-
+      
       def init_feature_defs
-        super()
-        # Define standard feature definitions for irregular verbs.
-        feature_def_dsl {
-          feature_def 'PARADIGM' => [identifier, 'Irregular_form'] # 2nd item is default value
+        super
+        # Create standard feature definitions for irregular verbs.
+        feature_def_dsl {          
+          feature_def 'PARADIGM' => [identifier, 'Irregular_inflection'] # 2nd item is default value
         }
       end
+
+      def init_paradigms
+        builder = Inflect::InflectionTableBuilder.new
+        table = builder.build('Irregular_inflection') do
+          feature_heading 'PERSON'
+          feature_heading 'NUMBER'
+          feature_heading 'TIME'
+          method_heading  'base_form'
+          #     PERSON             NUMBER             TIME                      base_form
+          rule([not_equal(:third), dont_care,         equals(:present),         dont_care], col('base_form'))
+          rule([equals(:third),    equals(:singular), equals(:present),         matches(/[^aeiouy]y$/)], sub(col('base_form'), /y$/, 'ies'))
+          rule([equals(:third),    equals(:singular), equals(:present),         matches(/(?:[osxz]|ch|sh)$/)], concat(col('base_form'), 'es'))             
+          rule([equals(:third),    equals(:singular), equals(:present),         dont_care], concat(col('base_form'), 's'))         
+          rule([dont_care,         dont_care,         equals(:progressive),     matches(/ie$/)], sub(col('base_form'), /ie$/, 'ying'))          
+          rule([dont_care,         dont_care,         equals(:progressive),     matches(/[^e]e$/)], sub(col('base_form'), /e$/, 'ing'))            
+          rule([dont_care,         dont_care,         equals(:progressive),     dont_care], concat(col('base_form'), 'ing'))
+          rule([dont_care,         dont_care,         equals(:past_simple),     dont_care], func('past_simple'))             
+          rule([dont_care,         dont_care,         equals(:past_participle), dont_care], func('past_participle'))
+        end
+        add_paradigm(table)
+      end
+
+      def add_paradigm(anInflectionTable)
+        @paradigms[anInflectionTable.name] = anInflectionTable
+      end      
     end # class
   end # module
 end # module

data/lib/zenlish/wclasses/irregular_verb_extension.rb

@@ -0,0 +1,39 @@
+require_relative 'lexical_verb'
+require_relative 'irregular_verb_extension'
+
+module Zenlish
+  module WClasses
+    module IrregularVerbExtension
+      # This callback when the module is extending an object.
+      # Purpose: to inject a number of instance variables in the host
+      # def extended(host)
+      def init_extension(host)
+        host.instance_variable_set(:@forms, [])
+      end
+      
+      # @param theForm [Hash{Symbol => String}]
+      def forms(theForms)
+        valid_symbols = [:past_simple, :past_participle]
+        actual_symbols = theForms.keys
+        actual_symbols.each do |symb|
+          raise StandardError, "Invalid verb form #{symb}" unless valid_symbols.include?(symb)
+        end
+        if actual_symbols.size < valid_symbols.size
+          missing = valid_symbols.find { |symb| !actual_symbols.include?(symb) }
+          raise StandardError, "Missing form #{missing}"
+        end
+        @forms = [nil, nil]
+        @forms[0] = theForms[valid_symbols[0]]
+        @forms[1] = theForms[valid_symbols[1]]
+      end
+      
+      def past_simple
+        @forms.first
+      end
+      
+      def past_participle
+        @forms.last
+      end      
+    end # class
+  end # module
+end # module

data/lib/zenlish/wclasses/preposition.rb

@@ -3,12 +3,7 @@ require_relative 'word_class'
 module Zenlish
   module WClasses
     # TODO: document
-    class Preposition < WordClass
-    
-      # Prepositions do not inflect, so they're invariable.
-      def invariable?
-        true
-      end    
+    class Preposition < WordClass   
     end # class
   end # module
 end # module

data/lib/zenlish/wclasses/pronoun.rb

@@ -3,7 +3,7 @@ require_relative 'word_class'
 module Zenlish
   module WClasses
     # TODO: document
-    class Pronoun < WordClass
+    class Pronoun < WordClass    
     end # class
   end # module
 end # module

data/lib/zenlish/wclasses/quantifier.rb

@@ -4,7 +4,7 @@ module Zenlish
   module WClasses
     # Quantifiers are used to indicate the number or quantity of the noun under consideration.
     # enough, few, little, many, more, most, much, none, several, some
-    class  Quantifier < Determiner
+    class  Quantifier < Determiner   
     end # class
   end # module
 end # module

data/lib/zenlish/wclasses/regular_verb.rb

@@ -2,7 +2,6 @@ require_relative 'lexical_verb'
 
 module Zenlish
   module WClasses
-    # TODO: document 'touch'
     class RegularVerb < LexicalVerb
       def initialize
         super
@@ -24,8 +23,9 @@ module Zenlish
           rule([equals(:third),    equals(:singular), equals(:present),            matches(/[^aeiouy]y$/)], sub(col('base_form'), /y$/, 'ies'))
           rule([equals(:third),    equals(:singular), equals(:present),            matches(/(?:[osxz]|ch|sh)$/)], concat(col('base_form'), 'es'))             
           rule([equals(:third),    equals(:singular), equals(:present),            dont_care], concat(col('base_form'), 's'))         
-          rule([dont_care,         dont_care, equals(:progressive),                matches(/e$/)], sub(col('base_form'), /e$/, 'ing'))            
-          rule([dont_care,         dont_care, equals(:progressive),                dont_care], concat(col('base_form'), 'ing'))
+          rule([dont_care,         dont_care,         equals(:progressive),     matches(/ie$/)], sub(col('base_form'), /ie$/, 'ying'))          
+          rule([dont_care,         dont_care,         equals(:progressive),     matches(/[^e]e$/)], sub(col('base_form'), /e$/, 'ing'))            
+          rule([dont_care,         dont_care,         equals(:progressive),     dont_care], concat(col('base_form'), 'ing'))
           rule([dont_care,         dont_care, in?(:past_simple, :past_participle), matches(/e$/)], concat(col('base_form'), 'd'))             
           rule([dont_care,         dont_care, in?(:past_simple, :past_participle), matches(/[^aeiouy]y$/)], sub(col('base_form'), /y$/, 'ied'))            
           rule([dont_care,         dont_care, in?(:past_simple, :past_participle), dont_care], concat(col('base_form'), 'ed'))

data/lib/zenlish/wclasses/subordinating_conjunction.rb

@@ -10,7 +10,7 @@ module Zenlish
     # Common subordinating conjunctions: after, although, as, because, before, 
     # how, if, once, since, than, that, though, till, until, when, where, 
     # whether, while
-    class SubordinatingConjunction < WordClass
+    class SubordinatingConjunction < WordClass     
     end # class
   end # module
 end # module

data/lib/zenlish/wclasses/word_class.rb

@@ -27,8 +27,14 @@ module Zenlish
 
       # Indicates whether all words from the word class have a single (uninflected)
       # form.
+      # @return [FalseClass, TrueClass] true iff the words in the class are invariable.
       def invariable?
-        raise NotImplementedError, "Missing implementation for #{self.class}."
+        return true
+      end
+      
+      # @return [Module, NilClass]
+      def extension
+        nil
       end
     end # class
   end # module

data/spec/zenlish/inflect/inflection_table_builder_spec.rb

@@ -174,33 +174,32 @@ module Zenlish
           expect(table.inflect(verb_4, [nil,    nil,     :past_participle, nil])).to eq('caused')          
         end
         
-        # MockIrregularVerb = Struct.new(:base_form, :PERSON, :NUMBER, :TIME)
-        # it 'should build default paradigm for irregular verbs' do
-          # table = subject.build('Irregular_form') do
-            # feature_heading 'PERSON'
-            # feature_heading 'NUMBER'
-            # feature_heading 'TIME'
-            # method_heading  'base_form'
-            # #     PERSON             NUMBER             TIME                         base_form
-            # rule([not_equal(:third), dont_care,         equals(:present),            dont_care], col('base_form'))
-            # rule([equals(:third),    equals(:singular), equals(:present),            matches(/[^aeiouy]y$/)], sub(col('base_form'), /y$/, 'ies'))
-            # rule([equals(:third),    equals(:singular), equals(:present),            matches(/(?:[osxz]|ch|sh)$/)], concat(col('base_form'), 'es'))             
-            # rule([equals(:third),    equals(:singular), equals(:present),            dont_care], concat(col('base_form'), 's'))         
-            # rule([dont_care,         dont_care, equals(:progressive),                matches(/e$/)], sub(col('base_form'), /e$/, 'ing'))            
-            # rule([dont_care,         dont_care, equals(:progressive),                dont_care], concat(col('base_form'), 'ing'))
-            # rule([dont_care,         dont_care, in?(:past_simple, :past_participle), matches(/e$/)], concat(col('base_form'), 'd'))             
-            # rule([dont_care,         dont_care, in?(:past_simple, :past_participle), matches(/[^aeiouy]y$/)], sub(col('base_form'), /y$/, 'ied'))            
-            # rule([dont_care,         dont_care, in?(:past_simple, :past_participle), dont_care], concat(col('base_form'), 'ed'))
-          # end
-
-          # verb_1 = MockIrregularVerb.new('choose', :first, :singular, :present)
-          # expect(table.inflect(verb_1, [nil,    nil,     nil, nil]             )).to eq('choose')
-          # expect(table.inflect(verb_1, [:third, nil,     nil, nil]             )).to eq('chooses')
-          # expect(table.inflect(verb_1, [nil,    :plural, nil, nil]             )).to eq('choose')
-          # expect(table.inflect(verb_1, [nil,    nil,     :progressive, nil]    )).to eq('choosing')
-          # expect(table.inflect(verb_1, [nil,    nil,     :past_simple, nil]    )).to eq('chose')
-          # expect(table.inflect(verb_1, [nil,    nil,     :past_participle, nil])).to eq('chosen')
-        # end
+        MockIrregularVerb = Struct.new(:base_form, :PERSON, :NUMBER, :TIME, :past_simple, :past_participle)
+        it 'should build default paradigm for irregular verbs' do
+          table = subject.build('Irregular_inflection') do
+            feature_heading 'PERSON'
+            feature_heading 'NUMBER'
+            feature_heading 'TIME'
+            method_heading  'base_form'
+            #     PERSON             NUMBER             TIME                      base_form
+            rule([not_equal(:third), dont_care,         equals(:present),         dont_care], col('base_form'))
+            rule([equals(:third),    equals(:singular), equals(:present),         matches(/[^aeiouy]y$/)], sub(col('base_form'), /y$/, 'ies'))
+            rule([equals(:third),    equals(:singular), equals(:present),         matches(/(?:[osxz]|ch|sh)$/)], concat(col('base_form'), 'es'))             
+            rule([equals(:third),    equals(:singular), equals(:present),         dont_care], concat(col('base_form'), 's'))         
+            rule([dont_care,         dont_care,         equals(:progressive),     matches(/e$/)], sub(col('base_form'), /e$/, 'ing'))            
+            rule([dont_care,         dont_care,         equals(:progressive),     dont_care], concat(col('base_form'), 'ing'))
+            rule([dont_care,         dont_care,         equals(:past_simple),     dont_care], func('past_simple'))             
+            rule([dont_care,         dont_care,         equals(:past_participle), dont_care], func('past_participle'))                       
+          end
+
+          verb_1 = MockIrregularVerb.new('choose', :first, :singular, :present, 'chose', 'chosen')
+          expect(table.inflect(verb_1, [nil,    nil,     nil, nil]             )).to eq('choose')
+          expect(table.inflect(verb_1, [:third, nil,     nil, nil]             )).to eq('chooses')
+          expect(table.inflect(verb_1, [nil,    :plural, nil, nil]             )).to eq('choose')
+          expect(table.inflect(verb_1, [nil,    nil,     :progressive, nil]    )).to eq('choosing')
+          expect(table.inflect(verb_1, [nil,    nil,     :past_simple, nil]    )).to eq('chose')
+          expect(table.inflect(verb_1, [nil,    nil,     :past_participle, nil])).to eq('chosen')
+        end
       end # context
     end # describe
   end # module

data/spec/zenlish/lang/dictionary_spec.rb

@@ -27,6 +27,42 @@ module Zenlish
           expect(common_nouns.all? { |c_n| lemmas.include?(c_n) }).to be_truthy
         end
 
+        let(:present_1sg) { [:first, :singular, :present, nil] }
+        let(:present_3sg) { [:third, :singular, :present, nil] }
+        let(:present_1pl) { [:first, :plural,   :present, nil] }
+        let(:progressive) { [nil,    nil,       :progressive, nil] }
+        let(:past_simple) { [nil,    nil,       :past_simple, nil] }
+        let(:past_participle) { [nil, nil,      :past_participle, nil] }
+
+        def test_inflection_of(verb_lexeme, pairs)
+          pairs.each do |(constraints, expected_form)|
+            expect(verb_lexeme.inflect(constraints)).to eq(expected_form)
+          end
+        end
+
+        it 'should know how to inflect an (irregular) verb' do
+          lexm = subject.get_lexeme('become')
+          expectations_1 = [
+            [present_1sg,     'become'],
+            [present_3sg,     'becomes'],
+            [present_1pl,     'become'],
+            [progressive,     'becoming'],
+            [past_simple,     'became'],
+            [past_participle, 'become']
+          ]
+          test_inflection_of(lexm, expectations_1)
+          
+          lexm = subject.get_lexeme('do', WClasses::IrregularVerbDo)
+          expectations_2 = [
+            [present_1sg,     'do'],
+            [present_3sg,     'does'],
+            [present_1pl,     'do'],
+            [progressive,     'doing'],
+            [past_simple,     'did'],
+            [past_participle, 'done']
+          ]
+          test_inflection_of(lexm, expectations_2)          
+        end
       end # context
     end # describe
   end # module

data/spec/zenlish/wclasses/irregular_verb_extension_spec.rb

@@ -0,0 +1,37 @@
+# frozen_string_literal: true
+
+require_relative '../../spec_helper' # Use the RSpec framework
+
+# Load the class under test
+require_relative '../../../lib/zenlish/wclasses/irregular_verb_extension'
+
+module Zenlish
+  module WClasses
+    describe IrregularVerbExtension do
+      subject do
+        obj = Object.new
+        obj.extend(IrregularVerbExtension)
+        obj.init_extension(obj)
+        obj
+      end
+
+      context 'Initialization:' do
+        it 'should mix-in with a host object' do
+          expect { Object.new.extend(IrregularVerbExtension) }.not_to raise_error
+        end
+
+        it 'should inject an instance variable' do
+          expect(subject.instance_variable_get(:@forms)).to be_kind_of(Array)
+        end
+      end # context
+
+      context 'Provided services:' do
+        it 'should provide a write accessor' do
+          subject.forms past_simple: 'chose', past_participle: 'chosen'
+          expect(subject.past_simple).to eq('chose')
+          expect(subject.past_participle).to eq('chosen')
+        end
+      end # context
+    end # describe
+  end # module
+end # module

data/spec/zenlish/wclasses/irregular_verb_spec.rb

@@ -1,7 +1,11 @@
 # frozen_string_literal: true
 
 require_relative '../../spec_helper' # Use the RSpec framework
-require_relative '../../../lib/zenlish/wclasses/irregular_verb' # Load the class under test
+require_relative '../../../lib/zenlish/lex/lexical_entry'
+require_relative '../../../lib/zenlish/lex/lexeme'
+
+# Load the class under test
+require_relative '../../../lib/zenlish/wclasses/irregular_verb'
 
 module Zenlish
   module WClasses
@@ -15,7 +19,54 @@ module Zenlish
       end # context
 
       context 'Provided services:' do
-        
+        it 'should know its inherited feature definitions' do
+          expect(subject['NUMBER']).to be_kind_of(Feature::FeatureDef)
+          expect(subject['PERSON']).to be_kind_of(Feature::FeatureDef)
+          expect(subject['PARADIGM'].default.val).to eq('Irregular_inflection')
+        end
+
+        let(:present_1sg) { [:first, :singular, :present, nil] }
+        let(:present_3sg) { [:third, :singular, :present, nil] }
+        let(:present_1pl) { [:first, :plural,   :present, nil] }
+        let(:progressive) { [nil,    nil,       :progressive, nil] }
+        let(:past_simple) { [nil,    nil,       :past_simple, nil] }
+        let(:past_participle) { [nil, nil,      :past_participle, nil] }
+
+        def build_verb(aBaseForm, p_simple, p_participle)
+          entry = Zenlish::Lex::LexicalEntry.new(aBaseForm)
+          lexeme = Zenlish::Lex::Lexeme.new(subject, entry)
+          lexeme.forms past_simple: p_simple, past_participle: p_participle
+          lexeme
+        end
+
+        def test_inflection_of(verb_form, p_simple, p_participle, pairs)
+          verb = build_verb(verb_form, p_simple, p_participle)
+          pairs.each do |(constraints, expected_form)|
+            expect(verb.inflect(constraints)).to eq(expected_form)
+          end
+        end
+
+        it 'should know how to inflect irregular verbs' do
+          expectations_1 = [
+            [present_1sg,     'see'],
+            [present_3sg,     'sees'],
+            [present_1pl,     'see'],
+            [progressive,     'seeing'],
+            [past_simple,     'saw'],
+            [past_participle, 'seen']
+          ]
+          test_inflection_of('see', 'saw', 'seen', expectations_1)
+
+          expectations_2 = [
+            [present_1sg, 'make'],
+            [present_3sg, 'makes'],
+            [present_1pl, 'make'],
+            [progressive, 'making'],
+            [past_simple, 'made'],
+            [past_participle, 'made']
+          ]
+          test_inflection_of('make', 'made', 'made', expectations_2)
+        end
       end # context
     end # describe
   end # module

data/spec/zenlish/wclasses/regular_verb_spec.rb

@@ -44,7 +44,7 @@ module Zenlish
           end
         end
 
-        it 'should how to inflect regular verbs' do
+        it 'should know how to inflect regular verbs' do
           expectations_1 = [
             [present_1sg,     'exist'],
             [present_3sg,     'exists'],
@@ -83,7 +83,17 @@ module Zenlish
             [past_simple, 'touched'],
             [past_participle, 'touched']
           ]
-          test_inflection_of('touch', expectations_4)          
+          test_inflection_of('touch', expectations_4)
+
+          expectations_5 = [
+            [present_1sg, 'die'],
+            [present_3sg, 'dies'],
+            [present_1pl, 'die'],
+            [progressive, 'dying'],
+            [past_simple, 'died'],
+            [past_participle, 'died']
+          ]
+          test_inflection_of('die', expectations_5)            
         end
       end # context
     end # describe

metadata

@@ -1,14 +1,14 @@
 --- !ruby/object:Gem::Specification
 name: zenlish
 version: !ruby/object:Gem::Version
-  version: 0.2.01
+  version: 0.2.02
 platform: ruby
 authors:
 - Dimitri Geshef
 autorequire: 
 bindir: exe
 cert_chain: []
-date: 2020-02-02 00:00:00.000000000 Z
+date: 2020-02-06 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: rley
@@ -159,6 +159,7 @@ files:
 - lib/zenlish/wclasses/irregular_verb.rb
 - lib/zenlish/wclasses/irregular_verb_be.rb
 - lib/zenlish/wclasses/irregular_verb_do.rb
+- lib/zenlish/wclasses/irregular_verb_extension.rb
 - lib/zenlish/wclasses/irregular_verb_have.rb
 - lib/zenlish/wclasses/irregular_verb_know.rb
 - lib/zenlish/wclasses/irregular_verb_say.rb
@@ -224,6 +225,7 @@ files:
 - spec/zenlish/support/minimal_lexicon.rb
 - spec/zenlish/support/var2word.rb
 - spec/zenlish/wclasses/common_noun_spec.rb
+- spec/zenlish/wclasses/irregular_verb_extension_spec.rb
 - spec/zenlish/wclasses/irregular_verb_spec.rb
 - spec/zenlish/wclasses/lexical_verb_spec.rb
 - spec/zenlish/wclasses/noun_spec.rb
@@ -296,6 +298,7 @@ test_files:
 - spec/zenlish/parser/lesson3_spec.rb
 - spec/zenlish/parser/zparser_spec.rb
 - spec/zenlish/wclasses/common_noun_spec.rb
+- spec/zenlish/wclasses/irregular_verb_extension_spec.rb
 - spec/zenlish/wclasses/irregular_verb_spec.rb
 - spec/zenlish/wclasses/lexical_verb_spec.rb
 - spec/zenlish/wclasses/noun_spec.rb