/**********************************************************************
 * $Id$
 *
 * Name:     gdal_interfaz.c
 * Project:  JGDAL. Interface java to gdal (Frank Warmerdam).
 * Purpose:  dataset's Basic Funcions.
 * Author:   Nacho Brodin, brodin_ign@gva.es
 *
 **********************************************************************/
/* gvSIG. Sistema de Información Geográfica de la Generalitat Valenciana
*
* Copyright (C) 2004 IVER T.I. and Generalitat Valenciana.
*
* This program is free software; you can redistribute it and/or
* modify it under the terms of the GNU General Public License
* as published by the Free Software Foundation; either version 2
* of the License, or (at your option) any later version.
*
* This program 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 for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307,USA.
*
* For more information, contact:
*
*  Generalitat Valenciana
*   Conselleria d'Infraestructures i Transport
*   Av. Blasco Ibáñez, 50
*   46010 VALENCIA
*   SPAIN
*
*      +34 963862235
*   gvsig@gva.es
*      www.gvsig.gva.es
*
*    or
*
*   IVER T.I. S.A
*   Salamanca 50
*   46005 Valencia
*   Spain
*
*   +34 963163400
*   dac@iver.es
* 
* [01] 01-Oct-2005 nbt OpenArray function to support name parameter in char array
*/


#include <jni.h>
#include "es_gva_cit_jgdal_Gdal.h"
#include "es_gva_cit_jgdal_JNIBase.h"
#include "gdal.h"
#include "cpl_string.h"



/******************************************************************************/
//								Open
/******************************************************************************/


JNIEXPORT jlong JNICALL Java_es_gva_cit_jgdal_Gdal_openNat
  (JNIEnv *env, jobject obj, jstring pszF, jint acc){
  	
  	const char *pszFilename;
  	GDALDatasetH *dataset;
  	jlong jresult = 0 ;
  	FILE *fich;
  	
  	pszFilename = (*env)->GetStringUTFChars(env, pszF, 0);

	fich=fopen( pszFilename, "r" );
	if( fich )
		fclose(fich);
	else
   	{
      	fclose(fich);
      	return -1;
   	}
  	
  	GDALAllRegister();
  	dataset = GDALOpen((char *)pszFilename,(int)acc);
  	
  	*(GDALDatasetH **)&jresult = dataset;
  	
    (*env)->ReleaseStringUTFChars(env, pszF, pszFilename);
  	
  
  	if(dataset==NULL)return -1; 
  	else return jresult; 
  		
  }
  
/******************************************************************************/
//								OpenArray
/******************************************************************************/


JNIEXPORT jlong JNICALL Java_es_gva_cit_jgdal_Gdal_openArrayNat
  (JNIEnv *env, jobject obj, jbyteArray pszF, jint acc){
  	
  	jbyte *pszFilename = NULL;
  	jbyte *aux = NULL;
  	GDALDatasetH *dataset;
  	jlong jresult = 0 ;
  	FILE *fich;
  	jsize longitud = 0, i;
  	char *p;
  	  	
  	longitud = (*env)->GetArrayLength(env, pszF); 
  	pszFilename = (*env)->GetByteArrayElements(env, pszF, 0);
  	
  	#ifdef __linux__
		pszFilename = (jbyte *)realloc(pszFilename, longitud + 1);
	#else
		aux = (jbyte *)malloc(sizeof(jbyte) * (longitud + 1));
	  	memcpy(aux, pszFilename, longitud);
	  	free(pszFilename);
	  	pszFilename = aux;
	#endif
  		
	pszFilename[longitud] = '\0';
	
	fich = fopen( pszFilename, "r" );
	if( fich )
		fclose(fich);
	else		
      	return -1;
   	
   	GDALAllRegister();
  	dataset = GDALOpen((char *)pszFilename,(int)acc);
  	
  	*(GDALDatasetH **)&jresult = dataset;
  	
    (*env)->ReleaseByteArrayElements(env, pszF, pszFilename, 0);
  	
  	if(dataset == NULL)
  		return -1; 
  	else 
  		return jresult; 
  		
  }


