CapicuaGenGaspar 0.0.2

data/lib/CapicuaGenGaspar/Mixins/catalog_mixin.rb

@@ -0,0 +1,65 @@
+=begin
+
+CapicuaGen
+
+CapicuaGen es un software que ayuda a la creación automática de
+sistemas empresariales a través de la definición y ensamblado de
+diversos generadores de características.
+
+El proyecto fue iniciado por José Luis Bautista Martin, el 6 de enero
+del 2016.
+
+Puede modificar y distribuir este software, según le plazca, y usarlo
+para cualquier fin ya sea comercial, personal, educativo, o de cualquier
+índole, siempre y cuando incluya este mensaje, y se permita acceso el
+código fuente.
+
+Este software es código libre, y se licencia bajo LGPL.
+
+Para más información consultar http://www.gnu.org/licenses/lgpl.html
+=end
+
+
+=begin
+Este Mixin esta programado para obtener información de las caracteristicas
+de proveedoras de los ventanas de administracion (persistencia)
+de entidades :catalog
+=end
+
+module CapicuaGen::Gaspar
+
+  public
+
+  # Obtiene el nombre completo de los catalogos
+  def get_entity_catalogs_full_name
+    # Busco  las caracteristicas que contiene entidades de SQL para una table
+    generator.get_features_in_targets_by_type(:catalog).each do |f|
+      # Obtengo las entidades
+      f.get_entity_catalogs_full_name do |e|
+        yield e
+      end
+    end
+  end
+
+  # Obtiene el nombre  de los catalogos
+  def get_entity_catalogs_name
+    # Busco  las caracteristicas que contiene entidades de SQL para una table
+    generator.get_features_in_targets_by_type(:catalog).each do |f|
+      # Obtengo las entidades
+      f.get_entity_catalogs_name do |e|
+        yield e
+      end
+    end
+  end
+
+  # Obtiene una entidad en base al nombre del catalogo
+  def get_entity_by_catalog_name(catalog_name)
+    # Busco  las caracteristicas que contiene entidades de SQL para una table
+    generator.get_features_in_targets_by_type(:catalog).each do |f|
+      # Obtengo las entidades
+      return f.get_entity_by_catalog_name(catalog_name)
+    end
+  end
+
+end
+

data/lib/CapicuaGenGaspar/Mixins/cs_app_config_mixin.rb

@@ -0,0 +1,41 @@
+=begin
+
+CapicuaGen
+
+CapicuaGen es un software que ayuda a la creación automática de
+sistemas empresariales a través de la definición y ensamblado de
+diversos generadores de características.
+
+El proyecto fue iniciado por José Luis Bautista Martin, el 6 de enero
+del 2016.
+
+Puede modificar y distribuir este software, según le plazca, y usarlo
+para cualquier fin ya sea comercial, personal, educativo, o de cualquier
+índole, siempre y cuando incluya este mensaje, y se permita acceso el
+código fuente.
+
+Este software es código libre, y se licencia bajo LGPL.
+
+Para más información consultar http://www.gnu.org/licenses/lgpl.html
+=end
+
+=begin
+Este Mixin esta programado para obtener información de las caracteristicas
+de proveedoras del archivo app.config :app_config
+=end
+
+
+module CapicuaGen::Gaspar
+
+  public
+
+  def get_app_config_file
+    # Busco  las caracteristicas que contiene entidades de SQL para una table
+    generator.get_features_in_targets_by_type(:app_config).each do |f|
+      # Obtengo las entidades
+      return f.get_app_config_file
+    end
+  end
+
+end
+

data/lib/CapicuaGenGaspar/Mixins/cs_db_connection_provider_mixin.rb

