1178476Sjb/*
2178476Sjb * CDDL HEADER START
3178476Sjb *
4178476Sjb * The contents of this file are subject to the terms of the
5178476Sjb * Common Development and Distribution License (the "License").
6178476Sjb * You may not use this file except in compliance with the License.
7178476Sjb *
8178476Sjb * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
9178476Sjb * or http://www.opensolaris.org/os/licensing.
10178476Sjb * See the License for the specific language governing permissions
11178476Sjb * and limitations under the License.
12178476Sjb *
13178476Sjb * When distributing Covered Code, include this CDDL HEADER in each
14178476Sjb * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
15178476Sjb * If applicable, add the following below this CDDL HEADER, with the
16178476Sjb * fields enclosed by brackets "[]" replaced with your own identifying
17178476Sjb * information: Portions Copyright [yyyy] [name of copyright owner]
18178476Sjb *
19178476Sjb * CDDL HEADER END
20178476Sjb */
21178476Sjb
22178476Sjb/*
23178476Sjb * Copyright 2006 Sun Microsystems, Inc.  All rights reserved.
24178476Sjb * Use is subject to license terms.
25178476Sjb */
26178476Sjb
27178476Sjb#pragma ident	"%Z%%M%	%I%	%E% SMI"
28178476Sjb
29178476Sjb/*
30178476Sjb * ASSERTION:
31178476Sjb *   Declares a dynamic type and then uses it to copyin the first three
32178476Sjb *   environment variable pointers from the current process.
33178476Sjb *
34178476Sjb * SECTION: Structs and Unions/Structs;
35178476Sjb *	Actions and Subroutines/copyin();
36178476Sjb * 	Actions and Subroutines/copyinstr();
37178476Sjb *	Variables/External Variables
38178476Sjb *
39178476Sjb * NOTES:
40178476Sjb *  This test program declares a dynamic type and then uses it to copyin the
41178476Sjb *  first three environment variable pointers from the current process.  We
42178476Sjb *  then use the dynamic type to access the result of our copyin().  The
43178476Sjb *  special "D" module type scope is also tested.  This is similar to our
44178476Sjb *  struct declaration test but here we use a typedef.
45178476Sjb */
46178476Sjb
47178476Sjb#pragma D option quiet
48178476Sjb
49178476Sjbtypedef struct env_vars_32 {
50178476Sjb	uint32_t e1;
51178476Sjb	uint32_t e2;
52178476Sjb	uint32_t e3;
53178476Sjb} env_vars_32_t;
54178476Sjb
55178476Sjbtypedef struct env_vars_64 {
56178476Sjb	uint64_t e1;
57178476Sjb	uint64_t e2;
58178476Sjb	uint64_t e3;
59178476Sjb} env_vars_64_t;
60178476Sjb
61178476SjbBEGIN
62178476Sjb/curpsinfo->pr_dmodel == PR_MODEL_ILP32/
63178476Sjb{
64178476Sjb	e32 = (D`env_vars_32_t *)
65178476Sjb	    copyin(curpsinfo->pr_envp, sizeof (D`env_vars_32_t));
66178476Sjb
67178476Sjb	printf("e1 = \"%s\"\n", stringof(copyinstr(e32->e1)));
68178476Sjb	printf("e2 = \"%s\"\n", stringof(copyinstr(e32->e2)));
69178476Sjb	printf("e3 = \"%s\"\n", stringof(copyinstr(e32->e3)));
70178476Sjb
71178476Sjb	exit(0);
72178476Sjb}
73178476Sjb
74178476SjbBEGIN
75178476Sjb/curpsinfo->pr_dmodel == PR_MODEL_LP64/
76178476Sjb{
77178476Sjb	e64 = (D`env_vars_64_t *)
78178476Sjb	    copyin(curpsinfo->pr_envp, sizeof (D`env_vars_64_t));
79178476Sjb
80178476Sjb	printf("e1 = \"%s\"\n", stringof(copyinstr(e64->e1)));
81178476Sjb	printf("e2 = \"%s\"\n", stringof(copyinstr(e64->e2)));
82178476Sjb	printf("e3 = \"%s\"\n", stringof(copyinstr(e64->e3)));
83178476Sjb
84178476Sjb	exit(0);
85178476Sjb}
86