—#!/usr/bin/perl
use
strict;
use
warnings;
use
CORBA::IDL 2.60;
use
CORBA::C;
# visitors
my
$parser
= CORBA::IDL::ParserFactory::create(
'3.0'
);
$parser
->getopts(
'hi:vx'
);
if
(
$parser
->YYData->{opt_v}) {
"CORBA::C $CORBA::C::VERSION\n"
;
"CORBA::IDL $CORBA::IDL::VERSION\n"
;
"IDL $CORBA::IDL::Parser::IDL_VERSION\n"
;
"$0\n"
;
"Perl $] on $^O\n"
;
exit
;
}
if
(
$parser
->YYData->{opt_h}) {
pod2usage(
-verbose
=> 1);
}
my
$cflags
=
'-D__idl2c'
;
if
(
$CORBA::IDL::Parser::IDL_VERSION
lt
'3.0'
) {
$cflags
.=
' -D_PRE_3_0_COMPILER_'
;
}
# preprocessor must preserve comments
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(
'preprocessor'
=>
$preprocessor
,
'verbose_error'
=> 1,
# 0, 1
'verbose_warning'
=> 1,
# 0, 1
'verbose_info'
=> 1,
# 0, 1
'verbose_deprecated'
=> 1,
# 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::C::NameVisitor(
$parser
));
$root
->visit(new CORBA::C::LiteralVisitor(
$parser
));
$root
->visit(new CORBA::C::LengthVisitor(
$parser
));
$root
->visit(new CORBA::C::TypeVisitor(
$parser
));
$root
->visit(new CORBA::C::IncludeVisitor(
$parser
));
}
__END__
=head1 NAME
idl2c - IDL compiler to language C mapping
=head1 SYNOPSIS
idl2c [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<-v>
Display version.
=item B<-x>
Enable export (only for IDL version 3.0).
=back
=head1 DESCRIPTION
B<idl2c> parses the given input file (IDL) and generates
a include file following the language C mapping rules.
B<idl2c> is a Perl OO application what uses the visitor design pattern.
The parser is generated by Parse::Yapp.
B<idl2c> needs a B<cpp> executable.
CORBA Specifications, including IDL (Interface Language Definition) and
C Language Mapping are available on E<lt>http://www.omg.org/E<gt>.
=head1 SEE ALSO
cpp, perl
=head1 COPYRIGHT
(c) 2001-2007 Francois PERRAD, France. All rights reserved.
This program and all CORBA::C modules are distributed
under the terms of the Artistic Licence.
=head1 AUTHOR
Francois PERRAD, francois.perrad@gadz.org
=cut