/* Copyright (C) 2000  Free Software Foundation

   This file is part of libgcj.

This software is copyrighted work licensed under the terms of the
Libgcj License.  Please consult the file "LIBGCJ_LICENSE" for
details.  */

#include <X11/Xlib.h>
#include <X11/Xutil.h>

#include <gcj/cni.h>
#include <gnu/gcj/RawData.h>

#include <java/lang/OutOfMemoryError.h>

#include <gnu/gcj/xlib/Display.h>
#include <gnu/gcj/xlib/Screen.h>
#include <gnu/gcj/xlib/Visual.h>
#include <gnu/gcj/xlib/XImage.h>
#include <java/lang/System.h>
#include <java/io/PrintStream.h>

void gnu::gcj::xlib::XImage::init(Visual* visual, jint depth,
				  jint format, jint xoffset,
				  jint width, jint height,
				  jint bitmapPad, jint bytesPerLine,
				  jint bitsPerPixel)
{
  ::Display* dpy = (::Display*) visual->display->display;
  ::Visual* vis = (::Visual*) visual->getVisualStructure();

  char* data = 0; // no preallocated data
  ::XImage* ximage = XCreateImage(dpy, vis, depth, format, xoffset,
				  data,
				  width, height, 
				  bitmapPad,
				  bytesPerLine
				  );
  if (ximage == 0)
    {
      jstring errorMessage = JvNewStringLatin1("XCreateImage failed");
      throw new ::java::lang::OutOfMemoryError(errorMessage);
    }
    
  bool reinitialize = false;
    
  if ((bitsPerPixel != 0) && (ximage->bits_per_pixel != bitsPerPixel))
    {
      ximage->bits_per_pixel = bitsPerPixel;
      reinitialize = true;
    }
    
  // FIXME: make autoconf test?
  jshort endianTestShort[] = { 1 };
  jbyte* endianTestByte = reinterpret_cast<jbyte*>(endianTestShort);
    
  jint byteOrder;
  if (endianTestByte[0] == 1)
    {
      // little endian machine
      byteOrder = LEAST_SIGNIFICANT_B_FIRST_ORDER;
    }
  else
    {
      // big endian machine
      byteOrder = MOST_SIGNIFICANT_B_FIRST_ORDER;
    }
  /* NB: This doesn't consider those weird machines out there with
     middle-endian byte order. */
    
  if (byteOrder != ximage->byte_order)
    {
      ximage->byte_order = byteOrder;
      reinitialize = true;
    }
    
  if (reinitialize)
    XInitImage(ximage);
    
  structure = reinterpret_cast<gnu::gcj::RawData*>(ximage);
  // Notice that no image data has been allocated at this point
}

void gnu::gcj::xlib::XImage::init(Visual* visual, 
				  jint width,
				  jint height)
{
  int depth = visual->getDepth();
    
  int format = ZPixmap; // Chunky, not planar.
  int offset = 0;
  int bitmapPad = 32; // FIXME, don't hardcode this
  int bytesPerLine = 0; // Let the server figure it out

  init(visual, depth, format, offset, width, height, bitmapPad,
       bytesPerLine, 0);
}

void gnu::gcj::xlib::XImage::internalSetData(jbyteArray data, jint offset)
{
  ::XImage* ximage = (::XImage*) structure;
  ximage->data = reinterpret_cast<char*>(elements(data)+offset);
}

void gnu::gcj::xlib::XImage::internalSetData(jshortArray data, jint offset)
{
  ::XImage* ximage = (::XImage*) structure;
  ximage->data = reinterpret_cast<char*>(elements(data)+offset);
}

void gnu::gcj::xlib::XImage::internalSetData(jintArray data, jint offset)
{
  ::XImage* ximage = (::XImage*) structure;
  ximage->data = reinterpret_cast<char*>(elements(data)+offset);
}

void gnu::gcj::xlib::XImage::finalize()
{
  ::XImage* ximage = (::XImage*) structure;
  if (ownsData)
    delete ximage->data;
  
  ximage->data = 0; // Never allow XLib to free the data allocation.
  dataRef = 0;
  XDestroyImage(ximage);
}

jint gnu::gcj::xlib::XImage::getWidth()
{
  ::XImage* ximage = (::XImage*) structure;
  return ximage->width;
}

jint gnu::gcj::xlib::XImage::getHeight()
{
  ::XImage* ximage = (::XImage*) structure;
  return ximage->height;
}

jint gnu::gcj::xlib::XImage::getDepth()
{
  ::XImage* ximage = (::XImage*) structure;
  return ximage->depth;
}

jint gnu::gcj::xlib::XImage::getFormat()
{
  ::XImage* ximage = (::XImage*) structure;
  return ximage->format;
}

jint gnu::gcj::xlib::XImage::getXOffset()
{
  ::XImage* ximage = (::XImage*) structure;
  return ximage->xoffset;
}

jint gnu::gcj::xlib::XImage::getImageByteOrder()
{
  ::XImage* ximage = (::XImage*) structure;
  return ximage->byte_order;
}

jint gnu::gcj::xlib::XImage::getBitmapBitOrder()
{
  ::XImage* ximage = (::XImage*) structure;
  return ximage->bitmap_bit_order;
}

jint gnu::gcj::xlib::XImage::getBitmapUnit()
{
  ::XImage* ximage = (::XImage*) structure;
  return ximage->bitmap_unit;
}

jint gnu::gcj::xlib::XImage::getBitmapPad()
{
  ::XImage* ximage = (::XImage*) structure;
  return ximage->bitmap_pad;
}

jint gnu::gcj::xlib::XImage::getBytesPerLine()
{
  ::XImage* ximage = (::XImage*) structure;
  return ximage->bytes_per_line;
}

jint gnu::gcj::xlib::XImage::getBitsPerPixel()
{
  ::XImage* ximage = (::XImage*) structure;
  return ximage->bits_per_pixel;
}


// True/Direct Color specific:

jint gnu::gcj::xlib::XImage::getRedMask()
{
  ::XImage* ximage = (::XImage*) structure;
  return ximage->red_mask;
}

jint gnu::gcj::xlib::XImage::getGreenMask()
{
  ::XImage* ximage = (::XImage*) structure;
  return ximage->green_mask;
}

jint gnu::gcj::xlib::XImage::getBlueMask()
{
  ::XImage* ximage = (::XImage*) structure;
  return ximage->blue_mask;
}

void gnu::gcj::xlib::XImage::setPixel(jint x, jint y, jint pixel)
{
  ::XImage* ximage = (::XImage*) structure;
  XPutPixel(ximage, x, y, pixel);
}