@@ -0,0 +1,67 @@
+=begin
+
+CapicuaGen
+
+CapicuaGen es un software que ayuda a la creación automática de
+sistemas empresariales a través de la definición y ensamblado de
+diversos generadores de características.
+
+El proyecto fue iniciado por José Luis Bautista Martin, el 6 de enero
+del 2016.
+
+Puede modificar y distribuir este software, según le plazca, y usarlo
+para cualquier fin ya sea comercial, personal, educativo, o de cualquier
+índole, siempre y cuando incluya este mensaje, y se permita acceso el
+código fuente.
+
+Este software es código libre, y se licencia bajo LGPL.
+
+Para más información consultar http://www.gnu.org/licenses/lgpl.html
+=end
+
+
+=begin
+Este Mixin esta programado para obtener información de las caracteristicas
+de proveedoras de  conexciones a base de datos :data_connection_provider
+=end
+
+
+module CapicuaGen::Gaspar
+
+  public
+
+  # Devuelve el metodo para acceder a el proveedor de la coexion
+  def get_db_connection_provider_method
+    # Busco  las caracteristicas que contiene entidades de SQL para una table
+    generator.get_features_in_targets_by_type(:data_connection_provider).each do |f|
+      # Obtengo las entidades
+      return f.get_db_connection_provider_method
+    end
+
+    return nil
+  end
+
+  # Devuelve el nombre de la conexión
+  def get_db_connection_name_method
+    # Busco  las caracteristicas que contiene entidades de SQL para una table
+    generator.get_features_in_targets_by_type(:data_connection_provider).each do |f|
+      # Obtengo las entidades
+      return f.get_db_connection_name_method
+    end
+
+    return nil
+  end
+
+  # Devuelve la cadena de conexion de la conexión
+  def get_db_connection_string_method
+    # Busco  las caracteristicas que contiene entidades de SQL para una table
+    generator.get_features_in_targets_by_type(:data_connection_provider).each do |f|
+      # Obtengo las entidades
+      return f.get_db_connection_string_method
+    end
+
+    return nil
+  end
+
+end
+

data/lib/CapicuaGenGaspar/Mixins/cs_namespace_mixin.rb

@@ -0,0 +1,53 @@
+=begin
+
+CapicuaGen
+
+CapicuaGen es un software que ayuda a la creación automática de
+sistemas empresariales a través de la definición y ensamblado de
+diversos generadores de características.
+
+El proyecto fue iniciado por José Luis Bautista Martin, el 6 de enero
+del 2016.
+
+Puede modificar y distribuir este software, según le plazca, y usarlo
+para cualquier fin ya sea comercial, personal, educativo, o de cualquier
+índole, siempre y cuando incluya este mensaje, y se permita acceso el
+código fuente.
+
+Este software es código libre, y se licencia bajo LGPL.
+
+Para más información consultar http://www.gnu.org/licenses/lgpl.html
+=end
+
+=begin
+Este Mixin esta programado para obtener información de las caracteristicas
+de proveedoras de funcionalidad para acceder a los namespaces generados
+=end
+
+
+require 'CapicuaGen/Mixins/parameter_mixin'
+require 'CapicuaGen/Mixins/attributes_mixin'
+
+module CapicuaGen::Gaspar
+  include CapicuaGen
+
+  public
+
+  # Devuelve una coleccion de namespace
+  def get_namespaces(target_types= [])
+    get_attributes( :attributes=>:namespace, :target_types=>target_types) do |a,values|
+      values.each {|v| yield v}
+    end
+  end
+
+  # Devuelve un unico string con imports del namespace
+  def get_namespaces_text(target_types= [])
+    result= ''
+    # Busco  las caracteristicas que contiene entidades de SQL para una table
+    get_namespaces(target_types) do |n|
+      result << "using #{n};#{$/}"
+    end
+    return result;
+  end
+end
+

data/lib/CapicuaGenGaspar/Mixins/entity_interface_mixin.rb

@@ -0,0 +1,57 @@
+=begin
+
+CapicuaGen
+
+CapicuaGen es un software que ayuda a la creación automática de
+sistemas empresariales a través de la definición y ensamblado de
+diversos generadores de características.
+
+El proyecto fue iniciado por José Luis Bautista Martin, el 6 de enero
+del 2016.
+
+Puede modificar y distribuir este software, según le plazca, y usarlo
+para cualquier fin ya sea comercial, personal, educativo, o de cualquier
+índole, siempre y cuando incluya este mensaje, y se permita acceso el
+código fuente.
+
+Este software es código libre, y se licencia bajo LGPL.
+
+Para más información consultar http://www.gnu.org/licenses/lgpl.html
+=end
+
+=begin
+Este Mixin esta programado para obtener información de las caracteristicas
+de proveedoras de interfaces entidades de negocio :business_interfaces
+=end
+
+
+module CapicuaGen::Gaspar
+
+  public
+
+  # Obtiene el nombre de una clase de una interfaz de entidad de negocio
+  def get_entity_interface_name(entity_name)
+    # Busco  las caracteristicas que contiene entidades de SQL para una table
+    generator.get_features_in_targets_by_type(:business_interfaces).each do |f|
+      # Obtengo las entidades
+      name= f.get_entity_interface_name(entity_name)
+      return name if name
+    end
+    return nil
+  end
+
+
+  # Obtiene el nombre completo de una clase de una interfaz de entidad de negocio
+  def get_entity_interface_full_name(entity_name)
+    # Busco  las caracteristicas que contiene entidades de SQL para una table
+    generator.get_features_in_targets_by_type(:business_interfaces).each do |f|
+      # Obtengo las entidades
+      name= f.get_entity_interface_full_name(entity_name)
+      return name if name
+    end
+    return nil
+  end
+
+
+end
+

