inat-get 0.8.0.11

data/lib/inat/data/entity/observationphoto.rb

@@ -0,0 +1,25 @@
+# frozen_string_literal: true
+
+require 'extra/uuid'
+
+require_relative '../types/std'
+require_relative '../types/extras'
+require_relative '../entity'
+
+# require_relative 'observation'
+# require_relative 'photo'
+
+autoload :Observation, 'inat/data/entity/observation'
+autoload :Photo,       'inat/data/entity/photo'
+
+class ObservationPhoto < Entity
+
+  table :observation_photos
+
+  field :observation, type: Observation, index: true
+
+  field :uuid, type: UUID, unique: true
+  field :position, type: Integer, index: true
+  field :photo, type: Photo, required: true
+
+end

data/lib/inat/data/entity/observationsound.rb

@@ -0,0 +1,26 @@
+# frozen_string_literal: true
+
+require 'extra/uuid'
+
+require_relative '../types/std'
+require_relative '../types/extras'
+require_relative '../entity'
+
+# require_relative 'observation'
+# require_relative 'sound'
+
+# class Observation < Entity; end
+
+autoload :Observation, 'inat/data/entity/observation'
+autoload :Sound,       'inat/data/entity/sound'
+
+class ObservationSound < Entity
+
+  table :observation_sounds
+
+  field :observation, type: Observation, index: true
+
+  field :uuid, type: UUID, unique: true
+  field :sound, type: Sound, required: true
+
+end

data/lib/inat/data/entity/photo.rb

@@ -0,0 +1,31 @@
+# frozen_string_literal: true
+
+require_relative '../types/std'
+require_relative '../types/extras'
+require_relative '../entity'
+
+autoload :Observation, 'inat/data/entity/observation'
+
+class Photo < Entity
+
+  table :photos
+
+  field :license_code, type: Symbol, index: true
+  field :url, type: URI, required: true
+  field :square_url, type: URI
+  field :medium_url, type: URI
+  field :small_url, type: URI
+  field :large_url, type: URI
+  field :original_url, type: URI
+  field :attribution, type: String
+  field :hidden, type: Boolean, index: true
+
+  links :flags, item_type: Flag
+
+  ignore :original_dimensions                     # TODO: сделать нормальный тип
+
+  ignore :moderator_actions                       # TODO: разобраться
+  field :native_page_url, type: URI
+  ignore :native_photo_id
+
+end

data/lib/inat/data/entity/place.rb

@@ -0,0 +1,57 @@
+# frozen_string_literal: true
+
+require_relative '../types/std'
+require_relative '../types/extras'
+require_relative '../types/location'
+require_relative '../entity'
+
+autoload :Observation, 'inat/data/entity/observation'
+
+class Place < Entity
+
+  extend BySLUG
+
+  api_path :places
+  api_part :path
+  api_limit 500
+
+  table :places
+
+  field :uuid, type: UUID, unique: true
+  field :name, type: String, index: true, required: true
+  field :slug, type: Symbol, index: true
+  field :display_name, type: String, index: true
+  field :bbox_area, type: Float
+  field :admin_level, type: Integer, index: true
+  field :place_type, type: Integer, index: true
+  field :location, type: Location
+
+  ignore :geometry_geojson                  # TODO: implement
+  ignore :bounding_box_geojson
+
+  links :ancestor_places, item_type: Place, table_name: :place_ancestors, link_field: :ancestor_id, index: true
+
+  def === other
+    self.id == other.id && other.ancestor_place_ids.include?(self.id)
+  end
+
+  def sort_key
+    display_name
+  end
+
+  class << self
+
+    def DDL
+      super +
+      "INSERT OR REPLACE INTO places (id, uuid, name, display_name) VALUES (59614, '00000000-0000-0000-0000-000000000000', 'World', 'Весь мир');\n"
+      # Если верить API, то идентификатор такой есть, а записи для него нет.
+      #   Вставляем ему искусственно некоторые данные для того, чтобы не запрашивать впустую каждый раз, как он встречается.
+    end
+
+  end
+
+  def to_s
+    "<a href=\"https://www.inaturalist.org/places/#{ id }\"><i class=\"fa fa-globe\"></i>  #{ display_name || name }</a>"
+  end
+
+end

