in reply to Re: mapping a C structure with perlXS
in thread mapping a C structure with perlXS

yes excuse me , i forgot the most important... the xs file is like this (exactly) : 
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
#include "ppport.h"
#include "test.h"

typedef struct s_test Test;

MODULE = Tests    PACKAGE = Tests

void
my_function(ptr_struct)
Test * ptr_struct

[download]
and in thetypemap file i added the following line : 
Test *  T_PTROBJ

[download]
thank you very much

Replies are listed 'Best First'.
Re^3: mapping a C structure with perlXS
by polettix (Vicar) on May 20, 2005 at 15:01 UTC
    Note that your s_test is a type: 
    typedef struct { unsigned *char test;} s_test;

    [download]
    not a struct (which is anonymous here). So you'd probably better: 
    
typedef s_test Test; /* Removed "struct" */

    [download]
    and see if this fixes your problem.

    Flavio (perl -e 'print(scalar(reverse("\nti.xittelop\@oivalf")))')

    Don't fool yourself.
[reply]
[d/l]
[select]
      i tried and i had the same message during the make step : 
       assignment of an incompatible pointer type

      [download]
      excuse me for my so bad english ....
[reply]
[d/l]
        This does not seem the same error message (in the OP you refer to Bad pointer type in paramater number 1). Before going on, you can understand that even if many here are real wizards with Perl, nobody (not even merlyn, whatever he keeps saying :) has real psychic powers.

        Please, post:

        • A minimal fragement of code that produces the error. Begin to take stuff away from your code so that you isolate the very core of the problem.
        • The exact error message that's printed out. assignment of an incompatible pointer type should probably refer to a specific line, so it would be extremely useful to know what's written in that line and in the surrounding context (which returns us to the previous bullet).
        Just pretend to be the one on the other side of the net that's trying to help you: what would you need to try and help?

        My English is as bad as yours, but it seems that we perfectly understand each other (I hope), so don't worry.

        Flavio (perl -e 'print(scalar(reverse("\nti.xittelop\@oivalf")))')

        Don't fool yourself.
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom