xref: /illumos-gate/usr/src/lib/libtnf/scalar.c (revision 7c478bd9)
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  *
32  */
33 
34 #define	CHECK_SCALAR(datum)	check_scalar(datum)
35 
36 #define	DATUM_NATIVE(x)		DATUM_TNF(datum)->file_native
37 
38 /*
39  *
40  */
41 
42 static void		check_scalar(tnf_datum_t);
43 
44 static tnf_uint64_t	get_uint64(TNF *tnf, caddr_t val);
45 
46 /*
47  *
48  */
49 
50 static void
check_scalar(tnf_datum_t datum)51 check_scalar(tnf_datum_t datum)
52 {
53 	CHECK_DATUM(datum);
54 	if (!INFO_SCALAR(DATUM_INFO(datum)))
55 		_tnf_error(DATUM_TNF(datum), TNF_ERR_TYPEMISMATCH);
56 	/* XXX Need to check for exact scalar type match as well */
57 }
58 
59 /*
60  * Exported scalar operations
61  */
62 
63 /* No swapping required: */
64 
65 char
tnf_get_char(tnf_datum_t datum)66 tnf_get_char(tnf_datum_t datum)
67 {
68 	CHECK_SCALAR(datum);
69 	return (*(char *)DATUM_VAL(datum));
70 }
71 
72 tnf_int8_t
tnf_get_int8(tnf_datum_t datum)73 tnf_get_int8(tnf_datum_t datum)
74 {
75 	CHECK_SCALAR(datum);
76 	return (*(tnf_int8_t *)DATUM_VAL(datum));
77 }
78 
79 tnf_int16_t
tnf_get_int16(tnf_datum_t datum)80 tnf_get_int16(tnf_datum_t datum)
81 {
82 	tnf_int16_t	val;
83 
84 	CHECK_SCALAR(datum);
85 	/* LINTED pointer cast may result in improper alignment */
86 	val = *(tnf_int16_t *)DATUM_VAL(datum);
87 	return (DATUM_NATIVE(datum) ? val : _tnf_swap16(val));
88 }
89 
90 /* 32-bit integers: */
91 
92 tnf_int32_t
tnf_get_int32(tnf_datum_t datum)93 tnf_get_int32(tnf_datum_t datum)
94 {
95 	CHECK_SCALAR(datum);
96 	/* LINTED pointer cast may result in improper alignment */
97 	return (_GET_INT32(DATUM_TNF(datum), DATUM_VAL(datum)));
98 }
99 
100 /* 64-bit integers: */
101 
102 static tnf_uint64_t
get_uint64(TNF * tnf,caddr_t val)103 get_uint64(TNF *tnf, caddr_t val)
104 {
105 	tnf_uint32_t	hi32, lo32; /* XXX both assumed unsigned */
106 
107 	/* XXX Can't rely on address alignment */
108 	/* LINTED pointer cast may result in improper alignment */
109 	hi32 = *(tnf_uint32_t *)val;
110 	/* LINTED pointer cast may result in improper alignment */
111 	lo32 = *(tnf_uint32_t *)(val + sizeof (tnf_uint32_t));
112 
113 #ifdef _LONG_LONG_HTOL
114 	/* eg. sparc */
115 	if (tnf->file_native)
116 		return ((((tnf_uint64_t)hi32) << 32)
117 			+ (tnf_uint64_t)lo32);
118 	else
119 		/* XXX Assume words are swapped as well: */
120 		return ((((tnf_uint64_t)_tnf_swap32(lo32)) << 32)
121 			+ (tnf_uint64_t)_tnf_swap32(hi32));
122 #else
123 	/* eg. i386 */
124 	if (tnf->file_native)
125 		return ((((tnf_uint64_t)lo32) << 32)
126 			+ (tnf_uint64_t)hi32);
127 	else
128 		/* XXX Assume words are swapped as well: */
129 		return ((((tnf_uint64_t)_tnf_swap32(hi32)) << 32)
130 			+ (tnf_uint64_t)_tnf_swap32(lo32));
131 #endif
132 }
133 
134 tnf_int64_t
tnf_get_int64(tnf_datum_t datum)135 tnf_get_int64(tnf_datum_t datum)
136 {
137 	CHECK_SCALAR(datum);
138 	return (get_uint64(DATUM_TNF(datum), DATUM_VAL(datum)));
139 }
140 
141 /* floats: */
142 
143 tnf_float32_t
tnf_get_float32(tnf_datum_t datum)144 tnf_get_float32(tnf_datum_t datum)
145 {
146 	union {
147 		tnf_uint32_t	i32;
148 		tnf_float32_t	f32;
149 	} u;
150 
151 	CHECK_SCALAR(datum);
152 
153 	/* LINTED pointer cast may result in improper alignment */
154 	u.i32 = _GET_UINT32(DATUM_TNF(datum), DATUM_VAL(datum)); /* XXX */
155 	return (u.f32);
156 }
157 
158 tnf_float64_t
tnf_get_float64(tnf_datum_t datum)159 tnf_get_float64(tnf_datum_t datum)
160 {
161 	union {
162 		tnf_uint64_t	i64;
163 		tnf_float64_t	f64;
164 	} u;
165 
166 	CHECK_SCALAR(datum);
167 
168 	u.i64 = get_uint64(DATUM_TNF(datum), DATUM_VAL(datum)); /* XXX */
169 	return (u.f64);
170 }
171