prct06-TDD 0.1.0

data/lib/Dieta.rb

@@ -0,0 +1,28 @@
+require 'gema'
+
+class Dieta < ListaDobleEnlazada
+ 
+	@@alimentos = Alimento.constructHashFromFile(%W{Carne\sde\svaca 21.1 0.0 3.1 50.0 164.0 Carne\sde\scordero 18.0 0.0 17.0 20.0 185.0 Camarones\s(piscifactoría) 17.6 1.5 0.6 18.0 2.0 Chocolate 5.3 47.0 30.0 2.3 3.4 Salmón\s(piscifactoría) 19.9 0.0 13.6 6.0 3.7 Cerdo 21.5 0.0 6.3 7.6 11.0 Pollo 20.6 0.0 5.6 5.7 7.1 Queso 25.0 1.3 33.0 11.0 41.0 Cerveza 0.5 3.6 0.0 0.24 0.22 Leche\sde\svaca 3.3 4.8 3.2 3.2 8.9 Huevos 13.0 1.1 11.0 4.2 5.7 Café 0.1 0.0 0.0 0.4 0.3 Tofu 8.0 1.9 4.8 2.0 2.2 Lentejas 23.5 52.0 1.4 0.4 3.4 Nuez 20.0 21.0 54.0 0.3 7.9})	
+	def Dieta.alimentos
+		return @@alimentos
+	end
+
+	
+	def emisiones
+		result = 0
+		self.each(){|value| result+= value.gei }
+		return result
+	end 
+	
+	def terreno
+		result = 0
+		self.each(){|value| result+= value.terreno }
+		return result
+
+	end 	
+
+	def calculoEmisiones(dias)
+		return emisiones()*dias
+	end
+
+end

data/lib/Menu.rb

@@ -0,0 +1,61 @@
+require 'gema'
+
+class Menu < ListaDobleEnlazada
+
+	attr_accessor :precio
+	attr_reader :nombre, :descripcion
+
+	def initialize(nombre, &block)
+		@nombre = nombre
+		@descripcion = ""
+		@precio = 0.0
+	
+		super()
+
+		if block_given?
+			if block.arity == 1
+				yield self
+			else
+				instance_eval(&block)
+			end
+		end
+	end
+	
+	#Función de llamada para DSL
+	#Formato:
+	# {
+	#	:descripcion => <"Descripcion del plato">,
+	#	:precio => <"Precio total del plato">
+	#	:alimento => 	[
+	#				{ :descripcion => <"Nombre alimento">, :proteinas => X, :carbohidratos => Y, :lipidos => Z, :gei => A, :terreno => B, :gramos => C}
+	#				{ :descripcion => <"Nombre alimento">, :proteinas => X, :carbohidratos => Y, :lipidos => Z, :gei => A, :terreno => B, :gramos => C } 
+	#				.
+	#				.
+	#				.
+	#			]
+	# }
+	def componente( options = {} )
+		descripcion =  options[:descripcion]
+		plato = Plato.new( descripcion )
+		plato.precio = options[:precio] ? options[:precio] : 0
+		options[:alimento].each{ |alimento| plato.alimento(alimento) }  if options[:alimento]
+		self.insert(plato)
+	end
+
+	def descripcion(desc)
+		@descripcion = desc
+	end
+
+	def precio(precio)
+		@precio = precio
+	end
+
+	def to_s
+		result = "Menu '#{nombre} -> "
+		self.each{|plato| result += "#{plato}(#{plato.precio} €)\n, " }
+		result = result[0...-2]
+		result += ". Precio total = #{@precio} €" 
+                return result		
+	end
+end
+

data/lib/Plato.rb

