text: /******************************************************************************
   * $Id$
   *
   * Project:  OpenGIS Simple Features Reference Implementation
   * Purpose:  Test mainline for translating EPSG definitions into WKT.
   * Author:   Frank Warmerdam, warmerdam@pobox.com
   *
   ******************************************************************************
   * Copyright (c) 2000, Frank Warmerdam
   *
   * 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_core.h"
  #include "cpl_conv.h"
  #include "cpl_string.h"
  #include "ogr_p.h"
  #include "cpl_multiproc.h"
  
  void Usage()
  
  {
      printf( "testepsg [-xml] [-t src_def trg_def x y z]* [def]*\n" );
      printf( "  -t: transform a coordinate from source GCS/PCS to target GCS/PCS\n" );
      printf( "\n" );
      printf( "def's  on their own are translated to WKT & XML and printed.\n" );
      printf( "def's may be of any user input format, a WKT def, an\n" ); 
      printf( "EPSG:n definition or the name of a file containing WKT/XML.\n");
  }
  
  int main( int nArgc, char ** papszArgv )
  
  {
      OGRSpatialReference oSRS;
      int i;
      int bReportXML = FALSE;
  
  /* -------------------------------------------------------------------- */
  /*      Processing command line arguments.                              */
  /* -------------------------------------------------------------------- */
      nArgc = OGRGeneralCmdLineProcessor( nArgc, &papszArgv, 0 );
  
      if( nArgc < 2 )
          Usage();
  
      for( i = 1; i < nArgc; i++ )
      {
          if( EQUAL(papszArgv[i],"-xml") )
              bReportXML = TRUE;
          
          else if( EQUAL(papszArgv[i],"-t") && i < nArgc - 4 )
          {
              OGRSpatialReference oSourceSRS, oTargetSRS;
              OGRCoordinateTransformation *poCT;
              double                      x, y, z_orig, z;
              int                         nArgsUsed = 4;
              
              if( oSourceSRS.SetFromUserInput(papszArgv[i+1]) != OGRERR_NONE )
              {
                  CPLError( CE_Failure, CPLE_AppDefined, 
                            "SetFromUserInput(%s) failed.", 
                            papszArgv[i+1] );
                  continue;
              }
              if( oTargetSRS.SetFromUserInput(papszArgv[i+2]) != OGRERR_NONE )
              {
                  CPLError( CE_Failure, CPLE_AppDefined, 
                            "SetFromUserInput(%s) failed.", 
                            papszArgv[i+2] );
                  continue;
              }
              
              poCT = OGRCreateCoordinateTransformation( &oSourceSRS,
                                                        &oTargetSRS );
              x = atof( papszArgv[i+3] );
              y = atof( papszArgv[i+4] );
              if( i < nArgc - 5 
                  && (atof(papszArgv[i+5]) > 0.0 || papszArgv[i+5][0] == '0') )
              {
                  z_orig = z = atof(papszArgv[i+5]);
                  nArgsUsed++;
              }
              else
                  z_orig = z = 0;
              
              if( poCT == NULL || !poCT->Transform( 1, &x, &y, &z ) )
                  printf( "Transformation failed.\n" );
              else
                  printf( "(%f,%f,%f) -> (%f,%f,%f)\n", 
                          atof( papszArgv[i+3] ),
                          atof( papszArgv[i+4] ),
                          z_orig, 
                          x, y, z );
              
              i += nArgsUsed;
          }
          else 
          {
              if( oSRS.SetFromUserInput(papszArgv[i]) != OGRERR_NONE )
                  CPLError( CE_Failure, CPLE_AppDefined, 
                            "Error occured translating %s.\n", 
                            papszArgv[i] );
              else
              {
                  char  *pszWKT = NULL;
  
                  if( oSRS.Validate() != OGRERR_NONE )
                      printf( "Validate Fails.\n" );
                  else
                      printf( "Validate Succeeds.\n" );
                  
                  oSRS.exportToPrettyWkt( &pszWKT, FALSE );
                  printf( "WKT[%s] =\n%s\n", 
                          papszArgv[i], pszWKT );
                  CPLFree( pszWKT );
  
                  printf( "\n" );
  
                  oSRS.exportToPrettyWkt( &pszWKT, TRUE );
                  printf( "Simplified WKT[%s] =\n%s\n", 
                          papszArgv[i], pszWKT );
                  CPLFree( pszWKT );
  
                  printf( "\n" );
  
                  OGRSpatialReference *poSRS2;
  
                  poSRS2 = oSRS.Clone();
                  poSRS2->StripCTParms();
                  poSRS2->exportToWkt( &pszWKT );
                  printf( "Old Style WKT[%s] = %s\n", 
                          papszArgv[i], pszWKT );
                  CPLFree( pszWKT );
                  OGRSpatialReference::DestroySpatialReference( poSRS2 );
  
                  poSRS2 = oSRS.Clone();
                  poSRS2->morphToESRI();
                  poSRS2->exportToPrettyWkt( &pszWKT, FALSE );
                  printf( "ESRI'ified WKT[%s] = \n%s\n", 
                          papszArgv[i], pszWKT );
                  CPLFree( pszWKT );
                  OGRSpatialReference::DestroySpatialReference( poSRS2 );
  
                  oSRS.exportToProj4( &pszWKT );
                  printf( "PROJ.4 rendering of [%s] = %s\n", 
                          papszArgv[i], pszWKT );
                  CPLFree( pszWKT );
  
  
                  if( bReportXML )
                  {
                      char       *pszRawXML;
                      if( oSRS.exportToXML(&pszRawXML) == OGRERR_NONE )
                      {
                          printf( "XML[%s] =\n%s\n", 
                                  papszArgv[i], pszRawXML );
                          CPLFree( pszRawXML );
                      }
                      else
                      {
                          printf( "XML translation failed\n" );
                      }
                  }
  
                  printf( "\n" );
              }
          }
      }
  
      CSLDestroy( papszArgv );
      OSRCleanup();
      CPLFinderClean();
      CPLCleanupTLS();
      
      return 0;
  }
  