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

# Copyright (c) 1997 Lunatech Research / Bart Schuller <schuller@lunatech.com>
# See the file "Artistic" in the distribution for licensing and
# (lack of) warranties.
use Log::Log4perl;
use COPE::CORBA::ORB;
Log::Log4perl::init( COPE::CORBA::ORB->LOGPERLCONF );

package COPE::CORBA::TCKind;

sub import {
    shift;
    my $callpkg = caller(0);
    CORBA::TCKind->export( $callpkg, @_ );
}

package CORBA::TCKind;

my $logger = Log::Log4perl::get_logger('COPE.CORBA.TCKind');

BEGIN {

sub tk_null      () { $logger->debug(0);  0  }
sub tk_void      () { $logger->debug(1);  1  }
sub tk_short     () { $logger->debug(2);  2  }
sub tk_long      () { $logger->debug(3);  3  }
sub tk_ushort    () { $logger->debug(4);  4  }
sub tk_ulong     () { $logger->debug(5);  5  }
sub tk_float     () { $logger->debug(6);  6  }
sub tk_double    () { $logger->debug(7);  7  }
sub tk_boolean   () { $logger->debug(8);  8  }
sub tk_char      () { $logger->debug(9);  9  }
sub tk_octet     () { $logger->debug(10); 10 }
sub tk_any       () { $logger->debug(11); 11 }
sub tk_TypeCode  () { $logger->debug(12); 12 }
sub tk_Principal () { $logger->debug(13); 13 }
sub tk_objref    () { $logger->debug(14); 14 }
sub tk_struct    () { $logger->debug(15); 15 }
sub tk_union     () { $logger->debug(16); 16 }
sub tk_enum      () { $logger->debug(17); 17 }
sub tk_string    () { $logger->debug(18); 18 }
sub tk_sequence  () { $logger->debug(19); 19 }
sub tk_array     () { $logger->debug(20); 20 }
sub tk_alias     () { $logger->debug(21); 21 }
sub tk_except    () { $logger->debug(22); 22 }
sub tk_longlong  () { $logger->debug(23); 23 }
sub tk_ulonglong () { $logger->debug(24); 24 }
#sub tk_longdouble () { 25 }
#sub tk_wchar      () { 26 }
#sub tk_wstring    () { 27 }
#sub tk_fixed      () { 28 }
# This name is not specified by the OMG, but they do mandate use of
# the type code kind value 0xffffffff to indicate indirection.
# We use -1 internally to allow array lookup of marshalling functions.
sub tk_indirect() { $logger->debug(-1); -1 }

use Exporter;
our (@ISA, @EXPORT);
@ISA    = qw(Exporter);
@EXPORT = qw(
  &tk_null &tk_void &tk_short &tk_long &tk_ushort &tk_ulong &tk_float &tk_double
  &tk_boolean &tk_char &tk_octet &tk_any &tk_TypeCode &tk_Principal &tk_objref
  &tk_struct &tk_union &tk_enum &tk_string &tk_sequence &tk_array &tk_alias
  &tk_except &tk_longlong &tk_ulonglong &tk_indirect );

}

# enum TCKind

=pod

=begin testing

ok( CORBA::TCKind::tk_null == 0, "Testing CORBA::TCKind constant tk_null" );
ok( CORBA::TCKind::tk_void == 1, "Testing CORBA::TCKind constant tk_void" );
ok( CORBA::TCKind::tk_short == 2, "Testing CORBA::TCKind constant tk_short" );
ok( CORBA::TCKind::tk_long == 3, "Testing CORBA::TCKind constant tk_long" );
ok( CORBA::TCKind::tk_ushort == 4, "Testing CORBA::TCKind constant tk_ushort" );
ok( CORBA::TCKind::tk_ulong == 5, "Testing CORBA::TCKind constant tk_ulong" );
ok( CORBA::TCKind::tk_float == 6, "Testing CORBA::TCKind constant tk_float" );
ok( CORBA::TCKind::tk_double == 7, "Testing CORBA::TCKind constant tk_double" );
ok( CORBA::TCKind::tk_boolean == 8, "Testing CORBA::TCKind constant tk_boolean" );
ok( CORBA::TCKind::tk_char == 9, "Testing CORBA::TCKind constant tk_char" );
ok( CORBA::TCKind::tk_octet == 10, "Testing CORBA::TCKind constant tk_octet" );
ok( CORBA::TCKind::tk_any == 11, "Testing CORBA::TCKind constant tk_any" );
ok( CORBA::TCKind::tk_TypeCode == 12, "Testing CORBA::TCKind constant tk_TypeCode" );
ok( CORBA::TCKind::tk_Principal == 13, "Testing CORBA::TCKind constant tk_Principal" );
ok( CORBA::TCKind::tk_objref == 14, "Testing CORBA::TCKind constant tk_objref" );
ok( CORBA::TCKind::tk_struct == 15, "Testing CORBA::TCKind constant tk_struct" );
ok( CORBA::TCKind::tk_union == 16, "Testing CORBA::TCKind constant tk_union" );
ok( CORBA::TCKind::tk_enum == 17, "Testing CORBA::TCKind constant tk_enum" );
ok( CORBA::TCKind::tk_string == 18, "Testing CORBA::TCKind constant tk_string" );
ok( CORBA::TCKind::tk_sequence == 19, "Testing CORBA::TCKind constant tk_sequence" );
ok( CORBA::TCKind::tk_array == 20, "Testing CORBA::TCKind constant tk_array" );
ok( CORBA::TCKind::tk_alias == 21, "Testing CORBA::TCKind constant tk_alias" );
ok( CORBA::TCKind::tk_except == 22, "Testing CORBA::TCKind constant tk_except" );
ok( CORBA::TCKind::tk_longlong == 23, "Testing CORBA::TCKind constant tk_longlong" );
ok( CORBA::TCKind::tk_ulonglong == 24, "Testing CORBA::TCKind constant tk_ulonglong" );
ok( CORBA::TCKind::tk_indirect == -1, "Testing CORBA::TCKind constant tk_indirect" );

=end testing

=cut

1;

__END__

=head1 NAME

CORBA::TCKind

A class to ...

=head1 SYNOPSIS

use CORBA::TCKind;

=head1 DESCRIPTION

The CORBA::TCKind class implements ...

=head1 OPTIONS

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

=head1 SUBROUTINES

=head2 import

Parameters:
    none

Insert description of subroutine here...

=head1 FILES

Files used by the CORBA::TCKind class ...

=head1 SEE ALSO

Related information ...

=head1 WARNINGS

...

=head1 NOTES

...

=head1 BUGS

What?

=cut