Plugin.h

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