Hello Nick,
Thank you for your explanation, that help.
regards, Reinhard
Nick Ing-Simmons wrote:
Reinhard Pagitsch <[EMAIL PROTECTED]> writes:
Hello,
What I want is that in my .pm I use the sub new method to make some initialation.
But in my XS module I have also the new for the C++ class constructor.
Now I found out that if I call in my test.pl MyPackage->new($file) the
method in the XS will be called instead of the new in the .pm file.
How can I avoid this? Or is there a way to put back the initialaition to the .pm module?
There is nothing special about the name 'new' to perl.
So call one of them something else. Tyically methods perl level user isn't supposed to mess with are given an _ prefix.
So XS init could be called _new. That avoids colliding with C++'s new
which is NOT a function but an operator.
That said if you have an object of you class what data structure(s)
to you want to build for it? You perl new creates a blessed hash reference and doesn't do any C++ / XS things at all. Normaly a hybrid perl/C++ object would have one member of hash be a token for C++ stuff e.g.:
$self{Internals} = _new($file);
While your C++ new creates (and then immediately destructs unless I am missing something) a C++ object with a raw HV as one of its members
is this supposed to be your perl object?
Here are some code snippets:
modul.pm:
sub new
{
my $class = shift;
if([EMAIL PROTECTED]) { die "parameter required!\n"; }
my $self = {
FILE=>shift, # file name
isError=>0,
isOOo=>0,
HANDLE=>undef, # HANDLE to file
Error=>undef
};
my ($suffix) = $self->{FILE} =~ m/\.(\w\w\w)$/;
if($suffix eq "sxw" || $suffix eq "sxc" || $suffix eq "odt" || $suffix eq "ods")
{
$self->{isOOo} = 1;
}
bless $self, $class;
return $self;
}
the modul.xs: ... MODULE = Win32::File::Prop PACKAGE = Win32::File::Prop
properties* properties::new(File); char * File
The constructor: properties::properties(char * File) { MultiByteToWideChar(CP_ACP, 0, File, -1, m_File, (sizeof(m_File)/sizeof(WCHAR))); m_hr = S_OK; m_ipStg = NULL; m_hv = (HV* )newHV(); }
In the test.pl I call init the module with my $STR = Module->new($file);
Thank you,
Reinhard