@@ -0,0 +1,138 @@
+require 'gema'
+
+#Esta clase describe una lista de instancias de la clase Alimento
+class Plato < ListaDobleEnlazada
+
+	#Enum útil para controlar el comportamiento del metodo '<=>' (necesario para el modulo 'Comparable'). 			
+	module CompareMode
+		ByVCT = 1 #Comparará platos según su Valor Calorico Total
+		ByHuellaNutricional = 2 #Comparará platos según su Huella Nutricional
+	end
+	#Flag de clase Plato que guarda el modo en el que las comparaciones entre instancias de la clase Plato se han de ejecutar
+	@@compareMode = CompareMode::ByVCT
+	#Define el modo de la comparación entre 2 instancias de la clase Plato
+	# @param [Integer(Enum CompareMode)] mode
+	def Plato.setCompareMode(mode)
+		@@compareMode = mode
+	end
+
+	include Comparable
+	attr_reader  :peso, :totalProteinas, :porcentajeProteinas, :totalCarbohidratos, :porcentajeCarbohidratos, :totalLipidos, :porcentajeLipidos, :totalVCT		
+	attr_accessor :nombre, :precio	
+
+	#Devuelve la media de las huellasNutricionales de todos los alimentos del plato
+	def huellaNutricional()
+		return @huellaNutricional/self.size()
+	end
+	
+	def initialize(nombre, &block)
+		super()
+		#Nombre del plato
+		@nombre = nombre
+		#Peso (en kg) del plato
+		@peso = 0
+		#Proteinas (en g) del plato
+		@totalProteinas = 0
+		#Porcentaje de proteinas respecto al total(carbohidratos + proteinas + lipidos)
+		@porcentajeProteinas = 0
+		#Carbohidratos (en g) del plato
+		@totalCarbohidratos = 0
+		#Carbohidratos de proteinas respecto al total(carbohidratos + proteinas + lipidos)
+		@porcentajeCarbohidratos = 0
+		#Lípidos (en g) del plato
+		@totalLipidos = 0
+		#Porcentaje de lipidos respecto al total(carbohidratos + proteinas + lipidos)
+		@porcentajeLipidos = 0
+		#El valor calorico (en kcal) total del plato (de la suma del valor calorico de todos los alimentos del plato)
+		@totalVCT = 0
+		#Impacto del plato en relación a las kcal y los kgCO2 que emiten los alimentos del plato.
+		@huellaNutricional = 0
+	
+		@precio = 0.0
+
+		if block_given?
+			if block.arity == 1
+				yield self
+			else
+				instance_eval(&block)
+			end
+		end
+	end
+	
+	#Funcion adhoc para soporte DSL
+	#Formato:
+	#  { :descripcion => <"Nombre alimento">, :proteinas => X, :carbohidratos => Y, :lipidos => Z, :gei => A, :terreno => B, :gramos => C }
+	def alimento(options = {} )
+		nombre = options[:descripcion] ? "#{options[:descripcion]}" : 'Sin nombre'
+		proteinas = options[:proteinas] ? options[:proteinas] : 0.1
+		carbohidratos = options[:carbohidratos] ? options[:carbohidratos] : 0.1
+		lipidos = options[:lipidos] ? options[:lipidos] : 0.1
+		gei = options[:gei] ? options[:gei] : 0.1
+		terreno = options[:terreno] ? options[:terreno] : 0.1
+		cantidad = options[:gramos] ? options[:gramos].to_f/1000.0 : 1
+		 		
+		result = Alimento.new(nombre,proteinas,carbohidratos,lipidos,gei,terreno,cantidad)
+		self.insert(result)
+	end
+	
+	#Define el comportamiento de la clase Plato en el momento en el que un nuevo alimento es insertado
+	#Sobreescribe el metodo 'inserted(value)' definido en la clase padre 'ListaDobleEnlazada' y es
+	# llamado inertamente cada vez que se llama al metodo 'insert' en clase padre 'ListaDobleEnlazada'
+	# @param [Alimento] value El alimento que acaba de ser insertado
+	def inserted(value)
+		#method(:insert).super_method.call(value) #Llama al metodo insert de padre		
+		
+		alimento = value
+		if( value.instance_of? Node) then alimento = value.value end
+			@peso += alimento.cantidad*100 #Representado en g
+			@totalProteinas += alimento.proteinas
+			@totalCarbohidratos += alimento.carbohidratos
+			@totalLipidos += alimento.lipidos
+			@totalVCT += alimento.valorEnergetico
+			totalNutrientes = @totalProteinas + @totalCarbohidratos + @totalLipidos 
+			@porcentajeProteinas = @totalProteinas / totalNutrientes * 100
+			@porcentajeCarbohidratos = @totalCarbohidratos / totalNutrientes * 100
+			@porcentajeLipidos = @totalLipidos / totalNutrientes * 100
+			@huellaNutricional += alimento.huellaNutricional
+		
+	end
+	
+	#Define el comportamiento de la clase Plato en el momento en el que un alimento es eliminado de su lista inserta
+	#Sobreescribe el metodo 'extracted(nodo)' definido en la clase padre 'ListaDobleEnlazada' y es
+	# llamado internamente cada vez que se llama al metodo 'delete' en clase padre 'ListaDobleEnlazada'
+	# @param [Alimento] nodo El alimento que acaba de ser eliminado de la lista
+	def extracted(nodo)
+		alimento = nodo
+		if( value.instance_of? Node) then alimento = value.value end
+			@peso -= alimento.cantidad*100 #Representado en g
+			@totalProteinas -= alimento.proteinas
+			@totalCarbohidratos -= alimento.carbohidratos
+			@totalLipidos -= alimento.lipidos
+			@totalVCT -= alimento.valorEnergetico
+			totalNutrientes = @totalProteinas + @totalCarbohidratos + @totalLipidos 
+			@porcentajeProteinas = @totalProteinas / totalNutrientes * 100
+			@porcentajeCarbohidratos = @totalCarbohidratos / totalNutrientes * 100
+			@porcentajeLipidos = @totalLipidos / totalNutrientes * 100
+			@huellaNutricional -= alimento.huellaNutricional
+	end
+	
+	#Devuelve el objeto Plato formateado en un string endentible para un ser humano
+	def to_s
+		
+		result = "#{self.nombre} : "
+		self.each{|alimento| result += "#{alimento.nombre}(#{alimento.cantidad*1000} g), " } if self.size > 0
+		result = result[0...-2]
+		result += ". #{@porcentajeProteinas.round(2)}% Proteinas, #{@porcentajeCarbohidratos.round(2)}% Carbohidratos, #{@porcentajeLipidos.round(2)}% Lipidos, #{@totalVCT.round(2)} kcal"
+		return result
+	end 
+	
+	#Implementación del metodo 'Comparable::<=>' para implementación con clase Plato
+	def <=>(other)
+		return nil unless other.instance_of? Plato
+		if(@@compareMode == CompareMode::ByVCT) then
+			@totalVCT  <=> other.totalVCT 
+		else
+			self.huellaNutricional <=> other.huellaNutricional
+		end
+	end
+end

