Developing WebLogic Enterprise (WLE) Applications

#pragma prefix "beasys.com"

interface Simple
{
     //Convert a string to lower case (return a new string)
     string to_lower(in string val);

     //Convert a string to upper case (in place)
     void to_upper(inout string val);
};

interface SimpleFactory
{
     Simple find_simple();
};

Step 2: Generating Client Stubs and Skeletons

// Implementation of the Simple_i::to_lower method which converts
// a string to lower case.

char* Simple_i::to_lower(const char* value)
{
     CORBA::String_var var_lower = CORBA::string_dup(value);
     for (char* ptr = v_lower; ptr && *ptr; ptr++) {
         *ptr = tolower(*ptr);
     }
     return var_lower._retn();
}

// Implementation of the Simple_i::to_upper method which converts
// a string to upper case.

void Simple_i::to_upper(char*& valuel)
{
     CORBA::String_var var_upper = value;
     var_upper = CORBA::string_dup(var_upper.in());
     for (char* ptr = var_upper; ptr && *ptr; ptr++) {
         *ptr = toupper(*ptr);
     }
     value = var_upper._retn();
}
// Implementation of the SimpleFactory_i::find_simple method which
// creates an object reference to a Simple object.

Simple_ptr SimpleFactory_i::find_simple()
{
     CORBA::Object_var var_simple_oref =
         TP::create_object_reference(
             _tc_Simple->id(),    
             "simple",             
             CORBA::NVList::_nil()
         );
     }

import com.beasys.Tobj.TP;

/**The SimpleImpl class implements the to_upper and to_lower
/**methods.


public class SimpleImpl extends _SimpleImplBase
{
/*Converts a string to upper case.*/

	public void to_upper(org.omg.CORBA.StringHolder data)
	{
		if (data.value == null)
		     return;
		data.value = data.value.toUpperCase();
		return;
	}
/*Converts a string to lower case.*/

	public String to_lower(String data)
	{
		if (data == null)
		     return null;
		return data.toLowerCase();
	}
}

import com.beasys.Tobj.TP;

/**The SimpleFactoryImpl class provides code to create the Simple /**object.


public class SimpleFactoryImpl extends _SimpleFactoryImplBase
{
/*Create an object reference to a Simple object*/

	public Simple find_simple()
	{
		org.omg.CORBA.Object simple_oref =
	           TP.create_object_reference(
			       SimpleHelper.id(), //Repository ID
			       "simple",         //object id
				null              //routing criteria
                            );
		//Send back the narrowed reference
			return SimpleHelper.narrow(simple_oref);

		};
	};
};

Creating the Server Object

static CORBA::Object_var static_var_factory_reference;

// Method to start up the server

CORBA::Boolean Server::initialize(int argc, char* argv[])
{
	// Create the Factory Object Reference

	static_var_factory_reference =
	    TP::create_object_reference(
		_tc_SimpleFactory->id(), 
		"simple_factory",        
		CORBA::NVList::_nil()    
	    );
	// Register the factory reference with the FactoryFinder

	TP::register_factory(
	     static_var_factory_reference.in(),      
	    _tc_SimpleFactory->id() 
	);
	return CORBA_TRUE;
}
// Method to shutdown the server

void Server::release()
{
// Unregister the factory.

  try {
	TP::unregister_factory(
	    static_var_factory_reference.in(),      
	    _tc_SimpleFactory->id() 
	);
  }
  catch (...) {
	TP::userlog("Couldn't unregister the SimpleFactory");
  }
}
// Method to create servants

Tobj_Servant Server::create_servant(const char*
 interface_repository_id)
{
	if (!strcmp(interface_repository_id, 
	_tc_SimpleFactory->id())) {
		return new SimpleFactory_i();
	}
	if (!strcmp(interface_repository_id, 
	_tc_Simple->id())) {
		return new Simple_i();
	}
	return 0; 
}

import com.beasys.Tobj.TP;

