ontomde-uml2-ejb2 1.0.4

data/History.txt

@@ -0,0 +1,5 @@
+== 1.0.0 / 2007-10-29
+
+* 1 major enhancement
+  * Birthday!
+

data/Manifest.txt

@@ -0,0 +1,7 @@
+History.txt
+Manifest.txt
+README.txt
+Rakefile
+lib/ontomde-uml2-ejb2.rb
+lib/ontomde-uml2-ejb2/version.rb
+test/test_ontomde-uml2-ejb2.rb

data/README.txt

@@ -0,0 +1,41 @@
+ontomde-uml2-ejb2
+    by stephane (Pierre) Carrie
+    http://ontomde.rubyforge.org    
+
+== DESCRIPTION:
+
+ontomde-uml2-ejb2 is a library for generatin EJB2 library.
+
+== FEATURES/PROBLEMS:
+
+* beta release  
+
+== SYNOPSIS:
+
+== REQUIREMENTS:
+
+== INSTALL:
+
+* (unix) sudo gem install ontomde-uml2-ejb2
+* (win) gem install ontomde-uml2-ejb2
+
+Additional information is available on ontoMDE web site :
+http://ontomde.rubyforge.org/website/download.html
+== LICENSE:
+
+Copyright (C) 2008 Orange-labs 
+38 rue General Leclerc
+92130 ISSY LES MOULINEAUX, France
+
+This program is free software: you can redistribute it and/or modify
+it under the terms of the GNU Affero General Public License as
+published by the Free Software Foundation, either version 3 of the
+License, or (at your option) any later version.
+
+This program is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU Affero General Public License for more details.
+
+You should have received a copy of the GNU Affero General Public License
+along with this program.  If not, see http://www.gnu.org/licenses/.

data/Rakefile

@@ -0,0 +1,22 @@
+# -*- ruby -*-
+
+require 'rubygems'
+require 'hoe'
+require './lib/ontomde-uml2-ejb2/version.rb'
+
+Hoe.new('ontomde-uml2-ejb2', Ontomde::Uml2::Ejb2::VERSION) do |p|
+  p.rubyforge_name = 'ontomde'
+  p.author = 'Stephane (Pierre) Carrie'
+  p.email = 'stephanepierre.carrie@orange-ftgroup.com'
+  p.summary = 'OntoMDE EJB2 cartridge'
+  p.description = p.paragraphs_of('README.txt', 2..5).join("\n\n")
+  p.changes = p.paragraphs_of('History.txt', 0..1).join("\n\n")
+  p.url="http://ontomde.rubyforge.org"
+
+  p.extra_deps=[ 
+	  ['ontomde-uml2-java',"= #{Ontomde::Uml2::Ejb2::VERSION}"]
+  ] 	
+  p.spec_extras={ :required_ruby_version => '>=1.8.6' ,:required_rubygems_version => '>=1.0.0'}
+end
+
+# vim: syntax=Ruby

data/lib/ontomde-uml2-ejb2/version.rb

@@ -0,0 +1,8 @@
+module Ontomde
+	module Uml2
+		module Ejb2
+			VERSION = '1.0.4'
+		end
+	end
+end
+

data/lib/ontomde-uml2-ejb2.rb

