/* Copyrightg (c) 2007 Advanced Micro Devices, Inc.
 *
 * 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 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 THE
 * AUTHORS OR COPYRIGHT HOLDERS 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.
 *
 * Neither the name of the Advanced Micro Devices, Inc. nor the names of its
 * contributors may be used to endorse or promote products derived from this
 * software without specific prior written permission.
 */

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

#include "xf86.h"
#include "shadow.h"
#include "amd.h"

static void *
LXWindowLinear(ScreenPtr pScreen, CARD32 row, CARD32 offset, int mode,
    CARD32 * size, void *closure)
{
    ScrnInfoPtr pScrni = xf86Screens[pScreen->myNum];
    GeodeRec *pGeode = GEODEPTR(pScrni);

    *size = pGeode->displayPitch;

    return (pGeode->FBBase + pGeode->displayOffset) +
	row * pGeode->displayPitch + offset;
}

void
LXUpdateFunc(ScreenPtr pScreen, shadowBufPtr pBuf)
{
  RegionPtr   damage = shadowDamage (pBuf);

  int         nbox = REGION_NUM_RECTS (damage);
  BoxPtr      pbox = REGION_RECTS (damage);
  int         x, y, w, h, degrees;
  FbStride    shaStride;
  FbBits      *shaBits;
  int         shaBpp, dx, dy,dw, dh;
  int         shaXoff, shaYoff;
  unsigned int srcOffset, dstOffset;
  PixmapPtr   pShadow = pBuf->pPixmap;
  ScrnInfoPtr pScrni = xf86Screens[pScreen->myNum];
  GeodeRec *pGeode = GEODEPTR(pScrni);

  unsigned int srcBase;

  fbGetDrawable (&pShadow->drawable, shaBits, shaStride, shaBpp, shaXoff,
		shaYoff);

  /* Set up the blt */

  gp_declare_blt(0);

  switch(shaBpp) {
	case 8:
		gp_set_source_format(CIMGP_SOURCE_FMT_3_3_2);
		break;

	case 16:
		gp_set_source_format(CIMGP_SOURCE_FMT_0_5_6_5);
		break;

	case 32:
		gp_set_source_format(CIMGP_SOURCE_FMT_8_8_8_8);
		break;
  }

  gp_set_bpp(pScrni->bitsPerPixel);
  gp_set_raster_operation(0xCC);
  gp_write_parameters();

  while(nbox--) {
    x = pbox->x1;
    y = pbox->y1;
    w = (pbox->x2 - pbox->x1);
    h = pbox->y2 - pbox->y1;

    srcOffset = ((unsigned long) shaBits) - ((unsigned long) pGeode->FBBase);
    srcOffset += (y * pGeode->Pitch)  + (x * (shaBpp >> 3));

    switch(pGeode->rotation) {
    case RR_Rotate_90:
      dx = (pScrni->pScreen->height - 1) - (y + (h-1));
      dy = x;
      dw = h;
      dh = w;
      degrees = 90;
      break;

    case RR_Rotate_180:
      dx = (pScrni->pScreen->width - 1) - (x + (w-1));
      dy = (pScrni->pScreen->height - 1) - (y + (h-1));
      dw = w;
      dh = h;

      degrees = 180;
      break;

    case RR_Rotate_270:
      dy = (pScrni->pScreen->width - 1) - (x + (w-1));
      dx = y;
      dw = h;
      dh = w;

      degrees = 270;
      break;
    }

    dstOffset = pGeode->displayOffset +
      (dy * pGeode->displayPitch) + (dx * (pScrni->bitsPerPixel >> 3));

    gp_declare_blt(0);
    gp_set_strides(pGeode->displayPitch, pGeode->Pitch);
    gp_rotate_blt(dstOffset, srcOffset, w, h, degrees);
  }
}

