19512fe85Sahl#
29512fe85Sahl# CDDL HEADER START
39512fe85Sahl#
49512fe85Sahl# The contents of this file are subject to the terms of the
59512fe85Sahl# Common Development and Distribution License (the "License").
69512fe85Sahl# You may not use this file except in compliance with the License.
79512fe85Sahl#
89512fe85Sahl# You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
99512fe85Sahl# or http://www.opensolaris.org/os/licensing.
109512fe85Sahl# See the License for the specific language governing permissions
119512fe85Sahl# and limitations under the License.
129512fe85Sahl#
139512fe85Sahl# When distributing Covered Code, include this CDDL HEADER in each
149512fe85Sahl# file and include the License file at usr/src/OPENSOLARIS.LICENSE.
159512fe85Sahl# If applicable, add the following below this CDDL HEADER, with the
169512fe85Sahl# fields enclosed by brackets "[]" replaced with your own identifying
179512fe85Sahl# information: Portions Copyright [yyyy] [name of copyright owner]
189512fe85Sahl#
199512fe85Sahl# CDDL HEADER END
209512fe85Sahl#
219512fe85Sahl
229512fe85Sahl#
239512fe85Sahl# Copyright 2006 Sun Microsystems, Inc.  All rights reserved.
249512fe85Sahl# Use is subject to license terms.
259512fe85Sahl#
269512fe85Sahl#ident	"%Z%%M%	%I%	%E% SMI"
279512fe85Sahl
289512fe85Sahlscript()
299512fe85Sahl{
309512fe85Sahl	$dtrace -q -o $tmpfile -s /dev/stdin <<EOF
319512fe85Sahl	tick-10ms
329512fe85Sahl	{
339512fe85Sahl		printf("%d\n", i++);
349512fe85Sahl	}
359512fe85Sahl
369512fe85Sahl	tick-10ms
379512fe85Sahl	/i == 10/
389512fe85Sahl	{
399512fe85Sahl		ftruncate();
409512fe85Sahl	}
419512fe85Sahl
429512fe85Sahl	tick-10ms
439512fe85Sahl	/i == 20/
449512fe85Sahl	{
459512fe85Sahl		exit(0);
469512fe85Sahl	}
479512fe85SahlEOF
489512fe85Sahl}
499512fe85Sahl
50*23b5c241Stomeeif [ $# != 1 ]; then
51*23b5c241Stomee	echo expected one argument: '<'dtrace-path'>'
52*23b5c241Stomee	exit 2
53*23b5c241Stomeefi
54*23b5c241Stomee
55*23b5c241Stomeedtrace=$1
569512fe85Sahltmpfile=/tmp/tst.ftruncate.$$
579512fe85Sahl
589512fe85Sahlscript
599512fe85Sahlstatus=$?
609512fe85Sahl
619512fe85Sahlcat $tmpfile
629512fe85Sahlrm $tmpfile
639512fe85Sahl
649512fe85Sahlexit $status
65