Plugin.h

   1 #define GET_SELF_FROM_PPRIVATE(pprivate)        \
   2     re__engine__Plugin self;                    \
   3     SELF_FROM_PPRIVATE(self,pprivate);
   4
   5 /* re__engine__Plugin self; SELF_FROM_PPRIVATE(self,rx->pprivate) */
   6 #define SELF_FROM_PPRIVATE(self, pprivate)                   \
   7         if (sv_isobject(pprivate)) {                             \
   8         SV * ref = SvRV((SV*)pprivate);                      \
   9             IV tmp = SvIV((SV*)ref);                             \
  10             self = INT2PTR(re__engine__Plugin,tmp);              \
  11     } else {                                                 \
  12         Perl_croak(aTHX_ "Not an object");                   \
  13     }
  14
  15 START_EXTERN_C
  16 EXTERN_C const regexp_engine engine_plugin;
  17 #if PERL_VERSION <= 10
  18 EXTERN_C REGEXP * Plugin_comp(pTHX_ const SV * const, const U32);
  19 #else
  20 EXTERN_C REGEXP * Plugin_comp(pTHX_ SV * const, U32);
  21 #endif
  22 EXTERN_C I32      Plugin_exec(pTHX_ REGEXP * const, char *, char *,
  23                               char *, I32, SV *, void *, U32);
  24 EXTERN_C char *   Plugin_intuit(pTHX_ REGEXP * const, SV *, char *,
  25                                 char *, U32, re_scream_pos_data *);
  26 EXTERN_C SV *     Plugin_checkstr(pTHX_ REGEXP * const);
  27 EXTERN_C void     Plugin_free(pTHX_ REGEXP * const);
  28 EXTERN_C void     Plugin_numbered_buff_FETCH(pTHX_ REGEXP * const,
  29                                              const I32, SV * const);
  30 EXTERN_C void     Plugin_numbered_buff_STORE(pTHX_ REGEXP * const,
  31                                              const I32, SV const * const);
  32 EXTERN_C I32      Plugin_numbered_buff_LENGTH(pTHX_ REGEXP * const,
  33                                               const SV * const, const I32);
  34 EXTERN_C SV *     Plugin_named_buff (pTHX_ REGEXP * const, SV * const,
  35                                      SV * const, const U32);
  36 EXTERN_C SV *     Plugin_named_buff_iter (pTHX_ REGEXP * const, const SV * const,
  37                                           const U32);
  38 EXTERN_C SV *     Plugin_package(pTHX_ REGEXP * const);
  39 #ifdef USE_ITHREADS
  40 EXTERN_C void *   Plugin_dupe(pTHX_ REGEXP * const, CLONE_PARAMS *);
  41 #endif
  42 END_EXTERN_C
  43
  44 START_EXTERN_C
  45 EXTERN_C const regexp_engine engine_plugin;
  46 END_EXTERN_C
  47
  48 #define RE_ENGINE_PLUGIN (&engine_plugin)
  49 const regexp_engine engine_plugin = {
  50     Plugin_comp,
  51     Plugin_exec,
  52     Plugin_intuit,
  53     Plugin_checkstr,
  54     Plugin_free,
  55     Plugin_numbered_buff_FETCH,
  56     Plugin_numbered_buff_STORE,
  57     Plugin_numbered_buff_LENGTH,
  58     Plugin_named_buff,
  59     Plugin_named_buff_iter,
  60     Plugin_package,
  61 #if defined(USE_ITHREADS)
  62     Plugin_dupe,
  63 #endif
  64 };
  65
  66 typedef struct replug {
  67     /* Pointer back to the containing regexp struct so that accessors
  68      * can modify nparens, gofs etc. */
  69     struct regexp * rx;
  70
  71     /* A copy of the pattern given to comp, for ->pattern */
  72     SV * pattern;
  73
  74     /* A copy of the string being matched against, for ->str */
  75     SV * str;
  76
  77     /* The ->stash */
  78     SV * stash;
  79
  80     /* Callbacks */
  81     SV * cb_exec;
  82     SV * cb_free;
  83
  84     /* ->num_captures */
  85     SV * cb_num_capture_buff_FETCH;
  86     SV * cb_num_capture_buff_STORE;
  87     SV * cb_num_capture_buff_LENGTH;
  88 } *re__engine__Plugin;
  89
  90 #if PERL_VERSION >= 11
  91 # define rxREGEXP(RX)  (SvANY(RX))
  92 # define newREGEXP(RX) ((RX) = ((REGEXP*) newSV_type(SVt_REGEXP)))
  93 #else
  94 # define rxREGEXP(RX)  (RX)
  95 # define newREGEXP(RX) (Newxz((RX), 1, struct regexp))
  96 #endif