/* $NetBSD: pm3_exa.c,v 1.6 2017/01/13 20:54:48 macallan Exp $ */

/*
 * Copyright (c) 2016 Michael Lorenz
 * All rights reserved.
 */

/* much of this is based on pm3_accel.c, therefore... */
/*
 * Copyright 2000-2001 by Sven Luther <luther@dpt-info.u-strasbg.fr>.
 *
 * Permission to use, copy, modify, distribute, and sell this software and its
 * documentation for any purpose is hereby granted without fee, provided that
 * the above copyright notice appear in all copies and that both that
 * copyright notice and this permission notice appear in supporting
 * documentation, and that the name of Sven Luther not be used in
 * advertising or publicity pertaining to distribution of the software without
 * specific, written prior permission. Sven Luther makes no representations
 * about the suitability of this software for any purpose. It is provided
 * "as is" without express or implied warranty.
 *
 * SVEN LUTHER DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE,
 * INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO
 * EVENT SHALL SVEN LUTHER BE LIABLE FOR ANY SPECIAL, INDIRECT OR
 * CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE,
 * DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER
 * TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
 * PERFORMANCE OF THIS SOFTWARE.
 *
 * Authors:  Sven Luther, <luther@dpt-info.u-strasbg.fr>
 *           Alan Hourihane, <alanh@fairlite.demon.co.uk>
 *
 * this work is sponsored by Appian Graphics.
 * 
 * Permedia 3 accelerated options.
 */

#ifdef HAVE_CONFIG_H
#include "config.h"
#endif

/* all driver need this */
#include "xf86.h"
#include "xf86_OSproc.h"
#include "compiler.h"
#include "exa.h"

#include "glint_regs.h"
#include "pm3_regs.h"
#include "glint.h"

/*#define PM3_DEBUG*/

#ifdef PM3_DEBUG
#define ENTER xf86Msg(X_ERROR, "%s>\n", __func__);
#define DPRINTF xf86Msg
#else
#define ENTER
#define DPRINTF while (0) xf86Msg
#endif

static void
Pm3WaitMarker(ScreenPtr pScreen, int Marker)
{
	ScrnInfoPtr pScrn = xf86Screens[pScreen->myNum];

	Permedia3Sync(pScrn);
}

static Bool
Pm3PrepareCopy(PixmapPtr pSrcPixmap, PixmapPtr pDstPixmap,
		int xdir, int ydir, int rop, Pixel planemask)
{
	ScrnInfoPtr pScrn = xf86Screens[pDstPixmap->drawable.pScreen->myNum];
	GLINTPtr pGlint = GLINTPTR(pScrn);
	int dstoff = exaGetPixmapOffset(pDstPixmap);
	int dstpitch = exaGetPixmapPitch(pDstPixmap);
	int srcoff = exaGetPixmapOffset(pSrcPixmap);
	int srcpitch = exaGetPixmapPitch(pSrcPixmap);

	ENTER;

	pGlint->PM3_Render2D =
		PM3Render2D_SpanOperation |
		PM3Render2D_Operation_Normal;

	pGlint->PM3_Config2D =
		PM3Config2D_UserScissorEnable |
		PM3Config2D_ForegroundROPEnable |
		PM3Config2D_ForegroundROP(rop) |
		PM3Config2D_FBWriteEnable;

	if (xdir == 1) pGlint->PM3_Render2D |= PM3Render2D_XPositive;
	if (ydir == 1) pGlint->PM3_Render2D |= PM3Render2D_YPositive;

	if ((rop!=GXclear)&&(rop!=GXset)&&(rop!=GXnoop)&&(rop!=GXinvert)) {
		pGlint->PM3_Render2D |= PM3Render2D_FBSourceReadEnable;
		pGlint->PM3_Config2D |= PM3Config2D_Blocking;
	}

	if ((rop!=GXclear)&&(rop!=GXset)&&(rop!=GXcopy)&&(rop!=GXcopyInverted))
		pGlint->PM3_Config2D |= PM3Config2D_FBDestReadEnable;

	pGlint->srcoff = exaGetPixmapOffset(pSrcPixmap);

	GLINT_WAIT(10);
	GLINT_WRITE_REG(dstoff, PM3FBWriteBufferAddr0);
	GLINT_WRITE_REG(dstpitch >> 2, PM3FBWriteBufferWidth0);
	GLINT_WRITE_REG(dstoff, PM3FBDestReadBufferAddr0);
	GLINT_WRITE_REG(dstpitch >> 2, PM3FBDestReadBufferWidth0);
	GLINT_WRITE_REG(srcoff, PM3FBSourceReadBufferAddr);
	GLINT_WRITE_REG(srcpitch >> 2, PM3FBSourceReadBufferWidth);
	GLINT_WRITE_REG(PM3FBWriteMode_WriteEnable|
		PM3FBWriteMode_OpaqueSpan|
		PM3FBWriteMode_Enable0,
		PM3FBWriteMode);
	GLINT_WRITE_REG(
		PM3FBDestReadMode_ReadEnable |
		PM3FBDestReadMode_Enable0,
		PM3FBDestReadMode);
	PM3_PLANEMASK(planemask);
	GLINT_WRITE_REG(pGlint->PM3_Config2D, PM3Config2D);
	return TRUE;
}