data/lib/inat/data/entity/project.rb

@@ -0,0 +1,94 @@
+# frozen_string_literal: true
+
+require_relative '../types/std'
+require_relative '../types/extras'
+require_relative '../types/location'
+require_relative '../entity'
+require_relative '../enums/projecttype'
+
+# require_relative 'projectadmin'
+# require_relative 'projectobservationrule'
+
+autoload :Observation,            'inat/data/entity/observation'
+autoload :User,                   'inat/data/entity/user'
+autoload :Place,                  'inat/data/entity/place'
+autoload :ProjectAdmin,           'inat/data/entity/projectadmin'
+autoload :ProjectObservationRule, 'inat/data/entity/projectobservationrule'
+autoload :Flag,                   'inat/data/entity/flag'
+autoload :Taxon,                  'inat/data/entity/taxon'
+
+class Project < Entity
+
+  extend BySLUG
+
+  api_path :projects
+  api_part :query
+  api_limit 200
+
+  table :projects
+
+  field :slug, type: Symbol, index: true
+  field :title, type: String, index: true, required: true
+  field :description, type: String
+  field :project_type, type: ProjectType, index: true
+  field :is_umbrella, type: Boolean, index: true
+  field :created_at, type: Time
+  field :updated_at, type: Time
+  field :observation_requirements_updated_at, type: Time
+  field :prefers_user_trust, type: Boolean
+  field :icon, type: URI
+  field :icon_file_name, type: String
+  field :header_image_url, type: URI
+  field :header_image_file_name, type: String
+  field :header_image_contain, type: Boolean
+  field :banner_color, type: String                                 # TODO: сделать тип
+  field :hide_title, type: Boolean
+  field :user, type: User, index: true
+  field :location, type: Location
+
+  field :place, type: Place, index: true
+
+  # links :users, item_type: User
+  # TODO: разобраться как грузить пачками
+  ignore :users
+  ignore :user_ids
+
+  backs :admins, item_type: ProjectAdmin, owned: true
+  backs :project_observation_rules, item_type: ProjectObservationRule, owned: true
+
+  links :flags, item_type: Flag, index: true
+
+  links :subprojects, item_type: Project, table_name: :project_children, link_field: :child_id, owned: false
+
+  links :included_taxa, item_type: Taxon, ids_field: :included_taxon_ids, table_name: :project_rule_taxa, owned: false
+  links :excluded_taxa, item_type: Taxon, ids_field: :excluded_taxon_ids, table_name: :project_rule_excluded_taxa, owned: false
+  links :included_places, item_type: Place, ids_field: :included_place_ids, table_name: :project_rule_places, owned: false
+  links :excluded_places, item_type: Place, ids_field: :excluded_places_ids, table_name: :project_rule_excluded_places, owned: false
+
+  links :observations, item_type: Observation, table_name: :project_observations, owned: false
+
+  ignore :latitude
+  ignore :longitude
+
+  # block :latitude, type: Float do |value|
+  #   @location ||= Location::new nil, nil
+  #   @location.latitude = value
+  # end
+
+  # block :longitude, type: Float do |value|
+  #   @location ||= Location::new nil, nil
+  #   @location.longitude = value
+  # end
+
+  # # TODO: разобраться и сделать связи с местами и таксонами
+  ignore :project_observation_fields
+  ignore :site_features
+  ignore :terms
+  ignore :search_parameters
+  ignore :rule_preferences
+
+  def to_s
+    "<a href=\"https://www.inaturalist.org/projects/#{ id }\"><i class=\"fa fa-briefcase\"></i>  #{ title }</a>"
+  end
+
+end

