File: apicalls.d

package info (click to toggle)
db5.3 5.3.28%2Bdfsg2-1
  • links: PTS, VCS
  • area: main
  • in suites: bookworm
  • size: 158,500 kB
  • sloc: ansic: 448,411; java: 111,824; tcl: 80,544; sh: 44,264; cs: 33,697; cpp: 21,604; perl: 14,557; xml: 10,799; makefile: 4,077; javascript: 1,998; yacc: 1,003; awk: 965; sql: 801; erlang: 342; python: 216; php: 24; asm: 14
file content (35 lines) | stat: -rwxr-xr-x 840 bytes parent folder | download | duplicates (9)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
#!/usr/sbin/dtrace -qs
/*
 * Copyright (c) 2011, 2013 Oracle and/or its affiliates.  All rights reserved.
 *
 * apicalls.d - Summarize DB API function calls
 *
 * This script graphs the count of the main API calls grouped by thread.
 *
 * The optional integer maxcount parameter directs the script to exit once
 * that many functions calls have been accumulated.
 *
 * usage: apicalls.d { -p <pid> | -c "<program> [<args]" } [maxcount]
 */
#pragma D option defaultargs

dtrace:::BEGIN
{
	maxcount = $1 > 0 ? $1 : -1;
	functioncount = 0;
	printf("DB API call counts of process %d; interrupt to display summary\n", $target);
}

pid$target::db*_create:return,
pid$target::__*_pp:return
{
	@calls[tid, probefunc] = count();
	functioncount++;
}

pid$target::db*_create:return,
pid$target::__*_pp:return
/functioncount == maxcount/
{
	exit(0);
}