1#!/bin/ksh -p
2#
3# CDDL HEADER START
4#
5# The contents of this file are subject to the terms of the
6# Common Development and Distribution License (the "License").
7# You may not use this file except in compliance with the License.
8#
9# You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
10# or http://www.opensolaris.org/os/licensing.
11# See the License for the specific language governing permissions
12# and limitations under the License.
13#
14# When distributing Covered Code, include this CDDL HEADER in each
15# file and include the License file at usr/src/OPENSOLARIS.LICENSE.
16# If applicable, add the following below this CDDL HEADER, with the
17# fields enclosed by brackets "[]" replaced with your own identifying
18# information: Portions Copyright [yyyy] [name of copyright owner]
19#
20# CDDL HEADER END
21#
22
23#
24# Copyright 2008 Sun Microsystems, Inc.  All rights reserved.
25# Use is subject to license terms.
26#
27# ident	"%Z%%M%	%I%	%E% SMI"
28#
29
30if [ $# != 1 ]; then
31	echo expected one argument: '<'dtrace-path'>'
32	exit 2
33fi
34
35dtrace=$1
36
37$dtrace -wZq -x switchrate=100ms -s /dev/stdin <<EOF
38pid*:date::
39{
40	printf("%s:%s\n", probefunc, probename);
41}
42
43tick-1s
44/i++ > 5/
45{
46	exit(0);
47}
48
49tick-1s
50/(i % 2) == 0/
51{
52	system("dtrace -c date -ln 'pid\$target::main:entry' >/dev/null");
53}
54
55tick-1s
56/(i % 2) == 1/
57{
58	system("dtrace -c date -ln 'pid\$target::main:return' >/dev/null");
59}
60EOF
61
62exit $status
63