# Automatically generated module code.  DO NOT EDIT.
# Generated on Wed May 10 20:30:13 2000 by idl2perl 2.7 with command:
# bin/idl2perl -outdir t/COPE Data.idl

use COPE::CORBA::TypeCode;

# module Data (IDL:cope/Data:1.0)

# enum Discriminator (IDL:cope/Data/Discriminator:1.0)

CORBA::TypeCode::_new_type_impl('Data::Discriminator', CORBA::TypeCode::_create_enum_tc('IDL:cope/Data/Discriminator:1.0', 'Discriminator', ['D_LONG', 'D_STRING', 'D_STRUCT', 'D_OBJ', 'D_T2', 'D_NAME', 'D_ID']));

package Data;
sub D_LONG () {0}
sub D_STRING () {1}
sub D_STRUCT () {2}
sub D_OBJ () {3}
sub D_T2 () {4}
sub D_NAME () {5}
sub D_ID () {6}

# union TestUnion (IDL:cope/Data/TestUnion:1.0)

package Data::TestUnion;
@Data::TestUnion::ISA=qw(CORBA::_Union);
CORBA::TypeCode::_new_type_impl('Data::TestUnion', CORBA::TypeCode::_create_union_tc('IDL:cope/Data/TestUnion:1.0', 'TestUnion',$Data::Discriminator::_tc,4,['long_case',$CORBA::_tc_long, 0, 'string_case',$CORBA::_tc_string0, 1, 'struct_case',$Outside::Structure::_tc, 2, 'obj_case',$Outside::Swapper::_tc, 4, 'obj_case',$Outside::Swapper::_tc, -1, 'obj_case',$Outside::Swapper::_tc, 3]));
use Exception::Class::TCF;
use COPE::CORBA::Exception;

sub discriminator ($) {
	my ($self) = @_;
	return $self->[0];
}

sub long_case ($;$$) {
    my ($self,$discriminator,$value) = @_;
    if (defined($value)) {
        if (($discriminator != 0)) {
            throw new CORBA::BAD_PARAM;
        }
        $self->[0] = $discriminator;
        $self->[1] = $value;
        return;
    }
    my $x = $self->[0];
    if (($x == 0)) {
        return $self->[1];
    }
    throw new CORBA::BAD_OPERATION;
}

sub string_case ($;$$) {
    my ($self,$discriminator,$value) = @_;
    if (defined($value)) {
        if (($discriminator != 1)) {
            throw new CORBA::BAD_PARAM;
        }
        $self->[0] = $discriminator;
        $self->[1] = $value;
        return;
    }
    my $x = $self->[0];
    if (($x == 1)) {
        return $self->[1];
    }
    throw new CORBA::BAD_OPERATION;
}

sub struct_case ($;$$) {
    my ($self,$discriminator,$value) = @_;
    if (defined($value)) {
        if (($discriminator != 2)) {
            throw new CORBA::BAD_PARAM;
        }
        $self->[0] = $discriminator;
        $self->[1] = $value;
        return;
    }
    my $x = $self->[0];
    if (($x == 2)) {
        return $self->[1];
    }
    throw new CORBA::BAD_OPERATION;
}

# Default member

sub obj_case ($;$$) {
    my ($self,$discriminator,$value) = @_;
    if (defined($value)) {
        if (($discriminator == 0) || ($discriminator == 1) || ($discriminator == 2)) {
            throw new CORBA::BAD_PARAM;
        }
        $self->[0] = $discriminator;
        $self->[1] = $value;
        return;
    }
    my $x = $self->[0];
    if (($x != 0) && ($x != 1) && ($x != 2)) {
        return $self->[1];
    }
    throw new CORBA::BAD_OPERATION;
}

# struct RecStruct (IDL:cope/Data/RecStruct:1.0)

package Data::RecStruct;

@Data::RecStruct::ISA=qw(CORBA::_Struct);
CORBA::TypeCode::_new_type_impl('Data::RecStruct', (CORBA::TypeCode::_pre_init('Data::RecStruct'), (CORBA::TypeCode::_create_struct_tc('IDL:cope/Data/RecStruct:1.0', 'RecStruct', ['name' => $CORBA::_tc_string0, 'children' => CORBA::TypeCode::_create_sequence_tc(5, CORBA::TypeCode::__create_indirect_tc($Data::RecStruct::_tc))]))));

# struct Nested (IDL:cope/Data/Nested:1.0)

package Data::Nested;

