1#
2# CDDL HEADER START
3#
4# The contents of this file are subject to the terms of the
5# Common Development and Distribution License (the "License").
6# You may not use this file except in compliance with the License.
7#
8# You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
9# or http://www.opensolaris.org/os/licensing.
10# See the License for the specific language governing permissions
11# and limitations under the License.
12#
13# When distributing Covered Code, include this CDDL HEADER in each
14# file and include the License file at usr/src/OPENSOLARIS.LICENSE.
15# If applicable, add the following below this CDDL HEADER, with the
16# fields enclosed by brackets "[]" replaced with your own identifying
17# information: Portions Copyright [yyyy] [name of copyright owner]
18#
19# CDDL HEADER END
20#
21
22#
23# Copyright 2007 Sun Microsystems, Inc.  All rights reserved.
24# Use is subject to license terms.
25#
26
27script()
28{
29	$dtrace -qs /dev/stdin <<EOF
30	profile-1234hz
31	/arg1 != 0/
32	{
33		@[ufunc(arg1)] = count();
34	}
35
36	tick-100ms
37	/i++ == 20/
38	{
39		exit(0);
40	}
41EOF
42}
43
44spinny()
45{
46	while true; do
47		let i=i+1
48	done
49}
50
51if [ $# != 1 ]; then
52	echo expected one argument: '<'dtrace-path'>'
53	exit 2
54fi
55
56dtrace=$1
57
58spinny &
59child=$!
60
61#
62# The only thing we can be sure of here is that we caught some function in
63# ksh doing work.
64#
65script | tee /dev/fd/2 | egrep '(ksh|libshell\.so\.[0-9])`[a-zA-Z_]' > /dev/null
66status=$?
67
68kill $child
69exit $status
70