xref: /onnv-gate/usr/src/cmd/dtrace/test/tst/common/funcs/tst.strchr.d (revision 2804:e8e3422f18c2)
1*2633Sahl /*
2*2633Sahl  * CDDL HEADER START
3*2633Sahl  *
4*2633Sahl  * The contents of this file are subject to the terms of the
5*2633Sahl  * Common Development and Distribution License (the "License").
6*2633Sahl  * You may not use this file except in compliance with the License.
7*2633Sahl  *
8*2633Sahl  * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
9*2633Sahl  * or http://www.opensolaris.org/os/licensing.
10*2633Sahl  * See the License for the specific language governing permissions
11*2633Sahl  * and limitations under the License.
12*2633Sahl  *
13*2633Sahl  * When distributing Covered Code, include this CDDL HEADER in each
14*2633Sahl  * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
15*2633Sahl  * If applicable, add the following below this CDDL HEADER, with the
16*2633Sahl  * fields enclosed by brackets "[]" replaced with your own identifying
17*2633Sahl  * information: Portions Copyright [yyyy] [name of copyright owner]
18*2633Sahl  *
19*2633Sahl  * CDDL HEADER END
20*2633Sahl  */
21*2633Sahl 
22*2633Sahl /*
23*2633Sahl  * Copyright 2006 Sun Microsystems, Inc.  All rights reserved.
24*2633Sahl  * Use is subject to license terms.
25*2633Sahl  */
26*2633Sahl 
27*2633Sahl #pragma ident	"%Z%%M%	%I%	%E% SMI"
28*2633Sahl 
29*2633Sahl #pragma D option quiet
30*2633Sahl 
31*2633Sahl BEGIN
32*2633Sahl {
33*2633Sahl 	str = "fooeyfooeyfoo";
34*2633Sahl 	this->success = 0;
35*2633Sahl 
36*2633Sahl 	c = 'f';
37*2633Sahl 	printf("strchr(\"%s\", '%c') = \"%s\"\n", str, c, strchr(str, c));
38*2633Sahl 	printf("strrchr(\"%s\", '%c') = \"%s\"\n", str, c, strrchr(str, c));
39*2633Sahl 
40*2633Sahl 	c = 'y';
41*2633Sahl 	printf("strchr(\"%s\", '%c') = \"%s\"\n", str, c, strchr(str, c));
42*2633Sahl 	printf("strrchr(\"%s\", '%c') = \"%s\"\n", str, c, strrchr(str, c));
43*2633Sahl 
44*2633Sahl 	printf("strrchr(\"%s\", '%c') = \"%s\"\n", strchr(str, c), c,
45*2633Sahl 	    strrchr(strchr(str, c), c));
46*2633Sahl 
47*2633Sahl 	this->success = 1;
48*2633Sahl }
49*2633Sahl 
50*2633Sahl BEGIN
51*2633Sahl /!this->success/
52*2633Sahl {
53*2633Sahl 	exit(1);
54*2633Sahl }
55*2633Sahl 
56*2633Sahl BEGIN
57*2633Sahl /strchr(str, 'a') != NULL/
58*2633Sahl {
59*2633Sahl 	exit(2);
60*2633Sahl }
61*2633Sahl 
62*2633Sahl BEGIN
63*2633Sahl /strrchr(str, 'a') != NULL/
64*2633Sahl {
65*2633Sahl 	exit(3);
66*2633Sahl }
67*2633Sahl 
68*2633Sahl BEGIN
69*2633Sahl {
70*2633Sahl 	exit(0);
71*2633Sahl }
72