data/lib/inat/data/entity/projectadmin.rb

@@ -0,0 +1,21 @@
+# frozen_string_literal: true
+
+require_relative '../types/std'
+require_relative '../types/extras'
+require_relative '../entity'
+require_relative '../enums/projectadminrole'
+
+# require_relative 'project'
+# autoload :Project, 'inat/data/entity/project'
+
+class Project < Entity; end
+
+class ProjectAdmin < Entity
+
+  table :project_admins
+
+  field :project, type: Project, index: true
+  field :role, type: ProjectAdminRole, index: true, required: true
+  field :user, type: User, index: true, required: true
+
+end

data/lib/inat/data/entity/projectobservationrule.rb

@@ -0,0 +1,50 @@
+# frozen_string_literal: true
+
+require_relative '../types/std'
+require_relative '../types/extras'
+require_relative '../entity'
+
+# require_relative 'project'
+# autoload :Project, 'inat/data/entity/project'
+
+class Project < Entity; end
+
+class ProjectObservationRule < Entity
+
+  table :project_observation_rules
+
+  field :project, type: Project, index: true
+
+  field :operator, type: Symbol, index: true, required: true
+  field :operand_type, type: Symbol, index: true
+  field :operand_id, type: Integer, index: true
+
+  class << self
+
+    def DDL
+      super +
+      "CREATE VIEW IF NOT EXISTS project_children AS\n" +
+      "  SELECT project_id, operand_id as child_id\n" +
+      "         FROM project_observation_rules\n" +
+      "         WHERE operator = 'in_project?' AND operand_type = 'Project';\n" +
+      "CREATE VIEW IF NOT EXISTS project_rule_taxa AS\n" +
+      "  SELECT project_id, operand_id as taxon_id\n" +
+      "         FROM project_observation_rules\n" +
+      "         WHERE operator = 'in_taxon?' AND operand_type = 'Taxon';\n" +
+      "CREATE VIEW IF NOT EXISTS project_rule_places AS\n" +
+      "  SELECT project_id, operand_id as place_id\n" +
+      "         FROM project_observation_rules\n" +
+      "         WHERE operator = 'observed_in_place?' AND operand_type = 'Place';\n" +
+      "CREATE VIEW IF NOT EXISTS project_rule_excluded_taxa AS\n" +
+      "  SELECT project_id, operand_id as taxon_id\n" +
+      "         FROM project_observation_rules\n" +
+      "         WHERE operator = 'not_in_taxon?' AND operand_type = 'Taxon';\n" +
+      "CREATE VIEW IF NOT EXISTS project_rule_excluded_places AS\n" +
+      "  SELECT project_id, operand_id as place_id\n" +
+      "         FROM project_observation_rules\n" +
+      "         WHERE operator = 'not_observed_in_place?' AND operand_type = 'Place';\n"
+    end
+
+  end
+
+end

data/lib/inat/data/entity/request.rb

@@ -0,0 +1,58 @@
+# frozen_string_literal: true
+
+require_relative '../types/std'
+require_relative '../types/extras'
+require_relative '../entity'
+require_relative '../db'
+
+autoload :Observation, 'inat/data/entity/observation'
+autoload :Project,     'inat/data/entity/project'
+
+class Request < Entity
+
+  table :requests
+
+  field :time, type: Time, index: true
+  field :query, type: String, unique: true
+
+  field :project, type: Project, index: true
+
+  links :observations, item_type: Observation, index: true
+
+  class << self
+
+    def DDL
+      super +
+      "CREATE VIEW IF NOT EXISTS project_observations AS\n" +
+      "  SELECT r.project_id, ro.observation_id\n" +
+      "         FROM requests r, request_observations ro\n" +
+      "         WHERE r.id = ro.request_id AND r.project_id IS NOT NULL;\n"
+    end
+
+    def create query_string, project_id
+      update do
+        max_id = DB.execute("SELECT max(id) AS id FROM requests;").map{ |r| r['id'] }.first
+        new_id = if max_id == nil
+          1
+        else
+          max_id + 1
+        end
+          @entities ||= {}
+        @entities[new_id] ||= new new_id
+        @entities[new_id].time = Time::at(0)
+        @entities[new_id].query = query_string
+        @entities[new_id].project_id = project_id
+        @entities[new_id].save
+      end
+    end
+
+  end
+
+  attr_accessor :active
+
+  def initialize id
+    super(id)
+    @active = false
+  end
+
+end

