llt-form_builder 0.0.1

checksums.yaml

@@ -0,0 +1,7 @@
+---
+SHA1:
+  metadata.gz: a646c0ab62b83ed7eb989de75e56050ccf66ce9e
+  data.tar.gz: 5ef3973cb4fd232122c3106c3914746a5400dd0e
+SHA512:
+  metadata.gz: db00fe6da74e40ec70a5224c2e73727082db3e0928bb58d433df1409595a2954e20594ebd11c378441ff0dbbb775126af46510456fc9c39f192efc2ca9d0740a
+  data.tar.gz: 0f0295536d3d88e9a659cb8336df56d29c30b884c086083286d4d826a93d0fdc542e3b439ef0bb61de3851549962b544a2296ccb76df38cf9f22a61ef430a159

data/.gitignore

@@ -0,0 +1,17 @@
+*.gem
+*.rbc
+.bundle
+.config
+.yardoc
+Gemfile.lock
+InstalledFiles
+_yardoc
+coverage
+doc/
+lib/bundler/man
+pkg
+rdoc
+spec/reports
+test/tmp
+test/version_tmp
+tmp

data/.rspec

@@ -0,0 +1,3 @@
+--format documentation
+--color
+--tty

data/.travis.yml

@@ -0,0 +1,4 @@
+language: ruby
+rvm:
+  - 2.0.0
+  - jruby-20mode

data/Gemfile

@@ -0,0 +1,8 @@
+source 'https://rubygems.org'
+
+# Specify your gem's dependencies in llt-form_builder.gemspec
+gemspec
+gem 'coveralls', require: false
+gem 'llt-constants', git: 'git@github.com:latin-language-toolkit/llt-constants.git'
+gem 'llt-core_extensions', git: 'git@github.com:latin-language-toolkit/llt-core_extensions.git'
+gem 'llt-helpers', git: 'git@github.com:latin-language-toolkit/llt-helpers.git'

data/LICENSE.txt

@@ -0,0 +1,22 @@
+Copyright (c) 2013 LFDM
+
+MIT License
+
+Permission is hereby granted, free of charge, to any person obtaining
+a copy of this software and associated documentation files (the
+"Software"), to deal in the Software without restriction, including
+without limitation the rights to use, copy, modify, merge, publish,
+distribute, sublicense, and/or sell copies of the Software, and to
+permit persons to whom the Software is furnished to do so, subject to
+the following conditions:
+
+The above copyright notice and this permission notice shall be
+included in all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

data/README.md

@@ -0,0 +1,29 @@
+# LLT::FormBuilder
+
+TODO: Write a gem description
+
+## Installation
+
+Add this line to your application's Gemfile:
+
+    gem 'llt-form_builder'
+
+And then execute:
+
+    $ bundle
+
+Or install it yourself as:
+
+    $ gem install llt-form_builder
+
+## Usage
+
+TODO: Write usage instructions here
+
+## Contributing
+
+1. Fork it
+2. Create your feature branch (`git checkout -b my-new-feature`)
+3. Commit your changes (`git commit -am 'Add some feature'`)
+4. Push to the branch (`git push origin my-new-feature`)
+5. Create new Pull Request

data/Rakefile

@@ -0,0 +1,8 @@
+require "bundler/gem_tasks"
+require "rspec/core/rake_task"
+
+RSpec::Core::RakeTask.new(:spec) do |t|
+  t.rspec_opts = '-f d --color'
+end
+
+task :default => :spec

data/lib/llt/form/adjective.rb

@@ -0,0 +1,19 @@
+module LLT
+  class Form
+    class Adjective < Declinable
+      def init_keys
+        super + %i{ comparatio number_of_endings comparison_sign }
+      end
+
+      def segmentized
+        unless @ending.empty? && ! @comparatio
+          super.chomp("-")
+        end
+      end
+
+      def segments
+        [@stem, @comparison_sign, @ending]
+      end
+    end
+  end
+end

data/lib/llt/form/adverb.rb

@@ -0,0 +1,13 @@
+module LLT
+  class Form
+    class Adverb < Adjective
+      # TODO 27.09.13 00:20 by LFDM
+      # Might need a simpler initialize routine than direct inheritance
+      # A simple adverb like semper is bloated with instance variables.
+
+      def stem
+        @string
+      end
+    end
+  end
+end

data/lib/llt/form/cardinal.rb

