/*

 * Copyright (c) 2003 Sun Microsystems, Inc.  All Rights Reserved.

 * 

 * Redistribution and use in source and binary forms, with or without

 * modification, are permitted provided that the following conditions

 * are met:

 * 

 * Redistribution of source code must retain the above copyright

 * notice, this list of conditions and the following disclaimer.

 * 

 * Redistribution in binary form must reproduce the above copyright

 * notice, this list of conditions and the following disclaimer in the

 * documentation and/or other materials provided with the distribution.

 * 

 * Neither the name of Sun Microsystems, Inc. or the names of

 * contributors may be used to endorse or promote products derived

 * from this software without specific prior written permission.

 * 

 * This software is provided "AS IS," without a warranty of any kind.

 * ALL EXPRESS OR IMPLIED CONDITIONS, REPRESENTATIONS AND WARRANTIES,

 * INCLUDING ANY IMPLIED WARRANTY OF MERCHANTABILITY, FITNESS FOR A

 * PARTICULAR PURPOSE OR NON-INFRINGEMENT, ARE HEREBY EXCLUDED.

 * SUN MICROSYSTEMS, INC. ("SUN") AND ITS LICENSORS SHALL NOT BE LIABLE

 * FOR ANY DAMAGES SUFFERED BY LICENSEE AS A RESULT OF USING, MODIFYING

 * OR DISTRIBUTING THIS SOFTWARE OR ITS DERIVATIVES.  IN NO EVENT WILL

 * SUN OR ITS LICENSORS BE LIABLE FOR ANY LOST REVENUE, PROFIT OR DATA,

 * OR FOR DIRECT, INDIRECT, SPECIAL, CONSEQUENTIAL, INCIDENTAL OR

 * PUNITIVE DAMAGES, HOWEVER CAUSED AND REGARDLESS OF THE THEORY OF

 * LIABILITY, ARISING OUT OF THE USE OF OR INABILITY TO USE THIS SOFTWARE,

 * EVEN IF SUN HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES.

 */

#include <stdio.h>

#include <fcntl.h>

#include <unistd.h>

#include <sys/ioctl.h>

#include <errno.h>

#include <stdlib.h>

#include <string.h>

#include <sys/types.h>

#include <sys/stropts.h>

#include <ipmitool/ipmi.h>

#include <ipmitool/ipmi_intf.h>

#include <sys/lipmi/lipmi_intf.h>

#define IPMI_LIPMI_DEV		"/dev/lipmi"

extern int verbose;

static int ipmi_lipmi_open(struct ipmi_intf * intf)

{

	intf->fd = open(IPMI_LIPMI_DEV, O_RDWR);

	if (intf->fd < 0) {

		perror("Could not open lipmi device");

		return -1;

	}

	intf->opened = 1;

	intf->manufacturer_id = ipmi_get_oem(intf);

	return intf->fd;

}

static void ipmi_lipmi_close(struct ipmi_intf * intf)

{

	if (intf && intf->fd >= 0)

		close(intf->fd);

	intf->fd = -1;

	intf->opened = 0;

	intf->manufacturer_id = IPMI_OEM_UNKNOWN;

}

static struct ipmi_rs * ipmi_lipmi_send_cmd(struct ipmi_intf * intf, struct ipmi_rq * req)

{

	struct strioctl istr;

	static struct lipmi_reqrsp reqrsp;

	static struct ipmi_rs rsp;	

	static int curr_seq = 0;

	if (!intf || !req)

		return NULL;

	if (!intf->opened && intf->open && intf->open(intf) < 0)

		return NULL;

	memset(&reqrsp, 0, sizeof(reqrsp));

	reqrsp.req.fn = req->msg.netfn;

	reqrsp.req.lun = 0;

	reqrsp.req.cmd = req->msg.cmd;

	reqrsp.req.datalength = req->msg.data_len;

	memcpy(reqrsp.req.data, req->msg.data, req->msg.data_len);

	reqrsp.rsp.datalength = RECV_MAX_PAYLOAD_SIZE;

	istr.ic_cmd = IOCTL_IPMI_KCS_ACTION;

	istr.ic_timout = 0;

	istr.ic_dp = (char *)&reqrsp;

	istr.ic_len = sizeof(struct lipmi_reqrsp);

	if (verbose > 1) {

		printf("LIPMI req.fn         : %x\n", reqrsp.req.fn);

		printf("LIPMI req.lun        : %x\n", reqrsp.req.lun);

		printf("LIPMI req.cmd        : %x\n", reqrsp.req.cmd);

		printf("LIPMI req.datalength : %d\n", reqrsp.req.datalength);

	}

	if (ioctl(intf->fd, I_STR, &istr) < 0) {

		perror("LIPMI IOCTL: I_STR");

		return NULL;

	}

	memset(&rsp, 0, sizeof(struct ipmi_rs));

	rsp.ccode = reqrsp.rsp.ccode;

	rsp.data_len = reqrsp.rsp.datalength;

	if (!rsp.ccode && rsp.data_len)

		memcpy(rsp.data, reqrsp.rsp.data, rsp.data_len);

	return &rsp;

}

struct ipmi_intf ipmi_lipmi_intf = {

	name:		"lipmi",

	desc:		"Solaris x86 LIPMI Interface",

	open:		ipmi_lipmi_open,

	close:		ipmi_lipmi_close,

	sendrecv:	ipmi_lipmi_send_cmd,

	target_addr:	IPMI_BMC_SLAVE_ADDR,

};