data/lib/Plato.rb.save

@@ -0,0 +1,110 @@
+require 'gema'
+
+#Esta clase describe una lista de instancias de la clase Alimento
+class Plato < ListaDobleEnlazada
+
+	#Enum útil para controlar el comportamiento del metodo '<=>' (necesario para el modulo 'Comparable'). 			
+	module CompareMode
+		ByVCT = 1 #Comparará platos según su Valor Calorico Total
+		ByHuellaNutricional = 2 #Comparará platos según su Huella Nutricional
+	end
+	#Flag de clase Plato que guarda el modo en el que las comparaciones entre instancias de la clase Plato se han de ejecutar
+	@@compareMode = CompareMode::ByVCT
+	#Define el modo de la comparación entre 2 instancias de la clase Plato
+	# @param [Integer(Enum CompareMode)] mode
+	def Plato.setCompareMode(mode)
+		@@compareMode = mode
+	end
+
+	include Comparable
+	attr_reader :nombre
+	 :peso, :totalProteinas, :porcentajeProteinas, :totalCarbohidratos, :porcentajeCarbohidratos, :totalLipidos, :porcentajeLipidos, :totalVCT		
+	#Nombre del plato, Peso (en kg) del plato, 
+	#Devuelve la media de las huellasNutricionales de todos los alimentos del plato
+	def huellaNutricional()
+		return @huellaNutricional/self.size()
+	end
+	
+	def initialize(nombre)
+		super()
+		
+		@nombre = nombre
+		@peso = 0
+		#Proteinas (en g) del plato
+		@totalProteinas = 0
+		#Porcentaje de proteinas respecto al total(carbohidratos + proteinas + lipidos)
+		@porcentajeProteinas = 0
+		#Carbohidratos (en g) del plato
+		@totalCarbohidratos = 0
+		#Carbohidratos de proteinas respecto al total(carbohidratos + proteinas + lipidos)
+		@porcentajeCarbohidratos = 0
+		#Lípidos (en g) del plato
+		@totalLipidos = 0
+		#Porcentaje de lipidos respecto al total(carbohidratos + proteinas + lipidos)
+		@porcentajeLipidos = 0
+		#El valor calorico (en kcal) total del plato (de la suma del valor calorico de todos los alimentos del plato)
+		@totalVCT = 0
+		#Impacto del plato en relación a las kcal y los kgCO2 que emiten los alimentos del plato.
+		@huellaNutricional = 0
+	end
+	
+	#Define el comportamiento de la clase Plato en el momento en el que un nuevo alimento es insertado
+	#Sobreescribe el metodo 'inserted(value)' definido en la clase padre 'ListaDobleEnlazada' y es
+	# llamado inertamente cada vez que se llama al metodo 'insert' en clase padre 'ListaDobleEnlazada'
+	# @param [Alimento] value El alimento que acaba de ser insertado
+	def inserted(value)
+		#method(:insert).super_method.call(value) #Llama al metodo insert de padre		
+		
+		alimento = value
+		if( value.instance_of? Node) then alimento = value.value end
+			@peso += alimento.cantidad*100 #Representado en g
+			@totalProteinas += alimento.proteinas
+			@totalCarbohidratos += alimento.carbohidratos
+			@totalLipidos += alimento.lipidos
+			@totalVCT += alimento.valorEnergetico
+			totalNutrientes = @totalProteinas + @totalCarbohidratos + @totalLipidos 
+			@porcentajeProteinas = @totalProteinas / totalNutrientes * 100
+			@porcentajeCarbohidratos = @totalCarbohidratos / totalNutrientes * 100
+			@porcentajeLipidos = @totalLipidos / totalNutrientes * 100
+			@huellaNutricional += alimento.huellaNutricional
+		
+	end
+	
+	#Define el comportamiento de la clase Plato en el momento en el que un alimento es eliminado de su lista inserta
+	#Sobreescribe el metodo 'extracted(nodo)' definido en la clase padre 'ListaDobleEnlazada' y es
+	# llamado internamente cada vez que se llama al metodo 'delete' en clase padre 'ListaDobleEnlazada'
+	# @param [Alimento] nodo El alimento que acaba de ser eliminado de la lista
+	def extracted(nodo)
+		alimento = nodo
+		if( value.instance_of? Node) then alimento = value.value end
+			@peso -= alimento.cantidad*100 #Representado en g
+			@totalProteinas -= alimento.proteinas
+			@totalCarbohidratos -= alimento.carbohidratos
+			@totalLipidos -= alimento.lipidos
+			@totalVCT -= alimento.valorEnergetico
+			totalNutrientes = @totalProteinas + @totalCarbohidratos + @totalLipidos 
+			@porcentajeProteinas = @totalProteinas / totalNutrientes * 100
+			@porcentajeCarbohidratos = @totalCarbohidratos / totalNutrientes * 100
+			@porcentajeLipidos = @totalLipidos / totalNutrientes * 100
+			@huellaNutricional -= alimento.huellaNutricional
+	end
+	
+	#Devuelve el objeto Plato formateado en un string endentible para un ser humano
+	def to_s
+		result = ""
+		self.each{|alimento| result += "#{alimento.nombre}(#{alimento.cantidad*100} g), " }
+		result = result[0...-2]
+		result += ". #{@porcentajeProteinas.round(2)}% Proteinas, #{@porcentajeCarbohidratos.round(2)}% Carbohidratos, #{@porcentajeLipidos.round(2)}% Lipidos, #{@totalVCT.round(2)} kcal"
+		return result
+	end 
+	
+	#Implementación del metodo 'Comparable::<=>' para implementación con clase Plato
+	def <=>(other)
+		return nil unless other.instance_of? Plato
+		if(@@compareMode == CompareMode::ByVCT) then
+			@totalVCT  <=> other.totalVCT 
+		else
+			self.huellaNutricional <=> other.huellaNutricional
+		end
+	end
+end