data/lib/CapicuaGenGaspar/Mixins/entity_mixin.rb

@@ -0,0 +1,58 @@
+=begin
+
+CapicuaGen
+
+CapicuaGen es un software que ayuda a la creación automática de
+sistemas empresariales a través de la definición y ensamblado de
+diversos generadores de características.
+
+El proyecto fue iniciado por José Luis Bautista Martin, el 6 de enero
+del 2016.
+
+Puede modificar y distribuir este software, según le plazca, y usarlo
+para cualquier fin ya sea comercial, personal, educativo, o de cualquier
+índole, siempre y cuando incluya este mensaje, y se permita acceso el
+código fuente.
+
+Este software es código libre, y se licencia bajo LGPL.
+
+Para más información consultar http://www.gnu.org/licenses/lgpl.html
+=end
+
+
+=begin
+Este Mixin esta programado para obtener información de las caracteristicas
+de proveedoras de entidades de negocio :business_entities
+=end
+
+
+module CapicuaGen::Gaspar
+
+  public
+
+  # Obtiene el nombre de una clase de una entidad de negocio
+  def get_entity_name(entity_name)
+    # Busco  las caracteristicas que contiene entidades de SQL para una table
+    generator.get_features_in_targets_by_type(:business_entities).each do |f|
+      # Obtengo las entidades
+      name= f.get_entity_name(entity_name)
+      return name if name
+    end
+    return nil
+  end
+
+
+  # Obtiene el nombre completo de una clase de una entidad de negocio
+  def get_entity_full_name(entity_name)
+    # Busco  las caracteristicas que contiene entidades de SQL para una table
+    generator.get_features_in_targets_by_type(:business_entities).each do |f|
+      # Obtengo las entidades
+      name= f.get_entity_full_name(entity_name)
+      return name if name
+    end
+    return nil
+  end
+
+
+end
+

data/lib/CapicuaGenGaspar/Mixins/entity_sql_table_mixin.rb

@@ -0,0 +1,58 @@
+=begin
+
+CapicuaGen
+
+CapicuaGen es un software que ayuda a la creación automática de
+sistemas empresariales a través de la definición y ensamblado de
+diversos generadores de características.
+
+El proyecto fue iniciado por José Luis Bautista Martin, el 6 de enero
+del 2016.
+
+Puede modificar y distribuir este software, según le plazca, y usarlo
+para cualquier fin ya sea comercial, personal, educativo, o de cualquier
+índole, siempre y cuando incluya este mensaje, y se permita acceso el
+código fuente.
+
+Este software es código libre, y se licencia bajo LGPL.
+
+Para más información consultar http://www.gnu.org/licenses/lgpl.html
+=end
+
+=begin
+Este Mixin esta programado para obtener información de las caracteristicas
+de proveedoras de ventanas principales :main_form
+=end
+
+
+require 'CapicuaGenMelchior/Mixins/entity_sql_table_mixin'
+
+module CapicuaGen::Gaspar
+
+  public
+
+  # Obtiene el nombre de las clase de persistenacia que le corresponde a una entidad
+  def get_entity_data_access_name(entity_name)
+    # Busco  las caracteristicas que contiene entidades de SQL para una table
+    generator.get_features_in_targets_by_type(:data_access).each do |f|
+      # Obtengo las entidades
+      name= f.get_entity_data_access_name(entity_name)
+      return name if name
+    end
+    return nil
+  end
+
+  # Obtiene el nombre completo de las clase de persistenacia que le corresponde a una entidad
+  def get_entity_data_access_full_name(entity_name)
+    # Busco  las caracteristicas que contiene entidades de SQL para una table
+    generator.get_features_in_targets_by_type(:data_access).each do |f|
+      # Obtengo las entidades
+      name= f.get_entity_data_access_full_name(entity_name)
+      return name if name
+    end
+    return nil
+  end
+
+
+end
+

