Re: How to use Inline::Structs

[Sisyphus]

----- Original Message ----- 
From: "Tallapragada, Sridevi" <[EMAIL PROTECTED]>
To: <inline@perl.org>
Sent: Thursday, October 12, 2006 11:44 PM
Subject: How to use Inline::Structs


> The following perl program doesn't work. I have copied this to temp.pl
> and executed "perl temp.pl"
>
> use Inline C => Config => Structs => ['Foo'];
>
>   my $obj = Inline::Struct::Foo->new;
>   $obj->num(10);
>   $obj->str("Hello");
>
>   myfunc($obj);
>
>   __END__
>   __C__
>
>   struct Foo {
>     int num;
>     char *str;
>   };
>
>   void myfunc(Foo *f) {
>     printf("myfunc: num=%i, str='%s'\n", f->num, f->str);
>   }
>
> OUTPUT : I get the following error
>
> Can't locate object method "new" via package "Inline::Struct::Foo"
> (perhaps you forgot to load "Inline::Struct::Foo"?) at temp2.pl line 1.
>

I think you need to write it in a different format. (Even though that
example is from the docs, I get exactly the same output as you.)
The following rewrite works fine for me, however:

-------------------------
use Inline C => <<'EOC', STRUCTS => 1;

struct Foo {
  int num;
  char *str;
};

typedef struct Foo Foo;

void myfunc(Foo *f) {
  printf("myfunc: num=%i, str='%s'\n", f->num, f->str);
}

EOC

my $obj = Inline::Struct::Foo->new;
$obj->num(10);
$obj->str("Hello");

myfunc($obj);
------------------------

All I've done there is just re-arrange the layout (which is the same as
occurs in the Inline::Struct test files). And I also had to stick in the
'typedef struct Foo Foo;'

Cheers,
Rob