/*
 * Copyright (C) 2006, 2007, 2008 Apple 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:
 * 1. Redistributions of source code must retain the above copyright
 *    notice, this list of conditions and the following disclaimer.
 * 2. Redistributions 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.
 *
 * THIS SOFTWARE IS PROVIDED BY APPLE INC. ``AS IS'' AND ANY
 * EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
 * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL APPLE INC. OR
 * CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
 * EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
 * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
 * PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY
 * OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
 * OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 */

#include "event_handler.h"

#include <stdarg.h>
#include <stdio.h>
#include <string.h>
#include <string>

#include "native_client/src/include/nacl_macros.h"
#include "plugin_object.h"

// Utility methods.
std::string DoubleToString(double d) {
  char buf[2048];
  const size_t kBufSize = sizeof(buf);
  snprintf(buf, kBufSize, "%f", d);
  return buf;
}

std::string StringPrintf(const char* format, ...) {
  char buf[2048];
  const size_t kBufSize = sizeof(buf);
  va_list ap;
  va_start(ap, format);
  vsnprintf(buf, kBufSize, format, ap);
  va_end(ap);
  return buf;
}

EventHandler* event_handler = NULL;

// EventHandler ----------------------------------------------------------------

EventHandler::EventHandler(NPP npp)
    : npp_(npp),
    text_box_(NULL) {
}

EventHandler::~EventHandler() {
}

void EventHandler::addText(const char* cstr) {
  NPVariant variant;
  // Create a a string variant to be set for the innerText.
  MakeNPVariant(cstr, &variant);
  // Report the string to the div.
  NPVariant result;
  browser->invokeDefault(npp_, text_box_, &variant, 1, &result);
  // Release the variant.
  browser->releasevariantvalue(&variant);
  browser->releasevariantvalue(&result);
}

std::string EventHandler::EventName(double timestamp, int32 type) {
  std::string str = DoubleToString(timestamp) + ": ";
  switch (type) {
    case NPEventType_MouseDown:
      return str + "MouseDown";
    case NPEventType_MouseUp:
      return str + "MouseUp";
    case NPEventType_MouseMove:
      return str + "MouseMove";
    case NPEventType_MouseEnter:
      return str + "MouseEnter";
    case NPEventType_MouseLeave:
      return str + "MouseLeave";
    case NPEventType_MouseWheel:
      return str + "MouseWheel";
    case NPEventType_RawKeyDown:
      return str + "RawKeyDown";
    case NPEventType_KeyDown:
      return str + "KeyDown";
    case NPEventType_KeyUp:
      return str + "KeyUp";
    case NPEventType_Char:
      return str + "Char";
    case NPEventType_Minimize:
      return str + "Minimize";
    case NPEventType_Focus:
      return str + "Focus";
    case NPEventType_Device:
      return str + "Device";
    case NPEventType_Undefined:
    default:
      return str + "Undefined";
  }
}

int EventHandler::handle(void* event) {
  NPPepperEvent* npevent = reinterpret_cast<NPPepperEvent*>(event);
  std::string str = EventName(npevent->timeStampSeconds, npevent->type);
  switch (npevent->type) {
    case NPEventType_MouseDown:
    case NPEventType_MouseUp:
    case NPEventType_MouseMove:
    case NPEventType_MouseEnter:
    case NPEventType_MouseLeave:
      str += StringPrintf(": mod %x, but: %x, x: %d, y: %d, click: %d",
                          npevent->u.mouse.modifier,
                          npevent->u.mouse.button,
                          npevent->u.mouse.x,
                          npevent->u.mouse.y,
                          npevent->u.mouse.clickCount);
        break;
    case NPEventType_MouseWheel:
      str += StringPrintf(": mod %x, dx: %f, dy: %f, wtx: %f, wty: %d: sbp %d",
                          npevent->u.wheel.modifier,
                          npevent->u.wheel.deltaX,
                          npevent->u.wheel.deltaY,
                          npevent->u.wheel.wheelTicksX,
                          npevent->u.wheel.wheelTicksY,
                          npevent->u.wheel.scrollByPage);
      break;
    case NPEventType_RawKeyDown:
    case NPEventType_KeyDown:
    case NPEventType_KeyUp:
      str += StringPrintf(": mod %x, key: %x",
                          npevent->u.key.modifier,
                          npevent->u.key.normalizedKeyCode);
      break;
    case NPEventType_Char:
      str += StringPrintf(": mod %x, text: ",
                          npevent->u.character.modifier);
      size_t i;
      for (i = 0; i < NACL_ARRAY_SIZE(npevent->u.character.text); ++i) {
        str += StringPrintf("%x ", npevent->u.character.text[i]);
      }
      str += ", unmod: ";
      for (i = 0;
           i < NACL_ARRAY_SIZE(npevent->u.character.unmodifiedText);
           ++i) {
          str += StringPrintf("%x ", npevent->u.character.unmodifiedText[i]);
      }
      break;
    case NPEventType_Minimize:
    case NPEventType_Focus:
    case NPEventType_Device:
      // TODO(sehr): add prints as we support these.
      break;
    case NPEventType_Undefined:
    default:
      return 0;
  }
  addText(str.c_str());
  return 1;
}

bool EventHandler::set_text_box(NPObject* text_box_object) {
  text_box_ = text_box_object;
  // Keep a reference to the text box update object.
  browser->retainobject(text_box_object);
  // Announce that we are alive.
  addText("Set the callback for text\n");
  return true;
}

char* EventHandler::string_duplicate(const char* cstr, size_t* len) {
  *len = strlen(cstr);
  char* str = reinterpret_cast<char*>(browser->memalloc(*len + 1));
  if (NULL == str) {
    *len = 0;
    return NULL;
  }
  memcpy(str, cstr, *len + 1);
  return str;
}

void EventHandler::MakeNPVariant(const char* cstr, NPVariant* var) {
  if (NULL == cstr) {
    STRINGN_TO_NPVARIANT(NULL, 0, *var);
    return;
  }
  size_t len;
  char* name = string_duplicate(cstr, &len);
  if (NULL == name) {
    STRINGN_TO_NPVARIANT(NULL, 0, *var);
    return;
  }
  STRINGN_TO_NPVARIANT(name, len, *var);
}