/******************************************************************************

 *

 * Project:  WMS Client Driver

 * Purpose:  Implementation of Dataset and RasterBand classes for WMS

 *           and other similar services.

 * Author:   Chris Schmidt

 *

 ******************************************************************************

 * Copyright (c) 2007, Chris Schmidt

 *

 * SPDX-License-Identifier: MIT

 ****************************************************************************/

#include "wmsdriver.h"

#include "minidriver_tms.h"

WMSMiniDriver_TMS::WMSMiniDriver_TMS()

{

}

WMSMiniDriver_TMS::~WMSMiniDriver_TMS()

{

}

CPLErr WMSMiniDriver_TMS::Initialize(CPLXMLNode *config,

                                     CPL_UNUSED char **papszOpenOptions)

{

    CPLErr ret = CE_None;

    {

        const char *base_url = CPLGetXMLValue(config, "ServerURL", "");

        if (base_url[0] != '\0')

        {

            m_base_url = base_url;

            if (m_base_url.find("${") == std::string::npos)

            {

                if (m_base_url.back() != '/')

                {

                    m_base_url += "/";

                }

                m_base_url += "${version}/${layer}/${z}/${x}/${y}.${format}";

            }

        }

        else

        {

            CPLError(CE_Failure, CPLE_AppDefined,

                     "GDALWMS, TMS mini-driver: ServerURL missing.");

            ret = CE_Failure;

        }

    }

    // These never change

    const char *dataset = CPLGetXMLValue(config, "Layer", "");

    URLSearchAndReplace(&m_base_url, "${layer}", "%s", dataset);

    const char *version = CPLGetXMLValue(config, "Version", "1.0.0");

    URLSearchAndReplace(&m_base_url, "${version}", "%s", version);

    const char *format = CPLGetXMLValue(config, "Format", "jpg");

    URLSearchAndReplace(&m_base_url, "${format}", "%s", format);

    m_nTileXMultiplier = atoi(CPLGetXMLValue(config, "TileXMultiplier", "1"));

    return ret;

}

CPLErr

WMSMiniDriver_TMS::TiledImageRequest(WMSHTTPRequest &request,

                                     const GDALWMSImageRequestInfo &iri,

                                     const GDALWMSTiledImageRequestInfo &tiri)

{

    CPLString &url = request.URL;

    const GDALWMSDataWindow *data_window = m_parent_dataset->WMSGetDataWindow();

    int tms_y;

    if (data_window->m_y_origin != GDALWMSDataWindow::TOP)

    {

        if (iri.m_y0 == iri.m_y1)

            return CE_Failure;

        const double dfTmp = floor(

            ((data_window->m_y1 - data_window->m_y0) / (iri.m_y1 - iri.m_y0)) +

            0.5);

        if (!(dfTmp >= 0 && dfTmp < INT_MAX))

            return CE_Failure;

        tms_y = static_cast<int>(dfTmp) - tiri.m_y - 1;

    }

    else

    {

        tms_y = tiri.m_y;

    }

    // http://tms25.arc.nasa.gov/tile/tile.aspx?T=geocover2000&L=0&X=86&Y=39

    url = m_base_url;

    URLSearchAndReplace(&url, "${x}", "%d", tiri.m_x * m_nTileXMultiplier);

    URLSearchAndReplace(&url, "${y}", "%d", tms_y);

    URLSearchAndReplace(&url, "${z}", "%d", tiri.m_level);

    /* Hack for some TMS like servers that require tile numbers split into 3

     * groups of */

    /* 3 digits, like

     * http://tile8.geo.admin.ch/geoadmin/ch.swisstopo.pixelkarte-farbe */

    URLSearchAndReplace(&url, "${xxx}", "%03d/%03d/%03d", tiri.m_x / 1000000,

                        (tiri.m_x / 1000) % 1000, tiri.m_x % 1000);

    URLSearchAndReplace(&url, "${yyy}", "%03d/%03d/%03d", tms_y / 1000000,

                        (tms_y / 1000) % 1000, tms_y % 1000);

    return CE_None;

}