Bool
LXRotate(ScrnInfoPtr pScrni, DisplayModePtr mode)
{
    GeodeRec *pGeode = GEODEPTR(pScrni);
    Rotation curr = pGeode->rotation;
    unsigned int curdw = pScrni->displayWidth;
    PixmapPtr pPixmap;
    BOOL ret;

    pPixmap = pScrni->pScreen->GetScreenPixmap(pScrni->pScreen);
    pGeode->rotation = LXGetRotation(pScrni->pScreen);

    /* Leave if we have nothing to do */

    if (pGeode->rotation == curr && pGeode->curMode == mode) {
	return TRUE;
    }

    shadowRemove(pScrni->pScreen, NULL);

    switch (pGeode->rotation) {
    case RR_Rotate_0:
	ErrorF("Rotate to 0 degrees\n");
	pScrni->displayWidth = pGeode->displayWidth;
	break;

    case RR_Rotate_90:
	ErrorF("Rotate to 90 degrees\n");
	pScrni->displayWidth = pScrni->pScreen->width;
	break;

    case RR_Rotate_180:
	ErrorF("Rotate to 180 degrees\n");
	pScrni->displayWidth = pGeode->displayWidth;
	break;

    case RR_Rotate_270:
	ErrorF("Rotate to 270 degrees\n");
	pScrni->displayWidth = pScrni->pScreen->width;
	break;
    }

    /* Set the new drawing pitch */

    if (pGeode->Compression)
		pGeode->Pitch = LXCalculatePitchBytes(pScrni->displayWidth,
		 pScrni->bitsPerPixel);
	else
		pGeode->Pitch = (pScrni->displayWidth *
		(pScrni->bitsPerPixel >> 3));

    if (pGeode->rotation != RR_Rotate_0) {


	ret = shadowAdd(pScrni->pScreen, pPixmap, LXUpdateFunc,
			LXWindowLinear, pGeode->rotation, NULL);

	/* XXX - FIXME - bail gracefully */

	if (!ret)
	    ErrorF("shadowAdd failed\n");
    }

    if (pGeode->rotation == RR_Rotate_0)
	pScrni->fbOffset = pGeode->displayOffset;
    else
	pScrni->fbOffset = pGeode->shadowOffset;

    pScrni->pScreen->ModifyPixmapHeader(pPixmap,
	pScrni->pScreen->width,
	pScrni->pScreen->height,
	pScrni->pScreen->rootDepth,
	pScrni->bitsPerPixel,
	PixmapBytePad(pScrni->displayWidth, pScrni->pScreen->rootDepth),
	(pointer) (pGeode->FBBase + pScrni->fbOffset));

    /* Don't use XAA pixmap cache or offscreen pixmaps when rotated */

    if (pGeode->AccelInfoRec) {
        if (pGeode->rotation == RR_Rotate_0) {
            pGeode->AccelInfoRec->Flags = LINEAR_FRAMEBUFFER | OFFSCREEN_PIXMAPS | PIXMAP_CACHE;
            pGeode->AccelInfoRec->UsingPixmapCache = TRUE;
            pGeode->AccelInfoRec->maxOffPixWidth = 0;
            pGeode->AccelInfoRec->maxOffPixHeight = 0;
        }
        else {
            pGeode->AccelInfoRec->Flags = LINEAR_FRAMEBUFFER;
            pGeode->AccelInfoRec->UsingPixmapCache = FALSE;
            pGeode->AccelInfoRec->maxOffPixWidth = 1;
            pGeode->AccelInfoRec->maxOffPixHeight = 1;
        }
    }

    return TRUE;

error:
    /* Restore the old rotation */
    pScrni->displayWidth = curdw;

    if (curr & (RR_Rotate_0 | RR_Rotate_180)) {
        pScrni->pScreen->width = pScrni->virtualX;
        pScrni->pScreen->height = pScrni->virtualY;
    } else {
        pScrni->pScreen->width = pScrni->virtualY;
	pScrni->pScreen->height = pScrni->virtualX;
    }

    pGeode->rotation = curr;
    return FALSE;
}