data/lib/PlatoEficienciaEnergetica.rb

@@ -0,0 +1,32 @@
+require 'gema'
+
+class PlatoEficienciaEnergetica < Plato
+	
+	attr_reader :totalEmisiones, :totalTerreno
+	
+	def initialize(nombre)
+		super(nombre)
+		@totalEmisiones = 0
+		@totalTerreno = 0
+	end
+
+	def inserted(value)
+		method(:inserted).super_method.call(value) #Llama al metodo insert de padre
+		alimento = value
+		if(value.instance_of? Node) then alimento = value.value end
+			@totalEmisiones += alimento.gei
+			@totalTerreno += alimento.terreno
+	end
+
+	def extracted(value)
+		method(:extracted).super_method.call(value) #Llama al metodo insert de padre
+		alimento = value
+		if(value.instance_of? Node) then alimento = value.value end
+			@totalEmisiones -= alimento.gei
+			@totalTerreno -= alimento.terreno
+	end
+
+	def to_s
+		return method(:to_s).super_method.call + " . #{@totalEmisiones} kgCO2, #{@totalTerreno} m^2"
+	end
+end

data/lib/gema.rb

@@ -0,0 +1,12 @@
+require "gema/version"
+require "gema/ListaDobleEnlazada"
+require "Alimento"
+require 'Plato'
+require 'PlatoEficienciaEnergetica'
+require 'Dieta'
+require 'Menu'
+	
+module Gema
+  class Error < StandardError; end
+  # Your code goes here...
+end

