/* Copyright 2003-2006, Voltage Security, all rights reserved.
 */
#include "vibecrypto.h"
#include "environment.h"
#include "base.h"
#include "libctx.h"
#include "algobj.h"
#include "digest.h"
#include "sha384.h"
#include "fipsmodule.h"
#include "errorctx.h"

/* Build the digestCtx that has a SHA384Ctx as the localCtx.
 * <p>This function will allocate space for the DigestClassCtx and the
 * 384Ctx. The caller must free that space (it will be one buffer).
 *
 * @param obj The object that will hold the context.
 * @param digestCtx The address where the function will deposit the
 * created ctx.
 * @return an int, 0 if the function completed successfully or a
 * non-zero error code.
 */
static int VOLT_CALLING_CONV BuildSHA384Ctx VOLT_PROTO_LIST ((
   VoltAlgorithmObject *obj,
   VoltDigestClassCtx **digestCtx
));

/* Implements VCtxDestroy.
 */
void VOLT_CALLING_CONV SHA384CtxDestroy VOLT_PROTO_LIST ((
   Pointer obj,
   Pointer ctx
   ));

int VtAlgorithmImplSHA384 (
   VtAlgorithmObject *object,
   Pointer info,
   unsigned int flag
   )
{
  int status;
  VoltAlgorithmObject *obj = (VoltAlgorithmObject *)(*object);
  VoltSHA384Ctx *ctx;
  VoltDigestClassCtx *digestCtx = (VoltDigestClassCtx *)0;
  VoltDigestClassCtx *sha512DigestCtx;
  VtItem newState;
  unsigned char initState[64] = { SHA384_INIT_DATA };
  VOLT_DECLARE_ERROR_TYPE (errorType)
  VOLT_DECLARE_FNCT_LINE (fnctLine)

  do
  {
    /* Check the flag, it should be VOLT_ALG_SET_TYPE_FLAG.
     */
    VOLT_SET_ERROR_TYPE (errorType, VT_ERROR_TYPE_PRIMARY)
    VOLT_SET_FNCT_LINE (fnctLine)
    status = VT_ERROR_INVALID_TYPE;
    if (flag != VOLT_ALG_SET_TYPE_FLAG)
      break;

    /* The associated info should be a NULL pointer.
     */
    VOLT_SET_FNCT_LINE (fnctLine)
    status = VT_ERROR_INVALID_ASSOCIATED_INFO;
    if (info != (Pointer)0)
      break;

    /* Build the DigestCtx and SHA-384 ctx.
     */
    VOLT_SET_ERROR_TYPE (errorType, 0)
    VOLT_SET_FNCT_LINE (fnctLine)
    status = BuildSHA384Ctx (obj, &digestCtx);
    if (status != 0)
      break;

    ctx = (VoltSHA384Ctx *)(digestCtx->localDigestCtx);

    /* Build the subordinate SHA-512 object.
     */
    VOLT_SET_FNCT_LINE (fnctLine)
    status = VoltCreateObject (
      obj->voltObject.libraryCtx, (VoltObject **)&(ctx->sha512Obj),
      sizeof (VoltAlgorithmObject), VOLT_OBJECT_TYPE_ALGORITHM);
    if (status != 0)
      break;

    ctx->sha512Obj->state = VOLT_STATE_CREATE_ALG_OBJ;

    /* Set this object with the support Impl.
     */
    VOLT_SET_FNCT_LINE (fnctLine)
    status = VtAlgorithmImplSHA512 (
      (VtAlgorithmObject *)&(ctx->sha512Obj), (Pointer)0,
      VOLT_ALG_SET_TYPE_FLAG);
    if (status != 0)
      break;

    /* Reset the initial state.
     */
    VOLT_SET_ERROR_TYPE (errorType, 0)
    VOLT_SET_FNCT_LINE (fnctLine)
    newState.data = initState;
    newState.len = 64;
    status = VtSetAlgorithmParam (
      (VtAlgorithmObject)(ctx->sha512Obj), VtAlgorithmParamDigestInitialState,
      (Pointer)&newState);
    if (status != 0)
      break;

    /* Set the fields of the contexts.
     */
    sha512DigestCtx = (VoltDigestClassCtx *)(ctx->sha512Obj->classCtx);
    ctx->sha512Impl = sha512DigestCtx->algorithmImpl;
    ctx->sha512ImplInfo = sha512DigestCtx->algorithmImplInfo;
    digestCtx->algorithmImpl = VtAlgorithmImplSHA384;
    digestCtx->algorithmImplInfo = (Pointer)&(ctx->sha512ImplInfo);
    digestCtx->DigestInit = SHA384Init;
    digestCtx->DigestUpdate = SHA384Update;
    digestCtx->DigestFinal = SHA384Final;
    digestCtx->algorithm = VT_DIGEST_ALG_SHA384;
    digestCtx->digestSize = 48;
    digestCtx->blockLen = 128;
    /* Don't load a special localCtxDestroy, the DigestCtxDestroy will
     * take care of it.
     */

    obj->algClass = VOLT_CLASS_DIGEST;
    obj->classCtx = (Pointer)digestCtx;
    obj->ClassCtxDestroy = SHA384CtxDestroy;

  } while (0);

  /* If no error, we're done.
   */
  if (status == 0)
    return (0);

  /* If there was an error, destroy anything we created.
   */
  SHA384CtxDestroy ((Pointer)obj, (Pointer)digestCtx);

  VOLT_LOG_ERROR_INFO_COMPARE (
    status, 0, obj, status, 0, errorType,
    (char *)0, "VtAlgorithmImplSHA384", fnctLine, (char *)0)

  return (status);
}