static void
Pm3Copy(PixmapPtr pDstPixmap,
         int srcX, int srcY, int dstX, int dstY, int w, int h)
{
	ScrnInfoPtr pScrn = xf86Screens[pDstPixmap->drawable.pScreen->myNum];
	GLINTPtr pGlint = GLINTPTR(pScrn);
	/* Spans needs to be 32 bit aligned. */
	int x_align = srcX & 0x1f;
	
	ENTER;

	GLINT_WAIT(5);
	GLINT_WRITE_REG(((dstY & 0x0fff) << 16) | (dstX & 0x0fff), ScissorMinXY);
	GLINT_WRITE_REG((((dstY + h) & 0x0fff) << 16) | ((dstX + w) & 0x0fff), ScissorMaxXY);
	GLINT_WRITE_REG(
		PM3RectanglePosition_XOffset(dstX - x_align) |
		PM3RectanglePosition_YOffset(dstY),
		PM3RectanglePosition);
	GLINT_WRITE_REG(
		PM3FBSourceReadBufferOffset_XOffset(srcX - dstX)|
		PM3FBSourceReadBufferOffset_YOffset(srcY - dstY),
		PM3FBSourceReadBufferOffset);
	GLINT_WRITE_REG(pGlint->PM3_Render2D |
		PM3Render2D_Width(w + x_align)|
		PM3Render2D_Height(h),
		PM3Render2D);
	exaMarkSync(pDstPixmap->drawable.pScreen);
}

static void
Pm3DoneCopy(PixmapPtr pPixmap)
{
	ScrnInfoPtr pScrn = xf86Screens[pPixmap->drawable.pScreen->myNum];
	GLINTPtr pGlint = GLINTPTR(pScrn);

	GLINT_WRITE_REG(0, ScissorMinXY);
	GLINT_WRITE_REG(0x0fff0fff, ScissorMaxXY);
}