data/lib/CapicuaGenGaspar/Mixins/main_form_mixin.rb

@@ -0,0 +1,55 @@
+=begin
+
+CapicuaGen
+
+CapicuaGen es un software que ayuda a la creación automática de
+sistemas empresariales a través de la definición y ensamblado de
+diversos generadores de características.
+
+El proyecto fue iniciado por José Luis Bautista Martin, el 6 de enero
+del 2016.
+
+Puede modificar y distribuir este software, según le plazca, y usarlo
+para cualquier fin ya sea comercial, personal, educativo, o de cualquier
+índole, siempre y cuando incluya este mensaje, y se permita acceso el
+código fuente.
+
+Este software es código libre, y se licencia bajo LGPL.
+
+Para más información consultar http://www.gnu.org/licenses/lgpl.html
+=end
+
+=begin
+Este Mixin esta programado para obtener información de las caracteristicas
+de proveedoras de ventanas principales :main_form
+=end
+
+
+module CapicuaGen::Gaspar
+
+  public
+
+  # Busca el nombre de la ventana principal
+  def get_main_form_class_name
+    # Busco  las caracteristicas que contiene entidades de SQL para una table
+    generator.get_features_in_targets_by_type(:main_form).each do |f|
+      # Obtengo las entidades
+      return f.get_class_name
+    end
+
+    return nil
+  end
+
+  # Busca el nombre completo de la ventana principal
+  def get_main_form_class_full_name
+    # Busco  las caracteristicas que contiene entidades de SQL para una table
+    generator.get_features_in_targets_by_type(:main_form).each do |f|
+      # Obtengo las entidades
+      return f.get_class_full_name
+    end
+
+    return nil
+  end
+
+end
+

data/lib/CapicuaGenGaspar/Mixins/splash_mixin.rb

@@ -0,0 +1,54 @@
+=begin
+
+CapicuaGen
+
+CapicuaGen es un software que ayuda a la creación automática de
+sistemas empresariales a través de la definición y ensamblado de
+diversos generadores de características.
+
+El proyecto fue iniciado por José Luis Bautista Martin, el 6 de enero
+del 2016.
+
+Puede modificar y distribuir este software, según le plazca, y usarlo
+para cualquier fin ya sea comercial, personal, educativo, o de cualquier
+índole, siempre y cuando incluya este mensaje, y se permita acceso el
+código fuente.
+
+Este software es código libre, y se licencia bajo LGPL.
+
+Para más información consultar http://www.gnu.org/licenses/lgpl.html
+=end
+
+=begin
+Este Mixin esta programado para obtener información de las caracteristicas
+de proveedoras de ventanas de bienvenida :splash_form
+=end
+
+module CapicuaGen::Gaspar
+
+  public
+
+  # Obtiene el nombre de las ventanas de bienvenidas existentes
+  def get_splash_class_name
+    # Busco  las caracteristicas que contiene entidades de SQL para una table
+    generator.get_features_in_targets_by_type(:splash_form).each do |f|
+      # Obtengo las entidades
+      return f.get_class_name
+    end
+
+    return nil
+  end
+
+  # Obtiene el nombre completo de las ventanas de bienvenidas existentes
+  def get_splash_class_full_name
+    # Busco  las caracteristicas que contiene entidades de SQL para una table
+    generator.get_features_in_targets_by_type(:splash_form).each do |f|
+      # Obtengo las entidades
+      return f.get_class_full_name
+    end
+
+    return nil
+  end
+
+end
+

data/lib/CapicuaGenGaspar/Proyect/CSProyect/Source/cs_proyect_feature.rb

