const char *DTEDDataset::_GetProjectionRef()
{
// get xml and aux SR first
const char* pszPrj = GDALPamDataset::_GetProjectionRef();
const char* pszVertDatum;
if(pszPrj && strlen(pszPrj) > 0)
return pszPrj;
if (pszProjection && strlen(pszProjection) > 0)
return pszProjection;
pszPrj = GetMetadataItem( "DTED_HorizontalDatum");
if (EQUAL(pszPrj, "WGS84"))
{
pszVertDatum = GetMetadataItem("DTED_VerticalDatum");
if (EQUAL(pszVertDatum, "MSL") &&
CPLTestBool( CPLGetConfigOption("REPORT_COMPD_CS", "NO") ) )
{
return "COMPD_CS[\"WGS 84 + EGM96 geoid height\", GEOGCS[\"WGS 84\", DATUM[\"WGS_1984\", SPHEROID[\"WGS 84\",6378137,298.257223563, AUTHORITY[\"EPSG\",\"7030\"]], AUTHORITY[\"EPSG\",\"6326\"]], PRIMEM[\"Greenwich\",0, AUTHORITY[\"EPSG\",\"8901\"]], UNIT[\"degree\",0.0174532925199433, AUTHORITY[\"EPSG\",\"9122\"]],AXIS[\"Latitude\",NORTH],AXIS[\"Longitude\",EAST], AUTHORITY[\"EPSG\",\"4326\"]], VERT_CS[\"EGM96 geoid height\", VERT_DATUM[\"EGM96 geoid\",2005, AUTHORITY[\"EPSG\",\"5171\"]], UNIT[\"metre\",1, AUTHORITY[\"EPSG\",\"9001\"]], AXIS[\"Up\",UP], AUTHORITY[\"EPSG\",\"5773\"]]]";
}
else
{
return SRS_WKT_WGS84_LAT_LONG;
}
}
else if (EQUAL(pszPrj, "WGS72"))
{
static bool bWarned = false;
if (!bWarned)
{
bWarned = true;
CPLError( CE_Warning, CPLE_AppDefined,
"The DTED file %s indicates WGS72 as horizontal datum. \n"
"As this is outdated nowadays, you should contact your data producer to get data georeferenced in WGS84.\n"
"In some cases, WGS72 is a wrong indication and the georeferencing is really WGS84. In that case\n"
"you might consider doing 'gdal_translate -of DTED -mo \"DTED_HorizontalDatum=WGS84\" src.dtX dst.dtX' to\n"
"fix the DTED file.\n"
"No more warnings will be issued in this session about this operation.", GetFileName() );
}
return "GEOGCS[\"WGS 72\",DATUM[\"WGS_1972\",SPHEROID[\"WGS 72\",6378135,298.26]],PRIMEM[\"Greenwich\",0],UNIT[\"degree\",0.0174532925199433],AXIS[\"Latitude\",NORTH],AXIS[\"Longitude\",EAST],AUTHORITY[\"EPSG\",\"4322\"]]";
}
else
{
static bool bWarned = false;
if (!bWarned)
{
bWarned = true;
CPLError( CE_Warning, CPLE_AppDefined,
"The DTED file %s indicates %s as horizontal datum, which is not recognized by the DTED driver. \n"
"The DTED driver is going to consider it as WGS84.\n"
"No more warnings will be issued in this session about this operation.", GetFileName(), pszPrj );
}
return SRS_WKT_WGS84_LAT_LONG;
}
}
CPLErr HDF5ImageDataset::CreateODIMH5Projection()
{
const char* const pszProj4String = GetMetadataItem("where_projdef");
const char* const pszLL_lon = GetMetadataItem("where_LL_lon");
const char* const pszLL_lat = GetMetadataItem("where_LL_lat");
const char* const pszUR_lon = GetMetadataItem("where_UR_lon");
const char* const pszUR_lat = GetMetadataItem("where_UR_lat");
if( pszProj4String == NULL ||
pszLL_lon == NULL || pszLL_lat == NULL ||
pszUR_lon == NULL || pszUR_lat == NULL )
return CE_Failure;
if( oSRS.importFromProj4( pszProj4String ) != OGRERR_NONE )
return CE_Failure;
OGRSpatialReference oSRSWGS84;
oSRSWGS84.SetWellKnownGeogCS( "WGS84" );
OGRCoordinateTransformation* poCT =
OGRCreateCoordinateTransformation( &oSRSWGS84, &oSRS );
if( poCT == NULL )
return CE_Failure;
/* Reproject corners from long,lat WGS84 to the target SRS */
double dfLLX = CPLAtof(pszLL_lon);
double dfLLY = CPLAtof(pszLL_lat);
double dfURX = CPLAtof(pszUR_lon);
double dfURY = CPLAtof(pszUR_lat);
if( !poCT->Transform(1, &dfLLX, &dfLLY) ||
!poCT->Transform(1, &dfURX, &dfURY) )
{
delete poCT;
return CE_Failure;
}
delete poCT;
/* Compute the geotransform now */
const double dfPixelX = (dfURX - dfLLX) / nRasterXSize;
const double dfPixelY = (dfURY - dfLLY) / nRasterYSize;
bHasGeoTransform = true;
adfGeoTransform[0] = dfLLX;
adfGeoTransform[1] = dfPixelX;
adfGeoTransform[2] = 0;
adfGeoTransform[3] = dfURY;
adfGeoTransform[4] = 0;
adfGeoTransform[5] = -dfPixelY;
CPLFree( pszProjection );
oSRS.exportToWkt( &pszProjection );
return CE_None;
}
CPLErr RawDataset::IRasterIO( GDALRWFlag eRWFlag,
int nXOff, int nYOff, int nXSize, int nYSize,
void *pData, int nBufXSize, int nBufYSize,
GDALDataType eBufType,
int nBandCount, int *panBandMap,
int nPixelSpace, int nLineSpace, int nBandSpace )
{
const char* pszInterleave;
/* The default GDALDataset::IRasterIO() implementation would go to */
/* BlockBasedRasterIO if the dataset is interleaved. However if the */
/* access pattern is compatible with DirectIO() we don't want to go */
/* BlockBasedRasterIO, but rather used our optimized path in RawRasterBand::IRasterIO() */
if (nXSize == nBufXSize && nYSize == nBufYSize && nBandCount > 1 &&
(pszInterleave = GetMetadataItem("INTERLEAVE", "IMAGE_STRUCTURE")) != NULL &&
EQUAL(pszInterleave, "PIXEL"))
{
int iBandIndex;
for(iBandIndex = 0; iBandIndex < nBandCount; iBandIndex ++ )
{
RawRasterBand* poBand = (RawRasterBand*) GetRasterBand(panBandMap[iBandIndex]);
if( !poBand->CanUseDirectIO(nXOff, nYOff, nXSize, nYSize, eBufType ) )
{
break;
}
}
if( iBandIndex == nBandCount )
{
CPLErr eErr = CE_None;
for( iBandIndex = 0;
iBandIndex < nBandCount && eErr == CE_None;
iBandIndex++ )
{
GDALRasterBand *poBand = GetRasterBand(panBandMap[iBandIndex]);
GByte *pabyBandData;
if (poBand == NULL)
{
eErr = CE_Failure;
break;
}
pabyBandData = ((GByte *) pData) + iBandIndex * nBandSpace;
eErr = poBand->RasterIO( eRWFlag, nXOff, nYOff, nXSize, nYSize,
(void *) pabyBandData, nBufXSize, nBufYSize,
eBufType, nPixelSpace, nLineSpace );
}
return eErr;
}
}
return GDALDataset::IRasterIO( eRWFlag, nXOff, nYOff, nXSize, nYSize,
pData, nBufXSize, nBufYSize, eBufType,
nBandCount, panBandMap,
nPixelSpace, nLineSpace, nBandSpace );
}
const char *DTEDDataset::GetProjectionRef()
{
// get xml and aux SR first
const char* pszPrj = GDALPamDataset::GetProjectionRef();
if(pszPrj && strlen(pszPrj) > 0)
return pszPrj;
if (pszProjection && strlen(pszProjection) > 0)
return pszProjection;
pszPrj = GetMetadataItem( "DTED_HorizontalDatum");
if (EQUAL(pszPrj, "WGS84"))
{
return( "GEOGCS[\"WGS 84\",DATUM[\"WGS_1984\",SPHEROID[\"WGS 84\",6378137,298.257223563]],PRIMEM[\"Greenwich\",0],UNIT[\"degree\",0.0174532925199433],AUTHORITY[\"EPSG\",\"4326\"]]" );
}
else if (EQUAL(pszPrj, "WGS72"))
{
static int bWarned = FALSE;
if (!bWarned)
{
bWarned = TRUE;
CPLError( CE_Warning, CPLE_AppDefined,
"The DTED file %s indicates WGS72 as horizontal datum. \n"
"As this is outdated nowadays, you should contact your data producer to get data georeferenced in WGS84.\n"
"In some cases, WGS72 is a wrong indication and the georeferencing is really WGS84. In that case\n"
"you might consider doing 'gdal_translate -of DTED -mo \"DTED_HorizontalDatum=WGS84\" src.dtX dst.dtX' to\n"
"fix the DTED file.\n"
"No more warnings will be issued in this session about this operation.", GetFileName() );
}
return "GEOGCS[\"WGS 72\",DATUM[\"WGS_1972\",SPHEROID[\"WGS 72\",6378135,298.26]],PRIMEM[\"Greenwich\",0],UNIT[\"degree\",0.0174532925199433],AUTHORITY[\"EPSG\",\"4322\"]]";
}
else
{
static int bWarned = FALSE;
if (!bWarned)
{
bWarned = TRUE;
CPLError( CE_Warning, CPLE_AppDefined,
"The DTED file %s indicates %s as horizontal datum, which is not recognized by the DTED driver. \n"
"The DTED driver is going to consider it as WGS84.\n"
"No more warnings will be issued in this session about this operation.", GetFileName(), pszPrj );
}
return( "GEOGCS[\"WGS 84\",DATUM[\"WGS_1984\",SPHEROID[\"WGS 84\",6378137,298.257223563]],PRIMEM[\"Greenwich\",0],UNIT[\"degree\",0.0174532925199433],AUTHORITY[\"EPSG\",\"4326\"]]" );
}
}
double VRTSourcedRasterBand::GetMaximum(int *pbSuccess )
{
const char *pszValue = NULL;
if( (pszValue = GetMetadataItem("STATISTICS_MAXIMUM")) != NULL )
{
if( pbSuccess != NULL )
*pbSuccess = TRUE;
return CPLAtofM(pszValue);
}
if ( bAntiRecursionFlag )
{
CPLError( CE_Failure, CPLE_AppDefined,
"VRTSourcedRasterBand::GetMaximum() called recursively on the same band. "
"It looks like the VRT is referencing itself." );
if( pbSuccess != NULL )
*pbSuccess = FALSE;
return 0.0;
}
bAntiRecursionFlag = TRUE;
double dfMax = 0;
for( int iSource = 0; iSource < nSources; iSource++ )
{
int bSuccess = FALSE;
double dfSourceMax = papoSources[iSource]->GetMaximum(GetXSize(), GetYSize(), &bSuccess);
if (!bSuccess)
{
dfMax = GDALRasterBand::GetMaximum(pbSuccess);
bAntiRecursionFlag = FALSE;
return dfMax;
}
if (iSource == 0 || dfSourceMax > dfMax)
dfMax = dfSourceMax;
}
bAntiRecursionFlag = FALSE;
if( pbSuccess != NULL )
*pbSuccess = TRUE;
return dfMax;
}
/**
* Identify if the subdataset has a known product format
* It stores a product identifier in iSubdatasetType,
* UNKNOWN_PRODUCT, if it isn't a recognizable format.
*/
void HDF5ImageDataset::IdentifyProductType()
{
iSubdatasetType = UNKNOWN_PRODUCT;
/************************************************************************/
/* COSMO-SKYMED */
/************************************************************************/
//Get the Mission Id as a char *, because the
//field may not exist
const char * const pszMissionId = HDF5Dataset::GetMetadataItem("Mission_ID");
//If there is a Mission_ID field
if(pszMissionId != NULL && strstr(GetDescription(), "QLK") == NULL)
{
//Check if the mission type is CSK or KMPS
//KMPS: Komsat-5 is Korean mission with a SAR instrument.
if(EQUAL(pszMissionId,"CSK") || EQUAL(pszMissionId,"KMPS"))
{
iSubdatasetType = CSK_PRODUCT;
const char *osMissionLevel = NULL;
if(GetMetadataItem("Product_Type")!=NULL)
{
//Get the format's level
osMissionLevel = HDF5Dataset::GetMetadataItem("Product_Type");
if(STARTS_WITH_CI(osMissionLevel, "RAW"))
iCSKProductType = PROD_CSK_L0;
if(STARTS_WITH_CI(osMissionLevel, "SCS"))
iCSKProductType = PROD_CSK_L1A;
if(STARTS_WITH_CI(osMissionLevel, "DGM"))
iCSKProductType = PROD_CSK_L1B;
if(STARTS_WITH_CI(osMissionLevel, "GEC"))
iCSKProductType = PROD_CSK_L1C;
if(STARTS_WITH_CI(osMissionLevel, "GTC"))
iCSKProductType = PROD_CSK_L1D;
}
}
}
}
void FASTDataset::TryEuromap_IRS_1C_1D_ChannelNameConvention()
{
// Filename convention explained in:
// http://www.euromap.de/download/em_names.pdf
char chLastLetterHeader = pszFilename[strlen(pszFilename)-1];
if( EQUAL(GetMetadataItem("SENSOR"), "PAN") )
{
/* Converting upper-case to lower case */
if( chLastLetterHeader >= 'A' && chLastLetterHeader <= 'M' )
chLastLetterHeader += 'a' - 'A';
if( chLastLetterHeader >= 'a' && chLastLetterHeader <= 'j' )
{
const char chLastLetterData = chLastLetterHeader - 'a' + '0';
char* pszChannelFilename = CPLStrdup(pszFilename);
pszChannelFilename[strlen(pszChannelFilename)-1] = chLastLetterData;
if( OpenChannel( pszChannelFilename, 0 ) )
nBands++;
else
CPLDebug("FAST", "Could not find %s", pszChannelFilename);
CPLFree(pszChannelFilename);
}
else if( chLastLetterHeader >= 'k' && chLastLetterHeader <= 'm' )
{
const char chLastLetterData = chLastLetterHeader - 'k' + 'n';
char* pszChannelFilename = CPLStrdup(pszFilename);
pszChannelFilename[strlen(pszChannelFilename)-1] = chLastLetterData;
if( OpenChannel( pszChannelFilename, 0 ) )
{
nBands++;
}
else
{
/* Trying upper-case */
pszChannelFilename[strlen(pszChannelFilename)-1] =
chLastLetterData - 'a' + 'A';
if( OpenChannel( pszChannelFilename, 0 ) )
nBands++;
else
CPLDebug("FAST", "Could not find %s", pszChannelFilename);
}
CPLFree(pszChannelFilename);
}
else
{
CPLDebug(
"FAST",
"Unknown last letter (%c) for a IRS PAN Euromap FAST dataset",
chLastLetterHeader );
}
}
else if( EQUAL(GetMetadataItem("SENSOR"), "LISS3") )
{
const char apchLISSFilenames[7][5] = {
{ '0', '2', '3', '4', '5' },
{ '6', '7', '8', '9', 'a' },
{ 'b', 'c', 'd', 'e', 'f' },
{ 'g', 'h', 'i', 'j', 'k' },
{ 'l', 'm', 'n', 'o', 'p' },
{ 'q', 'r', 's', 't', 'u' },
{ 'v', 'w', 'x', 'y', 'z' } };
int i = 0;
for ( ; i < 7 ; i++ )
{
if( chLastLetterHeader == apchLISSFilenames[i][0] ||
(apchLISSFilenames[i][0] >= 'a' &&
apchLISSFilenames[i][0] <= 'z' &&
(apchLISSFilenames[i][0] - chLastLetterHeader == 0 ||
apchLISSFilenames[i][0] - chLastLetterHeader == 32)) )
{
for ( int j = 0; j < 4; j ++ )
{
char* pszChannelFilename = CPLStrdup(pszFilename);
pszChannelFilename[strlen(pszChannelFilename)-1] =
apchLISSFilenames[i][j+1];
if( OpenChannel( pszChannelFilename, nBands ) )
nBands++;
else if( apchLISSFilenames[i][j+1] >= 'a' &&
apchLISSFilenames[i][j+1] <= 'z' )
{
/* Trying upper-case */
pszChannelFilename[strlen(pszChannelFilename)-1] =
apchLISSFilenames[i][j+1] - 'a' + 'A';
if( OpenChannel( pszChannelFilename, nBands ) )
{
nBands++;
}
else
{
CPLDebug(
"FAST", "Could not find %s",
pszChannelFilename );
}
}
else
{
CPLDebug(
"FAST", "Could not find %s", pszChannelFilename );
}
CPLFree(pszChannelFilename);
}
break;
}
}
if( i == 7 )
{
CPLDebug(
"FAST",
"Unknown last letter (%c) for a IRS LISS3 Euromap FAST dataset",
chLastLetterHeader );
}
}
else if( EQUAL(GetMetadataItem("SENSOR"), "WIFS") )
{
if( chLastLetterHeader == '0' )
{
for( int j = 0; j < 2; j++ )
{
char* pszChannelFilename = CPLStrdup(pszFilename);
pszChannelFilename[strlen(pszChannelFilename)-1]
= static_cast<char>( '1' + j );
if (OpenChannel( pszChannelFilename, nBands ))
{
nBands++;
}
else
{
CPLDebug( "FAST", "Could not find %s", pszChannelFilename );
}
CPLFree(pszChannelFilename);
}
}
else
{
CPLDebug(
"FAST",
"Unknown last letter (%c) for a IRS WIFS Euromap FAST dataset",
chLastLetterHeader );
}
}
else
{
CPLAssert(false);
}
}
/**
* Captures Geolocation information from a COSMO-SKYMED
* file.
* The geoid will allways be WGS84
* The projection type may be UTM or UPS, depending on the
* latitude from the center of the image.
* @param iProductType type of CSK subproduct, see HDF5CSKProduct
*/
void HDF5ImageDataset::CaptureCSKGeolocation(int iProductType)
{
double *dfProjFalseEastNorth;
double *dfProjScaleFactor;
double *dfCenterCoord;
//Set the ellipsoid to WGS84
oSRS.SetWellKnownGeogCS( "WGS84" );
if(iProductType == PROD_CSK_L1C||iProductType == PROD_CSK_L1D)
{
//Check if all the metadata attributes are present
if(HDF5ReadDoubleAttr("Map Projection False East-North", &dfProjFalseEastNorth) == CE_Failure||
HDF5ReadDoubleAttr("Map Projection Scale Factor", &dfProjScaleFactor) == CE_Failure||
HDF5ReadDoubleAttr("Map Projection Centre", &dfCenterCoord) == CE_Failure||
GetMetadataItem("Projection_ID") == NULL)
{
pszProjection = CPLStrdup("");
pszGCPProjection = CPLStrdup("");
CPLError( CE_Failure, CPLE_OpenFailed,
"The CSK hdf5 file geolocation information is malformed\n" );
}
else
{
//Fetch projection Type
CPLString osProjectionID = GetMetadataItem("Projection_ID");
//If the projection is UTM
if(EQUAL(osProjectionID,"UTM"))
{
// @TODO: use SetUTM
oSRS.SetProjCS(SRS_PT_TRANSVERSE_MERCATOR);
oSRS.SetTM(dfCenterCoord[0],
dfCenterCoord[1],
dfProjScaleFactor[0],
dfProjFalseEastNorth[0],
dfProjFalseEastNorth[1]);
}
else
{
//TODO Test! I didn't had any UPS projected files to test!
//If the projection is UPS
if(EQUAL(osProjectionID,"UPS"))
{
oSRS.SetProjCS(SRS_PT_POLAR_STEREOGRAPHIC);
oSRS.SetPS(dfCenterCoord[0],
dfCenterCoord[1],
dfProjScaleFactor[0],
dfProjFalseEastNorth[0],
dfProjFalseEastNorth[1]);
}
}
//Export Projection to Wkt.
//In case of error then clean the projection
if (oSRS.exportToWkt(&pszProjection) != OGRERR_NONE)
pszProjection = CPLStrdup("");
CPLFree(dfCenterCoord);
CPLFree(dfProjScaleFactor);
CPLFree(dfProjFalseEastNorth);
}
}
else
{
//Export GCPProjection to Wkt.
//In case of error then clean the projection
if(oSRS.exportToWkt(&pszGCPProjection) != OGRERR_NONE)
pszGCPProjection = CPLStrdup("");
}
}
CPLErr HDF5ImageDataset::CreateProjections()
{
switch(iSubdatasetType)
{
case CSK_PRODUCT:
{
const char *osMissionLevel = NULL;
int productType = PROD_UNKNOWN;
if(GetMetadataItem("Product_Type")!=NULL)
{
//Get the format's level
osMissionLevel = HDF5Dataset::GetMetadataItem("Product_Type");
if(EQUALN(osMissionLevel,"RAW",3))
productType = PROD_CSK_L0;
if(EQUALN(osMissionLevel,"SSC",3))
productType = PROD_CSK_L1A;
if(EQUALN(osMissionLevel,"DGM",3))
productType = PROD_CSK_L1B;
if(EQUALN(osMissionLevel,"GEC",3))
productType = PROD_CSK_L1C;
if(EQUALN(osMissionLevel,"GTC",3))
productType = PROD_CSK_L1D;
}
CaptureCSKGeoTransform(productType);
CaptureCSKGeolocation(productType);
CaptureCSKGCPs(productType);
break;
}
case UNKNOWN_PRODUCT:
{
#define NBGCPLAT 100
#define NBGCPLON 30
hid_t LatitudeDatasetID = -1;
hid_t LongitudeDatasetID = -1;
hid_t LatitudeDataspaceID;
hid_t LongitudeDataspaceID;
float* Latitude;
float* Longitude;
int i,j;
int nDeltaLat;
int nDeltaLon;
nDeltaLat = nRasterYSize / NBGCPLAT;
nDeltaLon = nRasterXSize / NBGCPLON;
if( nDeltaLat == 0 || nDeltaLon == 0 )
return CE_None;
/* -------------------------------------------------------------------- */
/* Create HDF5 Data Hierarchy in a link list */
/* -------------------------------------------------------------------- */
poH5Objects=HDF5FindDatasetObjects( poH5RootGroup, "Latitude" );
if( !poH5Objects ) {
return CE_None;
}
/* -------------------------------------------------------------------- */
/* The Lattitude and Longitude arrays must have a rank of 2 to */
/* retrieve GCPs. */
/* -------------------------------------------------------------------- */
if( poH5Objects->nRank != 2 ) {
return CE_None;
}
/* -------------------------------------------------------------------- */
/* Retrieve HDF5 data information */
/* -------------------------------------------------------------------- */
LatitudeDatasetID = H5Dopen( hHDF5,poH5Objects->pszPath );
LatitudeDataspaceID = H5Dget_space( dataset_id );
poH5Objects=HDF5FindDatasetObjects( poH5RootGroup, "Longitude" );
LongitudeDatasetID = H5Dopen( hHDF5,poH5Objects->pszPath );
LongitudeDataspaceID = H5Dget_space( dataset_id );
if( ( LatitudeDatasetID > 0 ) && ( LongitudeDatasetID > 0) ) {
Latitude = ( float * ) CPLCalloc( nRasterYSize*nRasterXSize,
sizeof( float ) );
Longitude = ( float * ) CPLCalloc( nRasterYSize*nRasterXSize,
sizeof( float ) );
memset( Latitude, 0, nRasterXSize*nRasterYSize*sizeof( float ) );
memset( Longitude, 0, nRasterXSize*nRasterYSize*sizeof( float ) );
H5Dread ( LatitudeDatasetID,
H5T_NATIVE_FLOAT,
H5S_ALL,
H5S_ALL,
H5P_DEFAULT,
Latitude );
H5Dread ( LongitudeDatasetID,
H5T_NATIVE_FLOAT,
H5S_ALL,
H5S_ALL,
H5P_DEFAULT,
Longitude );
oSRS.SetWellKnownGeogCS( "WGS84" );
CPLFree(pszProjection);
CPLFree(pszGCPProjection);
oSRS.exportToWkt( &pszProjection );
oSRS.exportToWkt( &pszGCPProjection );
/* -------------------------------------------------------------------- */
/* Fill the GCPs list. */
/* -------------------------------------------------------------------- */
nGCPCount = nRasterYSize/nDeltaLat * nRasterXSize/nDeltaLon;
pasGCPList = ( GDAL_GCP * )
CPLCalloc( nGCPCount, sizeof( GDAL_GCP ) );
GDALInitGCPs( nGCPCount, pasGCPList );
int k=0;
int nYLimit = ((int)nRasterYSize/nDeltaLat) * nDeltaLat;
int nXLimit = ((int)nRasterXSize/nDeltaLon) * nDeltaLon;
for( j = 0; j < nYLimit; j+=nDeltaLat )
{
for( i = 0; i < nXLimit; i+=nDeltaLon )
{
int iGCP = j * nRasterXSize + i;
pasGCPList[k].dfGCPX = ( double ) Longitude[iGCP]+180.0;
pasGCPList[k].dfGCPY = ( double ) Latitude[iGCP];
pasGCPList[k].dfGCPPixel = i + 0.5;
pasGCPList[k++].dfGCPLine = j + 0.5;
}
}
CPLFree( Latitude );
CPLFree( Longitude );
}
if( LatitudeDatasetID > 0 )
H5Dclose(LatitudeDatasetID);
if( LongitudeDatasetID > 0 )
H5Dclose(LongitudeDatasetID);
break;
}
}
return CE_None;
}
CPLErr HDF5ImageDataset::CreateProjections()
{
switch(iSubdatasetType)
{
case CSK_PRODUCT:
{
const char *osMissionLevel = NULL;
int productType = PROD_UNKNOWN;
if(GetMetadataItem("Product_Type")!=NULL)
{
//Get the format's level
osMissionLevel = HDF5Dataset::GetMetadataItem("Product_Type");
if(STARTS_WITH_CI(osMissionLevel, "RAW"))
productType = PROD_CSK_L0;
if(STARTS_WITH_CI(osMissionLevel, "SSC"))
productType = PROD_CSK_L1A;
if(STARTS_WITH_CI(osMissionLevel, "DGM"))
productType = PROD_CSK_L1B;
if(STARTS_WITH_CI(osMissionLevel, "GEC"))
productType = PROD_CSK_L1C;
if(STARTS_WITH_CI(osMissionLevel, "GTC"))
productType = PROD_CSK_L1D;
}
CaptureCSKGeoTransform(productType);
CaptureCSKGeolocation(productType);
CaptureCSKGCPs(productType);
break;
}
case UNKNOWN_PRODUCT:
{
static const int NBGCPLAT = 100;
static const int NBGCPLON = 30;
const int nDeltaLat = nRasterYSize / NBGCPLAT;
const int nDeltaLon = nRasterXSize / NBGCPLON;
if( nDeltaLat == 0 || nDeltaLon == 0 )
return CE_None;
/* -------------------------------------------------------------------- */
/* Create HDF5 Data Hierarchy in a link list */
/* -------------------------------------------------------------------- */
poH5Objects=HDF5FindDatasetObjects( poH5RootGroup, "Latitude" );
if( !poH5Objects ) {
if( GetMetadataItem("where_projdef") != NULL )
return CreateODIMH5Projection();
return CE_None;
}
/* -------------------------------------------------------------------- */
/* The Latitude and Longitude arrays must have a rank of 2 to */
/* retrieve GCPs. */
/* -------------------------------------------------------------------- */
if( poH5Objects->nRank != 2 ) {
return CE_None;
}
/* -------------------------------------------------------------------- */
/* Retrieve HDF5 data information */
/* -------------------------------------------------------------------- */
const hid_t LatitudeDatasetID = H5Dopen( hHDF5,poH5Objects->pszPath );
// LatitudeDataspaceID = H5Dget_space( dataset_id );
poH5Objects=HDF5FindDatasetObjects( poH5RootGroup, "Longitude" );
const hid_t LongitudeDatasetID = H5Dopen( hHDF5,poH5Objects->pszPath );
// LongitudeDataspaceID = H5Dget_space( dataset_id );
if( ( LatitudeDatasetID > 0 ) && ( LongitudeDatasetID > 0) ) {
float * const Latitude = static_cast<float *>(
CPLCalloc( nRasterYSize*nRasterXSize, sizeof( float ) ) );
float * const Longitude = static_cast<float *>(
CPLCalloc( nRasterYSize*nRasterXSize, sizeof( float ) ) );
memset( Latitude, 0, nRasterXSize*nRasterYSize*sizeof( float ) );
memset( Longitude, 0, nRasterXSize*nRasterYSize*sizeof( float ) );
H5Dread ( LatitudeDatasetID,
H5T_NATIVE_FLOAT,
H5S_ALL,
H5S_ALL,
H5P_DEFAULT,
Latitude );
H5Dread ( LongitudeDatasetID,
H5T_NATIVE_FLOAT,
H5S_ALL,
H5S_ALL,
H5P_DEFAULT,
Longitude );
oSRS.SetWellKnownGeogCS( "WGS84" );
CPLFree(pszProjection);
CPLFree(pszGCPProjection);
oSRS.exportToWkt( &pszProjection );
oSRS.exportToWkt( &pszGCPProjection );
/* -------------------------------------------------------------------- */
/* Fill the GCPs list. */
/* -------------------------------------------------------------------- */
nGCPCount = (nRasterYSize/nDeltaLat) * (nRasterXSize/nDeltaLon);
pasGCPList = static_cast<GDAL_GCP *>(
CPLCalloc( nGCPCount, sizeof( GDAL_GCP ) ) );
GDALInitGCPs( nGCPCount, pasGCPList );
int k=0;
const int nYLimit = (static_cast<int>(nRasterYSize)/nDeltaLat) * nDeltaLat;
const int nXLimit = (static_cast<int>(nRasterXSize)/nDeltaLon) * nDeltaLon;
// The original code in https://trac.osgeo.org/gdal/changeset/8066
// always add +180 to the longitudes, but without justification
// I suspect this might be due to handling products crossing the
// antimeridian. Trying to do it just when needed through a heuristics.
bool bHasLonNearMinus180 = false;
bool bHasLonNearPlus180 = false;
bool bHasLonNearZero = false;
for( int j = 0; j < nYLimit; j+=nDeltaLat )
{
for( int i = 0; i < nXLimit; i+=nDeltaLon )
{
const int iGCP = j * nRasterXSize + i;
if( Longitude[iGCP] > 170 && Longitude[iGCP] <= 180 )
bHasLonNearPlus180 = true;
if( Longitude[iGCP] < -170 && Longitude[iGCP] >= -180 )
bHasLonNearMinus180 = true;
if( fabs(Longitude[iGCP]) < 90 )
bHasLonNearZero = true;
}
}
const char* pszShiftGCP =
CPLGetConfigOption("HDF5_SHIFT_GCPX_BY_180", NULL);
const bool bAdd180 = (bHasLonNearPlus180 && bHasLonNearMinus180 &&
!bHasLonNearZero && pszShiftGCP == NULL) ||
(pszShiftGCP != NULL && CPLTestBool(pszShiftGCP));
for( int j = 0; j < nYLimit; j+=nDeltaLat )
{
for( int i = 0; i < nXLimit; i+=nDeltaLon )
{
const int iGCP = j * nRasterXSize + i;
pasGCPList[k].dfGCPX = static_cast<double>(Longitude[iGCP]);
if( bAdd180 )
pasGCPList[k].dfGCPX += 180.0;
pasGCPList[k].dfGCPY = static_cast<double>(Latitude[iGCP]);
pasGCPList[k].dfGCPPixel = i + 0.5;
pasGCPList[k++].dfGCPLine = j + 0.5;
}
}
CPLFree( Latitude );
CPLFree( Longitude );
}
if( LatitudeDatasetID > 0 )
H5Dclose(LatitudeDatasetID);
if( LongitudeDatasetID > 0 )
H5Dclose(LongitudeDatasetID);
break;
}
}
return CE_None;
}
OGRErr OGRMySQLTableLayer::ICreateFeature( OGRFeature *poFeature )
{
MYSQL_RES *hResult=NULL;
CPLString osCommand;
int i, bNeedComma = FALSE;
/* -------------------------------------------------------------------- */
/* Form the INSERT command. */
/* -------------------------------------------------------------------- */
osCommand.Printf( "INSERT INTO `%s` (", poFeatureDefn->GetName() );
if( poFeature->GetGeometryRef() != NULL )
{
osCommand = osCommand + "`" + pszGeomColumn + "` ";
bNeedComma = TRUE;
}
if( poFeature->GetFID() != OGRNullFID && pszFIDColumn != NULL )
{
if( bNeedComma )
osCommand += ", ";
osCommand = osCommand + "`" + pszFIDColumn + "` ";
bNeedComma = TRUE;
}
for( i = 0; i < poFeatureDefn->GetFieldCount(); i++ )
{
if( !poFeature->IsFieldSet( i ) )
continue;
if( !bNeedComma )
bNeedComma = TRUE;
else
osCommand += ", ";
osCommand = osCommand + "`"
+ poFeatureDefn->GetFieldDefn(i)->GetNameRef() + "`";
}
osCommand += ") VALUES (";
// Set the geometry
bNeedComma = poFeature->GetGeometryRef() != NULL;
if( poFeature->GetGeometryRef() != NULL)
{
char *pszWKT = NULL;
if( poFeature->GetGeometryRef() != NULL )
{
OGRGeometry *poGeom = (OGRGeometry *) poFeature->GetGeometryRef();
poGeom->closeRings();
poGeom->flattenTo2D();
poGeom->exportToWkt( &pszWKT );
}
if( pszWKT != NULL )
{
osCommand +=
CPLString().Printf(
"GeometryFromText('%s',%d) ", pszWKT, nSRSId );
OGRFree( pszWKT );
}
else
osCommand += "''";
}
// Set the FID
if( poFeature->GetFID() != OGRNullFID && pszFIDColumn != NULL )
{
GIntBig nFID = poFeature->GetFID();
if( !CPL_INT64_FITS_ON_INT32(nFID) &&
GetMetadataItem(OLMD_FID64) == NULL )
{
CPLString osCommand2;
osCommand2.Printf(
"ALTER TABLE `%s` MODIFY COLUMN `%s` BIGINT UNIQUE NOT NULL AUTO_INCREMENT",
poFeatureDefn->GetName(), pszFIDColumn );
if( mysql_query(poDS->GetConn(), osCommand2 ) )
{
poDS->ReportError( osCommand2 );
return OGRERR_FAILURE;
}
// make sure to attempt to free results of successful queries
hResult = mysql_store_result( poDS->GetConn() );
if( hResult != NULL )
mysql_free_result( hResult );
hResult = NULL;
SetMetadataItem(OLMD_FID64, "YES");
}
if( bNeedComma )
osCommand += ", ";
osCommand += CPLString().Printf( CPL_FRMT_GIB, nFID );
bNeedComma = TRUE;
}
for( i = 0; i < poFeatureDefn->GetFieldCount(); i++ )
{
if( !poFeature->IsFieldSet( i ) )
continue;
if( bNeedComma )
osCommand += ", ";
else
bNeedComma = TRUE;
const char *pszStrValue = poFeature->GetFieldAsString(i);
if( poFeatureDefn->GetFieldDefn(i)->GetType() != OFTInteger
&& poFeatureDefn->GetFieldDefn(i)->GetType() != OFTInteger64
&& poFeatureDefn->GetFieldDefn(i)->GetType() != OFTReal
&& poFeatureDefn->GetFieldDefn(i)->GetType() != OFTBinary )
{
int iChar;
//We need to quote and escape string fields.
osCommand += "'";
for( iChar = 0; pszStrValue[iChar] != '\0'; iChar++ )
{
if( poFeatureDefn->GetFieldDefn(i)->GetType() != OFTIntegerList
&& poFeatureDefn->GetFieldDefn(i)->GetType() != OFTInteger64List
&& poFeatureDefn->GetFieldDefn(i)->GetType() != OFTRealList
&& poFeatureDefn->GetFieldDefn(i)->GetWidth() > 0
&& iChar == poFeatureDefn->GetFieldDefn(i)->GetWidth() )
{
CPLDebug( "MYSQL",
"Truncated %s field value, it was too long.",
poFeatureDefn->GetFieldDefn(i)->GetNameRef() );
break;
}
if( pszStrValue[iChar] == '\\'
|| pszStrValue[iChar] == '\'' )
{
osCommand += '\\';
osCommand += pszStrValue[iChar];
}
else
osCommand += pszStrValue[iChar];
}
osCommand += "'";
}
else if( poFeatureDefn->GetFieldDefn(i)->GetType() == OFTBinary )
{
int binaryCount = 0;
GByte* binaryData = poFeature->GetFieldAsBinary(i, &binaryCount);
char* pszHexValue = CPLBinaryToHex( binaryCount, binaryData );
osCommand += "x'";
osCommand += pszHexValue;
osCommand += "'";
CPLFree( pszHexValue );
}
else
{
osCommand += pszStrValue;
}
}
osCommand += ")";
//CPLDebug("MYSQL", "%s", osCommand.c_str());
int nQueryResult = mysql_query(poDS->GetConn(), osCommand.c_str() );
const my_ulonglong nFID = mysql_insert_id( poDS->GetConn() );
if( nQueryResult ){
int eErrorCode = mysql_errno(poDS->GetConn());
if (eErrorCode == 1153) {//ER_NET_PACKET_TOO_LARGE)
poDS->ReportError("CreateFeature failed because the MySQL server " \
"cannot read the entire query statement. Increase " \
"the size of statements your server will allow by " \
"altering the 'max_allowed_packet' parameter in "\
"your MySQL server configuration.");
}
else
{
CPLDebug("MYSQL","Error number %d", eErrorCode);
poDS->ReportError( osCommand.c_str() );
}
// make sure to attempt to free results
hResult = mysql_store_result( poDS->GetConn() );
if( hResult != NULL )
mysql_free_result( hResult );
hResult = NULL;
return OGRERR_FAILURE;
}
if( nFID > 0 ) {
poFeature->SetFID( nFID );
}
// make sure to attempt to free results of successful queries
hResult = mysql_store_result( poDS->GetConn() );
if( hResult != NULL )
mysql_free_result( hResult );
hResult = NULL;
return OGRERR_NONE;
}