# $Id: CosNaming_skel.pm 1354 2006-06-14 00:27:26Z rvosa $
# Subversion: $Rev: 117 $

use COPE::CORBA::Skel;
use COPE::CosNaming_types;
use Log::Log4perl;
use COPE::CORBA::ORB;
Log::Log4perl::init( COPE::CORBA::ORB->LOGPERLCONF );

# interface CosNaming::NamingContext (IDL:omg.org/CosNaming/NamingContext:1.0)
package CosNaming::NamingContext_skel;
use base qw(CORBA::_Skel);

my $logger = Log::Log4perl::get_logger('CosNaming.NamingContext_skel');

$CosNaming::NamingContext_skel::_id        = 0;
$CosNaming::NamingContext_skel::_interface =
  'IDL:omg.org/CosNaming/NamingContext:1.0';

sub new {
    $logger->info("Creating \"CosNaming::NamingContext_skel\" object");
    my $class = shift;
    my $id    = shift || $CosNaming::NamingContext_skel::_id++;
    my $self  = bless [ \%CosNaming::NamingContext_skel::FIELDS, $id ], $class;
    return $self;
}

# operation bind (IDL:omg.org/CosNaming/NamingContext/bind:1.0)
sub bind {
    $logger->info("Binding");
    my ( $self, $serverrequest ) = @_;
    my $arg_list = [
        {
            'argument'  => { '_type' => $CosNaming::Name::_tc },
            'arg_modes' => 0,
        },
        {
            'argument'  => { '_type' => $CORBA::Object::_tc },
            'arg_modes' => 0,
        },
    ];
    $serverrequest->params($arg_list);
    $self->{'impl'}->bind(
        $arg_list->[0]{'argument'}{'_value'},
        $arg_list->[1]{'argument'}{'_value'},
    );
}

# operation rebind (IDL:omg.org/CosNaming/NamingContext/rebind:1.0)
sub rebind {
    $logger->info("Rebinding");
    my ( $self, $serverrequest ) = @_;
    my $arg_list = [
        {
            'argument'  => { '_type' => $CosNaming::Name::_tc },
            'arg_modes' => 0,
        },
        {
            'argument'  => { '_type' => $CORBA::Object::_tc },
            'arg_modes' => 0,
        },
    ];
    $serverrequest->params($arg_list);
    $self->{'impl'}->rebind(
        $arg_list->[0]{'argument'}{'_value'},
        $arg_list->[1]{'argument'}{'_value'},
    );
}

# operation bind_context (IDL:omg.org/CosNaming/NamingContext/bind_context:1.0)
sub bind_context {
    $logger->info("Binding context");
    my ( $self, $serverrequest ) = @_;
    my $arg_list = [
        {
            'argument'  => { _type => $CosNaming::Name::_tc },
            'arg_modes' => 0,
        },
        {
            'argument'  => { _type => $CosNaming::NamingContext::_tc },
            'arg_modes' => 0,
        },
    ];
    $serverrequest->params($arg_list);
    $self->{impl}->bind_context(
        $arg_list->[0]{argument}{_value},
        $arg_list->[1]{argument}{_value},
    );
}

# operation rebind_context (IDL:omg.org/CosNaming/NamingContext/rebind_context:1.0)
sub rebind_context {
    $logger->info("Rebinding context");
    my ( $self, $serverrequest ) = @_;
    my $arg_list = [
        {
            'argument'  => { '_type' => $CosNaming::Name::_tc },
            'arg_modes' => 0,
        },
        {
            'argument'  => { '_type' => $CosNaming::NamingContext::_tc },
            'arg_modes' => 0,
        },
    ];
    $serverrequest->params($arg_list);
    $self->{'impl'}->rebind_context(
        $arg_list->[0]{'argument'}{'_value'},
        $arg_list->[1]{'argument'}{'_value'},
    );
}