@@ -0,0 +1,31 @@
+require 'llt/helpers/roman_numerals'
+
+module LLT
+  class Form
+    class Cardinal < Form
+      def initialize(args)
+        extract_args!(args)
+      end
+
+      def init_keys
+        %i{ roman decimal string casus sexus }
+      end
+
+      def arabic
+        @decimal
+      end
+
+      def to_roman
+        @roman || Helpers::RomanNumerals.to_roman(@decimal)
+      end
+
+      def to_decimal
+        @decimal || Helpers::RomanNumerals.to_decimal(@roman)
+      end
+
+      def to_s
+        @roman || @string
+      end
+    end
+  end
+end

data/lib/llt/form/conjunction.rb

@@ -0,0 +1,7 @@
+module LLT
+  class Form
+    class Conjunction < Uninflectable
+
+    end
+  end
+end

data/lib/llt/form/declinable.rb

@@ -0,0 +1,23 @@
+module LLT
+  class Form
+    class Declinable < Form
+      require 'llt/form/noun'
+      require 'llt/form/adjective'
+      require 'llt/form/ethnic'
+
+      extend Helpers::QueryMethods
+
+      def init_keys
+        super + %i{ stem ending sexus casus numerus }
+      end
+
+      def init_functions
+        super + %i{ substantive }
+      end
+
+      def segments
+        [@stem, @ending]
+      end
+    end
+  end
+end

data/lib/llt/form/demonstrative_pronoun.rb

@@ -0,0 +1,7 @@
+module LLT
+  class Form
+    class DemonstrativePronoun < Pronoun
+
+    end
+  end
+end

data/lib/llt/form/ethnic.rb

@@ -0,0 +1,6 @@
+module LLT
+  class Form
+    class Ethnic < Declinable
+    end
+  end
+end

data/lib/llt/form/fp.rb

@@ -0,0 +1,6 @@
+module LLT
+  class Form
+    class Fp < Participle
+    end
+  end
+end

data/lib/llt/form/gerund.rb

@@ -0,0 +1,9 @@
+module LLT
+  class Form
+    class Gerund < VerbalNoun
+      def init_functions
+        super + %i{ substantive }
+      end
+    end
+  end
+end

data/lib/llt/form/gerundive.rb

@@ -0,0 +1,12 @@
+module LLT
+  class Form
+    class Gerundive < VerbalNoun
+      # Beware! The gerund is not really a substantive.
+      # This is basically a hack to make a Gerundive dominant
+      # by default.
+      def init_functions
+        super + %i{ substantive }
+      end
+    end
+  end
+end

data/lib/llt/form/indefinite_pronoun.rb

@@ -0,0 +1,7 @@
+module LLT
+  class Form
+    class IndefinitePronoun < Pronoun
+
+    end
+  end
+end

data/lib/llt/form/infinitive.rb

@@ -0,0 +1,13 @@
+module LLT
+  class Form
+    class Infinitive < Form
+      def init_keys
+        super + %i{ stem tempus genus modus thematic ending prefix }
+      end
+
+      def segments
+        [@prefix, @stem, @thematic, @ending]
+      end
+    end
+  end
+end

data/lib/llt/form/interrogative_pronoun.rb

@@ -0,0 +1,7 @@
+module LLT
+  class Form
+    class InterrogativePronoun < Pronoun
+
+    end
+  end
+end

data/lib/llt/form/noun.rb

@@ -0,0 +1,17 @@
+module LLT
+  class Form
+    class Noun < Declinable
+      def init_keys
+        super + %i{ persona place }
+      end
+
+      def segmentized
+        unless @ending.empty?
+          super
+        else
+          @string
+        end
+      end
+    end
+  end
+end

data/lib/llt/form/participle.rb

@@ -0,0 +1,9 @@
+module LLT
+  class Form
+    class Participle < VerbalNoun
+      def init_functions
+        super + %i{ substantive adjective participle }
+      end
+    end
+  end
+end

data/lib/llt/form/personal_pronoun.rb

@@ -0,0 +1,13 @@
+module LLT
+  class Form
+    class PersonalPronoun < Form
+      def init_keys
+        %i{ stem inflection_class casus numerus suffix index }
+      end
+
+      def segments
+        [@stem, @suffix]
+      end
+    end
+  end
+end

data/lib/llt/form/ppa.rb

