/*
 * CDDL HEADER START
 *
 * The contents of this file are subject to the terms of the
 * Common Development and Distribution License, Version 1.0 only
 * (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 (c) 2001 by Sun Microsystems, Inc.
 * All rights reserved.
 */

#include <stdio.h>
#include <unistd.h>
#include <stdlib.h>
#include <string.h>
#include <ctype.h>
#include <errno.h>
#include <libintl.h>
#include <syslog.h>
#include "fcal_leds.h"

/*
 * function templates for static functions
 */
static token_t get_token(char **pptr, int lineNo, actfun_t *fun);
static int get_cstr(str *p_str, cstr *p_cstr_res);
static int get_assert(str *p_str, int *assert);
static int get_pnz(str *p_str, int *pnz);
static int get_mask(str *p_str, int n_disks, int *p_intarray);

/*
 * Templates for functions which may be returned by get_token().
 * These functions are all called with a pointer to the position just
 * beyond the token being actioned.
 */
static int act_version(str *p_str, led_dtls_t *dtls);
static int act_leds_board(str *p_str, led_dtls_t *dtls);
static int act_status_board(str *p_str, led_dtls_t *dtls);
static int act_disk_driver(str *p_str, led_dtls_t *dtls);
static int act_n_disks(str *p_str, led_dtls_t *dtls);
static int act_asrt_pres(str *p_str, led_dtls_t *dtls);
static int act_asrt_fault(str *p_str, led_dtls_t *dtls);
static int act_led_on(str *p_str, led_dtls_t *dtls);
static int act_disk_present(str *p_str, led_dtls_t *dtls);
static int act_disk_fault(str *p_str, led_dtls_t *dtls);
static int act_led_id(str *p_str, led_dtls_t *dtls);
static int act_slow_poll(str *p_str, led_dtls_t *dtls);
static int act_fast_poll(str *p_str, led_dtls_t *dtls);
static int act_relax_interval(str *p_str, led_dtls_t *dtls);
static int act_test_interval(str *p_str, led_dtls_t *dtls);
static int act_disk_parent(str *p_str, led_dtls_t *dtls);
static int act_unit_parent(str *p_str, led_dtls_t *dtls);
static int act_led_nodes(str *p_str, led_dtls_t *dtls);

/*
 * The table below is used to lookup .conf file keywords to yield either
 * a corresponding enum or a function to process the keyword.
 */
static lookup_t table[] = {
	{ FCAL_VERSION,		"VERSION", 		act_version	},
	{ FCAL_REMOK_LED,	"REMOK",		NULL		},
	{ FCAL_FAULT_LED,	"FAULT",		NULL		},
	{ FCAL_READY_LED,	"READY",		NULL		},
	{ FCAL_LEDS_BOARD,	"FCAL-LEDS",		act_leds_board	},
	{ FCAL_STATUS_BOARD,	"FCAL-STATUS",		act_status_board },
	{ FCAL_DISK_DRIVER,	"FCAL-DISK-DRIVER",	act_disk_driver },
	{ FCAL_N_DISKS,		"N-DISKS",		act_n_disks	},
	{ FCAL_ASSERT_PRESENT,	"ASSERT-PRESENT",	act_asrt_pres	},
	{ FCAL_ASSERT_FAULT,	"ASSERT-FAULT",		act_asrt_fault	},
	{ FCAL_LED_ON,		"LED-ON",		act_led_on	},
	{ FCAL_DISK_PRESENT,	"DISK-PRESENT",		act_disk_present },
	{ FCAL_DISK_FAULT,	"DISK-FAULT",		act_disk_fault	},
	{ FCAL_LED_ID,		"LED",			act_led_id	},
	{ FCAL_SLOW_POLL,	"SLOW-POLL",		act_slow_poll	},
	{ FCAL_FAST_POLL,	"FAST-POLL",		act_fast_poll	},
	{ FCAL_RELAX_INTERVAL,	"RELAX-INTERVAL",	act_relax_interval },
	{ FCAL_TEST_INTERVAL,	"LED-TEST-INTERVAL",	act_test_interval },
	{ FCAL_DISK_PARENT,	"FCAL-DISK-PARENT",	act_disk_parent	},
	{ FCAL_UNIT_PARENT,	"DISK-UNIT-PARENT",	act_unit_parent	},
	{ FCAL_LED_NODES,	"DISK-LED-NODES",	act_led_nodes	}
};

