/*
 * Copyright (C) 2003-2012 FreeIPMI Core Team
 * 
 * This program is free software: you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation, either version 3 of the License, or
 * (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program.  If not, see <http://www.gnu.org/licenses/>.
 * 
 */

#ifdef HAVE_CONFIG_H
#include <config.h>
#endif /* HAVE_CONFIG_H */

#include <stdio.h>
#include <stdlib.h>
#ifdef STDC_HEADERS
#include <string.h>
#endif /* STDC_HEADERS */
#if HAVE_UNISTD_H
#include <unistd.h>
#endif /* HAVE_UNISTD_H */
#include <sys/types.h>
#include <sys/stat.h>
#if HAVE_FCNTL_H
#include <fcntl.h>
#endif /* HAVE_FCNTL_H */
#if TIME_WITH_SYS_TIME
#include <sys/time.h>
#include <time.h>
#else /* !TIME_WITH_SYS_TIME */
#if HAVE_SYS_TIME_H
#include <sys/time.h>
#else /* !HAVE_SYS_TIME_H */
#include <time.h>
#endif /* !HAVE_SYS_TIME_H */
#endif  /* !TIME_WITH_SYS_TIME */
#include <sys/select.h>
#include <sys/ioctl.h>
#include <limits.h>
#include <errno.h>
#include <assert.h>

#include "freeipmi/driver/ipmi-ssif-driver.h"
#include "freeipmi/interface/ipmi-interface.h"
#include "freeipmi/interface/ipmi-kcs-interface.h"
#include "freeipmi/spec/ipmi-ipmb-lun-spec.h"
#include "freeipmi/spec/ipmi-netfn-spec.h"

#include "ipmi-driver-trace.h"
#include "ipmi-semaphores.h"

#include "libcommon/ipmi-fiid-util.h"

#include "freeipmi-portability.h"

/* function error codes */
#define IPMI_SSIF_SUCCESS         0x00
#define IPMI_SSIF_UNDEF_ERROR     0xFFFF

#define IPMI_SSIF_UNKNOWN_INTERFACE       0x1000
#define IPMI_SSIF_ISA_MESSAGE_OVERFLOW    0x1100
#define IPMI_SSIF_BAD_ISA_STATE           0x1200
#define IPMI_SSIF_BMC_WRITE_STATE_FAIL    0x1300
#define IPMI_SSIF_BMC_READ_STATE_FAIL     0x1400
#define IPMI_SSIF_SMS_READY_TIMEOUT       0x1500
#define IPMI_SSIF_ERROR_READING_SMS       0x1600
#define IPMI_SSIF_PACKET_NUMBER_MISMATCH  0x1700
#define IPMI_SSIF_PACKET_SIZE_MISMATCH    0x1800
#define IPMI_SSIF_I2C_RETRY_ERROR         0x1900
#define IPMI_SSIF_SMS_SEND_ERROR_ON_FLUSH 0x2000
#define IPMI_SSIF_ISA_TIMEOUT_IN_IBF      0x2100
#define IPMI_SSIF_ISA_TIMEOUT_IN_OBF      0x2200

/* Response Packet Offsets */
#define IPMI_SSIF_RSP_OFFSET_COMPCODE 0x03

#define IPMI_SSIF_SINGLE_PART_WRITE_SMBUS_CMD          0x02
#define IPMI_SSIF_MULTI_PART_WRITE_START_SMBUS_CMD     0x06
#define IPMI_SSIF_MULTI_PART_WRITE_MIDDLE_SMBUS_CMD    0x07
#define IPMI_SSIF_MULTI_PART_WRITE_END_SMBUS_CMD       0x08

#define IPMI_SSIF_SINGLE_PART_READ_SMBUS_CMD           0x03
#define IPMI_SSIF_MULTI_PART_READ_START_SMBUS_CMD      0x03
#define IPMI_SSIF_MULTI_PART_READ_MIDDLE_SMBUS_CMD     0x09
#define IPMI_SSIF_MULTI_PART_READ_END_SMBUS_CMD        0x09
#define IPMI_SSIF_MULTI_PART_READ_RETRY_SMBUS_CMD      0x0A

#define IPMI_SSIF_MULTI_PART_READ_START_SIZE        30
#define IPMI_SSIF_MULTI_PART_READ_START_PATTERN1    0x0
#define IPMI_SSIF_MULTI_PART_READ_START_PATTERN2    0x1
#define IPMI_SSIF_MULTI_PART_READ_END_PATTERN       0xFF