@@ -0,0 +1,193 @@
+require 'ontomde-uml2-java'
+require 'ontomde-uml2-ejb2/version.rb'
+
+module Mrdf_Model
+	def ejb2_services
+		ca=Array.new
+		uml_Class_all.each { |c| 
+			next unless c.kind_of?(Muml_Class)
+			next unless c.umlx_hasStereotype?('Service')
+			ca << c
+		}
+		return ca
+	end
+
+	def ejb2_transform!
+		return unless context[:ejb2]
+		ejb2_services.each { |c|
+			c.ejb2_transform!
+		}
+		ejb2_generateConfig #TODO
+		ejb2_generateJonasConfig
+	end
+
+
+	def ejb2_target_ejbconf
+		return context[:target_ejbconf,"#{context[:build]}META-INF"]
+	end
+	def ejb2_generateConfig
+		mtk_writeSession(context[:ejbJarFile,"#{ejb2_target_ejbconf}/ejb-jar.xml"]) {
+			ejb2_writeConfig
+			}
+	end
+
+	def ejb2_writeConfig
+		write <<END
+<?xml version="1.0"?>
+<!DOCTYPE ejb-jar PUBLIC '-//Sun Microsystems, Inc.//DTD Enterprise JavaBeans 2.0//EN' 'http://java.sun.com/dtd/ejb-jar_2_0.dtd'>
+
+<ejb-jar>
+  <enterprise-beans>
+END
+		ejb2_services.each { |c|
+			write <<END
+     <!-- #{c.ejb_Name} -->
+     <session>
+        <ejb-name>#{c.ejb_Name}</ejb-name> 
+        <home>#{c.ejb_home_one.java_qualifiedName}</home>
+        <remote>#{c.ejb_remote_one.java_qualifiedName}</remote>
+        <ejb-class>#{c.ejb_bean_one.java_qualifiedName}</ejb-class>
+        <session-type>Stateless</session-type>
+        <transaction-type>Container</transaction-type>
+     </session>
+END
+		}
+		write <<END
+  </enterprise-beans>
+  <assembly-descriptor>
+END
+		ejb2_services.each { |c|
+			write <<END
+    <!-- #{c.ejb_Name} -->
+    <container-transaction>
+        <method>
+           <ejb-name>#{c.ejb_Name}</ejb-name> 
+           <method-name>*</method-name>
+        </method>
+        <trans-attribute>Required</trans-attribute>
+    </container-transaction>
+END
+		}
+	write <<END
+  </assembly-descriptor>
+</ejb-jar>
+END
+
+	end
+	def ejb2_generateJonasConfig
+		mtk_writeSession(context[:ejbJonasJarFile,"#{ejb2_target_ejbconf}/jonas-ejb-jar.xml"]) {
+			ejb2_writeJonasConfig
+			}
+	end
+
+	def ejb2_writeJonasConfig
+		write <<END
+<?xml version="1.0"?>
+<jonas-ejb-jar 
+	xmlns="http://www.objectweb.org/jonas/ns"
+	xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
+        xsi:schemaLocation="http://www.objectweb.org/jonas/ns http://www.objectweb.org/jonas/ns/jonas-ejb-jar_4_0.xsd" >
+END
+
+		ejb2_services.each { |c|
+			write <<END
+    <!-- #{c.ejb_Name} -->
+    <jonas-session>
+        <ejb-name>#{c.ejb_Name}</ejb-name> 
+        <jndi-name>odn.#{c.ejb_remote_one.java_Name}</jndi-name>
+        <session-timeout>60</session-timeout>
+    </jonas-session>
+END
+		}
+
+	write <<END
+</jonas-ejb-jar>
+END
+	end
+end
+
+module Muml_Class
+	#ejb_Home class related to this ejb service
+	rdf_safe_attr_reader_many :ejb_home
+	#
+	#ejb_remote interface related to this ejb service
+	rdf_safe_attr_reader_many :ejb_remote
+	#
+	#ejb_bean related to this ejb service
+	rdf_safe_attr_reader_many :ejb_bean
+
+	#process this java bean to :
+	#* generate the proper ejb interfaces, 
+	#* add required exceptions, 
+	#* add required interface implementations
+	#* ...
+	def ejb2_transform!
+		log.debug { "processing ejb service: #{self}" }
+		ejb2_createRemoteInterface!
+		ejb2_createHomeInterface!
+		ejb2_createBean!
+	end
+	
+	#Return an alias name for this class"
+	def ejb_Name
+		return "#{java_Name}EJB"
+	end
+	
+	#creates a bean class for this service class
+	#(this implementation just appends bean to the class name)
+	def ejb2_createBean!
+		self.ejb_bean=self
+		self.uml_name="#{self.uml_name}Bean"
+		ejb2_addOperationExceptions!(umlx_getOrCreateInterface("java.rmi.RemoteException"))
+	end
+	
+	#creates a home interface for this service class
+	def ejb2_createHomeInterface!
+		log.debug { "creating ejb home interface for: #{self}" }
+		h=self.umlx_owner_one.umlx_createAndAddInterface("#{self.rdf_uri}_ejbHome","#{uml_name}Home")
+		h.umlx_createAndAddGeneralization(umlx_getOrCreateInterface("javax.ejb.EJBHome"))
+		self.ejb_home=h
+
+		cr=h.umlx_createAndAddOperation("#{h.rdf_uri}_create","create")
+		cr.uml_raisedException_add(umlx_getOrCreateInterface("javax.ejb.CreateException"))
+		cr.uml_raisedException_add(umlx_getOrCreateInterface("java.rmi.RemoteException"))
+		crret=cr.umlx_createAndAddReturnParameter("#{cr.rdf_uri}_ret","return")
+		crret.uml_type=self.ejb_remote_one
+	end
+	
+	#creates a remote interface for this service class
+	def ejb2_createRemoteInterface!
+		log.debug { "creating ejb remote interface for: #{self}" }
+		r=self.umlx_owner_one.umlx_createAndAddInterface("#{self.rdf_uri}_ejbRemote","#{uml_name}")
+		r.umlx_createAndAddGeneralization(umlx_getOrCreateInterface("javax.ejb.EJBObject"))
+		self.ejb_remote=r
+		ejb2_copyMethodsTo!(ejb_remote_one,"ejbRemote",umlx_getOrCreateInterface("java.rmi.RemoteException"))
+	end
+
+	def ejb2_copyMethodsTo!(ejb,uri_suffix,exception)
+		uml_ownedOperation.each { |sop|
+			op=ejb.umlx_createAndAddOperation("#{sop.rdf_uri}_#{uri_suffix}","#{sop.uml_name}")
+			op.uml_raisedException_add(exception)	
+			sop.uml_ownedParameter.each { |sp|
+				p=op.umlx_createAndAddParameter("#{sp.rdf_uri}_#{uri_suffix}",sp.uml_name)
+				sp.umlx_copyToAttributeProperty(p)
+				p.uml_type=sp.uml_type
+				p.uml_direction=sp.uml_direction
+				p.uml_isUnique=sp.uml_isUnique
+				p.uml_isOrdered=sp.uml_isOrdered
+				p.java_use_Arrays=sp.java_use_Arrays
+				p.uml_upperValue=sp.uml_upperValue
+				p.uml_lowerValue=sp.uml_lowerValue
+				}
+		}
+	end
+	#adds exception to every operation
+	def ejb2_addOperationExceptions!(exception)
+		uml_ownedOperation.each { |op|
+			op.uml_raisedException_add(exception)	
+		}
+	end
+end
+
+
+

