view release on metacpan or  search on metacpan

XS.xs  view on Meta::CPAN

    double    h1
    double    v2
    double    h2

void
toVH (lat, lon)
    double    lat
    double    lon
    PREINIT:
    I32* temp;
    PPCODE:
    temp = PL_markstack_ptr++;
    toVH(lat, lon);
    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 */
    return; /* assume stack size is correct */

void
toLatLon (v, h)
    double    v
    double    h
    PREINIT:
    I32* temp;
    PPCODE:
    temp = PL_markstack_ptr++;
    toLatLon(v, h);
    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 */
    return; /* assume stack size is correct */