/* START: copied from <linux/i2c.h> and <linux/i2c-dev.h>, */
/*        and prefixed IPMI.                               */
#define IPMI_I2C_SLAVE               0x0703
#define IPMI_I2C_SMBUS               0x0720
#define IPMI_I2C_SMBUS_BLOCK_DATA    5
#define IPMI_I2C_SMBUS_BLOCK_MAX     32
#define IPMI_I2C_SMBUS_READ          1
#define IPMI_I2C_SMBUS_WRITE         0

#define IPMI_SSIF_TIMEOUT     60

#define IPMI_SSIF_FLAGS_MASK IPMI_SSIF_FLAGS_NONBLOCKING

#define IPMI_SSIF_CTX_MAGIC 0xaddaabba

static char * ipmi_ssif_ctx_errmsg[] =
  {
    "success",
    "ssif context null",
    "ssif context invalid",
    "invalid parameter",
    "permission denied",
    "io not initialized",
    "buffer too small to hold result",
    "BMC busy",
    "out of memory",
    "device not found",
    "driver timeout",
    "internal IPMI error",
    "internal system error",
    "internal error",
    "errnum out of range",
    NULL,
  };

struct ipmi_ssif_ctx {
  uint32_t magic;
  int errnum;
  char *driver_device;
  uint8_t driver_address;
  unsigned int flags;
  int device_fd;
  int io_init;
  int semid;
};

static void
_set_ssif_ctx_errnum_by_errno (ipmi_ssif_ctx_t ctx, int _errno)
{
  if (!ctx || ctx->magic != IPMI_SSIF_CTX_MAGIC)
    return;

  if (_errno == 0)
    ctx->errnum = IPMI_SSIF_ERR_SUCCESS;
  else if (_errno == EINTR)
    ctx->errnum = IPMI_SSIF_ERR_BUSY;
  else if (_errno == EAGAIN)
    ctx->errnum = IPMI_SSIF_ERR_BUSY;
  else if (_errno == EPERM)
    ctx->errnum = IPMI_SSIF_ERR_PERMISSION;
  else if (_errno == EACCES)
    ctx->errnum = IPMI_SSIF_ERR_PERMISSION;
  else if (_errno == ENOENT)
    ctx->errnum = IPMI_SSIF_ERR_DEVICE_NOT_FOUND;
  else if (_errno == ENOTDIR)
    ctx->errnum = IPMI_SSIF_ERR_DEVICE_NOT_FOUND;
  else if (_errno == ENAMETOOLONG)
    ctx->errnum = IPMI_SSIF_ERR_DEVICE_NOT_FOUND;
  else if (_errno == ENOMEM)
    ctx->errnum = IPMI_SSIF_ERR_OUT_OF_MEMORY;
  else if (_errno == EINVAL)
    ctx->errnum = IPMI_SSIF_ERR_INTERNAL_ERROR;
  else if (_errno == ETIMEDOUT)
    ctx->errnum = IPMI_SSIF_ERR_DRIVER_TIMEOUT;
  else
    ctx->errnum = IPMI_SSIF_ERR_SYSTEM_ERROR;
}

static void
_set_ssif_errnum_by_fiid_object (ipmi_ssif_ctx_t ctx, fiid_obj_t obj)
{
  if (!ctx || ctx->magic != IPMI_SSIF_CTX_MAGIC)
    return;

  if (!fiid_obj_valid (obj))
    {
      SSIF_SET_ERRNUM (ctx, IPMI_ERR_INTERNAL_ERROR);
      return;
    }

  if (fiid_obj_errnum (obj) == FIID_ERR_SUCCESS)
    ctx->errnum = IPMI_SSIF_ERR_SUCCESS;
  else if (fiid_obj_errnum (obj) == FIID_ERR_OUT_OF_MEMORY)
    ctx->errnum = IPMI_SSIF_ERR_OUT_OF_MEMORY;
  else if (fiid_obj_errnum (obj) == FIID_ERR_DATA_NOT_AVAILABLE)
    ctx->errnum = IPMI_SSIF_ERR_SYSTEM_ERROR;
  else if (fiid_obj_errnum (obj) == FIID_ERR_NOT_IDENTICAL
           || fiid_obj_errnum (obj) == FIID_ERR_FIELD_NOT_FOUND)
    ctx->errnum = IPMI_SSIF_ERR_PARAMETERS;
  else
    ctx->errnum = IPMI_SSIF_ERR_INTERNAL_ERROR;
}

