| … | |
… | |
| 423 | |
423 | |
| 424 | =cut |
424 | =cut |
| 425 | |
425 | |
| 426 | our @SLOT_QUEUE; |
426 | our @SLOT_QUEUE; |
| 427 | our $SLOT_QUEUE; |
427 | our $SLOT_QUEUE; |
|
|
428 | our $SLOT_DECAY = 0.9; |
| 428 | |
429 | |
| 429 | $SLOT_QUEUE->cancel if $SLOT_QUEUE; |
430 | $SLOT_QUEUE->cancel if $SLOT_QUEUE; |
| 430 | $SLOT_QUEUE = Coro::async { |
431 | $SLOT_QUEUE = Coro::async { |
| 431 | $Coro::current->desc ("timeslot manager"); |
432 | $Coro::current->desc ("timeslot manager"); |
| 432 | |
433 | |
| 433 | my $signal = new Coro::Signal; |
434 | my $signal = new Coro::Signal; |
|
|
435 | my $busy; |
| 434 | |
436 | |
| 435 | while () { |
437 | while () { |
| 436 | next_job: |
438 | next_job: |
|
|
439 | |
| 437 | my $avail = cf::till_tick; |
440 | my $avail = cf::till_tick; |
| 438 | if ($avail > 0.01) { |
441 | |
| 439 | for (0 .. $#SLOT_QUEUE) { |
442 | for (0 .. $#SLOT_QUEUE) { |
| 440 | if ($SLOT_QUEUE[$_][0] < $avail) { |
443 | if ($SLOT_QUEUE[$_][0] <= $avail) { |
|
|
444 | $busy = 0; |
| 441 | my $job = splice @SLOT_QUEUE, $_, 1, (); |
445 | my $job = splice @SLOT_QUEUE, $_, 1, (); |
| 442 | $job->[2]->send; |
446 | $job->[2]->send; |
| 443 | Coro::cede; |
447 | Coro::cede; |
| 444 | goto next_job; |
448 | goto next_job; |
| 445 | } |
449 | } else { |
|
|
450 | $SLOT_QUEUE[$_][0] *= $SLOT_DECAY; |
| 446 | } |
451 | } |
| 447 | } |
452 | } |
| 448 | |
453 | |
| 449 | if (@SLOT_QUEUE) { |
454 | if (@SLOT_QUEUE) { |
| 450 | # we do not use wait_for_tick() as it returns immediately when tick is inactive |
455 | # we do not use wait_for_tick() as it returns immediately when tick is inactive |
| 451 | push @cf::WAIT_FOR_TICK, $signal; |
456 | push @cf::WAIT_FOR_TICK, $signal; |
| 452 | $signal->wait; |
457 | $signal->wait; |
| 453 | } else { |
458 | } else { |
|
|
459 | $busy = 0; |
| 454 | Coro::schedule; |
460 | Coro::schedule; |
| 455 | } |
461 | } |
| 456 | } |
462 | } |
| 457 | }; |
463 | }; |
| 458 | |
464 | |
| 459 | sub get_slot($;$$) { |
465 | sub get_slot($;$$) { |
| 460 | return if tick_inhibit || $Coro::current == $Coro::main; |
466 | return if tick_inhibit || $Coro::current == $Coro::main; |
| 461 | |
467 | |
| 462 | my ($time, $pri, $name) = @_; |
468 | my ($time, $pri, $name) = @_; |
| 463 | |
469 | |
| 464 | $time = $TICK * .6 if $time > $TICK * .6; |
470 | $time = clamp $time, 0.01, $TICK * .6; |
|
|
471 | |
| 465 | my $sig = new Coro::Signal; |
472 | my $sig = new Coro::Signal; |
| 466 | |
473 | |
| 467 | push @SLOT_QUEUE, [$time, $pri, $sig, $name]; |
474 | push @SLOT_QUEUE, [$time, $pri, $sig, $name]; |
| 468 | @SLOT_QUEUE = sort { $b->[1] <=> $a->[1] } @SLOT_QUEUE; |
475 | @SLOT_QUEUE = sort { $b->[1] <=> $a->[1] } @SLOT_QUEUE; |
| 469 | $SLOT_QUEUE->ready; |
476 | $SLOT_QUEUE->ready; |
| … | |
… | |
| 3912 | return; |
3919 | return; |
| 3913 | } |
3920 | } |
| 3914 | |
3921 | |
| 3915 | cf::server_tick; # one server iteration |
3922 | cf::server_tick; # one server iteration |
| 3916 | |
3923 | |
|
|
3924 | #for(1..3e6){} EV::now_update; $NOW=EV::now; # generate load #d# |
|
|
3925 | |
| 3917 | if ($NOW >= $NEXT_RUNTIME_WRITE) { |
3926 | if ($NOW >= $NEXT_RUNTIME_WRITE) { |
| 3918 | $NEXT_RUNTIME_WRITE = List::Util::max $NEXT_RUNTIME_WRITE + 10, $NOW + 5.; |
3927 | $NEXT_RUNTIME_WRITE = List::Util::max $NEXT_RUNTIME_WRITE + 10, $NOW + 5.; |
| 3919 | Coro::async_pool { |
3928 | Coro::async_pool { |
| 3920 | $Coro::current->{desc} = "runtime saver"; |
3929 | $Coro::current->{desc} = "runtime saver"; |
| 3921 | write_runtime_sync |
3930 | write_runtime_sync |