/******************************************************************************/  
//								GetRasterXSize
/******************************************************************************/

  
  JNIEXPORT jint JNICALL Java_es_gva_cit_jgdal_JNIBase_getRasterXSizeNat
  (JNIEnv *env, jobject obj, jlong cPtr){
  	
  	int res=-1;
  	GDALDatasetH *dt  = (GDALDatasetH *) 0 ;
  
  	dt = *(GDALDatasetH **)&cPtr;
  	if(dt!=NULL)
	  	res = GDALGetRasterXSize(dt);
  
  	  	
  	return res;
  			
  }

  
/******************************************************************************/  
//								GetRasterYSize
/******************************************************************************/  
  
  
  JNIEXPORT jint JNICALL Java_es_gva_cit_jgdal_JNIBase_getRasterYSizeNat
  (JNIEnv *env, jobject obj, jlong cPtr){
  	
  	int res=-1;
  	GDALDatasetH *dt  = (GDALDatasetH *) 0 ;
  	
  	dt = *(GDALDatasetH **)&cPtr;
  	if(dt!=NULL)
  		res = GDALGetRasterYSize(dt);
  
  	  	
  	return res;
  	
  }

/******************************************************************************/   
//								GetRasterCount
/******************************************************************************/
 
 
 JNIEXPORT jint JNICALL Java_es_gva_cit_jgdal_JNIBase_getRasterCountNat
  (JNIEnv *env, jobject obj, jlong cPtr){
  	
  	int res=-1;
  	GDALDatasetH *dt  = (GDALDatasetH *) 0 ;
  	
  	dt = *(GDALDatasetH **)&cPtr;
  	if(dt!=NULL)
	  	res = GDALGetRasterCount(dt);
  
  	  	
  	return res;
  }
  
  
/******************************************************************************/ 
//								 GetMetadata
/******************************************************************************/


JNIEXPORT jobjectArray JNICALL Java_es_gva_cit_jgdal_Gdal_getMetadataNat
  (JNIEnv *env, jobject obj, jlong cPtr, jstring pszDomain){
  	
  	 char			**papszMetadata = NULL;
  	 GDALDatasetH 	*dt  = (GDALDatasetH *) 0 ;
  	 int 			i = 0;
  	 int			nmetadatos = 0;
  	 jclass 		class_string;
  	 jobjectArray 	vector_str;
  	   	  
  	 dt = *(GDALDatasetH **)&cPtr;
  	 	   	 
  	 if(dt != NULL){
  	   	 //Obtenemos los metadatos sobre papszMetadata
		 papszMetadata = GDALGetMetadata( dt, NULL );
		 
		 //Si hay metadatos devolvemos creamos el vector de String de java y los devolvemos
		 
		 nmetadatos = CSLCount(papszMetadata);
	     if( nmetadatos > 0 ){
    	    class_string = (*env)->FindClass (env, "java/lang/String");
		 	vector_str = (*env)->NewObjectArray(env, nmetadatos, class_string, (*env)->NewStringUTF(env,""));
		 	
		 	//Cargamos los metadatos
		 	
        	for( i = 0; papszMetadata[i] != NULL; i++ )
        		(*env)->SetObjectArrayElement(env,vector_str,i,(*env)->NewStringUTF(env,papszMetadata[i]));
               				
  	 		return vector_str;   	 
     	 }
  	 }
     
  	 return NULL;
  }





/******************************************************************************/   
//								GetRasterBand  
/******************************************************************************/


  JNIEXPORT jint JNICALL Java_es_gva_cit_jgdal_Gdal_getRasterBandNat
  (JNIEnv *env, jobject obj, jlong cPtr, jint hBand){
  	
		 	
  	GDALDatasetH *dt  = (GDALDatasetH *) 0 ;
  	GDALRasterBandH *rasterband=NULL;
  	jlong jresult = 0;

	dt = *(GDALDatasetH **)&cPtr;
    
    if(dt!=NULL){
		rasterband = GDALGetRasterBand(dt,(int)hBand);
		*(GDALDatasetH **)&jresult = rasterband;
    }else return -1;
    
   return jresult;
    
  }
  

