in reply to Re^3: XS: Passing an external library's function a Perl XS callback
in thread SOLVED: XS: Passing an external library's function a Perl XS callback
Thanks BrowserUK!!!!! That's it!!
Just before I came back and checked here, I was finding that it was the instance of the interpreter so I was just about to head down that path. You made it extraordinarily easy for me. I just had to add two lines (the PerlInterpreter line and the PERL_SET_CONTEXT line. Here's the working pthread test script. After I clean up my original code that started this thread, I'll update the thread.
use warnings; use strict; use Inline (C => 'DATA', libs => '-lpthread'); create_thread('blah'); sub blah { print "perl callback\n"; } __DATA__ __C__ #include <stdio.h> #include <pthread.h> PerlInterpreter *saved; void wrapper(void *sub_name_ptr){ char *sub_name = (char *)sub_name_ptr; PERL_SET_CONTEXT(saved); printf("threaded ok, sub: %s\n", sub_name); dSP; PUSHMARK(SP); PUTBACK; call_pv(sub_name, G_DISCARD|G_NOARGS); FREETMPS; LEAVE; return NULL; } int create_thread(char *subname){ pthread_t sub_thread; if(pthread_create(&sub_thread, NULL, wrapper, subname)) { fprintf(stderr, "Error creating thread\n"); return 1; } if(pthread_join(sub_thread, NULL)) { fprintf(stderr, "Error joining thread\n"); return 2; } return 0; }
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^5: (SOLVED) XS: Passing an external library's function a Perl XS callback
by Anonymous Monk on Aug 15, 2016 at 21:45 UTC | |
by syphilis (Archbishop) on Aug 16, 2016 at 00:10 UTC |