/*
 * length of longest string in table (with space for null terminator)
 */
#define	MAX_FCAL_TOKEN_LEN	18

static const int tab_len = (sizeof (table))/sizeof (table[0]);

/*
 * get_token
 * Parses the current line of data and returns the next token.
 * If there are no significant characters in the line, NO_TOKEN is returned.
 * If a syntax error is encountered, TOKEN_ERROR is returned.
 * Pointer to position in current line is updated to point to the terminator
 * of the token, unless TOKEN_ERROR is returned.
 */
static token_t
get_token(
	char **pptr,	/* pointer to pointer to position in current line */
			/* *ptr is updated by the function */
	int lineNo,	/* current line number, used for syslog. If set to */
			/* zero, syslogging is supressed */
	actfun_t *fun)	/* pointer to function variable to receive action */
			/* pointer for the token found. NULL may be returned */
{
	char		*ptr;
	char		*token_start;
	int		toklen;
	int		i;
	int		ch;

	*fun = NULL;
	ptr = *pptr;

	/* strip leading white space */
	do {
		ch = (unsigned)(*ptr++);

	} while (isspace(ch));

	if ((ch == '\0') || (ch == '#')) {
		*pptr = ptr;
		return (NO_TOKEN);	/* empty line or comment */
	}

	if (!isalpha(ch)) {
		if (lineNo != 0)
			SYSLOG(LOG_ERR, EM_NONALF_TOK, lineNo);
		return (TOKEN_ERROR);
	}
	token_start = ptr - 1;
	toklen = strcspn(token_start, ",: \t");
	*pptr = token_start + toklen;
	/*
	 * got token, now look it up
	 */
	for (i = 0; i < tab_len; i++) {
		if ((strncasecmp(token_start, table[i].tok_str,
		    toklen) == 0) && (table[i].tok_str[toklen] == '\0')) {
			*fun = table[i].action;
			return (table[i].tok);
		}
	}
	if (lineNo != 0)
		SYSLOG(LOG_ERR, EM_UNKN_TOK, lineNo);
	return (TOKEN_ERROR);
}

static int
act_version(str *p_str, led_dtls_t *dtls)
{
	dtls->ver_maj = strtoul(*p_str, p_str, 0);
	if (*(*p_str)++ != '.') {
		SYSLOG(LOG_ERR, EM_VER_FRMT);
		return (-1);
	}
	dtls->ver_min = strtoul(*p_str, p_str, 0);
	if ((**p_str != '\0') && !isspace(**p_str)) {
		SYSLOG(LOG_ERR, EM_VER_FRMT);
		return (-1);
	}
	if ((dtls->ver_maj != 1) || (dtls->ver_min != 0)) {
		SYSLOG(LOG_ERR, EM_WRNGVER, dtls->ver_maj, dtls->ver_min);
		return (-1);
	}
	return (0);
}

/*
 * get space to hold white-space terminated string at *p_str
 * advance *p_str to point to terminator
 * return copy of string, null terminated
 */
static int
get_cstr(str *p_str, cstr *p_cstr_res)
{
	int ch;
	int len;
	char *ptr;

	while (isspace(**p_str))
		(*p_str)++;
	ptr = *p_str;

	do {
		ch = *++ptr;
	} while ((ch != '\0') && (!isspace(ch)));

	len = ptr - *p_str;
	if (*p_cstr_res != NULL)
		free((void *)(*p_cstr_res));
	ptr = malloc(len + 1);
	*p_cstr_res = ptr;
	if (ptr == NULL) {
		return (ENOMEM);
	}
	(void) memcpy(ptr, *p_str, len);
	ptr[len] = '\0';
	(*p_str) += len;
	return (0);
}

static int
act_leds_board(str *p_str, led_dtls_t *dtls)
{
	int res = get_cstr(p_str, &dtls->fcal_leds);
	if (res == 0) {
		if (dtls->fcal_leds[0] != '/') {
			free((void *)dtls->fcal_leds);
			dtls->fcal_leds = NULL;
			SYSLOG(LOG_ERR, EM_REL_PATH);
			return (-1);
		}
	}
	return (res);
}

