github-starred/ultimatepp
2
0
Fork 0
mirror of https://github.com/ultimatepp/ultimatepp.git synced 2026-08-27 14:23:06 -06:00
Code Issues 33 Projects Packages Wiki Activity Actions
ultimatepp/bazaar/plugin/gdal/ogr/ogr_srs_esri.cpp
cxl 23ff1e7e82 .gdal moved to bazaar 
git-svn-id: svn://ultimatepp.org/upp/trunk@9273 f0d560ea-af0d-0410-9eb7-867de7ffcac7
2015-12-07 13:36:24 +00:00

2489 lines
95 KiB
C++
Raw Blame History

/******************************************************************************
* $Id: ogr_srs_esri.cpp 29116 2015-05-02 20:39:55Z rouault $
*
* Project: OpenGIS Simple Features Reference Implementation
* Purpose: OGRSpatialReference translation to/from ESRI .prj definitions.
* Author: Frank Warmerdam, warmerdam@pobox.com
*
******************************************************************************
* Copyright (c) 2000, Frank Warmerdam
* Copyright (c) 2007-2013, Even Rouault <even dot rouault at mines-paris dot org>
* Copyright (c) 2013, Kyle Shannon <kyle at pobox dot com>
*
* Permission is hereby granted, free of charge, to any person obtaining a
* copy of this software and associated documentation files (the "Software"),
* to deal in the Software without restriction, including without limitation
* the rights to use, copy, modify, merge, publish, distribute, sublicense,
* and/or sell copies of the Software, and to permit persons to whom the
* Software is furnished to do so, subject to the following conditions:
*
* The above copyright notice and this permission notice shall be included
* in all copies or substantial portions of the Software.
*
* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
* OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
* THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
* LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
* FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
* DEALINGS IN THE SOFTWARE.
****************************************************************************/
#include "ogr_spatialref.h"
#include "ogr_p.h"
#include "cpl_csv.h"
#include "cpl_multiproc.h"
#include "ogr_srs_esri_names.h"
CPL_CVSID("$Id: ogr_srs_esri.cpp 29116 2015-05-02 20:39:55Z rouault $");
void SetNewName( OGRSpatialReference* pOgr, const char* keyName, const char* newName );
int RemapImgWGSProjcsName(OGRSpatialReference* pOgr, const char* pszProjCSName,
const char* pszProgCSName);
int RemapImgUTMNames(OGRSpatialReference* pOgr, const char* pszProjCSName,
const char* pszProgCSName, char **mappingTable);
int RemapNameBasedOnKeyName(OGRSpatialReference* pOgr, const char* pszName,
const char* pszkeyName, char **mappingTable);
int RemapNamesBasedOnTwo(OGRSpatialReference* pOgr, const char* name1, const char* name2,
char **mappingTable, long nTableStepSize,
char** pszkeyNames, long nKeys);
int RemapPValuesBasedOnProjCSAndPName(OGRSpatialReference* pOgr,
const char* pszProgCSName, char **mappingTable);
int RemapPNamesBasedOnProjCSAndPName(OGRSpatialReference* pOgr,
const char* pszProgCSName, char **mappingTable);
int DeleteParamBasedOnPrjName( OGRSpatialReference* pOgr,
const char* pszProjectionName, char **mappingTable);
int AddParamBasedOnPrjName( OGRSpatialReference* pOgr,
const char* pszProjectionName, char **mappingTable);
int RemapGeogCSName(OGRSpatialReference* pOgr, const char *pszGeogCSName);
static int FindCodeFromDict( const char* pszDictFile, const char* CSName, char* code );
static const char *apszProjMapping[] = {
"Albers", SRS_PT_ALBERS_CONIC_EQUAL_AREA,
"Cassini", SRS_PT_CASSINI_SOLDNER,
"Equidistant_Cylindrical", SRS_PT_EQUIRECTANGULAR,
"Plate_Carree", SRS_PT_EQUIRECTANGULAR,
"Hotine_Oblique_Mercator_Azimuth_Natural_Origin",
SRS_PT_HOTINE_OBLIQUE_MERCATOR,
"Lambert_Conformal_Conic", SRS_PT_LAMBERT_CONFORMAL_CONIC_2SP,
"Lambert_Conformal_Conic", SRS_PT_LAMBERT_CONFORMAL_CONIC_1SP,
"Van_der_Grinten_I", SRS_PT_VANDERGRINTEN,
SRS_PT_TRANSVERSE_MERCATOR, SRS_PT_TRANSVERSE_MERCATOR,
"Gauss_Kruger", SRS_PT_TRANSVERSE_MERCATOR,
"Mercator", SRS_PT_MERCATOR_1SP,
NULL, NULL };
static const char *apszAlbersMapping[] = {
SRS_PP_CENTRAL_MERIDIAN, SRS_PP_LONGITUDE_OF_CENTER,
SRS_PP_LATITUDE_OF_ORIGIN, SRS_PP_LATITUDE_OF_CENTER,
"Central_Parallel", SRS_PP_LATITUDE_OF_CENTER,
NULL, NULL };
static const char *apszECMapping[] = {
SRS_PP_CENTRAL_MERIDIAN, SRS_PP_LONGITUDE_OF_CENTER,
SRS_PP_LATITUDE_OF_ORIGIN, SRS_PP_LATITUDE_OF_CENTER,
NULL, NULL };
static const char *apszMercatorMapping[] = {
SRS_PP_STANDARD_PARALLEL_1, SRS_PP_LATITUDE_OF_ORIGIN,
NULL, NULL };
static const char *apszPolarStereographicMapping[] = {
SRS_PP_STANDARD_PARALLEL_1, SRS_PP_LATITUDE_OF_ORIGIN,
NULL, NULL };
static const char *apszOrthographicMapping[] = {
"Longitude_Of_Center", SRS_PP_CENTRAL_MERIDIAN,
"Latitude_Of_Center", SRS_PP_LATITUDE_OF_ORIGIN,
NULL, NULL };
static const char *apszLambertConformalConicMapping[] = {
"Central_Parallel", SRS_PP_LATITUDE_OF_ORIGIN,
NULL, NULL };
static char **papszDatumMapping = NULL;
static CPLMutex* hDatumMappingMutex = NULL;
static const char *apszDefaultDatumMapping[] = {
"6267", "North_American_1927", SRS_DN_NAD27,
"6269", "North_American_1983", SRS_DN_NAD83,
NULL, NULL, NULL };
static const char *apszSpheroidMapping[] = {
"WGS_84", "WGS_1984",
"WGS_72", "WGS_1972",
"GRS_1967_Modified", "GRS_1967_Truncated",
"Krassowsky_1940", "Krasovsky_1940",
"Everest_1830_1937_Adjustment", "Everest_Adjustment_1937",
NULL, NULL };
static const char *apszUnitMapping[] = {
"Meter", "meter",
"Meter", "metre",
"Foot", "foot",
"Foot", "feet",
"Foot", "international_feet",
"Foot_US", SRS_UL_US_FOOT,
"Foot_Clarke", "clarke_feet",
"Degree", "degree",
"Degree", "degrees",
"Degree", SRS_UA_DEGREE,
"Radian", SRS_UA_RADIAN,
NULL, NULL };
/* -------------------------------------------------------------------- */
/* Table relating USGS and ESRI state plane zones. */
/* -------------------------------------------------------------------- */
static const int anUsgsEsriZones[] =
{
101, 3101,
102, 3126,
201, 3151,
202, 3176,
203, 3201,
301, 3226,
302, 3251,
401, 3276,
402, 3301,
403, 3326,
404, 3351,
405, 3376,
406, 3401,
407, 3426,
501, 3451,
502, 3476,
503, 3501,
600, 3526,
700, 3551,
901, 3601,
902, 3626,
903, 3576,
1001, 3651,
1002, 3676,
1101, 3701,
1102, 3726,
1103, 3751,
1201, 3776,
1202, 3801,
1301, 3826,
1302, 3851,
1401, 3876,
1402, 3901,
1501, 3926,
1502, 3951,
1601, 3976,
1602, 4001,
1701, 4026,
1702, 4051,
1703, 6426,
1801, 4076,
1802, 4101,
1900, 4126,
2001, 4151,
2002, 4176,
2101, 4201,
2102, 4226,
2103, 4251,
2111, 6351,
2112, 6376,
2113, 6401,
2201, 4276,
2202, 4301,
2203, 4326,
2301, 4351,
2302, 4376,
2401, 4401,
2402, 4426,
2403, 4451,
2500, 0,
2501, 4476,
2502, 4501,
2503, 4526,
2600, 0,
2601, 4551,
2602, 4576,
2701, 4601,
2702, 4626,
2703, 4651,
2800, 4676,
2900, 4701,
3001, 4726,
3002, 4751,
3003, 4776,
3101, 4801,
3102, 4826,
3103, 4851,
3104, 4876,
3200, 4901,
3301, 4926,
3302, 4951,
3401, 4976,
3402, 5001,
3501, 5026,
3502, 5051,
3601, 5076,
3602, 5101,
3701, 5126,
3702, 5151,
3800, 5176,
3900, 0,
3901, 5201,
3902, 5226,
4001, 5251,
4002, 5276,
4100, 5301,
4201, 5326,
4202, 5351,
4203, 5376,
4204, 5401,
4205, 5426,
4301, 5451,
4302, 5476,
4303, 5501,
4400, 5526,
4501, 5551,
4502, 5576,
4601, 5601,
4602, 5626,
4701, 5651,
4702, 5676,
4801, 5701,
4802, 5726,
4803, 5751,
4901, 5776,
4902, 5801,
4903, 5826,
4904, 5851,
5001, 6101,
5002, 6126,
5003, 6151,
5004, 6176,
5005, 6201,
5006, 6226,
5007, 6251,
5008, 6276,
5009, 6301,
5010, 6326,
5101, 5876,
5102, 5901,
5103, 5926,
5104, 5951,
5105, 5976,
5201, 6001,
5200, 6026,
5200, 6076,
5201, 6051,
5202, 6051,
5300, 0,
5400, 0
};
/* -------------------------------------------------------------------- */
/* Datum Mapping functions and definitions */
/* -------------------------------------------------------------------- */
/* TODO adapt existing code and test */
#define DM_IDX_EPSG_CODE 0
#define DM_IDX_ESRI_NAME 1
#define DM_IDX_EPSG_NAME 2
#define DM_ELT_SIZE 3
#define DM_GET_EPSG_CODE(map, i) map[(i)*DM_ELT_SIZE + DM_IDX_EPSG_CODE]
#define DM_GET_ESRI_NAME(map, i) map[(i)*DM_ELT_SIZE + DM_IDX_ESRI_NAME]
#define DM_GET_EPSG_NAME(map, i) map[(i)*DM_ELT_SIZE + DM_IDX_EPSG_NAME]
char *DMGetEPSGCode(int i) { return DM_GET_EPSG_CODE(papszDatumMapping, i); }
char *DMGetESRIName(int i) { return DM_GET_ESRI_NAME(papszDatumMapping, i); }
char *DMGetEPSGName(int i) { return DM_GET_EPSG_NAME(papszDatumMapping, i); }
void OGREPSGDatumNameMassage( char ** ppszDatum );
/************************************************************************/
/* ESRIToUSGSZone() */
/* */
/* Convert ESRI style state plane zones to USGS style state */
/* plane zones. */
/************************************************************************/
static int ESRIToUSGSZone( int nESRIZone )
{
int nPairs = sizeof(anUsgsEsriZones) / (2*sizeof(int));
int i;
for( i = 0; i < nPairs; i++ )
{
if( anUsgsEsriZones[i*2+1] == nESRIZone )
return anUsgsEsriZones[i*2];
}
return 0;
}
/************************************************************************/
/* MorphNameToESRI() */
/* */
/* Make name ESRI compatible. Convert spaces and special */
/* characters to underscores and then strip down. */
/************************************************************************/
static void MorphNameToESRI( char ** ppszName )
{
int i, j;
char *pszName = *ppszName;
if (pszName[0] == '\0')
return;
/* -------------------------------------------------------------------- */
/* Translate non-alphanumeric values to underscores. */
/* -------------------------------------------------------------------- */
for( i = 0; pszName[i] != '\0'; i++ )
{
if( pszName[i] != '+'
&& !(pszName[i] >= 'A' && pszName[i] <= 'Z')
&& !(pszName[i] >= 'a' && pszName[i] <= 'z')
&& !(pszName[i] >= '0' && pszName[i] <= '9') )
{
pszName[i] = '_';
}
}
/* -------------------------------------------------------------------- */
/* Remove repeated and trailing underscores. */
/* -------------------------------------------------------------------- */
for( i = 1, j = 0; pszName[i] != '\0'; i++ )
{
if( pszName[j] == '_' && pszName[i] == '_' )
continue;
pszName[++j] = pszName[i];
}
if( pszName[j] == '_' )
pszName[j] = '\0';
else
pszName[j+1] = '\0';
}
/************************************************************************/
/* CleanESRIDatumMappingTable() */
/************************************************************************/
CPL_C_START
void CleanupESRIDatumMappingTable()
{
if( papszDatumMapping == NULL )
return;
if( papszDatumMapping != (char **) apszDefaultDatumMapping )
{
CSLDestroy( papszDatumMapping );
papszDatumMapping = NULL;
}
if( hDatumMappingMutex != NULL )
{
CPLDestroyMutex(hDatumMappingMutex);
hDatumMappingMutex = NULL;
}
}
CPL_C_END
/************************************************************************/
/* InitDatumMappingTable() */
/************************************************************************/
static void InitDatumMappingTable()
{
CPLMutexHolderD(&hDatumMappingMutex);
if( papszDatumMapping != NULL )
return;
/* -------------------------------------------------------------------- */
/* Try to open the datum.csv file. */
/* -------------------------------------------------------------------- */
const char *pszFilename = CSVFilename("gdal_datum.csv");
FILE * fp = VSIFOpen( pszFilename, "rb" );
/* -------------------------------------------------------------------- */
/* Use simple default set if we can't find the file. */
/* -------------------------------------------------------------------- */
if( fp == NULL )
{
papszDatumMapping = (char **)apszDefaultDatumMapping;
return;
}
/* -------------------------------------------------------------------- */
/* Figure out what fields we are interested in. */
/* -------------------------------------------------------------------- */
char **papszFieldNames = CSVReadParseLine( fp );
int nDatumCodeField = CSLFindString( papszFieldNames, "DATUM_CODE" );
int nEPSGNameField = CSLFindString( papszFieldNames, "DATUM_NAME" );
int nESRINameField = CSLFindString( papszFieldNames, "ESRI_DATUM_NAME" );
CSLDestroy( papszFieldNames );
if( nDatumCodeField == -1 || nEPSGNameField == -1 || nESRINameField == -1 )
{
CPLError( CE_Failure, CPLE_AppDefined,
"Failed to find required field in gdal_datum.csv in InitDatumMappingTable(), using default table setup." );
papszDatumMapping = (char **)apszDefaultDatumMapping;
VSIFClose( fp );
return;
}
/* -------------------------------------------------------------------- */
/* Read each line, adding a detail line for each. */
/* -------------------------------------------------------------------- */
int nMappingCount = 0;
const int nMaxDatumMappings = 1000;
char **papszFields;
papszDatumMapping = (char **)CPLCalloc(sizeof(char*),nMaxDatumMappings*3);
for( papszFields = CSVReadParseLine( fp );
papszFields != NULL;
papszFields = CSVReadParseLine( fp ) )
{
int nFieldCount = CSLCount(papszFields);
CPLAssert( nMappingCount+1 < nMaxDatumMappings );
if( MAX(nEPSGNameField,MAX(nDatumCodeField,nESRINameField))
< nFieldCount
&& nMaxDatumMappings > nMappingCount+1 )
{
papszDatumMapping[nMappingCount*3+0] =
CPLStrdup( papszFields[nDatumCodeField] );
papszDatumMapping[nMappingCount*3+1] =
CPLStrdup( papszFields[nESRINameField] );
papszDatumMapping[nMappingCount*3+2] =
CPLStrdup( papszFields[nEPSGNameField] );
OGREPSGDatumNameMassage( &(papszDatumMapping[nMappingCount*3+2]) );
nMappingCount++;
}
CSLDestroy( papszFields );
}
VSIFClose( fp );
papszDatumMapping[nMappingCount*3+0] = NULL;
papszDatumMapping[nMappingCount*3+1] = NULL;
papszDatumMapping[nMappingCount*3+2] = NULL;
}
/************************************************************************/
/* OSRImportFromESRI() */
/************************************************************************/
/**
* \brief Import coordinate system from ESRI .prj format(s).
*
* This function is the same as the C++ method OGRSpatialReference::importFromESRI()
*/
OGRErr OSRImportFromESRI( OGRSpatialReferenceH hSRS, char **papszPrj )
{
VALIDATE_POINTER1( hSRS, "OSRImportFromESRI", CE_Failure );
return ((OGRSpatialReference *) hSRS)->importFromESRI( papszPrj );
}
/************************************************************************/
/* OSR_GDV() */
/* */
/* Fetch a particular parameter out of the parameter list, or */
/* the indicated default if it isn't available. This is a */
/* helper function for importFromESRI(). */
/************************************************************************/
static double OSR_GDV( char **papszNV, const char * pszField,
double dfDefaultValue )
{
int iLine;
if( papszNV == NULL || papszNV[0] == NULL )
return dfDefaultValue;
if( EQUALN(pszField,"PARAM_",6) )
{
int nOffset;
for( iLine = 0;
papszNV[iLine] != NULL && !EQUALN(papszNV[iLine],"Paramet",7);
iLine++ ) {}
for( nOffset=atoi(pszField+6);
papszNV[iLine] != NULL && nOffset > 0;
iLine++ )
{
if( strlen(papszNV[iLine]) > 0 )
nOffset--;
}
while( papszNV[iLine] != NULL && strlen(papszNV[iLine]) == 0 )
iLine++;
if( papszNV[iLine] != NULL )
{
char **papszTokens, *pszLine = papszNV[iLine];
double dfValue;
int i;
// Trim comments.
for( i=0; pszLine[i] != '\0'; i++ )
{
if( pszLine[i] == '/' && pszLine[i+1] == '*' )
pszLine[i] = '\0';
}
papszTokens = CSLTokenizeString(papszNV[iLine]);
if( CSLCount(papszTokens) == 3 )
{
/* http://agdcftp1.wr.usgs.gov/pub/projects/lcc/akcan_lcc/akcan.tar.gz contains */
/* weird values for the second. Ignore it and the result looks correct */
double dfSecond = CPLAtof(papszTokens[2]);
if (dfSecond < 0.0 || dfSecond >= 60.0)
dfSecond = 0.0;
dfValue = ABS(CPLAtof(papszTokens[0]))
+ CPLAtof(papszTokens[1]) / 60.0
+ dfSecond / 3600.0;
if( CPLAtof(papszTokens[0]) < 0.0 )
dfValue *= -1;
}
else if( CSLCount(papszTokens) > 0 )
dfValue = CPLAtof(papszTokens[0]);
else
dfValue = dfDefaultValue;
CSLDestroy( papszTokens );
return dfValue;
}
else
return dfDefaultValue;
}
else
{
for( iLine = 0;
papszNV[iLine] != NULL &&
!EQUALN(papszNV[iLine],pszField,strlen(pszField));
iLine++ ) {}
if( papszNV[iLine] == NULL )
return dfDefaultValue;
else
return CPLAtof( papszNV[iLine] + strlen(pszField) );
}
}
/************************************************************************/
/* OSR_GDS() */
/************************************************************************/
static CPLString OSR_GDS( char **papszNV, const char * pszField,
const char *pszDefaultValue )
{
int iLine;
if( papszNV == NULL || papszNV[0] == NULL )
return pszDefaultValue;
for( iLine = 0;
papszNV[iLine] != NULL &&
!EQUALN(papszNV[iLine],pszField,strlen(pszField));
iLine++ ) {}
if( papszNV[iLine] == NULL )
return pszDefaultValue;
else
{
CPLString osResult;
char **papszTokens;
papszTokens = CSLTokenizeString(papszNV[iLine]);
if( CSLCount(papszTokens) > 1 )
osResult = papszTokens[1];
else
osResult = pszDefaultValue;
CSLDestroy( papszTokens );
return osResult;
}
}
/************************************************************************/
/* importFromESRI() */
/************************************************************************/
/**
* \brief Import coordinate system from ESRI .prj format(s).
*
* This function will read the text loaded from an ESRI .prj file, and
* translate it into an OGRSpatialReference definition. This should support
* many (but by no means all) old style (Arc/Info 7.x) .prj files, as well
* as the newer pseudo-OGC WKT .prj files. Note that new style .prj files
* are in OGC WKT format, but require some manipulation to correct datum
* names, and units on some projection parameters. This is addressed within
* importFromESRI() by an automatical call to morphFromESRI().
*
* Currently only GEOGRAPHIC, UTM, STATEPLANE, GREATBRITIAN_GRID, ALBERS,
* EQUIDISTANT_CONIC, TRANSVERSE (mercator), POLAR, MERCATOR and POLYCONIC
* projections are supported from old style files.
*
* At this time there is no equivelent exportToESRI() method. Writing old
* style .prj files is not supported by OGRSpatialReference. However the
* morphToESRI() and exportToWkt() methods can be used to generate output
* suitable to write to new style (Arc 8) .prj files.
*
* This function is the equilvelent of the C function OSRImportFromESRI().
*
* @param papszPrj NULL terminated list of strings containing the definition.
*
* @return OGRERR_NONE on success or an error code in case of failure.
*/
OGRErr OGRSpatialReference::importFromESRI( char **papszPrj )
{
if( papszPrj == NULL || papszPrj[0] == NULL )
return OGRERR_CORRUPT_DATA;
/* -------------------------------------------------------------------- */
/* ArcGIS and related products now use a varient of Well Known */
/* Text. Try to recognise this and ingest it. WKT is usually */
/* all on one line, but we will accept multi-line formats and */
/* concatenate. */
/* -------------------------------------------------------------------- */
if( EQUALN(papszPrj[0],"GEOGCS",6)
|| EQUALN(papszPrj[0],"PROJCS",6)
|| EQUALN(papszPrj[0],"LOCAL_CS",8) )
{
char *pszWKT, *pszWKT2;
OGRErr eErr;
int i;
pszWKT = CPLStrdup(papszPrj[0]);
for( i = 1; papszPrj[i] != NULL; i++ )
{
pszWKT = (char *)
CPLRealloc(pszWKT,strlen(pszWKT)+strlen(papszPrj[i])+1);
strcat( pszWKT, papszPrj[i] );
}
pszWKT2 = pszWKT;
eErr = importFromWkt( &pszWKT2 );
CPLFree( pszWKT );
if( eErr == OGRERR_NONE )
eErr = morphFromESRI();
return eErr;
}
/* -------------------------------------------------------------------- */
/* Operate on the basis of the projection name. */
/* -------------------------------------------------------------------- */
CPLString osProj = OSR_GDS( papszPrj, "Projection", "" );
if( EQUAL(osProj,"") )
{
CPLDebug( "OGR_ESRI", "Can't find Projection\n" );
return OGRERR_CORRUPT_DATA;
}
else if( EQUAL(osProj,"GEOGRAPHIC") )
{
}
else if( EQUAL(osProj,"utm") )
{
if( (int) OSR_GDV( papszPrj, "zone", 0.0 ) != 0 )
{
double dfYShift = OSR_GDV( papszPrj, "Yshift", 0.0 );
SetUTM( (int) OSR_GDV( papszPrj, "zone", 0.0 ),
dfYShift == 0.0 );
}
else
{
double dfCentralMeridian, dfRefLat;
int nZone;
dfCentralMeridian = OSR_GDV( papszPrj, "PARAM_1", 0.0 );
dfRefLat = OSR_GDV( papszPrj, "PARAM_2", 0.0 );
nZone = (int) ((dfCentralMeridian+183) / 6.0 + 0.0000001);
SetUTM( nZone, dfRefLat >= 0.0 );
}
}
else if( EQUAL(osProj,"STATEPLANE") )
{
int nZone = (int) OSR_GDV( papszPrj, "zone", 0.0 );
if( nZone != 0 )
nZone = ESRIToUSGSZone( nZone );
else
nZone = (int) OSR_GDV( papszPrj, "fipszone", 0.0 );
if( nZone != 0 )
{
if( EQUAL(OSR_GDS( papszPrj, "Datum", "NAD83"),"NAD27") )
SetStatePlane( nZone, FALSE );
else
SetStatePlane( nZone, TRUE );
}
}
else if( EQUAL(osProj,"GREATBRITIAN_GRID")
|| EQUAL(osProj,"GREATBRITAIN_GRID") )
{
const char *pszWkt =
"PROJCS[\"OSGB 1936 / British National Grid\",GEOGCS[\"OSGB 1936\",DATUM[\"OSGB_1936\",SPHEROID[\"Airy 1830\",6377563.396,299.3249646]],PRIMEM[\"Greenwich\",0],UNIT[\"degree\",0.0174532925199433]],PROJECTION[\"Transverse_Mercator\"],PARAMETER[\"latitude_of_origin\",49],PARAMETER[\"central_meridian\",-2],PARAMETER[\"scale_factor\",0.999601272],PARAMETER[\"false_easting\",400000],PARAMETER[\"false_northing\",-100000],UNIT[\"metre\",1]]";
importFromWkt( (char **) &pszWkt );
}
else if( EQUAL(osProj,"ALBERS") )
{
SetACEA( OSR_GDV( papszPrj, "PARAM_1", 0.0 ),
OSR_GDV( papszPrj, "PARAM_2", 0.0 ),
OSR_GDV( papszPrj, "PARAM_4", 0.0 ),
OSR_GDV( papszPrj, "PARAM_3", 0.0 ),
OSR_GDV( papszPrj, "PARAM_5", 0.0 ),
OSR_GDV( papszPrj, "PARAM_6", 0.0 ) );
}
else if( EQUAL(osProj,"LAMBERT") )
{
SetLCC( OSR_GDV( papszPrj, "PARAM_1", 0.0 ),
OSR_GDV( papszPrj, "PARAM_2", 0.0 ),
OSR_GDV( papszPrj, "PARAM_4", 0.0 ),
OSR_GDV( papszPrj, "PARAM_3", 0.0 ),
OSR_GDV( papszPrj, "PARAM_5", 0.0 ),
OSR_GDV( papszPrj, "PARAM_6", 0.0 ) );
}
else if( EQUAL(osProj,"LAMBERT_AZIMUTHAL") )
{
SetLAEA( OSR_GDV( papszPrj, "PARAM_2", 0.0 ),
OSR_GDV( papszPrj, "PARAM_1", 0.0 ),
OSR_GDV( papszPrj, "PARAM_3", 0.0 ),
OSR_GDV( papszPrj, "PARAM_4", 0.0 ) );
}
else if( EQUAL(osProj,"EQUIDISTANT_CONIC") )
{
int nStdPCount = (int) OSR_GDV( papszPrj, "PARAM_1", 0.0 );
if( nStdPCount == 1 )
{
SetEC( OSR_GDV( papszPrj, "PARAM_2", 0.0 ),
OSR_GDV( papszPrj, "PARAM_2", 0.0 ),
OSR_GDV( papszPrj, "PARAM_4", 0.0 ),
OSR_GDV( papszPrj, "PARAM_3", 0.0 ),
OSR_GDV( papszPrj, "PARAM_5", 0.0 ),
OSR_GDV( papszPrj, "PARAM_6", 0.0 ) );
}
else
{
SetEC( OSR_GDV( papszPrj, "PARAM_2", 0.0 ),
OSR_GDV( papszPrj, "PARAM_3", 0.0 ),
OSR_GDV( papszPrj, "PARAM_5", 0.0 ),
OSR_GDV( papszPrj, "PARAM_4", 0.0 ),
OSR_GDV( papszPrj, "PARAM_5", 0.0 ),
OSR_GDV( papszPrj, "PARAM_7", 0.0 ) );
}
}
else if( EQUAL(osProj,"TRANSVERSE") )
{
SetTM( OSR_GDV( papszPrj, "PARAM_3", 0.0 ),
OSR_GDV( papszPrj, "PARAM_2", 0.0 ),
OSR_GDV( papszPrj, "PARAM_1", 0.0 ),
OSR_GDV( papszPrj, "PARAM_4", 0.0 ),
OSR_GDV( papszPrj, "PARAM_5", 0.0 ) );
}
else if( EQUAL(osProj,"POLAR") )
{
SetPS( OSR_GDV( papszPrj, "PARAM_2", 0.0 ),
OSR_GDV( papszPrj, "PARAM_1", 0.0 ),
1.0,
OSR_GDV( papszPrj, "PARAM_3", 0.0 ),
OSR_GDV( papszPrj, "PARAM_4", 0.0 ) );
}
else if( EQUAL(osProj,"MERCATOR") )
{
SetMercator( OSR_GDV( papszPrj, "PARAM_1", 0.0 ),
OSR_GDV( papszPrj, "PARAM_0", 0.0 ),
1.0,
OSR_GDV( papszPrj, "PARAM_2", 0.0 ),
OSR_GDV( papszPrj, "PARAM_3", 0.0 ) );
}
else if( EQUAL(osProj, SRS_PT_MERCATOR_AUXILIARY_SPHERE) )
{
// This is EPSG:3875 Pseudo Mercator. We might as well import it from
// the EPSG spec.
CPLString osAuxiliarySphereType;
importFromEPSG(3857);
}
else if( EQUAL(osProj,"POLYCONIC") )
{
SetPolyconic( OSR_GDV( papszPrj, "PARAM_2", 0.0 ),
OSR_GDV( papszPrj, "PARAM_1", 0.0 ),
OSR_GDV( papszPrj, "PARAM_3", 0.0 ),
OSR_GDV( papszPrj, "PARAM_4", 0.0 ) );
}
else
{
CPLDebug( "OGR_ESRI", "Unsupported projection: %s", osProj.c_str() );
SetLocalCS( osProj );
}
/* -------------------------------------------------------------------- */
/* Try to translate the datum/spheroid. */
/* -------------------------------------------------------------------- */
if( !IsLocal() && GetAttrNode( "GEOGCS" ) == NULL )
{
CPLString osDatum;
osDatum = OSR_GDS( papszPrj, "Datum", "");
if( EQUAL(osDatum,"NAD27") || EQUAL(osDatum,"NAD83")
|| EQUAL(osDatum,"WGS84") || EQUAL(osDatum,"WGS72") )
{
SetWellKnownGeogCS( osDatum );
}
else if( EQUAL( osDatum, "EUR" )
|| EQUAL( osDatum, "ED50" ) )
{
SetWellKnownGeogCS( "EPSG:4230" );
}
else if( EQUAL( osDatum, "GDA94" ) )
{
SetWellKnownGeogCS( "EPSG:4283" );
}
else
{
CPLString osSpheroid;
osSpheroid = OSR_GDS( papszPrj, "Spheroid", "");
if( EQUAL(osSpheroid,"INT1909")
|| EQUAL(osSpheroid,"INTERNATIONAL1909") )
{
OGRSpatialReference oGCS;
oGCS.importFromEPSG( 4022 );
CopyGeogCSFrom( &oGCS );
}
else if( EQUAL(osSpheroid,"AIRY") )
{
OGRSpatialReference oGCS;
oGCS.importFromEPSG( 4001 );
CopyGeogCSFrom( &oGCS );
}
else if( EQUAL(osSpheroid,"CLARKE1866") )
{
OGRSpatialReference oGCS;
oGCS.importFromEPSG( 4008 );
CopyGeogCSFrom( &oGCS );
}
else if( EQUAL(osSpheroid,"GRS80") )
{
OGRSpatialReference oGCS;
oGCS.importFromEPSG( 4019 );
CopyGeogCSFrom( &oGCS );
}
else if( EQUAL(osSpheroid,"KRASOVSKY")
|| EQUAL(osSpheroid,"KRASSOVSKY")
|| EQUAL(osSpheroid,"KRASSOWSKY") )
{
OGRSpatialReference oGCS;
oGCS.importFromEPSG( 4024 );
CopyGeogCSFrom( &oGCS );
}
else if( EQUAL(osSpheroid,"Bessel") )
{
OGRSpatialReference oGCS;
oGCS.importFromEPSG( 4004 );
CopyGeogCSFrom( &oGCS );
}
else
{
// If we don't know, default to WGS84 so there is something there.
SetWellKnownGeogCS( "WGS84" );
}
}
}
/* -------------------------------------------------------------------- */
/* Linear units translation */
/* -------------------------------------------------------------------- */
if( IsLocal() || IsProjected() )
{
CPLString osValue;
double dfOldUnits = GetLinearUnits();
osValue = OSR_GDS( papszPrj, "Units", "" );
if( EQUAL(osValue, "" ) )
SetLinearUnitsAndUpdateParameters( SRS_UL_METER, 1.0 );
else if( EQUAL(osValue,"FEET") )
SetLinearUnitsAndUpdateParameters( SRS_UL_US_FOOT, CPLAtof(SRS_UL_US_FOOT_CONV) );
else if( CPLAtof(osValue) != 0.0 )
SetLinearUnitsAndUpdateParameters( "user-defined",
1.0 / CPLAtof(osValue) );
else
SetLinearUnitsAndUpdateParameters( osValue, 1.0 );
// If we have reset the linear units we should clear any authority
// nodes on the PROJCS. This especially applies to state plane
// per bug 1697
double dfNewUnits = GetLinearUnits();
if( dfOldUnits != 0.0
&& (dfNewUnits / dfOldUnits < 0.9999999
|| dfNewUnits / dfOldUnits > 1.0000001) )
{
if( GetRoot()->FindChild( "AUTHORITY" ) != -1 )
GetRoot()->DestroyChild(GetRoot()->FindChild( "AUTHORITY" ));
}
}
return OGRERR_NONE;
}
/************************************************************************/
/* morphToESRI() */
/************************************************************************/
/**
* \brief Convert in place to ESRI WKT format.
*
* The value nodes of this coordinate system are modified in various manners
* more closely map onto the ESRI concept of WKT format. This includes
* renaming a variety of projections and arguments, and stripping out
* nodes note recognised by ESRI (like AUTHORITY and AXIS).
*
* This does the same as the C function OSRMorphToESRI().
*
* @return OGRERR_NONE unless something goes badly wrong.
*/
OGRErr OGRSpatialReference::morphToESRI()
{
OGRErr eErr;
/* -------------------------------------------------------------------- */
/* Fixup ordering, missing linear units, etc. */
/* -------------------------------------------------------------------- */
eErr = Fixup();
if( eErr != OGRERR_NONE )
return eErr;
/* -------------------------------------------------------------------- */
/* Strip all CT parameters (AXIS, AUTHORITY, TOWGS84, etc). */
/* -------------------------------------------------------------------- */
eErr = StripCTParms();
if( eErr != OGRERR_NONE )
return eErr;
if( GetRoot() == NULL )
return OGRERR_NONE;
/* -------------------------------------------------------------------- */
/* There is a special case for Hotine Oblique Mercator to split */
/* out the case with an angle to rectified grid. Bug 423 */
/* -------------------------------------------------------------------- */
const char *pszProjection = GetAttrValue("PROJECTION");
if( pszProjection != NULL
&& EQUAL(pszProjection,SRS_PT_HOTINE_OBLIQUE_MERCATOR)
&& fabs(GetProjParm(SRS_PP_AZIMUTH, 0.0 )-90) < 0.0001
&& fabs(GetProjParm(SRS_PP_RECTIFIED_GRID_ANGLE, 0.0 )-90) < 0.0001 )
{
SetNode( "PROJCS|PROJECTION",
"Hotine_Oblique_Mercator_Azimuth_Center" );
/* ideally we should strip out of the rectified_grid_angle */
// strip off rectified_grid_angle -- I hope it is 90!
OGR_SRSNode *poPROJCS = GetAttrNode( "PROJCS" );
int iRGAChild = FindProjParm( "rectified_grid_angle", poPROJCS );
if( iRGAChild != -1 )
poPROJCS->DestroyChild( iRGAChild);
pszProjection = GetAttrValue("PROJECTION");
}
/* -------------------------------------------------------------------- */
/* Polar_Stereographic maps to ESRI codes */
/* Stereographic_South_Pole or Stereographic_North_Pole based */
/* on latitude. */
/* -------------------------------------------------------------------- */
if( pszProjection != NULL
&& ( EQUAL(pszProjection,SRS_PT_POLAR_STEREOGRAPHIC) ))
{
if( GetProjParm(SRS_PP_LATITUDE_OF_ORIGIN, 0.0 ) < 0.0 )
{
SetNode( "PROJCS|PROJECTION",
"Stereographic_South_Pole" );
pszProjection = GetAttrValue("PROJECTION");
}
else
{
SetNode( "PROJCS|PROJECTION",
"Stereographic_North_Pole" );
pszProjection = GetAttrValue("PROJECTION");
}
}
/* -------------------------------------------------------------------- */
/* OBLIQUE_STEREOGRAPHIC maps to ESRI Double_Stereographic */
/* -------------------------------------------------------------------- */
if( pszProjection != NULL
&& ( EQUAL(pszProjection,SRS_PT_OBLIQUE_STEREOGRAPHIC) ))
{
SetNode( "PROJCS|PROJECTION", "Double_Stereographic" );
}
/* -------------------------------------------------------------------- */
/* Translate PROJECTION keywords that are misnamed. */
/* -------------------------------------------------------------------- */
GetRoot()->applyRemapper( "PROJECTION",
(char **)apszProjMapping+1,
(char **)apszProjMapping, 2 );
pszProjection = GetAttrValue("PROJECTION");
/* -------------------------------------------------------------------- */
/* Translate DATUM keywords that are misnamed. */
/* -------------------------------------------------------------------- */
InitDatumMappingTable();
GetRoot()->applyRemapper( "DATUM",
papszDatumMapping+2, papszDatumMapping+1, 3 );
const char *pszProjCSName = NULL;
const char *pszGcsName = NULL;
OGR_SRSNode *poProjCS = NULL;
OGR_SRSNode *poProjCSNodeChild = NULL;
/* -------------------------------------------------------------------- */
/* Very specific handling for some well known geographic */
/* coordinate systems. */
/* -------------------------------------------------------------------- */
OGR_SRSNode *poGeogCS = GetAttrNode( "GEOGCS" );
if( poGeogCS != NULL )
{
const char *pszGeogCSName = poGeogCS->GetChild(0)->GetValue();
const char *pszAuthName = GetAuthorityName("GEOGCS");
const char *pszUTMPrefix = NULL;
int nGCSCode = -1;
if( pszAuthName != NULL && EQUAL(pszAuthName,"EPSG") )
nGCSCode = atoi(GetAuthorityCode("GEOGCS"));
if( nGCSCode == 4326
|| EQUAL(pszGeogCSName,"WGS84")
|| EQUAL(pszGeogCSName,"WGS 84") )
{
poGeogCS->GetChild(0)->SetValue( "GCS_WGS_1984" );
pszUTMPrefix = "WGS_1984";
}
else if( nGCSCode == 4267
|| EQUAL(pszGeogCSName,"NAD27")
|| EQUAL(pszGeogCSName,"NAD 27") )
{
poGeogCS->GetChild(0)->SetValue( "GCS_North_American_1927" );
pszUTMPrefix = "NAD_1927";
}
else if( nGCSCode == 4269
|| EQUAL(pszGeogCSName,"NAD83")
|| EQUAL(pszGeogCSName,"NAD 83") )
{
poGeogCS->GetChild(0)->SetValue( "GCS_North_American_1983" );
pszUTMPrefix = "NAD_1983";
}
else if( nGCSCode == 4167
|| EQUAL(pszGeogCSName,"NZGD2000")
|| EQUAL(pszGeogCSName,"NZGD 2000") )
{
poGeogCS->GetChild(0)->SetValue( "GCS_NZGD_2000" );
pszUTMPrefix = "NZGD_2000";
}
else if( nGCSCode == 4272
|| EQUAL(pszGeogCSName,"NZGD49")
|| EQUAL(pszGeogCSName,"NZGD 49") )
{
poGeogCS->GetChild(0)->SetValue( "GCS_New_Zealand_1949" );
pszUTMPrefix = "NZGD_1949";
}
/* -------------------------------------------------------------------- */
/* Force Unnamed to Unknown for most common locations. */
/* -------------------------------------------------------------------- */
static const char *apszUnknownMapping[] = {
"Unknown", "Unnamed",
NULL, NULL
};
GetRoot()->applyRemapper( "PROJCS",
(char **)apszUnknownMapping+1,
(char **)apszUnknownMapping+0, 2 );
GetRoot()->applyRemapper( "GEOGCS",
(char **)apszUnknownMapping+1,
(char **)apszUnknownMapping+0, 2 );
GetRoot()->applyRemapper( "DATUM",
(char **)apszUnknownMapping+1,
(char **)apszUnknownMapping+0, 2 );
GetRoot()->applyRemapper( "SPHEROID",
(char **)apszUnknownMapping+1,
(char **)apszUnknownMapping+0, 2 );
GetRoot()->applyRemapper( "PRIMEM",
(char **)apszUnknownMapping+1,
(char **)apszUnknownMapping+0, 2 );
/* -------------------------------------------------------------------- */
/* If the PROJCS name is unset, use the PROJECTION name in */
/* place of unknown, or unnamed. At the request of Peng Gao. */
/* -------------------------------------------------------------------- */
if( (poProjCS = GetAttrNode( "PROJCS" )) != NULL )
poProjCSNodeChild = poProjCS->GetChild(0);
if( poProjCSNodeChild )
{
pszProjCSName = poProjCSNodeChild->GetValue();
char *pszNewValue = CPLStrdup(pszProjCSName);
MorphNameToESRI( &pszNewValue );
poProjCSNodeChild->SetValue( pszNewValue );
CPLFree( pszNewValue );
pszProjCSName = poProjCSNodeChild->GetValue();
}
if( pszProjCSName != NULL
&& ( EQUAL(pszProjCSName,"unnamed")
|| EQUAL(pszProjCSName,"unknown")
|| EQUAL(pszProjCSName,"") ) )
{
if( GetAttrValue( "PROJECTION", 0 ) != NULL )
{
pszProjCSName = GetAttrValue( "PROJECTION", 0 );
poProjCSNodeChild->SetValue( pszProjCSName );
}
}
/* -------------------------------------------------------------------- */
/* Prepare very specific PROJCS names for UTM coordinate */
/* systems. */
/* -------------------------------------------------------------------- */
int bNorth = 0;
int nZone = 0;
/* get zone from name first */
if( pszProjCSName && EQUALN(pszProjCSName, "UTM Zone ", 9) )
{
nZone = atoi(pszProjCSName+9);
if( strstr(pszProjCSName, "North") )
bNorth = 1;
}
/* if can not get from the name, from the parameters */
if( nZone <= 0 )
nZone = GetUTMZone( &bNorth );
if( nZone > 0 && pszUTMPrefix )
{
char szUTMName[128];
if( bNorth )
sprintf( szUTMName, "%s_UTM_Zone_%dN", pszUTMPrefix, nZone );
else
sprintf( szUTMName, "%s_UTM_Zone_%dS", pszUTMPrefix, nZone );
if( poProjCSNodeChild )
poProjCSNodeChild->SetValue( szUTMName );
}
}
/* -------------------------------------------------------------------- */
/* Translate UNIT keywords that are misnamed, or even the wrong */
/* case. */
/* -------------------------------------------------------------------- */
GetRoot()->applyRemapper( "UNIT",
(char **)apszUnitMapping+1,
(char **)apszUnitMapping, 2 );
/* -------------------------------------------------------------------- */
/* reset constants for decimal degrees to the exact string ESRI */
/* expects when encountered to ensure a matchup. */
/* -------------------------------------------------------------------- */
OGR_SRSNode *poUnit = GetAttrNode( "GEOGCS|UNIT" );
if( poUnit != NULL && poUnit->GetChildCount() >= 2
&& ABS(GetAngularUnits()-0.0174532925199433) < 0.00000000001 )
{
poUnit->GetChild(0)->SetValue("Degree");
poUnit->GetChild(1)->SetValue("0.017453292519943295");
}
/* -------------------------------------------------------------------- */
/* Make sure we reproduce US Feet exactly too. */
/* -------------------------------------------------------------------- */
poUnit = GetAttrNode( "PROJCS|UNIT" );
if( poUnit != NULL && poUnit->GetChildCount() >= 2
&& ABS(GetLinearUnits()- 0.30480060960121924) < 0.000000000000001)
{
poUnit->GetChild(0)->SetValue("Foot_US");
poUnit->GetChild(1)->SetValue("0.30480060960121924");
}
/* -------------------------------------------------------------------- */
/* Remap parameters used for Albers and Mercator. */
/* -------------------------------------------------------------------- */
pszProjection = GetAttrValue("PROJECTION");
poProjCS = GetAttrNode( "PROJCS" );
if( pszProjection != NULL && EQUAL(pszProjection,"Albers") )
GetRoot()->applyRemapper(
"PARAMETER", (char **)apszAlbersMapping + 1,
(char **)apszAlbersMapping + 0, 2 );
if( pszProjection != NULL
&& (EQUAL(pszProjection,SRS_PT_EQUIDISTANT_CONIC) ||
EQUAL(pszProjection,SRS_PT_LAMBERT_AZIMUTHAL_EQUAL_AREA) ||
EQUAL(pszProjection,SRS_PT_AZIMUTHAL_EQUIDISTANT) ||
EQUAL(pszProjection,SRS_PT_SINUSOIDAL) ||
EQUAL(pszProjection,SRS_PT_ROBINSON) ) )
GetRoot()->applyRemapper(
"PARAMETER", (char **)apszECMapping + 1,
(char **)apszECMapping + 0, 2 );
if( pszProjection != NULL && EQUAL(pszProjection,"Mercator") )
GetRoot()->applyRemapper(
"PARAMETER",
(char **)apszMercatorMapping + 1,
(char **)apszMercatorMapping + 0, 2 );
if( pszProjection != NULL
&& EQUALN(pszProjection,"Stereographic_",14)
&& EQUALN(pszProjection+strlen(pszProjection)-5,"_Pole",5) )
GetRoot()->applyRemapper(
"PARAMETER",
(char **)apszPolarStereographicMapping + 1,
(char **)apszPolarStereographicMapping + 0, 2 );
if( pszProjection != NULL && EQUAL(pszProjection,"Plate_Carree") )
if(FindProjParm( SRS_PP_STANDARD_PARALLEL_1, poProjCS ) < 0)
GetRoot()->applyRemapper(
"PARAMETER",
(char **)apszPolarStereographicMapping + 1,
(char **)apszPolarStereographicMapping + 0, 2 );
/* -------------------------------------------------------------------- */
/* ESRI's Equidistant_Cylindrical does not support the */
/* latitude_of_origin keyword. */
/* -------------------------------------------------------------------- */
if( pszProjection != NULL
&& EQUAL(pszProjection,"Equidistant_Cylindrical") )
{
if( GetNormProjParm(SRS_PP_LATITUDE_OF_ORIGIN,0.0) != 0.0 )
{
CPLDebug( "OGR_ESRI", "Equirectangular with non-zero latitude of origin - not supported." );
}
else
{
OGR_SRSNode *poPROJCS = GetAttrNode("PROJCS");
if( poPROJCS )
poPROJCS->DestroyChild(
FindProjParm( SRS_PP_LATITUDE_OF_ORIGIN ) );
}
}
/* -------------------------------------------------------------------- */
/* Convert SPHEROID name to use underscores instead of spaces. */
/* -------------------------------------------------------------------- */
OGR_SRSNode *poSpheroid;
OGR_SRSNode *poSpheroidChild = NULL;
poSpheroid = GetAttrNode( "SPHEROID" );
if( poSpheroid != NULL )
poSpheroidChild = poSpheroid->GetChild(0);
if( poSpheroidChild != NULL )
{
// char *pszNewValue = CPLStrdup(RemapSpheroidName(poSpheroidChild->GetValue()));
char *pszNewValue = CPLStrdup(poSpheroidChild->GetValue());
MorphNameToESRI( &pszNewValue );
poSpheroidChild->SetValue( pszNewValue );
CPLFree( pszNewValue );
GetRoot()->applyRemapper( "SPHEROID",
(char **) apszSpheroidMapping+0,
(char **) apszSpheroidMapping+1, 2 );
}
if( poSpheroid != NULL )
poSpheroidChild = poSpheroid->GetChild(2);
if( poSpheroidChild != NULL )
{
const char * dfValue = poSpheroidChild->GetValue();
for( int i = 0; apszInvFlatteningMapping[i] != NULL; i += 2 )
{
if( EQUALN(apszInvFlatteningMapping[i], dfValue, strlen(apszInvFlatteningMapping[i]) ))
{
poSpheroidChild->SetValue( apszInvFlatteningMapping[i+1] );
break;
}
}
}
/* -------------------------------------------------------------------- */
/* Try to insert a D_ in front of the datum name. */
/* -------------------------------------------------------------------- */
OGR_SRSNode *poDatum;
poDatum = GetAttrNode( "DATUM" );
if( poDatum != NULL )
poDatum = poDatum->GetChild(0);
if( poDatum != NULL )
{
const char* pszDatumName = poDatum->GetValue();
if( !EQUALN(pszDatumName, "D_",2) )
{
char *pszNewValue;
pszNewValue = (char *) CPLMalloc(strlen(poDatum->GetValue())+3);
strcpy( pszNewValue, "D_" );
strcat( pszNewValue, poDatum->GetValue() );
poDatum->SetValue( pszNewValue );
CPLFree( pszNewValue );
}
}
/* -------------------------------------------------------------------- */
/* final check names */
/* -------------------------------------------------------------------- */
if( poProjCSNodeChild )
pszProjCSName = poProjCSNodeChild->GetValue();
if( pszProjCSName )
{
pszGcsName = GetAttrValue( "GEOGCS" );
if(pszGcsName && !EQUALN( pszGcsName, "GCS_", 4 ) )
{
char* newGcsName = (char *) CPLMalloc(strlen(pszGcsName) + 5);
strcpy( newGcsName, "GCS_" );
strcat(newGcsName, pszGcsName);
SetNewName( this, "GEOGCS", newGcsName );
CPLFree( newGcsName );
pszGcsName = GetAttrValue("GEOGCS" );
}
RemapGeogCSName(this, pszGcsName);
// Specific processing and remapping
pszProjection = GetAttrValue("PROJECTION");
if(pszProjection)
{
if(EQUAL(pszProjection,"Lambert_Conformal_Conic"))
{
if(FindProjParm( SRS_PP_STANDARD_PARALLEL_2, poProjCS ) < 0 )
{
int iChild = FindProjParm( SRS_PP_LATITUDE_OF_ORIGIN, poProjCS );
int iChild1 = FindProjParm( SRS_PP_STANDARD_PARALLEL_1, poProjCS );
if( iChild >= 0 && iChild1 < 0 )
{
const OGR_SRSNode *poParameter = poProjCS->GetChild(iChild);
if( poParameter )
{
OGR_SRSNode *poNewParm = new OGR_SRSNode( "PARAMETER" );
poNewParm->AddChild( new OGR_SRSNode( "standard_parallel_1" ) );
poNewParm->AddChild( new OGR_SRSNode( poParameter->GetChild(1)->GetValue() ) );
poProjCS->AddChild( poNewParm );
}
}
}
}
if(EQUAL(pszProjection,"Plate_Carree"))
{
int iChild = FindProjParm( SRS_PP_STANDARD_PARALLEL_1, poProjCS );
if(iChild < 0)
iChild = FindProjParm( SRS_PP_PSEUDO_STD_PARALLEL_1, poProjCS );
if(iChild >= 0)
{
const OGR_SRSNode *poParameter = poProjCS->GetChild(iChild);
if(!EQUAL(poParameter->GetChild(1)->GetValue(), "0.0") && !EQUAL(poParameter->GetChild(1)->GetValue(), "0"))
{
SetNode( "PROJCS|PROJECTION", "Equidistant_Cylindrical" );
pszProjection = GetAttrValue("PROJECTION");
}
}
}
DeleteParamBasedOnPrjName( this, pszProjection, (char **)apszDeleteParametersBasedOnProjection);
AddParamBasedOnPrjName( this, pszProjection, (char **)apszAddParametersBasedOnProjection);
RemapPValuesBasedOnProjCSAndPName( this, pszProjection, (char **)apszParamValueMapping);
RemapPNamesBasedOnProjCSAndPName( this, pszProjection, (char **)apszParamNameMapping);
}
}
return OGRERR_NONE;
}
/************************************************************************/
/* OSRMorphToESRI() */
/************************************************************************/
/**
* \brief Convert in place to ESRI WKT format.
*
* This function is the same as the C++ method OGRSpatialReference::morphToESRI()
*/
OGRErr OSRMorphToESRI( OGRSpatialReferenceH hSRS )
{
VALIDATE_POINTER1( hSRS, "OSRMorphToESRI", CE_Failure );
return ((OGRSpatialReference *) hSRS)->morphToESRI();
}
/************************************************************************/
/* morphFromESRI() */
/* */
/* modify this definition from the ESRI definition of WKT to */
/* the "Standard" definition. */
/************************************************************************/
/**
* \brief Convert in place from ESRI WKT format.
*
* The value notes of this coordinate system are modified in various manners
* to adhere more closely to the WKT standard. This mostly involves
* translating a variety of ESRI names for projections, arguments and
* datums to "standard" names, as defined by Adam Gawne-Cain's reference
* translation of EPSG to WKT for the CT specification.
*
* Starting with GDAL 1.9.0, missing parameters in TOWGS84, DATUM or GEOGCS
* nodes can be added to the WKT, comparing existing WKT parameters to GDAL's
* databases. Note that this optional procedure is very conservative and should
* not introduce false information into the WKT defintion (altough caution
* should be advised when activating it). Needs the Configuration Option
* GDAL_FIX_ESRI_WKT be set to one of the following values (TOWGS84 is
* recommended for proper datum shift calculations):
*
* <b>GDAL_FIX_ESRI_WKT values</b>
* <table border="0">
* <tr><td>&nbsp;&nbsp;</td><td><b>TOWGS84</b></td><td>&nbsp;&nbsp;</td><td>
* Adds missing TOWGS84 parameters (necessary for datum transformations),
* based on named datum and spheroid values.</td></tr>
* <tr><td>&nbsp;&nbsp;</td><td><b>DATUM</b></td><td>&nbsp;&nbsp;</td><td>
* Adds EPSG AUTHORITY nodes and sets SPHEROID name to OGR spec.</td></tr>
* <tr><td>&nbsp;&nbsp;</td><td><b>GEOGCS</b></td><td>&nbsp;&nbsp;</td><td>
* Adds EPSG AUTHORITY nodes and sets GEOGCS, DATUM and SPHEROID
* names to OGR spec. Effectively replaces GEOGCS node with the result of
* importFromEPSG(n), using EPSG code n corresponding to the existing GEOGCS.
* Does not impact PROJCS values.</td></tr>
* </table>
*
* This does the same as the C function OSRMorphFromESRI().
*
* @return OGRERR_NONE unless something goes badly wrong.
*/
OGRErr OGRSpatialReference::morphFromESRI()
{
OGRErr eErr = OGRERR_NONE;
OGR_SRSNode *poDatum;
char *pszDatumOrig = NULL;
if( GetRoot() == NULL )
return OGRERR_NONE;
InitDatumMappingTable();
/* -------------------------------------------------------------------- */
/* Save original datum name for later */
/* -------------------------------------------------------------------- */
poDatum = GetAttrNode( "DATUM" );
if( poDatum != NULL )
{
poDatum = poDatum->GetChild(0);
pszDatumOrig = CPLStrdup( poDatum->GetValue() );
}
/* -------------------------------------------------------------------- */
/* Translate DATUM keywords that are oddly named. */
/* -------------------------------------------------------------------- */
GetRoot()->applyRemapper( "DATUM",
(char **)papszDatumMapping+1,
(char **)papszDatumMapping+2, 3 );
/* -------------------------------------------------------------------- */
/* Try to remove any D_ in front of the datum name. */
/* -------------------------------------------------------------------- */
poDatum = GetAttrNode( "DATUM" );
if( poDatum != NULL )
poDatum = poDatum->GetChild(0);
if( poDatum != NULL )
{
if( EQUALN(poDatum->GetValue(),"D_",2) )
{
char *pszNewValue = CPLStrdup( poDatum->GetValue() + 2 );
poDatum->SetValue( pszNewValue );
CPLFree( pszNewValue );
}
}
/* -------------------------------------------------------------------- */
/* Translate some SPHEROID keywords that are oddly named. */
/* -------------------------------------------------------------------- */
GetRoot()->applyRemapper( "SPHEROID",
(char **)apszSpheroidMapping+1,
(char **)apszSpheroidMapping+0, 2 );
/* -------------------------------------------------------------------- */
/* Split Lambert_Conformal_Conic into 1SP or 2SP form. */
/* */
/* See bugzilla.remotesensing.org/show_bug.cgi?id=187 */
/* */
/* We decide based on whether it has 2SPs. We used to assume */
/* 1SP if it had a scale factor but that turned out to be a */
/* poor test. */
/* -------------------------------------------------------------------- */
const char *pszProjection = GetAttrValue("PROJECTION");
if( pszProjection != NULL
&& EQUAL(pszProjection,"Lambert_Conformal_Conic") )
{
if( GetProjParm( SRS_PP_STANDARD_PARALLEL_1, 1000.0 ) != 1000.0
&& GetProjParm( SRS_PP_STANDARD_PARALLEL_2, 1000.0 ) != 1000.0 )
SetNode( "PROJCS|PROJECTION",
SRS_PT_LAMBERT_CONFORMAL_CONIC_2SP );
else
SetNode( "PROJCS|PROJECTION",
SRS_PT_LAMBERT_CONFORMAL_CONIC_1SP );
pszProjection = GetAttrValue("PROJECTION");
}
/* -------------------------------------------------------------------- */
/* If we are remapping Hotine_Oblique_Mercator_Azimuth_Center */
/* add a rectified_grid_angle parameter - to match the azimuth */
/* I guess. */
/* -------------------------------------------------------------------- */
if( pszProjection != NULL
&& EQUAL(pszProjection,"Hotine_Oblique_Mercator_Azimuth_Center") )
{
SetProjParm( SRS_PP_RECTIFIED_GRID_ANGLE ,
GetProjParm( SRS_PP_AZIMUTH, 0.0 ) );
FixupOrdering();
}
/* -------------------------------------------------------------------- */
/* Remap Albers, Mercator and Polar Stereographic parameters. */
/* -------------------------------------------------------------------- */
if( pszProjection != NULL && EQUAL(pszProjection,"Albers") )
GetRoot()->applyRemapper(
"PARAMETER", (char **)apszAlbersMapping + 0,
(char **)apszAlbersMapping + 1, 2 );
if( pszProjection != NULL
&& (EQUAL(pszProjection,SRS_PT_EQUIDISTANT_CONIC) ||
EQUAL(pszProjection,SRS_PT_LAMBERT_AZIMUTHAL_EQUAL_AREA) ||
EQUAL(pszProjection,SRS_PT_AZIMUTHAL_EQUIDISTANT) ||
EQUAL(pszProjection,SRS_PT_SINUSOIDAL) ||
EQUAL(pszProjection,SRS_PT_ROBINSON) ) )
GetRoot()->applyRemapper(
"PARAMETER", (char **)apszECMapping + 0,
(char **)apszECMapping + 1, 2 );
if( pszProjection != NULL && EQUAL(pszProjection,"Mercator") )
GetRoot()->applyRemapper(
"PARAMETER",
(char **)apszMercatorMapping + 0,
(char **)apszMercatorMapping + 1, 2 );
if( pszProjection != NULL && EQUAL(pszProjection,"Orthographic") )
GetRoot()->applyRemapper(
"PARAMETER", (char **)apszOrthographicMapping + 0,
(char **)apszOrthographicMapping + 1, 2 );
if( pszProjection != NULL
&& EQUALN(pszProjection,"Stereographic_",14)
&& EQUALN(pszProjection+strlen(pszProjection)-5,"_Pole",5) )
GetRoot()->applyRemapper(
"PARAMETER",
(char **)apszPolarStereographicMapping + 0,
(char **)apszPolarStereographicMapping + 1, 2 );
/* -------------------------------------------------------------------- */
/* Remap south and north polar stereographic to one value. */
/* -------------------------------------------------------------------- */
if( pszProjection != NULL
&& EQUALN(pszProjection,"Stereographic_",14)
&& EQUALN(pszProjection+strlen(pszProjection)-5,"_Pole",5) )
{
SetNode( "PROJCS|PROJECTION", SRS_PT_POLAR_STEREOGRAPHIC );
pszProjection = GetAttrValue("PROJECTION");
}
/* -------------------------------------------------------------------- */
/* Remap Double_Stereographic to Oblique_Stereographic. */
/* -------------------------------------------------------------------- */
if( pszProjection != NULL
&& EQUAL(pszProjection,"Double_Stereographic") )
{
SetNode( "PROJCS|PROJECTION", SRS_PT_OBLIQUE_STEREOGRAPHIC );
pszProjection = GetAttrValue("PROJECTION");
}
/* -------------------------------------------------------------------- */
/* Remap Equidistant_Cylindrical parameter. It is same as */
/* Stereographic */
/* -------------------------------------------------------------------- */
#ifdef notdef
if( pszProjection != NULL && EQUAL(pszProjection,"Equidistant_Cylindrical") )
GetRoot()->applyRemapper(
"PARAMETER",
(char **)apszPolarStereographicMapping + 0,
(char **)apszPolarStereographicMapping + 1, 2 );
#endif
/*
** Handle the value of Central_Parallel -> latitude_of_center.
** See ticket #3191. Other mappings probably need to be added.
*/
if( pszProjection != NULL &&
( EQUAL( pszProjection, SRS_PT_LAMBERT_CONFORMAL_CONIC_1SP ) ||
EQUAL( pszProjection, SRS_PT_LAMBERT_CONFORMAL_CONIC_2SP ) ) )
{
GetRoot()->applyRemapper(
"PARAMETER", (char **)apszLambertConformalConicMapping + 0,
(char **)apszLambertConformalConicMapping + 1, 2 );
/* LCC 1SP has duplicated parameters Standard_Parallel_1 and Latitude_Of_Origin */
/* http://trac.osgeo.org/gdal/ticket/2072 */
if( EQUAL( pszProjection, SRS_PT_LAMBERT_CONFORMAL_CONIC_1SP ) )
{
OGR_SRSNode *poPROJCS = GetAttrNode( "PROJCS" );
int iSP1Child = FindProjParm( "Standard_Parallel_1", poPROJCS );
int iLatOrigChild = FindProjParm( "Latitude_Of_Origin", poPROJCS );
if( iSP1Child != -1 && iLatOrigChild != 1 )
{
/* Do a sanity check before removing Standard_Parallel_1 */
if( EQUAL(poPROJCS->GetChild(iSP1Child)->GetValue(),
poPROJCS->GetChild(iLatOrigChild)->GetValue()) )
{
poPROJCS->DestroyChild( iSP1Child );
}
}
}
}
/* -------------------------------------------------------------------- */
/* Translate PROJECTION keywords that are misnamed. */
/* -------------------------------------------------------------------- */
GetRoot()->applyRemapper( "PROJECTION",
(char **)apszProjMapping,
(char **)apszProjMapping+1, 2 );
/* -------------------------------------------------------------------- */
/* Translate DATUM keywords that are misnamed. */
/* -------------------------------------------------------------------- */
InitDatumMappingTable();
GetRoot()->applyRemapper( "DATUM",
(char **)papszDatumMapping+1,
(char **)papszDatumMapping+2, 3 );
/* -------------------------------------------------------------------- */
/* Special case for Peru96 related SRS that should use the */
/* Peru96 DATUM, but in ESRI world, both Peru96 and SIRGAS-Chile */
/* are translated as D_SIRGAS-Chile. */
/* -------------------------------------------------------------------- */
int bPeru96Datum = FALSE;
if( poDatum != NULL && EQUAL(poDatum->GetValue(), "SIRGAS_Chile") )
{
const char* pszSRSName = GetAttrValue("PROJCS");
if( pszSRSName == NULL )
pszSRSName = GetAttrValue("GEOGCS");
if( strstr(pszSRSName, "Peru96") )
{
bPeru96Datum = TRUE;
poDatum->SetValue( "Peru96" );
}
}
/* -------------------------------------------------------------------- */
/* Fix TOWGS84, DATUM or GEOGCS */
/* -------------------------------------------------------------------- */
/* TODO test more ESRI WKT; also add PROJCS */
/* Check GDAL_FIX_ESRI_WKT config option (default=NO); if YES, set to DATUM */
const char *pszFixWktConfig=CPLGetConfigOption( "GDAL_FIX_ESRI_WKT", "NO" );
if ( EQUAL(pszFixWktConfig,"YES") )
pszFixWktConfig = "DATUM";
if( !EQUAL(pszFixWktConfig, "NO") && poDatum != NULL )
{
CPLDebug( "OGR_ESRI",
"morphFromESRI() looking for missing TOWGS84, datum=%s, config=%s",
pszDatumOrig, pszFixWktConfig );
/* Special case for WGS84 and other common GCS? */
for( int i = 0; DMGetESRIName(i) != NULL; i++ )
{
/* we found the ESRI datum name in the map */
if( EQUAL(DMGetESRIName(i),pszDatumOrig) )
{
const char *pszFilename = NULL;
char **papszRecord = NULL;
/* look for GEOGCS corresponding to this datum */
pszFilename = CSVFilename("gcs.csv");
papszRecord = CSVScanFileByName( pszFilename, "DATUM_CODE",
DMGetEPSGCode(i), CC_Integer );
if ( papszRecord != NULL )
{
/* skip the SIRGAS-Chile record for Peru96 related SRS */
if( bPeru96Datum && EQUAL(CSLGetField( papszRecord,
CSVGetFileFieldId(pszFilename,"DATUM_NAME")), "SIRGAS-Chile") )
continue;
/* make sure we got a valid EPSG code and it is not DEPRECATED */
int nGeogCS = atoi( CSLGetField( papszRecord,
CSVGetFileFieldId(pszFilename,"COORD_REF_SYS_CODE")) );
// int bDeprecated = atoi( CSLGetField( papszRecord,
// CSVGetFileFieldId(pszFilename,"DEPRECATED")) );
CPLDebug( "OGR_ESRI", "morphFromESRI() got GEOGCS node #%d", nGeogCS );
// if ( nGeogCS >= 1 && bDeprecated == 0 )
if ( nGeogCS >= 1 )
{
OGRSpatialReference oSRSTemp;
if ( oSRSTemp.importFromEPSG( nGeogCS ) == OGRERR_NONE )
{
/* make clone of GEOGCS and strip CT parms for testing */
OGRSpatialReference *poSRSTemp2 = NULL;
int bIsSame = FALSE;
char *pszOtherValue = NULL;
double dfThisValue, dfOtherValue;
OGR_SRSNode *poNode = NULL;
poSRSTemp2 = oSRSTemp.CloneGeogCS();
poSRSTemp2->StripCTParms();
bIsSame = this->IsSameGeogCS( poSRSTemp2 );
exportToWkt ( &pszOtherValue );
CPLDebug( "OGR_ESRI",
"morphFromESRI() got SRS %s, matching: %d",
pszOtherValue, bIsSame );
CPLFree( pszOtherValue );
delete poSRSTemp2;
/* clone GEOGCS from original if they match and if allowed */
if ( EQUAL(pszFixWktConfig,"GEOGCS")
&& bIsSame )
{
this->CopyGeogCSFrom( &oSRSTemp );
CPLDebug( "OGR_ESRI",
"morphFromESRI() cloned GEOGCS from EPSG:%d",
nGeogCS );
/* exit loop */
break;
}
/* else try to copy only DATUM or TOWGS84
we got here either because of config option or
GEOGCS are not strictly equal */
else if ( EQUAL(pszFixWktConfig,"GEOGCS") ||
EQUAL(pszFixWktConfig,"DATUM") ||
EQUAL(pszFixWktConfig,"TOWGS84") )
{
/* test for matching SPHEROID, because there can be 2 datums with same ESRI name
but different spheroids (e.g. EPSG:4618 and EPSG:4291) - see bug #4345 */
/* instead of testing for matching SPHEROID name (which can be error-prone), test
for matching parameters (semi-major and inverse flattening ) - see bug #4673 */
bIsSame = TRUE;
dfThisValue = this->GetSemiMajor();
dfOtherValue = oSRSTemp.GetSemiMajor();
if ( ABS( dfThisValue - dfOtherValue ) > 0.01 )
bIsSame = FALSE;
CPLDebug( "OGR_ESRI",
"morphFromESRI() SemiMajor: this = %.15g other = %.15g",
dfThisValue, dfOtherValue );
dfThisValue = this->GetInvFlattening();
dfOtherValue = oSRSTemp.GetInvFlattening();
if ( ABS( dfThisValue - dfOtherValue ) > 0.0001 )
bIsSame = FALSE;
CPLDebug( "OGR_ESRI",
"morphFromESRI() InvFlattening: this = %g other = %g",
dfThisValue, dfOtherValue );
if ( bIsSame )
{
/* test for matching PRIMEM, because there can be 2 datums with same ESRI name
but different prime meridian (e.g. EPSG:4218 and EPSG:4802) - see bug #4378 */
/* instead of testing for matching PRIMEM name (which can be error-prone), test
for matching value - see bug #4673 */
dfThisValue = this->GetPrimeMeridian();
dfOtherValue = oSRSTemp.GetPrimeMeridian();
CPLDebug( "OGR_ESRI",
"morphFromESRI() PRIMEM: this = %.15g other = %.15g",
dfThisValue, dfOtherValue );
if ( ABS( dfThisValue - dfOtherValue ) > 0.0001 )
bIsSame = FALSE;
}
/* found a matching spheroid */
if ( bIsSame )
{
/* clone DATUM */
if ( EQUAL(pszFixWktConfig,"GEOGCS") ||
EQUAL(pszFixWktConfig,"DATUM") )
{
OGR_SRSNode *poGeogCS = this->GetAttrNode( "GEOGCS" );
const OGR_SRSNode *poDatumOther = oSRSTemp.GetAttrNode( "DATUM" );
if ( poGeogCS && poDatumOther )
{
/* make sure we preserve the position of the DATUM node */
int nPos = poGeogCS->FindChild( "DATUM" );
if ( nPos >= 0 )
{
poGeogCS->DestroyChild( nPos );
poGeogCS->InsertChild( poDatumOther->Clone(), nPos );
CPLDebug( "OGR_ESRI",
"morphFromESRI() cloned DATUM from EPSG:%d",
nGeogCS );
}
}
}
/* just copy TOWGS84 */
else if ( EQUAL(pszFixWktConfig,"TOWGS84") )
{
poNode=oSRSTemp.GetAttrNode( "DATUM|TOWGS84" );
if ( poNode )
{
poNode=poNode->Clone();
GetAttrNode( "DATUM" )->AddChild( poNode );
CPLDebug( "OGR_ESRI",
"morphFromESRI() found missing TOWGS84 from EPSG:%d",
nGeogCS );
}
}
/* exit loop */
break;
}
}
}
}
}
}
}
}
CPLFree( pszDatumOrig );
return eErr;
}
/************************************************************************/
/* OSRMorphFromESRI() */
/************************************************************************/
/**
* \brief Convert in place from ESRI WKT format.
*
* This function is the same as the C++ method OGRSpatialReference::morphFromESRI()
*/
OGRErr OSRMorphFromESRI( OGRSpatialReferenceH hSRS )
{
VALIDATE_POINTER1( hSRS, "OSRMorphFromESRI", CE_Failure );
return ((OGRSpatialReference *) hSRS)->morphFromESRI();
}
/************************************************************************/
/* SetNewName() */
/* */
/* Set an esri name */
/************************************************************************/
void SetNewName( OGRSpatialReference* pOgr, const char* keyName, const char* newName )
{
OGR_SRSNode *poNode = pOgr->GetAttrNode( keyName );
OGR_SRSNode *poNodeChild = NULL;
if(poNode)
poNodeChild = poNode->GetChild(0);
if( poNodeChild)
poNodeChild->SetValue( newName);
}
/************************************************************************/
/* RemapImgWGSProjcsName() */
/* */
/* Convert Img projcs names to ESRI style */
/************************************************************************/
int RemapImgWGSProjcsName( OGRSpatialReference* pOgr, const char* pszProjCSName, const char* pszProgCSName )
{
if(EQUAL(pszProgCSName, "WGS_1972") || EQUAL(pszProgCSName, "WGS_1984") )
{
char* newName = (char *) CPLMalloc(strlen(pszProjCSName) + 10);
sprintf( newName, "%s_", pszProgCSName );
strcat(newName, pszProjCSName);
SetNewName( pOgr, "PROJCS", newName );
CPLFree( newName );
return 1;
}
return -1;
}
/************************************************************************/
/* RemapImgUTMNames() */
/* */
/* Convert Img UTM names to ESRI style */
/************************************************************************/
int RemapImgUTMNames( OGRSpatialReference* pOgr, const char* pszProjCSName, const char* pszProgCSName,
char **mappingTable )
{
long i;
long iIndex = -1;
for( i = 0; mappingTable[i] != NULL; i += 5 )
{
if( EQUAL(pszProjCSName, mappingTable[i]) )
{
long j = i;
while(mappingTable[j] != NULL && EQUAL(mappingTable[i], mappingTable[j]))
{
if( EQUAL(pszProgCSName, mappingTable[j+1]) )
{
iIndex = j;
break;
}
j += 5;
}
if (iIndex >= 0)
break;
}
}
if(iIndex >= 0)
{
OGR_SRSNode *poNode = pOgr->GetAttrNode( "PROJCS" );
OGR_SRSNode *poNodeChild = NULL;
if(poNode)
poNodeChild = poNode->GetChild(0);
if( poNodeChild && strlen(poNodeChild->GetValue()) > 0 )
poNodeChild->SetValue( mappingTable[iIndex+2]);
poNode = pOgr->GetAttrNode( "GEOGCS" );
poNodeChild = NULL;
if(poNode)
poNodeChild = poNode->GetChild(0);
if( poNodeChild && strlen(poNodeChild->GetValue()) > 0 )
poNodeChild->SetValue( mappingTable[iIndex+3]);
poNode = pOgr->GetAttrNode( "DATUM" );
poNodeChild = NULL;
if(poNode)
poNodeChild = poNode->GetChild(0);
if( poNodeChild && strlen(poNodeChild->GetValue()) > 0 )
poNodeChild->SetValue( mappingTable[iIndex+4]);
}
return iIndex;
}
/************************************************************************/
/* RemapNameBasedOnKeyName() */
/* */
/* Convert a name to ESRI style name */
/************************************************************************/
int RemapNameBasedOnKeyName( OGRSpatialReference* pOgr, const char* pszName, const char* pszkeyName,
char **mappingTable )
{
long i;
long iIndex = -1;
for( i = 0; mappingTable[i] != NULL; i += 2 )
{
if( EQUAL(pszName, mappingTable[i]) )
{
iIndex = i;
break;
}
}
if(iIndex >= 0)
{
OGR_SRSNode *poNode = pOgr->GetAttrNode( pszkeyName );
OGR_SRSNode *poNodeChild = NULL;
if(poNode)
poNodeChild = poNode->GetChild(0);
if( poNodeChild && strlen(poNodeChild->GetValue()) > 0 )
poNodeChild->SetValue( mappingTable[iIndex+1]);
}
return iIndex;
}
/************************************************************************/
/* RemapNamesBasedOnTwo() */
/* */
/* Convert a name to ESRI style name */
/************************************************************************/
int RemapNamesBasedOnTwo( OGRSpatialReference* pOgr, const char* name1, const char* name2,
char **mappingTable, long nTableStepSize,
char** pszkeyNames, long nKeys )
{
long i, n, n1;
long iIndex = -1;
for( i = 0; mappingTable[i] != NULL; i += nTableStepSize )
{
n = strlen(name1);
n1 = strlen(mappingTable[i]);
if( EQUALN(name1, mappingTable[i], n1<=n? n1 : n) )
{
long j = i;
while(mappingTable[j] != NULL && EQUAL(mappingTable[i], mappingTable[j]))
{
if( EQUALN(name2, mappingTable[j+1], strlen(mappingTable[j+1])) )
{
iIndex = j;
break;
}
j += 3;
}
if (iIndex >= 0)
break;
}
}
if(iIndex >= 0)
{
for( i = 0; i < nKeys; i ++ )
{
OGR_SRSNode *poNode = pOgr->GetAttrNode( pszkeyNames[i] );
OGR_SRSNode *poNodeChild = NULL;
if(poNode)
poNodeChild = poNode->GetChild(0);
if( poNodeChild && strlen(poNodeChild->GetValue()) > 0 )
poNodeChild->SetValue( mappingTable[iIndex+i+2]);
}
}
return iIndex;
}
/************************************************************************/
/* RemapPValuesBasedOnProjCSAndPName() */
/* */
/* Convert a parameters to ESRI style name */
/************************************************************************/
int RemapPValuesBasedOnProjCSAndPName( OGRSpatialReference* pOgr, const char* pszProgCSName,
char **mappingTable )
{
long ret = 0;
OGR_SRSNode *poPROJCS = pOgr->GetAttrNode( "PROJCS" );
for( int i = 0; mappingTable[i] != NULL; i += 4 )
{
while( mappingTable[i] != NULL && EQUALN(pszProgCSName, mappingTable[i], strlen(mappingTable[i])) )
{
OGR_SRSNode *poParm;
const char* pszParamName = mappingTable[i+1];
const char* pszParamValue = mappingTable[i+2];
for( int iChild = 0; iChild < poPROJCS->GetChildCount(); iChild++ )
{
poParm = poPROJCS->GetChild( iChild );
if( EQUAL(poParm->GetValue(),"PARAMETER")
&& poParm->GetChildCount() == 2
&& EQUAL(poParm->GetChild(0)->GetValue(),pszParamName)
&& EQUALN(poParm->GetChild(1)->GetValue(),pszParamValue, strlen(pszParamValue) ) )
{
poParm->GetChild(1)->SetValue( mappingTable[i+3] );
break;
}
}
ret ++;
i += 4;
}
if (ret > 0)
break;
}
return ret;
}
/************************************************************************/
/* RemapPNamesBasedOnProjCSAndPName() */
/* */
/* Convert a parameters to ESRI style name */
/************************************************************************/
int RemapPNamesBasedOnProjCSAndPName( OGRSpatialReference* pOgr, const char* pszProgCSName,
char **mappingTable )
{
long ret = 0;
OGR_SRSNode *poPROJCS = pOgr->GetAttrNode( "PROJCS" );
for( int i = 0; mappingTable[i] != NULL; i += 3 )
{
while( mappingTable[i] != NULL && EQUALN(pszProgCSName, mappingTable[i], strlen(mappingTable[i])) )
{
OGR_SRSNode *poParm;
const char* pszParamName = mappingTable[i+1];
for( int iChild = 0; iChild < poPROJCS->GetChildCount(); iChild++ )
{
poParm = poPROJCS->GetChild( iChild );
if( EQUAL(poParm->GetValue(),"PARAMETER")
&& poParm->GetChildCount() == 2
&& EQUAL(poParm->GetChild(0)->GetValue(),pszParamName) )
{
poParm->GetChild(0)->SetValue( mappingTable[i+2] );
break;
}
}
ret ++;
i += 3;
}
if (ret > 0)
break;
}
return ret;
}
/************************************************************************/
/* DeleteParamBasedOnPrjName */
/* */
/* Delete non-ESRI parameters */
/************************************************************************/
int DeleteParamBasedOnPrjName( OGRSpatialReference* pOgr, const char* pszProjectionName,
char **mappingTable )
{
long iIndex = -1, ret = -1;
for( int i = 0; mappingTable[i] != NULL; i += 2 )
{
if( EQUALN(pszProjectionName, mappingTable[i], strlen(mappingTable[i])) )
{
OGR_SRSNode *poPROJCS = pOgr->GetAttrNode( "PROJCS" );
OGR_SRSNode *poParm;
const char* pszParamName = mappingTable[i+1];
iIndex = -1;
for( int iChild = 0; iChild < poPROJCS->GetChildCount(); iChild++ )
{
poParm = poPROJCS->GetChild( iChild );
if( EQUAL(poParm->GetValue(),"PARAMETER")
&& poParm->GetChildCount() == 2
&& EQUAL(poParm->GetChild(0)->GetValue(),pszParamName) )
{
iIndex = iChild;
break;
}
}
if(iIndex >= 0)
{
poPROJCS->DestroyChild( iIndex );
ret ++;
}
}
}
return ret;
}
/************************************************************************/
/* AddParamBasedOnPrjName() */
/* */
/* Add ESRI style parameters */
/************************************************************************/
int AddParamBasedOnPrjName( OGRSpatialReference* pOgr, const char* pszProjectionName,
char **mappingTable )
{
long ret = -1;
OGR_SRSNode *poPROJCS = pOgr->GetAttrNode( "PROJCS" );
for( int i = 0; mappingTable[i] != NULL; i += 3 )
{
if( EQUALN(pszProjectionName, mappingTable[i], strlen(mappingTable[i])) )
{
OGR_SRSNode *poParm;
int exist = 0;
for( int iChild = 0; iChild < poPROJCS->GetChildCount(); iChild++ )
{
poParm = poPROJCS->GetChild( iChild );
if( EQUAL(poParm->GetValue(),"PARAMETER")
&& poParm->GetChildCount() == 2
&& EQUAL(poParm->GetChild(0)->GetValue(),mappingTable[i+1]) )
exist = 1;
}
if(!exist)
{
poParm = new OGR_SRSNode( "PARAMETER" );
poParm->AddChild( new OGR_SRSNode( mappingTable[i+1] ) );
poParm->AddChild( new OGR_SRSNode( mappingTable[i+2] ) );
poPROJCS->AddChild( poParm );
ret ++;
}
}
}
return ret;
}
/************************************************************************/
/* RemapGeogCSName() */
/* */
/* Convert names to ESRI style */
/************************************************************************/
int RemapGeogCSName( OGRSpatialReference* pOgr, const char *pszGeogCSName )
{
static const char *keyNamesG[] = {
"GEOGCS"};
int ret = -1;
const char* pszUnitName = pOgr->GetAttrValue( "GEOGCS|UNIT");
if(pszUnitName)
ret = RemapNamesBasedOnTwo( pOgr, pszGeogCSName+4, pszUnitName, (char**)apszGcsNameMappingBasedOnUnit, 3, (char**)keyNamesG, 1);
if(ret < 0)
{
const char* pszPrimeName = pOgr->GetAttrValue("PRIMEM");
if(pszPrimeName)
ret = RemapNamesBasedOnTwo( pOgr, pszGeogCSName+4, pszPrimeName, (char**)apszGcsNameMappingBasedPrime, 3, (char**)keyNamesG, 1);
if(ret < 0)
ret = RemapNameBasedOnKeyName( pOgr, pszGeogCSName+4, "GEOGCS", (char**)apszGcsNameMapping);
}
if(ret < 0)
{
const char* pszProjCS = pOgr->GetAttrValue( "PROJCS" );
ret = RemapNamesBasedOnTwo( pOgr, pszProjCS, pszGeogCSName, (char**)apszGcsNameMappingBasedOnProjCS, 3, (char**)keyNamesG, 1);
}
return ret;
}
/************************************************************************/
/* ImportFromESRIStatePlaneWKT() */
/* */
/* Search a ESRI State Plane WKT and import it. */
/************************************************************************/
OGRErr OGRSpatialReference::ImportFromESRIStatePlaneWKT( int code, const char* datumName, const char* unitsName, int pcsCode, const char* csName )
{
int i;
long searchCode = -1;
/* if the CS name is known */
if (code == 0 && !datumName && !unitsName && pcsCode == 32767 && csName)
{
char codeS[10];
if (FindCodeFromDict( "esri_StatePlane_extra.wkt", csName, codeS ) != OGRERR_NONE)
return OGRERR_FAILURE;
return importFromDict( "esri_StatePlane_extra.wkt", codeS);
}
/* Find state plane prj str by pcs code only */
if( code == 0 && !datumName && pcsCode != 32767 )
{
int unitCode = 1;
if( EQUAL(unitsName, "international_feet") )
unitCode = 3;
else if( strstr(unitsName, "feet") || strstr(unitsName, "foot") )
unitCode = 2;
for(i=0; statePlanePcsCodeToZoneCode[i] != 0; i+=2)
{
if( pcsCode == statePlanePcsCodeToZoneCode[i] )
{
searchCode = statePlanePcsCodeToZoneCode[i+1];
int unitIndex = searchCode % 10;
if( (unitCode == 1 && !(unitIndex == 0 || unitIndex == 1))
|| (unitCode == 2 && !(unitIndex == 2 || unitIndex == 3 || unitIndex == 4 ))
|| (unitCode == 3 && !(unitIndex == 5 || unitIndex == 6 )) )
{
searchCode -= unitIndex;
switch (unitIndex)
{
case 0:
case 3:
case 5:
if(unitCode == 2)
searchCode += 3;
else if(unitCode == 3)
searchCode += 5;
break;
case 1:
case 2:
case 6:
if(unitCode == 1)
searchCode += 1;
if(unitCode == 2)
searchCode += 2;
else if(unitCode == 3)
searchCode += 6;
break;
case 4:
if(unitCode == 2)
searchCode += 4;
break;
}
}
break;
}
}
}
else /* Find state plane prj str by all inputs. */
{
/* Need to have a specail EPSG-ESRI zone code mapping first. */
for(i=0; statePlaneZoneMapping[i] != 0; i+=3)
{
if( code == statePlaneZoneMapping[i]
&& (statePlaneZoneMapping[i+1] == -1 || pcsCode == statePlaneZoneMapping[i+1]))
{
code = statePlaneZoneMapping[i+2];
break;
}
}
searchCode = (long)code * 10;
if(EQUAL(datumName, "HARN"))
{
if( EQUAL(unitsName, "international_feet") )
searchCode += 5;
else if( strstr(unitsName, "feet") || strstr(unitsName, "foot") )
searchCode += 3;
}
else if(strstr(datumName, "NAD") && strstr(datumName, "83"))
{
if( EQUAL(unitsName, "meters") )
searchCode += 1;
else if( EQUAL(unitsName, "international_feet") )
searchCode += 6;
else if( strstr(unitsName, "feet") || strstr(unitsName, "foot") )
searchCode += 2;
}
else if(strstr(datumName, "NAD") && strstr(datumName, "27") && !EQUAL(unitsName, "meters"))
{
searchCode += 4;
}
else
searchCode = -1;
}
if(searchCode > 0)
{
char codeS[10];
sprintf(codeS, "%d", (int)searchCode);
return importFromDict( "esri_StatePlane_extra.wkt", codeS);
}
return OGRERR_FAILURE;
}
/************************************************************************/
/* ImportFromESRIWisconsinWKT() */
/* */
/* Search a ESRI State Plane WKT and import it. */
/************************************************************************/
OGRErr OGRSpatialReference::ImportFromESRIWisconsinWKT( const char* prjName, double centralMeridian, double latOfOrigin, const char* unitsName, const char* csName )
{
/* if the CS name is known */
if (!prjName && !unitsName && csName)
{
char codeS[10];
if (FindCodeFromDict( "esri_Wisconsin_extra.wkt", csName, codeS ) != OGRERR_NONE)
return OGRERR_FAILURE;
return importFromDict( "esri_Wisconsin_extra.wkt", codeS);
}
double* tableWISCRS;
if(EQUALN(prjName, "Lambert_Conformal_Conic", 22))
tableWISCRS = apszWISCRS_LCC_meter;
else if(EQUAL(prjName, SRS_PT_TRANSVERSE_MERCATOR))
tableWISCRS = apszWISCRS_TM_meter;
else
return OGRERR_FAILURE;
int k = -1;
for(int i=0; tableWISCRS[i] != 0; i+=3)
{
if( fabs(centralMeridian - tableWISCRS[i]) <= 0.0000000001 && fabs(latOfOrigin - tableWISCRS[i+1]) <= 0.0000000001)
{
k = (long)tableWISCRS[i+2];
break;
}
}
if(k > 0)
{
if(!EQUAL(unitsName, "meters"))
k += 100;
char codeS[10];
sprintf(codeS, "%d", k);
return importFromDict( "esri_Wisconsin_extra.wkt", codeS);
}
return OGRERR_FAILURE;
}
/************************************************************************/
/* FindCodeFromDict() */
/* */
/* Find the code from a dict file. */
/************************************************************************/
static int FindCodeFromDict( const char* pszDictFile, const char* CSName, char* code )
{
const char *pszFilename;
FILE *fp;
OGRErr eErr = OGRERR_UNSUPPORTED_SRS;
/* -------------------------------------------------------------------- */
/* Find and open file. */
/* -------------------------------------------------------------------- */
pszFilename = CPLFindFile( "gdal", pszDictFile );
if( pszFilename == NULL )
return OGRERR_UNSUPPORTED_SRS;
fp = VSIFOpen( pszFilename, "rb" );
if( fp == NULL )
return OGRERR_UNSUPPORTED_SRS;
/* -------------------------------------------------------------------- */
/* Process lines. */
/* -------------------------------------------------------------------- */
const char *pszLine;
while( (pszLine = CPLReadLine(fp)) != NULL )
{
if( pszLine[0] == '#' )
/* do nothing */;
else if( strstr(pszLine,CSName) )
{
const char* pComma = strchr(pszLine, ',');
if( pComma )
{
strncpy( code, pszLine, pComma - pszLine);
code[pComma - pszLine] = '\0';
eErr = OGRERR_NONE;
}
break;
}
}
/* -------------------------------------------------------------------- */
/* Cleanup */
/* -------------------------------------------------------------------- */
VSIFClose( fp );
return eErr;
}
Reference in a new issue View git blame Copy permalink