# $Id: Test1_impl.pm 1206 2006-05-31 07:11:53Z rvosa $
# Generated on Wed Aug 12 08:58:43 1998 with the following command:
# /usr/home/irving/bin/idl2perl -o COPE --impl ../Test.idl
# Modified: Giles Atkinson 28/6/98 to use Test3 interface.

use COPE::Test::Test1_types;
use COPE::Test::Test1_skel;

use COPE::Test::Test3_impl;

# IDL:smop.org/Test/Test1:1.0
package Test::Test1_impl;
use COPE::CORBA::Servant;
@Test::Test1_impl::ISA=qw(CORBA::BOA::_Servant);
sub _skelname($) { 'Test::Test1_skel' }

# IDL:smop.org/Test/Test1/in_long:1.0
sub in_long ($$) {
    my($self,$along) = @_;
    return -$along;
}

# IDL:smop.org/Test/Test1/in_string:1.0
sub in_string ($$) {
    my($self,$astring) = @_;
    return reverse $astring;
}

# IDL:smop.org/Test/Test1/in_long_sequence:1.0
sub in_long_sequence ($$) {
    my($self,$asequence) = @_;
    return [reverse @$asequence];
}

# IDL:smop.org/Test/Test1/in_octet_sequence:1.0
sub in_octet_sequence ($$) {
    my($self,$asequence) = @_;
    return reverse $asequence;
}

# IDL:smop.org/Test/Test1/in_struct:1.0
sub in_struct ($$) {
    my($self,$astruct) = @_;
    return new Test::TestStruct astring => $astruct->{ashort},
				ashort  => length($astruct->{astring});
}

# IDL:smop.org/Test/Test1/in_array:1.0
sub in_array ($$) {
    my($self,$anarray) = @_;
    return [reverse @$anarray];
}

# IDL:smop.org/Test/Test1/inout_long:1.0
sub inout_long ($$) {
    my($self,$along) = @_;
    $$along *= -1;
}

# IDL:smop.org/Test/Test1/inout_string:1.0
sub inout_string ($$) {
    my($self,$astring) = @_;
    $$astring = reverse $$astring;
}

# IDL:smop.org/Test/Test1/inout_long_sequence:1.0
sub inout_long_sequence ($$) {
    my($self,$asequence) = @_;
    @$asequence = reverse @$asequence;
}

# IDL:smop.org/Test/Test1/inout_octet_sequence:1.0
sub inout_octet_sequence ($$) {
    my($self,$asequence) = @_;
    $$asequence = reverse $$asequence;
}

# IDL:smop.org/Test/Test1/inout_struct:1.0
sub inout_struct ($$) {
    my($self,$astruct) = @_;
    my $short = $astruct->{ashort};
    $astruct->{ashort} = length($astruct->{astring});
    $astruct->{astring} = $short;
}

# IDL:smop.org/Test/Test1/inout_array:1.0
sub inout_array ($$) {
    my($self,$anarray) = @_;
    @$anarray = reverse @$anarray;
}

# IDL:smop.org/Test/Test1/out_long:1.0
sub out_long ($$) {
    my($self,$along) = @_;
    $$along = 28;
}

# IDL:smop.org/Test/Test1/out_string:1.0
sub out_string ($$) {
    my($self,$astring) = @_;
    $$astring = 'Hi there';
}

# IDL:smop.org/Test/Test1/out_long_sequence:1.0
sub out_long_sequence ($$) {
    my($self,$asequence) = @_;
    @$asequence = (-1, 7, 0);
}

# IDL:smop.org/Test/Test1/out_octet_sequence:1.0
sub out_octet_sequence ($$) {
    my($self,$asequence) = @_;
    $$asequence = 'nono';
}

# IDL:smop.org/Test/Test1/out_struct:1.0
sub out_struct ($$) {
    my($self,$astruct) = @_;
    $astruct->{ashort} = -34;
    $astruct->{astring} = 'thirtyfour';
}

# IDL:smop.org/Test/Test1/out_array:1.0
sub out_array ($$) {
    my($self,$anarray) = @_;
    @$anarray = (-1,7,0,2);
}

# IDL:smop.org/Test/Test1/ret_object:1.0
sub ret_object ($) {
    my($self) = @_;
    return Test::Test3_impl->new;
}


1;