Update XS helpers to 18554226
[perl/modules/indirect.git] / xsh / util.h
1 #ifndef XSH_UTIL_H
2 #define XSH_UTIL_H 1
3
4 #include "caps.h" /* XSH_HAS_PERL() */
5
6 #ifndef XSH_PACKAGE
7 # error XSH_PACKAGE must be defined
8 #endif
9
10 #define XSH_PACKAGE_LEN (sizeof(XSH_PACKAGE)-1)
11
12 #ifdef DEBUGGING
13 # if XSH_HAS_PERL(5, 8, 9) || XSH_HAS_PERL(5, 9, 3)
14 #  define XSH_ASSERT(C) assert(C)
15 # else
16 #  ifdef PERL_DEB
17 #   define XSH_DEB(X) PERL_DEB(X)
18 #  else
19 #   define XSH_DEB(X) (X)
20 #  endif
21 #  define XSH_ASSERT(C) XSH_DEB( \
22    ((C) ? ((void) 0)           \
23         : (Perl_croak_nocontext("Assertion %s failed: file \"" __FILE__  \
24                                  "\", line %d", STRINGIFY(C), __LINE__), \
25            (void) 0)))
26 # endif
27 #else
28 # define XSH_ASSERT(C)
29 #endif
30
31 #ifndef STMT_START
32 # define STMT_START do
33 #endif
34
35 #ifndef STMT_END
36 # define STMT_END while (0)
37 #endif
38
39 #ifndef dNOOP
40 # define dNOOP
41 #endif
42
43 #ifndef NOOP
44 # define NOOP
45 #endif
46
47 #if XSH_HAS_PERL(5, 13, 2)
48 # define XSH_DUP_PARAMS_TYPE       CLONE_PARAMS *
49 # define xsh_dup_params_init(P, O) ((P) = Perl_clone_params_new((O), aTHX))
50 # define xsh_dup_params_deinit(P)  Perl_clone_params_del(P)
51 # define xsh_dup_params_ptr(P)     (P)
52 #else
53 # define XSH_DUP_PARAMS_TYPE       CLONE_PARAMS
54 # define xsh_dup_params_init(P, O) \
55       ((P).stashes = newAV()); (P).flags = 0; ((P).proto_perl = (O))
56 # define xsh_dup_params_deinit(P)  SvREFCNT_dec((P).stashes)
57 # define xsh_dup_params_ptr(P)     &(P)
58 #endif
59 #define xsh_dup(S, P)     sv_dup((S), (P))
60 #define xsh_dup_inc(S, P) SvREFCNT_inc(xsh_dup((S), (P)))
61
62 #ifdef USE_ITHREADS
63 # define XSH_LOCK(M)   MUTEX_LOCK(M)
64 # define XSH_UNLOCK(M) MUTEX_UNLOCK(M)
65 #else
66 # define XSH_LOCK(M)   NOOP
67 # define XSH_UNLOCK(M) NOOP
68 #endif
69
70 #ifndef PTR2nat
71 # define PTR2nat(p) (PTRV)(p)
72 #endif
73
74 #ifndef DPTR2FPTR
75 # define DPTR2FPTR(t,p) ((t)PTR2nat(p))
76 #endif
77
78 #ifndef FPTR2DPTR
79 # define FPTR2DPTR(t,p) ((t)PTR2nat(p))
80 #endif
81
82 #endif /* XSH_UTIL_H */