1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
|
#ifndef _pdlmagic_H_
#define _pdlmagic_H_
#define PDL_ISMAGIC(it) ((it)->magic != 0)
/* Magic stuff */
struct pdl_magic;
/* If no copy, not copied with the pdl */
typedef struct pdl_magic_vtable {
void *(*cast)(struct pdl_magic *); /* Cast the spell */
struct pdl_magic *(*copy)(struct pdl_magic *);
/* void *(*cast_tr)(struct pdl_magic *,XXX);
* int (*nth_tr)(struct pdl_magic *,XXX);
*/
} pdl_magic_vtable;
#define PDL_MAGIC_MARKCHANGED 0x0001
#define PDL_MAGIC_MUTATEDPARENT 0x0002
#define PDL_MAGIC_THREADING 0x0004
#define PDL_MAGIC_DELETEDATA 0x0008
#define PDL_MAGIC_UNDESTROYABLE 0x4000 /* Someone is referring to this */
/* when magic removed, call pdl_destroy */
#define PDL_MAGIC_DELAYED 0x8000
#define PDL_MAGICSTART \
int what; /* when is this magic to be called */ \
pdl_magic_vtable *vtable; \
struct pdl_magic *next; \
pdl *pdl
#define PDL_TRMAGICSTART \
int what; /* when is this magic to be called */ \
pdl_magic_vtable *vtable; \
struct pdl_magic *next; \
pdl_trans *tr
typedef struct pdl_magic {
PDL_MAGICSTART;
} pdl_magic;
typedef struct pdl_magic_perlfunc {
PDL_MAGICSTART;
SV *sv; /* sub{} or subname (perl_call_sv) */
} pdl_magic_perlfunc;
typedef struct pdl_magic_fammut {
PDL_MAGICSTART;
pdl_trans *ftr;
} pdl_magic_fammut;
typedef struct pdl_magic_changetrans {
PDL_MAGICSTART;
pdl_trans *tr;
} pdl_magic_changetrans;
typedef struct pdl_magic_deletedata {
PDL_MAGICSTART;
void (*func)(pdl *p, int param);
int param;
} pdl_magic_deletedata;
/* #define PDL_PTHREAD */
/* Defined by MakeMaker */
#ifdef PDL_PTHREAD
#include <pthread.h>
typedef struct pdl_magic_pthread {
PDL_MAGICSTART;
int nthdim;
int nthreads;
pthread_key_t key;
} pdl_magic_pthread;
#endif
/* - tr magics */
typedef struct pdl_trmagic {
PDL_TRMAGICSTART;
} pdl_trmagic;
typedef struct pdl_trmagic_family {
PDL_TRMAGICSTART;
pdl *fprog,*tprog;
pdl *fmut,*tmut;
} pdl_trmagic_family;
/* __ = Don't call from outside pdl if you don't know what you're doing */
void pdl__magic_add(pdl *,pdl_magic *);
void pdl__magic_rm(pdl *,pdl_magic *);
int pdl__magic_isundestroyable(pdl *);
void *pdl__call_magic(pdl *,int which);
int pdl__ismagic(pdl *);
pdl_magic *pdl_add_svmagic(pdl *,SV *);
/* A kind of "dowhenidle" system */
void pdl_add_delayed_magic(pdl_magic *);
void pdl_run_delayed_magic();
pdl_trans *pdl_find_mutatedtrans(pdl *it);
/* Threading magic */
void pdl_add_threading_magic(pdl *,int nthdim,int nthreads);
int pdl_magic_thread_nthreads(pdl *,int *nthdim);
int pdl_magic_get_thread(pdl *); /* XXX -> only one thread can handle pdl at once */
void pdl_magic_thread_cast(pdl *,void (*func)(pdl_trans *),pdl_trans *t);
int pdl_pthreads_enabled(void);
/* Delete data magic */
void pdl_delete_mmapped_data(pdl *p, int param) ;
void pdl_add_deletedata_magic(pdl *it,void (*func)(pdl *, int param), int param);
#endif /* _pdlmagic_H_ */
|
