ORBit CORBA idl.c issues
"Verbeek, Jason" <[email protected]> Fri, 02 Aug 2002 14:05:39 -0400
| Newsgroups | gmane.comp.gnome.orbit.perl |
|---|---|
| Message-ID | <4F487DD3A1AB0F4E8C64E96A1EF83B270539D525@uuhil-356> |
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
--Boundary_(ID_1NHikjTn11oxqTMZSX7xOg)
Content-type: text/plain; charset=iso-8859-1
> I am working on getting ORBit 0.5.17 and CORBA-ORBit 0.4.7 working a
> Solaris 2.7 box. I believe the installation of both ORBit and CORBA-ORBit
> work fine. I am experiencing the error below when running a simple PERL
> client program (this script is listed below). Would anyone have any
> information as to what is causing this error and how I might fix it?
>
> Thank you.
>
> Jason Verbeek
>
> Error:
> bash-2.03$ ./client.pl
> ETMSAttr.idl:548: Warning: Case mismatch between `country'
> ETMSAttr.idl:549: Warning: and `Country'
> ETMSAttr.idl:549: Warning: (Identifiers should be case-consistent after
> initial declaration)
> ETMSAttr.idl:977: Warning: Case mismatch between `orderNum'
> ETMSAttr.idl:1001: Warning: and `OrderNum'
> ETMSAttr.idl:1001: Warning: (Identifiers should be case-consistent after
> initial declaration)
> EBAttr.idl:221: Warning: Case mismatch between `serviceId'
> EBAttr.idl:222: Warning: and `ServiceId'
> EBAttr.idl:222: Warning: (Identifiers should be case-consistent after
> initial declaration)
>
> ** WARNING **: dcl=country
>
>
> ** ERROR **: file idl.c: line 629 (get_ident_typecode): assertion failed:
> (IDL_NODE_TYPE (IDL_NODE_UP (parent)) == IDLN_TYPE_DCL)
> aborting...
> Abort
> bash-2.03$
>
> The client program is:
>
> #!/usr/bin/perl
>
> # Load in the IDL file so that the program knows the interfaces of the
> objects o
> n the CORBA server.
> use CORBA::ORBit idl => [ qw(IPST.idl) ];
>
> # Create a client ORB object that will connect to the CORBA server
> print "about to make orb object\n";
> my $orb = CORBA::ORB_init("orbit-local-orb");
>
> print "about to read ior\n";
> # Read the IOR from a file into a variable.
> open IOR, "FFHelperObj.ior";
> my $ior = <IOR>;
> close IOR;
>
> print "chomping ior\n";
> # Chomp any terminal '\n' and whitespace off the IOR string.
> chomp($ior);
>
> print "about to use ior to get ref to object on server\n";
> # Use the IOR to get the reference to the CORBA object on the server.
> my $secretmessage = $orb->string_to_object($ior);
>
> print "calling the interface method of the obj\n";
> # Call the interface method of the CORBA object.
> my $message = $secretmessage->testMethod;
>
> # Print the message to the screen
> print "Secret message is ", $message, "\n";
--Boundary_(ID_1NHikjTn11oxqTMZSX7xOg)
Content-type: text/html; charset=iso-8859-1
Content-transfer-encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
<HTML>
<HEAD>
<META HTTP-EQUIV=3D"Content-Type" CONTENT=3D"text/html; =
charset=3Diso-8859-1">
<META NAME=3D"Generator" CONTENT=3D"MS Exchange Server version =
5.5.2653.12">
<TITLE>ORBit CORBA idl.c issues</TITLE>
</HEAD>
<BODY>
<P><FONT SIZE=3D2 FACE=3D"Arial">I am working on getting ORBit 0.5.17 =
and CORBA-ORBit 0.4.7 working a Solaris 2.7 box. </FONT><FONT =
COLOR=3D"#000000" SIZE=3D2 FACE=3D"Arial">I believe t</FONT><FONT =
SIZE=3D2 FACE=3D"Arial">he installation of both ORBit and CORBA-ORBit =
work fine. I am experiencing the error below when running a =
simple </FONT><FONT COLOR=3D"#000000" SIZE=3D2 =
FACE=3D"Arial">PERL</FONT> <FONT SIZE=3D2 FACE=3D"Arial">client program =
(this script is listed below). Would </FONT><FONT =
COLOR=3D"#000000" SIZE=3D2 FACE=3D"Arial">anyone</FONT><FONT SIZE=3D2 =
FACE=3D"Arial"> have any information as to what is causing this error =
and how I might fix it?</FONT></P>
<P><FONT SIZE=3D2 FACE=3D"Arial">Thank you.</FONT>
</P>
<P><FONT SIZE=3D2 FACE=3D"Arial">Jason Verbeek</FONT>
</P>
<P><FONT SIZE=3D2 FACE=3D"Arial">Error:</FONT>
<BR><FONT SIZE=3D2 FACE=3D"Arial">bash-2.03$ ./client.pl</FONT>
<BR><FONT SIZE=3D2 FACE=3D"Arial">ETMSAttr.idl:548: Warning: Case =
mismatch between `country'</FONT>
<BR><FONT SIZE=3D2 FACE=3D"Arial">ETMSAttr.idl:549: Warning: and =
`Country'</FONT>
<BR><FONT SIZE=3D2 FACE=3D"Arial">ETMSAttr.idl:549: Warning: =
(Identifiers should be case-consistent after initial =
declaration)</FONT>
<BR><FONT SIZE=3D2 FACE=3D"Arial">ETMSAttr.idl:977: Warning: Case =
mismatch between `orderNum'</FONT>
<BR><FONT SIZE=3D2 FACE=3D"Arial">ETMSAttr.idl:1001: Warning: and =
`OrderNum'</FONT>
<BR><FONT SIZE=3D2 FACE=3D"Arial">ETMSAttr.idl:1001: Warning: =
(Identifiers should be case-consistent after initial =
declaration)</FONT>
<BR><FONT SIZE=3D2 FACE=3D"Arial">EBAttr.idl:221: Warning: Case =
mismatch between `serviceId'</FONT>
<BR><FONT SIZE=3D2 FACE=3D"Arial">EBAttr.idl:222: Warning: and =
`ServiceId'</FONT>
<BR><FONT SIZE=3D2 FACE=3D"Arial">EBAttr.idl:222: Warning: (Identifiers =
should be case-consistent after initial declaration)</FONT>
</P>
<P><FONT SIZE=3D2 FACE=3D"Arial">** WARNING **: dcl=3Dcountry </FONT>
</P>
<BR>
<P><FONT SIZE=3D2 FACE=3D"Arial">** ERROR **: file idl.c: line 629 =
(get_ident_typecode): assertion failed: (IDL_NODE_TYPE (IDL_NODE_UP =
(parent)) =3D=3D IDLN_TYPE_DCL)</FONT></P>
<P><FONT SIZE=3D2 FACE=3D"Arial">aborting...</FONT>
<BR><FONT SIZE=3D2 FACE=3D"Arial">Abort</FONT>
<BR><FONT SIZE=3D2 FACE=3D"Arial">bash-2.03$</FONT>
</P>
<P><FONT SIZE=3D2 FACE=3D"Arial">The client program is:</FONT>
</P>
<P><FONT SIZE=3D2 FACE=3D"Arial">#!/usr/bin/perl</FONT>
</P>
<P><FONT SIZE=3D2 FACE=3D"Arial"># Load in the IDL file so that the =
program knows the interfaces of the objects o</FONT>
<BR><FONT SIZE=3D2 FACE=3D"Arial">n the CORBA server.</FONT>
<BR><FONT SIZE=3D2 FACE=3D"Arial">use CORBA::ORBit idl =3D> [ =
qw(IPST.idl) ];</FONT>
</P>
<P><FONT SIZE=3D2 FACE=3D"Arial"># Create a client ORB object that will =
connect to the CORBA server</FONT>
<BR><FONT SIZE=3D2 FACE=3D"Arial">print "about to make orb =
object\n";</FONT>
<BR><FONT SIZE=3D2 FACE=3D"Arial">my $orb =3D =
CORBA::ORB_init("orbit-local-orb");</FONT>
</P>
<P><FONT SIZE=3D2 FACE=3D"Arial">print "about to read =
ior\n";</FONT>
<BR><FONT SIZE=3D2 FACE=3D"Arial"># Read the IOR from a file into a =
variable.</FONT>
<BR><FONT SIZE=3D2 FACE=3D"Arial">open IOR, =
"FFHelperObj.ior";</FONT>
<BR><FONT SIZE=3D2 FACE=3D"Arial">my $ior =3D <IOR>;</FONT>
<BR><FONT SIZE=3D2 FACE=3D"Arial">close IOR;</FONT>
</P>
<P><FONT SIZE=3D2 FACE=3D"Arial">print "chomping =
ior\n";</FONT>
<BR><FONT SIZE=3D2 FACE=3D"Arial"># Chomp any terminal '\n' and =
whitespace off the IOR string.</FONT>
<BR><FONT SIZE=3D2 FACE=3D"Arial">chomp($ior);</FONT>
</P>
<P><FONT SIZE=3D2 FACE=3D"Arial">print "about to use ior to get =
ref to object on server\n";</FONT>
<BR><FONT SIZE=3D2 FACE=3D"Arial"># Use the IOR to get the reference to =
the CORBA object on the server.</FONT>
<BR><FONT SIZE=3D2 FACE=3D"Arial">my $secretmessage =3D =
$orb->string_to_object($ior);</FONT>
</P>
<P><FONT SIZE=3D2 FACE=3D"Arial">print "calling the =
interface method of the obj\n";</FONT>
<BR><FONT SIZE=3D2 FACE=3D"Arial"># Call the interface method of the =
CORBA object.</FONT>
<BR><FONT SIZE=3D2 FACE=3D"Arial">my $message =3D =
$secretmessage->testMethod;</FONT>
</P>
<P><FONT SIZE=3D2 FACE=3D"Arial"># Print the message to the =
screen</FONT>
<BR><FONT SIZE=3D2 FACE=3D"Arial">print "Secret message is ", =
$message, "\n";<I></I></FONT><I></I>
</P>
</BODY>
</HTML>=
--Boundary_(ID_1NHikjTn11oxqTMZSX7xOg)--