/*
 * Copyright 2010 Jerome Glisse <glisse@freedesktop.org>
 *
 * Permission is hereby granted, free of charge, to any person obtaining a
 * copy of this software and associated documentation files (the "Software"),
 * to deal in the Software without restriction, including without limitation
 * on the rights to use, copy, modify, merge, publish, distribute, sub
 * license, and/or sell copies of the Software, and to permit persons to whom
 * the Software is furnished to do so, subject to the following conditions:
 *
 * The above copyright notice and this permission notice (including the next
 * paragraph) shall be included in all copies or substantial portions of the
 * Software.
 *
 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
 * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
 * FITNESS FOR A PARTICULAR PURPOSE AND NON-INFRINGEMENT. IN NO EVENT SHALL
 * THE AUTHOR(S) AND/OR THEIR SUPPLIERS BE LIABLE FOR ANY CLAIM,
 * DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR
 * OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE
 * USE OR OTHER DEALINGS IN THE SOFTWARE.
 *
 * Authors:
 *      Jerome Glisse
 *      Corbin Simpson <MostAwesomeDude@gmail.com>
 */
#include <byteswap.h>

#include <pipe/p_screen.h>
#include <util/u_format.h>
#include <util/u_math.h>
#include <util/u_inlines.h>
#include <util/u_memory.h>
#include "util/u_upload_mgr.h"

#include "state_tracker/drm_driver.h"

#include <xf86drm.h>
#include "radeon_drm.h"

#include "r600.h"
#include "r600_pipe.h"

static void r600_buffer_destroy(struct pipe_screen *screen,
				struct pipe_resource *buf)
{
	struct r600_screen *rscreen = (struct r600_screen*)screen;
	struct r600_resource_buffer *rbuffer = r600_buffer(buf);

	if (rbuffer->r.bo) {
		r600_bo_reference((struct radeon*)screen->winsys, &rbuffer->r.bo, NULL);
	}
	rbuffer->r.bo = NULL;
	util_slab_free(&rscreen->pool_buffers, rbuffer);
}

static struct pipe_transfer *r600_get_transfer(struct pipe_context *ctx,
					       struct pipe_resource *resource,
					       unsigned level,
					       unsigned usage,
					       const struct pipe_box *box)
{
	struct r600_pipe_context *rctx = (struct r600_pipe_context*)ctx;
	struct pipe_transfer *transfer = util_slab_alloc(&rctx->pool_transfers);

	transfer->resource = resource;
	transfer->level = level;
	transfer->usage = usage;
	transfer->box = *box;
	transfer->stride = 0;
	transfer->layer_stride = 0;
	transfer->data = NULL;

	/* Note strides are zero, this is ok for buffers, but not for
	 * textures 2d & higher at least.
	 */
	return transfer;
}

static void *r600_buffer_transfer_map(struct pipe_context *pipe,
				      struct pipe_transfer *transfer)
{
	struct r600_resource_buffer *rbuffer = r600_buffer(transfer->resource);
	int write = 0;
	uint8_t *data;

	if (rbuffer->r.b.user_ptr)
		return (uint8_t*)rbuffer->r.b.user_ptr + transfer->box.x;

	if (transfer->usage & PIPE_TRANSFER_DONTBLOCK) {
		/* FIXME */
	}
	if (transfer->usage & PIPE_TRANSFER_WRITE) {
		write = 1;
	}
	data = r600_bo_map((struct radeon*)pipe->winsys, rbuffer->r.bo, transfer->usage, pipe);
	if (!data)
		return NULL;

	return (uint8_t*)data + transfer->box.x;
}

static void r600_buffer_transfer_unmap(struct pipe_context *pipe,
					struct pipe_transfer *transfer)
{
	struct r600_resource_buffer *rbuffer = r600_buffer(transfer->resource);

	if (rbuffer->r.b.user_ptr)
		return;

	if (rbuffer->r.bo)
		r600_bo_unmap((struct radeon*)pipe->winsys, rbuffer->r.bo);
}

static void r600_buffer_transfer_flush_region(struct pipe_context *pipe,
						struct pipe_transfer *transfer,
						const struct pipe_box *box)
{
}

static void r600_transfer_destroy(struct pipe_context *ctx,
				  struct pipe_transfer *transfer)
{
	struct r600_pipe_context *rctx = (struct r600_pipe_context*)ctx;
	util_slab_free(&rctx->pool_transfers, transfer);
}

static void r600_buffer_transfer_inline_write(struct pipe_context *pipe,
						struct pipe_resource *resource,
						unsigned level,
						unsigned usage,
						const struct pipe_box *box,
						const void *data,
						unsigned stride,
						unsigned layer_stride)
{
	struct radeon *ws = (struct radeon*)pipe->winsys;
	struct r600_resource_buffer *rbuffer = r600_buffer(resource);
	uint8_t *map = NULL;

	assert(rbuffer->r.b.user_ptr == NULL);

	map = r600_bo_map(ws, rbuffer->r.bo,
			  PIPE_TRANSFER_WRITE | PIPE_TRANSFER_DISCARD | usage,
			  pipe);

	memcpy(map + box->x, data, box->width);

	if (rbuffer->r.bo)
		r600_bo_unmap(ws, rbuffer->r.bo);
}

static const struct u_resource_vtbl r600_buffer_vtbl =
{
	u_default_resource_get_handle,		/* get_handle */
	r600_buffer_destroy,			/* resource_destroy */
	r600_get_transfer,			/* get_transfer */
	r600_transfer_destroy,			/* transfer_destroy */
	r600_buffer_transfer_map,		/* transfer_map */
	r600_buffer_transfer_flush_region,	/* transfer_flush_region */
	r600_buffer_transfer_unmap,		/* transfer_unmap */
	r600_buffer_transfer_inline_write	/* transfer_inline_write */
};