union ipmi_i2c_smbus_data
{
  uint8_t byte;
  uint16_t word;
  uint8_t block[IPMI_I2C_SMBUS_BLOCK_MAX + 3];
};

struct ipmi_i2c_smbus_ioctl_data
{
  uint8_t read_write;
  uint8_t command;
  uint32_t size;
  union ipmi_i2c_smbus_data *data;
};
/* END: copied from <linux/i2c.h> and <linux/i2c-dev.h>, */
/*      and prefixed IPMI.                               */

static int
_ipmi_i2c_smbus_access (ipmi_ssif_ctx_t ctx,
                        int dev_fd,
                        char read_write,
                        uint8_t command,
                        union ipmi_i2c_smbus_data *data)
{
  struct ipmi_i2c_smbus_ioctl_data args;
  fd_set read_fds;
  struct timeval tv;
  int n, rv;

  assert (ctx);
  assert (ctx->magic == IPMI_SSIF_CTX_MAGIC);

  if (read_write == IPMI_I2C_SMBUS_READ)
    {
      FD_ZERO (&read_fds);
      FD_SET (dev_fd, &read_fds);

      tv.tv_sec = IPMI_SSIF_TIMEOUT;
      tv.tv_usec = 0;

      if ((n = select (dev_fd + 1,
                       &read_fds,
                       NULL,
                       NULL,
                       &tv)) < 0)
        {
          SSIF_ERRNO_TO_SSIF_ERRNUM (ctx, errno);
          return (-1);
        }

      if (!n)
        {
          /* Could be due to a different error, but we assume a timeout */
          SSIF_SET_ERRNUM (ctx, IPMI_SSIF_ERR_DRIVER_TIMEOUT);
          return (-1);
        }
    }

  args.read_write = read_write;
  args.command = command;
  args.size = IPMI_I2C_SMBUS_BLOCK_DATA;
  args.data = data;

  if ((rv = ioctl (dev_fd, IPMI_I2C_SMBUS, &args)) < 0)
    {
      SSIF_ERRNO_TO_SSIF_ERRNUM (ctx, errno);
      return (-1);
    }

  return (rv);
}

static int
_ipmi_ssif_single_part_write (ipmi_ssif_ctx_t ctx,
                              int dev_fd,
                              const uint8_t *buf,
                              size_t buf_len)
{

  union ipmi_i2c_smbus_data data;
  size_t i;

  assert (ctx);
  assert (ctx->magic == IPMI_SSIF_CTX_MAGIC);

  data.block[0] = buf_len;
  for (i = 0; i < buf_len; i++)
    data.block[i + 1] = buf[i];

  return (_ipmi_i2c_smbus_access (ctx,
                                  dev_fd,
                                  IPMI_I2C_SMBUS_WRITE,
                                  IPMI_SSIF_SINGLE_PART_WRITE_SMBUS_CMD,
                                  &data));
}

static int
_ipmi_ssif_multi_part_write (ipmi_ssif_ctx_t ctx,
                             int dev_fd,
                             const uint8_t *buf,
                             size_t buf_len)
{
  union ipmi_i2c_smbus_data data;
  size_t i, middle_parts, mpart, index;

  assert (ctx);
  assert (ctx->magic == IPMI_SSIF_CTX_MAGIC);

  if (buf_len % IPMI_I2C_SMBUS_BLOCK_MAX == 0)
    {
#if 0
      fprintf (stderr, "%s:%s(): "
               "PECULIAR IPMI COMMAND: As of this writing, "
               "there are no standard IPMI messages to the "
               "BMC that are exact multiples of %d.  This "
               "command can be OEM/group network functions "
               "(network function codes 2Ch:3Fh) in your "
               "BMC implementation.  Please report to "
               "FreeIPMI mailing list <freeipmi-devel@gnu.org>\n",
               __FILE__, __FUNCTION__,
               IPMI_I2C_SMBUS_BLOCK_MAX);
#endif
      errno = EINVAL;
      return (-1);
    }

  middle_parts = (buf_len / IPMI_I2C_SMBUS_BLOCK_MAX) - 1;

  data.block[0] = IPMI_I2C_SMBUS_BLOCK_MAX;
  for (i = 0; i < IPMI_I2C_SMBUS_BLOCK_MAX; i++)
    data.block[i + 1] = buf[i];
  if (_ipmi_i2c_smbus_access (ctx,
                              dev_fd,
                              IPMI_I2C_SMBUS_WRITE,
                              IPMI_SSIF_MULTI_PART_WRITE_START_SMBUS_CMD,
                              &data) < 0)
    return (-1);

  for (mpart = 1; mpart <= middle_parts; mpart++)
    {
      index = mpart * IPMI_I2C_SMBUS_BLOCK_MAX;
      data.block[0] = IPMI_I2C_SMBUS_BLOCK_MAX;
      for (i = 0; i < IPMI_I2C_SMBUS_BLOCK_MAX; i++)
        data.block[i + 1] = buf[index + i];
      if (_ipmi_i2c_smbus_access (ctx,
                                  dev_fd,
                                  IPMI_I2C_SMBUS_WRITE,
                                  IPMI_SSIF_MULTI_PART_WRITE_MIDDLE_SMBUS_CMD,
                                  &data) < 0)
        return (-1);
    }

  index = (middle_parts + 1) * IPMI_I2C_SMBUS_BLOCK_MAX;
  data.block[0] = buf_len % IPMI_I2C_SMBUS_BLOCK_MAX;
  for (i = 0; i < data.block[0]; i++)
    data.block[i + 1] = buf[index + i];

  return (_ipmi_i2c_smbus_access (ctx,
                                  dev_fd,
                                  IPMI_I2C_SMBUS_WRITE,
                                  IPMI_SSIF_MULTI_PART_WRITE_END_SMBUS_CMD,
                                  &data));
}

