dietary_dsl 0.1.2

data/lib/dietary_dsl/bedca_api/constants/attributes.rb

@@ -0,0 +1,184 @@
+# frozen_string_literal: true
+
+module DietaryDsl
+  # Módulo que agrupa las constantes y funciones útiles respecto a la base de datos BEDCA
+  module BEDCA
+    ATTRIBUTES = {
+      # Identificador
+      # 12
+      'f_id' => :id,
+      # Nombre en español
+      # Arroz
+      'f_ori_name' => :nombre,
+      # Nombre en inglés
+      # Rice
+      'f_eng_name' => :name,
+      # Nombre científico
+      # Oryza sativa
+      'sci_name' => :scientific_name,
+      # A0696 A0730 A0814 A0960 A1240 A1290 B1322 C0155 E0131 F0003 G0003 H0003 H0398 J0003 K0004 M0128 N0036 P0024...
+      'langual' => :langual,
+      # Código en la base de datos EFSA, http://iufost.org/databases, https://www.efsa.europa.eu/en/efsajournal/pub/1970
+      # A001D
+      'foodexcode' => :foodexcode,
+      # 11
+      'mainlevelcode' => :mainlevelcode,
+      # Código de primer nivel de FoodEx
+      # A000J
+      'codlevel1' => :codlevel1,
+      # Nombre del primer nivel de FoodEx
+      # Grains and grain-based products
+      'namelevel1' => :namelevel1,
+      # 29
+      'codsublevel' => :codsublevel,
+      # Código de segundo nivel de FoodEx
+      # A000K
+      'codlevel2' => :codlevel2,
+      # Nombre del primer nivel de FoodEx
+      # Grains and grain-based products
+      'namelevel2' => :namelevel2,
+      # ???
+      # null
+      'f_des_esp' => :f_des_esp,
+      # ???
+      # null
+      'f_des_ing' => :f_des_ing,
+      # ???
+      # URL de la imagen
+      'photo' => :photo,
+      # ???
+      # null
+      'edible_portion' => :edible_portion,
+      # Origen de la información
+      # BEDCA2
+      'f_origen' => :f_origen,
+      # Valores nutricionales del alimento
+      # Array de componentes
+      'foodvalue' => :foodvalue,
+
+      # =======================================================================
+      # Components
+      # =======================================================================
+      # Identificador
+      # 53
+      'c_id' => :id,
+      # Nombre en español
+      # carbohidratos
+      'c_ori_name' => :nombre,
+      # Nombre en inglés
+      # carbohydrate
+      'c_eng_name' => :name,
+      # ???
+      # CHO
+      'eur_name' => :eur_name,
+      # ???
+      # 2
+      'componentgroup_id' => :componentgroup_id,
+      # Glosario del componente en español
+      # Este componente es uno de losmacronutrientes e incluye todos los hidratos de carbono
+      'glos_esp' => :glos_esp,
+      # Glosario del componente en español
+      # null
+      'glos_ing' => :glos_ing,
+      # Descripción del grupo de componentes en español
+      # Hidratos de carbono
+      'cg_descripcion' => :categoria,
+      # Descripción del grupo de componentes en inglés
+      # Carbohydrate components
+      'cg_description' => :cg_description,
+      # Cantidad de materia que contiene el elemento consultado
+      # 86
+      'best_location' => :cantidad,
+      # Unidad de medida
+      # g
+      'v_unit' => :unidad,
+      # ???
+      # W
+      'moex' => :moex,
+      # ???
+      # null
+      'stdv' => :stdv,
+      # ???
+      # null
+      'min' => :min,
+      # ???
+      # null
+      'max' => :max,
+      # ???
+      # null
+      'v_n' => :v_n,
+      # Identificador de unidad de medición
+      # g
+      'u_id' => :u_id,
+      # Descripción de la unidad de medición en español
+      # gramos
+      'u_descripcion' => :u_descripcion,
+      # Descripción de la unidad de medición en inglés
+      # gram
+      'u_description' => :u_description,
+      # ???
+      # AR
+      'value_type' => :value_type,
+      # Descripción del tipo de valor en español
+      # como aparece en la fuente
+      'vt_descripcion' => :vt_descripcion,
+      # Descripción del tipo de valor en inglés
+      # as reported
+      'vt_description' => :vt_description,
+      # ???
+      # W
+      'mu_id' => :mu_id,
+      # ???
+      # por 100 g de porción comestible
+      'mu_descripcion' => :mu_descripcion,
+      # ???
+      # per 100 g edible portion
+      'mu_description' => :mu_description,
+      # ???
+      # 258
+      'ref_id' => :ref_id,
+      # ???
+      # null
+      'citation' => :citation,
+      # ???
+      # tabla de composición de alimentos
+      'at_descripcion' => :at_descripcion,
+      # ???
+      # food composition table
+      'at_description' => :at_description,
+      # ???
+      # libro
+      'pt_descripcion' => :pt_descripcion,
+      # ???
+      # book
+      'pt_description' => :pt_description,
+      # ???
+      # 344
+      'method_id' => :method_id,
+      # ???
+      # tipo de método no conocido
+      'mt_descripcion' => :mt_descripcion,
+      # ???
+      # method type not known
+      'mt_description' => :mt_description,
+      # ???
+      # Extraccion: Alicuotas del alimento (entre 5 y 30 g) dependiendo del color son...
+      'm_descripcion' => :m_descripcion,
+      # ???
+      # null
+      'm_description' => :m_description,
+      # ???
+      # Método no conocido (Moreiras)
+      'm_nom_esp' => :m_nom_esp,
+      # ???
+      # Unknown method  (Moreiras)
+      'm_nom_ing' => :m_nom_ing,
+      # ???
+      # Metodo analitico o de cálculo no conocido
+      'mhd_descripcion' => :mhd_descripcion,
+      # ???
+      # Analytical or calculation method not known
+      'mhd_description' => :mhd_description
+    }.freeze
+  end
+end

