view release on metacpan or  search on metacpan

PerlMaple.xs  view on Meta::CPAN

int
maple_start ()

void
maple_eval (expr)
    char *  expr
    PREINIT:
    I32* temp;
    PPCODE:
    temp = PL_markstack_ptr++;
    warninfo[0] = '\0';
    result[0] = '\0';
    maple_eval(expr);
    if (PL_markstack_ptr != temp) {
          /* truly void, because dXSARGS not invoked */
      PL_markstack_ptr = temp;
      XSRETURN_EMPTY; /* return empty stack */
        }
        /* must have used dXSARGS; list context implied */