File Coverage

blib/lib/CORBA/JAVA/ClassVisitor.pm

Criterion	Covered	Total	%
statement	21	2555	0.8
branch	0	532	0.0
condition	0	223	0.0
subroutine	7	70	10.0
pod	0	34	0.0
total	28	3414	0.8

#
#           Interface Definition Language (OMG IDL CORBA v3.0)
#
#           IDL to Java Language Mapping Specification, Version 1.2 August 2002
#

package CORBA::JAVA::ClassVisitor;

use strict;
use warnings;

our $VERSION = '2.63';

use Data::Dumper;
use Digest::SHA1 qw(sha1_hex);
use File::Basename;
use File::Path;
use POSIX qw(ctime);

# needs $node->{java_name} (JavaNameVisitor), $node->{java_literal} (JavaLiteralVisitor)

sub new {
    my $proto = shift;
    my $class = ref($proto) || $proto;
    my $self = {};
    bless $self, $class;
    my ($parser) = @_;
    $self->{srcname} = $parser->YYData->{srcname};
    $self->{srcname_size} = $parser->YYData->{srcname_size};
    $self->{srcname_mtime} = $parser->YYData->{srcname_mtime};
    $self->{symbtab} = $parser->YYData->{symbtab};
    $self->{done_hash} = {};
    $self->{num_key} = 'num_java';
    $self->{toString} = 1;
    $self->{equals} = 1;
    return $self;
}

sub open_stream {
    my $self = shift;
    my ($node, $suffix) = @_;
    my $filename;
    my $prefix = q{};
    $prefix = '_' if ($suffix =~ /^Stub/);
    my $dirname = $node->{java_package};
    if ($dirname) {
        $dirname =~ s/\./\//g;
        unless (-d $dirname) {
            mkpath($dirname)
                    or die "can't create $dirname ($!).\n";
        }
        $filename = $dirname . '/' . $prefix . $node->{java_helper} . $suffix;
    }
    else {
        $filename = $prefix . $node->{java_helper} . $suffix;
    }
    open $self->{out}, '>', $filename
            or die "can't open $filename ($!).\n",caller(),"\n";
    $self->{filename} = $filename;

    my $FH = $self->{out};
    print $FH "/* ex: set ro: */\n";
    print $FH "package ",$node->{java_package},";\n"
            if ($node->{java_package});
    print $FH "\n";
    print $FH "/**\n";
    print $FH " * ",$self->{filename},"\n";
    print $FH " * This file was generated (by ",basename($0),"). DO NOT modify it\n";
    print $FH " * from file : ",$self->{srcname},", ",$self->{srcname_size}," octets, ",POSIX::ctime($self->{srcname_mtime});
    print $FH " */\n";
    print $FH "\n";
}

sub _no_mapping {
    my $self = shift;
    my ($node) = @_;
    return unless ($self->{srcname} eq $node->{filename});
    my $class = ref $node;
    $class = substr $class, rindex($class, ':') + 1;
    if ($class =~ /^Forward/) {
        $node = $self->{symbtab}->Lookup($node->{full});
    }
    my $FH = $self->{out};
    print $FH "\n";
    print $FH "/* no mapping for ",$node->{java_name}," (",ref $node,")*/\n";
    print $FH "\n";
}

sub _get_defn {
    my $self = shift;
    my ($defn) = @_;
    if (ref $defn) {
        return $defn;
    }
    else {
        return $self->{symbtab}->Lookup($defn);
    }
}

sub _format_javadoc {
    my $self = shift;
    my ($node) = @_;
    return q{} unless ($node->{doc});
    my $str = "\n/**\n";
    foreach (split /\n/, $node->{doc}) {
        s/^\s+//;
        next unless ($_);
        $str .= " * " . $_ . "\n";
    }
    $str .= " */\n";
    return $str;
}

sub _holder {
    my $self = shift;
    my ($node, $type, @array) = @_;
    $type = $node unless ($type);
    $self->open_stream($node, 'Holder.java');
    my $FH = $self->{out};
    print $FH "public final class ",$node->{java_helper},"Holder implements org.omg.CORBA.portable.Streamable\n";
    print $FH "{\n";
    print $FH "  public ",$type->{java_Name},@array," value;\n";
    print $FH "\n";
    print $FH "  public ",$node->{java_helper},"Holder ()\n";
    print $FH "  {\n";
    if (scalar(@array)) {
        print $FH "    value = null;\n";
    }
    else {
        print $FH "    value = ",$type->{java_init},";\n";
    }
    print $FH "  }\n";
    print $FH "\n";
    print $FH "  public ",$node->{java_helper},"Holder (",$type->{java_Name},@array," initialValue)\n";
    print $FH "  {\n";
    print $FH "    value = initialValue;\n";
    print $FH "  }\n";
    print $FH "\n";
    print $FH "  public void _read (org.omg.CORBA.portable.InputStream \$is)\n";
    print $FH "  {\n";
    print $FH "    value = ",$node->{java_read},";\n";
    print $FH "  }\n";
    print $FH "\n";
    print $FH "  public void _write (org.omg.CORBA.portable.OutputStream \$os)\n";
    print $FH "  {\n";
    print $FH "    ",$node->{java_write},"value);\n";
    print $FH "  }\n";
    print $FH "\n";
    print $FH "  public org.omg.CORBA.TypeCode _type ()\n";
    print $FH "  {\n";
    print $FH "    return ",$node->{java_Helper},".type ();\n";
    print $FH "  }\n";
    print $FH "\n";
    print $FH "}\n";
    close $FH;
}

#
#   3.5     OMG IDL Specification
#

sub visitSpecification {
    my $self = shift;
    my ($node) = @_;
    foreach (@{$node->{list_decl}}) {
        $self->_get_defn($_)->visit($self);
    }
}

#
#   3.7     Module Declaration
#

sub visitModules {
    my $self = shift;
    my ($node) = @_;
    unless (exists $node->{$self->{num_key}}) {
        $node->{$self->{num_key}} = 0;
    }
    my $module = ${$node->{list_decl}}[$node->{$self->{num_key}}];
    $module->visit($self);
    $node->{$self->{num_key}} ++;
}

sub visitModule {
    my $self = shift;
    my ($node) = @_;
    foreach (@{$node->{list_decl}}) {
        $self->_get_defn($_)->visit($self);
    }
}

#
#   3.8     Interface Declaration
#

sub _interface_helper {
    my ($self, $node) = @_;

    $self->open_stream($node, 'Helper.java');
    my $FH = $self->{out};
    print $FH "abstract public class ",$node->{java_helper},"Helper\n";
    print $FH "{\n";
    print $FH "  private static java.lang.String _id = \"",$node->{repos_id},"\";\n";
    print $FH "\n";
    print $FH "  public static void insert (org.omg.CORBA.Any a, ",$node->{java_Name}," that)\n";
    print $FH "  {\n";
    print $FH "    org.omg.CORBA.portable.OutputStream out = a.create_output_stream ();\n";
    print $FH "    a.type (type ());\n";
    print $FH "    write (out, that);\n";
    print $FH "    a.read_value (out.create_input_stream (), type ());\n";
    print $FH "  }\n";
    print $FH "\n";
    print $FH "  public static ",$node->{java_Name}," extract (org.omg.CORBA.Any a)\n";
    print $FH "  {\n";
    print $FH "    return read (a.create_input_stream ());\n";
    print $FH "  }\n";
    print $FH "\n";
    print $FH "  private static org.omg.CORBA.TypeCode __typeCode = null;\n";
    print $FH "  private static boolean __active = false;\n";
    print $FH "  synchronized public static org.omg.CORBA.TypeCode type ()\n";
    print $FH "  {\n";
    print $FH "    if (__typeCode == null)\n";
    print $FH "    {\n";
    print $FH "      synchronized (org.omg.CORBA.TypeCode.class)\n";
    print $FH "      {\n";
    print $FH "        if (__typeCode == null)\n";
    print $FH "        {\n";
    print $FH "          if (__active)\n";
    print $FH "          {\n";
    print $FH "            return org.omg.CORBA.ORB.init().create_recursive_tc ( ",$node->{java_Helper},".id () );\n";
    print $FH "          }\n";
    print $FH "          __active = true;\n";
    print $FH "          __typeCode = org.omg.CORBA.ORB.init ().create_interface_tc (_id, \"",$node->{java_name},"\");\n";
    print $FH "          __active = false;\n";
    print $FH "        }\n";
    print $FH "      }\n";
    print $FH "    }\n";
    print $FH "    return __typeCode;\n";
    print $FH "  }\n";
    print $FH "\n";
    print $FH "  public static java.lang.String id ()\n";
    print $FH "  {\n";
    print $FH "    return _id;\n";
    print $FH "  }\n";
    print $FH "\n";
    print $FH "  public static ",$node->{java_Name}," read (org.omg.CORBA.portable.InputStream \$is)\n";
    print $FH "  {\n";
    if ($node->isa('AbstractInterface')) {
        print $FH "    return narrow (((org.omg.CORBA_2_3.portable.InputStream)\$is).read_abstract_interface (_",$node->{java_name},"Stub.class));\n";
    }
    else {
        print $FH "    return narrow (\$is.read_Object (_",$node->{java_name},"Stub.class));\n";
    }
    print $FH "  }\n";
    print $FH "\n";
    print $FH "  public static void write (org.omg.CORBA.portable.OutputStream \$os, ",$node->{java_Name}," value)\n";
    print $FH "  {\n";
    if ($node->isa('AbstractInterface')) {
        print $FH "    ((org.omg.CORBA_2_3.portable.OutputStream)\$os).write_abstract_interface ((java.lang.Object)value);\n";
    }
    else {
        print $FH "    \$os.write_Object ((org.omg.CORBA.Object)value);\n";
    }
    print $FH "  }\n";
    print $FH "\n";
    if ($node->isa('RegularInterface') and exists $node->{inheritance} and exists $node->{inheritance}->{list_interface}) {
        my $has_abstract = 0;
        foreach (@{$node->{inheritance}->{list_interface}}) {
            my $base = $self->_get_defn($_);
            $has_abstract = 1 if ($base->isa('AbstractInterface'));
        }
        if ($has_abstract) {
            print $FH "  public static ",$node->{java_Name}," narrow (java.lang.Object obj)\n";
            print $FH "  {\n";
            print $FH "    if (obj == null)\n";
            print $FH "      return null;\n";
            print $FH "    else if (obj instanceof org.omg.CORBA.Object)\n";
            print $FH "      return _narrow ((org.omg.CORBA.Object)obj, false);\n";
            print $FH "    throw new org.omg.CORBA.BAD_PARAM ();\n";
            print $FH "  }\n";
            print $FH "\n";
            print $FH "  public static ",$node->{java_Name}," unchecked_narrow (java.lang.Object obj)\n";
            print $FH "  {\n";
            print $FH "    if (obj == null)\n";
            print $FH "      return null;\n";
            print $FH "    else if (obj instanceof org.omg.CORBA.Object)\n";
            print $FH "      return _narrow ((org.omg.CORBA.Object)obj, true);\n";
            print $FH "    throw new org.omg.CORBA.BAD_PARAM ();\n";
            print $FH "  }\n";
            print $FH "\n";
        }
    }
    if ($node->isa('AbstractInterface')) {
        print $FH "  public static ",$node->{java_Name}," narrow (java.lang.Object obj)\n";
    }
    else {
        print $FH "  public static ",$node->{java_Name}," narrow (org.omg.CORBA.Object obj)\n";
    }
    print $FH "  {\n";
    print $FH "    return _narrow(obj, false);\n";
    print $FH "  }\n";
    print $FH "\n";
    if ($node->isa('AbstractInterface')) {
        print $FH "  public static ",$node->{java_Name}," unchecked_narrow (java.lang.Object obj)\n";
    }
    else {
        print $FH "  public static ",$node->{java_Name}," unchecked_narrow (org.omg.CORBA.Object obj)\n";
    }
    print $FH "  {\n";
    print $FH "    return _narrow(obj, true);\n";
    print $FH "  }\n";
    print $FH "\n";
    if ($node->isa('AbstractInterface')) {
        print $FH "  public static ",$node->{java_Name}," _narrow (java.lang.Object obj, boolean is_a)\n";
    }
    else {
        print $FH "  public static ",$node->{java_Name}," _narrow (org.omg.CORBA.Object obj, boolean is_a)\n";
    }
    print $FH "  {\n";
    print $FH "    if (obj == null)\n";
    print $FH "      return null;\n";
    print $FH "    else if (obj instanceof ",$node->{java_Name},")\n";
    print $FH "      return (",$node->{java_Name},")obj;\n";
    if ($node->isa('AbstractInterface')) {
        print $FH "    else if ((obj instanceof org.omg.CORBA.portable.ObjectImpl) &&\n";
        print $FH "             (is_a || ((org.omg.CORBA.Object)obj)._is_a (id ())))\n";
    }
    else {
        print $FH "    else if (is_a || obj._is_a (id ()))\n";
    }
    print $FH "    {\n";
    print $FH "      org.omg.CORBA.portable.ObjectImpl impl = (org.omg.CORBA.portable.ObjectImpl)obj;\n";
    print $FH "      org.omg.CORBA.portable.Delegate delegate = impl._get_delegate ();\n";
    print $FH "      ",$node->{java_stub}," stub = new ",$node->{java_stub}," ();\n";
    print $FH "      stub._set_delegate (delegate);\n";
    print $FH "      return stub;\n";
    print $FH "    }\n";
    print $FH "    throw new org.omg.CORBA.BAD_PARAM ();\n";
    print $FH "  }\n";
    print $FH "\n";
    print $FH "}\n";
    close $FH;
}

sub _interface {
    my ($self, $node) = @_;

    $self->{constants} = q{};
    $self->{methodes} = q{};
    $self->{stub} = q{};
    foreach (@{$node->{list_decl}}) {
        $self->_get_defn($_)->visit($self);
    }

    $self->open_stream($node, '.java');
    my $FH = $self->{out};
    print $FH $self->_format_javadoc($node);
    if (exists $node->{inheritance} and exists $node->{inheritance}->{list_interface}) {
        print $FH "public interface ",$node->{java_name}," extends ";
        my $first = 1;
        unless ($node->isa('AbstractInterface')) {
            print $FH $node->{java_name},"Operations";
            $first = 0;
        }
        foreach (@{$node->{inheritance}->{list_interface}}) {
            print $FH ", " unless ($first);
            print $FH $self->_get_defn($_)->{java_Name};
            $first = 0;
        }
        print $FH ", " unless ($first);
        print $FH "org.omg.CORBA.portable.IDLEntity\n";
    }
    else {
        if    ($node->isa('AbstractInterface')) {
            print $FH "public interface ",$node->{java_name}," extends org.omg.CORBA.portable.IDLEntity\n";
        }
        elsif ($node->isa('LocalInterface')) {
            print $FH "public interface ",$node->{java_name}," extends ",$node->{java_name},"Operations, org.omg.CORBA.LocalInterface, org.omg.CORBA.portable.IDLEntity\n";
        }
        else {
            print $FH "public interface ",$node->{java_name}," extends ",$node->{java_name},"Operations, org.omg.CORBA.Object, org.omg.CORBA.portable.IDLEntity\n";
        }
    }
    print $FH "{\n";
    print $FH $self->{constants};
    print $FH $self->{methodes} if ($node->isa('AbstractInterface'));
    print $FH "} // interface ",$node->{java_name},"\n";
    close $FH;

    delete $self->{constants};
    delete $self->{methodes};
    delete $self->{stub};
}

sub _interface_operations {
    my ($self, $node) = @_;

    $self->{methodes} = q{};
    $self->{stub} = q{};
    foreach (@{$node->{list_decl}}) {
        my $defn = $self->_get_defn($_);
        if (       $defn->isa('Operation')
                or $defn->isa('Attributes') ) {
            $defn->visit($self);
        }
    }

    $self->open_stream($node, 'Operations.java');
    my $FH = $self->{out};
    if (exists $node->{inheritance} and exists $node->{inheritance}->{list_interface}) {
        print $FH "public interface ",$node->{java_name},"Operations extends ";
        my $first = 1;
        foreach (@{$node->{inheritance}->{list_interface}}) {
            my $base = $self->_get_defn($_);
            print $FH ", " unless ($first);
            if ($base->isa('AbstractInterface')) {
                print $FH $base->{java_Name};
            }
            else {
                print $FH $base->{java_Name},"Operations";
            }
            $first = 0;
        }
        print $FH "\n";
    }
    else {
        print $FH "public interface ",$node->{java_name},"Operations\n";
    }
    print $FH "{\n";
    print $FH $self->{methodes};
    print $FH "} // interface ",$node->{java_name},"Operations\n";
    close $FH;

    delete $self->{methodes};
    delete $self->{stub};
}

