in reply to Re^3: Extending perl with C dynamic library.
in thread Extending perl with C dynamic library.
Ok after hours of testing I resolved most of the problems. My main focus was to implment some necessary code into C but I can't do this even with the simplest code from documentation.
Here is an example:NOTE: I back to XS and "make" since Inline has problems with compile this code. With make I compile this code fine to Example.c then with#include "EXTERN.h" #include "perl.h" #include "XSUB.h" #include <stdio.h> #include "ppport.h" static PerlInterpreter *my_perl; int main(int argc, char **argv, char **env) { SV *cvrv = eval_pv("sub { print 'You will not find me cluttering any n +amespace!' }", TRUE); char *args[] = { NULL }; PERL_SYS_INIT3(&argc,&argv,&env); my_perl = perl_alloc(); perl_construct(my_perl); perl_parse(my_perl, NULL, argc, argv, NULL); PL_exit_flags |= PERL_EXIT_DESTRUCT_END; /*** skipping perl_run() ***/ call_sv(cvrv, G_VOID|G_NOARGS); perl_destruct(my_perl); perl_free(my_perl); PERL_SYS_TERM(); } MODULE = Example PACKAGE = Example
cc -o interp Example.c `perl -MExtUtils::Embed -e ccopts -e ldopts`
produce executable file "interp". Up to this point everything went ok. The problem occur when i try tu run "interp":% ./interp
returns :Segmentation fault.
I think problem is in line: SV *cvrv = eval_pv("sub { print 'You will not find me cluttering any namespace!' }", TRUE);"Documentation corresponding with this code:
http://perldoc.perl.org/perlcall.html#Creating-and-Calling-an-Anonymous-Subroutine-in-C
Do you know what is wrong ?
Thanks ;)
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^5: Extending perl with C dynamic library.
by syphilis (Archbishop) on Aug 20, 2013 at 23:51 UTC | |
by Martin90 (Sexton) on Aug 21, 2013 at 19:11 UTC | |
by syphilis (Archbishop) on Aug 21, 2013 at 22:30 UTC | |
by Martin90 (Sexton) on Aug 24, 2013 at 12:13 UTC | |
Re^5: Extending perl with C dynamic library.
by BrowserUk (Patriarch) on Aug 20, 2013 at 19:04 UTC | |
by Martin90 (Sexton) on Aug 20, 2013 at 19:52 UTC | |
by BrowserUk (Patriarch) on Aug 20, 2013 at 20:04 UTC | |
by Martin90 (Sexton) on Aug 24, 2013 at 12:16 UTC |
In Section
Seekers of Perl Wisdom