The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#ifndef RN_LEND_H
#define RN_LEND_H

#ifdef RE_FIELDS_REXC
# define  pREXC     RExC_state_t *pRExC_state
# define  aREXC     pRExC_state
# define  pREXC_    pREXC,
# define  aREXC_    aREXC,

# ifdef PERL_IMPLICIT_CONTEXT
#   define _pREXC  ,pREXC
#   define _aREXC  ,aREXC
#   define pTHX_pREXC pTHX, pREXC
#   define aTHX_aREXC aTHX, aREXC
# else
#   define _pREXC   pREXC
#   define _aREXC   aREXC
#   define pTHX_pREXC pREXC
#   define aTHX_aREXC aREXC
# endif

# if (PERL_REVISION == 5) && (PERL_VERSION == 7) && (PERL_SUBVERSION == 1)
#   undef  RExC_npar
#   define RExC_npar    PL_regnpar
# endif

#else
# define  pREXC
# define  aREXC
# define  pREXC_
# define  aREXC_
# define _pREXC
# define _aREXC

# ifdef PERL_IMPLICIT_CONTEXT
#   define pTHX_pREXC pTHX
#   define aTHX_aREXC aTHX
# else
#   define pTHX_pREXC 
#   define aTHX_aREXC 
# endif

# define  RExC_parse     PL_regcomp_parse
# define  RExC_rx        PL_regcomp_rx
# define  RExC_npar      PL_regnpar
# define  RExC_seen      PL_regseen

# ifndef vFAIL
#   define  vFAIL(p)       Perl_croak(aTHX_ p " in regular expression")
# endif
# ifndef vFAIL3
#   define  vFAIL3(p,x,y)  Perl_croak(aTHX_ p " in regular expression", x, y)
# endif
#endif

#ifndef PM_SETRE
# define  PM_SETRE(o,x)  (o->op_pmregexp = x)
#endif
#ifndef PM_GETRE
# define  PM_GETRE(o)    (o->op_pmregexp)
#endif

#ifdef PERL_IN_REGCOMP_C
  EXT void rx_regcomp_start(pTHX_pREXC);
  EXT int  rx_regcomp_parse(pTHX_ pREXC_ char*, I32);
  EXT void rx_regfree(pTHX_ REGEXP*);
#endif
#ifdef PERL_IN_REGEXEC_C
  EXT void rx_regexec_start(pTHX_ REGEXP*, I32 flags);
  EXT void rx_regexec_match(pTHX_ REGEXP*, I32 flags);
  EXT void rx_regexec_fail(pTHX_ REGEXP*,  I32 flags);
#endif

#endif