static int
act_status_board(str *p_str, led_dtls_t *dtls)
{
	int res = get_cstr(p_str, &dtls->fcal_status);
	if (res == 0) {
		if (dtls->fcal_status[0] != '/') {
			free((void *)dtls->fcal_status);
			dtls->fcal_status = NULL;
			SYSLOG(LOG_ERR, EM_REL_PATH);
			return (-1);
		}
	}
	return (res);
}

static int
act_disk_driver(str *p_str, led_dtls_t *dtls)
{
	return (get_cstr(p_str, &dtls->fcal_driver));
}

static int
act_disk_parent(str *p_str, led_dtls_t *dtls)
{
	return (get_cstr(p_str, &dtls->fcal_disk_parent));
}

static int
act_unit_parent(str *p_str, led_dtls_t *dtls)
{
	return (get_cstr(p_str, &dtls->disk_unit_parent));
}

static int
act_led_nodes(str *p_str, led_dtls_t *dtls)
{
	return (get_cstr(p_str, &dtls->disk_led_nodes));
}

/*
 * A number of fields in the led_dtls_t structure have per-disk copies.
 * This action routine creates the space for all such fields.
 * Following any failure, an error is returned and the calling routine
 * must handle the fact that only a subset of these fields are populated.
 * In practice, this function is only called by get_token() on behalf of
 * fc_led_parse(). fc_led_parse calls free_led_dtls() after any error.
 */
static int
act_n_disks(str *p_str, led_dtls_t *dtls)
{
	int i;

	if (dtls->n_disks != 0) {
		SYSLOG(LOG_ERR, EM_NDISKS_DBL);
		return (-1);
	}
	dtls->n_disks = strtoul(*p_str, p_str, 0);
	if ((**p_str != '\0') && !isspace(**p_str)) {
		SYSLOG(LOG_ERR, EM_NUM_TERM);
		return (-1);
	}
	if (dtls->n_disks < 1) {
		SYSLOG(LOG_ERR, EM_NO_DISKS);
		return (-1);
	}
	dtls->presence = calloc(dtls->n_disks, sizeof (int));
	if (dtls->presence == NULL)
		return (ENOMEM);
	dtls->faults = calloc(dtls->n_disks, sizeof (int));
	if (dtls->faults == NULL)
		return (ENOMEM);
	dtls->disk_detected = calloc(dtls->n_disks, sizeof (int));
	if (dtls->disk_detected == NULL)
		return (ENOMEM);
	dtls->disk_ready = calloc(dtls->n_disks, sizeof (int));
	if (dtls->disk_ready == NULL)
		return (ENOMEM);
	dtls->disk_prev = calloc(dtls->n_disks, sizeof (int));
	if (dtls->disk_prev == NULL)
		return (ENOMEM);
	dtls->led_test_end = calloc(dtls->n_disks, sizeof (int));
	if (dtls->led_test_end == NULL)
		return (ENOMEM);
	dtls->picl_retry = calloc(dtls->n_disks, sizeof (boolean_t));
	if (dtls->picl_retry == NULL)
		return (ENOMEM);
	dtls->disk_port = calloc(dtls->n_disks, sizeof (char *));
	if (dtls->disk_port == NULL) {
		return (ENOMEM);
	}
	for (i = 0; i < FCAL_LED_CNT; i++) {
		dtls->led_addr[i] = calloc(dtls->n_disks, sizeof (int));
		if (dtls->led_addr[i] == NULL)
			return (ENOMEM);
		dtls->led_state[i] = calloc(dtls->n_disks,
		    sizeof (led_state_t));
		if (dtls->led_state[i] == NULL)
			return (ENOMEM);
	}
	return (0);
}

static int
get_assert(str *p_str, int *assert)
{
	int i = strtoul(*p_str, p_str, 0);
	if ((**p_str != '\0') && !isspace(**p_str)) {
		SYSLOG(LOG_ERR, EM_NUM_TERM);
		return (-1);
	}
	if ((i != 0) && (i != 1)) {
		SYSLOG(LOG_ERR, EM_LOGIC_LVL);
		return (-1);
	}
	*assert = i;
	return (0);
}

static int
get_pnz(str *p_str, int *pnz)
{
	int i = strtoul(*p_str, p_str, 0);
	if ((**p_str != '\0') && !isspace(**p_str)) {
		SYSLOG(LOG_ERR, EM_NUM_TERM);
		return (-1);
	}
	if (i < 1) {
		SYSLOG(LOG_ERR, EM_NOTPOS);
		return (-1);
	}
	*pnz = i;
	return (0);
}

