/******************************************************************************
 *
 * 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 "cpl_conv.h"
#include "cpl_multiproc.h"
#include "cpl_string.h"
#include "ogr_core.h"
#include "ogr_p.h"
#include "ogr_spatialref.h"
#include "commonutils.h"

CPL_CVSID("$Id: testepsg.cpp 8e5eeb35bf76390e3134a4ea7076dab7d478ea0e 2018-11-14 22:55:13 +0100 Even Rouault $")

static 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");
}

MAIN_START(nArgc, papszArgv)

{
    OGRSpatialReference oSRS;
    bool bReportXML = false;

/* -------------------------------------------------------------------- */
/*      Processing command line arguments.                              */
/* -------------------------------------------------------------------- */
    nArgc = OGRGeneralCmdLineProcessor(nArgc, &papszArgv, 0);

    if( nArgc < 2 )
        Usage();

    for( int i = 1; i < nArgc; i++ )
    {
        if( EQUAL(papszArgv[i],"-xml") )
            bReportXML = true;

        else if( i < nArgc - 4 && EQUAL(papszArgv[i],"-t") )
        {
            int nArgsUsed = 4;

            OGRSpatialReference oSourceSRS;
            oSourceSRS.SetAxisMappingStrategy(OAMS_TRADITIONAL_GIS_ORDER);
            if( oSourceSRS.SetFromUserInput(papszArgv[i+1]) != OGRERR_NONE )
            {
                CPLError(CE_Failure, CPLE_AppDefined,
                         "SetFromUserInput(%s) failed.",
                         papszArgv[i+1]);
                continue;
            }

            OGRSpatialReference oTargetSRS;
            oTargetSRS.SetAxisMappingStrategy(OAMS_TRADITIONAL_GIS_ORDER);
            if( oTargetSRS.SetFromUserInput(papszArgv[i+2]) != OGRERR_NONE )
            {
                CPLError(CE_Failure, CPLE_AppDefined,
                         "SetFromUserInput(%s) failed.",
                         papszArgv[i+2]);
                continue;
            }

            OGRCoordinateTransformation *poCT =
                OGRCreateCoordinateTransformation(&oSourceSRS, &oTargetSRS);
            double x = CPLAtof( papszArgv[i+3] );
            double y = CPLAtof( papszArgv[i+4] );
            double z_orig = 0.0;
            double z = 0.0;
            if( i < nArgc - 5
                && (CPLAtof(papszArgv[i+5]) > 0.0 || papszArgv[i+5][0] == '0') )
            {
                z = CPLAtof(papszArgv[i+5]);
                z_orig = z;
                nArgsUsed++;
            }

            if( poCT == nullptr || !poCT->Transform(1, &x, &y, &z) )
                printf( "Transformation failed.\n" );
            else
                printf("(%f,%f,%f) -> (%f,%f,%f)\n",
                       CPLAtof( papszArgv[i+3] ),
                       CPLAtof( papszArgv[i+4] ),
                       z_orig,
                       x, y, z);

            i += nArgsUsed;
        }
        else
        {
            /* coverity[tainted_data] */
            if( oSRS.SetFromUserInput(papszArgv[i]) != OGRERR_NONE )
            {
                CPLError(CE_Failure, CPLE_AppDefined,
                         "Error occurred translating %s.",
                         papszArgv[i] );
            }
            else
            {
                if( oSRS.Validate() != OGRERR_NONE )
                    printf( "Validate Fails.\n" );
                else
                    printf( "Validate Succeeds.\n" );

                char *pszWKT = nullptr;
                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 = oSRS.Clone();
                const char* const apszOptions[] = { "FORMAT=SFSQL", nullptr };
                poSRS2->exportToWkt(&pszWKT, apszOptions);
                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 = nullptr;
                    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;
}
MAIN_END
