/* See LICENSE file for copyright and license details. */
#include "libgamma_CRTC.h"
#include <errno.h>
#include <stdlib.h>

#include <libgamma.h>


/**
 * Make a failure-return
 * 
 * @param   error_code  The error code returned from the failing function or zero to read `errno`
 * @return              The object to return
 */
static jlongArray
fail(JNIEnv *env, int error_code)
{
	jlongArray rc = (*env)->NewLongArray(env, 2);
	jlong e, z = 0;
	if ((error_code == LIBGAMMA_ERRNO_SET) || !error_code)
		error_code = errno;
	e = (jlong)error_code;
	(*env)->SetLongArrayRegion(env, rc, 0, 1, &z);
	(*env)->SetLongArrayRegion(env, rc, 1, 1, &e);
	return rc;
}

/**
 * Make a success-return
 * 
 * @param   state  The native object
 * @return         The object to return
 */
static jlongArray
ok(JNIEnv *env, void *state)
{
	jlong a = (jlong)(size_t)state, z = 0;
	jlongArray rc = (*env)->NewLongArray(env, 2);
	(*env)->SetLongArrayRegion(env, rc, 0, 1, &a);
	(*env)->SetLongArrayRegion(env, rc, 1, 1, &z);
	return rc;
}

/**
 * Create a CRTC state
 * 
 * @param   partition  The partition state for the partition that the CRTC belongs to
 * @param   crtc       The index of the CRTC within the partition
 * @return             Element 0: The value for {@link #address}
 *                     Element 1: Error code, zero on success
 */
jlongArray
Java_libgamma_CRTC_libgamma_1crtc_1create(JNIEnv *env, jclass class, jlong partition, jint crtc)
{
	libgamma_crtc_state_t *state = malloc(sizeof(libgamma_crtc_state_t));
	void *super = (void *)(size_t)partition;
	int r;
	if (!state)
		return fail(env, 0);
	r = libgamma_crtc_initialise(state, super, (size_t)crtc);
	if (r)
		return fail(env, r);
	return ok(env, state);
	(void) class;
}

/**
 * Release all resources held by a CRTC state
 * and free the CRTC state pointer
 * 
 * @param  address  The CRTC state
 */
void
Java_libgamma_CRTC_libgamma_1crtc_1free(JNIEnv *env, jclass class, jlong address)
{
	void *this = (void *)(size_t)address;
	libgamma_crtc_free(this);
	(void) env;
	(void) class;
}

/**
 * Restore the gamma ramps for a CRTC to the system settings for that CRTC
 * 
 * @param   address  The CRTC state
 * @return           Zero on success, and error code on failure
 */
jint
Java_libgamma_CRTC_libgamma_1crtc_1restore(JNIEnv *env, jclass class, jlong address)
{
	void *this = (void *)(size_t)address;
	int r = libgamma_crtc_restore(this);
	if (r)
		return r == LIBGAMMA_ERRNO_SET ? errno : r;
	return 0;
	(void) env;
	(void) class;
}


/**
 * Read information about a CRTC
 * 
 * @param   crtc    The state of the CRTC whose information should be read
 * @param   fields  OR:ed identifiers for the information about the CRTC that should be read
 * @return          Input parameters for the constructor of {@link CRTCInformation}
 */
