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; }
In reply to Re^4: (SOLVED) XS: Passing an external library's function a Perl XS callback
by stevieb
in thread SOLVED: XS: Passing an external library's function a Perl XS callback
by stevieb
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |