ekispert 0.0.1

data/lib/ekispert/course/route/line/stop/point/prefecture.rb

@@ -0,0 +1,26 @@
+module Ekispert
+  class Course < EkispertBase
+    class Route < EkispertBase
+      class Line < EkispertBase
+        class Stop < EkispertBase
+          class Point < EkispertBase
+            class Prefecture < EkispertBase
+              attr_accessor :name_list
+
+              def initialize(element)
+                @name_list = []
+                super(element)
+              end
+
+              def name
+                @name_list[0].text
+              end
+
+              class Name < EkispertBase; end
+            end
+          end
+        end
+      end
+    end
+  end
+end

data/lib/ekispert/course/route/line/stop/point/station.rb

@@ -0,0 +1,30 @@
+module Ekispert
+  class Course < EkispertBase
+    class Route < EkispertBase
+      class Line < EkispertBase
+        class Stop < EkispertBase
+          class Point < EkispertBase
+            class Station < EkispertBase
+              attr_accessor :name_list, :prefecture_list
+
+              def initialize(element)
+                @name_list = []
+                super(element)
+              end
+
+              def name
+                @name_list[0].text
+              end
+
+              def prefecture
+                @prefecture_list[0].name
+              end
+
+              class Name < EkispertBase; end
+            end
+          end
+        end
+      end
+    end
+  end
+end

data/lib/ekispert/course/route/point.rb

@@ -0,0 +1,49 @@
+module Ekispert
+  class Course < EkispertBase
+    class Route < EkispertBase
+      class Point < EkispertBase
+        attr_accessor :station_list, :prefecture_list, :geo_point_list
+        attr_accessor :name_list
+
+        def initialize(element)
+          @station_list = []
+          @prefecture_list = []
+          @geo_point_list = []
+          @name_list = []
+          super(element)
+          set_station_instance_variables if station?
+        end
+
+        def station
+          @station_list[0]
+        end
+
+        def prefecture
+          @prefecture_list[0]
+        end
+
+        def geo_point
+          @geo_point_list[0]
+        end
+
+        def name
+          @name_list[0]&.text
+        end
+
+        def station?
+          station.instance_of?(Ekispert::Course::Route::Point::Station)
+        end
+
+        class GeoPoint < EkispertBase; end
+        class Name < EkispertBase; end
+
+        private
+
+        def set_station_instance_variables
+          station.prefecture_list = prefecture_list
+          station.geo_point_list = geo_point_list
+        end
+      end
+    end
+  end
+end

data/lib/ekispert/course/route/point/prefecture.rb

@@ -0,0 +1,22 @@
+module Ekispert
+  class Course < EkispertBase
+    class Route < EkispertBase
+      class Point < EkispertBase
+        class Prefecture < EkispertBase
+          attr_accessor :name_list
+
+          def initialize(element)
+            @name_list = []
+            super(element)
+          end
+
+          def name
+            @name_list[0].text
+          end
+
+          class Name < EkispertBase; end
+        end
+      end
+    end
+  end
+end

data/lib/ekispert/course/route/point/station.rb

@@ -0,0 +1,34 @@
+module Ekispert
+  class Course < EkispertBase
+    class Route < EkispertBase
+      class Point < EkispertBase
+        class Station < Point
+          attr_accessor :name_list, :yomi_list, :type_list
+
+          def initialize(element)
+            @name_list = []
+            @yomi_list = []
+            @type_list = []
+            super(element)
+          end
+
+          def name
+            @name_list[0].text
+          end
+
+          def yomi
+            @yomi_list[0].text
+          end
+
+          def type
+            @type_list[0].text
+          end
+
+          class Name < EkispertBase; end
+          class Yomi < EkispertBase; end
+          class Type < EkispertBase; end
+        end
+      end
+    end
+  end
+end

data/lib/ekispert/data_version.rb