static int
act_asrt_pres(str *p_str, led_dtls_t *dtls)
{
	return (get_assert(p_str, &dtls->assert_presence));
}

static int
act_asrt_fault(str *p_str, led_dtls_t *dtls)
{
	return (get_assert(p_str, &dtls->assert_fault));
}

static int
act_led_on(str *p_str, led_dtls_t *dtls)
{
	return (get_assert(p_str, &dtls->assert_led_on));
}

static int
get_mask(str *p_str, int n_disks, int *p_intarray)
{
	int i;
	int j = strtoul(*p_str, p_str, 0);
	if (*(*p_str)++ != ',') {
		SYSLOG(LOG_ERR, EM_NUM_TERM);
		return (-1);
	}
	if ((j < 0) || (j > n_disks)) {
		SYSLOG(LOG_ERR, EM_DISK_RANGE);
		return (-1);
	}
	i = strtoul(*p_str, p_str, 0);
	if ((**p_str != '\0') && !isspace(**p_str)) {
		SYSLOG(LOG_ERR, EM_NUM_TERM);
		return (-1);
	}
	p_intarray[j] = i;
	return (0);
}

static int
act_disk_present(str *p_str, led_dtls_t *dtls)
{
	return (get_mask(p_str, dtls->n_disks, dtls->presence));
}

static int
act_disk_fault(str *p_str, led_dtls_t *dtls)
{
	return (get_mask(p_str, dtls->n_disks, dtls->faults));
}

static int
act_led_id(str *p_str, led_dtls_t *dtls)
{
	token_t		tok;
	actfun_t	action;
	int		i;
	int		j = strtoul(*p_str, p_str, 0);

	if (*(*p_str)++ != ',') {
		SYSLOG(LOG_ERR, EM_NUM_TERM);
		return (-1);
	}
	if ((j < 0) || (j >= dtls->n_disks)) {
		SYSLOG(LOG_ERR, EM_DISK_RANGE);
		return (-1);
	}
	tok = get_token(p_str, 0, &action);
	if ((tok <= LED_PROPS_START) || (tok >= LED_PROPS_END)) {
		SYSLOG(LOG_ERR, EM_NO_LED_PROP);
		return (-1);
	}
	if (*(*p_str)++ != ',') {
		SYSLOG(LOG_ERR, EM_PROP_TERM);
		return (-1);
	}
	i = strtoul(*p_str, p_str, 0);
	if ((**p_str != '\0') && !isspace(**p_str)) {
		SYSLOG(LOG_ERR, EM_NUM_TERM);
		return (-1);
	}
	dtls->led_addr[tok - FCAL_REMOK_LED][j] = i;
	return (0);
}

static int
act_slow_poll(str *p_str, led_dtls_t *dtls)
{
	return (get_pnz(p_str, &dtls->slow_poll_ticks));
}

static int
act_fast_poll(str *p_str, led_dtls_t *dtls)
{
	return (get_pnz(p_str, &dtls->fast_poll));
}

static int
act_relax_interval(str *p_str, led_dtls_t *dtls)
{
	return (get_pnz(p_str, &dtls->relax_time_ticks));
}

static int
act_test_interval(str *p_str, led_dtls_t *dtls)
{
	return (get_pnz(p_str, &dtls->led_test_time));
}

/*
 * Create a led_dtls_t structure
 * Parse configuration file and populate the led_dtls_t
 * In the event of an error, free the structure and return an error
 */
