File Coverage

t/stages.xs

Criterion	Covered	Total	%
statement	47	48	97.9
branch	21	24	87.5
condition			n/a
subroutine			n/a
pod			n/a
total	68	72	94.4

/*  You may distribute under the terms of either the GNU General Public License
 *  or the Artistic License (the same terms as Perl itself)
 *
 *  (C) Paul Evans, 2020 -- [e-mail]
 */

#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"

#include "XSParseSublike.h"

#include "sv_setrv.c.inc"

#if (PERL_REVISION > 5) || (PERL_REVISION == 5 && PERL_VERSION >= 26)
#  define HAVE_SIGNATURES
#endif

static bool stage_permit(pTHX_ void *_)
{
  if(!hv_fetchs(GvHV(PL_hintgv), "t::stages/permit", 0))
    return FALSE;

  return TRUE;
}

static void stage_pre_subparse(pTHX_ struct XSParseSublikeContext *ctx, void *_)
{
  if(hv_fetchs(GvHV(PL_hintgv), "t::stages/pre_subparse-capture", 0)) {
    sv_setsv(get_sv("t::stages::captured", GV_ADD), get_sv("main::VAR", 0));
  }
}

static void stage_post_blockstart(pTHX_ struct XSParseSublikeContext *ctx, void *_)
{
  if(hv_fetchs(GvHV(PL_hintgv), "t::stages/post_blockstart-capture", 0)) {
    sv_setsv(get_sv("t::stages::captured", GV_ADD), get_sv("main::VAR", 0));
  }
}

static void stage_pre_blockend(pTHX_ struct XSParseSublikeContext *ctx, void *_)
{
  if(hv_fetchs(GvHV(PL_hintgv), "t::stages/pre_blockend-capture", 0)) {
    sv_setsv(get_sv("t::stages::captured", GV_ADD), get_sv("main::VAR", 0));
  }
}

static void stage_post_newcv(pTHX_ struct XSParseSublikeContext *ctx, void *_)
{
  if(hv_fetchs(GvHV(PL_hintgv), "t::stages/post_newcv-capture-cv", 0)) {
    sv_setrv_inc(get_sv("t::stages::captured", GV_ADD), (SV *)ctx->cv);
  }
}

static bool stage_filter_attr(pTHX_ struct XSParseSublikeContext *ctx, SV *attr, SV *value, void *_)
{
  if(!hv_fetchs(GvHV(PL_hintgv), "t::stages/filter_attr-capture", 0))
    return FALSE;

  AV *av = newAV();
  av_push(av, SvREFCNT_inc(attr));
  av_push(av, SvREFCNT_inc(value));

  sv_setrv_noinc(get_sv("t::stages::captured", GV_ADD), (SV *)av);
  return TRUE;
}

#ifdef HAVE_SIGNATURES
static void stage_start_signature(pTHX_ struct XSParseSublikeContext *ctx, void *_)
{
  if(hv_fetchs(GvHV(PL_hintgv), "t::stages/signature-add-$first", 0)) {
    PADOFFSET padix = pad_add_name_pvs("$first", 0, NULL, NULL);

    xps_signature_add_param(ctx, (&(struct XPSSignatureParamDetails){
      .ver = XSPARSESUBLIKE_ABI_VERSION,

      .sigil = '$',
      .padix = padix,
    }));
  }

  if(hv_fetchs(GvHV(PL_hintgv), "t::stages/signature-capture", 0)) {
    SV *sv = get_sv("t::stages::captured", GV_ADD);
    if(!SvPOK(sv))
      sv_setpv(sv, "");

    sv_catpv(sv, "(SIG");
  }
}

static void stage_finish_signature(pTHX_ struct XSParseSublikeContext *ctx, void *_)
{
  if(hv_fetchs(GvHV(PL_hintgv), "t::stages/signature-add-@rest", 0)) {
    PADOFFSET padix = pad_add_name_pvs("@rest", 0, NULL, NULL);

    xps_signature_add_param(ctx, (&(struct XPSSignatureParamDetails){
      .ver = XSPARSESUBLIKE_ABI_VERSION,

      .sigil = '@',
      .padix = padix,
    }));
  }

  if(hv_fetchs(GvHV(PL_hintgv), "t::stages/signature-capture", 0)) {
    SV *sv = get_sv("t::stages::captured", GV_ADD);
    if(!SvPOK(sv))
      sv_setpv(sv, "");

    sv_catpvf(sv, "[n=%" UVuf "])", xps_signature_query_params(ctx));
  }
}
#endif

static const struct XSParseSublikeHooks parse_stages_hooks = {
  .ver              = XSPARSESUBLIKE_ABI_VERSION,
  .permit           = stage_permit,
  .pre_subparse     = stage_pre_subparse,
  .filter_attr      = stage_filter_attr,
  .post_blockstart  = stage_post_blockstart,
  .pre_blockend     = stage_pre_blockend,
  .post_newcv       = stage_post_newcv,
#ifdef HAVE_SIGNATURES
  .start_signature  = stage_start_signature,
  .finish_signature = stage_finish_signature,
#endif
};

MODULE = t::stages  PACKAGE = t::stages

BOOT:
  boot_xs_parse_sublike(0);

  register_xs_parse_sublike("stages", &parse_stages_hooks, NULL);