jobjectArray
Java_libgamma_CRTC_libgamma_1get_1crtc_1information(JNIEnv *env, jclass class, jlong crtc, jint fields)
{
	void *this_voidp = (void *)(size_t)crtc;
	libgamma_crtc_state_t *this = this_voidp;
	jbyteArray edid = NULL;
	jstring connector_name = NULL;
	jclass class_of_jobject = (*env)->FindClass(env, "java/lang/Object");
	jintArray ints_ = (*env)->NewIntArray(env, 25);
	jfloatArray gamma_ = (*env)->NewFloatArray(env, 3);
	jobjectArray rc = (*env)->NewObjectArray(env, 4, class_of_jobject, NULL);
	libgamma_crtc_information_t info;
	jint ints[25];
	jfloat gamma[3];

	libgamma_get_crtc_information(&info, this, fields);

	if (info.edid) {
		edid = (*env)->NewByteArray(env, (jsize)info.edid_length);
		(*env)->SetByteArrayRegion(env, edid, 0, (jsize)info.edid_length, (const jbyte*)(info.edid));
		free(info.edid);
	}

	if (connector_name)
		connector_name = (*env)->NewStringUTF(env, info.connector_name);

	gamma[0] = (jfloat)info.gamma_red;
	gamma[1] = (jfloat)info.gamma_green;
	gamma[2] = (jfloat)info.gamma_blue;

	ints[0] = (jint)info.edid_error;
	ints[1] = (jint)info.width_mm;
	ints[2] = (jint)info.width_mm_error;
	ints[3] = (jint)info.height_mm;
	ints[4] = (jint)info.height_mm_error;
	ints[5] = (jint)info.width_mm_edid;
	ints[6] = (jint)info.width_mm_edid_error;
	ints[7] = (jint)info.height_mm_edid;
	ints[8] = (jint)info.height_mm_edid_error;
	ints[9] = (jint)info.red_gamma_size;
	ints[10] = (jint)info.green_gamma_size;
	ints[11] = (jint)info.blue_gamma_size;
	ints[12] = (jint)info.gamma_size_error;
	ints[13] = (jint)info.gamma_depth;
	ints[14] = (jint)info.gamma_depth_error;
	ints[15] = (jint)info.gamma_support;
	ints[16] = (jint)info.gamma_support_error;
	ints[17] = (jint)info.subpixel_order;
	ints[18] = (jint)info.subpixel_order_error;
	ints[19] = (jint)info.active;
	ints[20] = (jint)info.active_error;
	ints[21] = (jint)info.connector_name_error;
	ints[22] = (jint)info.connector_type;
	ints[23] = (jint)info.connector_type_error;
	ints[24] = (jint)info.gamma_error;

	(*env)->SetIntArrayRegion(env, ints_, 0, 25, ints);
	(*env)->SetFloatArrayRegion(env, gamma_, 0, 3, gamma);

	(*env)->SetObjectArrayElement(env, rc, 0, edid);
	(*env)->SetObjectArrayElement(env, rc, 1, connector_name);
	(*env)->SetObjectArrayElement(env, rc, 2, gamma_);
	(*env)->SetObjectArrayElement(env, rc, 3, ints_);

	return rc;
	(void) class;
}

/**
 * Get the current gamma ramps for a CRTC, 8-bit gamma-depth version
 * 
 * @param   address  The CRTC state
 * @param   ramps    The gamma ramps to fill with the current values
 * @return           Zero on success, an error code on failure
 */
jint
Java_libgamma_CRTC_libgamma_1crtc_1get_1gamma_1ramps8(JNIEnv *env, jclass class, jlong address, jlong ramps)
{
	void *crtc_voidp = (void *)(size_t)address;
	libgamma_crtc_state_t *crtc = crtc_voidp;
	void *output_voidp = (void *)(size_t)ramps;
	libgamma_gamma_ramps8_t *output = output_voidp;
	int r = libgamma_crtc_get_gamma_ramps8(crtc, output);
	return r == LIBGAMMA_ERRNO_SET ? errno : r;
	(void) env;
	(void) class;
}

/**
 * Set the gamma ramps for a CRTC, 8-bit gamma-depth version
 * 
 * @param   address  The CRTC state
 * @param   ramps    The gamma ramps to apply
 * @return           Zero on success, an error code on failure
 */
jint
Java_libgamma_CRTC_libgamma_1crtc_1set_1gamma_1ramps8(JNIEnv *env, jclass class, jlong address, jlong ramps)
{
	void *crtc_voidp = (void *)(size_t)address;
	libgamma_crtc_state_t *crtc = crtc_voidp;
	void *values_voidp = (void *)(size_t)ramps;
	libgamma_gamma_ramps8_t *values = values_voidp;
	int r = libgamma_crtc_set_gamma_ramps8(crtc, *values);
	return r == LIBGAMMA_ERRNO_SET ? errno : r;
	(void) env;
	(void) class;
}

/**
 * Get the current gamma ramps for a CRTC, 16-bit gamma-depth version
 * 
 * @param   address  The CRTC state
 * @param   ramps    The gamma ramps to fill with the current values
 * @return           Zero on success, an error code on failure
 */