public class ServerImpl
	extends com.beasys.Tobj.Server
{
	static org.omg.CORBA.Object factory_reference;

/**Method to start up the server*/

	public boolean initialize(String[] args)
	{
	  try {
	  // Create the factory object reference.
		   factory_reference = TP.create_object_reference(
				SimpleFactoryHelper.id(),	
				"simple_factory",           
				null 
				);

// Register the factory reference with the FactoryFinder

			TP.register_factory(
			factory_reference,  
			SimpleFactoryHelper.id() 
			);

return true;

	} catch (Exception e){
			TP.userlog("Couldn't initialize server: " + 
			e.getMessage());
			e.printStackTrace();
			return false;
		}
	}
/** Method to shutdown the server*/

	public void release()
	{
		try {
			TP.unregister_factory(
			       factory_reference,                   
			SimpleFactoryHelper.id()    
			        );
		} catch (Exception e){
			TP.userlog("Couldn't unregister the 
			SimpleFactory: " + e.getMessage());
			e.printStackTrace();
		}
	}
}

Defining an Object's Activation Policies

int main(int argc, char* argv[])
{
    try {
	// Initialize the ORB 
	CORBA::ORB_var var_orb = CORBA::ORB_init(argc, argv, "");

	// Create the Bootstrap object
	Tobj_Bootstrap bootstrap(var_orb.in(), "");

	// Use the Bootstrap object to find the FactoryFinder
	CORBA::Object_var var_factory_finder_oref =
	  bootstrap.resolve_initial_references("FactoryFinder");

	// Narrow the FactoryFinder
	Tobj::FactoryFinder_var var_factory_finder_reference =
	 Tobj::FactoryFinder::_narrow
	 (var_factory_finder_oref.in());

	// Use the factory finder to find the Simple factory
	CORBA::Object_var var_simple_factory_oref =
	var_factory_finder_reference->find_one_factory_by_id(
	_tc_SimpleFactory->id()
	);

	// Narrow the Simple factory
	SimpleFactory_var var_simple_factory_reference =
	  SimpleFactory::_narrow(
	                         var_simple_factory_reference.in());

	// Find the Simple object
	Simple_var var_simple =
	  var_simple_factory_reference->find_simple();

	// Get a string from the user 
	cout << "String?";
	char mixed[256];
	cin >> mixed;

	// Convert the string to upper case :
	CORBA::String_var var_upper = CORBA::string_dup(mixed);
	var_simple->to_upper(var_upper.inout());
	cout << var_upper.in() << endl;

	// Convert the string to lower case 
	CORBA::String_var var_lower = var_simple->to_lower(mixed);
	cout << var_lower.in() << endl;
	
	return 0;
	}
}

Listing 2-8 Java Client Application from the Simpapp Sample Application

---

public class SimpleClient
{
	public static void main(String args[])

	// Initialize the ORB.
	ORB orb = ORB.init(args, null);

	// Create the Bootstrap object
	Tobj_Bootstrap bootstrap = new Tobj_Bootstrap(orb, "");

	// Use the Bootstrap object to locate the FactoryFinder
	org.omg.CORBA.Object factory_finder_reference =
	bootstrap.resolve_initial_references("FactoryFinder");

	// Narrow the FactoryFinder
	FactoryFinder factory_finder_reference =
	FactoryFinderHelper.narrow(factory_finder_reference);

	// Use the FactoryFinder to find the Simple factory.
	org.omg.CORBA.Object simple_factory_reference =
	factory_finder_reference.find_one_factory_by_id
	(SimpleFactoryHelper.id());

	// Narrow the Simple factory
	SimpleFactory simple_factory_reference =
	SimpleFactoryHelper.narrow(simple_factory_reference);

	// Find the Simple object.
	Simple simple = simple_factory_reference.find_simple();

	// Get a string from the user.
	System.out.println("String?");
	String mixed = in.readLine();

	// Convert the string to upper case.
	org.omg.CORBA.StringHolder buf = new 
	org.omg.CORBA.StringHolder(mixed);
	simple.to_upper(buf);
	System.out.println(buf.value);

	// Convert the string to lower case.
	String lower = simple.to_lower(mixed);
	System.out.println(lower);
        }
}

Step 5: Creating a Configuration File

*RESOURCES                               
	IPCKEY    55432                  
	DOMAINID  simpapp                   
	MASTER    SITE1                     
	MODEL     SHM                       
	LDBAL     N                         

*MACHINES                               
	"PCWIZ"                            
	LMID         = SITE1            
	APPDIR       = "C:\WLEDIR\MY_SIM~1"       
	TUXCONFIG    = "C:\WLEDIR\MY_SIM~1\results\tuxconfig"    
	TUXDIR       = "C:\WLEDIR"       
	MAXWSCLIENTS = 10               

*GROUPS                                 
	SYS_GRP                             
	LMID    = SITE1                 
	GRPNO   = 1                     
	APP_GRP                             
	LMID    = SITE1                 
	GRPNO   = 2                     

*SERVERS                                
	DEFAULT:                            
	   RESTART = Y                     
	   MAXGEN  = 5                     
	TMSYSEVT                            
	   SRVGRP  = SYS_GRP               
	   SRVID   = 1                     
	TMFFNAME                           
	   SRVGRP  = SYS_GRP               
	   SRVID   = 2                     
	   CLOPT   = "-A -- -N -M"         
	TMFFNAME                            
	   SRVGRP  = SYS_GRP               
	   SRVID   = 3                     
	   CLOPT   = "-A -- -N"            
	TMFFNAME                            
	   SRVGRP  = SYS_GRP               
	   SRVID   = 4                     
	   CLOPT   = "-A -- -F"            
	simple_server                       
	   SRVGRP  = APP_GRP               
          SRVID   = 1                     
	   RESTART = N                     
	ISL                                 
	   SRVGRP  = SYS_GRP               
	   SRVID   = 5                     
	  CLOPT   = "-A -- -n //PCWIZ:2468" 

*SERVICES