ext/threads/threads.h

   1
   2 #include "EXTERN.h"
   3 #include "perl.h"
   4 #include "XSUB.h"
   5 #include <stdio.h>
   6 #include <stdlib.h>
   7
   8 #ifdef WIN32
   9 #include <windows.h>
  10 #include <win32thread.h>
  11 #else
  12 #include <pthread.h>
  13 #include <thread.h>
  14 #endif
  15
  16 typedef struct {
  17   PerlInterpreter *interp;    /* The threads interpreter */
  18   I32 tid;              /* Our thread */
  19   perl_mutex mutex;             /* our mutex */
  20   I32 count;                    /* how many threads have a reference to us */
  21   signed char detached;         /* are we detached ? */
  22   SV* init_function;
  23   SV* params;
  24 #ifdef WIN32
  25   DWORD thr;
  26   HANDLE handle;
  27 #else
  28   pthread_t thr;
  29 #endif
  30 } ithread;
  31
  32
  33
  34 static perl_mutex create_mutex;  /* protects the creation of threads ??? */
  35
  36
  37
  38 I32 tid_counter = 1;
  39 shared_sv* threads;
  40
  41
  42
  43
  44
  45
  46 /* internal functions */
  47 #ifdef WIN32
  48 THREAD_RET_TYPE Perl_thread_run(LPVOID arg);
  49 #else
  50 void* Perl_thread_run(void * arg);
  51 #endif
  52 void Perl_thread_destruct(ithread* thread);
  53
  54 /* Perl mapped functions to iThread:: */
  55 SV* Perl_thread_create(char* class, SV* function_to_call, SV* params);
  56 I32 Perl_thread_tid (SV* obj);
  57 void Perl_thread_join(SV* obj);
  58 void Perl_thread_detach(SV* obj);
  59 SV* Perl_thread_self (char* class);
  60
  61
  62
  63
  64
  65
  66
  67
  68