@@ -0,0 +1,35 @@
+module Ekispert
+  class DataVersion
+    extend Ekispert::Util
+    attr_accessor :version_list, :copyrights_list
+
+    def initialize
+      @version_list = []
+      @copyrights_list = []
+    end
+
+    def self.get
+      to_data_version(Ekispert::Client.get('dataversion'))
+    end
+
+    def self.to_data_version(elem_arr)
+      data_version = self.new
+      elem_arr.children.each do |element|
+        elem_name = element.name.to_sym
+        next unless self.constants.include?(elem_name)
+
+        # Ex. Ekispert::DataVersion::Version.new
+        sub_instance = self.const_get(elem_name).new(element)
+        class_list_name = "#{snakecase(elem_name)}_list"
+        # Ex. data_version.version_list << sub_instance
+        data_version.send(class_list_name) << sub_instance
+      end
+      data_version
+    end
+
+    private_class_method :to_data_version
+
+    class Version < EkispertBase; end
+    class Copyrights < EkispertBase; end
+  end
+end

data/lib/ekispert/ekispert_base.rb

@@ -0,0 +1,69 @@
+module Ekispert
+  class EkispertBase
+    include Ekispert::Util
+
+    # argument:
+    #   element: XML element (parsed Nokogiri)
+    def initialize(element)
+      set_methods_from_attributes(element)
+      set_method_from_text(element)
+      update_class_list_variable(element)
+    end
+
+    private
+
+    # Ex. Station class
+    #   XML: <Station code = '22828'>...</Station>
+    #   element.attributes = {
+    #     'code' => #(Attr:0x3fe7b6a050a4 { name = 'code', value = '22828' })
+    #   }
+    # result:
+    #   Ekispert::Point::Station#code #=> '22828'
+    def set_methods_from_attributes(element)
+      return if element.attributes.size == 0
+
+      element.attributes.each do |name, attribute|
+        define_singleton_method(snakecase(name)) { attribute.value }
+      end
+    end
+
+    # Ex. Station::Name class
+    #     XML: <Name>東京</Name>
+    # result:
+    #   Ekispert::Point::Statio::Name#text #=> '東京'
+    #   Ekispert::Point::Statio::Name#to_s #=> '東京'
+    def set_method_from_text(element)
+      child_elem = element.children[0]
+      return if child_elem&.element?
+
+      define_singleton_method(:text) { child_elem&.text || '' }
+      instance_eval { alias to_s text }
+    end
+
+    # Ex. Point class (When child elements Station and Prefecture)
+    #     XML:
+    #       <Point>
+    #         <Station></Station>
+    #         <Prefecture></Prefecture>
+    #       </Point>
+    # result:
+    #   before:
+    #     Ekispert::Point#station_list    #=> []
+    #     Ekispert::Point#prefecture_list #=> []
+    #   after:
+    #     Ekispert::Point#station_list    #=> [#<Ekispert::Point::Station @...>]
+    #     Ekispert::Point#prefecture_list #=> [#<Ekispert::Point::Prefecture @...>]
+    def update_class_list_variable(element)
+      element.children.each do |child_elem|
+        elem_name = child_elem.name.to_sym
+        next unless self.class.constants.include?(elem_name)
+
+        # Ex. Ekispert::DataVersion.new(child_elem)
+        sub_instance = self.class.const_get(elem_name).new(child_elem)
+        class_list_name = "#{snakecase(elem_name)}_list"
+        # Ex. sub_instance.version_list << sub_instance
+        self.send(class_list_name) << sub_instance
+      end
+    end
+  end
+end

data/lib/ekispert/error.rb

