Home | History | Annotate | Download | only in profile-n
      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 # ident	"%Z%%M%	%I%	%E% SMI"
     27 
     28 script()
     29 {
     30 	$dtrace -qs /dev/stdin <<EOF
     31 	profile-1234hz
     32 	/arg1 != 0/
     33 	{
     34 		@[umod(arg1)] = count();
     35 	}
     36 
     37 	tick-100ms
     38 	/i++ == 20/
     39 	{
     40 		exit(0);
     41 	}
     42 EOF
     43 }
     44 
     45 spinny()
     46 {
     47 	while true; do
     48 		let i=i+1
     49 	done
     50 }
     51 
     52 if [ $# != 1 ]; then
     53 	echo expected one argument: '<'dtrace-path'>'
     54 	exit 2
     55 fi
     56 
     57 dtrace=$1
     58 
     59 spinny &
     60 child=$!
     61 
     62 #
     63 # The only thing we can be sure of here is that ksh is doing some work.
     64 #
     65 script | tee /dev/fd/2 | grep -w ksh > /dev/null
     66 status=$? 
     67 
     68 kill $child
     69 exit $status
     70