# operation resolve (IDL:omg.org/CosNaming/NamingContext/resolve:1.0)
sub resolve {
    $logger->info("Resolving");
    my ( $self, $serverrequest ) = @_;
    my $result_ = { '_type' => $CORBA::Object::_tc };
    my $arg_list = [
        {
            'argument'  => { '_type' => $CosNaming::Name::_tc },
            'arg_modes' => 0,
        },
    ];
    $serverrequest->params($arg_list);
    $serverrequest->result($result_);
    $result_->{'_value'} =
      $self->{'impl'}->resolve( $arg_list->[0]{'argument'}{'_value'}, );
}

# operation unbind (IDL:omg.org/CosNaming/NamingContext/unbind:1.0)
sub unbind {
    $logger->info("Unbinding");
    my ( $self, $serverrequest ) = @_;
    my $arg_list = [
        {
            'argument'  => { '_type' => $CosNaming::Name::_tc },
            'arg_modes' => 0,
        },
    ];
    $serverrequest->params($arg_list);
    $self->{'impl'}->unbind( $arg_list->[0]{'argument'}{'_value'}, );
}

# operation new_context (IDL:omg.org/CosNaming/NamingContext/new_context:1.0)
sub new_context {
    $logger->info("Creating new context");
    my ( $self, $serverrequest ) = @_;
    my $result_ = { '_type' => $CosNaming::NamingContext::_tc };
    my $arg_list = [];
    $serverrequest->params($arg_list);
    $serverrequest->result($result_);
    $result_->{'_value'} = $self->{'impl'}->new_context();
}

# operation bind_new_context (IDL:omg.org/CosNaming/NamingContext/bind_new_context:1.0)
sub bind_new_context {
    $logger->info("Binding new context");
    my ( $self, $serverrequest ) = @_;
    my $result_ = { '_type' => $CosNaming::NamingContext::_tc };
    my $arg_list = [
        {
            'argument'  => { '_type' => $CosNaming::Name::_tc },
            'arg_modes' => 0,
        },
    ];
    $serverrequest->params($arg_list);
    $serverrequest->result($result_);
    $result_->{'_value'} =
      $self->{'impl'}->bind_new_context( $arg_list->[0]{'argument'}{'_value'}, );
}

# operation destroy (IDL:omg.org/CosNaming/NamingContext/destroy:1.0)
sub destroy {
    $logger->info("Destroying");
    my ( $self, $serverrequest ) = @_;
    my $arg_list = [];
    $serverrequest->params($arg_list);
    $self->{'impl'}->destroy();
}

# operation list (IDL:omg.org/CosNaming/NamingContext/list:1.0)
sub list {
    $logger->info("Listing");
    my ( $self, $serverrequest ) = @_;
    my $arg_list = [
        {
            'argument'  => { '_type' => $CORBA::_tc_ulong },
            'arg_modes' => 0,
        },
        {
            'argument' =>
              { '_type' => $CosNaming::BindingList::_tc, '_value' => [] },
            'arg_modes' => 1,
        },
        {
            'argument' => {
                '_type' => CORBA::TypeCode::_create_interface_tc(
                    'IDL:omg.org/CosNaming/BindingIterator:1.0',
                    'BindingIterator'
                )
            },
            'arg_modes' => 1,
        },
    ];
    $serverrequest->params($arg_list);
    $self->{'impl'}->list(
        $arg_list->[0]{'argument'}{'_value'},
        $arg_list->[1]{'argument'}{'_value'},
        $arg_list->[2]{'argument'}{'_value'},
    );
}
1;

# interface CosNaming::BindingIterator (IDL:omg.org/CosNaming/BindingIterator:1.0)
package CosNaming::BindingIterator_skel;
use base qw(CORBA::_Skel);

$logger = Log::Log4perl::get_logger('CosNaming.BindingIterator_skel');

$CosNaming::BindingIterator_skel::_id        = 0;
$CosNaming::BindingIterator_skel::_interface =
  'IDL:omg.org/CosNaming/BindingIterator:1.0';