jint
Java_libgamma_CRTC_libgamma_1crtc_1get_1gamma_1ramps16(JNIEnv *env, jclass class, jlong address, jlong ramps)
{
	void *crtc_voidp = (void *)(size_t)address;
	libgamma_crtc_state_t *crtc = crtc_voidp;
	void *output_voidp = (void *)(size_t)ramps;
	libgamma_gamma_ramps16_t *output = output_voidp;
	int r = libgamma_crtc_get_gamma_ramps16(crtc, output);
	return r == LIBGAMMA_ERRNO_SET ? errno : r;
	(void) env;
	(void) class;
}

/**
 * Set the gamma ramps for a CRTC, 16-bit gamma-depth version
 * 
 * @param   address  The CRTC state
 * @param   ramps    The gamma ramps to apply
 * @return           Zero on success, an error code on failure
 */
jint
Java_libgamma_CRTC_libgamma_1crtc_1set_1gamma_1ramps16(JNIEnv *env, jclass class, jlong address, jlong ramps)
{
	void *crtc_voidp = (void *)(size_t)address;
	libgamma_crtc_state_t *crtc = crtc_voidp;
	void *values_voidp = (void *)(size_t)ramps;
	libgamma_gamma_ramps16_t *values = values_voidp;
	int r = libgamma_crtc_set_gamma_ramps16(crtc, *values);
	return r == LIBGAMMA_ERRNO_SET ? errno : r;
	(void) env;
	(void) class;
}

/**
 * Get the current gamma ramps for a CRTC, 32-bit gamma-depth version
 * 
 * @param   address  The CRTC state
 * @param   ramps    The gamma ramps to fill with the current values
 * @return           Zero on success, an error code on failure
 */
jint
Java_libgamma_CRTC_libgamma_1crtc_1get_1gamma_1ramps32(JNIEnv *env, jclass class, jlong address, jlong ramps)
{
	void *crtc_voidp = (void *)(size_t)address;
	libgamma_crtc_state_t *crtc = crtc_voidp;
	void *output_voidp = (void *)(size_t)ramps;
	libgamma_gamma_ramps32_t *output = output_voidp;
	int r = libgamma_crtc_get_gamma_ramps32(crtc, output);
	return r == LIBGAMMA_ERRNO_SET ? errno : r;
	(void) env;
	(void) class;
}

/**
 * Set the gamma ramps for a CRTC, 32-bit gamma-depth version
 * 
 * @param   address  The CRTC state
 * @param   ramps    The gamma ramps to apply
 * @return           Zero on success, an error code on failure
 */
jint
Java_libgamma_CRTC_libgamma_1crtc_1set_1gamma_1ramps32(JNIEnv *env, jclass class, jlong address, jlong ramps)
{
	void *crtc_voidp = (void *)(size_t)address;
	libgamma_crtc_state_t *crtc = crtc_voidp;
	void *values_voidp = (void *)(size_t)ramps;
	libgamma_gamma_ramps32_t *values = values_voidp;
	int r = libgamma_crtc_set_gamma_ramps32(crtc, *values);
	return r == LIBGAMMA_ERRNO_SET ? errno : r;
	(void) env;
	(void) class;
}

/**
 * Get the current gamma ramps for a CRTC, 64-bit gamma-depth version
 * 
 * @param   address  The CRTC state
 * @param   ramps    The gamma ramps to fill with the current values
 * @return           Zero on success, an error code on failure
 */
jint
Java_libgamma_CRTC_libgamma_1crtc_1get_1gamma_1ramps64(JNIEnv *env, jclass class, jlong address, jlong ramps)
{
	void *crtc_voidp = (void *)(size_t)address;
	libgamma_crtc_state_t *crtc = crtc_voidp;
	void *output_voidp = (void *)(size_t)ramps;
	libgamma_gamma_ramps64_t *output = output_voidp;
	int r = libgamma_crtc_get_gamma_ramps64(crtc, output);
	return r == LIBGAMMA_ERRNO_SET ? errno : r;
	(void) env;
	(void) class;
}