int
fc_led_parse(FILE *fp, led_dtls_t **p_dtls)
{
	int		lineNo = 0;
	int		err = 0;
	char		linebuf[160];
	char		*ptr;
	led_dtls_t	*dtls = calloc(1, sizeof (led_dtls_t));
	actfun_t	action;
	token_t		tok;

	*p_dtls = dtls;
	if (dtls == NULL) {
		return (ENOMEM);
	}
	dtls->ver_min = -1;	/* mark as version unknown */

	while ((ptr = fgets(linebuf, sizeof (linebuf), fp)) != NULL) {
		lineNo++;
		tok = get_token(&ptr, lineNo, &action);
		if (tok == NO_TOKEN)
			continue;
		if (tok == TOKEN_ERROR) {
			err = -1;
			break;
		}
		if (tok == FCAL_VERSION) {
			if ((err = (*action)(&ptr, dtls)) != 0)
				break;
			else
				continue;
		}
		if (dtls->ver_min < 0) {
			SYSLOG(LOG_ERR, EM_NOVERS);
			err = -1;
			break;
		}
		if (tok <= LINE_DEFS) {
			SYSLOG(LOG_ERR, EM_INVAL_TOK, lineNo);
			err = -1;
			break;
		}
		if (*ptr++ != ':') {
			SYSLOG(LOG_ERR, EM_NOCOLON, lineNo);
			err = -1;
			break;
		}
		if ((err = (*action)(&ptr, dtls)) != 0) {
			SYSLOG(LOG_ERR, EM_ERRLINE, lineNo);
			break;
		}
		else
			continue;
	}

	if (err == 0) {
		err = -1;	/* just in case */
		if (dtls->ver_min < 0) {
			SYSLOG(LOG_ERR, EM_NOVERS);
		} else if (dtls->n_disks == 0) {
			SYSLOG(LOG_ERR, EM_NO_DISKS);
		} else if (dtls->fcal_leds == NULL) {
			SYSLOG(LOG_ERR, EM_STR_NOT_SET, "fcal-leds");
		} else if (dtls->fcal_status == NULL) {
			SYSLOG(LOG_ERR, EM_STR_NOT_SET, "fcal-status");
		} else if (dtls->fcal_driver == NULL) {
			SYSLOG(LOG_ERR, EM_STR_NOT_SET, "fcal-driver");
		} else
			err = 0;
	}

	if (err != 0) {
		/*
		 * clean up after error detected
		 */
		free_led_dtls(dtls);
		*p_dtls = NULL;
		return (err);
	}

	/*
	 * set any unset timers to default time
	 */
	if (dtls->slow_poll_ticks == 0)
		dtls->slow_poll_ticks = DFLT_SLOW_POLL;
	if (dtls->fast_poll == 0)
		dtls->fast_poll = DFLT_FAST_POLL;
	if (dtls->relax_time_ticks == 0)
		dtls->relax_time_ticks = DFLT_RELAX_TIME;
	if (dtls->led_test_time == 0)
		dtls->led_test_time = DFLT_TEST_TIME;

	/*
	 * set polling flag to avoid a start-up glitch
	 * it will be cleared again if the poll thread fails
	 */
	dtls->polling = B_TRUE;

	/*
	 * convert derived timers to multiples of fast poll time
	 */
	dtls->slow_poll_ticks += dtls->fast_poll - 1;	/* for round up */
	dtls->slow_poll_ticks /= dtls->fast_poll;
	dtls->relax_time_ticks += dtls->fast_poll - 1;
	dtls->relax_time_ticks /= dtls->fast_poll;
	dtls->led_test_time += dtls->fast_poll - 1;
	dtls->led_test_time /= dtls->fast_poll;
	return (0);
}

void
free_led_dtls(led_dtls_t *dtls)
{
	int	i;

	if (dtls == NULL)
		return;
	if (dtls->fcal_leds != NULL)
		free((void *)dtls->fcal_leds);
	if (dtls->fcal_status != NULL)
		free((void *)dtls->fcal_status);
	if (dtls->fcal_driver != NULL)
		free((void *)dtls->fcal_driver);
	if (dtls->presence != NULL)
		free((void *)dtls->presence);
	if (dtls->faults != NULL)
		free((void *)dtls->faults);
	if (dtls->disk_detected != NULL)
		free((void *)dtls->disk_detected);
	if (dtls->disk_ready != NULL)
		free((void *)dtls->disk_ready);
	if (dtls->disk_prev != NULL)
		free((void *)dtls->disk_prev);
	if (dtls->led_test_end != NULL)
		free((void *)dtls->led_test_end);
	if (dtls->picl_retry != NULL)
		free((void *)dtls->picl_retry);
	if (dtls->disk_port != NULL) {
		for (i = 0; i < dtls->n_disks; i++) {
			if (dtls->disk_port[i] != NULL)
				free(dtls->disk_port[i]);
		}
		free(dtls->disk_port);
	}
	for (i = 0; i < FCAL_LED_CNT; i++) {
		if (dtls->led_addr[i] != NULL)
			free((void *)dtls->led_addr[i]);
		if (dtls->led_state[i] != NULL)
			free((void *)dtls->led_state[i]);
	}

	free(dtls);
}