Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation

Re^3: XS/C, threads, and calling call_sv() with a code ref

by dave_the_m (Monsignor)
on Apr 26, 2018 at 07:19 UTC ( #1213575=note: print w/replies, xml ) Need Help??

in reply to Re^2: XS/C, threads, and calling call_sv() with a code ref
in thread XS/C, threads, and calling call_sv() with a code ref

In essence, if I'm hearing you correctly, you're saying that what I am trying to achieve is not possible.
Not all all; it just needs to be done differently. Off the top my head:

Use two perl-level threads: the first is your main program, the second is created with threads->new(...). The main thread does whatever normal activity you want to run; the second runs a loop which calls an XS function which blocks waiting for an interrupt:

use threads; # interrupt thread sub handler { while (1) { XS_wait_for_interrupt(); print "got interrupt\n"; } } threads->new(\&handler)->detach(); # main thread my $continue = 1; $SIG{INT} = sub { $continue = 0; }; while ($continue){ ...do_work...; }
How the XS function waits for and wakes up when an interrupt is received depends on the details of how interrupts are implemented on the rPI, about which I no nothing. But maybe have something set and release a mutex, and have XS_wait_for_interrupt() block on the mutex.

If the interrupt perl thread needs to interact with the main thread in some way, then that depends a lot on how they should interact. For example, using threads::shared to pass shared data beteen the threads. Or if the main thread's role is mainly to do tasks based on events, then maybe use one of the various event modules available on CPAN (about which I know very little), where the interrupt is one of the events the main thread can handle.


Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1213575]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (8)
As of 2020-09-25 14:43 GMT
Find Nodes?
    Voting Booth?
    If at first I donít succeed, I Ö

    Results (138 votes). Check out past polls.