cskit 1.0.0

data/lib/cskit/parsers/bible/bible.treetop

@@ -0,0 +1,64 @@
+# encoding: UTF-8
+
+require 'cskit/parsers/bible/nodes'
+require 'cskit/parsers/bible/objects'
+
+module CSKit
+  module Parsers
+
+    grammar Bible
+      rule citation
+        book [\s]* chapter_list <CitationNode>
+      end
+
+      rule chapter_list
+        chapter ([\s]* ";" [\s]* chapter_list)? <ChapterListNode>
+      end
+
+      rule book
+        [a-zA-Z\.\s]+ <BookNode>
+      end
+
+      rule chapter
+        [\d]+ [\s]* ":" [\s]* verse_list <ChapterNode>
+      end
+
+      rule verse_list
+        verse ([\s]* "," [\s]* verse_list)? <VerseListNode>
+      end
+
+      rule verse
+        (compound_verse_number / verse_number) [\s]* starter [\s]* terminator <VerseNode>
+      end
+
+      rule compound_verse_number
+        verse_number [\s]* "-" [\s]* verse_number <CompoundVerseNumberNode>
+      end
+
+      rule verse_number
+        [\d]+ <VerseNumberNode>
+      end
+
+      rule starter
+        (cardinality [\s]* starter_fragment <StarterNode>)?
+      end
+
+      rule starter_fragment
+        ([^\(\)\,\;]+ <FragmentNode>)?
+      end
+
+      rule terminator
+        ("(" [\s]* "to" [\s]* cardinality [\s]* terminator_fragment [\s]* ")" <TerminatorNode>)?
+      end
+
+      rule terminator_fragment
+        ([^\(\)]+ <FragmentNode>)?
+      end
+
+      rule cardinality
+        ("1st" / "2nd" / "3rd")?
+      end
+    end
+
+  end
+end

data/lib/cskit/parsers/bible/nodes.rb

@@ -0,0 +1,153 @@
+# encoding: UTF-8
+
+module CSKit
+  module Parsers
+    module Bible
+
+      class CitationNode < Treetop::Runtime::SyntaxNode
+        def to_sexp
+          [[:book, book.to_sexp], [:chapters, chapter_list.to_sexp]]
+        end
+
+        def to_object
+          CSKit::Parsers::Bible::Citation.new(
+            book.text_value,
+            chapter_list.to_object
+          )
+        end
+      end
+
+      class BookNode < Treetop::Runtime::SyntaxNode
+        def to_sexp
+          text_value
+        end
+      end
+
+      class ChapterListNode < Treetop::Runtime::SyntaxNode
+        def to_sexp
+          result = [chapter.to_sexp]
+
+          if elements[1] && elements[1].respond_to?(:chapter_list)
+            result += elements[1].chapter_list.to_sexp
+          end
+
+          result
+        end
+
+        def to_object
+          result = [chapter.to_object]
+
+          if elements[1] && elements[1].respond_to?(:chapter_list)
+            result += elements[1].chapter_list.to_object
+          end
+
+          result
+        end
+      end
+
+      class ChapterNode < Treetop::Runtime::SyntaxNode
+        def text_value
+          super.to_i
+        end
+
+        def to_sexp
+          [text_value, verse_list.to_sexp]
+        end
+
+        def to_object
+          CSKit::Parsers::Bible::Chapter.new(
+            text_value,
+            verse_list.to_object
+          )
+        end
+      end
+
+      class VerseListNode < Treetop::Runtime::SyntaxNode
+        def to_sexp
+          result = [verse.to_sexp]
+
+          if elements[1] && elements[1].respond_to?(:verse_list)
+            result += elements[1].verse_list.to_sexp
+          end
+
+          result
+        end
+
+        def to_object
+          result = [verse.to_object]
+
+          if elements[1] && elements[1].respond_to?(:verse_list)
+            result += elements[1].verse_list.to_object
+          end
+
+          result
+        end
+      end
+
+      class VerseNode < Treetop::Runtime::SyntaxNode
+        def to_sexp
+          elements.flat_map { |e| e.to_sexp if e.respond_to?(:to_sexp) }
+        end
+
+        def to_object
+          line_numbers = elements[0].to_sexp.first
+
+          CSKit::Parsers::Bible::Verse.new(
+            line_numbers.first,
+            line_numbers.last,
+            (starter.to_object rescue nil),
+            (terminator.to_object rescue nil)
+          )
+        end
+      end
+
+      class CompoundVerseNumberNode < Treetop::Runtime::SyntaxNode
+        def to_sexp
+          [[verse_number1.text_value.to_i, verse_number2.text_value.to_i]]
+        end
+      end
+
+      class VerseNumberNode < Treetop::Runtime::SyntaxNode
+        def to_sexp
+          [[text_value.to_i, text_value.to_i]]
+        end
+      end
+
+      class PositionalNode < Treetop::Runtime::SyntaxNode
+        def to_sexp
+          [get_cardinality, fragment.value]
+        end
+
+        def get_cardinality
+          card_val = cardinality.text_value.to_i
+          card_val == 0 ? 1 : card_val
+        end
+
+        def to_object
+          Positional.new(get_cardinality, fragment.value)
+        end
+      end
+
+      class StarterNode < PositionalNode
+        def fragment
+          starter_fragment
+        end
+      end
+
+      class TerminatorNode < PositionalNode
+        def fragment
+          terminator_fragment
+        end
+      end
+
+      class FragmentNode < Treetop::Runtime::SyntaxNode
+        def value
+          text_value.strip
+        end
+
+        alias :to_sexp :value
+      end
+
+    end
+  end
+end

