🚀 go-pugleaf

    I'm using CW PowerPlant to build an application which would receive
every IP packet. But because PowerPlant does not provide the righ
classes to do this, I resolved to use directly the OpenTransport API. I
wrote the piece of code just below.
    But it does not work, or at least, I do not receive anything. At
each new loop, the flags are equal to zero, which mean, there's nothing
received. Is there a bug in this code?
    Maybe I'm ACTUALLY receiving nothing. In instance, if I ping myself,
am I supposed to receive something or not? And will I receive all IP
packets, even the one who are not addressed to me but also to other
hosts?

Thanks , Antoine
==================================
    J'utilise CW PowerPlant pour ecrire une application qui doit
recevoir tout les packets IP. Mais comme PowerPlant ne permet pas cela,
j'ai decide d'ecrire moi meme le code en utilisant directement les APIs
de OpenTransport. J'ai ecrit le code ci dessous.
    Mais il ne fonctionne pas, ou du moins, je ne recoit rien. A chaque
boucle, les flags sont a zero, ce qui veut dire que il n'y a rien de
recu. Y-a-t-il un bug?
    Peut etre que je ne recoit VRAIMENT rien. Par exemple, si je me ping
moi meme, est que je suis suppose recevoir quelquechose? Et est ce que
je peux recevoir les packets IP, meme si ils sont adresses a d'autres
hotes?

Merci, Antoine
==================================
MyThread::Run()
{
TUnitData data;
OTFlags  flags;

mOTConfiguration = ::OTCreateConfiguration("rawip");

mEndPointRef  = ::OTOpenEndpoint(mOTConfiguration, 0, &mEndPointInfos,
&theErr);
ThrowIfError_(theErr);

while(mRunning)
 {
 data.addr.buf  = new unsigned char[256];
 data.opt.buf  = new unsigned char[256];
 data.udata.buf  = new unsigned char[256];

 data.addr.maxlen = 256;
 data.opt.maxlen  = 256;
 data.udata.maxlen = 256;

 ::OTRcvUData(mEndPointRef, &data, &flags);

 if(flags != 0)
  {
  if(data.addr.len != 0 || data.opt.len != 0 || data.udata.len != 0)
   {
   mTerminalPane->SetTextPtr(nil,0);

   mTerminalPane->Insert(data.addr.buf, data.addr.len, nil, true);
   mTerminalPane->Insert(data.opt.buf,  data.opt.len, nil, true);
   mTerminalPane->Insert(data.udata.buf, data.udata.len, nil, true);
   }
  }

 delete data.addr.buf;
 delete data.opt.buf;
 delete data.udata.buf;

 Sleep(1000);
 }

::OTDestroyConfiguration(mOTConfiguration);

mRunning = true;
return nil;
}