struct pipe_resource *r600_buffer_create(struct pipe_screen *screen,
					 const struct pipe_resource *templ)
{
	struct r600_screen *rscreen = (struct r600_screen*)screen;
	struct r600_resource_buffer *rbuffer;
	struct r600_bo *bo;
	/* XXX We probably want a different alignment for buffers and textures. */
	unsigned alignment = 4096;

	rbuffer = util_slab_alloc(&rscreen->pool_buffers);

	rbuffer->magic = R600_BUFFER_MAGIC;
	rbuffer->r.b.b.b = *templ;
	pipe_reference_init(&rbuffer->r.b.b.b.reference, 1);
	rbuffer->r.b.b.b.screen = screen;
	rbuffer->r.b.b.vtbl = &r600_buffer_vtbl;
	rbuffer->r.b.user_ptr = NULL;
	rbuffer->r.size = rbuffer->r.b.b.b.width0;
	rbuffer->r.bo_size = rbuffer->r.size;

	bo = r600_bo((struct radeon*)screen->winsys,
		     rbuffer->r.b.b.b.width0,
		     alignment, rbuffer->r.b.b.b.bind,
		     rbuffer->r.b.b.b.usage);

	if (bo == NULL) {
		FREE(rbuffer);
		return NULL;
	}
	rbuffer->r.bo = bo;
	return &rbuffer->r.b.b.b;
}

struct pipe_resource *r600_user_buffer_create(struct pipe_screen *screen,
					      void *ptr, unsigned bytes,
					      unsigned bind)
{
	struct r600_screen *rscreen = (struct r600_screen*)screen;
	struct r600_resource_buffer *rbuffer;

	rbuffer = util_slab_alloc(&rscreen->pool_buffers);

	rbuffer->magic = R600_BUFFER_MAGIC;
	pipe_reference_init(&rbuffer->r.b.b.b.reference, 1);
	rbuffer->r.b.b.vtbl = &r600_buffer_vtbl;
	rbuffer->r.b.b.b.screen = screen;
	rbuffer->r.b.b.b.target = PIPE_BUFFER;
	rbuffer->r.b.b.b.format = PIPE_FORMAT_R8_UNORM;
	rbuffer->r.b.b.b.usage = PIPE_USAGE_IMMUTABLE;
	rbuffer->r.b.b.b.bind = bind;
	rbuffer->r.b.b.b.width0 = bytes;
	rbuffer->r.b.b.b.height0 = 1;
	rbuffer->r.b.b.b.depth0 = 1;
	rbuffer->r.b.b.b.array_size = 1;
	rbuffer->r.b.b.b.flags = 0;
	rbuffer->r.b.user_ptr = ptr;
	rbuffer->r.bo = NULL;
	rbuffer->r.bo_size = 0;
	return &rbuffer->r.b.b.b;
}

struct pipe_resource *r600_buffer_from_handle(struct pipe_screen *screen,
					      struct winsys_handle *whandle)
{
	struct radeon *rw = (struct radeon*)screen->winsys;
	struct r600_resource *rbuffer;
	struct r600_bo *bo = NULL;

	bo = r600_bo_handle(rw, whandle->handle, NULL);
	if (bo == NULL) {
		return NULL;
	}

	rbuffer = CALLOC_STRUCT(r600_resource);
	if (rbuffer == NULL) {
		r600_bo_reference(rw, &bo, NULL);
		return NULL;
	}

	pipe_reference_init(&rbuffer->b.b.b.reference, 1);
	rbuffer->b.b.b.target = PIPE_BUFFER;
	rbuffer->b.b.b.screen = screen;
	rbuffer->b.b.vtbl = &r600_buffer_vtbl;
	rbuffer->bo = bo;
	return &rbuffer->b.b.b;
}

void r600_upload_index_buffer(struct r600_pipe_context *rctx, struct r600_drawl *draw)
{
	struct r600_resource_buffer *rbuffer = r600_buffer(draw->index_buffer);
	boolean flushed;

	u_upload_data(rctx->vbuf_mgr->uploader, 0,
		      draw->info.count * draw->index_size,
		      rbuffer->r.b.user_ptr,
		      &draw->index_buffer_offset,
		      &draw->index_buffer, &flushed);
}

void r600_upload_const_buffer(struct r600_pipe_context *rctx, struct r600_resource_buffer **rbuffer,
			     uint32_t *const_offset)
{
	if ((*rbuffer)->r.b.user_ptr) {
		uint8_t *ptr = (*rbuffer)->r.b.user_ptr;
		unsigned size = (*rbuffer)->r.b.b.b.width0;
		boolean flushed;
#ifdef PIPE_ARCH_BIG_ENDIAN
		int i;
		uint32_t *tmpPtr;

		*rbuffer = NULL;

		tmpPtr = (uint32_t *)malloc(size);
		/* big endian swap */
		if(tmpPtr == NULL) {
			return;
		}
		for(i = 0; i < size / 4; i++) {
			tmpPtr[i] = bswap_32(*((uint32_t *)ptr + i));
		}

		u_upload_data(rctx->vbuf_mgr->uploader, 0, size, tmpPtr, const_offset,
			      (struct pipe_resource**)rbuffer, &flushed);

		free(tmpPtr);
#else
		*rbuffer = NULL;

		u_upload_data(rctx->vbuf_mgr->uploader, 0, size, ptr, const_offset,
			      (struct pipe_resource**)rbuffer, &flushed);
#endif
	} else {
		*const_offset = 0;
	}
}