… | |
… | |
1564 | |
1564 | |
1565 | for_all_objects (op) |
1565 | for_all_objects (op) |
1566 | op->reattach (); |
1566 | op->reattach (); |
1567 | } |
1567 | } |
1568 | |
1568 | |
1569 | void _post_tick () |
|
|
1570 | CODE: |
|
|
1571 | coroapi::next_cede = SvNV (sv_next_tick) - TICK * (1. - 1. / CEDES_PER_TICK); |
|
|
1572 | |
|
|
1573 | # support function for map-world.ext |
1569 | # support function for map-world.ext |
1574 | void _quantise (SV *data_sv, SV *plt_sv) |
1570 | void _quantise (SV *data_sv, SV *plt_sv) |
1575 | CODE: |
1571 | CODE: |
1576 | { |
1572 | { |
1577 | if (!SvROK (plt_sv) || SvTYPE (SvRV (plt_sv)) != SVt_PVAV) |
1573 | if (!SvROK (plt_sv) || SvTYPE (SvRV (plt_sv)) != SVt_PVAV) |
… | |
… | |
1609 | len -= 3; |
1605 | len -= 3; |
1610 | } |
1606 | } |
1611 | |
1607 | |
1612 | SvCUR_set (data_sv, dst - SvPVX (data_sv)); |
1608 | SvCUR_set (data_sv, dst - SvPVX (data_sv)); |
1613 | } |
1609 | } |
|
|
1610 | |
|
|
1611 | void _post_tick () |
|
|
1612 | CODE: |
|
|
1613 | coroapi::next_cede = SvNV (sv_next_tick) - TICK * (1. - 1. / CEDES_PER_TICK); |
|
|
1614 | |
|
|
1615 | NV till_cede () |
|
|
1616 | CODE: |
|
|
1617 | RETVAL = coroapi::next_cede - now (); |
|
|
1618 | OUTPUT: |
|
|
1619 | RETVAL |
|
|
1620 | |
|
|
1621 | NV till_tick () |
|
|
1622 | CODE: |
|
|
1623 | RETVAL = SvNV (sv_next_tick) - now (); |
|
|
1624 | OUTPUT: |
|
|
1625 | RETVAL |
1614 | |
1626 | |
1615 | NV floor (NV x) |
1627 | NV floor (NV x) |
1616 | |
1628 | |
1617 | NV ceil (NV x) |
1629 | NV ceil (NV x) |
1618 | |
1630 | |