please help me toimport my C Structure into Perl

Sriram Mokkapati Tue, 12 Apr 2005 22:46:52 -0700

Hi All,

i'm using the following XS file.

#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"

#include "ppport.h"

#include <test.h>

#include "const-c.inc"

typedef struct t_PS_PHYSICAL_OBJECTINFO
{
CString strName;
CString strUserName;
BOOL  bID;
BOOL  bIRD;
int  nVolumes;
DWORD dwTotSec;

} PS_PHYSICAL_OBJECTINFO;

typedef struct t_PS_LOGICAL_OBJECTINFO
{
CString strName;
CString strUserName;
BOOL  bID;
BOOL  bIRD;
DWORD dwStartSec;
DWORD dwTotSec;
int  nSPC;

} PS_LOGICAL_OBJECTINFO;

MODULE = ProScript PACKAGE = ProScript

TYPEMAP
PS_PHYSICAL_OBJECTINFO * T_PTROBJ

INCLUDE: const-xs.inc

BOOL
PSGetPhysicalObjectInfo (strObjectName,pObjectInfo)
char * strObjectName
PS_PHYSICAL_OBJECTINFO * pObjectInfo

MODULE = ProScript PACKAGE = PhysicalObjectptr PREFIX = rpcb_

     void
     rpcb_DESTROY(pPhysicalObject)
          PS_PHYSICAL_OBJECTINFO * pPhysicalObject
        CODE:
          free( pPhysicalObject);

while making that XS to .c using nmake i'm getting the following errors.

Error:

D:\Perl\bin\perl.exe D:\Perl\lib\ExtUtils/xsubpp -typemap D:\Perl\lib\E
xtUtils\typemap ProScript.xs > ProScript.xsc && D:\Perl\bin\perl.exe -MExtUtils
::Command -e mv ProScript.xsc ProScript.c
Error: Cannot parse function definition from 'PS_PHYSICAL_OBJECTINFO * T_PTROBJ
' in ProScript.xs, line 40
Error: 'PS_PHYSICAL_OBJECTINFO *' not in typemap in ProScript.xs, line 64
Code is not inside a function (maybe last function was ended by a blank line fo
llowed by a statement on column one?) in ProScript.xs, line 77
NMAKE : fatal error U1077: 'D:\Perl\bin\perl.exe' : return code '0x1'
Stop.

Please help me in solving this.

Thanks in advance

please help me toimport my C Structure into Perl

Reply via email to