# Automatically generated module code. DO NOT EDIT. # Generated on Wed Jul 6 00:56:24 2005 by idl2perl 2.7 with command: # bin/idl2perl examples/copex.idl use COPE::CORBA::TypeCode; # module Copex (IDL:Copex:1.0) # exception InvalidInput (IDL:Copex/InvalidInput:1.0) package Copex::InvalidInput; use COPE::CORBA::Exception; @Copex::InvalidInput::ISA=qw(CORBA::UserException); CORBA::TypeCode::_new_type_impl('Copex::InvalidInput', CORBA::TypeCode::_create_exception_tc('IDL:Copex/InvalidInput:1.0', 'InvalidInput', ['message' => $CORBA::_tc_string0])); # struct temp_properties (IDL:Copex/temp_properties:1.0) package Copex::temp_properties; @Copex::temp_properties::ISA=qw(CORBA::_Struct); CORBA::TypeCode::_new_type_impl('Copex::temp_properties', CORBA::TypeCode::_create_struct_tc('IDL:Copex/temp_properties:1.0', 'temp_properties', ['size' => $CORBA::_tc_long, 'name' => CORBA::TypeCode::_create_string_tc(30)])); # interface Copex::Temp (IDL:Copex/Temp:1.0) # Alias TempList (IDL:Copex/TempList:1.0) package Copex::TempList; CORBA::TypeCode::_new_type_impl('Copex::TempList', CORBA::TypeCode::_create_alias_tc('IDL:Copex/TempList:1.0', 'TempList', CORBA::TypeCode::_create_sequence_tc(0, $Copex::Temp::_tc))); # enum colour (IDL:Copex/colour:1.0) CORBA::TypeCode::_new_type_impl('Copex::colour', CORBA::TypeCode::_create_enum_tc('IDL:Copex/colour:1.0', 'colour', ['Red', 'Orange', 'Yellow', 'Green', 'Blue', 'Indigo', 'Violet'])); package Copex; sub Red () {0} sub Orange () {1} sub Yellow () {2} sub Green () {3} sub Blue () {4} sub Indigo () {5} sub Violet () {6} # struct pers_properties (IDL:Copex/pers_properties:1.0) package Copex::pers_properties; @Copex::pers_properties::ISA=qw(CORBA::_Struct); CORBA::TypeCode::_new_type_impl('Copex::pers_properties', CORBA::TypeCode::_create_struct_tc('IDL:Copex/pers_properties:1.0', 'pers_properties', ['shape' => CORBA::TypeCode::_create_string_tc(30), 'hue' => $Copex::colour::_tc])); # interface Copex::Persistent (IDL:Copex/Persistent:1.0) # Alias PersList (IDL:Copex/PersList:1.0) package Copex::PersList; CORBA::TypeCode::_new_type_impl('Copex::PersList', CORBA::TypeCode::_create_alias_tc('IDL:Copex/PersList:1.0', 'PersList', CORBA::TypeCode::_create_sequence_tc(0, $Copex::Persistent::_tc))); # interface Copex::OneServant (IDL:Copex/OneServant:1.0) # Alias OneList (IDL:Copex/OneList:1.0) package Copex::OneList; CORBA::TypeCode::_new_type_impl('Copex::OneList', CORBA::TypeCode::_create_alias_tc('IDL:Copex/OneList:1.0', 'OneList', CORBA::TypeCode::_create_sequence_tc(0, $Copex::OneServant::_tc))); # interface Copex::OnDemand (IDL:Copex/OnDemand:1.0) # Alias DemandList (IDL:Copex/DemandList:1.0) package Copex::DemandList; CORBA::TypeCode::_new_type_impl('Copex::DemandList', CORBA::TypeCode::_create_alias_tc('IDL:Copex/DemandList:1.0', 'DemandList', CORBA::TypeCode::_create_sequence_tc(0, $Copex::OnDemand::_tc))); # interface Copex::Supervisor (IDL:Copex/Supervisor:1.0) BEGIN {CORBA::TypeCode::_pre_init( 'Copex::Temp', 'Copex::Persistent', 'Copex::OneServant', 'Copex::OnDemand' )} use Copex::Temp_types; use Copex::Persistent_types; use Copex::OneServant_types; use Copex::OnDemand_types; 1;