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 */