CORBA-JAVA
view release on metacpan or search on metacpan
lib/CORBA/JAVA/ClassVisitor.pm view on Meta::CPAN
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";
lib/CORBA/JAVA/ClassVisitor.pm view on Meta::CPAN
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";
lib/CORBA/JAVA/ClassVisitor.pm view on Meta::CPAN
}
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}) {
lib/CORBA/JAVA/ClassVisitor.pm view on Meta::CPAN
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}) {
lib/CORBA/JAVA/ClassVisitor.pm view on Meta::CPAN
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";
lib/CORBA/JAVA/ClassVisitor.pm view on Meta::CPAN
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";
lib/CORBA/JAVA/ClassVisitor.pm view on Meta::CPAN
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')) {
lib/CORBA/JAVA/ClassVisitor.pm view on Meta::CPAN
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;
lib/CORBA/JAVA/ClassVisitor.pm view on Meta::CPAN
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";
lib/CORBA/JAVA/NameVisitor.pm view on Meta::CPAN
'new' => 1,
'package' => 1,
'private' => 1,
'protected' => 1,
'public' => 1,
'return' => 1,
'short' => 1,
'static' => 1,
'super' => 1,
'switch' => 1,
'synchronized' => 1,
'this' => 1,
'throw' => 1,
'throws' => 1,
'transcient' => 1,
'try' => 1,
'void' => 1,
'volatile' => 1,
'while' => 1,
# additionnal Java constant
'true' => 1,
( run in 0.243 second using v1.01-cache-2.11-cpan-0d8aa00de5b )