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 #  define XSH_ASSERT(C) PERL_DEB( \
  17    ((C) ? ((void) 0)           \
  18         : (Perl_croak_nocontext("Assertion %s failed: file \"" __FILE__  \
  19                                  "\", line %d", STRINGIFY(C), __LINE__), \
  20            (void) 0)))
  21 # endif
  22 #else
  23 # define XSH_ASSERT(C)
  24 #endif
  25
  26 #ifndef STMT_START
  27 # define STMT_START do
  28 #endif
  29
  30 #ifndef STMT_END
  31 # define STMT_END while (0)
  32 #endif
  33
  34 #ifndef dNOOP
  35 # define dNOOP
  36 #endif
  37
  38 #ifndef NOOP
  39 # define NOOP
  40 #endif
  41
  42 #if XSH_HAS_PERL(5, 13, 2)
  43 # define XSH_DUP_PARAMS_TYPE       CLONE_PARAMS *
  44 # define xsh_dup_params_init(P, O) ((P) = Perl_clone_params_new((O), aTHX))
  45 # define xsh_dup_params_deinit(P)  Perl_clone_params_del(P)
  46 # define xsh_dup_params_ptr(P)     (P)
  47 #else
  48 # define XSH_DUP_PARAMS_TYPE       CLONE_PARAMS
  49 # define xsh_dup_params_init(P, O) \
  50       ((P).stashes = newAV()); (P).flags = 0; ((P).proto_perl = (O))
  51 # define xsh_dup_params_deinit(P)  SvREFCNT_dec((P).stashes)
  52 # define xsh_dup_params_ptr(P)     &(P)
  53 #endif
  54 #define xsh_dup(S, P)     sv_dup((S), (P))
  55 #define xsh_dup_inc(S, P) SvREFCNT_inc(xsh_dup((S), (P)))
  56
  57 #ifdef USE_ITHREADS
  58 # define XSH_LOCK(M)   MUTEX_LOCK(M)
  59 # define XSH_UNLOCK(M) MUTEX_UNLOCK(M)
  60 #else
  61 # define XSH_LOCK(M)   NOOP
  62 # define XSH_UNLOCK(M) NOOP
  63 #endif
  64
  65 #ifndef PTR2nat
  66 # define PTR2nat(p) (PTRV)(p)
  67 #endif
  68
  69 #ifndef DPTR2FPTR
  70 # define DPTR2FPTR(t,p) ((t)PTR2nat(p))
  71 #endif
  72
  73 #ifndef FPTR2DPTR
  74 # define FPTR2DPTR(t,p) ((t)PTR2nat(p))
  75 #endif
  76
  77 #endif /* XSH_UTIL_H */