static int
_ipmi_ssif_read (ipmi_ssif_ctx_t ctx,
                 int dev_fd,
                 uint8_t *buf,
                 size_t buf_len)
{
  union ipmi_i2c_smbus_data data;
  size_t bytes_read = 0;
  size_t bytes_copied = 0;
  size_t length = 0;
  unsigned int block_number = 0;
  unsigned int sindex = 0;
  unsigned int multi_read_start = 0;
  size_t i;

  assert (ctx);
  assert (ctx->magic == IPMI_SSIF_CTX_MAGIC);
  assert (buf);
  assert (buf_len);

  if (_ipmi_i2c_smbus_access (ctx,
                              dev_fd,
                              IPMI_I2C_SMBUS_READ,
                              IPMI_SSIF_SINGLE_PART_READ_SMBUS_CMD,
                              &data) < 0)
    return (-1);

  if (data.block[0] == IPMI_SSIF_MULTI_PART_READ_START_SIZE &&
      data.block[1] == IPMI_SSIF_MULTI_PART_READ_START_PATTERN1 &&
      data.block[2] == IPMI_SSIF_MULTI_PART_READ_START_PATTERN2)
    {
      sindex = 3;
      multi_read_start = 1;
    }
  else
    sindex = 1;

  length = data.block[0];
  bytes_read = length;

  if (bytes_read > buf_len)
    length = buf_len;

  for (i = 0; i < length; i++)
    buf[i] = data.block[sindex + i];

  bytes_copied = length;

  while (multi_read_start)
    {
      if (_ipmi_i2c_smbus_access (ctx,
                                  dev_fd,
                                  IPMI_I2C_SMBUS_READ,
                                  IPMI_SSIF_MULTI_PART_READ_MIDDLE_SMBUS_CMD,
                                  &data) < 0)
        return (-1);

      length = data.block[0];
      block_number = data.block[1];
      bytes_read += length;

      if ((bytes_copied + length) > buf_len)
        length = buf_len - bytes_copied;

      for (i = 0; i < length; i++)
        buf[bytes_copied + i] = data.block[i + 2];

      bytes_copied += length;

      if (block_number == IPMI_SSIF_MULTI_PART_READ_END_PATTERN)
        break;
    }

  if (bytes_read > INT_MAX)
    {
      SSIF_SET_ERRNUM (ctx, IPMI_SSIF_ERR_OVERFLOW);
      return (-1);
    }

  return (bytes_read);
}

ipmi_ssif_ctx_t
ipmi_ssif_ctx_create (void)
{
  ipmi_ssif_ctx_t ctx = NULL;

  if (!(ctx = (ipmi_ssif_ctx_t)malloc (sizeof (struct ipmi_ssif_ctx))))
    {
      ERRNO_TRACE (errno);
      return (NULL);
    }
  memset (ctx, '\0', sizeof (struct ipmi_ssif_ctx));

  ctx->magic = IPMI_SSIF_CTX_MAGIC;
  if (!(ctx->driver_device = strdup (IPMI_DEFAULT_I2C_DEVICE)))
    {
      ERRNO_TRACE (errno);
      goto cleanup;
    }
  ctx->driver_address = IPMI_DEFAULT_SSIF_IPMB_ADDR;
  ctx->flags = IPMI_SSIF_FLAGS_DEFAULT;
  ctx->device_fd = -1;
  ctx->io_init = 0;

  if ((ctx->semid = ipmi_mutex_init ()) < 0)
    {
      ERRNO_TRACE (errno);
      goto cleanup;
    }

  ctx->errnum = IPMI_SSIF_ERR_SUCCESS;
  return (ctx);

 cleanup:
  if (ctx)
    {
      free (ctx->driver_device);
      free (ctx);
    }
  return (NULL);
}

