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, Version 1.0 only
6 * (the "License"). You may not use this file except in compliance
7 * 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 * Copyright (c) 1994, by Sun Microsytems, Inc.
24 */
25
26 #pragma ident "%Z%%M% %I% %E% SMI"
27
28 #include "libtnf.h"
29
30 /*
31 * All types are struct records
32 */
33
34 void
_tnf_check_type(tnf_datum_t datum)35 _tnf_check_type(tnf_datum_t datum)
36 {
37 CHECK_RECORD(datum);
38 CHECK_SLOTS(datum);
39
40 if (!INFO_TYPE(DATUM_INFO(datum)))
41 _tnf_error(DATUM_TNF(datum), TNF_ERR_TYPEMISMATCH);
42 }
43
44 /*
45 * Get data kind of a type record
46 */
47
48 tnf_kind_t
tnf_type_get_kind(tnf_datum_t datum)49 tnf_type_get_kind(tnf_datum_t datum)
50 {
51 struct taginfo *info;
52
53 CHECK_TYPE(datum);
54
55 /* Note: DATUM_RECORD(), not DATUM_TAG() */
56 /* LINTED pointer cast may result in improper alignment */
57 info = _tnf_get_info(DATUM_TNF(datum), DATUM_RECORD(datum));
58 return (info->kind);
59 }
60
61 /*
62 * Retrieve type name for datum type record
63 */
64
65 char *
tnf_type_get_name(tnf_datum_t datum)66 tnf_type_get_name(tnf_datum_t datum)
67 {
68 CHECK_TYPE(datum);
69 /* XXX Dispatch to ABI routine; faster than taginfo lookup? */
70 /* LINTED pointer cast may result in improper alignment */
71 return (_tnf_get_name(DATUM_TNF(datum), DATUM_RECORD(datum)));
72 }
73
74 /*
75 * Fetch size member of info for datum type record
76 */
77
78 size_t
tnf_type_get_size(tnf_datum_t datum)79 tnf_type_get_size(tnf_datum_t datum)
80 {
81 struct taginfo *info;
82
83 CHECK_TYPE(datum);
84
85 /* Note: DATUM_RECORD(), not DATUM_TAG() */
86 /* LINTED pointer cast may result in improper alignment */
87 info = _tnf_get_info(DATUM_TNF(datum), DATUM_RECORD(datum));
88
89 if (INFO_ARRAY(info))
90 /* XXX All arrays are self-sized */
91 return ((size_t)-1);
92 else
93 return (info->size);
94 }
95
96 /*
97 * Get the base type of a type
98 */
99
100 tnf_datum_t
tnf_type_get_base(tnf_datum_t datum)101 tnf_type_get_base(tnf_datum_t datum)
102 {
103 struct taginfo *info;
104
105 CHECK_TYPE(datum);
106
107 /* Note: DATUM_RECORD(), not DATUM_TAG() */
108 /* LINTED pointer cast may result in improper alignment */
109 info = _tnf_get_info(DATUM_TNF(datum), DATUM_RECORD(datum));
110
111 if (INFO_DERIVED(info))
112 return (DATUM(info->base->meta, (caddr_t)info->base->tag));
113 else
114 return (datum);
115 }
116
117 /*
118 * If type record has named property, return a datum for it
119 */
120
121 tnf_datum_t
tnf_type_get_property(tnf_datum_t datum,char * name)122 tnf_type_get_property(tnf_datum_t datum, char *name)
123 {
124 tnf_ref32_t *property;
125
126 CHECK_TYPE(datum);
127
128 /* Note: DATUM_RECORD(), not DATUM_TAG() */
129 property = _tnf_get_property(DATUM_TNF(datum),
130 /* LINTED pointer cast may result in improper alignment */
131 DATUM_RECORD(datum), name);
132
133 if (property == TNF_NULL)
134 return (TNF_DATUM_NULL);
135 else
136 return (RECORD_DATUM(DATUM_TNF(datum), property));
137 }
138