sub _interface_stub {
    my ($self, $node) = @_;

    $self->{methodes} = q{};
    $self->{stub} = q{};
    foreach (values %{$node->{hash_attribute_operation}}) {
        $self->_get_defn($_)->visit($self);
    }

    $self->open_stream($node, 'Stub.java');
    my $FH = $self->{out};
    print $FH "public class _",$node->{java_name},"Stub extends org.omg.CORBA.portable.ObjectImpl implements ",$node->{java_Name},"\n";
    print $FH "{\n";
    if (exists $node->{serial_uid}) {
        print $FH "  private static final long serialVersionUID = 0x",$node->{serial_uid},"L;\n";
    }
    else {
        print $FH "  private static final long serialVersionUID = 0x",$node->{java_uid},"L;\n";
    }
    print $FH "\n";
    print $FH "\n";
    print $FH $self->{stub};
    print $FH "  // Type-specific CORBA::Object operations\n";
    print $FH "  private static java.lang.String[] __ids = {\n";
    print $FH "    \"",$node->{repos_id},"\"";
    if (exists $node->{inheritance} and exists $node->{inheritance}->{list_interface}) {
        foreach (sort keys %{$node->{inheritance}->{hash_interface}}) {
            my $base = $self->_get_defn($_);
            print $FH ",\n";
            print $FH "    \"",$base->{repos_id},"\"";
        }
    }
    print $FH "\n";
    print $FH "  };\n";
    print $FH "\n";
    print $FH "  public java.lang.String[] _ids ()\n";
    print $FH "  {\n";
    print $FH "    return (java.lang.String[])__ids.clone ();\n";
    print $FH "  }\n";
    print $FH "\n";
    print $FH "  private void readObject (java.io.ObjectInputStream s) throws java.io.IOException\n";
    print $FH "  {\n";
    print $FH "     java.lang.String str = s.readUTF ();\n";
    print $FH "     java.lang.String[] args = null;\n";
    print $FH "     java.util.Properties props = null;\n";
    print $FH "     org.omg.CORBA.Object obj = org.omg.CORBA.ORB.init (args, props).string_to_object (str);\n";
    print $FH "     org.omg.CORBA.portable.Delegate delegate = ((org.omg.CORBA.portable.ObjectImpl)obj)._get_delegate ();\n";
    print $FH "     _set_delegate (delegate);\n";
    print $FH "  }\n";
    print $FH "\n";
    print $FH "  private void writeObject (java.io.ObjectOutputStream s) throws java.io.IOException\n";
    print $FH "  {\n";
    print $FH "     java.lang.String[] args = null;\n";
    print $FH "     java.util.Properties props = null;\n";
    print $FH "     java.lang.String str = org.omg.CORBA.ORB.init (args, props).object_to_string (this);\n";
    print $FH "     s.writeUTF (str);\n";
    print $FH "  }\n";
    print $FH "} // class _",$node->{java_name},"Stub\n";
    close $FH;

    delete $self->{methodes};
    delete $self->{stub};
}

sub visitRegularInterface {
    my $self = shift;
    my ($node) = @_;
    return unless ($self->{srcname} eq $node->{filename});

    $self->_holder($node);
    $self->_interface_helper($node);
    $self->_interface($node);
    $self->_interface_operations($node);
    $self->_interface_stub($node);
    $self->_interface_helperXML($node) if ($self->can('_interface_helperXML'));
    $self->_interface_stubXML($node) if ($self->can('_interface_stubXML'));
}

sub visitAbstractInterface {
    my $self = shift;
    my ($node) = @_;
    return unless ($self->{srcname} eq $node->{filename});

    $self->_holder($node);
    $self->_interface_helper($node);
    $self->_interface($node);
    $self->_interface_stub($node);
    $self->_interface_helperXML($node) if ($self->can('_interface_helperXML'));
    $self->_interface_stubXML($node) if ($self->can('_interface_stubXML'));
}

sub visitLocalInterface {
    my $self = shift;
    my ($node) = @_;
    return unless ($self->{srcname} eq $node->{filename});

    $self->_holder($node);
    $self->_interface_helper($node);
    $self->_interface($node);
    $self->_interface_operations($node);
    $self->_interface_stub($node);
}

sub visitForwardBaseInterface {
    # empty
}

#
#   3.9     Value Declaration
#
#   3.9.1   Regular Value Type
#

sub _value_helper {
    my ($self, $node) = @_;

    $self->open_stream($node, 'Helper.java');
    my $FH = $self->{out};
    print $FH "abstract public class ",$node->{java_helper},"Helper\n";
    print $FH "{\n";
    print $FH "  private static java.lang.String _id = \"",$node->{repos_id},"\";\n";
    print $FH "\n";
    print $FH "  public static void insert (org.omg.CORBA.Any a, ",$node->{java_Name}," that)\n";
    print $FH "  {\n";
    print $FH "    org.omg.CORBA.portable.OutputStream out = a.create_output_stream ();\n";
    print $FH "    a.type (type ());\n";
    print $FH "    write (out, that);\n";
    print $FH "    a.read_value (out.create_input_stream (), type ());\n";
    print $FH "  }\n";
    print $FH "\n";
    print $FH "  public static ",$node->{java_Name}," extract (org.omg.CORBA.Any a)\n";
    print $FH "  {\n";
    print $FH "    return read (a.create_input_stream ());\n";
    print $FH "  }\n";
    print $FH "\n";
    print $FH "  private static org.omg.CORBA.TypeCode __typeCode = null;\n";
    print $FH "  private static boolean __active = false;\n";
    print $FH "  synchronized public static org.omg.CORBA.TypeCode type ()\n";
    print $FH "  {\n";
    print $FH "    if (__typeCode == null)\n";
    print $FH "    {\n";
    print $FH "      synchronized (org.omg.CORBA.TypeCode.class)\n";
    print $FH "      {\n";
    print $FH "        if (__typeCode == null)\n";
    print $FH "        {\n";
    print $FH "          if (__active)\n";
    print $FH "          {\n";
    print $FH "            return org.omg.CORBA.ORB.init().create_recursive_tc ( ",$node->{java_Helper},".id () );\n";
    print $FH "          }\n";
    print $FH "          __active = true;\n";
    if (exists $node->{list_member}) {
        print $FH "          org.omg.CORBA.ValueMember[] _members0 = new org.omg.CORBA.ValueMember [",scalar(@{$node->{list_member}}),"];\n";
        print $FH "          org.omg.CORBA.TypeCode _tcOf_members0 = null;\n";
        my $i = 0;
        foreach (@{$node->{list_member}}) {     # StateMember
            my $member = $self->_get_defn($_);
            print $FH "          // ValueMember instance for ",$member->{java_name},"\n";
            $self->_member_helper_type($member, $node, $i);
            $i ++;
        }
    }
    else {
        print $FH "          org.omg.CORBA.ValueMember[] _members0 = new org.omg.CORBA.ValueMember [0];\n";
        print $FH "          org.omg.CORBA.TypeCode _tcOf_members0 = null;\n";
    }
    if ($node->isa('AbstractValue')) {
        print $FH "          __typeCode = org.omg.CORBA.ORB.init ().create_value_tc (_id, \"",$node->{java_name},"\", org.omg.CORBA.VM_ABSTRACT.value, null, _members0);\n";
    }
    else {
        print $FH "          __typeCode = org.omg.CORBA.ORB.init ().create_value_tc (_id, \"",$node->{java_name},"\", org.omg.CORBA.VM_NONE.value, null, _members0);\n";
    }
    print $FH "          __active = false;\n";
    print $FH "        }\n";
    print $FH "      }\n";
    print $FH "    }\n";
    print $FH "    return __typeCode;\n";
    print $FH "  }\n";
    print $FH "\n";
    print $FH "  public static java.lang.String id ()\n";
    print $FH "  {\n";
    print $FH "    return _id;\n";
    print $FH "  }\n";
    print $FH "\n";
    print $FH "  public static ",$node->{java_Name}," read (org.omg.CORBA.portable.InputStream \$is)\n";
    print $FH "  {\n";
    print $FH "    return (",$node->{java_Name},")((org.omg.CORBA_2_3.portable.InputStream)\$is).read_value (id ());\n";
    print $FH "  }\n";
    print $FH "\n";
    print $FH "  public static void write (org.omg.CORBA.portable.OutputStream \$os, ",$node->{java_Name}," value)\n";
    print $FH "  {\n";
    print $FH "    ((org.omg.CORBA_2_3.portable.OutputStream)\$os).write_value (value, id ());\n";
    print $FH "  }\n";
    print $FH "\n";
    print $FH $self->{factory};
    print $FH "}\n";
    close $FH;
}

sub _value {
    my ($self, $node) = @_;

    $self->open_stream($node, '.java');
    my $FH = $self->{out};

    print $FH $self->_format_javadoc($node);
    my $super;
    if ($node->isa('AbstractValue')) {
        print $FH "public interface ",$node->{java_name}," extends org.omg.CORBA.portable.ValueBase";
        if (exists $node->{inheritance} and exists $node->{inheritance}->{list_value}) {
            foreach (@{$node->{inheritance}->{list_value}}) {
                my $base = $self->_get_defn($_);
                print $FH ", ",$base->{java_Name};
            }
        }
        if (exists $node->{inheritance} and exists $node->{inheritance}->{list_interface}) {
            foreach (@{$node->{inheritance}->{list_interface}}) {
                my $base = $self->_get_defn($_);
                print $FH ", ",$base->{java_Name},"Operations";
            }
        }
    }
    else {
        print $FH "public abstract class ",$node->{java_name};
        if (exists $node->{inheritance} and exists $node->{inheritance}->{list_value}) {
            foreach (@{$node->{inheritance}->{list_value}}) {
                my $base = $self->_get_defn($_);
                next unless ($base->isa('RegularValue'));
                print $FH " extends ",$base->{java_Name};
                $super = 1;
                last;
            }
        }
        if (exists $node->{modifier}) {     # custom
            print $FH " implements org.omg.CORBA.portable.CustomValue";
        }
        else {
            print $FH " implements org.omg.CORBA.portable.StreamableValue";
        }
        if (exists $node->{inheritance} and exists $node->{inheritance}->{list_value}) {
            foreach (@{$node->{inheritance}->{list_value}}) {
                my $base = $self->_get_defn($_);
                next unless ($base->isa('AbstractValue'));
                print $FH ", ",$base->{java_Name};
            }
        }
        if (exists $node->{inheritance} and exists $node->{inheritance}->{list_interface}) {
            foreach (@{$node->{inheritance}->{list_interface}}) {
                my $base = $self->_get_defn($_);
                print $FH ", ",$base->{java_Name},"Operations";
            }
        }
    }
    print $FH "\n";
    print $FH "{\n";
    if (exists $node->{serial_uid}) {
        print $FH "  private static final long serialVersionUID = 0x",$node->{serial_uid},"L;\n";
    }
    else {
        print $FH "  private static final long serialVersionUID = 0x",$node->{java_uid},"L;\n";
    }
    print $FH "\n";
    foreach (@{$node->{list_member}}) {
        my $member = $self->_get_defn($_);
        my $mod = ($member->{modifier} eq "private") ? "protected" : "public";
        print $FH "  ",$mod," ",$member->{java_type}," ",$member->{java_name}," = ",$member->{java_init},";\n";
    }
    print $FH $self->{abstract_methodes};
    if ($node->isa('RegularValue')) {
        print $FH "\n";
        print $FH "  private static java.lang.String[] _truncatable_ids = {\n";
        print $FH "    ",$node->{java_Name},"Helper.id ()\n";
        print $FH "  };\n";
        print $FH "\n";
        print $FH "  public java.lang.String[] _truncatable_ids ()\n";
        print $FH "  {\n";
        print $FH "    return _truncatable_ids;\n";
        print $FH "  }\n";
        print $FH "\n";
        unless (exists $node->{modifier}) {     # custom
            print $FH "  public void _read (org.omg.CORBA.portable.InputStream \$is)\n";
            print $FH "  {\n";
            print $FH "    super._read (\$is);\n" if ($super);
            my $idx = 0;
            foreach (@{$node->{list_member}}) {     # StateMember
                my $member = $self->_get_defn($_);
                $self->_member_helper_read($member, $node, \$idx);
            }
            print $FH "  }\n";
            print $FH "\n";
            print $FH "  public void _write (org.omg.CORBA.portable.OutputStream \$os)\n";
            print $FH "  {\n";
            print $FH "    super._write (\$os);\n" if ($super);
            $idx = 0;
            foreach (@{$node->{list_member}}) {     # StateMember
                my $member = $self->_get_defn($_);
                $self->_member_helper_write($member, $node, \$idx);
            }
            print $FH "  }\n";
            print $FH "\n";
            print $FH "  public org.omg.CORBA.TypeCode _type ()\n";
            print $FH "  {\n";
            print $FH "    return ",$node->{java_Name},"Helper.type ();\n";
            print $FH "  }\n";
            print $FH "\n";
        }
        if ($self->{toString}) {
            print $FH "  public java.lang.String toString ()\n";
            print $FH "  {\n";
            print $FH "    java.lang.StringBuffer _ret = new java.lang.StringBuffer (\"valuetype ",$node->{java_name}," {\");\n";
            my $first = 1;
            my $idx = 0;
            foreach (@{$node->{list_member}}) {
                my $member = $self->_get_defn($_);
                if ($first) {
                    print $FH "    _ret.append (\"\\n\");\n";
                    $first = 0;
                }
                else {
                    print $FH "    _ret.append (\",\\n\");\n";
                }
                $self->_member_toString($member, $node, \$idx);
            }
            print $FH "    _ret.append (\"\\n\");\n";
            print $FH "    _ret.append (\"}\");\n";
            print $FH "    return _ret.toString ();\n";
            print $FH "  }\n";
            print $FH "\n";
        }
        if ($self->{equals}) {
            print $FH "  public boolean equals (java.lang.Object o)\n";
            print $FH "  {\n";
            print $FH "    if (this == o) return true;\n";
            print $FH "    if (o == null) return false;\n";
            print $FH "\n";
            print $FH "    if (o instanceof ",$node->{java_name},")\n";
            print $FH "    {\n";
            if (scalar (@{$node->{list_member}})) {
                print $FH "      ",$node->{java_name}," obj = (",$node->{java_name},")o;\n";
                print $FH "      boolean res;\n";
                my $first = 1;
                my $idx = 0;
                foreach (@{$node->{list_member}}) {
                    my $member = $self->_get_defn($_);
                    if ($first) {
                        $first = 0;
                    }
                    else {
                        print $FH "      if (!res) return false;\n";
                    }
                    $self->_member_equals($member, $node, \$idx);
                }
                print $FH "      return res;\n";
            }
            else {
                print $FH "      return true;\n";
            }
            print $FH "    }\n";
            print $FH "    return false;\n";
            print $FH "  }\n";
            print $FH "\n";
            print $FH "  public int hashCode ()\n";
            print $FH "  {\n";
            print $FH "    // this method returns always the same value, to force equals() to be called.\n";
            print $FH "    return 0;\n";
            print $FH "  }\n";
            print $FH "\n";
        }
    }
    print $FH "} // class ",$node->{java_name},"\n";
    close $FH;
}

sub _value_factory {    # non-abstract
    my ($self, $node) = @_;

    $self->open_stream($node, 'ValueFactory.java');
    my $FH = $self->{out};
    print $FH "public interface ",$node->{java_name},"ValueFactory extends org.omg.CORBA.portable.ValueFactory\n";
    print $FH "{\n";
    print $FH $self->{value_factory};
    print $FH "}\n";
    close $FH;
}

sub visitRegularValue {
    my $self = shift;
    my ($node) = @_;
    return unless ($self->{srcname} eq $node->{filename});

    $self->{factory} = q{};
    $self->{value_factory} = q{};
    $self->{abstract_methodes} = q{};
    foreach (@{$node->{list_decl}}) {
        $self->_get_defn($_)->visit($self, $node);
    }

    $self->_holder($node);
    $self->_value_helper($node);
    $self->_value($node);
    $self->_value_factory($node) if ($self->{factory});
    $self->_value_helperXML($node) if ($self->can('_value_helperXML'));

    delete $self->{abstract_methodes};
    delete $self->{factory};
    delete $self->{value_factory};
}

sub visitStateMembers {
    # empty
}

sub visitInitializer {
    my $self = shift;
    my ($node, $value) = @_;

    $self->{value_factory} .= $self->_format_javadoc($node);
    $self->{value_factory} .= "  " . $value->{java_name} . " " . $node->{java_proto} . ";\n";

    if ($node->{java_params}) {
        $self->{factory} .= "  public static " . $value->{java_Name} . " " . $node->{java_name} . " (org.omg.CORBA.ORB \$orb, " . $node->{java_params} . ")\n";
    }
    else {
        $self->{factory} .= "  public static " . $value->{java_Name} . " " . $node->{java_name} . " (org.omg.CORBA.ORB \$orb)\n";
    }
    $self->{factory} .= "  {\n";
    $self->{factory} .= "    try {\n";
    $self->{factory} .= "      " . $value->{java_Name} . "ValueFactory \$factory = (" . $value->{java_Name} . "ValueFactory)\n";
    $self->{factory} .= "          ((org.omg.CORBA_2_3.ORB)\$orb).lookup_value_factory (id ());\n";
    $self->{factory} .= "      return \$factory." . $node->{java_call} . ";\n";
    $self->{factory} .= "    } catch (ClassCastException \$ex) {\n";
    $self->{factory} .= "      throw new org.omg.CORBA.BAD_PARAM ();\n";
    $self->{factory} .= "    }\n";
    $self->{factory} .= "  }\n";
    $self->{factory} .= "\n";
}