void
ipmi_ssif_ctx_destroy (ipmi_ssif_ctx_t ctx)
{
  if (!ctx || ctx->magic != IPMI_SSIF_CTX_MAGIC)
    return;

  ctx->magic = ~IPMI_SSIF_CTX_MAGIC;
  ctx->errnum = IPMI_SSIF_ERR_SUCCESS;
  free (ctx->driver_device);
  /* ignore potential error, destroy path */
  close (ctx->device_fd);
  free (ctx);
}

int
ipmi_ssif_ctx_errnum (ipmi_ssif_ctx_t ctx)
{
  if (!ctx)
    return (IPMI_SSIF_ERR_NULL);
  else if (ctx->magic != IPMI_SSIF_CTX_MAGIC)
    return (IPMI_SSIF_ERR_INVALID);
  else
    return (ctx->errnum);
}

char *
ipmi_ssif_ctx_strerror (int errnum)
{
  if (errnum >= IPMI_SSIF_ERR_SUCCESS && errnum <= IPMI_SSIF_ERR_ERRNUMRANGE)
    return (ipmi_ssif_ctx_errmsg[errnum]);
  else
    return (ipmi_ssif_ctx_errmsg[IPMI_SSIF_ERR_ERRNUMRANGE]);
}

char *
ipmi_ssif_ctx_errormsg (ipmi_ssif_ctx_t ctx)
{
  return (ipmi_ssif_ctx_strerror (ipmi_ssif_ctx_errnum (ctx)));
}

int
ipmi_ssif_ctx_get_driver_device (ipmi_ssif_ctx_t ctx, char **driver_device)
{
  if (!ctx || ctx->magic != IPMI_SSIF_CTX_MAGIC)
    {
      ERR_TRACE (ipmi_ssif_ctx_errormsg (ctx), ipmi_ssif_ctx_errnum (ctx));
      return (-1);
    }

  if (!driver_device)
    {
      SSIF_SET_ERRNUM (ctx, IPMI_SSIF_ERR_PARAMETERS);
      return (-1);
    }

  *driver_device = ctx->driver_device;
  ctx->errnum = IPMI_SSIF_ERR_SUCCESS;
  return (0);
}

int
ipmi_ssif_ctx_get_driver_address (ipmi_ssif_ctx_t ctx, uint8_t *driver_address)
{
  if (!ctx || ctx->magic != IPMI_SSIF_CTX_MAGIC)
    {
      ERR_TRACE (ipmi_ssif_ctx_errormsg (ctx), ipmi_ssif_ctx_errnum (ctx));
      return (-1);
    }

  if (!driver_address)
    {
      SSIF_SET_ERRNUM (ctx, IPMI_SSIF_ERR_PARAMETERS);
      return (-1);
    }

  *driver_address = ctx->driver_address;
  ctx->errnum = IPMI_SSIF_ERR_SUCCESS;
  return (0);
}

int
ipmi_ssif_ctx_get_flags (ipmi_ssif_ctx_t ctx, unsigned int *flags)
{
  if (!ctx || ctx->magic != IPMI_SSIF_CTX_MAGIC)
    {
      ERR_TRACE (ipmi_ssif_ctx_errormsg (ctx), ipmi_ssif_ctx_errnum (ctx));
      return (-1);
    }

  if (!flags)
    {
      SSIF_SET_ERRNUM (ctx, IPMI_SSIF_ERR_PARAMETERS);
      return (-1);
    }

  *flags = ctx->flags;
  ctx->errnum = IPMI_SSIF_ERR_SUCCESS;
  return (0);
}

int
ipmi_ssif_ctx_set_driver_device (ipmi_ssif_ctx_t ctx, const char *driver_device)
{
  if (!ctx || ctx->magic != IPMI_SSIF_CTX_MAGIC)
    {
      ERR_TRACE (ipmi_ssif_ctx_errormsg (ctx), ipmi_ssif_ctx_errnum (ctx));
      return (-1);
    }

  if (!driver_device)
    {
      SSIF_SET_ERRNUM (ctx, IPMI_SSIF_ERR_PARAMETERS);
      return (-1);
    }

  free (ctx->driver_device);
  ctx->driver_device = NULL;

  if (!(ctx->driver_device = strdup (driver_device)))
    {
      SSIF_SET_ERRNUM (ctx, IPMI_SSIF_ERR_OUT_OF_MEMORY);
      return (-1);
    }

  ctx->errnum = IPMI_SSIF_ERR_SUCCESS;
  return (0);
}

