17c478bd9Sstevel@tonic-gate /*
27c478bd9Sstevel@tonic-gate * CDDL HEADER START
37c478bd9Sstevel@tonic-gate *
47c478bd9Sstevel@tonic-gate * The contents of this file are subject to the terms of the
5355b4669Sjacobs * Common Development and Distribution License (the "License").
6355b4669Sjacobs * You may not use this file except in compliance with the License.
77c478bd9Sstevel@tonic-gate *
87c478bd9Sstevel@tonic-gate * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
97c478bd9Sstevel@tonic-gate * or http://www.opensolaris.org/os/licensing.
107c478bd9Sstevel@tonic-gate * See the License for the specific language governing permissions
117c478bd9Sstevel@tonic-gate * and limitations under the License.
127c478bd9Sstevel@tonic-gate *
137c478bd9Sstevel@tonic-gate * When distributing Covered Code, include this CDDL HEADER in each
147c478bd9Sstevel@tonic-gate * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
157c478bd9Sstevel@tonic-gate * If applicable, add the following below this CDDL HEADER, with the
167c478bd9Sstevel@tonic-gate * fields enclosed by brackets "[]" replaced with your own identifying
177c478bd9Sstevel@tonic-gate * information: Portions Copyright [yyyy] [name of copyright owner]
187c478bd9Sstevel@tonic-gate *
197c478bd9Sstevel@tonic-gate * CDDL HEADER END
207c478bd9Sstevel@tonic-gate */
21355b4669Sjacobs
227c478bd9Sstevel@tonic-gate /*
23ee169c7eSGary Mills * Copyright (c) 2014 Gary Mills
24ee169c7eSGary Mills *
2543b9c050Sjacobs * Copyright 2008 Sun Microsystems, Inc. All rights reserved.
267c478bd9Sstevel@tonic-gate * Use is subject to license terms.
27355b4669Sjacobs *
287c478bd9Sstevel@tonic-gate */
297c478bd9Sstevel@tonic-gate
307c478bd9Sstevel@tonic-gate /*LINTLIBRARY*/
317c478bd9Sstevel@tonic-gate
327c478bd9Sstevel@tonic-gate #include <stdio.h>
337c478bd9Sstevel@tonic-gate #include <stdlib.h>
34355b4669Sjacobs #include <stdarg.h>
357c478bd9Sstevel@tonic-gate #include <string.h>
3643b9c050Sjacobs #include <ctype.h>
37355b4669Sjacobs #include <alloca.h>
38355b4669Sjacobs #include <papi.h>
3943b9c050Sjacobs #include <regex.h>
407c478bd9Sstevel@tonic-gate
41fa9d6f9fSsg #define MAX_PAGES 32767
42fa9d6f9fSsg /*
43fa9d6f9fSsg * Assuming the maximum number of pages in
44fa9d6f9fSsg * a document to be 32767
45fa9d6f9fSsg */
46fa9d6f9fSsg
477c478bd9Sstevel@tonic-gate static void papiAttributeFree(papi_attribute_t *attribute);
487c478bd9Sstevel@tonic-gate
497c478bd9Sstevel@tonic-gate static void
papiAttributeValueFree(papi_attribute_value_type_t type,papi_attribute_value_t * value)507c478bd9Sstevel@tonic-gate papiAttributeValueFree(papi_attribute_value_type_t type,
513cf7d3e9SToomas Soome papi_attribute_value_t *value)
527c478bd9Sstevel@tonic-gate {
537c478bd9Sstevel@tonic-gate if (value != NULL) {
547c478bd9Sstevel@tonic-gate switch (type) {
557c478bd9Sstevel@tonic-gate case PAPI_STRING:
567c478bd9Sstevel@tonic-gate if (value->string != NULL)
577c478bd9Sstevel@tonic-gate free(value->string);
587c478bd9Sstevel@tonic-gate break;
597c478bd9Sstevel@tonic-gate case PAPI_COLLECTION:
607c478bd9Sstevel@tonic-gate if (value->collection != NULL) {
617c478bd9Sstevel@tonic-gate int i;
627c478bd9Sstevel@tonic-gate
637c478bd9Sstevel@tonic-gate for (i = 0; value->collection[i] != NULL; i++)
647c478bd9Sstevel@tonic-gate papiAttributeFree(value->collection[i]);
657c478bd9Sstevel@tonic-gate
667c478bd9Sstevel@tonic-gate free(value->collection);
677c478bd9Sstevel@tonic-gate }
687c478bd9Sstevel@tonic-gate break;
697c478bd9Sstevel@tonic-gate default: /* don't need to free anything extra */
707c478bd9Sstevel@tonic-gate break;
717c478bd9Sstevel@tonic-gate }
727c478bd9Sstevel@tonic-gate
737c478bd9Sstevel@tonic-gate free(value);
747c478bd9Sstevel@tonic-gate }
757c478bd9Sstevel@tonic-gate }
767c478bd9Sstevel@tonic-gate
777c478bd9Sstevel@tonic-gate static void
papiAttributeValuesFree(papi_attribute_value_type_t type,papi_attribute_value_t ** values)787c478bd9Sstevel@tonic-gate papiAttributeValuesFree(papi_attribute_value_type_t type,
793cf7d3e9SToomas Soome papi_attribute_value_t **values)
807c478bd9Sstevel@tonic-gate {
817c478bd9Sstevel@tonic-gate if (values != NULL) {
827c478bd9Sstevel@tonic-gate int i;
837c478bd9Sstevel@tonic-gate
847c478bd9Sstevel@tonic-gate for (i = 0; values[i] != NULL; i++)
857c478bd9Sstevel@tonic-gate papiAttributeValueFree(type, values[i]);
867c478bd9Sstevel@tonic-gate
877c478bd9Sstevel@tonic-gate free(values);
887c478bd9Sstevel@tonic-gate }
897c478bd9Sstevel@tonic-gate }
907c478bd9Sstevel@tonic-gate
917c478bd9Sstevel@tonic-gate static void
papiAttributeFree(papi_attribute_t * attribute)927c478bd9Sstevel@tonic-gate papiAttributeFree(papi_attribute_t *attribute)
937c478bd9Sstevel@tonic-gate {
947c478bd9Sstevel@tonic-gate if (attribute != NULL) {
953cf7d3e9SToomas Soome free(attribute->name);
967c478bd9Sstevel@tonic-gate if (attribute->values != NULL)
977c478bd9Sstevel@tonic-gate papiAttributeValuesFree(attribute->type,
983cf7d3e9SToomas Soome attribute->values);
993cf7d3e9SToomas Soome free(attribute);
1007c478bd9Sstevel@tonic-gate }
1017c478bd9Sstevel@tonic-gate }
1027c478bd9Sstevel@tonic-gate
1037c478bd9Sstevel@tonic-gate void
papiAttributeListFree(papi_attribute_t ** list)1047c478bd9Sstevel@tonic-gate papiAttributeListFree(papi_attribute_t **list)
1057c478bd9Sstevel@tonic-gate {
1067c478bd9Sstevel@tonic-gate if (list != NULL) {
1077c478bd9Sstevel@tonic-gate int i;
1087c478bd9Sstevel@tonic-gate
1097c478bd9Sstevel@tonic-gate for (i = 0; list[i] != NULL; i++)
1107c478bd9Sstevel@tonic-gate papiAttributeFree(list[i]);
1117c478bd9Sstevel@tonic-gate
1127c478bd9Sstevel@tonic-gate free(list);
1137c478bd9Sstevel@tonic-gate }
1147c478bd9Sstevel@tonic-gate }
1157c478bd9Sstevel@tonic-gate
1167c478bd9Sstevel@tonic-gate static papi_attribute_t **
collection_dup(papi_attribute_t ** collection)1177c478bd9Sstevel@tonic-gate collection_dup(papi_attribute_t **collection)
1187c478bd9Sstevel@tonic-gate {
1197c478bd9Sstevel@tonic-gate papi_attribute_t **result = NULL;
1207c478bd9Sstevel@tonic-gate
1217c478bd9Sstevel@tonic-gate /* allows a NULL collection that is "empty" or "no value" */
1227c478bd9Sstevel@tonic-gate if (collection != NULL) {
123355b4669Sjacobs papi_status_t status = PAPI_OK;
1247c478bd9Sstevel@tonic-gate int i;
1257c478bd9Sstevel@tonic-gate
126355b4669Sjacobs for (i = 0; ((collection[i] != NULL) && (status == PAPI_OK));
1273cf7d3e9SToomas Soome i++) {
1287c478bd9Sstevel@tonic-gate papi_attribute_t *a = collection[i];
1297c478bd9Sstevel@tonic-gate
130355b4669Sjacobs status = papiAttributeListAddValue(&result,
1313cf7d3e9SToomas Soome PAPI_ATTR_APPEND, a->name, a->type, NULL);
132355b4669Sjacobs if ((status == PAPI_OK) && (a->values != NULL)) {
1337c478bd9Sstevel@tonic-gate int j;
1347c478bd9Sstevel@tonic-gate
135355b4669Sjacobs for (j = 0; ((a->values[j] != NULL) &&
1363cf7d3e9SToomas Soome (status == PAPI_OK)); j++)
137355b4669Sjacobs status = papiAttributeListAddValue(
1383cf7d3e9SToomas Soome &result, PAPI_ATTR_APPEND,
1393cf7d3e9SToomas Soome a->name, a->type, a->values[j]);
1407c478bd9Sstevel@tonic-gate }
1417c478bd9Sstevel@tonic-gate }
142355b4669Sjacobs if (status != PAPI_OK) {
143355b4669Sjacobs papiAttributeListFree(result);
144355b4669Sjacobs result = NULL;
145355b4669Sjacobs }
1467c478bd9Sstevel@tonic-gate }
1477c478bd9Sstevel@tonic-gate
1487c478bd9Sstevel@tonic-gate return (result);
1497c478bd9Sstevel@tonic-gate }
1507c478bd9Sstevel@tonic-gate
1517c478bd9Sstevel@tonic-gate static papi_attribute_value_t *
papiAttributeValueDup(papi_attribute_value_type_t type,papi_attribute_value_t * v)152355b4669Sjacobs papiAttributeValueDup(papi_attribute_value_type_t type,
1533cf7d3e9SToomas Soome papi_attribute_value_t *v)
1547c478bd9Sstevel@tonic-gate {
1557c478bd9Sstevel@tonic-gate papi_attribute_value_t *result = NULL;
1567c478bd9Sstevel@tonic-gate
1577c478bd9Sstevel@tonic-gate if ((v != NULL) && ((result = calloc(1, sizeof (*result))) != NULL)) {
1587c478bd9Sstevel@tonic-gate switch (type) {
1597c478bd9Sstevel@tonic-gate case PAPI_STRING:
1607c478bd9Sstevel@tonic-gate if (v->string == NULL) {
1617c478bd9Sstevel@tonic-gate free(result);
1627c478bd9Sstevel@tonic-gate result = NULL;
163*f4593de7SToomas Soome } else {
1647c478bd9Sstevel@tonic-gate result->string = strdup(v->string);
165*f4593de7SToomas Soome }
1667c478bd9Sstevel@tonic-gate break;
1677c478bd9Sstevel@tonic-gate case PAPI_INTEGER:
1687c478bd9Sstevel@tonic-gate result->integer = v->integer;
1697c478bd9Sstevel@tonic-gate break;
1707c478bd9Sstevel@tonic-gate case PAPI_BOOLEAN:
1717c478bd9Sstevel@tonic-gate result->boolean = v->boolean;
1727c478bd9Sstevel@tonic-gate break;
1737c478bd9Sstevel@tonic-gate case PAPI_RANGE:
1747c478bd9Sstevel@tonic-gate result->range.lower = v->range.lower;
1757c478bd9Sstevel@tonic-gate result->range.upper = v->range.upper;
1767c478bd9Sstevel@tonic-gate break;
1777c478bd9Sstevel@tonic-gate case PAPI_RESOLUTION:
1787c478bd9Sstevel@tonic-gate result->resolution.xres = v->resolution.xres;
1797c478bd9Sstevel@tonic-gate result->resolution.yres = v->resolution.yres;
1807c478bd9Sstevel@tonic-gate result->resolution.units = v->resolution.units;
1817c478bd9Sstevel@tonic-gate break;
1827c478bd9Sstevel@tonic-gate case PAPI_DATETIME:
1837c478bd9Sstevel@tonic-gate result->datetime = v->datetime;
1847c478bd9Sstevel@tonic-gate break;
1857c478bd9Sstevel@tonic-gate case PAPI_COLLECTION:
1867c478bd9Sstevel@tonic-gate result->collection = collection_dup(v->collection);
1877c478bd9Sstevel@tonic-gate break;
188355b4669Sjacobs case PAPI_METADATA:
189355b4669Sjacobs result->metadata = v->metadata;
190355b4669Sjacobs break;
1917c478bd9Sstevel@tonic-gate default: /* unknown type, fail to duplicate */
1927c478bd9Sstevel@tonic-gate free(result);
1937c478bd9Sstevel@tonic-gate result = NULL;
1947c478bd9Sstevel@tonic-gate }
1957c478bd9Sstevel@tonic-gate }
1967c478bd9Sstevel@tonic-gate
1977c478bd9Sstevel@tonic-gate return (result);
1987c478bd9Sstevel@tonic-gate }
1997c478bd9Sstevel@tonic-gate
2007c478bd9Sstevel@tonic-gate static papi_attribute_t *
papiAttributeAlloc(char * name,papi_attribute_value_type_t type)201355b4669Sjacobs papiAttributeAlloc(char *name, papi_attribute_value_type_t type)
2027c478bd9Sstevel@tonic-gate {
2037c478bd9Sstevel@tonic-gate papi_attribute_t *result = NULL;
2047c478bd9Sstevel@tonic-gate
2057c478bd9Sstevel@tonic-gate if ((result = calloc(1, sizeof (*result))) != NULL) {
2067c478bd9Sstevel@tonic-gate result->name = strdup(name);
2077c478bd9Sstevel@tonic-gate result->type = type;
2087c478bd9Sstevel@tonic-gate }
2097c478bd9Sstevel@tonic-gate
2107c478bd9Sstevel@tonic-gate return (result);
2117c478bd9Sstevel@tonic-gate }
2127c478bd9Sstevel@tonic-gate
2137c478bd9Sstevel@tonic-gate static papi_status_t
papiAttributeListAppendValue(papi_attribute_value_t *** values,papi_attribute_value_type_t type,papi_attribute_value_t * value)214355b4669Sjacobs papiAttributeListAppendValue(papi_attribute_value_t ***values,
2153cf7d3e9SToomas Soome papi_attribute_value_type_t type,
2163cf7d3e9SToomas Soome papi_attribute_value_t *value)
2177c478bd9Sstevel@tonic-gate {
2187c478bd9Sstevel@tonic-gate
2197c478bd9Sstevel@tonic-gate if (values == NULL)
2207c478bd9Sstevel@tonic-gate return (PAPI_BAD_ARGUMENT);
2217c478bd9Sstevel@tonic-gate
2227c478bd9Sstevel@tonic-gate if (value != NULL) { /* this allows "empty" attributes */
2237c478bd9Sstevel@tonic-gate papi_attribute_value_t *tmp = NULL;
2247c478bd9Sstevel@tonic-gate
2257c478bd9Sstevel@tonic-gate if ((tmp = papiAttributeValueDup(type, value)) == NULL)
2267c478bd9Sstevel@tonic-gate return (PAPI_TEMPORARY_ERROR);
2277c478bd9Sstevel@tonic-gate
2287c478bd9Sstevel@tonic-gate list_append(values, tmp);
2297c478bd9Sstevel@tonic-gate }
2307c478bd9Sstevel@tonic-gate
2317c478bd9Sstevel@tonic-gate return (PAPI_OK);
2327c478bd9Sstevel@tonic-gate }
2337c478bd9Sstevel@tonic-gate
2347c478bd9Sstevel@tonic-gate papi_status_t
papiAttributeListAddValue(papi_attribute_t *** list,int flgs,char * name,papi_attribute_value_type_t type,papi_attribute_value_t * value)235355b4669Sjacobs papiAttributeListAddValue(papi_attribute_t ***list, int flgs,
2363cf7d3e9SToomas Soome char *name, papi_attribute_value_type_t type,
2373cf7d3e9SToomas Soome papi_attribute_value_t *value)
2387c478bd9Sstevel@tonic-gate {
2397c478bd9Sstevel@tonic-gate papi_status_t result;
2407c478bd9Sstevel@tonic-gate int flags = flgs;
2417c478bd9Sstevel@tonic-gate papi_attribute_t *attribute = NULL;
2427c478bd9Sstevel@tonic-gate papi_attribute_value_t **values = NULL;
2437c478bd9Sstevel@tonic-gate
2447c478bd9Sstevel@tonic-gate if ((list == NULL) || (name == NULL))
2457c478bd9Sstevel@tonic-gate return (PAPI_BAD_ARGUMENT);
2467c478bd9Sstevel@tonic-gate
2477c478bd9Sstevel@tonic-gate if ((type == PAPI_RANGE) && (value != NULL) &&
2487c478bd9Sstevel@tonic-gate (value->range.lower > value->range.upper))
2497c478bd9Sstevel@tonic-gate return (PAPI_BAD_ARGUMENT); /* RANGE must have min <= max */
2507c478bd9Sstevel@tonic-gate
2517c478bd9Sstevel@tonic-gate if (flags == 0) /* if it wasn't set, set a default behaviour */
2527c478bd9Sstevel@tonic-gate flags = PAPI_ATTR_APPEND;
2537c478bd9Sstevel@tonic-gate
2547c478bd9Sstevel@tonic-gate /* look for an existing one */
2557c478bd9Sstevel@tonic-gate attribute = papiAttributeListFind(*list, name);
2567c478bd9Sstevel@tonic-gate
2577c478bd9Sstevel@tonic-gate if (((flags & PAPI_ATTR_EXCL) != 0) && (attribute != NULL))
2587c478bd9Sstevel@tonic-gate return (PAPI_CONFLICT); /* EXISTS */
2597c478bd9Sstevel@tonic-gate
2607c478bd9Sstevel@tonic-gate if (((flags & PAPI_ATTR_REPLACE) == 0) && (attribute != NULL) &&
2617c478bd9Sstevel@tonic-gate (attribute->type != type))
2627c478bd9Sstevel@tonic-gate return (PAPI_CONFLICT); /* TYPE CONFLICT */
2637c478bd9Sstevel@tonic-gate
2647c478bd9Sstevel@tonic-gate /* if we don't have one, create it and add it to the list */
2657c478bd9Sstevel@tonic-gate if ((attribute == NULL) &&
2667c478bd9Sstevel@tonic-gate ((attribute = papiAttributeAlloc(name, type)) != NULL))
2677c478bd9Sstevel@tonic-gate list_append(list, attribute);
2687c478bd9Sstevel@tonic-gate
2697c478bd9Sstevel@tonic-gate /* if we don't have one by now, it's most likely an alloc fail */
2707c478bd9Sstevel@tonic-gate if (attribute == NULL)
2717c478bd9Sstevel@tonic-gate return (PAPI_TEMPORARY_ERROR);
2727c478bd9Sstevel@tonic-gate
2737c478bd9Sstevel@tonic-gate /*
2747c478bd9Sstevel@tonic-gate * if we are replacing, clear any existing values, but don't free
2757c478bd9Sstevel@tonic-gate * until after we have replaced the values, in case we are replacing
2767c478bd9Sstevel@tonic-gate * a collection with a relocated version of the original collection.
2777c478bd9Sstevel@tonic-gate */
2787c478bd9Sstevel@tonic-gate if (((flags & PAPI_ATTR_REPLACE) != 0) && (attribute->values != NULL)) {
2797c478bd9Sstevel@tonic-gate values = attribute->values;
2807c478bd9Sstevel@tonic-gate attribute->values = NULL;
2817c478bd9Sstevel@tonic-gate }
2827c478bd9Sstevel@tonic-gate
2837c478bd9Sstevel@tonic-gate attribute->type = type;
2847c478bd9Sstevel@tonic-gate
285355b4669Sjacobs result = papiAttributeListAppendValue(&attribute->values, type, value);
2867c478bd9Sstevel@tonic-gate
2877c478bd9Sstevel@tonic-gate /* free old values if we replaced them */
2887c478bd9Sstevel@tonic-gate if (values != NULL)
2897c478bd9Sstevel@tonic-gate papiAttributeValuesFree(type, values);
2907c478bd9Sstevel@tonic-gate
2917c478bd9Sstevel@tonic-gate return (result);
2927c478bd9Sstevel@tonic-gate }
2937c478bd9Sstevel@tonic-gate
2947c478bd9Sstevel@tonic-gate papi_status_t
papiAttributeListAddString(papi_attribute_t *** list,int flags,char * name,char * string)295355b4669Sjacobs papiAttributeListAddString(papi_attribute_t ***list, int flags,
2963cf7d3e9SToomas Soome char *name, char *string)
2977c478bd9Sstevel@tonic-gate {
2987c478bd9Sstevel@tonic-gate papi_attribute_value_t v;
2997c478bd9Sstevel@tonic-gate
3007c478bd9Sstevel@tonic-gate v.string = (char *)string;
301355b4669Sjacobs return (papiAttributeListAddValue(list, flags, name, PAPI_STRING, &v));
3027c478bd9Sstevel@tonic-gate }
3037c478bd9Sstevel@tonic-gate
3047c478bd9Sstevel@tonic-gate papi_status_t
papiAttributeListAddInteger(papi_attribute_t *** list,int flags,char * name,int integer)305355b4669Sjacobs papiAttributeListAddInteger(papi_attribute_t ***list, int flags,
3063cf7d3e9SToomas Soome char *name, int integer)
3077c478bd9Sstevel@tonic-gate {
3087c478bd9Sstevel@tonic-gate papi_attribute_value_t v;
3097c478bd9Sstevel@tonic-gate
3107c478bd9Sstevel@tonic-gate v.integer = integer;
311355b4669Sjacobs return (papiAttributeListAddValue(list, flags, name, PAPI_INTEGER, &v));
3127c478bd9Sstevel@tonic-gate }
3137c478bd9Sstevel@tonic-gate
3147c478bd9Sstevel@tonic-gate papi_status_t
papiAttributeListAddBoolean(papi_attribute_t *** list,int flags,char * name,char boolean)315355b4669Sjacobs papiAttributeListAddBoolean(papi_attribute_t ***list, int flags,
3163cf7d3e9SToomas Soome char *name, char boolean)
3177c478bd9Sstevel@tonic-gate {
3187c478bd9Sstevel@tonic-gate papi_attribute_value_t v;
3197c478bd9Sstevel@tonic-gate
3207c478bd9Sstevel@tonic-gate v.boolean = boolean;
321355b4669Sjacobs return (papiAttributeListAddValue(list, flags, name, PAPI_BOOLEAN, &v));
3227c478bd9Sstevel@tonic-gate }
3237c478bd9Sstevel@tonic-gate
3247c478bd9Sstevel@tonic-gate papi_status_t
papiAttributeListAddRange(papi_attribute_t *** list,int flags,char * name,int lower,int upper)325355b4669Sjacobs papiAttributeListAddRange(papi_attribute_t ***list, int flags,
3263cf7d3e9SToomas Soome char *name, int lower, int upper)
3277c478bd9Sstevel@tonic-gate {
3287c478bd9Sstevel@tonic-gate papi_attribute_value_t v;
3297c478bd9Sstevel@tonic-gate
3307c478bd9Sstevel@tonic-gate v.range.lower = lower;
3317c478bd9Sstevel@tonic-gate v.range.upper = upper;
332355b4669Sjacobs return (papiAttributeListAddValue(list, flags, name, PAPI_RANGE, &v));
3337c478bd9Sstevel@tonic-gate }
3347c478bd9Sstevel@tonic-gate
3357c478bd9Sstevel@tonic-gate papi_status_t
papiAttributeListAddResolution(papi_attribute_t *** list,int flags,char * name,int xres,int yres,papi_resolution_unit_t units)336355b4669Sjacobs papiAttributeListAddResolution(papi_attribute_t ***list, int flags,
3373cf7d3e9SToomas Soome char *name, int xres, int yres, papi_resolution_unit_t units)
3387c478bd9Sstevel@tonic-gate {
3397c478bd9Sstevel@tonic-gate papi_attribute_value_t v;
3407c478bd9Sstevel@tonic-gate
3417c478bd9Sstevel@tonic-gate v.resolution.xres = xres;
3427c478bd9Sstevel@tonic-gate v.resolution.yres = yres;
3437c478bd9Sstevel@tonic-gate v.resolution.units = units;
344355b4669Sjacobs return (papiAttributeListAddValue(list, flags, name,
3453cf7d3e9SToomas Soome PAPI_RESOLUTION, &v));
3467c478bd9Sstevel@tonic-gate }
3477c478bd9Sstevel@tonic-gate
3487c478bd9Sstevel@tonic-gate papi_status_t
papiAttributeListAddDatetime(papi_attribute_t *** list,int flags,char * name,time_t datetime)349355b4669Sjacobs papiAttributeListAddDatetime(papi_attribute_t ***list, int flags,
3503cf7d3e9SToomas Soome char *name, time_t datetime)
3517c478bd9Sstevel@tonic-gate {
3527c478bd9Sstevel@tonic-gate papi_attribute_value_t v;
3537c478bd9Sstevel@tonic-gate
3547c478bd9Sstevel@tonic-gate v.datetime = datetime;
355355b4669Sjacobs return (papiAttributeListAddValue(list, flags, name,
3563cf7d3e9SToomas Soome PAPI_DATETIME, &v));
3577c478bd9Sstevel@tonic-gate }
3587c478bd9Sstevel@tonic-gate
3597c478bd9Sstevel@tonic-gate papi_status_t
papiAttributeListAddCollection(papi_attribute_t *** list,int flags,char * name,papi_attribute_t ** collection)360355b4669Sjacobs papiAttributeListAddCollection(papi_attribute_t ***list, int flags,
3613cf7d3e9SToomas Soome char *name, papi_attribute_t **collection)
3627c478bd9Sstevel@tonic-gate {
3637c478bd9Sstevel@tonic-gate papi_attribute_value_t v;
3647c478bd9Sstevel@tonic-gate
3657c478bd9Sstevel@tonic-gate v.collection = (papi_attribute_t **)collection;
366355b4669Sjacobs return (papiAttributeListAddValue(list, flags, name,
3673cf7d3e9SToomas Soome PAPI_COLLECTION, &v));
368355b4669Sjacobs }
369355b4669Sjacobs
370355b4669Sjacobs papi_status_t
papiAttributeListAddMetadata(papi_attribute_t *** list,int flags,char * name,papi_metadata_t metadata)371355b4669Sjacobs papiAttributeListAddMetadata(papi_attribute_t ***list, int flags,
3723cf7d3e9SToomas Soome char *name, papi_metadata_t metadata)
373355b4669Sjacobs {
374355b4669Sjacobs papi_attribute_value_t v;
375355b4669Sjacobs
376355b4669Sjacobs v.metadata = metadata;
377355b4669Sjacobs return (papiAttributeListAddValue(list, flags, name,
3783cf7d3e9SToomas Soome PAPI_METADATA, &v));
3797c478bd9Sstevel@tonic-gate }
3807c478bd9Sstevel@tonic-gate
3817c478bd9Sstevel@tonic-gate papi_status_t
papiAttributeListDelete(papi_attribute_t *** list,char * name)382355b4669Sjacobs papiAttributeListDelete(papi_attribute_t ***list, char *name)
3837c478bd9Sstevel@tonic-gate {
3847c478bd9Sstevel@tonic-gate papi_attribute_t *attribute;
3857c478bd9Sstevel@tonic-gate
3867c478bd9Sstevel@tonic-gate if ((list == NULL) || (name == NULL))
3877c478bd9Sstevel@tonic-gate return (PAPI_BAD_ARGUMENT);
3887c478bd9Sstevel@tonic-gate
3897c478bd9Sstevel@tonic-gate if ((attribute = papiAttributeListFind(*list, name)) == NULL)
3907c478bd9Sstevel@tonic-gate return (PAPI_NOT_FOUND);
3917c478bd9Sstevel@tonic-gate
3920a44ef6dSjacobs list_remove(list, attribute);
3937c478bd9Sstevel@tonic-gate papiAttributeFree(attribute);
3947c478bd9Sstevel@tonic-gate
3957c478bd9Sstevel@tonic-gate return (PAPI_OK);
3967c478bd9Sstevel@tonic-gate }
3977c478bd9Sstevel@tonic-gate
3987c478bd9Sstevel@tonic-gate papi_attribute_t *
papiAttributeListFind(papi_attribute_t ** list,char * name)399355b4669Sjacobs papiAttributeListFind(papi_attribute_t **list, char *name)
4007c478bd9Sstevel@tonic-gate {
401355b4669Sjacobs int i;
402355b4669Sjacobs if ((list == NULL) || (name == NULL))
403355b4669Sjacobs return (NULL);
4047c478bd9Sstevel@tonic-gate
405355b4669Sjacobs for (i = 0; list[i] != NULL; i++)
406355b4669Sjacobs if (strcasecmp(list[i]->name, name) == 0)
407355b4669Sjacobs return ((papi_attribute_t *)list[i]);
4087c478bd9Sstevel@tonic-gate
4097c478bd9Sstevel@tonic-gate return (NULL);
4107c478bd9Sstevel@tonic-gate }
4117c478bd9Sstevel@tonic-gate
4127c478bd9Sstevel@tonic-gate papi_attribute_t *
papiAttributeListGetNext(papi_attribute_t ** list,void ** iter)4137c478bd9Sstevel@tonic-gate papiAttributeListGetNext(papi_attribute_t **list, void **iter)
4147c478bd9Sstevel@tonic-gate {
4157c478bd9Sstevel@tonic-gate papi_attribute_t **tmp, *result;
4167c478bd9Sstevel@tonic-gate
4177c478bd9Sstevel@tonic-gate if ((list == NULL) && (iter == NULL))
4187c478bd9Sstevel@tonic-gate return (NULL);
4197c478bd9Sstevel@tonic-gate
4207c478bd9Sstevel@tonic-gate if (*iter == NULL)
4217c478bd9Sstevel@tonic-gate *iter = list;
4227c478bd9Sstevel@tonic-gate
4237c478bd9Sstevel@tonic-gate tmp = *iter;
4247c478bd9Sstevel@tonic-gate result = *tmp;
4257c478bd9Sstevel@tonic-gate *iter = ++tmp;
4267c478bd9Sstevel@tonic-gate
4277c478bd9Sstevel@tonic-gate return (result);
4287c478bd9Sstevel@tonic-gate }
4297c478bd9Sstevel@tonic-gate
4307c478bd9Sstevel@tonic-gate papi_status_t
papiAttributeListGetValue(papi_attribute_t ** list,void ** iter,char * name,papi_attribute_value_type_t type,papi_attribute_value_t ** value)4317c478bd9Sstevel@tonic-gate papiAttributeListGetValue(papi_attribute_t **list, void **iter,
4323cf7d3e9SToomas Soome char *name, papi_attribute_value_type_t type,
4333cf7d3e9SToomas Soome papi_attribute_value_t **value)
4347c478bd9Sstevel@tonic-gate {
4357c478bd9Sstevel@tonic-gate papi_attribute_value_t **tmp;
4367c478bd9Sstevel@tonic-gate void *fodder = NULL;
4377c478bd9Sstevel@tonic-gate
4387c478bd9Sstevel@tonic-gate if ((list == NULL) || ((name == NULL) && (iter == NULL)) ||
4397c478bd9Sstevel@tonic-gate (value == NULL))
4407c478bd9Sstevel@tonic-gate return (PAPI_BAD_ARGUMENT);
4417c478bd9Sstevel@tonic-gate
4427c478bd9Sstevel@tonic-gate if (iter == NULL)
4437c478bd9Sstevel@tonic-gate iter = &fodder;
4447c478bd9Sstevel@tonic-gate
4457c478bd9Sstevel@tonic-gate if ((iter == NULL) || (*iter == NULL)) {
4467c478bd9Sstevel@tonic-gate papi_attribute_t *attr = papiAttributeListFind(list, name);
4477c478bd9Sstevel@tonic-gate
4487c478bd9Sstevel@tonic-gate if (attr == NULL)
4497c478bd9Sstevel@tonic-gate return (PAPI_NOT_FOUND);
4507c478bd9Sstevel@tonic-gate
4517c478bd9Sstevel@tonic-gate if (attr->type != type)
4527c478bd9Sstevel@tonic-gate return (PAPI_NOT_POSSIBLE);
4537c478bd9Sstevel@tonic-gate
4547c478bd9Sstevel@tonic-gate tmp = attr->values;
455*f4593de7SToomas Soome } else {
4567c478bd9Sstevel@tonic-gate tmp = *iter;
457*f4593de7SToomas Soome }
4587c478bd9Sstevel@tonic-gate
4597c478bd9Sstevel@tonic-gate if (tmp == NULL)
4607c478bd9Sstevel@tonic-gate return (PAPI_NOT_FOUND);
4617c478bd9Sstevel@tonic-gate
4627c478bd9Sstevel@tonic-gate *value = *tmp;
4637c478bd9Sstevel@tonic-gate *iter = ++tmp;
4647c478bd9Sstevel@tonic-gate
4657c478bd9Sstevel@tonic-gate if (*value == NULL)
4667c478bd9Sstevel@tonic-gate return (PAPI_GONE);
4677c478bd9Sstevel@tonic-gate
4687c478bd9Sstevel@tonic-gate return (PAPI_OK);
4697c478bd9Sstevel@tonic-gate }
4707c478bd9Sstevel@tonic-gate
4717c478bd9Sstevel@tonic-gate papi_status_t
papiAttributeListGetString(papi_attribute_t ** list,void ** iter,char * name,char ** vptr)4727c478bd9Sstevel@tonic-gate papiAttributeListGetString(papi_attribute_t **list, void **iter,
4733cf7d3e9SToomas Soome char *name, char **vptr)
4747c478bd9Sstevel@tonic-gate {
4757c478bd9Sstevel@tonic-gate papi_status_t status;
4767c478bd9Sstevel@tonic-gate papi_attribute_value_t *value = NULL;
4777c478bd9Sstevel@tonic-gate
4787c478bd9Sstevel@tonic-gate if (vptr == NULL)
4797c478bd9Sstevel@tonic-gate return (PAPI_BAD_ARGUMENT);
4807c478bd9Sstevel@tonic-gate
4817c478bd9Sstevel@tonic-gate status = papiAttributeListGetValue(list, iter, name,
4823cf7d3e9SToomas Soome PAPI_STRING, &value);
4837c478bd9Sstevel@tonic-gate if (status == PAPI_OK)
4847c478bd9Sstevel@tonic-gate *vptr = value->string;
4857c478bd9Sstevel@tonic-gate
4867c478bd9Sstevel@tonic-gate return (status);
4877c478bd9Sstevel@tonic-gate }
4887c478bd9Sstevel@tonic-gate
4897c478bd9Sstevel@tonic-gate papi_status_t
papiAttributeListGetInteger(papi_attribute_t ** list,void ** iter,char * name,int * vptr)4907c478bd9Sstevel@tonic-gate papiAttributeListGetInteger(papi_attribute_t **list, void **iter,
4913cf7d3e9SToomas Soome char *name, int *vptr)
4927c478bd9Sstevel@tonic-gate {
4937c478bd9Sstevel@tonic-gate papi_status_t status;
4947c478bd9Sstevel@tonic-gate papi_attribute_value_t *value = NULL;
4957c478bd9Sstevel@tonic-gate
4967c478bd9Sstevel@tonic-gate if (vptr == NULL)
4977c478bd9Sstevel@tonic-gate return (PAPI_BAD_ARGUMENT);
4987c478bd9Sstevel@tonic-gate
4997c478bd9Sstevel@tonic-gate status = papiAttributeListGetValue(list, iter, name,
5003cf7d3e9SToomas Soome PAPI_INTEGER, &value);
5017c478bd9Sstevel@tonic-gate if (status == PAPI_OK)
5027c478bd9Sstevel@tonic-gate *vptr = value->integer;
5037c478bd9Sstevel@tonic-gate
5047c478bd9Sstevel@tonic-gate return (status);
5057c478bd9Sstevel@tonic-gate }
5067c478bd9Sstevel@tonic-gate
5077c478bd9Sstevel@tonic-gate papi_status_t
papiAttributeListGetBoolean(papi_attribute_t ** list,void ** iter,char * name,char * vptr)5087c478bd9Sstevel@tonic-gate papiAttributeListGetBoolean(papi_attribute_t **list, void **iter,
5093cf7d3e9SToomas Soome char *name, char *vptr)
5107c478bd9Sstevel@tonic-gate {
5117c478bd9Sstevel@tonic-gate papi_status_t status;
5127c478bd9Sstevel@tonic-gate papi_attribute_value_t *value = NULL;
5137c478bd9Sstevel@tonic-gate
5147c478bd9Sstevel@tonic-gate if (vptr == NULL)
5157c478bd9Sstevel@tonic-gate return (PAPI_BAD_ARGUMENT);
5167c478bd9Sstevel@tonic-gate
5177c478bd9Sstevel@tonic-gate status = papiAttributeListGetValue(list, iter, name,
5183cf7d3e9SToomas Soome PAPI_BOOLEAN, &value);
5197c478bd9Sstevel@tonic-gate if (status == PAPI_OK)
5207c478bd9Sstevel@tonic-gate *vptr = value->boolean;
5217c478bd9Sstevel@tonic-gate
5227c478bd9Sstevel@tonic-gate return (status);
5237c478bd9Sstevel@tonic-gate }
5247c478bd9Sstevel@tonic-gate
5257c478bd9Sstevel@tonic-gate papi_status_t
papiAttributeListGetRange(papi_attribute_t ** list,void ** iter,char * name,int * min,int * max)5267c478bd9Sstevel@tonic-gate papiAttributeListGetRange(papi_attribute_t **list, void **iter,
5273cf7d3e9SToomas Soome char *name, int *min, int *max)
5287c478bd9Sstevel@tonic-gate {
5297c478bd9Sstevel@tonic-gate papi_status_t status;
5307c478bd9Sstevel@tonic-gate papi_attribute_value_t *value = NULL;
5317c478bd9Sstevel@tonic-gate
5327c478bd9Sstevel@tonic-gate if ((min == NULL) || (max == NULL))
5337c478bd9Sstevel@tonic-gate return (PAPI_BAD_ARGUMENT);
5347c478bd9Sstevel@tonic-gate
5357c478bd9Sstevel@tonic-gate status = papiAttributeListGetValue(list, iter, name,
5363cf7d3e9SToomas Soome PAPI_RANGE, &value);
5377c478bd9Sstevel@tonic-gate if (status == PAPI_OK) {
5387c478bd9Sstevel@tonic-gate *min = value->range.lower;
5397c478bd9Sstevel@tonic-gate *max = value->range.upper;
5407c478bd9Sstevel@tonic-gate }
5417c478bd9Sstevel@tonic-gate
5427c478bd9Sstevel@tonic-gate return (status);
5437c478bd9Sstevel@tonic-gate }
5447c478bd9Sstevel@tonic-gate
5457c478bd9Sstevel@tonic-gate papi_status_t
papiAttributeListGetResolution(papi_attribute_t ** list,void ** iter,char * name,int * x,int * y,papi_resolution_unit_t * units)5467c478bd9Sstevel@tonic-gate papiAttributeListGetResolution(papi_attribute_t **list, void **iter,
5473cf7d3e9SToomas Soome char *name, int *x, int *y, papi_resolution_unit_t *units)
5487c478bd9Sstevel@tonic-gate {
5497c478bd9Sstevel@tonic-gate papi_status_t status;
5507c478bd9Sstevel@tonic-gate papi_attribute_value_t *value = NULL;
5517c478bd9Sstevel@tonic-gate
5527c478bd9Sstevel@tonic-gate if ((x == NULL) || (y == NULL) || (units == NULL))
5537c478bd9Sstevel@tonic-gate return (PAPI_BAD_ARGUMENT);
5547c478bd9Sstevel@tonic-gate
5557c478bd9Sstevel@tonic-gate status = papiAttributeListGetValue(list, iter, name,
5563cf7d3e9SToomas Soome PAPI_RESOLUTION, &value);
5577c478bd9Sstevel@tonic-gate if (status == PAPI_OK) {
5587c478bd9Sstevel@tonic-gate *x = value->resolution.xres;
5597c478bd9Sstevel@tonic-gate *y = value->resolution.yres;
5607c478bd9Sstevel@tonic-gate *units = value->resolution.units;
5617c478bd9Sstevel@tonic-gate }
5627c478bd9Sstevel@tonic-gate
5637c478bd9Sstevel@tonic-gate return (status);
5647c478bd9Sstevel@tonic-gate }
5657c478bd9Sstevel@tonic-gate
5667c478bd9Sstevel@tonic-gate papi_status_t
papiAttributeListGetDatetime(papi_attribute_t ** list,void ** iter,char * name,time_t * dt)5677c478bd9Sstevel@tonic-gate papiAttributeListGetDatetime(papi_attribute_t **list, void **iter,
5683cf7d3e9SToomas Soome char *name, time_t *dt)
5697c478bd9Sstevel@tonic-gate {
5707c478bd9Sstevel@tonic-gate papi_status_t status;
5717c478bd9Sstevel@tonic-gate papi_attribute_value_t *value = NULL;
5727c478bd9Sstevel@tonic-gate
5737c478bd9Sstevel@tonic-gate if (dt == NULL)
5747c478bd9Sstevel@tonic-gate return (PAPI_BAD_ARGUMENT);
5757c478bd9Sstevel@tonic-gate
5767c478bd9Sstevel@tonic-gate status = papiAttributeListGetValue(list, iter, name,
5773cf7d3e9SToomas Soome PAPI_DATETIME, &value);
5787c478bd9Sstevel@tonic-gate if (status == PAPI_OK) {
5797c478bd9Sstevel@tonic-gate *dt = value->datetime;
5807c478bd9Sstevel@tonic-gate }
5817c478bd9Sstevel@tonic-gate
5827c478bd9Sstevel@tonic-gate return (status);
5837c478bd9Sstevel@tonic-gate }
5847c478bd9Sstevel@tonic-gate
5857c478bd9Sstevel@tonic-gate papi_status_t
papiAttributeListGetCollection(papi_attribute_t ** list,void ** iter,char * name,papi_attribute_t *** collection)5867c478bd9Sstevel@tonic-gate papiAttributeListGetCollection(papi_attribute_t **list, void **iter,
5873cf7d3e9SToomas Soome char *name, papi_attribute_t ***collection)
5887c478bd9Sstevel@tonic-gate {
5897c478bd9Sstevel@tonic-gate papi_status_t status;
5907c478bd9Sstevel@tonic-gate papi_attribute_value_t *value = NULL;
5917c478bd9Sstevel@tonic-gate
5927c478bd9Sstevel@tonic-gate if (collection == NULL)
5937c478bd9Sstevel@tonic-gate return (PAPI_BAD_ARGUMENT);
5947c478bd9Sstevel@tonic-gate
5957c478bd9Sstevel@tonic-gate status = papiAttributeListGetValue(list, iter, name,
5963cf7d3e9SToomas Soome PAPI_COLLECTION, &value);
5977c478bd9Sstevel@tonic-gate if (status == PAPI_OK) {
5987c478bd9Sstevel@tonic-gate *collection = value->collection;
5997c478bd9Sstevel@tonic-gate }
6007c478bd9Sstevel@tonic-gate
6017c478bd9Sstevel@tonic-gate return (status);
6027c478bd9Sstevel@tonic-gate }
6037c478bd9Sstevel@tonic-gate
604355b4669Sjacobs papi_status_t
papiAttributeListGetMetadata(papi_attribute_t ** list,void ** iter,char * name,papi_metadata_t * vptr)605355b4669Sjacobs papiAttributeListGetMetadata(papi_attribute_t **list, void **iter,
6063cf7d3e9SToomas Soome char *name, papi_metadata_t *vptr)
607355b4669Sjacobs {
608355b4669Sjacobs papi_status_t status;
609355b4669Sjacobs papi_attribute_value_t *value = NULL;
610355b4669Sjacobs
611355b4669Sjacobs if (vptr == NULL)
612355b4669Sjacobs return (PAPI_BAD_ARGUMENT);
613355b4669Sjacobs
614355b4669Sjacobs status = papiAttributeListGetValue(list, iter, name,
6153cf7d3e9SToomas Soome PAPI_METADATA, &value);
616355b4669Sjacobs if (status == PAPI_OK)
617355b4669Sjacobs *vptr = value->metadata;
618355b4669Sjacobs
619355b4669Sjacobs return (status);
620355b4669Sjacobs }
6217c478bd9Sstevel@tonic-gate
6227c478bd9Sstevel@tonic-gate
62343b9c050Sjacobs /* The string is modified by this call */
6247c478bd9Sstevel@tonic-gate static char *
regvalue(regmatch_t match,char * string)62543b9c050Sjacobs regvalue(regmatch_t match, char *string)
6267c478bd9Sstevel@tonic-gate {
6277c478bd9Sstevel@tonic-gate char *result = NULL;
62843b9c050Sjacobs if (match.rm_so != match.rm_eo) {
62943b9c050Sjacobs result = string + match.rm_so;
63043b9c050Sjacobs *(result + (match.rm_eo - match.rm_so)) = '\0';
63143b9c050Sjacobs }
63243b9c050Sjacobs return (result);
63343b9c050Sjacobs }
6347c478bd9Sstevel@tonic-gate
63543b9c050Sjacobs static papi_attribute_value_type_t
_process_value(char * string,char *** parts)63643b9c050Sjacobs _process_value(char *string, char ***parts)
63743b9c050Sjacobs {
63843b9c050Sjacobs int i;
63943b9c050Sjacobs static struct {
64043b9c050Sjacobs papi_attribute_value_type_t type;
64143b9c050Sjacobs size_t vals;
64243b9c050Sjacobs char *expression;
64343b9c050Sjacobs int compiled;
64443b9c050Sjacobs regex_t re;
64543b9c050Sjacobs } types[] = {
6463cf7d3e9SToomas Soome { PAPI_BOOLEAN, 1, "^(true|false|yes|no)$", 0 },
64743b9c050Sjacobs { PAPI_COLLECTION, 1, "^\\{(.+)\\}$", 0 },
64843b9c050Sjacobs /* PAPI_DATETIME is unsupported, too much like an integer */
64943b9c050Sjacobs { PAPI_INTEGER, 1, "^([+-]{0,1}[[:digit:]]+)$", 0 },
650fa9d6f9fSsg { PAPI_RANGE, 3, "^([[:digit:]]*)-([[:digit:]]*)$", 0 },
65143b9c050Sjacobs { PAPI_RESOLUTION, 4, "^([[:digit:]]+)x([[:digit:]]+)dp(i|c)$",
65243b9c050Sjacobs 0 },
653*f4593de7SToomas Soome 0
65443b9c050Sjacobs };
65543b9c050Sjacobs regmatch_t matches[4];
65643b9c050Sjacobs
65743b9c050Sjacobs for (i = 0; i < 5; i++) {
65843b9c050Sjacobs int j;
65943b9c050Sjacobs
66043b9c050Sjacobs if (types[i].compiled == 0) {
66143b9c050Sjacobs (void) regcomp(&(types[i].re), types[i].expression,
6623cf7d3e9SToomas Soome REG_EXTENDED|REG_ICASE);
66343b9c050Sjacobs types[i].compiled = 1;
6647c478bd9Sstevel@tonic-gate }
66543b9c050Sjacobs if (regexec(&(types[i].re), string, (size_t)types[i].vals,
6663cf7d3e9SToomas Soome matches, 0) == REG_NOMATCH)
66743b9c050Sjacobs continue;
6687c478bd9Sstevel@tonic-gate
6693cf7d3e9SToomas Soome for (j = 0; j < types[i].vals; j++)
67043b9c050Sjacobs list_append(parts, regvalue(matches[j], string));
67143b9c050Sjacobs return (types[i].type);
6727c478bd9Sstevel@tonic-gate }
6737c478bd9Sstevel@tonic-gate
67443b9c050Sjacobs list_append(parts, string);
67543b9c050Sjacobs return (PAPI_STRING);
67643b9c050Sjacobs }
6777c478bd9Sstevel@tonic-gate
67843b9c050Sjacobs static void
_add_attribute_value(papi_attribute_value_t *** list,papi_attribute_value_type_t type,papi_attribute_value_type_t dtype,char ** parts)67943b9c050Sjacobs _add_attribute_value(papi_attribute_value_t ***list,
6803cf7d3e9SToomas Soome papi_attribute_value_type_t type,
6813cf7d3e9SToomas Soome papi_attribute_value_type_t dtype, char **parts)
68243b9c050Sjacobs {
68343b9c050Sjacobs papi_attribute_value_t *value = calloc(1, sizeof (*value));
68443b9c050Sjacobs
6853cf7d3e9SToomas Soome switch (type) {
68643b9c050Sjacobs case PAPI_STRING:
68743b9c050Sjacobs value->string = strdup(parts[0]);
68843b9c050Sjacobs list_append(list, value);
68943b9c050Sjacobs break;
69043b9c050Sjacobs case PAPI_BOOLEAN:
69143b9c050Sjacobs value->boolean = PAPI_TRUE;
69243b9c050Sjacobs if ((strcasecmp(parts[0], "false") == 0) ||
69343b9c050Sjacobs (strcasecmp(parts[0], "no") == 0))
69443b9c050Sjacobs value->boolean = PAPI_FALSE;
69543b9c050Sjacobs list_append(list, value);
69643b9c050Sjacobs break;
69743b9c050Sjacobs case PAPI_INTEGER:
69843b9c050Sjacobs value->integer = atoi(parts[0]);
69943b9c050Sjacobs list_append(list, value);
70043b9c050Sjacobs break;
70143b9c050Sjacobs case PAPI_RANGE:
702fa9d6f9fSsg if (dtype == PAPI_INTEGER) {
703fa9d6f9fSsg if (atoi(parts[0]) < 0) {
704fa9d6f9fSsg /*
705fa9d6f9fSsg * Handles -P -x case
706fa9d6f9fSsg * which prints from page number 1
707fa9d6f9fSsg * till page number x
708fa9d6f9fSsg */
709fa9d6f9fSsg value->range.lower = 1;
710fa9d6f9fSsg value->range.upper = 0 - (atoi(parts[0]));
711fa9d6f9fSsg } else {
712fa9d6f9fSsg value->range.lower = value->range.upper
713fa9d6f9fSsg = atoi(parts[0]);
714fa9d6f9fSsg }
715fa9d6f9fSsg } else if (dtype == PAPI_RANGE) {
716fa9d6f9fSsg if (parts[2] == NULL) {
717fa9d6f9fSsg value->range.lower = atoi(parts[1]);
718fa9d6f9fSsg /*
719fa9d6f9fSsg * Imposing an artificial limit on
720fa9d6f9fSsg * the upper bound for page range.
721fa9d6f9fSsg */
722fa9d6f9fSsg value->range.upper = MAX_PAGES;
723fa9d6f9fSsg } else if ((parts[1] != NULL) && (parts[2] != NULL)) {
724fa9d6f9fSsg value->range.lower = atoi(parts[1]);
725fa9d6f9fSsg value->range.upper = atoi(parts[2]);
726fa9d6f9fSsg }
72743b9c050Sjacobs }
72843b9c050Sjacobs list_append(list, value);
72943b9c050Sjacobs break;
73043b9c050Sjacobs case PAPI_RESOLUTION:
73143b9c050Sjacobs value->resolution.xres = atoi(parts[1]);
73243b9c050Sjacobs value->resolution.yres = atoi(parts[2]);
73343b9c050Sjacobs if (parts[3][0] == 'i')
73443b9c050Sjacobs value->resolution.units = PAPI_RES_PER_INCH;
73543b9c050Sjacobs else
73643b9c050Sjacobs value->resolution.units = PAPI_RES_PER_CM;
73743b9c050Sjacobs list_append(list, value);
73843b9c050Sjacobs break;
73943b9c050Sjacobs case PAPI_COLLECTION:
74043b9c050Sjacobs papiAttributeListFromString(&(value->collection), 0, parts[0]);
74143b9c050Sjacobs list_append(list, value);
74243b9c050Sjacobs break;
74343b9c050Sjacobs }
74443b9c050Sjacobs }
7457c478bd9Sstevel@tonic-gate
7467c478bd9Sstevel@tonic-gate static papi_status_t
_papiAttributeFromStrings(papi_attribute_t *** list,int flags,char * key,char ** values)74743b9c050Sjacobs _papiAttributeFromStrings(papi_attribute_t ***list, int flags,
7483cf7d3e9SToomas Soome char *key, char **values)
7497c478bd9Sstevel@tonic-gate {
75043b9c050Sjacobs int i;
7517c478bd9Sstevel@tonic-gate papi_status_t result = PAPI_OK;
75243b9c050Sjacobs papi_attribute_t *attr = calloc(1, sizeof (*attr));
7537c478bd9Sstevel@tonic-gate
75443b9c050Sjacobs /* these are specified in the papi spec as ranges */
75543b9c050Sjacobs char *ranges[] = { "copies-supported", "job-impressions-supported",
75643b9c050Sjacobs "job-k-octets-supported",
7573cf7d3e9SToomas Soome "job-media-sheets-supported", "page-ranges",
75843b9c050Sjacobs NULL };
7597c478bd9Sstevel@tonic-gate
76043b9c050Sjacobs if ((attr == NULL) || ((attr->name = strdup(key)) == NULL))
76143b9c050Sjacobs return (PAPI_TEMPORARY_ERROR);
7627c478bd9Sstevel@tonic-gate
76343b9c050Sjacobs attr->type = PAPI_METADATA;
76443b9c050Sjacobs /* these are known ranges */
76543b9c050Sjacobs for (i = 0; ranges[i] != NULL; i++)
76643b9c050Sjacobs if (strcasecmp(attr->name, ranges[i]) == 0) {
76743b9c050Sjacobs attr->type = PAPI_RANGE;
76843b9c050Sjacobs break;
76943b9c050Sjacobs }
7707c478bd9Sstevel@tonic-gate
77143b9c050Sjacobs if (values != NULL) {
77243b9c050Sjacobs papi_attribute_value_t **vals = NULL;
7737c478bd9Sstevel@tonic-gate
77443b9c050Sjacobs for (i = 0; values[i] != NULL; i++) {
77543b9c050Sjacobs papi_attribute_value_type_t dtype;
77643b9c050Sjacobs char **parts = NULL;
7777c478bd9Sstevel@tonic-gate
77843b9c050Sjacobs dtype = _process_value(values[i], &parts);
77943b9c050Sjacobs if (attr->type == PAPI_METADATA)
78043b9c050Sjacobs attr->type = dtype;
78143b9c050Sjacobs _add_attribute_value(&vals, attr->type, dtype, parts);
78243b9c050Sjacobs free(parts);
7837c478bd9Sstevel@tonic-gate }
78443b9c050Sjacobs attr->values = vals;
7857c478bd9Sstevel@tonic-gate }
7867c478bd9Sstevel@tonic-gate
78743b9c050Sjacobs list_append(list, attr);
7887c478bd9Sstevel@tonic-gate
7897c478bd9Sstevel@tonic-gate return (result);
79043b9c050Sjacobs }
7917c478bd9Sstevel@tonic-gate
7927c478bd9Sstevel@tonic-gate static papi_status_t
_parse_attribute_list(papi_attribute_t *** list,int flags,char * string)79343b9c050Sjacobs _parse_attribute_list(papi_attribute_t ***list, int flags, char *string)
7947c478bd9Sstevel@tonic-gate {
7957c478bd9Sstevel@tonic-gate papi_status_t result = PAPI_OK;
79643b9c050Sjacobs char *ptr;
79743b9c050Sjacobs
79843b9c050Sjacobs if ((list == NULL) || (string == NULL))
79943b9c050Sjacobs return (PAPI_BAD_ARGUMENT);
80043b9c050Sjacobs
80143b9c050Sjacobs if ((ptr = strdup(string)) == NULL)
80243b9c050Sjacobs return (PAPI_TEMPORARY_ERROR);
80343b9c050Sjacobs
80443b9c050Sjacobs while ((*ptr != '\0') && (result == PAPI_OK)) {
80543b9c050Sjacobs char *key, **values = NULL;
80643b9c050Sjacobs
80743b9c050Sjacobs /* strip any leading whitespace */
80843b9c050Sjacobs while (isspace(*ptr) != 0)
80943b9c050Sjacobs ptr++;
81043b9c050Sjacobs
81143b9c050Sjacobs /* Get the name: name[=value] */
81243b9c050Sjacobs key = ptr;
81343b9c050Sjacobs while ((*ptr != '\0') && (*ptr != '=') && (isspace(*ptr) == 0))
81443b9c050Sjacobs ptr++;
81543b9c050Sjacobs
81643b9c050Sjacobs if (*ptr == '=') {
81743b9c050Sjacobs *ptr++ = '\0';
81843b9c050Sjacobs
81943b9c050Sjacobs while ((*ptr != '\0') && (isspace(*ptr) == 0)) {
82043b9c050Sjacobs char *value = ptr;
82143b9c050Sjacobs
82243b9c050Sjacobs if ((*ptr == '\'') || (*ptr == '"')) {
82343b9c050Sjacobs char q = *ptr++;
82443b9c050Sjacobs
82543b9c050Sjacobs /* quoted string value */
82643b9c050Sjacobs while ((*ptr != '\0') && (*ptr != q))
82743b9c050Sjacobs ptr++;
82843b9c050Sjacobs if (*ptr == q)
82943b9c050Sjacobs ptr++;
83043b9c050Sjacobs } else if (*ptr == '{') {
83143b9c050Sjacobs /* collection */
83243b9c050Sjacobs while ((*ptr != '\0') && (*ptr != '}'))
83343b9c050Sjacobs ptr++;
83443b9c050Sjacobs if (*ptr == '}')
83543b9c050Sjacobs ptr++;
836355b4669Sjacobs } else {
83743b9c050Sjacobs /* value */
83843b9c050Sjacobs while ((*ptr != '\0') &&
8393cf7d3e9SToomas Soome (*ptr != ',') &&
8403cf7d3e9SToomas Soome (isspace(*ptr) == 0))
84143b9c050Sjacobs ptr++;
8427c478bd9Sstevel@tonic-gate }
84343b9c050Sjacobs if (*ptr == ',')
84443b9c050Sjacobs *ptr++ = '\0';
84543b9c050Sjacobs list_append(&values, value);
8467c478bd9Sstevel@tonic-gate }
84743b9c050Sjacobs } else { /* boolean "[no]key" */
84843b9c050Sjacobs char *value = "true";
84943b9c050Sjacobs
85043b9c050Sjacobs if (strncasecmp(key, "no", 2) == 0) {
85143b9c050Sjacobs key += 2;
85243b9c050Sjacobs value = "false";
85343b9c050Sjacobs }
85443b9c050Sjacobs list_append(&values, value);
8557c478bd9Sstevel@tonic-gate }
85643b9c050Sjacobs if (*ptr != '\0')
85743b9c050Sjacobs *ptr++ = '\0';
85843b9c050Sjacobs
85943b9c050Sjacobs result = _papiAttributeFromStrings(list, flags, key, values);
86043b9c050Sjacobs free(values);
8617c478bd9Sstevel@tonic-gate }
8627c478bd9Sstevel@tonic-gate
8637c478bd9Sstevel@tonic-gate return (result);
86443b9c050Sjacobs }
8657c478bd9Sstevel@tonic-gate
8667c478bd9Sstevel@tonic-gate papi_status_t
papiAttributeListFromString(papi_attribute_t *** attrs,int flags,char * string)8673cf7d3e9SToomas Soome papiAttributeListFromString(papi_attribute_t ***attrs, int flags, char *string)
8687c478bd9Sstevel@tonic-gate {
8697c478bd9Sstevel@tonic-gate papi_status_t result = PAPI_OK;
8707c478bd9Sstevel@tonic-gate
8717c478bd9Sstevel@tonic-gate if ((attrs != NULL) && (string != NULL) &&
872*f4593de7SToomas Soome ((flags & ~(PAPI_ATTR_APPEND + PAPI_ATTR_REPLACE + PAPI_ATTR_EXCL))
8733cf7d3e9SToomas Soome == 0)) {
87443b9c050Sjacobs result = _parse_attribute_list(attrs, flags, string);
87543b9c050Sjacobs } else {
8767c478bd9Sstevel@tonic-gate result = PAPI_BAD_ARGUMENT;
8777c478bd9Sstevel@tonic-gate }
8787c478bd9Sstevel@tonic-gate
8797c478bd9Sstevel@tonic-gate return (result);
8807c478bd9Sstevel@tonic-gate }
8817c478bd9Sstevel@tonic-gate
882355b4669Sjacobs static papi_status_t
papiAttributeToString(papi_attribute_t * attribute,char * delim,char * buffer,size_t buflen)883355b4669Sjacobs papiAttributeToString(papi_attribute_t *attribute, char *delim,
8843cf7d3e9SToomas Soome char *buffer, size_t buflen)
8857c478bd9Sstevel@tonic-gate {
886355b4669Sjacobs papi_attribute_value_t **values = attribute->values;
887355b4669Sjacobs int rc, i;
888355b4669Sjacobs
88943b9c050Sjacobs if ((attribute->type == PAPI_BOOLEAN) && (values[1] == NULL)) {
89043b9c050Sjacobs if (values[0]->boolean == PAPI_FALSE) {
89143b9c050Sjacobs if (isupper(attribute->name[0]) == 0)
89243b9c050Sjacobs strlcat(buffer, "no", buflen);
89343b9c050Sjacobs else
89443b9c050Sjacobs strlcat(buffer, "No", buflen);
89543b9c050Sjacobs }
89643b9c050Sjacobs rc = strlcat(buffer, attribute->name, buflen);
89743b9c050Sjacobs } else {
89843b9c050Sjacobs strlcat(buffer, attribute->name, buflen);
89943b9c050Sjacobs rc = strlcat(buffer, "=", buflen);
90043b9c050Sjacobs }
901355b4669Sjacobs
902355b4669Sjacobs if (values == NULL)
903355b4669Sjacobs return (PAPI_OK);
904355b4669Sjacobs
905355b4669Sjacobs for (i = 0; values[i] != NULL; i++) {
906355b4669Sjacobs switch (attribute->type) {
907355b4669Sjacobs case PAPI_STRING:
908355b4669Sjacobs rc = strlcat(buffer, values[i]->string, buflen);
909355b4669Sjacobs break;
910355b4669Sjacobs case PAPI_INTEGER: {
911355b4669Sjacobs char string[24];
912355b4669Sjacobs
913355b4669Sjacobs snprintf(string, sizeof (string), "%d",
9143cf7d3e9SToomas Soome values[i]->integer);
915355b4669Sjacobs rc = strlcat(buffer, string, buflen);
916355b4669Sjacobs }
917355b4669Sjacobs break;
918355b4669Sjacobs case PAPI_BOOLEAN:
91943b9c050Sjacobs if (values[1] != NULL)
9203cf7d3e9SToomas Soome rc = strlcat(buffer, values[i]->boolean ?
9213cf7d3e9SToomas Soome "true" : "false", buflen);
922355b4669Sjacobs break;
923355b4669Sjacobs case PAPI_RANGE: {
924355b4669Sjacobs char string[24];
925355b4669Sjacobs
92643b9c050Sjacobs if (values[i]->range.lower == values[i]->range.upper)
92743b9c050Sjacobs snprintf(string, sizeof (string), "%d",
9283cf7d3e9SToomas Soome values[i]->range.lower);
92943b9c050Sjacobs else
93043b9c050Sjacobs snprintf(string, sizeof (string), "%d-%d",
9313cf7d3e9SToomas Soome values[i]->range.lower,
9323cf7d3e9SToomas Soome values[i]->range.upper);
933355b4669Sjacobs rc = strlcat(buffer, string, buflen);
934355b4669Sjacobs }
935355b4669Sjacobs break;
936355b4669Sjacobs case PAPI_RESOLUTION: {
937355b4669Sjacobs char string[24];
938355b4669Sjacobs
939355b4669Sjacobs snprintf(string, sizeof (string), "%dx%ddp%c",
9403cf7d3e9SToomas Soome values[i]->resolution.xres,
9413cf7d3e9SToomas Soome values[i]->resolution.yres,
9423cf7d3e9SToomas Soome values[i]->resolution.units == PAPI_RES_PER_CM ?
9433cf7d3e9SToomas Soome 'c' : 'i');
944355b4669Sjacobs rc = strlcat(buffer, string, buflen);
945355b4669Sjacobs }
946355b4669Sjacobs break;
947355b4669Sjacobs case PAPI_DATETIME: {
948355b4669Sjacobs struct tm *tm = localtime(&values[i]->datetime);
949355b4669Sjacobs
950355b4669Sjacobs if (tm != NULL) {
951355b4669Sjacobs char string[64];
952355b4669Sjacobs
953ee169c7eSGary Mills strftime(string, sizeof (string), "%c", tm);
954355b4669Sjacobs rc = strlcat(buffer, string, buflen);
955355b4669Sjacobs }}
956355b4669Sjacobs break;
957355b4669Sjacobs case PAPI_COLLECTION: {
958355b4669Sjacobs char *string = alloca(buflen);
959355b4669Sjacobs
960355b4669Sjacobs papiAttributeListToString(values[i]->collection,
9613cf7d3e9SToomas Soome delim, string, buflen);
962355b4669Sjacobs rc = strlcat(buffer, string, buflen);
963355b4669Sjacobs }
964355b4669Sjacobs break;
965355b4669Sjacobs default: {
966355b4669Sjacobs char string[32];
967355b4669Sjacobs
968355b4669Sjacobs snprintf(string, sizeof (string), "unknown-type-0x%x",
9693cf7d3e9SToomas Soome attribute->type);
970355b4669Sjacobs rc = strlcat(buffer, string, buflen);
971355b4669Sjacobs }
972355b4669Sjacobs }
973355b4669Sjacobs if (values[i+1] != NULL)
974355b4669Sjacobs rc = strlcat(buffer, ",", buflen);
975355b4669Sjacobs
976355b4669Sjacobs if (rc >= buflen)
977355b4669Sjacobs return (PAPI_NOT_POSSIBLE);
978355b4669Sjacobs
979355b4669Sjacobs }
980355b4669Sjacobs
981355b4669Sjacobs return (PAPI_OK);
9827c478bd9Sstevel@tonic-gate }
9837c478bd9Sstevel@tonic-gate
984355b4669Sjacobs papi_status_t
papiAttributeListToString(papi_attribute_t ** attrs,char * delim,char * buffer,size_t buflen)985355b4669Sjacobs papiAttributeListToString(papi_attribute_t **attrs,
9863cf7d3e9SToomas Soome char *delim, char *buffer, size_t buflen)
9877c478bd9Sstevel@tonic-gate {
988355b4669Sjacobs papi_status_t status = PAPI_OK;
989355b4669Sjacobs int i;
990355b4669Sjacobs
991355b4669Sjacobs if ((attrs == NULL) || (buffer == NULL))
992355b4669Sjacobs return (PAPI_BAD_ARGUMENT);
993355b4669Sjacobs
994355b4669Sjacobs buffer[0] = '\0';
995355b4669Sjacobs if (!delim)
996355b4669Sjacobs delim = " ";
997355b4669Sjacobs
998355b4669Sjacobs for (i = 0; ((attrs[i] != NULL) && (status == PAPI_OK)); i++) {
999355b4669Sjacobs status = papiAttributeToString(attrs[i], delim, buffer, buflen);
1000355b4669Sjacobs if (attrs[i+1] != NULL)
1001355b4669Sjacobs strlcat(buffer, delim, buflen);
10027c478bd9Sstevel@tonic-gate }
10037c478bd9Sstevel@tonic-gate
1004355b4669Sjacobs return (status);
10057c478bd9Sstevel@tonic-gate }
10067c478bd9Sstevel@tonic-gate
1007355b4669Sjacobs static int
is_in_list(char * value,char ** list)1008355b4669Sjacobs is_in_list(char *value, char **list)
1009355b4669Sjacobs {
1010355b4669Sjacobs if ((list != NULL) && (value != NULL)) {
1011355b4669Sjacobs int i;
10127c478bd9Sstevel@tonic-gate
1013355b4669Sjacobs for (i = 0; list[i] != NULL; i++)
1014355b4669Sjacobs if (strcasecmp(value, list[i]) == 0)
1015355b4669Sjacobs return (0);
1016355b4669Sjacobs }
1017355b4669Sjacobs
1018355b4669Sjacobs return (1);
1019355b4669Sjacobs }
1020355b4669Sjacobs
1021355b4669Sjacobs static papi_status_t
copy_attribute(papi_attribute_t *** list,papi_attribute_t * attribute)1022355b4669Sjacobs copy_attribute(papi_attribute_t ***list, papi_attribute_t *attribute)
10237c478bd9Sstevel@tonic-gate {
1024355b4669Sjacobs papi_status_t status;
1025355b4669Sjacobs int i = 0;
10267c478bd9Sstevel@tonic-gate
1027355b4669Sjacobs if ((list == NULL) || (attribute == NULL) ||
1028355b4669Sjacobs (attribute->values == NULL))
1029355b4669Sjacobs return (PAPI_BAD_ARGUMENT);
10307c478bd9Sstevel@tonic-gate
1031355b4669Sjacobs for (status = papiAttributeListAddValue(list, PAPI_ATTR_EXCL,
10323cf7d3e9SToomas Soome attribute->name, attribute->type, attribute->values[i]);
10333cf7d3e9SToomas Soome ((status == PAPI_OK) && (attribute->values[i] != NULL));
10343cf7d3e9SToomas Soome status = papiAttributeListAddValue(list, PAPI_ATTR_APPEND,
10353cf7d3e9SToomas Soome attribute->name, attribute->type, attribute->values[i]))
1036355b4669Sjacobs i++;
10377c478bd9Sstevel@tonic-gate
1038355b4669Sjacobs return (status);
10397c478bd9Sstevel@tonic-gate }
10407c478bd9Sstevel@tonic-gate
1041355b4669Sjacobs void
copy_attributes(papi_attribute_t *** result,papi_attribute_t ** attributes)1042355b4669Sjacobs copy_attributes(papi_attribute_t ***result, papi_attribute_t **attributes)
1043355b4669Sjacobs {
1044355b4669Sjacobs int i;
1045355b4669Sjacobs
1046355b4669Sjacobs if ((result == NULL) || (attributes == NULL))
1047355b4669Sjacobs return;
1048355b4669Sjacobs
1049355b4669Sjacobs for (i = 0; attributes[i] != NULL; i++)
1050355b4669Sjacobs copy_attribute(result, attributes[i]);
1051355b4669Sjacobs }
10527c478bd9Sstevel@tonic-gate
10537c478bd9Sstevel@tonic-gate void
split_and_copy_attributes(char ** list,papi_attribute_t ** attributes,papi_attribute_t *** in,papi_attribute_t *** out)1054355b4669Sjacobs split_and_copy_attributes(char **list, papi_attribute_t **attributes,
10553cf7d3e9SToomas Soome papi_attribute_t ***in, papi_attribute_t ***out)
10567c478bd9Sstevel@tonic-gate {
1057355b4669Sjacobs int i;
10587c478bd9Sstevel@tonic-gate
1059355b4669Sjacobs if ((list == NULL) || (attributes == NULL))
1060355b4669Sjacobs return;
1061355b4669Sjacobs
1062355b4669Sjacobs for (i = 0; attributes[i] != NULL; i++)
1063355b4669Sjacobs if (is_in_list(attributes[i]->name, list) == 0)
1064355b4669Sjacobs copy_attribute(in, attributes[i]);
1065355b4669Sjacobs else
1066355b4669Sjacobs copy_attribute(out, attributes[i]);
1067355b4669Sjacobs }
1068355b4669Sjacobs
1069355b4669Sjacobs void
papiAttributeListPrint(FILE * fp,papi_attribute_t ** attributes,char * prefix_fmt,...)1070355b4669Sjacobs papiAttributeListPrint(FILE *fp, papi_attribute_t **attributes,
10713cf7d3e9SToomas Soome char *prefix_fmt, ...)
1072355b4669Sjacobs {
1073355b4669Sjacobs char *prefix = NULL;
1074355b4669Sjacobs char *buffer = NULL;
1075355b4669Sjacobs char *newfmt = NULL;
1076355b4669Sjacobs void *mem;
1077355b4669Sjacobs ssize_t size = 0;
1078355b4669Sjacobs va_list ap;
1079355b4669Sjacobs
1080355b4669Sjacobs newfmt = malloc(strlen(prefix_fmt) + 2);
1081355b4669Sjacobs sprintf(newfmt, "\n%s", prefix_fmt);
1082355b4669Sjacobs
1083355b4669Sjacobs va_start(ap, prefix_fmt);
1084355b4669Sjacobs while (vsnprintf(prefix, size, newfmt, ap) > size) {
1085355b4669Sjacobs size += 1024;
1086355b4669Sjacobs mem = realloc(prefix, size);
1087355b4669Sjacobs if (!mem) goto error;
1088355b4669Sjacobs prefix = mem;
1089355b4669Sjacobs }
1090355b4669Sjacobs va_end(ap);
1091355b4669Sjacobs
1092355b4669Sjacobs if (attributes) {
1093355b4669Sjacobs size = 0;
1094355b4669Sjacobs while (papiAttributeListToString(attributes, prefix, buffer,
10953cf7d3e9SToomas Soome size) != PAPI_OK) {
1096355b4669Sjacobs size += 1024;
1097355b4669Sjacobs mem = realloc(buffer, size);
1098355b4669Sjacobs if (!mem) goto error;
1099355b4669Sjacobs buffer = mem;
1100355b4669Sjacobs }
11017c478bd9Sstevel@tonic-gate }
1102355b4669Sjacobs
1103355b4669Sjacobs fprintf(fp, "%s%s\n", prefix, buffer ? buffer : "");
1104355b4669Sjacobs fflush(fp);
1105355b4669Sjacobs
11063cf7d3e9SToomas Soome error:
1107355b4669Sjacobs free(newfmt);
1108355b4669Sjacobs free(prefix);
1109355b4669Sjacobs free(buffer);
11107c478bd9Sstevel@tonic-gate }
1111