1*0Sstevel@tonic-gate /* 2*0Sstevel@tonic-gate * CDDL HEADER START 3*0Sstevel@tonic-gate * 4*0Sstevel@tonic-gate * The contents of this file are subject to the terms of the 5*0Sstevel@tonic-gate * Common Development and Distribution License, Version 1.0 only 6*0Sstevel@tonic-gate * (the "License"). You may not use this file except in compliance 7*0Sstevel@tonic-gate * with the License. 8*0Sstevel@tonic-gate * 9*0Sstevel@tonic-gate * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE 10*0Sstevel@tonic-gate * or http://www.opensolaris.org/os/licensing. 11*0Sstevel@tonic-gate * See the License for the specific language governing permissions 12*0Sstevel@tonic-gate * and limitations under the License. 13*0Sstevel@tonic-gate * 14*0Sstevel@tonic-gate * When distributing Covered Code, include this CDDL HEADER in each 15*0Sstevel@tonic-gate * file and include the License file at usr/src/OPENSOLARIS.LICENSE. 16*0Sstevel@tonic-gate * If applicable, add the following below this CDDL HEADER, with the 17*0Sstevel@tonic-gate * fields enclosed by brackets "[]" replaced with your own identifying 18*0Sstevel@tonic-gate * information: Portions Copyright [yyyy] [name of copyright owner] 19*0Sstevel@tonic-gate * 20*0Sstevel@tonic-gate * CDDL HEADER END 21*0Sstevel@tonic-gate */ 22*0Sstevel@tonic-gate /* 23*0Sstevel@tonic-gate * Copyright (c) 1994, by Sun Microsytems, Inc. 24*0Sstevel@tonic-gate */ 25*0Sstevel@tonic-gate 26*0Sstevel@tonic-gate #pragma ident "%Z%%M% %I% %E% SMI" 27*0Sstevel@tonic-gate 28*0Sstevel@tonic-gate #include "libtnf.h" 29*0Sstevel@tonic-gate 30*0Sstevel@tonic-gate /* 31*0Sstevel@tonic-gate * XXX This module assumes that all arrays are self-sized records. 32*0Sstevel@tonic-gate */ 33*0Sstevel@tonic-gate 34*0Sstevel@tonic-gate /* 35*0Sstevel@tonic-gate * 36*0Sstevel@tonic-gate */ 37*0Sstevel@tonic-gate 38*0Sstevel@tonic-gate static struct taginfo * get_array_info( 39*0Sstevel@tonic-gate tnf_datum_t, 40*0Sstevel@tonic-gate struct taginfo **base, 41*0Sstevel@tonic-gate struct taginfo **elt, 42*0Sstevel@tonic-gate struct taginfo **elt_base); 43*0Sstevel@tonic-gate 44*0Sstevel@tonic-gate /* 45*0Sstevel@tonic-gate * XXX Assumes arrays are (self-sized) records 46*0Sstevel@tonic-gate */ 47*0Sstevel@tonic-gate 48*0Sstevel@tonic-gate void 49*0Sstevel@tonic-gate _tnf_check_array(tnf_datum_t datum) 50*0Sstevel@tonic-gate { 51*0Sstevel@tonic-gate struct taginfo *info; 52*0Sstevel@tonic-gate 53*0Sstevel@tonic-gate CHECK_RECORD(datum); /* XXX */ 54*0Sstevel@tonic-gate 55*0Sstevel@tonic-gate info = DATUM_INFO(datum); 56*0Sstevel@tonic-gate 57*0Sstevel@tonic-gate if (!INFO_ARRAY(info)) 58*0Sstevel@tonic-gate _tnf_error(DATUM_TNF(datum), TNF_ERR_TYPEMISMATCH); 59*0Sstevel@tonic-gate 60*0Sstevel@tonic-gate } 61*0Sstevel@tonic-gate 62*0Sstevel@tonic-gate /* 63*0Sstevel@tonic-gate * Helper 64*0Sstevel@tonic-gate */ 65*0Sstevel@tonic-gate 66*0Sstevel@tonic-gate static struct taginfo * 67*0Sstevel@tonic-gate get_array_info( 68*0Sstevel@tonic-gate tnf_datum_t datum, 69*0Sstevel@tonic-gate struct taginfo **basep, 70*0Sstevel@tonic-gate struct taginfo **eltp, 71*0Sstevel@tonic-gate struct taginfo **elt_basep) 72*0Sstevel@tonic-gate { 73*0Sstevel@tonic-gate struct taginfo *info, *base, *elt, *elt_base; 74*0Sstevel@tonic-gate 75*0Sstevel@tonic-gate info = DATUM_INFO(datum); 76*0Sstevel@tonic-gate base = INFO_DERIVED(info) ? info->base : info; 77*0Sstevel@tonic-gate 78*0Sstevel@tonic-gate if (INFO_DERIVED(base) || (!INFO_ARRAY(base))) 79*0Sstevel@tonic-gate _tnf_error(DATUM_TNF(datum), TNF_ERR_INTERNAL); 80*0Sstevel@tonic-gate 81*0Sstevel@tonic-gate elt = base->base; /* XXX base slot is reused for elttype */ 82*0Sstevel@tonic-gate elt_base = INFO_DERIVED(elt) ? elt->base : elt; 83*0Sstevel@tonic-gate 84*0Sstevel@tonic-gate *basep = base; 85*0Sstevel@tonic-gate *eltp = elt; 86*0Sstevel@tonic-gate *elt_basep = elt_base; 87*0Sstevel@tonic-gate return (info); 88*0Sstevel@tonic-gate } 89*0Sstevel@tonic-gate 90*0Sstevel@tonic-gate /* 91*0Sstevel@tonic-gate * Return number of elements in array 92*0Sstevel@tonic-gate */ 93*0Sstevel@tonic-gate 94*0Sstevel@tonic-gate unsigned 95*0Sstevel@tonic-gate tnf_get_element_count(tnf_datum_t datum) 96*0Sstevel@tonic-gate { 97*0Sstevel@tonic-gate size_t hdr_size, elt_size, self_size; 98*0Sstevel@tonic-gate struct taginfo *base, *elt, *elt_base; 99*0Sstevel@tonic-gate 100*0Sstevel@tonic-gate CHECK_ARRAY(datum); 101*0Sstevel@tonic-gate 102*0Sstevel@tonic-gate (void) get_array_info(datum, &base, &elt, &elt_base); 103*0Sstevel@tonic-gate hdr_size = base->hdrsize; 104*0Sstevel@tonic-gate elt_size = INFO_ELEMENT_SIZE(elt_base); 105*0Sstevel@tonic-gate self_size = _tnf_get_self_size(DATUM_TNF(datum), 106*0Sstevel@tonic-gate /* LINTED pointer cast may result in improper alignment */ 107*0Sstevel@tonic-gate DATUM_RECORD(datum)); 108*0Sstevel@tonic-gate return (((self_size - hdr_size) / elt_size)); 109*0Sstevel@tonic-gate } 110*0Sstevel@tonic-gate 111*0Sstevel@tonic-gate /* 112*0Sstevel@tonic-gate * Fetch indexed element 113*0Sstevel@tonic-gate */ 114*0Sstevel@tonic-gate 115*0Sstevel@tonic-gate tnf_datum_t 116*0Sstevel@tonic-gate tnf_get_element(tnf_datum_t datum, unsigned index) 117*0Sstevel@tonic-gate { 118*0Sstevel@tonic-gate size_t hdr_size, elt_size, self_size; 119*0Sstevel@tonic-gate struct taginfo *base, *elt, *elt_base; 120*0Sstevel@tonic-gate unsigned count, offset; 121*0Sstevel@tonic-gate 122*0Sstevel@tonic-gate CHECK_ARRAY(datum); 123*0Sstevel@tonic-gate 124*0Sstevel@tonic-gate (void) get_array_info(datum, &base, &elt, &elt_base); 125*0Sstevel@tonic-gate hdr_size = base->hdrsize; 126*0Sstevel@tonic-gate elt_size = INFO_ELEMENT_SIZE(elt_base); 127*0Sstevel@tonic-gate self_size = _tnf_get_self_size(DATUM_TNF(datum), 128*0Sstevel@tonic-gate /* LINTED pointer cast may result in improper alignment */ 129*0Sstevel@tonic-gate DATUM_RECORD(datum)); 130*0Sstevel@tonic-gate 131*0Sstevel@tonic-gate count = (self_size - hdr_size) / elt_size; 132*0Sstevel@tonic-gate 133*0Sstevel@tonic-gate if (index >= count) 134*0Sstevel@tonic-gate _tnf_error(DATUM_TNF(datum), TNF_ERR_BADINDEX); 135*0Sstevel@tonic-gate 136*0Sstevel@tonic-gate offset = hdr_size + (index * elt_size); 137*0Sstevel@tonic-gate 138*0Sstevel@tonic-gate /* 139*0Sstevel@tonic-gate * If tagged, use the tag to construct datum 140*0Sstevel@tonic-gate */ 141*0Sstevel@tonic-gate if (INFO_TAGGED(elt)) { 142*0Sstevel@tonic-gate TNF *tnf; 143*0Sstevel@tonic-gate tnf_ref32_t *rec; 144*0Sstevel@tonic-gate 145*0Sstevel@tonic-gate tnf = DATUM_TNF(datum); 146*0Sstevel@tonic-gate /* LINTED pointer cast may result in improper alignment */ 147*0Sstevel@tonic-gate rec = _GET_REF32(tnf, (tnf_ref32_t *) 148*0Sstevel@tonic-gate (DATUM_VAL(datum) + offset)); 149*0Sstevel@tonic-gate /* NULL elements are allowed */ 150*0Sstevel@tonic-gate return ((rec == TNF_NULL)? TNF_DATUM_NULL : 151*0Sstevel@tonic-gate RECORD_DATUM(tnf, rec)); 152*0Sstevel@tonic-gate } else 153*0Sstevel@tonic-gate return (DATUM(elt, DATUM_VAL(datum) + offset)); 154*0Sstevel@tonic-gate } 155*0Sstevel@tonic-gate 156*0Sstevel@tonic-gate /* 157*0Sstevel@tonic-gate * Return element type of array 158*0Sstevel@tonic-gate */ 159*0Sstevel@tonic-gate 160*0Sstevel@tonic-gate tnf_datum_t 161*0Sstevel@tonic-gate tnf_get_element_type(tnf_datum_t datum) 162*0Sstevel@tonic-gate { 163*0Sstevel@tonic-gate struct taginfo *base, *elt, *elt_base; 164*0Sstevel@tonic-gate 165*0Sstevel@tonic-gate CHECK_ARRAY(datum); 166*0Sstevel@tonic-gate 167*0Sstevel@tonic-gate (void) get_array_info(datum, &base, &elt, &elt_base); 168*0Sstevel@tonic-gate 169*0Sstevel@tonic-gate return (RECORD_DATUM(DATUM_TNF(datum), elt->tag)); 170*0Sstevel@tonic-gate } 171*0Sstevel@tonic-gate 172*0Sstevel@tonic-gate /* 173*0Sstevel@tonic-gate * Return a char pointer for string record 174*0Sstevel@tonic-gate */ 175*0Sstevel@tonic-gate 176*0Sstevel@tonic-gate char * 177*0Sstevel@tonic-gate tnf_get_chars(tnf_datum_t datum) 178*0Sstevel@tonic-gate { 179*0Sstevel@tonic-gate struct taginfo *info, *base, *elt, *elt_base; 180*0Sstevel@tonic-gate 181*0Sstevel@tonic-gate CHECK_ARRAY(datum); 182*0Sstevel@tonic-gate 183*0Sstevel@tonic-gate info = get_array_info(datum, &base, &elt, &elt_base); 184*0Sstevel@tonic-gate 185*0Sstevel@tonic-gate if (!INFO_STRING(info)) 186*0Sstevel@tonic-gate _tnf_error(DATUM_TNF(datum), TNF_ERR_TYPEMISMATCH); 187*0Sstevel@tonic-gate 188*0Sstevel@tonic-gate return (DATUM_VAL(datum) + base->hdrsize); 189*0Sstevel@tonic-gate } 190*0Sstevel@tonic-gate 191*0Sstevel@tonic-gate /* 192*0Sstevel@tonic-gate * Return the base pointer of array 193*0Sstevel@tonic-gate */ 194*0Sstevel@tonic-gate 195*0Sstevel@tonic-gate caddr_t 196*0Sstevel@tonic-gate tnf_get_elements(tnf_datum_t datum) 197*0Sstevel@tonic-gate { 198*0Sstevel@tonic-gate struct taginfo *base, *elt, *elt_base; 199*0Sstevel@tonic-gate 200*0Sstevel@tonic-gate CHECK_ARRAY(datum); 201*0Sstevel@tonic-gate 202*0Sstevel@tonic-gate (void) get_array_info(datum, &base, &elt, &elt_base); 203*0Sstevel@tonic-gate 204*0Sstevel@tonic-gate return ((caddr_t)(DATUM_VAL(datum) + base->hdrsize)); 205*0Sstevel@tonic-gate } 206