data/lib/dietary_dsl/bedca_api/constants/categories.rb

@@ -0,0 +1,14 @@
+# frozen_string_literal: true
+
+module DietaryDsl
+  # Módulo que agrupa las constantes y funciones útiles respecto a la base de datos BEDCA
+  module BEDCA
+    CATEGORIES = {
+      'Hidratos de Carbono' => :hidratos_de_carbono,
+      'Vitaminas' => :vitaminas,
+      'Grasas' => :grasas,
+      'Minerales' => :minerales,
+      'Proximales' => :proximales
+    }.freeze
+  end
+end

data/lib/dietary_dsl/bedca_api/constants/components.rb

@@ -0,0 +1,55 @@
+# frozen_string_literal: true
+
+module DietaryDsl
+  # Módulo que agrupa las constantes y funciones útiles respecto a la base de datos BEDCA
+  module BEDCA
+    COMPONENTS = {
+      '53' => :carbohidratos,
+      '67' => :carotenoides_totales,
+      '88' => :retinol,
+      '100' => :vitamina_a,
+      '102' => :vitamina_d,
+      '103' => :viamina_e,
+      '123' => :acido_graso_miristico,
+      '136' => :acido_graso_palmitico,
+      '157' => :acido_graso_estearico,
+      '172' => :acido_graso_oleico,
+      '189' => :acido_graso,
+      '199' => :acido_graso_alt,
+      '230' => :acido_graso_araquidonico,
+      '231' => :acido_graso_eicosapentaenoico,
+      '260' => :acido_graso_docosahexaenoico,
+      '282' => :acidos_grasos_monoinsaturados_totales,
+      '287' => :acidos_grasos_poliinsaturados_totales,
+      '299' => :acidos_grasos_saturados_totales,
+      '307' => :fibra_dietetica_total,
+      '317' => :calcio,
+      '319' => :hierro_total,
+      '321' => :potasio,
+      '322' => :magnesio,
+      '323' => :sodio,
+      '326' => :fosforo,
+      '404' => :alcohol,
+      '409' => :energia_total,
+      '410' => :grasa_total,
+      '416' => :proteina_total,
+      '417' => :agua,
+      '433' => :colesterol,
+      '456' => :ioduro,
+      '462' => :selenio_total,
+      '464' => :zinc,
+      '472' => :folato,
+      '475' => :equivalentes_de_niacina_totales,
+      '482' => :riboflavina,
+      '483' => :tiamina,
+      '484' => :vitamina_b_12,
+      '485' => :vitamina_b_6,
+      '486' => :vitamina_c,
+      '487' => :acido_folico,
+      'alcohol (etanol)' => :alcohol,
+      'grasa, total (lipidos totales)' => :grasa_total,
+      'proteina, total' => :proteina_total,
+      'carbohidratos' => :carbohidratos
+    }.freeze
+  end
+end