int
ipmi_ssif_ctx_set_driver_address (ipmi_ssif_ctx_t ctx, uint8_t driver_address)
{
  if (!ctx || ctx->magic != IPMI_SSIF_CTX_MAGIC)
    {
      ERR_TRACE (ipmi_ssif_ctx_errormsg (ctx), ipmi_ssif_ctx_errnum (ctx));
      return (-1);
    }

  ctx->driver_address = driver_address;
  ctx->errnum = IPMI_SSIF_ERR_SUCCESS;
  return (0);
}

int
ipmi_ssif_ctx_set_flags (ipmi_ssif_ctx_t ctx, unsigned int flags)
{
  if (!ctx || ctx->magic != IPMI_SSIF_CTX_MAGIC)
    {
      ERR_TRACE (ipmi_ssif_ctx_errormsg (ctx), ipmi_ssif_ctx_errnum (ctx));
      return (-1);
    }

  if (flags & ~IPMI_SSIF_FLAGS_MASK)
    {
      SSIF_SET_ERRNUM (ctx, IPMI_SSIF_ERR_PARAMETERS);
      return (-1);
    }

  ctx->flags = flags;
  ctx->errnum = IPMI_SSIF_ERR_SUCCESS;
  return (0);
}

int
ipmi_ssif_ctx_io_init (ipmi_ssif_ctx_t ctx)
{
  if (!ctx || ctx->magic != IPMI_SSIF_CTX_MAGIC)
    {
      ERR_TRACE (ipmi_ssif_ctx_errormsg (ctx), ipmi_ssif_ctx_errnum (ctx));
      return (-1);
    }

  if (!ctx->driver_device)
    {
      SSIF_SET_ERRNUM (ctx, IPMI_SSIF_ERR_PARAMETERS);
      return (-1);
    }

  if (ctx->io_init)
    goto out;

  if ((ctx->device_fd = open (ctx->driver_device,
                              O_RDWR)) < 0)
    {
      SSIF_ERRNO_TO_SSIF_ERRNUM (ctx, errno);
      goto cleanup;
    }

  if (ioctl (ctx->device_fd,
             IPMI_I2C_SLAVE,
             ctx->driver_address) < 0)
    {
      SSIF_ERRNO_TO_SSIF_ERRNUM (ctx, errno);
      goto cleanup;
    }

  ctx->io_init = 1;
 out:
  ctx->errnum = IPMI_SSIF_ERR_SUCCESS;
  return (0);

 cleanup:
  /* ignore potential error, error path */
  close (ctx->device_fd);
  ctx->device_fd = -1;
  return (-1);
}

int
ipmi_ssif_write (ipmi_ssif_ctx_t ctx,
                 const void *buf,
                 unsigned int buf_len)
{
  int count, lock_flag = 0;

  if (!ctx || ctx->magic != IPMI_SSIF_CTX_MAGIC)
    {
      ERR_TRACE (ipmi_ssif_ctx_errormsg (ctx), ipmi_ssif_ctx_errnum (ctx));
      return (-1);
    }

  if (!buf || !buf_len)
    {
      SSIF_SET_ERRNUM (ctx, IPMI_SSIF_ERR_PARAMETERS);
      return (-1);
    }

  if (!ctx->io_init)
    {
      SSIF_SET_ERRNUM (ctx, IPMI_SSIF_ERR_IO_NOT_INITIALIZED);
      return (-1);
    }

  if (!(ctx->flags & IPMI_SSIF_FLAGS_NONBLOCKING))
    {
      if (ipmi_mutex_lock (ctx->semid) < 0)
        {
          SSIF_ERRNO_TO_SSIF_ERRNUM (ctx, errno);
          goto cleanup;
        }
    }
  else
    {
      if (ipmi_mutex_lock_interruptible (ctx->semid) < 0)
        {
          SSIF_ERRNO_TO_SSIF_ERRNUM (ctx, errno);
          goto cleanup;
        }
    }
  lock_flag++;

  if (buf_len <= IPMI_I2C_SMBUS_BLOCK_MAX)
    {
      if ((count = _ipmi_ssif_single_part_write (ctx,
                                                 ctx->device_fd,
                                                 buf,
                                                 buf_len)) < 0)
        goto cleanup;
    }
  else
    {
      if ((count = _ipmi_ssif_multi_part_write (ctx,
                                                ctx->device_fd,
                                                buf,
                                                buf_len)) < 0)
        goto cleanup;
    }

  ctx->errnum = IPMI_SSIF_ERR_SUCCESS;
  return (count);

 cleanup:
  if (lock_flag)
    ipmi_mutex_unlock (ctx->semid);
  return (-1);
}