data/lib/gema/ListaDobleEnlazada.rb

@@ -0,0 +1,103 @@
+#module Gema
+Node = Struct.new(:value, :next, :prev)
+
+class ListaDobleEnlazada
+	include Enumerable
+	attr_reader :size, :head, :tail
+ 
+	def initialize()
+		@size = 0
+		@head = nil
+		@tail = nil
+	end
+	
+	#Metodo usado para insertar una lista de elementos en el objeto listaDobleEnlazada
+	# @param [List] nodos Lista de elementos a insertar
+	def insertList(*nodos)
+		nodos.each do |nodo|
+			self.insert(nodo)
+		end
+	end
+	
+	#Inserta un elemento en la lista del objeto listaDobleEnlazada
+	# @param [Object] nodo Elemento a insertar
+	def insert(nodo)
+		@size = @size + 1
+		if !(nodo.instance_of? Node) then
+			nodo = Node.new(nodo,nil,nil)
+		end
+		if (@head == nil) then
+			@head = nodo
+		end
+		if(@tail == nil) then
+			@tail = nodo
+		else
+			@tail.next = nodo
+			nodo.prev = @tail
+			@tail = nodo
+		end
+		inserted(nodo)
+	end
+
+	#PlaceHolder de metodo-evento para ser sobreescrito en clases hijas
+	#Este metodo se llama cada vez que un elemento es insertado con exito
+	# @param [Object] nodo Elemento insertado
+	def inserted(nodo)
+	end
+	
+	#Retorna la cola de la lista del objeto ListaDobleEnlazada y la elimina de esta.
+	def extract_tail()
+		nodo = @tail
+		@tail = @tail.prev
+		@tail.next = nil
+		extracted(nodo)
+		return nodo
+	end
+	
+	#Retorna la cabeza de la lista del objeto ListaDobleEnlazada y la elimina de esta.
+	def extract_head()
+		nodo = @head
+		@head = @head.next
+		@head.prev = nil
+		extracted(nodo)
+		return nodo
+	end
+	
+	#Placeholder de metodo-evento para ser sobreescrito en clases hijas
+	#Este metodo se llama cada vez que un elemento es extraido con exito
+	# param [Object] nodo Elemento extraido
+	def extracted(nodo)
+	end
+
+	def to_s()
+		result = ""
+		self.each{|value| result += "-> " + value.to_s() + " <" }
+		result += '-'
+		return result
+	end
+
+	#Metodo de 'Enumerable' implementado para que sea capaz de trabajar con objetos de tipo LsitaDobleEnlazada
+	# @param [Clausure] Bloque_Aridad1 Recibe un bloque que espera como argumento cada elemento de la lista
+	def each
+		nodo = @head
+		loop do
+			yield nodo.value
+			nodo = nodo.next
+			break if(nodo == nil)
+		end
+	end
+
+	#Retorna el valor situado en la posición <index> del objeto tipo ListaDobleEnlazada
+	# @param [Integer] index Indice de la posición del elemento que queremos recoger	
+	def [](index)
+		result = nil
+		count = 0
+		return self.each_with_index do |value,index_r|
+			if(index_r == index) then	
+				return value
+			 end	
+		end
+	end	
+end
+#end
+