sub new {
    $logger->info("Creating new \"CosNaming::BindingIterator_skel\" object");
    my $class = shift;
    my $id = shift || $CosNaming::BindingIterator_skel::_id++;
    my $self = bless [ \%CosNaming::BindingIterator_skel::FIELDS, $id ], $class;
    return $self;
}

# operation next_one (IDL:omg.org/CosNaming/BindingIterator/next_one:1.0)
sub next_one {
    $logger->info("Returning next binding");
    my ( $self, $serverrequest ) = @_;
    my $result_ = { '_type' => $CORBA::_tc_boolean };
    my $arg_list = [
        {
            'argument'  => { '_type' => $CosNaming::Binding::_tc, '_value' => {} },
            'arg_modes' => 1,
        },
    ];
    $serverrequest->params($arg_list);
    $serverrequest->result($result_);
    $result_->{'_value'} =
      $self->{'impl'}->next_one( $arg_list->[0]{'argument'}{'_value'}, );
}

# operation next_n (IDL:omg.org/CosNaming/BindingIterator/next_n:1.0)
sub next_n {
    $logger->info("Returning next n bindings");
    my ( $self, $serverrequest ) = @_;
    my $result_ = { '_type' => $CORBA::_tc_boolean };
    my $arg_list = [
        {
            'argument'  => { '_type' => $CORBA::_tc_ulong },
            'arg_modes' => 0,
        },
        {
            'argument' =>
              { '_type' => $CosNaming::BindingList::_tc, '_value' => [] },
            'arg_modes' => 1,
        },
    ];
    $serverrequest->params($arg_list);
    $serverrequest->result($result_);
    $result_->{'_value'} = $self->{'impl'}->next_n(
        $arg_list->[0]{'argument'}{'_value'},
        $arg_list->[1]{'argument'}{'_value'},
    );
}

# operation destroy (IDL:omg.org/CosNaming/BindingIterator/destroy:1.0)
sub destroy {
    my ( $self, $serverrequest ) = @_;
    my $arg_list = [];
    $serverrequest->params($arg_list);
    $self->{impl}->destroy();
}
1;

__END__

=head1 NAME

CosNaming::BindingIterator_skel

A class to ...

=head1 SYNOPSIS

use CosNaming::BindingIterator_skel;

=head1 DESCRIPTION

The CosNaming::BindingIterator_skel class implements ...

=head1 OPTIONS

 -D            - show debugging information
 -h            - show help
 -v            - show version
 Other options ...

=head1 SUBROUTINES

=head2 new (constructor)

Parameters:
    class
    id

Insert description of constructor here...

=head2 bind (method)

Parameters:
    serverrequest

Insert description of method here...

=head2 rebind (method)

Parameters:
    serverrequest

Insert description of method here...

=head2 bind_context (method)

Parameters:
    serverrequest

Insert description of method here...

=head2 rebind_context (method)

Parameters:
    serverrequest

Insert description of method here...

=head2 resolve (method)

Parameters:
    serverrequest

Insert description of method here...

=head2 unbind (method)

Parameters:
    serverrequest

Insert description of method here...

=head2 new_context (method)

Parameters:
    serverrequest

Insert description of method here...

=head2 bind_new_context (method)

Parameters:
    serverrequest

Insert description of method here...

=head2 destroy (method)

Parameters:
    serverrequest

Insert description of method here...

=head2 list (method)

Parameters:
    serverrequest

Insert description of method here...

=head2 new (constructor)

Parameters:
    class
    id

Insert description of constructor here...

=head2 next_one (method)

Parameters:
    serverrequest

Insert description of method here...

=head2 next_n (method)

Parameters:
    serverrequest

Insert description of method here...

=head2 destroy (method)

Parameters:
    serverrequest

Insert description of method here...

=head1 FILES

Files used by the CosNaming::BindingIterator_skel class ...

=head1 SEE ALSO

Related information ...

=head1 WARNINGS

...

=head1 NOTES

...

=head1 BUGS

What?

=cut