int
ipmi_ssif_read (ipmi_ssif_ctx_t ctx,
                void *buf,
                unsigned int buf_len)
{
  int count, rv = -1;

  if (!ctx || ctx->magic != IPMI_SSIF_CTX_MAGIC)
    {
      ERR_TRACE (ipmi_ssif_ctx_errormsg (ctx), ipmi_ssif_ctx_errnum (ctx));
      goto cleanup;
    }

  if (!buf || !buf_len)
    {
      SSIF_SET_ERRNUM (ctx, IPMI_SSIF_ERR_PARAMETERS);
      goto cleanup;
    }

  if (!ctx->io_init)
    {
      SSIF_SET_ERRNUM (ctx, IPMI_SSIF_ERR_IO_NOT_INITIALIZED);
      goto cleanup;
    }

  if (buf_len > IPMI_I2C_SMBUS_BLOCK_MAX)
    buf_len = IPMI_I2C_SMBUS_BLOCK_MAX;

  if ((count = _ipmi_ssif_read (ctx,
                                ctx->device_fd,
                                buf,
                                buf_len)) < 0)
    goto cleanup;

  rv = count;
  ctx->errnum = IPMI_SSIF_ERR_SUCCESS;
 cleanup:
  if (ctx && ctx->magic == IPMI_SSIF_CTX_MAGIC)
    ipmi_mutex_unlock (ctx->semid);
  return (rv);
}

static int
_ipmi_ssif_cmd_write (ipmi_ssif_ctx_t ctx,
                      uint8_t lun,
                      uint8_t net_fn,
                      fiid_obj_t obj_cmd_rq)
{
  uint8_t *pkt = NULL;
  unsigned int pkt_len;
  int hdr_len, cmd_len, rv = -1;
  fiid_obj_t obj_hdr = NULL;

  assert (ctx);
  assert (ctx->magic == IPMI_SSIF_CTX_MAGIC);
  assert (IPMI_BMC_LUN_VALID (lun));
  assert (IPMI_NET_FN_RQ_VALID (net_fn));
  assert (fiid_obj_valid (obj_cmd_rq));
  assert (fiid_obj_packet_valid (obj_cmd_rq) == 1);

  if ((hdr_len = fiid_template_len_bytes (tmpl_hdr_kcs)) < 0)
    {
      SSIF_ERRNO_TO_SSIF_ERRNUM (ctx, errno);
      goto cleanup;
    }

  if ((cmd_len = fiid_obj_len_bytes (obj_cmd_rq)) < 0)
    {
      SSIF_FIID_OBJECT_ERROR_TO_SSIF_ERRNUM (ctx, obj_cmd_rq);
      goto cleanup;
    }

  if (!(obj_hdr = fiid_obj_create (tmpl_hdr_kcs)))
    {
      SSIF_ERRNO_TO_SSIF_ERRNUM (ctx, errno);
      goto cleanup;
    }

  pkt_len = hdr_len + cmd_len;

  if (!(pkt = (uint8_t *)malloc (pkt_len)))
    {
      SSIF_SET_ERRNUM (ctx, IPMI_SSIF_ERR_OUT_OF_MEMORY);
      goto cleanup;
    }

  memset (pkt, 0, pkt_len);

  if (fill_hdr_ipmi_kcs (lun,
                         net_fn,
                         obj_hdr) < 0)
    {
      SSIF_SET_ERRNUM (ctx, IPMI_SSIF_ERR_INTERNAL_ERROR);
      goto cleanup;
    }

  if (assemble_ipmi_kcs_pkt (obj_hdr,
                             obj_cmd_rq,
                             pkt,
                             pkt_len,
			     IPMI_INTERFACE_FLAGS_DEFAULT) < 0)
    {
      SSIF_SET_ERRNUM (ctx, IPMI_SSIF_ERR_INTERNAL_ERROR);
      goto cleanup;
    }

  if (ipmi_ssif_write (ctx, pkt, pkt_len) < 0)
    goto cleanup;

  rv = 0;
 cleanup:
  fiid_obj_destroy (obj_hdr);
  free (pkt);
  return (rv);
}