data/lib/cskit/parsers/bible/objects.rb

@@ -0,0 +1,81 @@
+# encoding: UTF-8
+
+module CSKit
+  module Parsers
+    module Bible
+
+      Citation = Struct.new(:book, :chapter_list) do
+        def to_s
+          "#{book.strip} #{chapter_list.map(&:to_s).join("; ")}"
+        end
+
+        def to_hash
+          {
+            :book => book,
+            :chapters => chapter_list.map(&:to_hash)
+          }
+        end
+      end
+
+      Chapter = Struct.new(:chapter_number, :verse_list) do
+        def to_s
+          "#{chapter_number}:#{verse_list.map(&:to_s).join(", ")}"
+        end
+
+        def to_hash
+          {
+            :chapter_number => chapter_number,
+            :verses => verse_list.map(&:to_hash)
+          }
+        end
+      end
+
+      Verse = Struct.new(:start, :finish, :starter, :terminator) do
+        def to_s
+          str = if start == finish
+            start.to_s
+          else
+            "#{start}-#{finish}"
+          end
+
+          str << " #{starter}" if starter
+          str << " (to #{terminator})" if terminator
+          str
+        end
+
+        def to_hash
+          {
+            :start => start,
+            :finish => finish,
+            :starter => starter ? starter.to_hash : nil,
+            :terminator => terminator ? terminator.to_hash : nil
+          }
+        end
+      end
+
+      Positional = Struct.new(:cardinality, :fragment) do
+        def to_s
+          card_s = case cardinality
+            when 1 then "1st"
+            when 2 then "2nd"
+            when 3 then "3rd"
+          end
+
+          if cardinality
+            "#{card_s} #{fragment}"
+          else
+            fragment
+          end
+        end
+
+        def to_hash
+          {
+            :cardinality => cardinality,
+            :fragment => fragment
+          }
+        end
+      end
+
+    end
+  end
+end

data/lib/cskit/parsers/science_health/nodes.rb

@@ -0,0 +1,82 @@
+# encoding: UTF-8
+
+module CSKit
+  module Parsers
+    module ScienceHealth
+
+      class CitationNode < Treetop::Runtime::SyntaxNode
+        def to_sexp
+          [[:page, page.to_sexp], [:lines, line_list.to_sexp]]
+        end
+
+        def to_object
+          CSKit::Parsers::ScienceHealth::Citation.new(
+            page.text_value,
+            line_list.to_object
+          )
+        end
+      end
+
+      class PageNode < Treetop::Runtime::SyntaxNode
+        def to_sexp
+          text_value
+        end
+      end
+
+      class LineListNode < Treetop::Runtime::SyntaxNode
+        def to_sexp
+          result = [line.to_sexp]
+
+          if elements[1] && elements[1].respond_to?(:line_list)
+            result += elements[1].line_list.to_sexp
+          end
+
+          result
+        end
+
+        def to_object
+          to_sexp.map do |line|
+            only = line[1] == :only
+            CSKit::Parsers::ScienceHealth::Line.new(
+              line[0].first,
+              line[0].last,
+              only,
+              only ? nil : line[1]
+            )
+          end
+        end
+      end
+
+      class LineNode < Treetop::Runtime::SyntaxNode
+        def to_sexp
+          elements.flat_map { |e| e.to_sexp if e.respond_to?(:to_sexp) }
+        end
+      end
+
+      class CompoundLineNumberNode < Treetop::Runtime::SyntaxNode
+        def to_sexp
+          [[line_number1.text_value.to_i, line_number2.text_value.to_i]]
+        end
+      end
+
+      class LineNumberNode < Treetop::Runtime::SyntaxNode
+        def to_sexp
+          [[text_value.to_i, nil]]
+        end
+      end
+
+      class OnlyNode < Treetop::Runtime::SyntaxNode
+        def to_sexp
+          :only
+        end
+      end
+
+      class StartFragmentNode < Treetop::Runtime::SyntaxNode
+        def to_sexp
+          text_value.strip
+        end
+      end
+
+    end
+  end
+end

data/lib/cskit/parsers/science_health/objects.rb

@@ -0,0 +1,47 @@
+# encoding: UTF-8
+
+module CSKit
+  module Parsers
+    module ScienceHealth
+
+      Citation = Struct.new(:page, :lines) do
+        def to_s
+          "#{page}:#{lines.map(&:to_s).join(", ")}"
+        end
+
+        def to_hash
+          {
+            :page => page,
+            :lines => lines.map(&:to_hash)
+          }
+        end
+      end
+
+      Line = Struct.new(:start, :finish, :only, :start_fragment) do
+        alias :only? :only
+
+        def to_s
+          str = if finish
+            "#{start}-#{finish}"
+          else
+            start.to_s
+          end
+
+          str << " (only)" if only?
+          str << " #{start_fragment}" if start_fragment
+          str
+        end
+
+        def to_hash
+          {
+            :start => start,
+            :finish => finish,
+            :only => only,
+            :start_fragment => start_fragment
+          }
+        end
+      end
+
+    end
+  end
+end