metadata

@@ -0,0 +1,79 @@
+--- !ruby/object:Gem::Specification 
+name: ontomde-uml2-ejb2
+version: !ruby/object:Gem::Version 
+  version: 1.0.4
+platform: ruby
+authors: 
+- Stephane (Pierre) Carrie
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2008-03-03 00:00:00 +01:00
+default_executable: 
+dependencies: 
+- !ruby/object:Gem::Dependency 
+  name: ontomde-uml2-java
+  version_requirement: 
+  version_requirements: !ruby/object:Gem::Requirement 
+    requirements: 
+    - - "="
+      - !ruby/object:Gem::Version 
+        version: 1.0.4
+    version: 
+- !ruby/object:Gem::Dependency 
+  name: hoe
+  version_requirement: 
+  version_requirements: !ruby/object:Gem::Requirement 
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        version: 1.5.0
+    version: 
+description: "ontomde-uml2-ejb2 is a library for generatin EJB2 library.  == FEATURES/PROBLEMS:  * beta release    == SYNOPSIS:"
+email: stephanepierre.carrie@orange-ftgroup.com
+executables: []
+
+extensions: []
+
+extra_rdoc_files: 
+- History.txt
+- Manifest.txt
+- README.txt
+files: 
+- History.txt
+- Manifest.txt
+- README.txt
+- Rakefile
+- lib/ontomde-uml2-ejb2.rb
+- lib/ontomde-uml2-ejb2/version.rb
+- test/test_ontomde-uml2-ejb2.rb
+has_rdoc: true
+homepage: http://ontomde.rubyforge.org
+post_install_message: 
+rdoc_options: 
+- --main
+- README.txt
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: 1.8.6
+  version: 
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: 1.0.0
+  version: 
+requirements: []
+
+rubyforge_project: ontomde
+rubygems_version: 1.0.1
+signing_key: 
+specification_version: 2
+summary: OntoMDE EJB2 cartridge
+test_files: 
+- test/test_ontomde-uml2-ejb2.rb