#
#   3.9.2   Boxed Value Type
#

sub _boxed_holder {     # primitive type
    my $self = shift;
    my ($node, $type) = @_;
    $self->open_stream($node, 'Holder.java');
    my $FH = $self->{out};
    print $FH "public final class ",$node->{java_helper},"Holder implements org.omg.CORBA.portable.Streamable\n";
    print $FH "{\n";
    print $FH "  public ",$type->{java_Name}," value;\n";
    print $FH "\n";
    print $FH "  public ",$node->{java_helper},"Holder ()\n";
    print $FH "  {\n";
    print $FH "    value = ",$type->{java_init},";\n";
    print $FH "  }\n";
    print $FH "\n";
    print $FH "  public ",$node->{java_helper},"Holder (",$type->{java_Name}," initialValue)\n";
    print $FH "  {\n";
    print $FH "    value = initialValue;\n";
    print $FH "  }\n";
    print $FH "\n";
    print $FH "  public void _read (org.omg.CORBA.portable.InputStream \$is)\n";
    print $FH "  {\n";
    print $FH "    value = ",$node->{java_read},".value;\n";
    print $FH "  }\n";
    print $FH "\n";
    print $FH "  public void _write (org.omg.CORBA.portable.OutputStream \$os)\n";
    print $FH "  {\n";
    print $FH "    ",$node->{java_helper}," vb = new ",$node->{java_helper}," (value);\n";
    print $FH "    ",$node->{java_write},"vb);\n";
    print $FH "  }\n";
    print $FH "\n";
    print $FH "  public org.omg.CORBA.TypeCode _type ()\n";
    print $FH "  {\n";
    print $FH "    return ",$node->{java_Helper},".type ();\n";
    print $FH "  }\n";
    print $FH "\n";
    print $FH "}\n";
    close $FH;
}

sub _boxed_helper {
    my ($self, $node, $type, $array, $type2, $array_max) = @_;

    $self->open_stream($node, 'Helper.java');
    my $FH = $self->{out};
    print $FH "public final class ",$node->{java_helper},"Helper implements org.omg.CORBA.portable.BoxedValueHelper\n";
    print $FH "{\n";
    print $FH "  private static java.lang.String _id = \"",$node->{repos_id},"\";\n";
    print $FH "\n";
    print $FH "  private static ",$node->{java_helper},"Helper _instance = new ",$node->{java_helper},"Helper ();\n";
    print $FH "\n";
    print $FH "  public ",$node->{java_helper},"Helper()\n";
    print $FH "  {\n";
    print $FH "  }\n";
    print $FH "\n";
    if (exists $node->{java_primitive}) {
        print $FH "  public static void insert (org.omg.CORBA.Any a, ",$node->{java_Name}," that)\n";
    }
    else {
        print $FH "  public static void insert (org.omg.CORBA.Any a, ",$type->{java_Name},@{$array}," that)\n";
    }
    print $FH "  {\n";
    print $FH "    org.omg.CORBA.portable.OutputStream out = a.create_output_stream ();\n";
    print $FH "    a.type (type ());\n";
    print $FH "    write (out, that);\n";
    print $FH "    a.read_value (out.create_input_stream (), type ());\n";
    print $FH "  }\n";
    print $FH "\n";
    if (exists $node->{java_primitive}) {
        print $FH "  public static ",$node->{java_Name}," extract (org.omg.CORBA.Any a)\n";
    }
    else {
        print $FH "  public static ",$type->{java_Name},@{$array}," extract (org.omg.CORBA.Any a)\n";
    }
    print $FH "  {\n";
    print $FH "    return read (a.create_input_stream ());\n";
    print $FH "  }\n";
    print $FH "\n";
    print $FH "  private static org.omg.CORBA.TypeCode __typeCode = null;\n";
    print $FH "  private static boolean __active = false;\n";
    print $FH "  synchronized public static org.omg.CORBA.TypeCode type ()\n";
    print $FH "  {\n";
    print $FH "    if (__typeCode == null)\n";
    print $FH "    {\n";
    print $FH "      synchronized (org.omg.CORBA.TypeCode.class)\n";
    print $FH "      {\n";
    print $FH "        if (__typeCode == null)\n";
    print $FH "        {\n";
    print $FH "          if (__active)\n";
    print $FH "          {\n";
    print $FH "            return org.omg.CORBA.ORB.init().create_recursive_tc ( ",$node->{java_Helper},".id () );\n";
    print $FH "          }\n";
    print $FH "          __active = true;\n";
    print $FH "          __typeCode = ",$type->{java_type_code},";\n";
    foreach (reverse @{$array_max}) {
        if (defined $_) {
            print $FH "          __typeCode = org.omg.CORBA.ORB.init ().create_sequence_tc (",$_->{java_literal},", __typeCode);\n";
        }
        else {
            print $FH "          __typeCode = org.omg.CORBA.ORB.init ().create_sequence_tc (0, __typeCode);\n";
        }
    }
    print $FH "          __typeCode = org.omg.CORBA.ORB.init ().create_value_box_tc (_id, \"",$node->{java_helper},"\", __typeCode);\n";
    print $FH "          __active = false;\n";
    print $FH "        }\n";
    print $FH "      }\n";
    print $FH "    }\n";
    print $FH "    return __typeCode;\n";
    print $FH "  }\n";
    print $FH "\n";
    print $FH "  public static java.lang.String id ()\n";
    print $FH "  {\n";
    print $FH "    return _id;\n";
    print $FH "  }\n";
    print $FH "\n";
    if (exists $node->{java_primitive}) {
        print $FH "  public static ",$node->{java_Name}," read (org.omg.CORBA.portable.InputStream \$is)\n";
    }
    else {
        print $FH "  public static ",$type->{java_Name},@{$array}," read (org.omg.CORBA.portable.InputStream \$is)\n";
    }
    print $FH "  {\n";
    print $FH "    if (\$is instanceof org.omg.CORBA_2_3.portable.InputStream)\n";
    if (exists $node->{java_primitive}) {
        print $FH "      return (",$node->{java_Name},")((org.omg.CORBA_2_3.portable.InputStream)\$is).read_value (_instance);\n";
    }
    else {
        print $FH "      return (",$type->{java_Name},@{$array},")((org.omg.CORBA_2_3.portable.InputStream)\$is).read_value (_instance);\n";
    }
    print $FH "    else\n";
    print $FH "      throw new org.omg.CORBA.BAD_PARAM ();\n";
    print $FH "  }\n";
    print $FH "\n";
    print $FH "  public java.io.Serializable read_value (org.omg.CORBA.portable.InputStream \$is)\n";
    print $FH "  {\n";
    print $FH "    ",$type->{java_Name},@{$array}," value;\n";
    my @tab = (q{ } x 4);
    my $i = 0;
    my $idx = q{};
    my @array1= @{$array};
    if (exists $node->{array_size}) {
        foreach (@{$node->{array_size}}) {
            pop @array1;
            print $FH @tab,"value",$idx," = new ",$type->{java_Name}," [",$_->{java_literal},"]",@array1,";\n";
            print $FH @tab,"for (int _o",$i," = 0; _o",$i," < (",$_->{java_literal},"); _o",$i,"++)\n";
            print $FH @tab,"{\n";
            $idx .= '[_o' . $i . ']';
            $i ++;
            push @tab, q{ } x 2;
        }
    }
    foreach (@{$array_max}) {
        pop @array1;
        print $FH @tab,"int _len",$i," = \$is.read_long ();\n";
        if (defined $_) {
            print $FH @tab,"if (_len",$i," > (",$_->{java_literal},"))\n";
            print $FH @tab,"  throw new org.omg.CORBA.MARSHAL (0, org.omg.CORBA.CompletionStatus.COMPLETED_MAYBE);\n";
        }
        print $FH @tab,"value",$idx," = new ",$type->{java_Name}," [_len",$i,"]",@array1,";\n";
        print $FH @tab,"for (int _o",$i," = 0; _o",$i," < value",$idx,".length; _o",$i,"++)\n";
        print $FH @tab,"{\n";
        $idx .= '[_o' . $i . ']';
        $i ++;
        push @tab, q{ } x 2;
    }
    print $FH @tab,"value",$idx," = ",$type2->{java_read},";\n";
    if (($type2->isa('StringType') or $type2->isa('WideStringType')) and exists $type2->{max}) {
        print $FH @tab,"if (value",$idx,".length () > (",$type2->{max}->{java_literal},"))\n";
        print $FH @tab,"  throw new org.omg.CORBA.MARSHAL (0, org.omg.CORBA.CompletionStatus.COMPLETED_MAYBE);\n";
    }
    foreach (@{$array_max}) {
        pop @tab;
        print $FH @tab,"}\n";
    }
    if (exists $node->{array_size}) {
        foreach (@{$node->{array_size}}) {
            pop @tab;
            print $FH @tab,"}\n";
        }
    }
    if (exists $node->{java_primitive}) {
        print $FH "    return new ",$node->{java_Name}," (value);\n";
    }
    else {
        print $FH "    return (java.io.Serializable)value;\n";
    }
    print $FH "  }\n";
    print $FH "\n";
    if (exists $node->{java_primitive}) {
        print $FH "  public static void write (org.omg.CORBA.portable.OutputStream \$os, ",$node->{java_Name}," value)\n";
    }
    else {
        print $FH "  public static void write (org.omg.CORBA.portable.OutputStream \$os, ",$type->{java_Name},@{$array}," value)\n";
    }
    print $FH "  {\n";
    print $FH "    if (\$os instanceof org.omg.CORBA_2_3.portable.OutputStream)\n";
    print $FH "      ((org.omg.CORBA_2_3.portable.OutputStream)\$os).write_value (value, _instance);\n";
    print $FH "    else\n";
    print $FH "      throw new org.omg.CORBA.BAD_PARAM ();\n";
    print $FH "  }\n";
    print $FH "\n";
    print $FH "  public void write_value (org.omg.CORBA.portable.OutputStream \$os, java.io.Serializable value)\n";
    print $FH "  {\n";
    if (exists $node->{java_primitive}) {
        print $FH "    if (value instanceof ",$node->{java_Name},")\n";
        print $FH "    {\n";
        print $FH "      ",$node->{java_Name}," valueType = (",$node->{java_Name},")value;\n";
    }
    else {
        print $FH "    if (value instanceof ",$type->{java_Name},@{$array},")\n";
        print $FH "    {\n";
        print $FH "      ",$type->{java_Name},@{$array}," valueType = (",$type->{java_Name},@{$array},")value;\n";
    }
    @tab = (q{ } x 6);
    $i = 0;
    $idx = q{};
    if (exists $node->{array_size}) {
        foreach (@{$node->{array_size}}) {
            print $FH @tab,"if (valueType",$idx,".length != (",$_->{java_literal},"))\n";
            print $FH @tab,"  throw new org.omg.CORBA.MARSHAL (0, org.omg.CORBA.CompletionStatus.COMPLETED_MAYBE);\n";
            print $FH @tab,"for (int _i",$i," = 0; _i",$i," < (",$_->{java_literal},"); _i",$i,"++)\n";
            print $FH @tab,"{\n";
            $idx .= '[_i' . $i . ']';
            $i ++;
            push @tab, q{ } x 2;
        }
    }
    foreach (@{$array_max}) {
        if (defined $_) {
            print $FH @tab,"if (valueType",$idx,".length > (",$_->{java_literal},"))\n";
            print $FH @tab,"  throw new org.omg.CORBA.MARSHAL (0, org.omg.CORBA.CompletionStatus.COMPLETED_MAYBE);\n";
        }
        print $FH @tab,"\$os.write_long (valueType",$idx,".length);\n";
        print $FH @tab,"for (int _i",$i," = 0; _i",$i," < valueType",$idx,".length; _i",$i,"++)\n";
        print $FH @tab,"{\n";
        $idx .= '[_i' . $i . ']';
        $i ++;
        push @tab, q{ } x 2;
    }
    if (($type2->isa('StringType') or $type2->isa('WideStringType')) and exists $type2->{max}) {
        print $FH @tab,"if (valueType",$idx,".length () > (",$type2->{max}->{java_literal},"))\n";
        print $FH @tab,"  throw new org.omg.CORBA.MARSHAL (0, org.omg.CORBA.CompletionStatus.COMPLETED_MAYBE);\n";
    }
    if (exists $node->{java_primitive}) {
        print $FH @tab,$type2->{java_write},"valueType.value);\n";
    }
    else {
        print $FH @tab,$type2->{java_write},"valueType",$idx,");\n";
    }
    foreach (@{$array_max}) {
        pop @tab;
        print $FH @tab,"}\n";
    }
    if (exists $node->{array_size}) {
        foreach (@{$node->{array_size}}) {
            pop @tab;
            print $FH @tab,"}\n";
        }
    }
    print $FH "    } else\n";
    print $FH "      throw new org.omg.CORBA.MARSHAL ();\n";
    print $FH "  }\n";
    print $FH "\n";
    print $FH "  public java.lang.String get_id ()\n";
    print $FH "  {\n";
    print $FH "    return _id;\n";
    print $FH "  }\n";
    print $FH "\n";
    print $FH "}\n";
    close $FH;
}

sub _boxed {        # primitive type
    my ($self, $node, $type) = @_;

    $self->open_stream($node, '.java');
    my $FH = $self->{out};
    print $FH $self->_format_javadoc($node);
    print $FH "public class ",$node->{java_name}," implements org.omg.CORBA.portable.ValueBase\n";
    print $FH "{\n";
    if (exists $node->{serial_uid}) {
        print $FH "  private static final long serialVersionUID = 0x",$node->{serial_uid},"L;\n";
    }
    else {
        print $FH "  private static final long serialVersionUID = 0x",$node->{java_uid},"L;\n";
    }
    print $FH "\n";
    print $FH "  public ",$type->{java_Name}," value;\n";
    print $FH "\n";
    print $FH "  public ",$node->{java_Name}," (",$type->{java_Name}," initial)\n";
    print $FH "  {\n";
    print $FH "    value = initial;\n";
    print $FH "  }\n";
    print $FH "\n";
    print $FH "  private static java.lang.String[] _truncatable_ids = {\n";
    print $FH "    ",$node->{java_Name},"Helper.id ()\n";
    print $FH "  };\n";
    print $FH "\n";
    print $FH "  public java.lang.String[] _truncatable_ids()\n";
    print $FH "  {\n";
    print $FH "    return _truncatable_ids;\n";
    print $FH "  }\n";
    print $FH "\n";
    if ($self->{toString}) {
        print $FH "  public java.lang.String toString ()\n";
        print $FH "  {\n";
        print $FH "    java.lang.StringBuffer _ret = new java.lang.StringBuffer (\"valuebox ",$node->{java_name}," {\");\n";
        print $FH "    _ret.append (\"",$type->{java_Name}," value=\");\n";
        print $FH "    _ret.append (value);\n";
        print $FH "    _ret.append (\"\\n\");\n";
        print $FH "    _ret.append (\"}\");\n";
        print $FH "    return _ret.toString ();\n";
        print $FH "  }\n";
        print $FH "\n";
    }
    if ($self->{equals}) {
        print $FH "  public boolean equals (java.lang.Object o)\n";
        print $FH "  {\n";
        print $FH "    if (this == o) return true;\n";
        print $FH "    if (o == null) return false;\n";
        print $FH "\n";
        print $FH "    if (o instanceof ",$node->{java_name},")\n";
        print $FH "    {\n";
        print $FH "      ",$node->{java_name}," obj = (",$node->{java_name},")o;\n";
        print $FH "      return (this.value == obj.value);\n";
        print $FH "    }\n";
        print $FH "    return false;\n";
        print $FH "  }\n";
        print $FH "\n";
        print $FH "  public int hashCode ()\n";
        print $FH "  {\n";
        print $FH "    // this method returns always the same value, to force equals() to be called.\n";
        print $FH "    return 0;\n";
        print $FH "  }\n";
        print $FH "\n";
    }
    print $FH "} // class ",$node->{java_name},"\n";
    close $FH;
}

