XS help

by **rajnikant_jachak** » Sat, 26 Jul 2008 19:35:35 GMT

Hello All,
 
I'm trying to call C routine from Perl using XS but some how my 'make test'
is failing. Following are the steps I did :
 
file: hypotenuse.h
      double hypotenuse(double x, double y); /* Func Declaration */
file: hypotenuse.c
      /* Func Definition */
     double hypotenuse(double x, double y)
     {
           return sqrt(x*x + y*y);
     }

Steps :
1.  h2xs -n Geometry -A -O -x -F '-I ../..' hypotenuse.h   /created XS
components
2. cd Geometry               // Went in the directory
3. cp ../hypotenuse.* .     // Copied header and source files in Dir
4. Added Geometry.o and hypotenuse.o as objects in Makefile.pl
5. Perl Makefile.pl  and make is ok
6. 'make test' is failing 
 
Do someone have any idea where I'm going wrong? I did not read perl doc for
XS yet :(.
 
Error logs:
PERL_DL_NONLAZY=1 /usr/bin/perl "-MExtUtils::Command::MM" "-e"
"test_harness(0, 'blib/lib', 'blib/arch')" t/*.t
t/Geometry....NOK 1
#   Failed test 'use Geometry;'
#   in t/Geometry.t at line 9.
#     Tried to use 'Geometry'.
#     Error:  Can't load
'/SES/rajni/claudio/rajni/myModule/Code/factorial/Geometry/blib/arch/auto/Ge
ometry/Geometry.so' for module Geometry:
/SES/rajni/claudio/rajni/myModule/Code/factorial/Geometry/blib/arch/auto/Geo
metry/Geometry.so: undefined symbol: hypotenuse at
/usr/lib/perl5/5.8.8/i586-linux-thread-multi/DynaLoader.pm line 230.
 
Thanks
Rajni
 
 
 

DISCLAIMER
==========
This e-mail may contain privileged and confidential information which is the property of Persistent Systems Ltd. It is intended only for the use of the individual or entity to which it is addressed. If you are not the intended recipient, you are not authorized to read, retain, copy, print, distribute or use this message. If you have received this communication in error, please notify the sender and delete all copies of this message. Persistent Systems Ltd. does not accept any liability for virus infected mails.

by **sisyphus359** » Sat, 26 Jul 2008 23:43:28 GMT

On Jul 25, 8:35m,  XXXX@XXXXX.COM  (Rajnikant)


> file: hypotenuse.>
> /* Func Definitio> */
> ouble hypotenuse(double x, dou>le y)
> eturn sqr>(x*x + >*y);
> 
>

I would probably just create a Makefile.PL that looks like:

----------------------------------
use ExtUtils::MakeMaker;
my %option> = (
  'NAME' => 'Geometry>,
  'VERSION' => '0.01'
);
WriteMakefile(%options);

# Remove the Makefile dependency. Causes problems on a few systems.
sub MY::makefile { '' }
----------------------------------

a Geometry.pm that looks like:

----------------------------------
package Geometry;
use strict;

require Exporter;
*import = \&Exporter::import;
require DynaLoader;

$Geometry::VERSION = '0.01';

DynaLoader::bootstrap Geometry $Geometry::VERSION;

@Geometry::EXPORT = ();
@Geometry::EXPORT_OK = ('hypotenuse');

sub dl_load_flags {0} # Prevent DynaLoader from complaining and
croaking

1;
----------------------------------

a Geometry.xs that looks like:

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

double hypotenuse(double x, double y) {
           return sqrt(x*x + y*y);
}
MODULE = Geometry	PACKAGE = Geometry

PROTOTYPES: DISABLE


double
hypotenuse (x, y)
	double	x
	double	y

----------------------------------

and a test.pl that looks like:

----------------------------------
use warnings;
use strict;
use Geometry 'hypotenuse';

print "1..1\n";

if(hypotenuse(5, 12) == 13) {print "ok 1\n"}
else {print "not ok 1\n"}
----------------------------------

I used InlineX::C2XS (needs Inline::C) to autogenerate the first 3 of
those 4 files - though there's some very minor hand editing that went
on as well wrt the Makefile.PL and Geometry.pm.
'test.pl' was written entirely by hand.
The source file that InlineX::C2XS used (./src/Geometry.c) looked
like:

----------------------------------
double hypotenuse(double x, double y) {
           return sqrt(x*x + y*y);
}
----------------------------------


Cheers,
Rob

XS help

XS help

Jump to:

Next

XS help

Re: XS help

Similar Threads:

Who is online