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