sub visitBoxedValue {
    my $self = shift;
    my ($node) = @_;
    return unless ($self->{srcname} eq $node->{filename});

    my $type = $self->_get_defn($node->{type});
    if (       $type->isa('StructType')
            or $type->isa('UnionType')
            or $type->isa('EnumType') ) {
        $type->visit($self);
    }
    if (exists $node->{java_primitive}) {
        $self->_boxed_holder($node, $type);
        $self->_boxed($node, $type);
        $self->_boxed_helper($node, $type, [], $type, []);
        $self->_boxed_helperXML($node, $type, [], $type, [])
                if ($self->can("_boxed_helperXML"));
    }
    else {
        my @array = ();
        my @array_max = ();
        while (     $type->isa('TypeDeclarator')
                and ! exists $type->{array_size} ) {
            $type = $self->_get_defn($type->{type});
        }
        while ($type->isa('SequenceType')) {
            push @array, '[]';
            if (exists $type->{max}) {
                push @array_max, $type->{max};
            }
            else {
                push @array_max, undef;
            }
            $type = $self->_get_defn($type->{type});
            while (     $type->isa('TypeDeclarator')
                    and ! exists $type->{array_size} ) {
                $type = $self->_get_defn($type->{type});
            }
        }
        my $type2 = $type;
        while ($type->isa('TypeDeclarator')) {
            foreach (@{$type->{array_size}}) {
                push @array, '[]';
            }
            $type = $self->_get_defn($type->{type});
        }
        while ($type->isa('SequenceType')) {
            push @array, '[]';
            if (exists $type->{max}) {
                push @array_max, $type->{max};
            }
            else {
                push @array_max, undef;
            }
            $type = $self->_get_defn($type->{type});
            while (     $type->isa('TypeDeclarator')
                    and ! exists $type->{array_size} ) {
                $type = $self->_get_defn($type->{type});
            }
        }
        $self->_holder($node, $type, @array);
        $self->_boxed_helper($node, $type, \@array, $type2, \@array_max);
        $self->_boxed_helperXML($node, $type, \@array, $type2, \@array_max)
                if ($self->can('_boxed_helperXML'));
    }
}

#
#   3.9.3   Abstract Value Type
#

sub visitAbstractValue {
    my $self = shift;
    my ($node) = @_;
    return unless ($self->{srcname} eq $node->{filename});

    $self->{factory} = q{};
    $self->{value_factory} = q{};
    $self->{abstract_methodes} = q{};
    foreach (@{$node->{list_decl}}) {
        $self->_get_defn($_)->visit($self, $node);
    }

    $self->_holder($node);
    $self->_value_helper($node);
    $self->_value($node);
    $self->_value_helperXML($node) if ($self->can('_value_helperXML'));

    delete $self->{abstract_methodes};
    delete $self->{factory};
    delete $self->{value_factory};
}

#
#   3.10    Constant Declaration
#

sub visitConstant {
    my $self = shift;
    my ($node) = @_;
    return unless ($self->{srcname} eq $node->{filename});
    my $type = $self->_get_defn($node->{type});
    while (     $type->isa('TypeDeclarator')
            and ! exists $type->{array_size} ) {
        $type = $self->_get_defn($type->{type});
    }
    my $value = $node->{value};
    my $defn;
    my $pkg = $node->{full};
    $pkg =~ s/::[0-9A-Z_a-z]+$//;
    $defn = $self->{symbtab}->Lookup($pkg) if ($pkg);
    if ( defined $defn and $defn->isa('BaseInterface') ) {
        $self->{constants} .= $self->_format_javadoc($node);
        $self->{constants} .= "  public static final " . $type->{java_Name} . " " . $node->{java_name} . " = ";
        if (       $type->isa('FloatingPtType')
                or $type->isa('IntegerType')
                or $type->isa('CharType')
                or $type->isa('WideCharType')
                or $type->isa('StringType')
                or $type->isa('WideStringType')
                or $type->isa('BooleanType')
                or $type->isa('OctetType')
                or $type->isa('EnumType') ) {
            $self->{constants} .= $value->{java_literal} . ";\n";
        }
        else {
            $self->{constants} .= "new " . $type->{java_Name} . " (" . $value->{java_literal} . ");\n";
        }
    }
    else {
        $self->open_stream($node, '.java');
        my $FH = $self->{out};
        print $FH $self->_format_javadoc($node);
        print $FH "public interface ",$node->{java_name},"\n";
        print $FH "{\n";
        print $FH "  public static final ",$type->{java_Name}," value = ";
        if (       $type->isa('FloatingPtType')
                or $type->isa('IntegerType')
                or $type->isa('CharType')
                or $type->isa('WideCharType')
                or $type->isa('StringType')
                or $type->isa('WideStringType')
                or $type->isa('BooleanType')
                or $type->isa('OctetType')
                or $type->isa('EnumType') ) {
            print $FH $value->{java_literal},";\n";
        }
        else {
            print $FH "new ",$type->{java_Name}," (",$value->{java_literal},");\n";
        }
        print $FH "}\n";
        close $FH;
    }
}

#
#   3.11    Type Declaration
#

sub visitTypeDeclarators {
    my $self = shift;
    my ($node) = @_;
    foreach (@{$node->{list_decl}}) {
        $self->_get_defn($_)->visit($self);
    }
}

sub _typedeclarator_helper {
    my ($self, $node, $type, $array, $type2, $array_max) = @_;

    $self->open_stream($node, 'Helper.java');
    my $FH = $self->{out};
    print $FH $self->_format_javadoc($node);
    print $FH "abstract public class ",$node->{java_helper},"Helper\n";
    print $FH "{\n";
    print $FH "  private static java.lang.String _id = \"",$node->{repos_id},"\";\n";
    print $FH "\n";
    print $FH "  public static void insert (org.omg.CORBA.Any a, ",$type->{java_Name},@{$array}," that)\n";
    print $FH "  {\n";
    print $FH "    org.omg.CORBA.portable.OutputStream out = a.create_output_stream ();\n";
    print $FH "    a.type (type ());\n";
    print $FH "    write (out, that);\n";
    print $FH "    a.read_value (out.create_input_stream (), type ());\n";
    print $FH "  }\n";
    print $FH "\n";
    print $FH "  public static ",$type->{java_Name},@{$array}," extract (org.omg.CORBA.Any a)\n";
    print $FH "  {\n";
    print $FH "    return read (a.create_input_stream ());\n";
    print $FH "  }\n";
    print $FH "\n";
    print $FH "  private static org.omg.CORBA.TypeCode __typeCode = null;\n";
##  print $FH "  private static boolean __active = false;\n";
    print $FH "  synchronized public static org.omg.CORBA.TypeCode type ()\n";
    print $FH "  {\n";
    print $FH "    if (__typeCode == null)\n";
    print $FH "    {\n";
##  print $FH "      synchronized (org.omg.CORBA.TypeCode.class)\n";
##  print $FH "      {\n";
##  print $FH "        if (__typeCode == null)\n";
##  print $FH "        {\n";
##  print $FH "          if (__active)\n";
##  print $FH "          {\n";
##  print $FH "            return org.omg.CORBA.ORB.init().create_recursive_tc ( ",$node->{java_Helper},".id () );\n";
##  print $FH "          }\n";
##  print $FH "          __active = true;\n";
    print $FH "          __typeCode = ",$type->{java_type_code},";\n";
    foreach (reverse @{$array_max}) {
        if (defined $_) {
            print $FH "          __typeCode = org.omg.CORBA.ORB.init ().create_sequence_tc (",$_->{java_literal},", __typeCode);\n";
        }
        else {
            print $FH "          __typeCode = org.omg.CORBA.ORB.init ().create_sequence_tc (0, __typeCode);\n";
        }
    }
    if (exists $node->{array_size}) {
        foreach (@{$node->{array_size}}) {
            print $FH "          __typeCode = org.omg.CORBA.ORB.init ().create_array_tc (",$_->{java_literal},", __typeCode );\n";
        }
    }
    print $FH "          __typeCode = org.omg.CORBA.ORB.init ().create_alias_tc (",$node->{java_Helper},".id (), \"",$node->{java_helper},"\", __typeCode);\n";
##  print $FH "          __active = false;\n";
##  print $FH "        }\n";
##  print $FH "      }\n";
    print $FH "    }\n";
    print $FH "    return __typeCode;\n";
    print $FH "  }\n";
    print $FH "\n";
    print $FH "  public static java.lang.String id ()\n";
    print $FH "  {\n";
    print $FH "    return _id;\n";
    print $FH "  }\n";
    print $FH "\n";
    print $FH "  public static ",$type->{java_Name},@{$array}," read (org.omg.CORBA.portable.InputStream \$is)\n";
    print $FH "  {\n";
    if (scalar(@{$array})) {
        print $FH "    ",$type->{java_Name}," value",@{$array}," = null;\n";
    }
    else {
        print $FH "    ",$type->{java_Name}," value = ",$type->{java_init},";\n";
    }
    my @tab = (q{ } x 4);
    my $i = 0;
    my $idx = q{};
    my @array1= @{$array};
    if (exists $node->{array_size}) {
        foreach (@{$node->{array_size}}) {
            pop @array1;
            print $FH @tab,"value",$idx," = new ",$type->{java_Name}," [",$_->{java_literal},"]",@array1,";\n";
            print $FH @tab,"for (int _o",$i," = 0; _o",$i," < (",$_->{java_literal},"); _o",$i,"++)\n";
            print $FH @tab,"{\n";
            $idx .= '[_o' . $i . ']';
            $i ++;
            push @tab, q{ } x 2;
        }
    }
    foreach (@{$array_max}) {
        pop @array1;
        print $FH @tab,"int _len",$i," = \$is.read_long ();\n";
        if (defined $_) {
            print $FH @tab,"if (_len",$i," > (",$_->{java_literal},"))\n";
            print $FH @tab,"  throw new org.omg.CORBA.MARSHAL (0, org.omg.CORBA.CompletionStatus.COMPLETED_MAYBE);\n";
        }
        print $FH @tab,"value",$idx," = new ",$type->{java_Name}," [_len",$i,"]",@array1,";\n";
        print $FH @tab,"for (int _o",$i," = 0; _o",$i," < value",$idx,".length; _o",$i,"++)\n";
        print $FH @tab,"{\n";
        $idx .= '[_o' . $i . ']';
        $i ++;
        push @tab, q{ } x 2;
    }
    print $FH @tab,"value",$idx," = ",$type2->{java_read},";\n";
    if (($type2->isa('StringType') or $type2->isa('WideStringType')) and exists $type2->{max}) {
        print $FH @tab,"if (value",$idx,".length () > (",$type2->{max}->{java_literal},"))\n";
        print $FH @tab,"  throw new org.omg.CORBA.MARSHAL (0, org.omg.CORBA.CompletionStatus.COMPLETED_MAYBE);\n";
    }
    foreach (@{$array_max}) {
        pop @tab;
        print $FH @tab,"}\n";
    }
    if (exists $node->{array_size}) {
        foreach (@{$node->{array_size}}) {
            pop @tab;
            print $FH @tab,"}\n";
        }
    }
    print $FH "    return value;\n";
    print $FH "  }\n";
    print $FH "\n";
    print $FH "  public static void write (org.omg.CORBA.portable.OutputStream \$os, ",$type->{java_Name},@{$array}," value)\n";
    print $FH "  {\n";
    @tab = (q{ } x 4);
    $i = 0;
    $idx = q{};
    if (exists $node->{array_size}) {
        foreach (@{$node->{array_size}}) {
            print $FH @tab,"if (value",$idx,".length != (",$_->{java_literal},"))\n";
            print $FH @tab,"  throw new org.omg.CORBA.MARSHAL (0, org.omg.CORBA.CompletionStatus.COMPLETED_MAYBE);\n";
            print $FH @tab,"for (int _i",$i," = 0; _i",$i," < (",$_->{java_literal},"); _i",$i,"++)\n";
            print $FH @tab,"{\n";
            $idx .= '[_i' . $i . ']';
            $i ++;
            push @tab, q{ } x 2;
        }
    }
    foreach (@{$array_max}) {
        if (defined $_) {
            print $FH @tab,"if (value",$idx,".length > (",$_->{java_literal},"))\n";
            print $FH @tab,"  throw new org.omg.CORBA.MARSHAL (0, org.omg.CORBA.CompletionStatus.COMPLETED_MAYBE);\n";
        }
        print $FH @tab,"\$os.write_long (value",$idx,".length);\n";
        print $FH @tab,"for (int _i",$i," = 0; _i",$i," < value",$idx,".length; _i",$i,"++)\n";
        print $FH @tab,"{\n";
        $idx .= '[_i' . $i . ']';
        $i ++;
        push @tab, q{ } x 2;
    }
    if (($type2->isa('StringType') or $type2->isa('WideStringType')) and exists $type2->{max}) {
        print $FH @tab,"if (value",$idx,".length () > (",$type2->{max}->{java_literal},"))\n";
        print $FH @tab,"  throw new org.omg.CORBA.MARSHAL (0, org.omg.CORBA.CompletionStatus.COMPLETED_MAYBE);\n";
    }
    print $FH @tab,$type2->{java_write},"value",$idx,");\n";
    foreach (@{$array_max}) {
        pop @tab;
        print $FH @tab,"}\n";
    }
    if (exists $node->{array_size}) {
        foreach (@{$node->{array_size}}) {
            pop @tab;
            print $FH @tab,"}\n";
        }
    }
    print $FH "  }\n";
    print $FH "\n";
    print $FH "}\n";
    close $FH;
}

sub visitTypeDeclarator {
    my $self = shift;
    my ($node) = @_;
    return unless ($self->{srcname} eq $node->{filename});
    my $type = $self->_get_defn($node->{type});
    if (       $type->isa('StructType')
            or $type->isa('UnionType')
            or $type->isa('EnumType') ) {
        $type->visit($self);
    }
    while (     $type->isa('TypeDeclarator')
            and ! exists $type->{array_size} ) {
        $type = $self->_get_defn($type->{type});
    }
    my @array_max = ();
    my @array = ();
    while ($type->isa('SequenceType')) {
        push @array, '[]';
        if (exists $type->{max}) {
            push @array_max, $type->{max};
        }
        else {
            push @array_max, undef;
        }
        $type = $self->_get_defn($type->{type});
        while (     $type->isa('TypeDeclarator')
                and ! exists $type->{array_size} ) {
            $type = $self->_get_defn($type->{type});
        }
    }
    my $type2 = $type;

    if (exists $node->{array_size} or exists $type->{array_size} or scalar(@array)) {
        if (exists $node->{array_size}) {
            foreach (@{$node->{array_size}}) {
                push @array, '[]';
            }
        }
        while ($type->isa('TypeDeclarator')) {
            foreach (@{$type->{array_size}}) {
                push @array, '[]';
            }
            $type = $self->_get_defn($type->{type});
        }
        while ($type->isa('SequenceType')) {
            push @array, '[]';
            $type = $self->_get_defn($type->{type});
            while (     $type->isa('TypeDeclarator')
                    and ! exists $type->{array_size} ) {
                $type = $self->_get_defn($type->{type});
            }
        }
        $self->_holder($node, $type, @array);
        $self->_typedeclarator_helper($node, $type, \@array, $type2, \@array_max);
        $self->_typedeclarator_helperXML($node, $type, \@array, $type2, \@array_max)
                if ($self->can('_typedeclarator_helperXML'));
    }
    else {
        while (     $type->isa('TypeDeclarator')
                and ! exists $type->{array_size} ) {
            $type = $self->_get_defn($type->{type});
        }
        $self->_typedeclarator_helper($node, $type, \@array, $type2, \@array_max);
        $self->_typedeclarator_helperXML($node, $type, \@array, $type2, \@array_max)
                if ($self->can('_typedeclarator_helperXML'));
    }
}

sub _native_helper {
    my ($self, $node) = @_;

    $self->open_stream($node, 'Helper.java');
    my $FH = $self->{out};
    print $FH "abstract public class ",$node->{java_helper},"Helper\n";
    print $FH "{\n";
    print $FH "  private static java.lang.String _id = \"",$node->{repos_id},"\";\n";
    print $FH "\n";
    print $FH "  public static void insert (org.omg.CORBA.Any a, ",$node->{java_Name}," that)\n";
    print $FH "  {\n";
    print $FH "    throw new org.omg.CORBA.MARSHAL();\n";
    print $FH "  }\n";
    print $FH "\n";
    print $FH "  public static ",$node->{java_Name}," extract (org.omg.CORBA.Any a)\n";
    print $FH "  {\n";
    print $FH "    throw new org.omg.CORBA.MARSHAL();\n";
    print $FH "  }\n";
    print $FH "\n";
    print $FH "  private static org.omg.CORBA.TypeCode __typeCode = null;\n";
    print $FH "  synchronized public static org.omg.CORBA.TypeCode type ()\n";
    print $FH "  {\n";
    print $FH "    if (__typeCode == null)\n";
    print $FH "    {\n";
    print $FH "      __typeCode = org.omg.CORBA.ORB.init ().get_primitive_tc (org.omg.CORBA.TCKind.tk_objref);\n";
    print $FH "      __typeCode = org.omg.CORBA.ORB.init ().create_alias_tc (",$node->{java_Helper},".id (), \"",$node->{java_helper},"\", __typeCode);\n";
    print $FH "    }\n";
    print $FH "    return __typeCode;\n";
    print $FH "  }\n";
    print $FH "\n";
    print $FH "  public static java.lang.String id ()\n";
    print $FH "  {\n";
    print $FH "    return _id;\n";
    print $FH "  }\n";
    print $FH "\n";
    print $FH "  public static ",$node->{java_Name}," read (org.omg.CORBA.portable.InputStream \$is)\n";
    print $FH "  {\n";
    print $FH "    throw new org.omg.CORBA.MARSHAL();\n";
    print $FH "  }\n";
    print $FH "\n";
    print $FH "  public static void write (org.omg.CORBA.portable.OutputStream \$os, ",$node->{java_Name}," value)\n";
    print $FH "  {\n";
    print $FH "    throw new org.omg.CORBA.MARSHAL();\n";
    print $FH "  }\n";
    print $FH "\n";
    print $FH "}\n";
    close $FH;
}