@@ -0,0 +1,29 @@
+module Ekispert
+  class Error < StandardError
+    class ClientError < Error
+      def initialize(res)
+        @res = res
+        super(format_error_body)
+      end
+
+      private
+
+      def format_error_body
+        %(
+            status  : #{@res.status}
+            URL     : #{@res.env.url}
+            message : #{split_message(@res.body).join("\n")}
+          )
+      end
+
+      def split_message(res_body)
+        Nokogiri::XML(res_body).xpath('/ResultSet/Error/Message').map(&:text)
+      end
+    end
+    class InternalError < Error; end # 1
+    class BadRequest < ClientError; end # 400
+    class Forbidden < ClientError; end # 403
+    class NotFound < ClientError; end # 404
+    class ServerError < Error; end # 500..599
+  end
+end

data/lib/ekispert/information.rb

@@ -0,0 +1,58 @@
+module Ekispert
+  class Information < EkispertBase
+    attr_accessor :line_list, :corporation_list, :welfare_facilities_list, :exit_list, :type_list
+
+    def initialize(element)
+      @line_list = []
+      @corporation_list = []
+      @welfare_facilities_list = []
+      @exit_list = []
+      @type_list = []
+      super(element)
+      relate_line_and_corporation
+    end
+
+    def relate_line_and_corporation
+      # Set Information::Line#corporation
+      @line_list.each do |line|
+        line.corporation = @corporation_list.find { |corp| corp.index == line.corporation_index }
+      end
+      # Set Information::Corporation#line_list
+      @corporation_list.each do |corp|
+        corp.line_list = @line_list.select { |line| corp.index == line.corporation_index }
+      end
+    end
+
+    def type
+      @type_list[0].text
+    end
+
+    def rail?
+      type == 'rail'
+    end
+
+    def nearrail?
+      type == 'nearrail'
+    end
+
+    def welfare?
+      type == 'welfare'
+    end
+
+    def exit?
+      type == 'exit'
+    end
+
+    def self.get(params={})
+      to_information(Ekispert::Client.get('station/info', params))
+    end
+
+    def self.to_information(elem_arr)
+      elem_arr.xpath('//Information').map { |elem| self.new(elem) if elem.children.size > 1 }.compact
+    end
+
+    private_class_method :to_information
+
+    class Type < EkispertBase; end
+  end
+end

data/lib/ekispert/information/corporation.rb

@@ -0,0 +1,20 @@
+module Ekispert
+  class Information < EkispertBase
+    class Corporation < EkispertBase
+      attr_reader :name_list
+      attr_accessor :line_list
+
+      def initialize(element)
+        @name_list = []
+        @line_list = [] # Use Information#relate_line_and_corporation
+        super(element)
+      end
+
+      def name
+        @name_list[0].text
+      end
+
+      class Name < EkispertBase; end
+    end
+  end
+end

data/lib/ekispert/information/exit.rb

@@ -0,0 +1,24 @@
+module Ekispert
+  class Information < EkispertBase
+    class Exit < EkispertBase
+      attr_reader :name_list, :comment_list
+
+      def initialize(element)
+        @name_list = []
+        @comment_list = []
+        super(element)
+      end
+
+      def name
+        @name_list[0]&.text
+      end
+
+      def comment
+        @comment_list[0]&.text
+      end
+
+      class Name < EkispertBase; end
+      class Comment < EkispertBase; end
+    end
+  end
+end

data/lib/ekispert/information/line.rb

@@ -0,0 +1,35 @@
+module Ekispert
+  class Information < EkispertBase
+    class Line < EkispertBase
+      attr_reader :name_list, :type_list, :color_list
+      attr_accessor :corporation
+
+      def initialize(element)
+        @name_list = []
+        @type_list = []
+        @color_list = []
+        super(element)
+      end
+
+      def name
+        @name_list[0].text
+      end
+
+      def type
+        @type_list[0].text
+      end
+
+      def type_detail
+        @type_list[0].respond_to?(:detail) ? @type_list[0].detail : nil
+      end
+
+      def color
+        @color_list[0].text
+      end
+
+      class Name < EkispertBase; end
+      class Type < EkispertBase; end
+      class Color < EkispertBase; end
+    end
+  end
+end