PERRAD / CORBA-JAVA-2.66 / bin / idl2java 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
—
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157

              
#!/usr/bin/perl
use strict;
use warnings;
use CORBA::IDL      2.61;
use CORBA::JAVA;
# visitors
use CORBA::IDL::RepositoryIdVisitor;
use CORBA::IDL::UidVisitor;
my $parser = CORBA::IDL::ParserFactory::create('3.0');
$parser->getopts('hi:p:st:vx');
if ($parser->YYData->{opt_v}) {
    print "CORBA::JAVA $CORBA::JAVA::VERSION\n";
    print "CORBA::IDL $CORBA::IDL::VERSION\n";
    print "IDL $CORBA::IDL::Parser::IDL_VERSION\n";
    print "$0\n";
    print "Perl $] on $^O\n";
    exit;
}
if ($parser->YYData->{opt_h}) {
    use Pod::Usage;
    pod2usage(-verbose => 1);
}
my $cflags = '-D__idl2java';
if ($CORBA::IDL::Parser::IDL_VERSION lt '3.0') {
    $cflags .= ' -D_PRE_3_0_COMPILER_';
}
my $preprocessor;
if ($^O eq 'MSWin32') {
    $preprocessor = 'cpp -C ' . $cflags;
#    $preprocessor = 'CL /E /C /nologo ' . $cflags;      # Microsoft VC
}
else {
    $preprocessor = 'cpp -C ' . $cflags;
}
$parser->Configure(
        'forward_constructed_forbidden' => 1,
        'preprocessor'          => $preprocessor,
        'verbose_error'         => 1,   # 0, 1
        'verbose_warning'       => 1,   # 0, 1
        'verbose_info'          => 1,   # 0, 1
        'verbose_deprecated'    => 0,   # 0, 1 (concerns only version '2.4' and upper)
#        'collision_allowed'     => 1,
);
$parser->Run(@ARGV);
$parser->DisplayStatus();
my $root = $parser->getRoot();
if (defined $root) {
    $root->visit(new CORBA::IDL::RepositoryIdVisitor($parser));
    if ($parser->YYData->{opt_x}) {
        $parser->Export();
    }
    $root->visit(new CORBA::IDL::UidVisitor($parser))
            if ($parser->YYData->{opt_s});
    $root->visit(new CORBA::JAVA::NameVisitor($parser, $parser->YYData->{opt_p}, $parser->YYData->{opt_t}));
    $root->visit(new CORBA::JAVA::LiteralVisitor($parser));
    $root->visit(new CORBA::JAVA::Name2Visitor($parser));
    $root->visit(new CORBA::JAVA::UidVisitor($parser));
    $root->visit(new CORBA::JAVA::ClassVisitor($parser));
}
__END__
=head1 NAME
idl2java - IDL compiler to language Java mapping
=head1 SYNOPSIS
idl2java [options] I<spec>.idl
=head1 OPTIONS
All options are forwarded to C preprocessor, except -h -i -v -x.
With the GNU C Compatible Compiler Processor, useful options are :
=over 8
=item B<-D> I<name>
=item B<-D> I<name>=I<definition>
=item B<-I> I<directory>
=item B<-I->
=item B<-nostdinc>
=back
Specific options :
=over 8
=item B<-h>
Display help.
=item B<-i> I<directory>
Specify a path for import (only for IDL version 3.0).
=item B<-p> "I<m1>=I<prefix1>;..."
Specify a list of prefix (gives full qualified Java package names).
=item B<-s>
Generate the same serial uid as with C & Python.
=item B<-t> "I<m1>=I<new.name1>;..."
Specify a list of name translation (gives  full qualified Java package names).
=item B<-v>
Display version.
=item B<-x>
Enable export (only for IDL version 3.0).
=back
=head1 DESCRIPTION
B<idl2java> parses the given input file (IDL) and generates files that
following the IDL to Java Language Mapping Specification, v1.2.
B<idl2java> is a Perl OO application what uses the visitor design pattern.
The parser is generated by Parse::Yapp.
B<idl2java> needs a B<cpp> executable.
CORBA Specifications, including IDL (Interface Language Definition) and
JAVA Language Mapping are available on E<lt>http://www.omg.org/E<gt>.
=head1 SEE ALSO
cpp, L<idl2html>, L<idl2c>
=head1 COPYRIGHT
(c) 2002-2007 Francois PERRAD, France. All rights reserved.
This program and all CORBA::JAVA modules are distributed
under the terms of the Artistic Licence.
=head1 AUTHOR
Francois PERRAD, francois.perrad@gadz.org
=cut