/*

 * Copyright 1998-2005 Sun Microsystems, Inc.  All Rights Reserved.

 * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.

 *

 * This code is free software; you can redistribute it and/or modify it

 * under the terms of the GNU General Public License version 2 only, as

 * published by the Free Software Foundation.  Sun designates this

 * particular file as subject to the "Classpath" exception as provided

 * by Sun in the LICENSE file that accompanied this code.

 *

 * This code is distributed in the hope that it will be useful, but WITHOUT

 * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or

 * FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License

 * version 2 for more details (a copy is included in the LICENSE file that

 * accompanied this code).

 *

 * You should have received a copy of the GNU General Public License version

 * 2 along with this work; if not, write to the Free Software Foundation,

 * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.

 *

 * Please contact Sun Microsystems, Inc., 4150 Network Circle, Santa Clara,

 * CA 95054 USA or visit www.sun.com if you need additional information or

 * have any questions.

 */

#include <stdlib.h>

#include <string.h>

#include <sys/time.h>

#include <sys/utsname.h>

#include <sys/types.h>

#include <errno.h>

#include <dlfcn.h>

#include "jni.h"

#include <jni_util.h>

#include "awt_Mlib.h"

#include "java_awt_image_BufferedImage.h"

static void start_timer(int numsec);

static void stop_timer(int numsec, int ntimes);

/*

 * This is called by awt_ImagingLib.initLib() to figure out if we

 * can use the VIS version of medialib

 */

mlib_status awt_getImagingLib(JNIEnv *env, mlibFnS_t *sMlibFns,

                              mlibSysFnS_t *sMlibSysFns) {

    int status;

    jstring jstr = NULL;

    mlibFnS_t *mptr;

    void *(*vPtr)();

    int (*intPtr)();

    mlib_status (*fPtr)();

    int i;

    void *handle = NULL;

    mlibSysFnS_t tempSysFns;

    static int s_timeIt = 0;

    static int s_verbose = 1;

    mlib_status ret = MLIB_SUCCESS;

    struct utsname name;

    /*

     * Find out the machine name. If it is an SUN ultra, we

     * can use the vis library

     */

    if ((uname(&name) >= 0) && (getenv("NO_VIS") == NULL) &&

        (strncmp(name.machine, "sun4u" , 5) == 0) ||

        ((strncmp(name.machine, "sun4v" , 5) == 0) &&

         (getenv("USE_VIS_ON_SUN4V") != NULL)))

    {

        handle = dlopen("libmlib_image_v.so", RTLD_LAZY);

    }

    if (handle == NULL) {

        handle = dlopen("libmlib_image.so", RTLD_LAZY);

    }

    if (handle == NULL) {

        if (s_timeIt || s_verbose) {

            printf ("error in dlopen: %s", dlerror());

        }

        return MLIB_FAILURE;

    }

    /* So, if we are here, then either vis or generic version of

     * medialib library was sucessfuly loaded.

     * Let's try to initialize handlers...

     */

    if ((tempSysFns.createFP = (MlibCreateFP_t)dlsym(handle,

                                       "j2d_mlib_ImageCreate")) == NULL) {

        if (s_timeIt) {

            printf ("error in dlsym: %s", dlerror());

        }

        ret = MLIB_FAILURE;

    }

    if (ret == MLIB_SUCCESS) {

        if ((tempSysFns.createStructFP = (MlibCreateStructFP_t)dlsym(handle,

                                          "j2d_mlib_ImageCreateStruct")) == NULL) {

            if (s_timeIt) {

                printf ("error in dlsym: %s", dlerror());

            }

            ret = MLIB_FAILURE;

        }

    }

    if (ret == MLIB_SUCCESS) {

        if ((tempSysFns.deleteImageFP = (MlibDeleteFP_t)dlsym(handle,

                                                 "j2d_mlib_ImageDelete")) == NULL) {

            if (s_timeIt) {

                printf ("error in dlsym: %s", dlerror());

            }

            ret = MLIB_FAILURE;

        }

    }

    /* Set the system functions */

    if (ret == MLIB_SUCCESS) {

        *sMlibSysFns = tempSysFns;

    }

    /* Loop through all of the fns and load them from the next library */

    mptr = sMlibFns;

    i = 0;

    while ((ret == MLIB_SUCCESS) && (mptr[i].fname != NULL)) {

        fPtr = (mlib_status (*)())dlsym(handle, mptr[i].fname);

        if (fPtr != NULL) {

            mptr[i].fptr = fPtr;

        } else {

            ret = MLIB_FAILURE;

        }

        i++;

    }

    if (ret != MLIB_SUCCESS) {

        dlclose(handle);

    }

    return ret;

}