data/lib/inat/data/entity/sound.rb

@@ -0,0 +1,27 @@
+# frozen_string_literal: true
+
+require_relative '../types/std'
+require_relative '../types/extras'
+require_relative '../entity'
+
+autoload :Observation, 'inat/data/entity/observation'
+
+class Sound < Entity
+
+  table :sounds
+
+  field :license_code, type: LicenseCode, index: true
+  field :attribution, type: String
+  field :file_url, type: URI
+  field :file_content_type, type: Symbol, index: true
+  field :play_local, type: Boolean
+  field :subtype, type: Symbol, index: true
+  field :hidden, type: Boolean, index: true
+
+  links :flags, item_type: Flag
+
+  ignore :native_sound_id       # TODO: разобраться
+  ignore :secret_token
+  ignore :moderator_actions
+
+end

data/lib/inat/data/entity/taxon.rb

@@ -0,0 +1,94 @@
+# frozen_string_literal: true
+
+require_relative '../types/std'
+require_relative '../types/extras'
+require_relative '../entity'
+
+require_relative '../enums/rank'
+require_relative '../enums/iconictaxa'
+
+require_relative 'photo'
+
+autoload :Observation, 'inat/data/entity/observation'
+# autoload :Photo,       'inat/data/entity/photo'
+
+class Taxon < Entity
+
+  api_path :taxa
+  api_part :query
+  api_limit 200
+
+  table :taxa
+
+  field :is_active, type: Boolean, index: true
+  # field :ancestry, type: Ancestry
+  # field :min_species_ancestry, type: Ancestry
+  field :endemic, type: Boolean
+  field :iconic_taxon, type: Taxon
+  field :min_species_taxon, type: Taxon
+  field :threatened, type: Boolean, index: true
+  field :rank_level, type: Float, index: true
+  field :introduced, type: Boolean
+  field :native, type: Boolean
+  field :parent, type: Taxon
+  field :name, type: String, index: true, required: true
+  field :rank, type: Rank, index: true
+  field :extinct, type: Boolean
+  field :created_at, type: Time
+  field :default_photo, type: Photo
+  field :taxon_changes_count, type: Integer
+  field :taxon_schemes_count, type: Integer
+  # field :observations_count, type: Integer
+  field :photos_locked, type: Boolean
+  # field :universal_search_rank, type: Integer
+  field :wikipedia_url, type: URI
+  field :wikipedia_summary, type: String
+  field :iconic_taxon_name, type: IconicTaxa, index: true
+  # field :iconic_taxon, type: Taxon, index: true
+  field :preferred_common_name, type: String
+  field :english_common_name, type: String
+  field :vision, type: Boolean
+
+  links :ancestors, item_type: Taxon, link_field: :ancestor_id
+  links :taxon_photos, item_type: Photo, table_name: :taxon_photos
+
+  backs :children, item_type: Taxon, ids_field: :child_ids, back_field: :parent_id, owned: false
+
+  ignore :flag_counts                         # TODO: разобраться
+  ignore :current_synonymous_taxon_ids
+  ignore :atlas_id
+  ignore :complete_species_count
+  ignore :conservation_statuses
+  ignore :conservation_status
+  ignore :listed_taxa
+  ignore :complete_rank
+
+  ignore :ancestry                            # TODO: подумать и сделать обязательно
+  ignore :min_species_ancestry
+  ignore :establishment_means
+  ignore :preferred_establishment_means
+
+  ignore :observations_count
+  ignore :universal_search_rank
+
+  def === other
+    other.id == self.id || other.ancestor_ids.include?(self.id)
+  end
+
+  def sort_key
+    [ iconic_taxon_name || IconicTaxa::UNKNOWN, name ]
+  end
+
+  private def prepare_name name
+    name.downcase.gsub(' ', ' ').capitalize
+  end
+
+  def to_s
+    if preferred_common_name
+      "<a href=\"https://www.inaturalist.org/taxa/#{ id }\"><i class=\"icon-iconic-#{ (iconic_taxon_name || IconicTaxa::UNKNOWN).to_s.downcase }\" style=\"font-size:1.5em;height:1em;line-height:1em;\"></i> #{ prepare_name(preferred_common_name) } <i>(#{ prepare_name(name) })</i></a>"
+    else
+      "<a href=\"https://www.inaturalist.org/taxa/#{ id }\"><i class=\"icon-iconic-#{ (iconic_taxon_name || IconicTaxa::UNKNOWN).to_s.downcase }\" style=\"font-size:1.5em;height:1em;line-height:1em;\"></i> <i>#{ prepare_name(name) }</i></a>"
+    end
+  end
+
+end