/******************************************************************************/
//								GetGeoTransform
/******************************************************************************/


JNIEXPORT jint JNICALL Java_es_gva_cit_jgdal_Gdal_getGeoTransformNat
  (JNIEnv *env, jobject obj, jlong cPtr, jobject gt){
  	
  	jclass class_geotransform;
  	jfieldID id_campo;
  	double adfgt[6];
  	jdoubleArray doublearray;
  	GDALDatasetH *dt  = (GDALDatasetH *) 0 ;
  	

	dt = *(GDALDatasetH **)&cPtr;
  		
  	if(dt!=NULL){
  			
	  //Obtenemos el objeto java que contendrá el vector geotransform
		
  			
  		class_geotransform = (*env)->GetObjectClass(env, gt);
  		id_campo = (*env)->GetFieldID(env, class_geotransform, "adfgeotransform", "[D");


	   //Cargamos el buffer llamando a GDALRasterIO
  		 		
  		
  		if(GDALGetGeoTransform(dt,adfgt)==CE_None){
		  	doublearray = (*env)->NewDoubleArray(env,6);
		    if(doublearray!=NULL){
			  	(*env)->SetDoubleArrayRegion(env, doublearray, 0, 6,(jdouble *)adfgt); 
			  	(*env)->SetObjectField(env, gt, id_campo, doublearray);
			}
  		}else return -1;		
			
  	}else return -1;
  	
  	return 0;
  		  		
  }
  
/******************************************************************************/
//								setGeoTransformNat
/******************************************************************************/

JNIEXPORT jint JNICALL Java_es_gva_cit_jgdal_Gdal_setGeoTransformNat
  (JNIEnv *env, jobject obj, jlong cPtr, jobject gt){
  	
  	jclass class_geotransform;
  	jfieldID id_campo;
  	double adfgt[6];
  	jdoubleArray doublearray;
  	GDALDatasetH *dt  = (GDALDatasetH *) 0 ;
  	
  	dt = *(GDALDatasetH **)&cPtr;
  	
  	if(dt!=NULL){
  		
  		//Obtenemos los valores pasados en el vector gt
  		
  		class_geotransform = (*env)->GetObjectClass(env, gt);
  		id_campo = (*env)->GetFieldID(env, class_geotransform, "adfgeotransform", "[D");
  		doublearray =(jdoubleArray)(*env)->GetObjectField(env, gt, id_campo);
  		(*env)->GetDoubleArrayRegion(env,doublearray,0,6,(jdouble *)adfgt);
  		
  		GDALSetGeoTransform( dt, adfgt );
  		return 0;
  	}
  	return -1;
  	
  }  
  
/******************************************************************************/
//								GetProjectionRef
/******************************************************************************/


JNIEXPORT jstring JNICALL Java_es_gva_cit_jgdal_Gdal_getProjectionRefNat
  (JNIEnv *env, jobject obj, jlong cPtr){
  	
	char *pszProjection=NULL;
  	jstring pszP=NULL;
	GDALDatasetH *dt  = (GDALDatasetH *) 0 ;
  	
	  	
  	dt = *(GDALDatasetH **)&cPtr;
  		
  	//Llamamos a la función y cargamos el jstring con el resultado 	
  		
	if(dt!=NULL){  	
	   	pszProjection = (char *) GDALGetProjectionRef(dt);
	   	if(pszProjection!=NULL)
		   	pszP = (*env)->NewStringUTF(env, pszProjection); 
	}
   	
   	return pszP;
  	
  }
  
/************************************************************************/
/*                        getDriverShortNameNat()                       */
/************************************************************************/