static Bool
Pm3PrepareSolid(PixmapPtr pPixmap, int rop, Pixel planemask, Pixel color)
{
	ScrnInfoPtr pScrn = xf86Screens[pPixmap->drawable.pScreen->myNum];
	GLINTPtr pGlint = GLINTPTR(pScrn);
	int offset = exaGetPixmapOffset(pPixmap);
	int pitch = exaGetPixmapPitch(pPixmap);

	ENTER;

	GLINT_WAIT(6);
	GLINT_WRITE_REG(offset, PM3FBWriteBufferAddr0);
	GLINT_WRITE_REG(pitch >> 2, PM3FBWriteBufferWidth0);
	GLINT_WRITE_REG(offset, PM3FBDestReadBufferAddr0);
	GLINT_WRITE_REG(pitch >> 2, PM3FBDestReadBufferWidth0);
	GLINT_WRITE_REG(PM3FBWriteMode_WriteEnable|
		PM3FBWriteMode_OpaqueSpan|
		PM3FBWriteMode_Enable0,
		PM3FBWriteMode);
	GLINT_WRITE_REG(
		PM3FBDestReadMode_ReadEnable |
		PM3FBDestReadMode_Enable0,
		PM3FBDestReadMode);
	/* Prepare Common Render2D & Config2D data */
	pGlint->PM3_Render2D =
		PM3Render2D_XPositive |
		PM3Render2D_YPositive |
		PM3Render2D_Operation_Normal;
	pGlint->PM3_Config2D =
		PM3Config2D_UseConstantSource |
		PM3Config2D_ForegroundROPEnable |
		PM3Config2D_ForegroundROP(rop) |
		PM3Config2D_FBWriteEnable;
	GLINT_WAIT(3);
	REPLICATE(color);

	/* We can't do block fills properly at 32bpp, so we can stick the chip
	 * into 16bpp and double the width and xcoord, but it seems that at
	 * extremely high resolutions (above 1600) it doesn't fill.
	 * so, we fall back to the slower span filling method.
	 */
#if 0
	if ((rop == GXcopy) && (pScrn->bitsPerPixel == 32) && 
	    (pScrn->displayWidth <= 1600)) {
		pGlint->AccelInfoRec->SubsequentSolidFillRect = 
		    Permedia3SubsequentFillRectSolid32bpp;

		if (pGlint->PM3_UsingSGRAM) {
			GLINT_WRITE_REG(color, PM3FBBlockColor);
		} else {
			pGlint->PM3_Render2D |= PM3Render2D_SpanOperation;
			GLINT_WRITE_REG(color, PM3ForegroundColor);
		}
	} else {
	    	pGlint->AccelInfoRec->SubsequentSolidFillRect = 
			Permedia3SubsequentFillRectSolid;
#endif
	    	/* Can't do block fills at 8bpp either */
	    	if ((rop == GXcopy) && (pScrn->bitsPerPixel == 16)) {
			if (pGlint->PM3_UsingSGRAM) {
				GLINT_WRITE_REG(color, PM3FBBlockColor);
			} else {
	        		pGlint->PM3_Render2D |= PM3Render2D_SpanOperation;
				GLINT_WRITE_REG(color, PM3ForegroundColor);
			}
        	} else {
			pGlint->PM3_Render2D |= PM3Render2D_SpanOperation;
			GLINT_WRITE_REG(color, PM3ForegroundColor);
    		}
#if 0
	}
#endif
	PM3_PLANEMASK(planemask);
	if (((rop != GXclear) && 
	     (rop != GXset) &&
	     (rop != GXcopy) &&
	     (rop != GXcopyInverted)) ||
	    ((planemask != 0xffffffff) && !(pGlint->PM3_UsingSGRAM)))
		pGlint->PM3_Config2D |= PM3Config2D_FBDestReadEnable;
	GLINT_WRITE_REG(pGlint->PM3_Config2D, PM3Config2D);
	return TRUE;
}

static void
Pm3Solid(PixmapPtr pPixmap, int x1, int y1, int x2, int y2)
{
	ScrnInfoPtr pScrn = xf86Screens[pPixmap->drawable.pScreen->myNum];
	GLINTPtr pGlint = GLINTPTR(pScrn);
	int w = x2 - x1, h = y2 - y1;

	ENTER;

	GLINT_WAIT(2);
	GLINT_WRITE_REG(
		PM3RectanglePosition_XOffset(x1) |
		PM3RectanglePosition_YOffset(y1),
		PM3RectanglePosition);
	GLINT_WRITE_REG(pGlint->PM3_Render2D |
		PM3Render2D_Width(w) | PM3Render2D_Height(h),
		PM3Render2D);

	exaMarkSync(pPixmap->drawable.pScreen);
}

