Erstellen Threaded-Rückrufe in XS

Question

EDIT: Ich habe eine ticket dafür geschaffen, die Dinge zu tun, auf diese Art und Weise Daten über eine Alternative hat.

Ich habe updated the code in einem Versuch MY_CXT Callback zu verwenden, wie gcxt nicht über Threads zu speichern wurde. Dies wird jedoch bei ENTER zurückgesetzt.

Diese segfold, sobald ich für den Rückruf in ENTER gehen.

use SDL; 
use SDL::Time; 

SDL::init(SDL_INIT_TIMER); 
my $time = 0; 
SDL::Timer::add_timer(100, sub { $time++; return $_[0]}); 
sleep(10); 
print "Never Prints"; 

Ausgang ist

$ 

sollte es

$ Never Prints 

Answer 1

Wir haben eine Lösung gefunden, die Perl-Interpreter-Threads und threads :: shared verwendet. Bitte lesen Sie diese

Time.xs

hier auch ein Beispiel für ein Skript mit diesem Code.

TestTimer.pl

Answer 2

$ Zeit benötigt werden, um eine gemeinsame Variable sein - sonst Perl arbeitet mit separaten Kopien der Variablen.

Answer 3

Schnell Kommentare:

• Sie Perl structs nicht verwenden (SV, AV, HV, ...), die außerhalb des Kontextes eines Objekts Perl-Interpreter. I.e. Verwenden Sie es nicht als statische C-Level-Daten. Es wird in einem Threading-Kontext explodieren. Vertrau mir, ich war dort.
• prüfen „Sicher Speichern von statischen Daten in XS“ in der perlxs manpage aus.
• Einige dieser Sachen Sie sieht eher nicht-öffentlich aus der Sicht des perlapi tun. Ich bin mir allerdings nicht ganz sicher.

Answer 4

Meine bevorzugte Methode, dies zu verarbeiten, ist das Speichern der Daten im PL_modglobal Hash. Es ist automatisch an den aktuellen Interpreter gebunden.