data/lib/inat/data/entity/user.rb

@@ -0,0 +1,67 @@
+# frozen_string_literal: true
+
+require_relative '../types/std'
+require_relative '../types/extras'
+require_relative '../entity'
+
+autoload :Observation, 'inat/data/entity/observation'
+
+class User < Entity
+
+  api_path :users
+  api_part :path
+  api_limit 1
+
+  table :users
+
+  field :login, type: String, index: true, required: true
+  field :spam, type: Boolean
+  field :suspended, type: Boolean, index: true
+  field :created_at, type: Time, index: true
+  field :site_id, type: Integer, index: true
+  field :login_autocomplete, type: String
+  field :login_exact, type: String
+  field :name, type: String, index: true
+  field :name_autocomplete, type: String
+  field :orcid, type: URI
+  field :icon, type: URI
+  field :icon_url, type: URI
+  field :observations_count, type: Integer
+  field :identifications_count, type: Integer
+  field :journal_posts_count, type: Integer
+  field :activity_count, type: Integer
+  field :species_count, type: Integer
+  field :universal_search_rank, type: Integer
+
+  ignore :roles                   # TODO: разобраться
+  ignore :preferences
+
+  def sort_key
+    login
+  end
+
+  def self.by_login login
+    @entities ||= {}
+    results = @entities.values.select { |e| e.login == login.to_s }
+    if results.empty?
+      data = DB.execute "SELECT * FROM users WHERE login = ?", login.to_s
+      results = from_db_rows data
+    end
+    if results.empty?
+      data = API.query 'users/autocomplete', first_only: true, q: login
+      results = data.select { |u| u['login'] == login.to_s }.map { |d| parse(d) }
+    end
+    if results.empty?
+      nil
+    else
+      results.first
+    end
+  end
+
+  def to_s
+    title = ''
+    title = " title=\"#{ name }\"" if name
+    "<a#{ title } href=\"https://www.inaturalist.org/people/#{ id }\"><i class=\"glyphicon glyphicon-user\"></i></a> @#{ login }"
+  end
+
+end

data/lib/inat/data/entity/vote.rb

@@ -0,0 +1,22 @@
+# frozen_string_literal: true
+
+require_relative '../types/std'
+require_relative '../types/extras'
+require_relative '../entity'
+
+autoload :Observation, 'inat/data/entity/observation'
+autoload :User,        'inat/data/entity/user'
+
+class Vote < Entity
+
+  table :votes
+
+  # field :observation, type: Observation, index: true, required: true
+
+  field :created_at, type: Time, index: true, required: true
+  field :vote_flag, type: Boolean, index: true
+  field :user, type: User, index: true
+
+  ignore :vote_scope              # TODO: разобраться
+
+end