data/lib/dietary_dsl/bedca_api/constants/relations.rb

@@ -0,0 +1,11 @@
+# frozen_string_literal: true
+
+module DietaryDsl
+  # Módulo que agrupa las constantes y funciones útiles respecto a la base de datos BEDCA
+  module BEDCA
+    RELATIONS = {
+      equal: 'EQUAL',
+      like: 'LIKE'
+    }.freeze
+  end
+end

data/lib/dietary_dsl/bedca_api/constants/utils.rb

@@ -0,0 +1,25 @@
+# frozen_string_literal: true
+
+module DietaryDsl
+  # Módulo que agrupa las constantes y funciones útiles respecto a la base de datos BEDCA
+  module BEDCA
+    XML_HEADER = '<?xml version="1.0" encoding="UTF-8"?>'
+    URL = URI 'http://www.bedca.net/bdpub/procquery.php'
+    SVG_REGEX = %r{<text.+?>(?<value>.+?)</\s?text>.+?<text.+?>(?<label>.+?)</\s?text>}
+
+    def rehash(data, map = ATTRIBUTES)
+      data.each_with_object({}) do |(key, value), hash|
+        hash[map[key]] = value
+        hash
+      end
+    end
+
+    def arr_to_hash(data, map)
+      data.each_with_object({}) do |item, hash|
+        a = yield item
+        hash[map[a]] = item
+        hash
+      end
+    end
+  end
+end

data/lib/dietary_dsl/bedca_api/constants.rb

@@ -0,0 +1,7 @@
+# frozen_string_literal: true
+
+require 'dietary_dsl/bedca_api/constants/attributes'
+require 'dietary_dsl/bedca_api/constants/components'
+require 'dietary_dsl/bedca_api/constants/relations'
+require 'dietary_dsl/bedca_api/constants/categories'
+require 'dietary_dsl/bedca_api/constants/utils'

data/lib/dietary_dsl/bedca_api/food.rb