mlib_start_timer awt_setMlibStartTimer() {

    return start_timer;

}

mlib_stop_timer awt_setMlibStopTimer() {

    return stop_timer;

}

void awt_getBIColorOrder(int type, int *colorOrder) {

    switch(type) {

    case java_awt_image_BufferedImage_TYPE_INT_ARGB:

    case java_awt_image_BufferedImage_TYPE_INT_ARGB_PRE:

        colorOrder[0] = 1;

        colorOrder[1] = 2;

        colorOrder[2] = 3;

        colorOrder[3] = 0;

        break;

    case java_awt_image_BufferedImage_TYPE_INT_BGR:

        colorOrder[0] = 2;

        colorOrder[1] = 1;

        colorOrder[2] = 0;

        break;

    case java_awt_image_BufferedImage_TYPE_4BYTE_ABGR:

    case java_awt_image_BufferedImage_TYPE_4BYTE_ABGR_PRE:

        colorOrder[0] = 3;

        colorOrder[1] = 2;

        colorOrder[2] = 1;

        colorOrder[3] = 0;

        break;

    case java_awt_image_BufferedImage_TYPE_3BYTE_BGR:

        colorOrder[0] = 2;

        colorOrder[1] = 1;

        colorOrder[2] = 0;

        break;

    case java_awt_image_BufferedImage_TYPE_INT_RGB:

        colorOrder[0] = 1;

        colorOrder[1] = 2;

        colorOrder[2] = 3;

        break;

    case java_awt_image_BufferedImage_TYPE_USHORT_565_RGB:

    case java_awt_image_BufferedImage_TYPE_USHORT_555_RGB:

        colorOrder[0] = 0;

        colorOrder[1] = 1;

        colorOrder[2] = 2;

        break;

    case java_awt_image_BufferedImage_TYPE_BYTE_GRAY:

    case java_awt_image_BufferedImage_TYPE_USHORT_GRAY:

    case java_awt_image_BufferedImage_TYPE_BYTE_BINARY:

    case java_awt_image_BufferedImage_TYPE_BYTE_INDEXED:

        colorOrder[0] = 0;

        break;

    }

}

/***************************************************************************

 *                          Static Functions                               *

 ***************************************************************************/

static void start_timer(int numsec)

{

    struct itimerval interval;

    interval.it_interval.tv_sec = numsec;

    interval.it_interval.tv_usec = 0;

    interval.it_value.tv_sec = numsec;

    interval.it_value.tv_usec = 0;

    setitimer(ITIMER_REAL, &interval, 0);

}

static void stop_timer(int numsec, int ntimes)

{

    struct itimerval interval;

    double sec;

    getitimer(ITIMER_REAL, &interval);

    sec = (((double) (numsec - 1)) - (double) interval.it_value.tv_sec) +

            (1000000.0 - interval.it_value.tv_usec)/1000000.0;

    sec = sec/((double) ntimes);

    printf("%f msec per update\n", sec * 1000.0);

    interval.it_interval.tv_sec = 0;

    interval.it_interval.tv_usec = 0;

    interval.it_value.tv_sec = 0;

    interval.it_value.tv_usec = 0;

    setitimer(ITIMER_PROF, &interval, 0);

}