/*
*Copyright(c)2016, Jeffrey Lee
*Allrightsreserved.
*
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions are met: 
 *     * Redistributions of source code must retain the above copyright
 *       notice, this list of conditions and the following disclaimer.
 *     * 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 THE COPYRIGHT HOLDERS AND CONTRIBUTORS "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 THE COPYRIGHT HOLDER 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 "sockevent.h"
#include "header.h"
#include "proto2.h"
#include "mcode.h"

#include <oslib/os.h>
#include <oslib/osbyte.h>
#include <oslib/socket.h>

void socket_event_init(socket_event_status_t *evt, socket_s sock, void *c_param, void (*c_callback_fn)(void *param))
{
  evt->socket = sock;
  evt->c_param = c_param;
  evt->c_callback_fn = c_callback_fn;
  evt->busy = 0;
  if (!evt->pw)
  {
    /* Get on EventV */
    evt->asm_callback_fn = (void*)socket_callback;
    evt->pw = private_word;
    if (xos_claim(EventV,socket_eventv,(byte *) evt))
    {
      /* Nope */
      evt->pw = NULL;
    }
    else if (xosbyte(osbyte_ENABLE_EVENT, Event_Internet, 0))
    {
      /* Nope! */
      xos_release(EventV,socket_eventv,(byte *) evt);
      evt->pw = NULL;
    }
  }
}

void socket_event_stop(socket_event_status_t *evt)
{
  if (evt->pw)
  {
    xos_release(EventV,socket_eventv,(byte *) evt);
    evt->pw = NULL;
    xosbyte(osbyte_DISABLE_EVENT, Event_Internet, 0);
  }
  if (evt->busy)
  {
    xos_remove_call_back((void *)socket_callback,(byte *) evt);
    evt->busy = 0;
  }
}

int socket_callback_handler(_kernel_swi_regs *r, void *pw)
{
  socket_event_status_t *evt = (socket_event_status_t *) r->r[0];
  evt->c_callback_fn(evt->c_param);
  evt->busy = 0;
  return 1;
}