@@ -0,0 +1,145 @@
+# frozen_string_literal: true
+
+require 'uri'
+require 'net/http'
+require 'builder'
+require 'active_support/all'
+require 'dietary_dsl/bedca_api/constants'
+require 'dietary_dsl/bedca_api/food_value'
+require 'dietary_dsl/bedca_api/food_values'
+require 'pp'
+
+module DietaryDsl
+  # Class that wraps Bedca database API
+  class Food
+    attr_reader :raw, :nombre, :name, :values
+
+    include BEDCA
+
+    @http = Net::HTTP.new(URL.host, URL.port)
+
+    class << self
+      attr_accessor :http
+    end
+
+    def self.request(xml)
+      response = @http.request_post URL, XML_HEADER + xml, 'Content-Type' => 'text/xml'
+      body = response.read_body
+      return Hash.from_xml body
+    rescue
+      raise 'Hay un problema con la conexión'
+    end
+
+    def self.sanitize_response(response)
+      response.dig 'foodresponse', 'food'
+    end
+
+    def self.build_attributes(b, attributes)
+      attributes
+        .reject { |(key)| key == 'foodvalue' }
+        .each do |(key)|
+          b.atribute name: key
+        end
+    end
+
+    def self.query(attributes = ATTRIBUTES)
+      Builder::XmlMarkup.new.foodquery do |b|
+        b.type level: 2
+        b.selection do
+          build_attributes(b, attributes)
+        end
+        yield b
+      end
+    end
+
+    def self.where(b, field, relation, value)
+      b.condition do
+        b.cond1 do
+          b.atribute1(name: ATTRIBUTES.key(field))
+        end
+        b.relation(type: relation)
+        b.cond3(value)
+      end
+    end
+
+    def self.find_by_and_relation(data, relation)
+      xml = query do |b|
+        data.each do |(key), value|
+          where(b, key, relation, value)
+        end
+      end
+
+      data = sanitize_response request xml
+      return nil if data.nil?
+
+      Food.new(data)
+    end
+
+    def self.find(id)
+      find_by(id: id)
+    end
+
+    def self.find_by(data)
+      find_by_and_relation(data, RELATIONS[:equal])
+    end
+
+    def self.find_by_like(data)
+      find_by_and_relation(data, RELATIONS[:like])
+    end
+
+    def initialize(values)
+      @data = rehash(values)
+      @groups = @data[:foodvalue]
+                .group_by { |value| value['cg_descripcion'] }
+                .each_with_object({}) do |(key, vals), hash|
+                  hash[CATEGORIES[key]] = FoodValues.new(vals.first['cg_descripcion'], vals)
+                end
+
+      @data.delete(:foodvalue)
+      @data[:groups] = @groups
+
+      @general_values = download_general_values
+    end
+
+    def [](key)
+      @data[key]
+    end
+
+    def download_general_values
+      body = (Food.http.request_get "http://www.bedca.net/cocoon/svg/response#{self[:id]}langes.svg").read_body
+      parse_svg body
+    end
+
+    def parse_svg(svg)
+      (svg.scan SVG_REGEX).each_with_object({}) do |value, hash|
+        hash[COMPONENTS[value.last]] = value.first.delete(' ')
+        hash
+      end
+    end
+
+    def to_s
+      tables = @data[:groups]
+               .map do |(_key, group)|
+                 group.to_table
+               end
+               .join("\n")
+
+      <<~TO_MARKDOWN
+        # #{self[:nombre]}
+
+        > #{self[:scientific_name]}
+
+        ## Distribución de la Energía total
+
+        Proteínas: #{@general_values[:proteina_total]}
+        Grasas: #{@general_values[:grasa_total]}
+        Carbohidratos: #{@general_values[:carbohidratos]}
+        Alcohol: #{@general_values[:alcohol]}
+
+        ## Información de composición (por 100 g de porción comestible)
+
+        #{tables}
+      TO_MARKDOWN
+    end
+  end
+end

data/lib/dietary_dsl/bedca_api/food_value.rb

@@ -0,0 +1,37 @@
+# frozen_string_literal: true
+
+require 'dietary_dsl/bedca_api/constants'
+
+module DietaryDsl
+  # Clase que representa un tipo de valor nutricional y sus datos
+  class FoodValue
+    include BEDCA
+
+    def initialize(values)
+      data = rehash(values)
+
+      @data = data
+    end
+
+    def [](key)
+      return cantidad if key == :cantidad
+      @data[key]
+    end
+
+    def cantidad
+      @data[:cantidad] || @data[:vt_descripcion]
+    end
+
+    def to_s
+      "#{self[:cantidad]}#{self[:unidad]}"
+    end
+
+    def to_table
+      "| #{self[:nombre]} | #{self[:cantidad]} | #{self[:unidad]} |"
+    end
+
+    def inspect
+      to_s
+    end
+  end
+end

data/lib/dietary_dsl/bedca_api/food_values.rb

@@ -0,0 +1,48 @@
+# frozen_string_literal: true
+
+require 'dietary_dsl/bedca_api/constants'
+
+module DietaryDsl
+  # Clase que representa un tipo de valor nutricional y sus datos
+  class FoodValues
+    include BEDCA
+    include Enumerable
+
+    def initialize(title, values)
+      @title = title
+      @data = arr_to_hash(parse_values(values), COMPONENTS) { |value| value[:id] }
+    end
+
+    def [](key)
+      @data[key]
+    end
+
+    def each
+      @data.each { |i| yield i }
+    end
+
+    def parse_values(values)
+      values
+        .map { |value| FoodValue.new(value) }
+        .uniq { |value| value[:id] }
+    end
+
+    def to_s
+      JSON.pretty_generate(@data).gsub(':', ' =>') + "\n"
+    end
+
+    def inspect
+      to_s
+    end
+
+    def to_table
+      <<~TO_TABLE
+        ### #{@title}
+
+        | Componente | Valor | Unidad |
+        |------------|-------|--------|
+        #{@data.map { |_key, value| value.to_table }.join("\n")}
+      TO_TABLE
+    end
+  end
+end