sub visitNativeType {
    my $self = shift;
    my ($node) = @_;
    return unless ($self->{srcname} eq $node->{filename});
    $self->_native_helper($node);
}

#
#   3.11.2  Constructed Types
#
#   3.11.2.1    Structures
#

sub _struct_helper {
    my ($self, $node) = @_;

    $self->open_stream($node, 'Helper.java');
    my $FH = $self->{out};
    print $FH "abstract public class ",$node->{java_helper},"Helper\n";
    print $FH "{\n";
    print $FH "  private static java.lang.String _id = \"",$node->{repos_id},"\";\n";
    print $FH "\n";
    print $FH "  public static void insert (org.omg.CORBA.Any a, ",$node->{java_Name}," that)\n";
    print $FH "  {\n";
    print $FH "    org.omg.CORBA.portable.OutputStream out = a.create_output_stream ();\n";
    print $FH "    a.type (type ());\n";
    print $FH "    write (out, that);\n";
    print $FH "    a.read_value (out.create_input_stream (), type ());\n";
    print $FH "  }\n";
    print $FH "\n";
    print $FH "  public static ",$node->{java_Name}," extract (org.omg.CORBA.Any a)\n";
    print $FH "  {\n";
    print $FH "    return read (a.create_input_stream ());\n";
    print $FH "  }\n";
    print $FH "\n";
    print $FH "  private static org.omg.CORBA.TypeCode __typeCode = null;\n";
    print $FH "  private static boolean __active = false;\n";
    print $FH "  synchronized public static org.omg.CORBA.TypeCode type ()\n";
    print $FH "  {\n";
    print $FH "    if (__typeCode == null)\n";
    print $FH "    {\n";
    print $FH "      synchronized (org.omg.CORBA.TypeCode.class)\n";
    print $FH "      {\n";
    print $FH "        if (__typeCode == null)\n";
    print $FH "        {\n";
    print $FH "          if (__active)\n";
    print $FH "          {\n";
    print $FH "            return org.omg.CORBA.ORB.init().create_recursive_tc ( ",$node->{java_Helper},".id () );\n";
    print $FH "          }\n";
    print $FH "          __active = true;\n";
    print $FH "          org.omg.CORBA.StructMember[] _members0 = new org.omg.CORBA.StructMember [",scalar(@{$node->{list_member}}),"];\n";
    print $FH "          org.omg.CORBA.TypeCode _tcOf_members0 = null;\n";
    my $i = 0;
    foreach (@{$node->{list_member}}) {
        my $member = $self->_get_defn($_);
        $self->_member_helper_type($member, $node, $i);
        $i ++;
    }
    print $FH "          __typeCode = org.omg.CORBA.ORB.init ().create_struct_tc (_id, \"",$node->{java_name},"\", _members0);\n";
    print $FH "          __active = false;\n";
    print $FH "        }\n";
    print $FH "      }\n";
    print $FH "    }\n";
    print $FH "    return __typeCode;\n";
    print $FH "  }\n";
    print $FH "\n";
    print $FH "  public static java.lang.String id ()\n";
    print $FH "  {\n";
    print $FH "    return _id;\n";
    print $FH "  }\n";
    print $FH "\n";
    print $FH "  public static ",$node->{java_Name}," read (org.omg.CORBA.portable.InputStream \$is)\n";
    print $FH "  {\n";
    print $FH "    ",$node->{java_Name}," value = new ",$node->{java_Name}," ();\n";
    my $idx = 0;
    foreach (@{$node->{list_member}}) {
        my $member = $self->_get_defn($_);
        $self->_member_helper_read($member, $node, \$idx);
    }
    print $FH "    return value;\n";
    print $FH "  }\n";
    print $FH "\n";
    print $FH "  public static void write (org.omg.CORBA.portable.OutputStream \$os, ",$node->{java_Name}," value)\n";
    print $FH "  {\n";
    $idx = 0;
    foreach (@{$node->{list_member}}) {
        my $member = $self->_get_defn($_);
        $self->_member_helper_write($member, $node, \$idx);
    }
    print $FH "  }\n";
    print $FH "\n";
    print $FH "}\n";
    close $FH;
}

sub _struct {
    my ($self, $node) = @_;

    $self->open_stream($node, '.java');
    my $FH = $self->{out};
    print $FH $self->_format_javadoc($node);
    print $FH "public final class ",$node->{java_name}," implements org.omg.CORBA.portable.IDLEntity\n";
    print $FH "{\n";
    if (exists $node->{serial_uid}) {
        print $FH "  private static final long serialVersionUID = 0x",$node->{serial_uid},"L;\n";
    }
    else {
        print $FH "  private static final long serialVersionUID = 0x",$node->{java_uid},"L;\n";
    }
    print $FH "\n";
    foreach (@{$node->{list_member}}) {
        my $member = $self->_get_defn($_);
        print $FH $self->_format_javadoc($member);
        print $FH "  public ",$member->{java_type}," ",$member->{java_name},";\n";
    }
    print $FH "\n";
    print $FH "  public ",$node->{java_name}," ()\n";
    print $FH "  {\n";
    foreach (@{$node->{list_member}}) {
        my $member = $self->_get_defn($_);
        print $FH "    ",$member->{java_name}," = ",$member->{java_init},";\n";
    }
    print $FH "  }\n";
    print $FH "\n";
    print $FH "  public ",$node->{java_name}," (";
    my $first = 1;
    foreach (@{$node->{list_member}}) {
        my $member = $self->_get_defn($_);
        print $FH ", " unless ($first);
        print $FH $member->{java_type}," _",$member->{java_name};
        $first = 0;
    }
    print $FH ")\n";
    print $FH "  {\n";
    foreach (@{$node->{list_member}}) {
        my $member = $self->_get_defn($_);
        print $FH "    ",$member->{java_name}," = _",$member->{java_name},";\n";
    }
    print $FH "  }\n";
    print $FH "\n";
    if ($self->{toString}) {
        print $FH "  public java.lang.String toString ()\n";
        print $FH "  {\n";
        print $FH "    java.lang.StringBuffer _ret = new java.lang.StringBuffer (\"struct ",$node->{java_name}," {\");\n";
        $first = 1;
        my $idx = 0;
        foreach (@{$node->{list_member}}) {
            my $member = $self->_get_defn($_);
            if ($first) {
                $first = 0;
            }
            else {
                print $FH "    _ret.append (\",\");\n";
            }
            $self->_member_toString($member, $node, \$idx);
        }
        print $FH "    _ret.append (\"\\n}\");\n";
        print $FH "    return _ret.toString ();\n";
        print $FH "  }\n";
        print $FH "\n";
    }
    if ($self->{equals}) {
        print $FH "  public boolean equals (java.lang.Object o)\n";
        print $FH "  {\n";
        print $FH "    if (this == o) return true;\n";
        print $FH "    if (o == null) return false;\n";
        print $FH "\n";
        print $FH "    if (o instanceof ",$node->{java_name},")\n";
        print $FH "    {\n";
        print $FH "      ",$node->{java_name}," obj = (",$node->{java_name},")o;\n";
        print $FH "      boolean res;\n";
        $first = 1;
        my $idx = 0;
        foreach (@{$node->{list_member}}) {
            my $member = $self->_get_defn($_);
            if ($first) {
                $first = 0;
            }
            else {
                print $FH "      if (!res) return false;\n";
            }
            $self->_member_equals($member, $node, \$idx);
        }
        print $FH "      return res;\n";
        print $FH "    }\n";
        print $FH "    return false;\n";
        print $FH "  }\n";
        print $FH "\n";
        print $FH "  public int hashCode ()\n";
        print $FH "  {\n";
        print $FH "    // this method returns always the same value, to force equals() to be called.\n";
        print $FH "    return 0;\n";
        print $FH "  }\n";
        print $FH "\n";
    }
    print $FH "} // class ",$node->{java_name},"\n";
    close $FH;
}

sub visitStructType {
    my $self = shift;
    my ($node) = @_;
    return unless ($self->{srcname} eq $node->{filename});
    return if (exists $self->{done_hash}->{$node->{java_Name}});
    $self->{done_hash}->{$node->{java_Name}} = 1;
    foreach (@{$node->{list_expr}}) {
        my $type = $self->_get_defn($_->{type});
        if (       $type->isa('StructType')
                or $type->isa('UnionType') ) {
            $type->visit($self);
        }
    }

    $self->_holder($node);
    $self->_struct_helper($node);
    $self->_struct($node);
    $self->_struct_helperXML($node) if ($self->can('_struct_helperXML'));
}

sub _member_helper_type {
    my $self = shift;
    my ($member, $parent, $i) = @_;

    my $FH = $self->{out};
    my $tab = '          ';
    my $type = $self->_get_defn($member->{type});
    my @array_max = ();
    while ($type->isa('SequenceType')) {
        if (exists $type->{max}) {
            push @array_max, $type->{max};
        }
        else {
            push @array_max, undef;
        }
        $type = $self->_get_defn($type->{type});
        while ($type->isa('TypeDeclarator')) {
            $type = $self->_get_defn($type->{type});
        }
    }
    print $FH $tab,"_tcOf_members0 = ",$type->{java_type_code},";\n";
    foreach (reverse @array_max) {
        if (defined $_) {
            print $FH $tab,"_tcOf_members0 = org.omg.CORBA.ORB.init ().create_sequence_tc (",$_->{java_literal},", _tcOf_members0);\n";
        }
        else {
            print $FH $tab,"_tcOf_members0 = org.omg.CORBA.ORB.init ().create_sequence_tc (0, _tcOf_members0);\n";
        }
    }
    if (exists $member->{array_size}) {
        foreach (@{$member->{array_size}}) {
            print $FH $tab,"_tcOf_members0 = org.omg.CORBA.ORB.init ().create_array_tc (",$_->{java_literal},", _tcOf_members0 );\n";
        }
    }
    if    ($parent->isa('Value')) {
        print $FH $tab,"_members0[",$i,"] = new org.omg.CORBA.ValueMember (\n";
    }
    elsif ($parent->isa('UnionType')) {
        print $FH $tab,"_members0[",$i,"] = new org.omg.CORBA.UnionMember (\n";
    }
    else {  # StructType or ExceptionType
        print $FH $tab,"_members0[",$i,"] = new org.omg.CORBA.StructMember (\n";
    }
    print $FH $tab,"  \"",$member->{java_name},"\",\n";
    if    ($parent->isa('Value')) {
        print $FH $tab,"  \"\",\n";
        print $FH $tab,"  _id,\n";
        print $FH $tab,"  \"\",\n";
    }
    elsif ($parent->isa('UnionType')) {
        print $FH $tab,"  _anyOf_members0,\n";
    }
    print $FH $tab,"  _tcOf_members0,\n";
    if      ($parent->isa('Value')) {
        my $mod = ($member->{modifier} eq "private") ? "PRIVATE_MEMBER" : "PUBLIC_MEMBER";
        print $FH $tab,"  null,\n";
        print $FH $tab,"  org.omg.CORBA.",$mod,".value);\n";
    }
    else {
        print $FH $tab,"  null);\n";
    }
}

sub _member_helper_read {
    my $self = shift;
    my ($member, $parent, $r_idx) = @_;

    my $FH = $self->{out};
    my $label = q{};
    unless ($member->isa('StateMember')) {
        if ($parent->isa('UnionType')) {
            $label = '_';
        }
        else {  # StructType or ExceptionType
            $label = 'value.';
        }
    }
    my $type = $self->_get_defn($member->{type});
    my $typeh = $type;
    my $name = $member->{java_name};
    my @tab = (q{ } x 4);
    push @tab, q{ } x 4 if ($parent->isa('UnionType'));
    my $idx = q{};
    my @array1 = ();
    if (exists $member->{array_size}) {
        foreach (@{$member->{array_size}}) {
            push @array1, '[]';
        }
    }
    my @array_max = ();
    while ($type->isa('SequenceType')) {
        push @array1, '[]';
        $type = $self->_get_defn($type->{type});
        while ($type->isa('TypeDeclarator')) {
            if (exists $type->{array_size}) {
                foreach (@{$type->{array_size}}) {
                    push @array1, '[]';
                }
            }
            $type = $self->_get_defn($type->{type});
        }
    }
    while ($typeh->isa('SequenceType')) {
        if (exists $typeh->{max}) {
            push @array_max, $typeh->{max};
        }
        else {
            push @array_max, undef;
        }
        $typeh = $self->_get_defn($typeh->{type});
    }
    if ($parent->isa('UnionType')) {
        print $FH @tab,$member->{java_type}," _",$member->{java_name}," = ",$member->{java_init},";\n";
    }
    if (exists $member->{array_size}) {
        my $java_array = $member->{java_array};
        foreach (@{$member->{array_size}}) {
            $java_array =~ s/^\[\]/\[$_->{java_literal}\]/;
            if ($parent->isa('UnionType')) {
                print $FH @tab,"_",$name,$idx," = new ",$member->{type_java}->{java_Name}," ",$java_array,";\n";
            }
            else {  # StructType or ExceptionType
                print $FH @tab,$label,$name,$idx," = new ",$member->{type_java}->{java_Name}," ",$java_array,";\n";
            }
            print $FH @tab,"for (int _o",$$r_idx," = 0; _o",$$r_idx," < (",$_->{java_literal},"); _o",$$r_idx,"++)\n";
            print $FH @tab,"{\n";
            $java_array =~ s/^\[[^\]]+\]//;
            pop @array1;
            $idx .= '[_o' . $$r_idx . ']';
            $$r_idx ++;
            push @tab, q{ } x 2;
        }
    }
    foreach (@array_max) {
        pop @array1;
        print $FH @tab,"int _len",$$r_idx," = \$is.read_long ();\n";
        if (defined $_) {
            print $FH @tab,"if (_len",$$r_idx," > (",$_->{java_literal},"))\n";
            print $FH @tab,"  throw new org.omg.CORBA.MARSHAL (0, org.omg.CORBA.CompletionStatus.COMPLETED_MAYBE);\n";
        }
        if ($parent->isa('UnionType')) {
            print $FH @tab,"_",$name,$idx," = new ",$type->{java_Name}," [_len",$$r_idx,"]",@array1,";\n";
        }
        else {  # StructType or ExceptionType
            print $FH @tab,$label,$name,$idx," = new ",$type->{java_Name}," [_len",$$r_idx,"]",@array1,";\n";
        }
        print $FH @tab,"for (int _o",$$r_idx," = 0; _o",$$r_idx," < ",$label,$name,$idx,".length; _o",$$r_idx,"++)\n";
        print $FH @tab,"{\n";
        $idx .= '[_o' . $$r_idx . ']';
        $$r_idx ++;
        push @tab, q{ } x 2;
    }
    if ($parent->isa('UnionType')) {
        print $FH @tab,"_",$name,$idx," = ",$typeh->{java_read},";\n";
    }
    else {  # StructType or ExceptionType
        print $FH @tab,$label,$name,$idx," = ",$typeh->{java_read},";\n";
    }
    if (($type->isa('StringType') or $type->isa('WideStringType')) and exists $type->{max}) {
        print $FH @tab,"if (",$label,$name,$idx,".length () > (",$type->{max}->{java_literal},"))\n";
        print $FH @tab,"  throw new org.omg.CORBA.MARSHAL (0, org.omg.CORBA.CompletionStatus.COMPLETED_MAYBE);\n";
    }
    foreach (@array_max) {
        pop @tab;
        print $FH @tab,"}\n";
    }
    if (exists $member->{array_size}) {
        foreach (@{$member->{array_size}}) {
            pop @tab;
            print $FH @tab,"}\n";
        }
    }
}