/*
 * Memcpy-based UTS.
 */
static Bool
Pm3UploadToScreen(PixmapPtr pDst, int x, int y, int w, int h,
    char *src, int src_pitch)
{
	ScrnInfoPtr pScrn = xf86Screens[pDst->drawable.pScreen->myNum];
	GLINTPtr pGlint    = GLINTPTR(pScrn);
	unsigned char *dst = pGlint->FbBase + exaGetPixmapOffset(pDst);
	int    dst_pitch   = exaGetPixmapPitch(pDst);

	int bpp    = pDst->drawable.bitsPerPixel;
	int cpp    = (bpp + 7) >> 3;
	int wBytes = w * cpp;

	ENTER;
	dst += (x * cpp) + (y * dst_pitch);

	Permedia3Sync(pScrn);

	while (h--) {
		memcpy(dst, src, wBytes);
		src += src_pitch;
		dst += dst_pitch;
	}
	return TRUE;
}

/*
 * Memcpy-based DFS.
 */
static Bool
Pm3DownloadFromScreen(PixmapPtr pSrc, int x, int y, int w, int h,
    char *dst, int dst_pitch)
{
 	ScrnInfoPtr pScrn = xf86Screens[pSrc->drawable.pScreen->myNum];
	GLINTPtr pGlint    = GLINTPTR(pScrn);
	unsigned char *src = pGlint->FbBase + exaGetPixmapOffset(pSrc);
	int    src_pitch   = exaGetPixmapPitch(pSrc);

	ENTER;
	int bpp    = pSrc->drawable.bitsPerPixel;
	int cpp    = (bpp + 7) >> 3;
	int wBytes = w * cpp;

	src += (x * cpp) + (y * src_pitch);

	Permedia3Sync(pScrn);

	while (h--) {
		memcpy(dst, src, wBytes);
		src += src_pitch;
		dst += dst_pitch;
	}

	return TRUE;
}

Bool
Pm3InitEXA(ScreenPtr pScreen)
{
	ScrnInfoPtr pScrn = xf86Screens[pScreen->myNum];
	GLINTPtr pGlint = GLINTPTR(pScrn);
	ExaDriverPtr pExa;
	int stride;

	ENTER;

	pExa = exaDriverAlloc();
	if (!pExa)
		return FALSE;

	pGlint->pExa = pExa;

	pExa->exa_major = EXA_VERSION_MAJOR;
	pExa->exa_minor = EXA_VERSION_MINOR;

	pExa->memoryBase = pGlint->FbBase;
	stride = pScrn->displayWidth * (pScrn->bitsPerPixel >> 3);
	pExa->offScreenBase = stride * pScrn->virtualY;
	pExa->memorySize = pGlint->FbMapSize;

	pExa->pixmapOffsetAlign = 32;
	pExa->pixmapPitchAlign = 32;

	pExa->flags = EXA_OFFSCREEN_PIXMAPS;

	pExa->maxX = 4095;
	pExa->maxY = 4095;

	pExa->WaitMarker = Pm3WaitMarker;

	pExa->PrepareSolid = Pm3PrepareSolid;
	pExa->Solid = Pm3Solid;
	pExa->DoneSolid = Pm3DoneCopy;
	pExa->PrepareCopy = Pm3PrepareCopy;
	pExa->Copy = Pm3Copy;
	pExa->DoneCopy = Pm3DoneCopy;

	/* EXA hits more optimized paths when it does not have to fallback 
	 * because of missing UTS/DFS, hook memcpy-based UTS/DFS.
	 */
	pExa->UploadToScreen = Pm3UploadToScreen;
	pExa->DownloadFromScreen = Pm3DownloadFromScreen;

	Permedia3InitializeEngine(pScrn);

	return exaDriverInit(pScreen, pExa);
}