@@ -0,0 +1,6 @@
+module LLT
+  class Form
+    class Ppa < Participle
+    end
+  end
+end

data/lib/llt/form/ppp.rb

@@ -0,0 +1,6 @@
+module LLT
+  class Form
+    class Ppp < Participle
+    end
+  end
+end

data/lib/llt/form/preposition.rb

@@ -0,0 +1,32 @@
+module LLT
+  class Form
+    class Preposition < Uninflectable
+      def init_keys
+        %i{ string takes_4th takes_6th }
+      end
+
+      def valency
+        @valency ||= valencies
+      end
+
+      def needs?(arg)
+        valency.include?(arg)
+      end
+
+      def valencies
+        v = []
+        v << 4 if @takes_4th
+        v << 6 if @takes_6th
+        v
+      end
+
+      def takes_4th?
+        @takes_4th
+      end
+
+      def takes_6th?
+        @takes_6th
+      end
+    end
+  end
+end

data/lib/llt/form/pronoun.rb

@@ -0,0 +1,17 @@
+module LLT
+  class Form
+    class Pronoun < Declinable
+      def init_keys
+        super + %i{ particle prefixed_particle suffix }
+      end
+
+      def init_functions
+        super + [@inflection_class]
+      end
+
+      def segments
+        [@prefixed_particle, @stem, @ending, @particle, @suffix]
+      end
+    end
+  end
+end

data/lib/llt/form/relative_pronoun.rb

@@ -0,0 +1,7 @@
+module LLT
+  class Form
+    class RelativePronoun < Pronoun
+
+    end
+  end
+end

data/lib/llt/form/subjunction.rb

@@ -0,0 +1,7 @@
+module LLT
+  class Form
+    class Subjunction < Uninflectable
+
+    end
+  end
+end

data/lib/llt/form/supinum.rb

@@ -0,0 +1,6 @@
+module LLT
+  class Form
+    class Supinum < VerbalNoun
+    end
+  end
+end

data/lib/llt/form/uninflectable.rb

@@ -0,0 +1,22 @@
+module LLT
+  class Form
+    class Uninflectable < Form
+      def initialize(args)
+        extract_args!(args)
+      end
+
+      def init_keys
+        %i{ string }
+      end
+
+      def stem
+        @string
+      end
+      alias_method :lemma, :stem
+
+      def segments
+        [@string]
+      end
+    end
+  end
+end

data/lib/llt/form/verb.rb

@@ -0,0 +1,28 @@
+module LLT
+  class Form
+    class Verb < Form
+      def init_keys
+        %i{ inflection_class stem thematic extension ending persona tempus modus genus numerus contraction prefix }
+      end
+
+      def init_functions
+        f = super
+        # if it has a name, it's an irregular verb
+        f << @inflection_class if @inflection_class.is_a?(Symbol)
+        f
+      end
+
+      def contracted?
+        @contraction
+      end
+
+      def segments
+        if @extension == "b"
+          [@prefix, @stem, @extension, @thematic, @ending]
+        else
+          [@prefix, @stem, @thematic, @extension, @ending]
+        end
+      end
+    end
+  end
+end

data/lib/llt/form/verbal_noun.rb

@@ -0,0 +1,18 @@
+module LLT
+  class Form
+    class VerbalNoun < Form
+
+      extend Helpers::QueryMethods
+
+      add_query_methods_for(:modus)
+
+      def init_keys
+        super + %i{ stem thematic extension sexus casus numerus ending modus tempus genus prefix }
+      end
+
+      def segments
+        [@prefix, @stem, @thematic, @extension, @ending]
+      end
+    end
+  end
+end

data/lib/llt/form.rb

