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 2006 Sun Microsystems, Inc. All rights reserved. 24# Use is subject to license terms. 25# 26#pragma ident "%Z%%M% %I% %E% SMI" 27 28script() 29{ 30 $dtrace -qs /dev/stdin <<EOF 31 profile-1234hz 32 /arg1 != 0/ 33 { 34 @[ufunc(arg1)] = count(); 35 } 36 37 tick-100ms 38 /i++ == 20/ 39 { 40 exit(0); 41 } 42EOF 43} 44 45spinny() 46{ 47 while true; do 48 let i=i+1 49 done 50} 51 52if [ $# != 1 ]; then 53 echo expected one argument: '<'dtrace-path'>' 54 exit 2 55fi 56 57dtrace=$1 58 59spinny & 60child=$! 61 62# 63# The only thing we can be sure of here is that we caught some function in 64# ksh doing work. (This actually goes one step further and assumes that we 65# catch some non-static function in ksh.) 66# 67script | tee /dev/fd/2 | grep 'ksh`[a-zA-Z_]' > /dev/null 68status=$? 69 70kill $child 71exit $status 72