/* scatter.c -- IOCTLs to manage scatter/gather memory -*- linux-c -*-
 * Created: Mon Dec 18 23:20:54 2000 by gareth@valinux.com
 *
 * Copyright 2000 VA Linux Systems, Inc., Sunnyvale, California.
 * All Rights Reserved.
 *
 * 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
 * the rights to use, copy, modify, merge, publish, distribute, sublicense,
 * 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 NONINFRINGEMENT.  IN NO EVENT SHALL
 * PRECISION INSIGHT AND/OR ITS 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:
 *	Gareth Hughes <gareth@valinux.com>
 *
 */

#define __NO_VERSION__
#include <linux/config.h>
#include "drmP.h"
#include <linux/wrapper.h>

#define DEBUG_SCATTER 1

static void drm_sg_cleanup( drm_sg_mem_t *entry )
{
	int i;

	for ( i = 0 ; i < entry->pages ; i++ ) {
		ClearPageReserved( entry->pagelist[i] );
	}

	vfree( entry->virtual );

	drm_free( entry->pagelist,
		  entry->pages * sizeof(*entry->pagelist),
		  DRM_MEM_PAGES );
	drm_free( entry,
		  sizeof(*entry),
		  DRM_MEM_SGLISTS );
}

static inline long usec( void )
{
   struct timeval tv;

   do_gettimeofday( &tv );

   return (tv.tv_sec & 0x7ff) * 1000000 + tv.tv_usec;
}

int drm_sg_alloc( struct inode *inode, struct file *filp,
		  unsigned int cmd, unsigned long arg )
{
	drm_file_t *priv = filp->private_data;
	drm_device_t *dev = priv->dev;
	drm_scatter_gather_t request;
	drm_sg_mem_t *entry;
	unsigned long pages;
	pgd_t *pgd;
	pmd_t *pmd;
	pte_t *pte;
	int i, j;
	DRM_INFO( "%s\n", __FUNCTION__ );

	if ( dev->sg ) return -EINVAL;

	if ( copy_from_user( &request,
			     (drm_scatter_gather_t *)arg,
			     sizeof(request) ) )
		return -EFAULT;

	entry = drm_alloc( sizeof(*entry), DRM_MEM_SGLISTS );
	if ( !entry ) return -ENOMEM;

   	memset( entry, 0, sizeof(*entry) );

	pages = (request.size + PAGE_SIZE - 1) / PAGE_SIZE;
	DRM_DEBUG( "sg size=%ld pages=%ld\n", request.size, pages );

	entry->pages = pages;
	entry->pagelist = drm_alloc( pages * sizeof(*entry->pagelist),
				     DRM_MEM_PAGES );
	if ( !entry->pagelist ) {
		drm_free( entry, sizeof(*entry), DRM_MEM_SGLISTS );
		return -ENOMEM;
	}

	/* FIXME: We should really have a kernel call for this...
	 */
	entry->virtual = __vmalloc( (pages << PAGE_SHIFT),
				    GFP_KERNEL,
				    PAGE_KERNEL);
	if ( !entry->virtual ) {
		drm_free( entry->pagelist,
			  entry->pages * sizeof(*entry->pagelist),
			  DRM_MEM_PAGES );
		drm_free( entry,
			  sizeof(*entry),
			  DRM_MEM_SGLISTS );
		return -ENOMEM;
	}

	/* This also forces the mapping of COW pages, so our page list
	 * will be valid.  Please don't remove it...
	 */
	memset( entry->virtual, 0, pages << PAGE_SHIFT );

	entry->handle = (unsigned long)entry->virtual;

	DRM_DEBUG( "sg alloc handle  = %08lx\n", entry->handle );
	DRM_DEBUG( "sg alloc virtual = %p\n", entry->virtual );

	for ( i = entry->handle, j = 0 ; j < pages ; i += PAGE_SIZE, j++ ) {
		pgd = pgd_offset_k( i );
		pmd = pmd_offset( pgd, i );
		pte = pte_offset( pmd, i );

		entry->pagelist[j]= pte_page( *pte );
		SetPageReserved( entry->pagelist[j] );

		if ( j < 16 ) {
			DRM_DEBUG("0x%08lx (page %lu) => 0x%08lx\n",
				  i, j,
				  (unsigned long)entry->pagelist[j]->virtual);
		}
	}

	request.handle = entry->handle;

	if ( copy_to_user( (drm_scatter_gather_t *)arg,
			   &request,
			   sizeof(request) ) ) {
		drm_sg_cleanup( entry );
		return -EFAULT;
	}

	dev->sg = entry;

#ifdef DEBUG_SCATTER
	/* Verify that each page points to its virtual address, and vice
	 * versa.
	 */
	{
	int error = 0;

	for(i = 0; i < pages; i++) {
		unsigned long *tmp;

		tmp = (unsigned long *)entry->pagelist[i]->virtual;
		for(j = 0; j < PAGE_SIZE / sizeof(unsigned long); j++, tmp++) {
			*tmp = 0xcafebabe;
		}
		tmp = (unsigned long *)((u8 *)entry->virtual +
					(PAGE_SIZE * i));
		for(j = 0; j < PAGE_SIZE / sizeof(unsigned long); j++, tmp++) {
			if(*tmp != 0xcafebabe && error == 0) {
				error = 1;
				printk("Scatter allocation error, pagelist"
				       " does not match virtual mapping\n");
			}
		}
		tmp = (unsigned long *)entry->pagelist[i]->virtual;
		for(j = 0; j < PAGE_SIZE / sizeof(unsigned long); j++, tmp++) {
			*tmp = 0;
		}
	}
	if(error == 0) printk("Scatter allocation matches pagelist\n");
	}
#endif

	return 0;
}

int drm_sg_free( struct inode *inode, struct file *filp,
		 unsigned int cmd, unsigned long arg )
{
	drm_file_t *priv = filp->private_data;
	drm_device_t *dev = priv->dev;
	drm_scatter_gather_t request;
	drm_sg_mem_t *entry;

	if ( copy_from_user( &request,
			     (drm_scatter_gather_t *)arg,
			     sizeof(request) ) )
		return -EFAULT;

	entry = dev->sg;
	dev->sg = NULL;

	if ( !entry || entry->handle != request.handle ) return -EINVAL;

	DRM_INFO( "sg free virtual  = %p\n", entry->virtual );

	drm_sg_cleanup( entry );

	return 0;
}