@Data::Nested::ISA=qw(CORBA::_Struct);
CORBA::TypeCode::_new_type_impl('Data::Nested', (CORBA::TypeCode::_pre_init('Data::Nested'), (CORBA::TypeCode::_create_struct_tc('IDL:cope/Data/Nested:1.0', 'Nested', ['val0' => $CORBA::_tc_short, 'n1' => (($COPE::tc_temp[1] = CORBA::TypeCode->_new_basic(tk_null))->_fill_tc(CORBA::TypeCode::_create_struct_tc('IDL:cope/Data/Nested/Nested1:1.0', 'Nested1', ['val1' => $CORBA::_tc_string0, 'n2' => (($COPE::tc_temp[2] = CORBA::TypeCode->_new_basic(tk_null))->_fill_tc(CORBA::TypeCode::_create_struct_tc('IDL:cope/Data/Nested/Nested1/Nested2:1.0', 'Nested2', ['val2' => $CORBA::_tc_long, 'n3' => (($COPE::tc_temp[3] = CORBA::TypeCode->_new_basic(tk_null))->_fill_tc(CORBA::TypeCode::_create_struct_tc('IDL:cope/Data/Nested/Nested1/Nested2/Nested3:1.0', 'Nested3', ['val3' => $CORBA::_tc_string0, 'list' => CORBA::TypeCode::_create_sequence_tc(0, CORBA::TypeCode::__create_indirect_tc($COPE::tc_temp[1]))])))])))])))]))));

# union RecUnion (IDL:cope/Data/RecUnion:1.0)

package Data::RecUnion;
@Data::RecUnion::ISA=qw(CORBA::_Union);
CORBA::TypeCode::_new_type_impl('Data::RecUnion', (CORBA::TypeCode::_pre_init('Data::RecUnion'), (CORBA::TypeCode::_create_union_tc('IDL:cope/Data/RecUnion:1.0', 'RecUnion',$CORBA::_tc_char,-1,['short_case',$CORBA::_tc_short, 'a', 'struct_case',(($COPE::tc_temp[1] = CORBA::TypeCode->_new_basic(tk_null))->_fill_tc(CORBA::TypeCode::_create_struct_tc('IDL:cope/Data/RecUnion/StC:1.0', 'StC', ['flag' => $CORBA::_tc_boolean, 'list' => CORBA::TypeCode::_create_sequence_tc(0, CORBA::TypeCode::__create_indirect_tc($Data::RecUnion::_tc))]))), 'b', 'array_case',CORBA::TypeCode::_create_array_tc(2, $COPE::tc_temp[1]), 'c']))));
use Exception::Class::TCF;
use COPE::CORBA::Exception;

sub discriminator ($) {
	my ($self) = @_;
	return $self->[0];
}

sub short_case ($;$$) {
    my ($self,$discriminator,$value) = @_;
    if (defined($value)) {
        if (($discriminator ne 'a')) {
            throw new CORBA::BAD_PARAM;
        }
        $self->[0] = $discriminator;
        $self->[1] = $value;
        return;
    }
    my $x = $self->[0];
    if (($x eq 'a')) {
        return $self->[1];
    }
    throw new CORBA::BAD_OPERATION;
}

sub struct_case ($;$$) {
    my ($self,$discriminator,$value) = @_;
    if (defined($value)) {
        if (($discriminator ne 'b')) {
            throw new CORBA::BAD_PARAM;
        }
        $self->[0] = $discriminator;
        $self->[1] = $value;
        return;
    }
    my $x = $self->[0];
    if (($x eq 'b')) {
        return $self->[1];
    }
    throw new CORBA::BAD_OPERATION;
}

sub array_case ($;$$) {
    my ($self,$discriminator,$value) = @_;
    if (defined($value)) {
        if (($discriminator ne 'c')) {
            throw new CORBA::BAD_PARAM;
        }
        $self->[0] = $discriminator;
        $self->[1] = $value;
        return;
    }
    my $x = $self->[0];
    if (($x eq 'c')) {
        return $self->[1];
    }
    throw new CORBA::BAD_OPERATION;
}

# struct MutualRec (IDL:cope/Data/MutualRec:1.0)

package Data::MutualRec;

@Data::MutualRec::ISA=qw(CORBA::_Struct);
CORBA::TypeCode::_new_type_impl('Data::MutualRec', (CORBA::TypeCode::_pre_init('Data::MutualRec'), (CORBA::TypeCode::_create_struct_tc('IDL:cope/Data/MutualRec:1.0', 'MutualRec', ['value1' => $CORBA::_tc_long, 'primer1' => (($COPE::tc_temp[1] = CORBA::TypeCode->_new_basic(tk_null))->_fill_tc(CORBA::TypeCode::_create_struct_tc('IDL:cope/Data/MutualRec/MR2:1.0', 'MR2', ['value2' => $CORBA::_tc_string0, 'seq2' => CORBA::TypeCode::_create_sequence_tc(0, CORBA::TypeCode::__create_indirect_tc($Data::MutualRec::_tc))]))), 'seq1' => CORBA::TypeCode::_create_sequence_tc(0, $COPE::tc_temp[1])]))));

# interface Data::Testem (IDL:cope/Data/Testem:1.0)

# interface Data::Anything (IDL:cope/Data/Anything:1.0)

BEGIN {CORBA::TypeCode::_pre_init(
    'Outside::Structure', 'Outside::Swapper'
)}
use COPE::Outside;
use COPE::Outside::Swapper_types;

1;