/*
 * CDDL HEADER START
 *
 * The contents of this file are subject to the terms of the
 * Common Development and Distribution License (the "License").
 * You may not use this file except in compliance with the License.
 *
 * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
 * or http://www.opensolaris.org/os/licensing.
 * See the License for the specific language governing permissions
 * and limitations under the License.
 *
 * When distributing Covered Code, include this CDDL HEADER in each
 * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
 * If applicable, add the following below this CDDL HEADER, with the
 * fields enclosed by brackets "[]" replaced with your own identifying
 * information: Portions Copyright [yyyy] [name of copyright owner]
 *
 * CDDL HEADER END
 */
/*
 * Copyright 2017 Gary Mills
 * Copyright 2006 Sun Microsystems, Inc.  All rights reserved.
 * Use is subject to license terms.
 */

/*
 * This file contains an extremely rudimentary implementation of PPD file
 * parsing support.  The parsing done here converts the contents of a PPD
 * file into a set of PAPI attributes that applications can use to build
 * print panels.
 */

#include <stdio.h>
#include <ctype.h>
#include <string.h>
#include <papi.h>

static void
process_line(char *line, char **key, char **value, char **comment)
{
	char *ptr, *ptr2;

	*key = &line[1];
	*value = NULL;
	*comment = NULL;

	if ((ptr = strchr(line, ':')) == NULL)
		return;

	/*
	 * line is in the form:
	 *    *key: value/comment
	 * or
	 *    *key value/comment: data
	 */
	*ptr++ = '\0';
	while (isspace(*ptr) != 0)
		ptr++;

	if ((ptr2 = strchr(line, ' ')) != NULL) {
		ptr = ptr2;
		/*
		 * line is in the form:
		 *    *key value/comment: data
		 */
		*ptr++ = '\0';
		while (*ptr == ' ')
			ptr++;
	}

	if (*ptr == '*')
		ptr++;

	*value = ptr;

	if ((ptr = strchr(ptr, '/')) != NULL) {
		*ptr++ = '\0';
		*comment = ptr;
	}
}

papi_status_t
PPDFileToAttributesList(papi_attribute_t ***attributes, char *filename)
{
	papi_status_t status = PAPI_OK;
	FILE *fp;
	char line[256];
	char capability[256];
	char def[256];
	char supported[256];

	int ui = 0;

	if ((fp = fopen(filename, "r")) == NULL)
		return (PAPI_NOT_POSSIBLE);

	while ((status == PAPI_OK) &&
			(fgets(line, sizeof (line), fp) != NULL)) {
		char *key = NULL, *value = NULL, *text = NULL;

		/* we want *key...: "value" */
		if (line[0] != '*')
			continue;

		if (strchr(line, ':') == NULL)
			continue;

		if ((text = strrchr(line, '\n')) != NULL)
			*text = '\0';

		process_line(line, &key, &value, &text);

		if ((strcasecmp(key, "PageSize") == 0) ||
		    (strcasecmp(key, "InputSlot") == 0))
			key = "media";

		if (strcasecmp(key, "OpenGroup") == 0) {
			if (value == NULL)
				value = "unknown";
		} else if (strcasecmp(key, "OpenUI") == 0) {
			if ((strcasecmp(value, "PageSize") == 0) ||
			    (strcasecmp(value, "InputSlot") == 0))
				value = "media";
			snprintf(capability, sizeof (capability), "%s", value);
			snprintf(def, sizeof (def),
					"%s-default", value);
			snprintf(supported, sizeof (supported),
					"%s-supported", value);
			ui = 1;
		} else if (strcasecmp(key, "CloseGroup") == 0) {
			/* do nothing */
		} else if (strcasecmp(key, "CloseUI") == 0) {
			ui = 0;
			/* do nothing */
		} else if (strcasecmp(key, "Manufacturer") == 0) {
			status = papiAttributeListAddString(attributes,
					PAPI_ATTR_EXCL,
					"printer-make", value);
		} else if (strcasecmp(key, "ModelName") == 0) {
			status = papiAttributeListAddString(attributes,
					PAPI_ATTR_EXCL,
					"printer-model", value);
		} else if (strcasecmp(key, "ShortNickName") == 0) {
			status = papiAttributeListAddString(attributes,
					PAPI_ATTR_EXCL,
					"printer-make-and-model", value);
		} else if ((strncasecmp(key, "Default", 7) == 0) && ui) {
			status = papiAttributeListAddString(attributes,
					PAPI_ATTR_EXCL,
					def, value);
		} else if ((strcasecmp(key, capability) == 0) && ui) {
			status = papiAttributeListAddString(attributes,
					PAPI_ATTR_APPEND,
					supported, value);
		}
	}
	fclose(fp);

	return (status);
}