JNIEXPORT jstring JNICALL Java_es_gva_cit_jgdal_Gdal_getDriverShortNameNat
  (JNIEnv *env, jobject obj, jlong cPtr){
  	
  	char 			*pszShortName=NULL;
  	jstring 		pszSN=NULL;
	GDALDatasetH 	*dt  = (GDALDatasetH *) 0 ;
	GDALDriverH		hDriver;
	
	dt = *(GDALDatasetH **)&cPtr;
	
	//Llamamos a la función y cargamos el jstring con el resultado 	
  		
	if(dt!=NULL){  	
		hDriver = GDALGetDatasetDriver( dt );
	   	pszShortName = (char *) GDALGetDriverShortName(hDriver);
	   	if(pszShortName!=NULL)
		   	pszSN = (*env)->NewStringUTF(env, pszShortName); 
	}
   	
   	return pszSN;
  }
  
/******************************************************************************/  
//								setProjection
/******************************************************************************/  
  
JNIEXPORT jint JNICALL Java_es_gva_cit_jgdal_Gdal_setProjectionNat
  (JNIEnv *env, jobject obj, jlong cPtr, jstring proj){
  	
  	GDALDatasetH *dt  = (GDALDatasetH *) 0 ;
  	
  	dt = *(GDALDatasetH **)&cPtr;
  	if(dt!=NULL){
  		const char *projeccion = (*env)->GetStringUTFChars(env, proj, 0);
  		GDALSetProjection( dt, projeccion );
  		(*env)->ReleaseStringUTFChars(env, proj, projeccion);
  		return 1;
  	}
  	
  	return -1;
  }
  
  
/******************************************************************************/  
//									Close
/******************************************************************************/


JNIEXPORT void JNICALL Java_es_gva_cit_jgdal_Gdal_closeNat
  (JNIEnv *env, jobject obj, jlong cPtr){

	GDALDatasetH *dt  = (GDALDatasetH *) 0 ;
  	
  	dt = *(GDALDatasetH **)&cPtr;
	GDALClose(dt);	

  }
  

/************************************************************************/
/*                        GDALGetDriverByName()                         */
/************************************************************************/

JNIEXPORT jlong JNICALL Java_es_gva_cit_jgdal_Gdal_getDriverByNameNat
  (JNIEnv *env, jclass clase, jstring name){
  	
  	const char *namedrv;
  	GDALDriverH *drv;
 
  	jlong jresult=-1;
  
    if(GDALGetDriverCount()<=0)GDALAllRegister();
    	
  	namedrv = (*env)->GetStringUTFChars(env, name, 0);
  	
  	drv=GDALGetDriverByName(namedrv);  
  		
  	*(GDALDriverH **)&jresult = drv;

  	(*env)->ReleaseStringUTFChars(env, name, namedrv);
	 
  	 return (long)jresult;
  }
  

/************************************************************************/
/*                        getGCPCountNat()                              */
/************************************************************************/

 JNIEXPORT jint JNICALL Java_es_gva_cit_jgdal_JNIBase_getGCPCountNat
  (JNIEnv *env, jobject obj, jlong cPtr){
  	
  	int res=-1;
  	GDALDatasetH *dt  = (GDALDatasetH *) 0 ;
  	
  	dt = *(GDALDatasetH **)&cPtr;
  	if(dt!=NULL)
	  	res = GDALGetGCPCount(dt);
  
  	  	
  	return res;
  }
 
 /******************************************************************************/ 
//							GetColorInterpretationName
/******************************************************************************/

JNIEXPORT jstring JNICALL Java_es_gva_cit_jgdal_Gdal_getColorInterpretationNameNat
  (JNIEnv *env, jobject obj, jlong cPtr, jint ci){
  	 GDALDatasetH 		*dt  = (GDALDatasetH *) 0 ;
   	 char 				*name = NULL;
   	 jstring 			typeName = NULL;
	 
	 dt = *(GDALDatasetH **)&cPtr;
	 name = GDALGetColorInterpretationName(ci);  	 
	 typeName = (*env)->NewStringUTF(env, name); 
	 return typeName;
  }