static int BuildSHA384Ctx (
   VoltAlgorithmObject *obj,
   VoltDigestClassCtx **digestCtx
   )
{
  int status;
#if VOLT_ALIGNMENT != 1
  unsigned int pad;
#endif
  unsigned int bufferSize, offset;
  unsigned char *buffer = (unsigned char *)0;
  VoltLibCtx *libCtx = (VoltLibCtx *)(obj->voltObject.libraryCtx);
  VoltDigestClassCtx *newDigestCtx;
  VoltSHA384Ctx *ctx;
  VOLT_DECLARE_FNCT_LINE (fnctLine)

  do
  {
    /* We want to allocate space for a digestCtx and a SHA384Ctx.
     */
    VOLT_SET_FNCT_LINE (fnctLine)
    status = VT_ERROR_MEMORY;
    bufferSize = sizeof (VoltDigestClassCtx) + sizeof (VoltSHA384Ctx);
#if VOLT_ALIGNMENT != 1
    /* If the alignment is 1, there's no need to pad. If not, compute
     * the pad length.
     */
    VOLT_COMPUTE_ALIGN_PAD (VOLT_ALIGNMENT, sizeof (VoltDigestClassCtx), pad)
      bufferSize += pad;
#endif
    buffer = (unsigned char *)Z2Malloc (bufferSize, VOLT_MEMORY_SENSITIVE);
    if (buffer == (unsigned char *)0)
      break;
    Z2Memset (buffer, 0, bufferSize);

    /* Locate the contexts.
     */
    newDigestCtx = (VoltDigestClassCtx *)buffer;
    offset = sizeof (VoltDigestClassCtx);
#if VOLT_ALIGNMENT != 1
    offset += pad;
#endif
    ctx = (VoltSHA384Ctx *)(buffer + offset);

    /* Populate the contexts.
     */
    newDigestCtx->localDigestCtx = (Pointer)ctx;

    *digestCtx = newDigestCtx;

    status = 0;

  } while (0);

  /* If everything worked, return 0.
   */
  if (status == 0)
    return (0);

  /* If something went wrong, destroy anything we created and indicate
   * that this object is not usable.
   */
  if (buffer != (unsigned char *)0)
    Z2Free (buffer);

  obj->state = VOLT_STATE_ERROR;

  VOLT_LOG_ERROR_INFO_COMPARE (
    status, 0, obj, status, 0, VT_ERROR_TYPE_PRIMARY,
    (char *)0, "BuildSHA384Ctx", fnctLine, (char *)0)

  return (status);
}

void SHA384CtxDestroy (
   Pointer object,
   Pointer ctx
   )
{
  VoltAlgorithmObject *obj;
  VoltLibCtx *libCtx;
  VoltDigestClassCtx *digestCtx;
  VoltSHA384Ctx *sha384Ctx;

  if ( (object == (Pointer)0) || (ctx == (Pointer)0) )
    return;

  obj = (VoltAlgorithmObject *)object;
  libCtx = (VoltLibCtx *)(obj->voltObject.libraryCtx);
  digestCtx = (VoltDigestClassCtx *)ctx;
  sha384Ctx = (VoltSHA384Ctx *)(digestCtx->localDigestCtx);

  if (sha384Ctx->sha512Obj != (VoltAlgorithmObject *)0)
  {
    obj = sha384Ctx->sha512Obj;
    if (obj->ClassCtxDestroy != (VCtxDestroy)0)
      obj->ClassCtxDestroy ((Pointer)obj, obj->classCtx);
    if (obj->mpCtx != (VoltMpIntCtx *)0)
      VtDestroyMpIntCtx ((VtMpIntCtx *)&(obj->mpCtx));
    VoltDestroyObject ((VoltObject **)&(sha384Ctx->sha512Obj));
  }

  Z2Free (ctx);
}