@@ -0,0 +1,140 @@
+=begin
+
+CapicuaGen
+
+CapicuaGen es un software que ayuda a la creación automática de
+sistemas empresariales a través de la definición y ensamblado de
+diversos generadores de características.
+
+El proyecto fue iniciado por José Luis Bautista Martin, el 6 de enero
+del 2016.
+
+Puede modificar y distribuir este software, según le plazca, y usarlo
+para cualquier fin ya sea comercial, personal, educativo, o de cualquier
+índole, siempre y cuando incluya este mensaje, y se permita acceso el
+código fuente.
+
+Este software es código libre, y se licencia bajo LGPL.
+
+Para más información consultar http://www.gnu.org/licenses/lgpl.html
+=end
+
+
+require 'active_support/core_ext/object/blank'
+require 'uuidtools'
+
+
+require_relative '../../../Mixins/main_form_mixin'
+require_relative '../../../Mixins/splash_mixin'
+require_relative '../../../gaspar'
+
+module CapicuaGen::Gaspar
+
+  # Caracteristica generadora para proyectos Windows de CS.
+  class CSProyectFeature < CapicuaGen::TemplateFeature
+    include CapicuaGen
+    include CapicuaGen::Gaspar
+
+    public
+
+    # Inicializa la caracteristica
+    def initialize(values= {})
+      super(values)
+
+    end
+
+    # Resetea los atributos personalizados de la caracteristica (antes de establecer el generador)
+    def reset_attributes
+      self.generation_attributes[:out_dir]  = nil
+      self.generation_attributes[:namespace]= nil
+    end
+
+    # Configura los atributos personalizados de la caracteristica (antes de establecer el generador)
+    def configure_attributes()
+      self.generation_attributes[:out_dir]= "#{self.generation_attributes[:out_dir]}/#{self.generation_attributes[:namespace]}" unless self.generation_attributes.has_in_self?(:out)
+    end
+
+    # Obtiene los archivos que se incluiran en este proyeto
+    def get_proyect_files()
+      resultado= ''
+
+      template_target= get_template_target_by_name('proyect')
+
+      directory_base= File.dirname(File.join(self.generation_attributes[:out_dir], template_target.out_file))
+
+      # Recorro todas las caracteristicas
+      generator.features().each do |f|
+        #Obtengo todos los archivos asociados
+        f.get_relative_out_files(:directory_base => directory_base, :types => :proyect_file).each do |unix_path|
+
+          p        = unix_path.gsub /\//, '\\'
+          extension= File.extname(p).downcase
+          file_type= :proyect_file
+          Dir.chdir directory_base do
+            file_type= get_type(p)
+          end
+
+
+          case extension
+            when '.cs'
+
+              case file_type
+                when :proyect_file
+                  if p=~ /(?:.+\\)?(.+)\.Designer.cs/i
+                    resultado << "      <Compile Include= \"#{p}\" >" << $/
+                    resultado << "        <DependentUpon>#{$1}.cs</DependentUpon>" << $/
+                    resultado << "      </Compile>" << $/
+                  elsif p=~ /(?:.+\\)?(.+)\.svc\.cs/i
+                    resultado << "      <Compile Include= \"#{p}\" >" << $/
+                    resultado << "        <DependentUpon>#{$1}.svc</DependentUpon>" << $/
+                    resultado << "      </Compile>" << $/
+                  else
+                    resultado << "      <Compile Include= \"#{p}\" />" << $/
+                  end
+                when :form_proyect_file
+                  resultado << "      <Compile Include= \"#{p}\" >" << $/
+                  resultado << "        <SubType>Form</SubType>" << $/
+                  resultado << "      </Compile>" << $/
+              end
+
+            when '.resx'
+              if p=~ /(?:.+\\)?(.+)\.resx/i
+                resultado << "      <EmbeddedResource Include= \"#{p}\" >" << $/
+                resultado << "        <DependentUpon>#{$1}.cs</DependentUpon>" << $/
+                resultado << "      </EmbeddedResource>" << $/
+              end
+            when '.config', '.svc'
+              resultado << "      <Content Include= \"#{p}\" />" << $/
+            else
+              resultado << "      <Compile Include= \"#{p}\" />" << $/
+          end
+        end
+      end
+
+      return resultado
+    end
+
+    # Devuelve el tipo de archivo de un elemento.
+    def get_type(file)
+
+      return :proyect_file unless file=~/.cs$/
+
+      # Compruebo si es un archivo de Windows
+      designed= file.sub(/\.cs$/, ".designer.cs")
+
+      return :proyect_file if file==designed
+      return :proyect_file if not File.exist?(designed)
+
+      text= File.open(designed).read
+
+      if text=~/:\s*(Form|System.Windows.Form)/
+        return :form_proyect_file
+      else
+        return :proyect_file
+      end
+
+    end
+
+
+  end
+end