Lines Matching refs:db
30 my (%db, %vdb, %queue, %submit, %notify, %rings, %ctxdb, %ringmap, %reqwait,
445 delete $db{$key} if exists $db{$key};
489 $db{$key} = \%req;
494 die unless exists $db{$key};
495 die unless exists $db{$key}->{'start'};
496 die if exists $db{$key}->{'end'};
500 $db{$key}->{'end'} = $time;
501 $db{$key}->{'notify'} = $notify{$nkey}
504 delete $db{$key};
526 foreach my $key (keys %db) {
527 my $nkey = notify_key($db{$key}->{'ctx'}, $db{$key}->{'seqno'});
529 die unless exists $db{$key}->{'start'};
531 $max_seqno = $db{$key}->{'seqno'} if $db{$key}->{'seqno'} > $max_seqno;
534 $db{$key}->{'notify'} = $notify{$nkey} if not exists $db{$key}->{'notify'}
538 $db{$key}->{'notify'} = $db{$key}->{'end'} if exists $db{$key}->{'end'} and
539 not exists $db{$key}->{'notify'};
543 if (exists $db{$key}->{'end'} and exists $db{$key}->{'notify'} and
544 $db{$key}->{'notify'} > $db{$key}->{'end'}) {
545 $db{$key}->{'notify'} = $db{$key}->{'end'};
549 my $key_count = scalar(keys %db);
554 my $as = $db{$a}->{'start'};
555 my $bs = $db{$b}->{'start'};
570 @timeline = grep { $db{$_}->{'ring'} eq $ring } keys %db;
590 next if exists $db{$key}->{'end'};
592 $db{$key}->{'no-end'} = 1;
593 $ctx = $db{$key}->{'ctx'};
602 if ($ctx == $db{$next_key}->{'ctx'} and
603 exists $db{$next_key}->{'end'}) {
604 $last_ctx = $db{$next_key}->{'ctx'};
613 if ($ctx == $db{$complete}->{'ctx'}) {
614 $end = $db{$complete}->{'end'};
616 $end = $db{$complete}->{'start'};
620 if (exists $db{$key}->{'notify'}) {
621 $end = $db{$key}->{'notify'};
623 $end = $db{$key}->{'start'};
624 $db{$key}->{'incomplete'} = 1;
628 unless (exists $db{$key}->{'notify'}) {
629 $db{$key}->{'notify'} = $end;
630 $db{$key}->{'no-notify'} = 1;
632 $db{$key}->{'end'} = $end;
633 $db{$key}->{'notify'} = $end if $db{$key}->{'notify'} > $end;
643 @sorted_keys = sort sortStart keys %db;
655 my $as = $db{$a}->{'seqno'};
656 my $bs = $db{$b}->{'seqno'};
672 @timeline = grep { $db{$_}->{'ring'} eq $ring and
673 $db{$_}->{'ctx'} == $ctx } @sorted_keys;
696 $complete = $key unless exists $db{$key}->{'no-end'};
699 next if $db{$key}->{'port'} == 0;
705 $db{$key}->{'start'} = $db{$pkey}->{'end'};
706 $db{$key}->{'start'} = $db{$pkey}->{'notify'} if $db{$key}->{'start'} > $db{$key}->{'end'};
708 die if $db{$key}->{'start'} > $db{$key}->{'end'};
729 next unless exists $db{$key}->{'no-end'};
737 if (exists $db{$key}->{'notify'} and
738 $db{$key}->{'notify'} < $db{$key}->{'end'}) {
739 $db{$next_key}->{'engine-start'} = $db{$next_key}->{'start'};
740 $db{$next_key}->{'start'} = $db{$key}->{'notify'};
758 my $ring = $db{$key}->{'ring'};
759 my $end = $db{$key}->{'end'};
760 my $start = $db{$key}->{'start'};
761 my $engine_start = $db{$key}->{'engine_start'};
762 my $notify = $db{$key}->{'notify'};
764 $first_ts = $db{$key}->{'queue'} if not defined $first_ts or $db{$key}->{'queue'} < $first_ts;
766 $min_ctx = $db{$key}->{'ctx'} if not defined $min_ctx or
767 $db{$key}->{'ctx'} < $min_ctx;
769 unless (exists $db{$key}->{'no-end'}) {
770 $db{$key}->{'context-complete-delay'} = $end - $notify;
772 $db{$key}->{'context-complete-delay'} = 0;
775 $engine_start = $db{$key}->{'start'} unless defined $engine_start;
776 $db{$key}->{'execute-delay'} = $engine_start - $db{$key}->{'submit'};
777 $db{$key}->{'submit-delay'} = $db{$key}->{'submit'} - $db{$key}->{'queue'};
778 unless (exists $db{$key}->{'no-notify'}) {
779 $db{$key}->{'duration'} = $notify - $start;
781 $db{$key}->{'duration'} = 0;
785 not exists $db{$key}->{'no-end'};
786 unless (exists $db{$key}->{'virtual'}) {
787 $runnable{$ring} += $db{$key}->{'execute-delay'};
788 $queued{$ring} += $start - $db{$key}->{'execute-delay'} - $db{$key}->{'queue'};
793 $batch_avg{$ring} += $db{$key}->{'duration'};
796 $submit_avg{$ring} += $db{$key}->{'submit-delay'};
797 $execute_avg{$ring} += $db{$key}->{'execute-delay'};
798 $ctxsave_avg{$ring} += $db{$key}->{'context-complete-delay'};
817 next unless $db{$key}->{'ring'} eq $ring;
818 die if $db{$key}->{'start'} > $db{$key}->{'end'};
819 push @s_, $db{$key}->{'start'};
820 push @e_, $db{$key}->{'end'};
861 push @s_, $db{$key}->{'start'};
862 push @e_, $db{$key}->{'end'};
863 die if $db{$key}->{'start'} > $db{$key}->{'end'};
1188 my $as = $db{$a}->{'queue'};
1189 my $bs = $db{$b}->{'queue'};
1283 foreach my $key (sort sortQueue keys %db) {
1284 my ($name, $ctx, $seqno) = ($db{$key}->{'name'}, $db{$key}->{'ctx'}, $db{$key}->{'seqno'});
1285 …my ($queue, $start, $notify, $end) = ($db{$key}->{'queue'}, $db{$key}->{'start'}, $db{$key}->{'not…
1286 my $engine_start = $db{$key}->{'engine-start'};
1287 my $submit = $queue + $db{$key}->{'submit-delay'};
1289 my $group = $engine_start_id + $rings{$db{$key}->{'ring'}};
1296 unless (exists $skip_box{'queue'} or exists $db{$key}->{'virtual'}) {
1299 …$content = "$name<br>$db{$key}->{'submit-delay'}us <small>($db{$key}->{'execute-delay'}us)</small>…
1306 $engine_start = $db{$key}->{'start'} unless defined $engine_start;
1307 unless (exists $skip_box{'ready'} or exists $db{$key}->{'virtual'}) {
1310 $content = "<small>$name<br>$db{$key}->{'execute-delay'}us</small>";
1320 exists $db{$key}->{'incomplete'} ?
1322 $content = "$name <small>$db{$key}->{'port'}</small>";
1323 $content .= ' <small><i>???</i></small> ' if exists $db{$key}->{'incomplete'};
1324 $content .= ' <small><i>++</i></small> ' if exists $db{$key}->{'no-end'};
1325 $content .= ' <small><i>+</i></small> ' if exists $db{$key}->{'no-notify'};
1326 …$content .= "<br>$db{$key}->{'duration'}us <small>($db{$key}->{'context-complete-delay'}us)</small…
1333 unless (exists $skip_box{'ctxsave'} or exists $db{$key}->{'no-end'}) {
1336 my $ctxsave = $db{$key}->{'end'} - $db{$key}->{'notify'};
1338 $content .= ' <small><i>???</i></small> ' if exists $db{$key}->{'incomplete'};
1339 $content .= ' <small><i>++</i></small> ' if exists $db{$key}->{'no-end'};
1340 $content .= ' <small><i>+</i></small> ' if exists $db{$key}->{'no-notify'};
1387 my $engine_start = $db{$key}->{'engine-start'};