sub _member_helper_write {
    my $self = shift;
    my ($member, $parent, $r_idx) = @_;

    my $FH = $self->{out};
    my $label = ($member->isa('StateMember')) ? q{} : 'value.';
    my $len = ($parent->isa('UnionType')) ? ' ()' : q{};
    my $type = $self->_get_defn($member->{type});
    my $typeh = $type;
    my $name = $member->{java_name};
    my @tab = (q{ } x 4);
    push @tab, q{ } x 4 if ($parent->isa('UnionType'));
    my $idx = q{};
    if (exists $member->{array_size}) {
        foreach (@{$member->{array_size}}) {
            print $FH @tab,"if (",$label,$name,$len,$idx,".length != (",$_->{java_literal},"))\n";
            print $FH @tab,"  throw new org.omg.CORBA.MARSHAL (0, org.omg.CORBA.CompletionStatus.COMPLETED_MAYBE);\n";
            print $FH @tab,"for (int _i",$$r_idx," = 0; _i",$$r_idx," < (",$_->{java_literal},"); _i",$$r_idx,"++)\n";
            print $FH @tab,"{\n";
            $idx .= '[_i' . $$r_idx . ']';
            $$r_idx ++;
            push @tab, q{ } x 2;
        }
    }
    my @array_max = ();
    while ($type->isa('SequenceType')) {
        $type = $self->_get_defn($type->{type});
        while ($type->isa('TypeDeclarator')) {
            $type = $self->_get_defn($type->{type});
        }
    }
    while ($typeh->isa('SequenceType')) {
        if (exists $typeh->{max}) {
            push @array_max, $typeh->{max};
        }
        else {
            push @array_max, undef;
        }
        $typeh = $self->_get_defn($typeh->{type});
    }
    foreach (@array_max) {
        if (defined $_) {
            print $FH @tab,"if (",$label,$name,$len,$idx,".length > (",$_->{java_literal},"))\n";
            print $FH @tab,"  throw new org.omg.CORBA.MARSHAL (0, org.omg.CORBA.CompletionStatus.COMPLETED_MAYBE);\n";
        }
        print $FH @tab,"\$os.write_long (",$label,$name,$len,$idx,".length);\n";
        print $FH @tab,"for (int _i",$$r_idx," = 0; _i",$$r_idx," < ",$label,$name,$len,$idx,".length; _i",$$r_idx,"++)\n";
        print $FH @tab,"{\n";
        $idx .= '[_i' . $$r_idx . ']';
        $$r_idx ++;
        push @tab, q{ } x 2;
    }
    if (($type->isa('StringType') or $type->isa('WideStringType')) and exists $type->{max}) {
        print $FH @tab,"if (",$label,$name,$len,$idx,".length () > (",$type->{max}->{java_literal},"))\n";
        print $FH @tab,"  throw new org.omg.CORBA.MARSHAL (0, org.omg.CORBA.CompletionStatus.COMPLETED_MAYBE);\n";
    }
    if ($parent->isa('UnionType')) {
        print $FH @tab,$typeh->{java_write},$label,$name," ()",$idx,");\n";
    }
    else {  # StructType or ExceptionType
        print $FH @tab,$typeh->{java_write},$label,$name,$idx,");\n";
    }
    foreach (@array_max) {
        pop @tab;
        print $FH @tab,"}\n";
    }
    if (exists $member->{array_size}) {
        foreach (@{$member->{array_size}}) {
            pop @tab;
            print $FH @tab,"}\n";
        }
    }
}

sub _member_toString {
    my $self = shift;
    my ($member, $parent, $r_idx) = @_;

    my $FH = $self->{out};
    my $name = $member->{java_name};
    my $label = q{};
    my $len = ($parent->isa('UnionType')) ? ' ()' : q{};
    my @tab = (q{ } x 4);
    push @tab, q{ } x 4 if ($parent->isa('UnionType'));
    print $FH @tab,"_ret.append (\"\\n",$member->{java_type}," ",$member->{java_name},"=\");\n";
    my $idx = q{};
    foreach (my $a = 0; $a < length($member->{java_array})/2; $a ++) {
        print $FH @tab,"_ret.append (\"{\");\n";
        print $FH @tab,"if (",$label,$name,$len,$idx," == null)\n";
        print $FH @tab,"{\n";
        print $FH @tab,"  _ret.append (",$label,$name,$len,$idx,");\n";
        print $FH @tab,"}\n";
        print $FH @tab,"else\n";
        print $FH @tab,"{\n";
        print $FH @tab,"  for (int _i",$$r_idx," = 0; _i",$$r_idx," < ",$label,$name,$len,$idx,".length; _i",$$r_idx,"++)\n";
        print $FH @tab,"  {\n";
        unless ($member->{type_java}->isa("BasicType")) {
            print $FH @tab,"    _ret.append (\"\\n\");\n";
        }
        $idx .= '[_i' . $$r_idx . ']';
        $$r_idx ++;
        push @tab, q{ } x 4;
    }
    if ($parent->isa('UnionType')) {
        if (       $member->{type_java}->isa('StringType')
                or $member->{type_java}->isa('WideStringType') ) {
            print $FH @tab,"_ret.append (",$label,$name," ()",$idx," != null ? '\\\"' + ",$label,$name," ()",$idx," + '\\\"' : null);\n";
        }
        else {
            print $FH @tab,"_ret.append (",$label,$name," ()",$idx,");\n";
        }
    }
    else {  # StructType or ExceptionType
        if (       $member->{type_java}->isa('StringType')
                or $member->{type_java}->isa('WideStringType') ) {
            print $FH @tab,"_ret.append (",$label,$name,$idx," != null ? '\\\"' + ",$label,$name,$idx," + '\\\"' : null);\n";
        }
        else {
            print $FH @tab,"_ret.append (",$label,$name,$idx,");\n";
        }
    }
    foreach (my $a = 0; $a < length($member->{java_array})/2; $a ++) {
        pop @tab;
        $idx =~ s/\[[^\]]+\]$//;
        print $FH @tab,"    if (_i",$$r_idx-$a-1," < ",$label,$name,$len,$idx,".length - 1)\n";
        print $FH @tab,"    {\n";
        print $FH @tab,"      _ret.append (\",\");\n";
        print $FH @tab,"    }\n";
        print $FH @tab,"  }\n";
        unless ($member->{type_java}->isa("BasicType")) {
            print $FH @tab,"  _ret.append (\"\\n\");\n";
        }
        print $FH @tab,"  _ret.append (\"}\");\n";
        print $FH @tab,"}\n";
    }
}

sub _member_equals {
    my $self = shift;
    my ($member, $parent, $r_idx) = @_;

    my $FH = $self->{out};
    my $name = $member->{java_name};
    my $label = q{};
    my @tab = (q{ } x 6);
    my $idx = q{};
    foreach (my $a = 0; $a < length($member->{java_array})/2; $a ++) {
        print $FH @tab,"if (res = (this.",$label,$name,$idx,".length == obj.",$label,$name,$idx,".length))\n";
        print $FH @tab,"{\n";
        print $FH @tab,"  for (int _i",$$r_idx," = 0; res && _i",$$r_idx," < this.",$label,$name,$idx,".length; _i",$$r_idx,"++)\n";
        print $FH @tab,"  {\n";
        $idx .= '[_i' . $$r_idx . ']';
        $$r_idx ++;
        push @tab, q{ } x 4;
    }
    if (       $member->{type_java}->isa('StringType')
            or $member->{type_java}->isa('WideStringType')
            or $member->{type_java}->isa('StructType')
            or $member->{type_java}->isa('UnionType')
            or $member->{type_java}->isa('Interface')
            or $member->{type_java}->isa('Value') ) {
        print $FH @tab,"res = (this.",$label,$name,$idx," == null && obj.",$label,$name,$idx," == null) || (this.",$label,$name,$idx," != null && this.",$member->{java_name},".equals(obj.",$label,$name,$idx,"));\n";
    }
    else {
        print $FH @tab,"res = (this.",$label,$name,$idx," == obj.",$label,$name,$idx,");\n";
    }
    foreach (my $a = 0; $a < length($member->{java_array})/2; $a ++) {
        pop @tab;
        print $FH @tab,"  }\n";
        print $FH @tab,"}\n";
    }
}

#   3.11.2.2    Discriminated Unions
#

sub _union_helper {
    my ($self, $node, $dis, $effective_dis) = @_;

    $self->open_stream($node, 'Helper.java');
    my $FH = $self->{out};
    print $FH "abstract public class ",$node->{java_helper},"Helper\n";
    print $FH "{\n";
    print $FH "  private static java.lang.String _id = \"",$node->{repos_id},"\";\n";
    print $FH "\n";
    print $FH "  public static void insert (org.omg.CORBA.Any a, ",$node->{java_Name}," that)\n";
    print $FH "  {\n";
    print $FH "    org.omg.CORBA.portable.OutputStream out = a.create_output_stream ();\n";
    print $FH "    a.type (type ());\n";
    print $FH "    write (out, that);\n";
    print $FH "    a.read_value (out.create_input_stream (), type ());\n";
    print $FH "  }\n";
    print $FH "\n";
    print $FH "  public static ",$node->{java_Name}," extract (org.omg.CORBA.Any a)\n";
    print $FH "  {\n";
    print $FH "    return read (a.create_input_stream ());\n";
    print $FH "  }\n";
    print $FH "\n";
    print $FH "  private static org.omg.CORBA.TypeCode __typeCode = null;\n";
    print $FH "  private static boolean __active = false;\n";
    print $FH "  synchronized public static org.omg.CORBA.TypeCode type ()\n";
    print $FH "  {\n";
    print $FH "    if (__typeCode == null)\n";
    print $FH "    {\n";
    print $FH "      synchronized (org.omg.CORBA.TypeCode.class)\n";
    print $FH "      {\n";
    print $FH "        if (__typeCode == null)\n";
    print $FH "        {\n";
    print $FH "          if (__active)\n";
    print $FH "          {\n";
    print $FH "            return org.omg.CORBA.ORB.init().create_recursive_tc ( ",$node->{java_Helper},".id () );\n";
    print $FH "          }\n";
    print $FH "          __active = true;\n";
    print $FH "          org.omg.CORBA.TypeCode _disTypeCode0;\n";
    if ($effective_dis->isa('EnumType')) {
        print $FH "          _disTypeCode0 = ",$dis->{java_Name},"Helper.type ();\n";
    }
    else {
        print $FH "          _disTypeCode0 = org.omg.CORBA.ORB.init ().get_primitive_tc (org.omg.CORBA.TCKind.tk_",$dis->{java_tk},");\n";
    }
    print $FH "          org.omg.CORBA.UnionMember[] _members0 = new org.omg.CORBA.UnionMember [",scalar(keys %{$node->{hash_member}}),"];\n";
    print $FH "          org.omg.CORBA.TypeCode _tcOf_members0;\n";
    print $FH "          org.omg.CORBA.Any _anyOf_members0;\n";
    my $i = 0;
    foreach my $case (@{$node->{list_expr}}) {
        my $elt = $case->{element};
        my $value = $self->_get_defn($elt->{value});
        foreach (@{$case->{list_label}}) {  # default or expression
            print $FH "\n";
            if ($_->isa('Default')) {
                print $FH "          // Branch for ",$value->{java_name}," (Default case)\n";
                print $FH "          _anyOf_members0 = org.omg.CORBA.ORB.init ().create_any ();\n";
                print $FH "          _anyOf_members0.insert_octet ((byte)0); // default member label\n";
            }
            else {
                print $FH "          // Branch for ",$value->{java_name}," (case label ",$_->{java_literal},")\n";
                print $FH "          _anyOf_members0 = org.omg.CORBA.ORB.init ().create_any ();\n";
                if ($effective_dis->isa('EnumType')) {
                    print $FH "          ",$dis->{java_Name},"Helper.insert (_anyOf_members0, ",$_->{value}->{java_literal},");\n";
                }
                else {
                    print $FH "          _anyOf_members0.insert_",$dis->{java_tk}," (",$_->{java_literal},");\n";
                    # TODO
                }
            }
            $self->_member_helper_type($value, $node, $i);
            $i ++;
        }
    }
    print $FH "          __typeCode = org.omg.CORBA.ORB.init ().create_union_tc (_id, \"",$node->{java_name},"\", _disTypeCode0, _members0);\n";
    print $FH "          __active = false;\n";
    print $FH "        }\n";
    print $FH "      }\n";
    print $FH "    }\n";
    print $FH "    return __typeCode;\n";
    print $FH "  }\n";
    print $FH "\n";
    print $FH "  public static java.lang.String id ()\n";
    print $FH "  {\n";
    print $FH "    return _id;\n";
    print $FH "  }\n";
    print $FH "\n";
    print $FH "  public static ",$node->{java_Name}," read (org.omg.CORBA.portable.InputStream \$is)\n";
    print $FH "  {\n";
    print $FH "    ",$node->{java_Name}," value = new ",$node->{java_Name}," ();\n";
    print $FH "    ",$effective_dis->{java_Name}," _dis0 = ",$effective_dis->{java_init},";\n";
    print $FH "    _dis0 = ",$dis->{java_read},";\n";
    if    ($effective_dis->isa('EnumType')) {
        print $FH "    switch (_dis0.value ())\n";
    }
    elsif ($effective_dis->isa('BooleanType')) {
        print $FH "    int __dis0 = (_dis0) ? 1 : 0;\n";
        print $FH "    switch (__dis0)\n";
    }
    else {
        print $FH "    switch (_dis0)\n";
    }
    print $FH "    {\n";
    my $idx = 0;
    foreach my $case (@{$node->{list_expr}}) {
        my $flag_default = 0;
        foreach (@{$case->{list_label}}) {  # default or expression
            if ($_->isa('Default')) {
                print $FH "      default:\n";
                $flag_default = 1;
            }
            else {
                if ($effective_dis->isa('BooleanType')) {
                    my $value = ($_->{value} eq 'TRUE') ? '1' : '0';
                    print $FH "      case ",$value,":\n";
                }
                else {
                    print $FH "      case ",$_->{java_literal},":\n";
                }
            }
        }
        my $elt = $case->{element};
        my $value = $self->_get_defn($elt->{value});
        $self->_member_helper_read($value, $node, \$idx);
        if (scalar(@{$case->{list_label}}) > 1 || $flag_default) {
            print $FH "        value.",$value->{java_name}," (_dis0, _",$value->{java_name},");\n";
        }
        else {
            print $FH "        value.",$value->{java_name}," (_",$value->{java_name},");\n";
        }
        print $FH "        break;\n";
    }
    if (exists $node->{need_default}) {
        print $FH "      default:\n";
        print $FH "        throw new org.omg.CORBA.BAD_OPERATION ();\n";
    }
    print $FH "    }\n";
    print $FH "    return value;\n";
    print $FH "  }\n";
    print $FH "\n";
    print $FH "  public static void write (org.omg.CORBA.portable.OutputStream \$os, ",$node->{java_Name}," value)\n";
    print $FH "  {\n";
    print $FH "    ",$dis->{java_write},"value.discriminator ());\n";
    if    ($effective_dis->isa('EnumType')) {
        print $FH "    switch (value.discriminator ().value ())\n";
    }
    elsif ($effective_dis->isa('BooleanType')) {
        print $FH "    int _dis = (value.discriminator ()) ? 1 : 0;\n";
        print $FH "    switch (_dis)\n";
    }
    else {
        print $FH "    switch (value.discriminator ())\n";
    }
    print $FH "    {\n";
    $idx = 0;
    foreach my $case (@{$node->{list_expr}}) {
        foreach (@{$case->{list_label}}) {  # default or expression
            if ($_->isa('Default')) {
                print $FH "      default:\n";
            }
            else {
                if ($effective_dis->isa('BooleanType')) {
                    my $value = ($_->{value} eq 'TRUE') ? '1' : '0';
                    print $FH "      case ",$value,":\n";
                }
                else {
                    print $FH "      case ",$_->{java_literal},":\n";
                }
            }
        }
        my $elt = $case->{element};
        my $value = $self->_get_defn($elt->{value});
        $self->_member_helper_write($value, $node, \$idx);
        print $FH "        break;\n";
    }
    if (exists $node->{need_default}) {
        print $FH "      default:\n";
        print $FH "        throw new org.omg.CORBA.BAD_OPERATION ();\n";
    }
    print $FH "    }\n";
    print $FH "  }\n";
    print $FH "\n";
    print $FH "}\n";
    close $FH;
}