/**
 * Set the gamma ramps for a CRTC, 64-bit gamma-depth version
 * 
 * @param   address  The CRTC state
 * @param   ramps    The gamma ramps to apply
 * @return           Zero on success, an error code on failure
 */
jint
Java_libgamma_CRTC_libgamma_1crtc_1set_1gamma_1ramps64(JNIEnv *env, jclass class, jlong address, jlong ramps)
{
	void *crtc_voidp = (void *)(size_t)address;
	libgamma_crtc_state_t *crtc = crtc_voidp;
	void *values_voidp = (void *)(size_t)ramps;
	libgamma_gamma_ramps64_t *values = values_voidp;
	int r = libgamma_crtc_set_gamma_ramps64(crtc, *values);
	return r == LIBGAMMA_ERRNO_SET ? errno : r;
	(void) env;
	(void) class;
}

/**
 * Set the gamma ramps for a CRTC, single precision floating point version
 * 
 * @param   address  The CRTC state
 * @param   ramps    The gamma ramps to apply
 * @return           Zero on success, an error code on failure
 */
jint
Java_libgamma_CRTC_libgamma_1crtc_1set_1gamma_1rampsf(JNIEnv *env, jclass class, jlong address, jlong ramps)
{
	void *crtc_voidp = (void *)(size_t)address;
	libgamma_crtc_state_t *crtc = crtc_voidp;
	void *output_voidp = (void *)(size_t)ramps;
	libgamma_gamma_rampsf_t *output = output_voidp;
	int r = libgamma_crtc_get_gamma_rampsf(crtc, output);
	return r == LIBGAMMA_ERRNO_SET ? errno : r;
	(void) env;
	(void) class;
}

/**
 * Get the current gamma ramps for a CRTC, single precision floating point version
 * 
 * @param   address  The CRTC state
 * @param   ramps    The gamma ramps to fill with the current values
 * @return           Zero on success, an error code on failure
 */
jint
Java_libgamma_CRTC_libgamma_1crtc_1get_1gamma_1rampsf(JNIEnv *env, jclass class, jlong address, jlong ramps)
{
	void *crtc_voidp = (void *)(size_t)address;
	libgamma_crtc_state_t * crtc = crtc_voidp;
	void *values_voidp = (void *)(size_t)ramps;
	libgamma_gamma_rampsf_t * values = values_voidp;
	int r = libgamma_crtc_set_gamma_rampsf(crtc, *values);
	return r == LIBGAMMA_ERRNO_SET ? errno : r;
	(void) env;
	(void) class;
}

/**
 * Get the current gamma ramps for a CRTC, double precision floating point version
 * 
 * @param   address  The CRTC state
 * @param   ramps    The gamma ramps to fill with the current values
 * @return           Zero on success, an error code on failure
 */
jint
Java_libgamma_CRTC_libgamma_1crtc_1get_1gamma_1rampsd(JNIEnv *env, jclass class, jlong address, jlong ramps)
{
	void *crtc_voidp = (void *)(size_t)address;
	libgamma_crtc_state_t *crtc = crtc_voidp;
	void *output_voidp = (void *)(size_t)ramps;
	libgamma_gamma_rampsd_t *output = output_voidp;
	int r = libgamma_crtc_get_gamma_rampsd(crtc, output);
	return r == LIBGAMMA_ERRNO_SET ? errno : r;
	(void) env;
	(void) class;
}

/**
 * Set the gamma ramps for a CRTC, double precision floating point version
 * 
 * @param   address  The CRTC state
 * @param   ramps    The gamma ramps to apply
 * @return           Zero on success, an error code on failure
 */
jint
Java_libgamma_CRTC_libgamma_1crtc_1set_1gamma_1rampsd(JNIEnv *env, jclass class, jlong address, jlong ramps)
{
	void *crtc_voidp = (void *)(size_t)address;
	libgamma_crtc_state_t *crtc = crtc_voidp;
	void *values_voidp = (void *)(size_t)ramps;
	libgamma_gamma_rampsd_t *values = values_voidp;
	int r = libgamma_crtc_set_gamma_rampsd(crtc, *values);
	return r == LIBGAMMA_ERRNO_SET ? errno : r;
	(void) env;
	(void) class;
}