data/lib/dietary_dsl/dsl/menu.rb

@@ -0,0 +1,22 @@
+# frozen_string_literal: true
+
+require 'dietary_dsl/bedca_api/food'
+
+module DietaryDsl
+  # Clase que representa un menú. Un menú se compone de distintos platos (entrantes, primeros platos, postres...)
+  class Menu
+    def initialize(title, &block)
+      @title = title
+      @platos = []
+      instance_eval(&block)
+    end
+
+    def [](key)
+      @platos[key]
+    end
+
+    def plato(datos)
+      @platos = @platos.push datos
+    end
+  end
+end

data/lib/dietary_dsl/dsl/plato.rb

@@ -0,0 +1,36 @@
+# frozen_string_literal: true
+
+require 'dietary_dsl/bedca_api/food'
+
+module DietaryDsl
+  # Clase que representa un plato. Un plato es una comida específica, como pulpo a la gallega, o un potaje
+  class Plato
+    def initialize(title, &block)
+      @title = title
+      @alimentos = []
+      instance_eval(&block)
+    end
+
+    def [](key)
+      @alimentos[key]
+    end
+
+    def alimento(datos)
+      alimento = DietaryDsl::Food.find_by_like(nombre: datos[:food])
+      raise "El alimento #{datos[:food]} no existe" if alimento.nil?
+      cantidad = datos[:cantidad]
+      @alimentos = @alimentos.push food: alimento, cantidad: cantidad
+    end
+
+    def to_s
+      alimentos = @alimentos
+                  .map { |data| "* #{data[:food][:nombre]}" }
+                  .join("\n")
+
+      <<~OUTPUT
+        #{@title}
+        #{alimentos}
+      OUTPUT
+    end
+  end
+end

data/lib/dietary_dsl/measures/mass.rb

@@ -0,0 +1,77 @@
+# frozen_string_literal: true
+
+require 'dietary_dsl/measures/measure'
+
+module DietaryDsl
+  # Esta clase nos permite representar unidades de masa, como gramos o kilogramos.
+  class Masa < Measure
+    def initialize(en_gramos)
+      super(en_gramos)
+    end
+
+    # Métodos de clase para instanciarlo
+
+    def self.kg(number)
+      DietaryDsl::Masa.new(number * 1000)
+    end
+
+    def self.g(number)
+      DietaryDsl::Masa.new(number)
+    end
+
+    # Métodos de conversión
+
+    def g
+      @cantidad
+    end
+
+    def gramos
+      g
+    end
+
+    def kg
+      @cantidad / 1000
+    end
+
+    def kilogramos
+      kg
+    end
+
+    # Métodos para multiplicar por un número, p.e. 3 * 10.g
+
+    def coerce(arg)
+      [Masa.new(arg), self]
+    end
+
+    def *(other)
+      Masa.new(@cantidad * other.cantidad)
+    end
+  end
+end
+
+# Se expande la clase Numeric con los nuevos métodos para la masa
+class Numeric
+  def g
+    DietaryDsl::Masa.g(self)
+  end
+
+  def gramo
+    g
+  end
+
+  def gramos
+    g
+  end
+
+  def kg
+    DietaryDsl::Masa.kg(self)
+  end
+
+  def kilogramo
+    kg
+  end
+
+  def kilogramos
+    kg
+  end
+end

data/lib/dietary_dsl/measures/measure.rb

@@ -0,0 +1,16 @@
+# frozen_string_literal: true
+
+module DietaryDsl
+  # Esta clase nos permite representar unidades de masa, como gramos o kilogramos.
+  class Measure
+    attr_reader :cantidad
+
+    def initialize(cantidad)
+      @cantidad = cantidad.to_f
+    end
+
+    def to
+      self
+    end
+  end
+end