sub _union {
    my ($self, $node, $dis, $effective_dis) = @_;

    $self->open_stream($node, '.java');
    my $FH = $self->{out};
    my $first;
    my $find;
    print $FH $self->_format_javadoc($node);
    print $FH "public final class ",$node->{java_name}," implements org.omg.CORBA.portable.IDLEntity\n";
    print $FH "{\n";
    if (exists $node->{serial_uid}) {
        print $FH "  private static final long serialVersionUID = 0x",$node->{serial_uid},"L;\n";
    }
    else {
        print $FH "  private static final long serialVersionUID = 0x",$node->{java_uid},"L;\n";
    }
    print $FH "\n";
    print $FH "  private java.lang.Object __object;\n";
    print $FH "  private ",$effective_dis->{java_Name}," __discriminator;\n";
    print $FH "  private boolean __uninitialized;\n";
    print $FH "\n";
    print $FH "  public ",$node->{java_name}," ()\n";
    print $FH "  {\n";
    print $FH "    __object = null;\n";
    print $FH "    __uninitialized = true;\n";
    print $FH "  }\n";
    print $FH "\n";
    print $FH "  public ",$effective_dis->{java_Name}," discriminator ()\n";
    print $FH "  {\n";
    print $FH "    if (__uninitialized)\n";
    print $FH "      throw new org.omg.CORBA.BAD_OPERATION ();\n";
    print $FH "    return __discriminator;\n";
    print $FH "  }\n";
    print $FH "\n";
    foreach my $case (@{$node->{list_expr}}) {
        my $elt = $case->{element};
        my $value = $self->_get_defn($elt->{value});
        my $type = $self->_get_defn($elt->{type});
        my $flag_default = 0;
        foreach (@{$case->{list_label}}) {  # default or expression
            if ($_->isa('Default')) {
                $flag_default = 1;
                last;
            }
        }
        my $label;
        print $FH $self->_format_javadoc($value);
        print $FH "  public ",$value->{java_type}," ",$value->{java_name}," ()\n";
        print $FH "  {\n";
        print $FH "    if (__uninitialized)\n";
        print $FH "      throw new org.omg.CORBA.BAD_OPERATION ();\n";
        my $cond = q{};
        if ($flag_default) {
            $first = 1;
            foreach (@{$node->{list_member}}) {
                $find = 0;
                foreach my $label (@{$case->{list_label}}) {
                    $find = 1 if ($_ == $label);
                }
                next if ($find);
                $cond .= "\n     || " unless ($first);
                if ($effective_dis->isa('EnumType')) {
                    $cond .= "__discriminator == " . $_->{value}->{java_literal};
                }
                else {
                    $cond .= "__discriminator == " . $_->{java_literal};
                }
                $first = 0;
            }
        }
        else {
            $first = 1;
            foreach (@{$case->{list_label}}) {
                $cond .= "\n     && " unless ($first);
                if ($effective_dis->isa('EnumType')) {
                    $cond .= "__discriminator != " . $_->{value}->{java_literal};
                }
                else {
                    $cond .= "__discriminator != " . $_->{java_literal};
                }
                $first = 0;
            }
        }
        if ($cond) {
            print $FH "    if (",$cond,")\n";
            print $FH "      throw new org.omg.CORBA.BAD_OPERATION ();\n";
        }
        if (exists $value->{java_object}) {
            print $FH "    return ((",$value->{java_object},")__object).",$value->{java_type},"Value ();\n";
        }
        else {
            print $FH "    return (",$value->{java_type},")__object;\n";
        }
        print $FH "  }\n";
        print $FH "\n";
        print $FH "  public void ",$value->{java_name}," (",$value->{java_type}," value)\n";
        print $FH "  {\n";
        if (defined $node->{default} and $case eq $node->{default}) {
            print $FH "    __discriminator = ",$dis->{java_init},";\n";
        }
        else {
            $label = ${$case->{list_label}}[0];
            if ($effective_dis->isa('EnumType')) {
                print $FH "    __discriminator = ",$label->{value}->{java_literal},";\n";
            }
            else {
                print $FH "    __discriminator = ",$label->{java_literal},";\n";
            }
        }
        if (exists $value->{java_object}) {
            print $FH "    __object = new ",$value->{java_object}," (value);\n";
        }
        else {
            print $FH "    __object = value;\n";
        }
        print $FH "    __uninitialized = false;\n";
        print $FH "  }\n";
        print $FH "\n";
        if (scalar(@{$case->{list_label}}) > 1 || $flag_default) {
            print $FH "  public void ",$value->{java_name}," (",$effective_dis->{java_Name}," discriminator, ",$value->{java_type}," value)\n";
            print $FH "  {\n";
            $cond = q{};
            if (defined $node->{default} and $case eq $node->{default}) {
                $first = 1;
                foreach (@{$node->{list_member}}) {
                    $find = 0;
                    foreach my $label (@{$case->{list_label}}) {
                        $find = 1 if ($_ == $label);
                    }
                    next if ($find);
                    $cond .= "\n     || " unless ($first);
                    if ($effective_dis->isa('EnumType')) {
                        $cond .= "discriminator == " . $_->{value}->{java_literal};
                    }
                    else {
                        $cond .= "discriminator == " . $_->{java_literal};
                    }
                    $first = 0;
                }
            }
            else {
                $first = 1;
                foreach (@{$case->{list_label}}) {
                    $cond .= "\n     && " unless ($first);
                    if ($effective_dis->isa('EnumType')) {
                        $cond .= "discriminator != " . $_->{value}->{java_literal};
                    }
                    else {
                        $cond .= "discriminator != " . $_->{java_literal};
                    }
                    $first = 0;
                }
            }
            if ($cond) {
                print $FH "    if (",$cond,")\n";
                print $FH "      throw new org.omg.CORBA.BAD_OPERATION ();\n";
            }
            print $FH "    __discriminator = discriminator;\n";
            if (exists $value->{java_object}) {
                print $FH "    __object = new ",$value->{java_object}," (value);\n";
            }
            else {
                print $FH "    __object = value;\n";
            }
            print $FH "    __uninitialized = false;\n";
            print $FH "  }\n";
            print $FH "\n";
        }
    }
    if (exists $node->{need_default}) {
        print $FH "  public void _default ()\n";
        print $FH "  {\n";
        if    ($effective_dis->isa('EnumType')) {
            foreach (@{$dis->{list_expr}}) {
                unless (exists $node->{hash_member}->{$_}) {
                    print $FH "    __discriminator = ",$_->{java_literal},";\n";
                    last;
                }
            }
        }
        elsif ($effective_dis->isa('BooleanType')) {
            if (exists $node->{hash_member}->{0}) {
                print $FH "    __discriminator = true;\n";
            }
            else {
                print $FH "    __discriminator = false;\n";
            }
        }
        else {
            my $v = new Math::BigInt(0);
            while (1) {
                unless (exists $node->{hash_member}->{$v}) {
                    print $FH "    __discriminator = ",$v,";\n";
                    last;
                }
                $v ++;
            }
        }
        print $FH "    __uninitialized = false;\n";
        print $FH "  }\n";
        print $FH "\n";
        print $FH "  public void _default (",$dis->{java_Name}," discriminator)\n";
        print $FH "  {\n";
        if    ($effective_dis->isa('EnumType')) {
            print $FH "    switch (discriminator.value ())\n";
        }
        elsif ($effective_dis->isa('BooleanType')) {
            print $FH "    int _dis = (discriminator) ? 1 : 0;\n";
            print $FH "    switch (_dis)\n";
        }
        else {
            print $FH "    switch (discriminator)\n";
        }
        print $FH "    {\n";
        foreach my $case (@{$node->{list_expr}}) {
            foreach (@{$case->{list_label}}) {  # expression
                if ($effective_dis->isa('BooleanType')) {
                    my $value = ($_->{value} eq 'TRUE') ? '1' : '0';
                    print $FH "      case ",$value,":\n";
                }
                else {
                    print $FH "      case ",$_->{java_literal},":\n";
                }
            }
        }
        print $FH "        throw new org.omg.CORBA.BAD_OPERATION ();\n";
        print $FH "      default:\n";
        print $FH "        __discriminator = discriminator;\n";
        print $FH "        __uninitialized = false;\n";
        print $FH "    }\n";
        print $FH "  }\n";
        print $FH "\n";
    }
    if ($self->{toString}) {
        print $FH "  public java.lang.String toString ()\n";
        print $FH "  {\n";
        print $FH "    java.lang.StringBuffer _ret = new java.lang.StringBuffer (\"union ",$node->{java_name}," {\");\n";
        if    ($effective_dis->isa('EnumType')) {
            print $FH "    switch (discriminator ().value ())\n";
        }
        elsif ($effective_dis->isa('BooleanType')) {
            print $FH "    int _dis = (discriminator ()) ? 1 : 0;\n";
            print $FH "    switch (_dis)\n";
        }
        else {
            print $FH "    switch (discriminator ())\n";
        }
        print $FH "    {\n";
        my $idx = 0;
        foreach my $case (@{$node->{list_expr}}) {
            my $elt = $case->{element};
            my $value = $self->_get_defn($elt->{value});
            foreach (@{$case->{list_label}}) {  # default or expression
                if ($_->isa('Default')) {
                    print $FH "      default:\n";
                }
                else {
                    if ($effective_dis->isa('BooleanType')) {
                        my $value = ($_->{value} eq 'TRUE') ? '1' : '0';
                        print $FH "      case ",$value,":\n";
                    }
                    else {
                        print $FH "      case ",$_->{java_literal},":\n";
                    }
                }
            }
            print $FH "      {\n";
            $self->_member_toString($value, $node, \$idx);
            print $FH "        break;\n";
            print $FH "      }\n";
        }
        print $FH "    }\n";
        print $FH "    _ret.append (\"\\n}\");\n";
        print $FH "    return _ret.toString ();\n";
        print $FH "  }\n";
        print $FH "\n";
    }
    if ($self->{equals}) {
        print $FH "  public boolean equals (java.lang.Object o)\n";
        print $FH "  {\n";
        print $FH "    if (this == o) return true;\n";
        print $FH "    if (o == null) return false;\n";
        print $FH "\n";
        print $FH "    if (o instanceof ",$node->{java_name},")\n";
        print $FH "    {\n";
        print $FH "      ",$node->{java_name}," obj = (",$node->{java_name},")o;\n";
        print $FH "      boolean res;\n";
        print $FH "      res = (this.__discriminator == obj.__discriminator);\n";
        print $FH "      if (!res) return false;\n";
        print $FH "      res = (this.__object == obj.__object) ||\n";
        print $FH "       (this.__object != null && obj.__object != null && this.__object.equals(obj.__object));\n";
        print $FH "      return res;\n";
        print $FH "    }\n";
        print $FH "    return false;\n";
        print $FH "  }\n";
        print $FH "\n";
        print $FH "  public int hashCode ()\n";
        print $FH "  {\n";
        print $FH "    // this method returns always the same value, to force equals() to be called.\n";
        print $FH "    return 0;\n";
        print $FH "  }\n";
        print $FH "\n";
    }
    print $FH "} // class ",$node->{java_name},"\n";
    close $FH;
}

sub visitUnionType {
    my $self = shift;
    my ($node) = @_;
    return unless ($self->{srcname} eq $node->{filename});
    return if (exists $self->{done_hash}->{$node->{java_Name}});
    $self->{done_hash}->{$node->{java_Name}} = 1;
    foreach (@{$node->{list_expr}}) {
        my $type = $self->_get_defn($_->{element}->{type});
        if (       $type->isa('StructType')
                or $type->isa('UnionType')
                or $type->isa('EnumType') ) {
            $type->visit($self);
        }
    }
    my $dis = $self->_get_defn($node->{type});
    my $effective_dis = $dis;
    while (     $effective_dis->isa('TypeDeclarator')
           and ! exists $effective_dis->{array_size} ) {
        $effective_dis = $self->_get_defn($effective_dis->{type});
    }

    $dis->visit($self) if ($effective_dis->isa('EnumType'));

    $self->_holder($node);
    $self->_union_helper($node, $dis, $effective_dis);
    $self->_union($node, $dis, $effective_dis);
    $self->_union_helperXML($node, $dis, $effective_dis) if ($self->can('_union_helperXML'));
}

#   3.11.2.3    Constructed Recursive Types and Forward Declarations
#

sub visitForwardStructType {
    # empty
}

sub visitForwardUnionType {
    # empty
}

#   3.11.2.4    Enumerations
#

sub _enum_helper {
    my ($self, $node) = @_;

    $self->open_stream($node, 'Helper.java');
    my $FH = $self->{out};
    print $FH "abstract public class ",$node->{java_helper},"Helper\n";
    print $FH "{\n";
    print $FH "  private static java.lang.String _id = \"",$node->{repos_id},"\";\n";
    print $FH "\n";
    print $FH "  public static void insert (org.omg.CORBA.Any a, ",$node->{java_Name}," that)\n";
    print $FH "  {\n";
    print $FH "    org.omg.CORBA.portable.OutputStream out = a.create_output_stream ();\n";
    print $FH "    a.type (type ());\n";
    print $FH "    write (out, that);\n";
    print $FH "    a.read_value (out.create_input_stream (), type ());\n";
    print $FH "  }\n";
    print $FH "\n";
    print $FH "  public static ",$node->{java_Name}," extract (org.omg.CORBA.Any a)\n";
    print $FH "  {\n";
    print $FH "    return read (a.create_input_stream ());\n";
    print $FH "  }\n";
    print $FH "\n";
    print $FH "  private static org.omg.CORBA.TypeCode __typeCode = null;\n";
    print $FH "  private static boolean __active = false;\n";
    print $FH "  synchronized public static org.omg.CORBA.TypeCode type ()\n";
    print $FH "  {\n";
    print $FH "    if (__typeCode == null)\n";
    print $FH "    {\n";
    print $FH "      synchronized (org.omg.CORBA.TypeCode.class)\n";
    print $FH "      {\n";
    print $FH "        if (__typeCode == null)\n";
    print $FH "        {\n";
    print $FH "          if (__active)\n";
    print $FH "          {\n";
    print $FH "            return org.omg.CORBA.ORB.init().create_recursive_tc ( ",$node->{java_Helper},".id () );\n";
    print $FH "          }\n";
    print $FH "          __active = true;\n";
    print $FH "          __typeCode = org.omg.CORBA.ORB.init ().create_enum_tc (_id, \"",$node->{java_name},"\", new java.lang.String [] { ";
        my $first = 1;
        foreach (@{$node->{list_expr}}) {
            print $FH ", " unless ($first);
            print $FH "\"",$_->{java_name},"\"";
            $first = 0;
        }
        print $FH "} );\n";
    print $FH "          __active = false;\n";
    print $FH "        }\n";
    print $FH "      }\n";
    print $FH "    }\n";
    print $FH "    return __typeCode;\n";
    print $FH "  }\n";
    print $FH "\n";
    print $FH "  public static java.lang.String id ()\n";
    print $FH "  {\n";
    print $FH "    return _id;\n";
    print $FH "  }\n";
    print $FH "\n";
    print $FH "  public static ",$node->{java_Name}," read (org.omg.CORBA.portable.InputStream \$is)\n";
    print $FH "  {\n";
    print $FH "    return ",$node->{java_Name},".from_int (\$is.read_long ());\n";
    print $FH "  }\n";
    print $FH "\n";
    print $FH "  public static void write (org.omg.CORBA.portable.OutputStream \$os, ",$node->{java_Name}," value)\n";
    print $FH "  {\n";
    print $FH "    \$os.write_long (value.value ());\n";
    print $FH "  }\n";
    print $FH "\n";
    print $FH "}\n";
    close $FH;
}

sub _enum {
    my ($self, $node) = @_;

    $self->open_stream($node, '.java');
    my $FH = $self->{out};
    print $FH $self->_format_javadoc($node);
    print $FH "public class ",$node->{java_name}," implements org.omg.CORBA.portable.IDLEntity\n";
    print $FH "{\n";
    if (exists $node->{serial_uid}) {
        print $FH "  private static final long serialVersionUID = 0x",$node->{serial_uid},"L;\n";
    }
    else {
        print $FH "  private static final long serialVersionUID = 0x",$node->{java_uid},"L;\n";
    }
    print $FH "\n";
    print $FH "  private        int __value;\n";
    print $FH "\n";
    foreach (@{$node->{list_expr}}) {
        print $FH "  public static final int _",$_->{java_name}," = ",$_->{value},";\n";
        print $FH "  public static final ",$node->{java_Name}," ",$_->{java_name}," = new ",$node->{java_Name}," (_",$_->{java_name},");\n";
    }
    print $FH "\n";
    print $FH "  protected ",$node->{java_name}," (int value)\n";
    print $FH "  {\n";
    print $FH "    __value = value;\n";
    print $FH "  }\n";
    print $FH "\n";
    print $FH "  public int value ()\n";
    print $FH "  {\n";
    print $FH "    return __value;\n";
    print $FH "  }\n";
    print $FH "\n";
    print $FH "  public static ",$node->{java_Name}," from_int (int value)\n";
    print $FH "  {\n";
    print $FH "    switch (value)\n";
    print $FH "    {\n";
    foreach (@{$node->{list_expr}}) {
        print $FH "      case ",$_->{value},":\n";
        print $FH "        return ",$_->{java_name},";\n";
    }
    print $FH "      default:\n";
    print $FH "        throw new org.omg.CORBA.BAD_PARAM ();\n";
    print $FH "    }\n";
    print $FH "  }\n";
    print $FH "\n";
    print $FH "  public java.lang.Object readResolve() throws java.io.ObjectStreamException\n";
    print $FH "  {\n";
    print $FH "    return from_int (value ());\n";
    print $FH "  }\n";
    print $FH "\n";
    if ($self->{toString} or $self->can("_enum_helperXML")) {
        print $FH "  public java.lang.String toString ()\n";
        print $FH "  {\n";
        print $FH "    switch (this.__value)\n";
        print $FH "    {\n";
        foreach (@{$node->{list_expr}}) {
            print $FH "      case ",$_->{value},":\n";
            print $FH "        return \"",$_->{java_name},"\";\n";
        }
        print $FH "      default:\n";
        print $FH "        throw new org.omg.CORBA.BAD_PARAM ();\n";
        print $FH "    }\n";
        print $FH "  }\n";
        print $FH "\n";
    }
    if ($self->{equals}) {
        print $FH "  public boolean equals (java.lang.Object o)\n";
        print $FH "  {\n";
        print $FH "    if (this == o) return true;\n";
        print $FH "    if (o == null) return false;\n";
        print $FH "\n";
        print $FH "    if (o instanceof ",$node->{java_name},")\n";
        print $FH "      return (this.__value == ((",$node->{java_name},")o).__value);\n";
        print $FH "    return false;\n";
        print $FH "  }\n";
        print $FH "\n";
        print $FH "  public int hashCode ()\n";
        print $FH "  {\n";
        print $FH "    // this method returns always the same value, to force equals() to be called.\n";
        print $FH "    return 0;\n";
        print $FH "  }\n";
        print $FH "\n";
    }
    print $FH "} // class ",$node->{java_name},"\n";
    close $FH;
}