static int
_ipmi_ssif_cmd_read (ipmi_ssif_ctx_t ctx,
                     fiid_obj_t obj_cmd_rs)
{
  uint8_t *pkt = NULL;
  unsigned int pkt_len;
  int hdr_len, cmd_len, read_len, ret, rv = -1;
  fiid_obj_t obj_hdr = NULL;
  fiid_field_t *tmpl = NULL;

  assert (ctx);
  assert (ctx->magic == IPMI_SSIF_CTX_MAGIC);
  assert (fiid_obj_valid (obj_cmd_rs));

  if ((hdr_len = fiid_template_len_bytes (tmpl_hdr_kcs)) < 0)
    {
      SSIF_ERRNO_TO_SSIF_ERRNUM (ctx, errno);
      goto cleanup;
    }

  if (!(tmpl = fiid_obj_template (obj_cmd_rs)))
    {
      SSIF_FIID_OBJECT_ERROR_TO_SSIF_ERRNUM (ctx, obj_cmd_rs);
      goto cleanup;
    }

  if ((cmd_len = fiid_template_len_bytes (tmpl)) < 0)
    {
      SSIF_ERRNO_TO_SSIF_ERRNUM (ctx, errno);
      goto cleanup;
    }

  if (!(obj_hdr = fiid_obj_create (tmpl_hdr_kcs)))
    {
      SSIF_ERRNO_TO_SSIF_ERRNUM (ctx, errno);
      goto cleanup;
    }

  pkt_len = hdr_len + cmd_len;

  if (!(pkt = (uint8_t *)malloc (pkt_len)))
    {
      SSIF_SET_ERRNUM (ctx, IPMI_SSIF_ERR_OUT_OF_MEMORY);
      goto cleanup;
    }

  memset (pkt, 0, pkt_len);

  if ((read_len = ipmi_ssif_read (ctx,
                                  pkt,
                                  pkt_len)) < 0)
    goto cleanup;

  if (!read_len)
    {
      SSIF_SET_ERRNUM (ctx, IPMI_SSIF_ERR_SYSTEM_ERROR);
      goto cleanup;
    }

  if ((ret = unassemble_ipmi_kcs_pkt (pkt,
                                      read_len,
                                      obj_hdr,
                                      obj_cmd_rs,
				      IPMI_INTERFACE_FLAGS_DEFAULT)) < 0)
    {
      SSIF_SET_ERRNUM (ctx, IPMI_SSIF_ERR_INTERNAL_ERROR);
      goto cleanup;
    }

  /* IPMI didn't return enough data back to you */
  if (!ret)
    {
      SSIF_SET_ERRNUM (ctx, IPMI_SSIF_ERR_IPMI_ERROR);
      goto cleanup;
    }

  rv = 0;
 cleanup:
  fiid_template_free (tmpl);
  fiid_obj_destroy (obj_hdr);
  free (pkt);
  return (rv);
}

int
ipmi_ssif_cmd (ipmi_ssif_ctx_t ctx,
               uint8_t lun,
               uint8_t net_fn,
               fiid_obj_t obj_cmd_rq,
               fiid_obj_t obj_cmd_rs)
{
  if (!ctx || ctx->magic != IPMI_SSIF_CTX_MAGIC)
    {
      ERR_TRACE (ipmi_ssif_ctx_errormsg (ctx), ipmi_ssif_ctx_errnum (ctx));
      return (-1);
    }

  if (!IPMI_BMC_LUN_VALID (lun)
      || !IPMI_NET_FN_RQ_VALID (net_fn)
      || !fiid_obj_valid (obj_cmd_rq)
      || !fiid_obj_valid (obj_cmd_rs)
      || fiid_obj_packet_valid (obj_cmd_rq) <= 0)
    {
      SSIF_SET_ERRNUM (ctx, IPMI_SSIF_ERR_PARAMETERS);
      return (-1);
    }

  if (!ctx->io_init)
    {
      SSIF_SET_ERRNUM (ctx, IPMI_SSIF_ERR_IO_NOT_INITIALIZED);
      return (-1);
    }

  if (_ipmi_ssif_cmd_write (ctx, lun, net_fn, obj_cmd_rq) < 0)
    return (-1);

  if (_ipmi_ssif_cmd_read (ctx, obj_cmd_rs) < 0)
    return (-1);

  return (0);
}