@@ -0,0 +1,80 @@
+require 'llt/helpers'
+require 'llt/constants'
+
+module LLT
+  class Form
+    require 'llt/form/declinable'
+    require 'llt/form/uninflectable'
+    require 'llt/form/adverb'
+    require 'llt/form/cardinal'
+    require 'llt/form/verbal_noun'
+    require 'llt/form/participle'
+    require 'llt/form/ppa'
+    require 'llt/form/ppp'
+    require 'llt/form/fp'
+    require 'llt/form/gerundive'
+    require 'llt/form/gerund'
+    require 'llt/form/infinitive'
+    require 'llt/form/pronoun'
+    require 'llt/form/indefinite_pronoun'
+    require 'llt/form/relative_pronoun'
+    require 'llt/form/demonstrative_pronoun'
+    require 'llt/form/interrogative_pronoun'
+    require 'llt/form/personal_pronoun'
+    require 'llt/form/preposition'
+    require 'llt/form/conjunction'
+    require 'llt/form/subjunction'
+    require 'llt/form/supinum'
+    require 'llt/form/verb'
+
+    include Helpers::Constantize
+    include Helpers::Initialize
+    include Helpers::Functions
+    include Helpers::Normalizer
+    include Helpers::Metrical
+
+
+    attr_accessor :string, :stem, :ending, :inflection_class, :casus, :numerus, :sexus,
+                  :comparison_sign, :index, :modus, :tempus, :genus, :extension, :persona, :stems,
+                  :particle, :place, :suffix, :prefix, :classification
+
+    def initialize(args)
+      extract_args!(args)
+      @string = args[:string] || segments.join # a custom string might be present for irregular forms
+      evaluate_metrical_presence(@string)
+    end
+
+    def init_keys
+      %i{ inflection_class index classification }
+    end
+
+    # Should be called through super by subclasses
+    def init_functions
+      [class_name_to_sym]
+    end
+
+    def functions
+      @functions ||= Set.new(init_functions)
+    end
+
+    def segmentized
+      segments.compact * "-"
+    end
+
+    def to_s(in_segments = false)
+      if in_segments
+        segmentized
+      else
+        @string
+      end
+    end
+    alias :inspect :to_s
+
+    private
+
+    def class_name_to_sym
+      cl_name = self.class.name.split('::').last
+      cl_name.gsub(/([a-z])([A-Z])/, '\1_\2').downcase.to_sym
+    end
+  end
+end

data/lib/llt/form_builder/adjective_builder.rb

@@ -0,0 +1,86 @@
+module LLT
+  class AdjectiveBuilder < DeclinableBuilder
+    builds_like_an :adjective
+    builds_with :comparatio
+
+    validate :comparison_sign
+
+    endings_defined_through :inflection_class, :number_of_endings, :comparatio
+
+    def init_keys
+      super + %i{ comparatio number_of_endings }
+    end
+
+    def nominatives
+      res  = [[@nom, 1, 1]]
+      if @number_of_endings == 1 && @inflection_class == 3
+        res += [[@nom, 1, 1, :f], [@nom, 1, 1, :n]]
+      end
+      res
+    end
+
+    def pronominal_declension?
+      @inflection_class == 5 && @number_of_endings == 3
+    end
+
+    # having this not implemented separately in the adjective builder
+    # led to problems with vocatives! The infl class for detecting O
+    # is different here!
+    def regular_o_declension?
+      @inflection_class == 1 && @nom.to_s =~ /us$/ # to_s because it might be nil
+    end
+
+    def corrections(args)
+      extract_comparison_sign(args)
+    end
+
+    def extract_comparison_sign(args)
+      return if @comparatio == :positivus
+
+      st = args[:stem]
+
+      case @comparatio
+      when :comparativus
+        new_stem, new_comp_sign = comparativus_extraction(st, args)
+      when :superlativus
+        st.match(/(#{marker(:RIM)}|#{marker(:LIM)}|#{marker(:ISSIM)})$/)
+        new_stem      = st.chomp($1)
+        new_comp_sign = $1
+      end
+
+      args[:stem] = new_stem
+      args[:comparison_sign] = new_comp_sign
+    end
+
+    def comparativus_extraction(stem, args)
+      c = args[:casus]
+      s = args[:sexus]
+      n = args[:numerus]
+
+      new_stem = stem.chomp(marker(:COMP_MF)) # do not use chomp! as other forms will get severed
+      raise "No comparison sign for comparative present" if new_stem == stem
+      [new_stem, comp_sign(c, s, n)]
+    end
+
+    def comp_sign(c, s, n)
+      if s == :n && n == 1 && c.to_s.match(/^(1|4|5)$/)
+        marker(:COMP_N)
+      else
+        marker(:COMP_MF)
+      end
+    end
+
+    def markers_path
+      path = constant_by_type(namespace: LLT::Constants::Markers)
+      metrical? ? path::Metrical : path
+    end
+
+    def marker(const)
+      markers_path.const_get(const)
+    end
+
+    def er_nominative_possible?
+      @inflection_class == 1
+    end
+  end
+end