sub visitEnumType {
    my $self = shift;
    my ($node) = @_;
    return unless ($self->{srcname} eq $node->{filename});

    $self->_holder($node);
    $self->_enum_helper($node);
    $self->_enum($node);
    $self->_enum_helperXML($node) if ($self->can('_enum_helperXML'));
}

#
#   3.12    Exception Declaration
#

sub _exception_helper {
    my ($self, $node) = @_;

    $self->open_stream($node, 'Helper.java');
    my $FH = $self->{out};
    print $FH "abstract public class ",$node->{java_helper},"Helper\n";
    print $FH "{\n";
    print $FH "  private static java.lang.String _id = \"",$node->{repos_id},"\";\n";
    print $FH "\n";
    print $FH "  public static void insert (org.omg.CORBA.Any a, ",$node->{java_Name}," that)\n";
    print $FH "  {\n";
    print $FH "    org.omg.CORBA.portable.OutputStream out = a.create_output_stream ();\n";
    print $FH "    a.type (type ());\n";
    print $FH "    write (out, that);\n";
    print $FH "    a.read_value (out.create_input_stream (), type ());\n";
    print $FH "  }\n";
    print $FH "\n";
    print $FH "  public static ",$node->{java_Name}," extract (org.omg.CORBA.Any a)\n";
    print $FH "  {\n";
    print $FH "    return read (a.create_input_stream ());\n";
    print $FH "  }\n";
    print $FH "\n";
    print $FH "  private static org.omg.CORBA.TypeCode __typeCode = null;\n";
    print $FH "  private static boolean __active = false;\n";
    print $FH "  synchronized public static org.omg.CORBA.TypeCode type ()\n";
    print $FH "  {\n";
    print $FH "    if (__typeCode == null)\n";
    print $FH "    {\n";
    print $FH "      synchronized (org.omg.CORBA.TypeCode.class)\n";
    print $FH "      {\n";
    print $FH "        if (__typeCode == null)\n";
    print $FH "        {\n";
    print $FH "          if (__active)\n";
    print $FH "          {\n";
    print $FH "            return org.omg.CORBA.ORB.init().create_recursive_tc ( ",$node->{java_Helper},".id () );\n";
    print $FH "          }\n";
    print $FH "          __active = true;\n";
    print $FH "          org.omg.CORBA.StructMember[] _members0 = new org.omg.CORBA.StructMember [",scalar(@{$node->{list_member}}),"];\n";
    print $FH "          org.omg.CORBA.TypeCode _tcOf_members0 = null;\n";
    my $i = 0;
    foreach (@{$node->{list_member}}) {
        my $member = $self->_get_defn($_);
        $self->_member_helper_type($member, $node, $i);
        $i ++;
    }
    print $FH "          __typeCode = org.omg.CORBA.ORB.init ().create_exception_tc (_id, \"",$node->{java_name},"\", _members0);\n";
    print $FH "          __active = false;\n";
    print $FH "        }\n";
    print $FH "      }\n";
    print $FH "    }\n";
    print $FH "    return __typeCode;\n";
    print $FH "  }\n";
    print $FH "\n";
    print $FH "  public static java.lang.String id ()\n";
    print $FH "  {\n";
    print $FH "    return _id;\n";
    print $FH "  }\n";
    print $FH "\n";
    print $FH "  public static ",$node->{java_Name}," read (org.omg.CORBA.portable.InputStream \$is)\n";
    print $FH "  {\n";
    print $FH "    ",$node->{java_Name}," value = new ",$node->{java_Name}," ();\n";
    print $FH "    // read and discard the repository ID\n";
    print $FH "    \$is.read_string ();\n";
    my $idx = 0;
    foreach (@{$node->{list_member}}) {
        my $member = $self->_get_defn($_);
        $self->_member_helper_read($member, $node, \$idx);
    }
    print $FH "    return value;\n";
    print $FH "  }\n";
    print $FH "\n";
    print $FH "  public static void write (org.omg.CORBA.portable.OutputStream \$os, ",$node->{java_Name}," value)\n";
    print $FH "  {\n";
    print $FH "    // write the repository ID\n";
    print $FH "    \$os.write_string (id ());\n";
    $idx = 0;
    foreach (@{$node->{list_member}}) {
        my $member = $self->_get_defn($_);
        $self->_member_helper_write($member, $node, \$idx);
    }
    print $FH "  }\n";
    print $FH "\n";
    print $FH "}\n";
    close $FH;
}

sub _exception {
    my ($self, $node) = @_;

    $self->open_stream($node, '.java');
    my $FH = $self->{out};
    print $FH $self->_format_javadoc($node);
    print $FH "public final class ",$node->{java_name}," extends org.omg.CORBA.UserException\n";
    print $FH "{\n";
    if (exists $node->{serial_uid}) {
        print $FH "  private static final long serialVersionUID = 0x",$node->{serial_uid},"L;\n";
    }
    else {
        print $FH "  private static final long serialVersionUID = 0x",$node->{java_uid},"L;\n";
    }
    print $FH "\n";
    foreach (@{$node->{list_member}}) {
        my $member = $self->_get_defn($_);
        print $FH $self->_format_javadoc($member);
        print $FH "  public ",$member->{java_type}," ",$member->{java_name},";\n";
    }
    print $FH "\n";
    print $FH "  public ",$node->{java_name}," ()\n";
    print $FH "  {\n";
    print $FH "    super (",$node->{java_name},"Helper.id ());\n";
    foreach (@{$node->{list_member}}) {
        my $member = $self->_get_defn($_);
        print $FH "    ",$member->{java_name}," = ",$member->{java_init},";\n";
    }
    print $FH "  }\n";
    print $FH "\n";
    if (scalar(@{$node->{list_member}})) {
        print $FH "  public ",$node->{java_name}," (";
        my $first = 1;
        foreach (@{$node->{list_member}}) {
            my $member = $self->_get_defn($_);
            print $FH ", " unless ($first);
            print $FH $member->{java_type}," _",$member->{java_name};
            $first = 0;
        }
        print $FH ")\n";
        print $FH "  {\n";
        print $FH "    super (",$node->{java_name},"Helper.id ());\n";
        foreach (@{$node->{list_member}}) {
            my $member = $self->_get_defn($_);
            print $FH "    ",$member->{java_name}," = _",$member->{java_name},";\n";
        }
        print $FH "  }\n";
        print $FH "\n";
    }
    if (scalar(@{$node->{list_member}})) {
        print $FH "  public ",$node->{java_name}," (java.lang.String \$reason";
        foreach (@{$node->{list_member}}) {
            my $member = $self->_get_defn($_);
            print $FH ", ",$member->{java_type}," _",$member->{java_name};
        }
        print $FH ")\n";
    }
    else {
        print $FH "  public ",$node->{java_name}," (java.lang.String \$reason)\n";
    }
    print $FH "  {\n";
    print $FH "    super(new StringBuffer (",$node->{java_name},"Helper.id ()).append (\"  \").append (\$reason).toString ());\n";
    foreach (@{$node->{list_member}}) {
        my $member = $self->_get_defn($_);
        print $FH "    ",$member->{java_name}," = _",$member->{java_name},";\n";
    }
    print $FH "  }\n";
    print $FH "\n";
    if ($self->{toString}) {
        print $FH "  public java.lang.String toString ()\n";
        print $FH "  {\n";
        print $FH "    java.lang.StringBuffer _ret = new java.lang.StringBuffer (\"exception ",$node->{java_Name}," {\");\n";
        if (scalar(@{$node->{list_member}})) {
            my $first = 1;
            my $idx = 0;
            foreach (@{$node->{list_member}}) {
                my $member = $self->_get_defn($_);
                if ($first) {
                    $first = 0;
                }
                else {
                    print $FH "    _ret.append (\",\");\n";
                }
                $self->_member_toString($member, $node, \$idx);
            }
            print $FH "    _ret.append (\"\\n\");\n";
        }
        print $FH "    _ret.append (\"}\");\n";
        print $FH "    return _ret.toString ();\n";
        print $FH "  }\n";
        print $FH "\n";
    }
    if ($self->{equals} and scalar(@{$node->{list_member}})) {
        print $FH "  public boolean equals (java.lang.Object o)\n";
        print $FH "  {\n";
        print $FH "    if (this == o) return true;\n";
        print $FH "    if (o == null) return false;\n";
        print $FH "\n";
        print $FH "    if (o instanceof ",$node->{java_name},")\n";
        print $FH "    {\n";
        print $FH "      ",$node->{java_name}," obj = (",$node->{java_name},")o;\n";
        print $FH "      boolean res;\n";
        my $first = 1;
        my $idx = 0;
        foreach (@{$node->{list_member}}) {
            my $member = $self->_get_defn($_);
            if ($first) {
                $first = 0;
            }
            else {
                print $FH "      if (!res) return false;\n";
            }
            $self->_member_equals($member, $node, \$idx);
        }
        print $FH "      return res;\n";
        print $FH "    }\n";
        print $FH "    return false;\n";
        print $FH "  }\n";
        print $FH "\n";
        print $FH "  public int hashCode ()\n";
        print $FH "  {\n";
        print $FH "    // this method returns always the same value, to force equals() to be called.\n";
        print $FH "    return 0;\n";
        print $FH "  }\n";
        print $FH "\n";
    }
    print $FH "} // class ",$node->{java_name},"\n";
    close $FH;
}

sub visitException {
    my $self = shift;
    my ($node) = @_;
    return unless ($self->{srcname} eq $node->{filename});
    return if (exists $self->{done_hash}->{$node->{java_Name}});
    $self->{done_hash}->{$node->{java_Name}} = 1;
    foreach (@{$node->{list_expr}}) {
        my $type = $self->_get_defn($_->{type});
        if (       $type->isa('StructType')
                or $type->isa('UnionType') ) {
            $type->visit($self);
        }
    }

    $self->_holder($node);
    $self->_exception_helper($node);
    $self->_exception($node);
    $self->_exception_helperXML($node) if ($self->can('_exception_helperXML'));
}

#
#   3.13    Operation Declaration
#

sub visitOperation {
    my $self = shift;
    my ($node) = @_;

    $self->{methodes} .= $self->_format_javadoc($node);
    $self->{methodes} .= "  " . $node->{java_proto} . ";\n";                                # Interface

    $self->{abstract_methodes} .= $self->_format_javadoc($node);
    $self->{abstract_methodes} .= "  public abstract " . $node->{java_proto} . ";\n";   # Value

    $self->{stub} .= "  public " . $node->{java_proto} . "\n";
    $self->{stub} .= "  {\n";
    $self->{stub} .= "    org.omg.CORBA.portable.InputStream \$is = null;\n";
    $self->{stub} .= "    try {\n";
    if (exists $node->{modifier}) {     # oneway
        $self->{stub} .= "      org.omg.CORBA.portable.OutputStream \$os = _request (\"" . $node->{idf} . "\", false);\n";
    }
    else {
        $self->{stub} .= "      org.omg.CORBA.portable.OutputStream \$os = _request (\"" . $node->{idf} . "\", true);\n";
    }
    foreach (@{$node->{list_param}}) {
        my $type = $self->_get_defn($_->{type});
        if ($_->{attr} eq 'in') {
            $self->{stub} .= "      " . $type->{java_write} . $_->{java_name} . ");\n";
        }
        elsif ($_->{attr} eq 'inout') {
            if ($type->isa('BoxedValue') and exists $type->{java_primitive}) {
                $self->{stub} .= "      " . $type->{java_Helper} . ".write (\$os, new " . $type->{java_Name} . " (" . $_->{java_name} . ".value));\n";
            }
            else {
                $self->{stub} .= "      " . $type->{java_write} . $_->{java_name} . ".value);\n";
            }
        }
    }
    if (exists $node->{list_context}) {
        $self->{stub} .= "      \$os.write_Context (context);\n";
    }
    $self->{stub} .= "      \$is = _invoke (\$os);\n";
    my $type = $self->_get_defn($node->{type});
    unless ($type->isa('VoidType')) {
        $self->{stub} .= "      " . $type->{java_Name} . " \$result = " . $type->{java_read} . ";\n";
    }
    foreach (@{$node->{list_param}}) {
        my $type = $self->_get_defn($_->{type});
        next if ($_->{attr} eq 'in');
        if ($type->isa('BoxedValue') and exists $type->{java_primitive}) {
            $self->{stub} .= "      " . $_->{java_name} . ".value = (" . $type->{java_Helper} . ".read (\$is)).value;\n";
        }
        else {
            $self->{stub} .= "      " . $_->{java_name} . ".value = " . $type->{java_read} . ";\n";
        }
    }
    $type = $self->_get_defn($node->{type});
    if ($type->isa('VoidType')) {
        $self->{stub} .= "      return;\n";
    }
    else {
        $self->{stub} .= "      return \$result;\n";
    }
    $self->{stub} .= "    } catch (org.omg.CORBA.portable.ApplicationException \$ex) {\n";
    $self->{stub} .= "      \$is = \$ex.getInputStream ();\n";
    $self->{stub} .= "      java.lang.String _id = \$ex.getId ();\n";
    if (exists $node->{list_raise}) {
        my $first = 1;
        foreach (@{$node->{list_raise}}) {      # exception
            my $defn = $self->_get_defn($_);
            $self->{stub} .= "      ";
            $self->{stub} .= "else " unless ($first);
            $self->{stub} .= "if (_id.equals (\"" . $defn->{repos_id} . "\"))\n";
            $self->{stub} .= "        throw " . $defn->{java_Helper} . ".read (\$is);\n";
            $first = 0;
        }
    $self->{stub} .= "      else\n";
    $self->{stub} .= "        throw new org.omg.CORBA.MARSHAL (_id);\n";
    }
    else {
        $self->{stub} .= "      throw new org.omg.CORBA.MARSHAL (_id);\n";
    }
    $self->{stub} .= "    } catch (org.omg.CORBA.portable.RemarshalException \$rm) {\n";
    if ($type->isa('VoidType')) {
        $self->{stub} .= "      " . $node->{java_call} . ";\n";
    }
    else {
        $self->{stub} .= "      return " . $node->{java_call} . ";\n";
    }
    $self->{stub} .= "    } finally {\n";
    $self->{stub} .= "      _releaseReply (\$is);\n";
    $self->{stub} .= "    }\n";
    $self->{stub} .= "  } // " . $node->{java_name} . "\n";
    $self->{stub} .= "\n";
}

#
#   3.14    Attribute Declaration
#

sub visitAttributes {
    my $self = shift;
    my ($node) = @_;
    foreach (@{$node->{list_decl}}) {
        $self->_get_defn($_)->visit($self);
    }
}

sub visitAttribute {
    my $self = shift;
    my ($node) = @_;
    $node->{_get}->visit($self);
    $node->{_set}->visit($self) if (exists $node->{_set});
}

#
#   3.15    Repository Identity Related Declarations
#

sub visitTypeId {
    # empty
}

sub visitTypePrefix {
    # empty
}

#
#   3.16    Event Declaration
#

sub visitRegularEvent {
    shift->_no_mapping(@_);
}

sub visitAbstractEvent {
    shift->_no_mapping(@_);
}

#
#   3.17    Component Declaration
#

sub visitComponent {
    shift->_no_mapping(@_);
}

sub visitForwardComponent {
    shift->_no_mapping(@_);
}

#
#   3.18    Home Declaration
#

sub visitHome {
    shift->_no_mapping(@_);
}

1;