#!/usr/bin/env python3

from osgeo import gdal, ogr, osr
import glob
import hashlib
import os
import json
import subprocess

cdn_url = 'https://cdn.proj.org'

agency_list = json.loads(open('agency.json','rt').read())
agencies = {}
for item in agency_list:
    agencies[item['id']] = item

area_list = json.loads(open('area.json','rt').read())
area_dict = {}
for item in area_list:
    area_dict[item['code']] = item

files_list = json.loads(open('files.json','rt').read())
files_dict = {}
for item in files_list:
    files_dict[item['name']] = item

dirnames = []
links = []
for dirname in glob.glob('*'):
    if not os.path.isdir(dirname):
        continue
    dirnames.append(dirname)

gj_ds = ogr.GetDriverByName('GeoJSON').CreateDataSource('files.geojson')
sr = osr.SpatialReference()
sr.SetAxisMappingStrategy(osr.OAMS_TRADITIONAL_GIS_ORDER)
sr.ImportFromEPSG(4326)
lyr = gj_ds.CreateLayer('files', srs = sr, options = ['RFC7946=YES'])
lyr.CreateField(ogr.FieldDefn('url', ogr.OFTString))
lyr.CreateField(ogr.FieldDefn('name', ogr.OFTString))
lyr.CreateField(ogr.FieldDefn('area_of_use', ogr.OFTString))
lyr.CreateField(ogr.FieldDefn('type', ogr.OFTString))
lyr.CreateField(ogr.FieldDefn('source_crs_code', ogr.OFTString))
lyr.CreateField(ogr.FieldDefn('source_crs_name', ogr.OFTString))
lyr.CreateField(ogr.FieldDefn('target_crs_code', ogr.OFTString))
lyr.CreateField(ogr.FieldDefn('target_crs_name', ogr.OFTString))
lyr.CreateField(ogr.FieldDefn('source', ogr.OFTString))
lyr.CreateField(ogr.FieldDefn('source_country', ogr.OFTString))
lyr.CreateField(ogr.FieldDefn('source_id', ogr.OFTString))
lyr.CreateField(ogr.FieldDefn('source_url', ogr.OFTString))
lyr.CreateField(ogr.FieldDefn('description', ogr.OFTString))
lyr.CreateField(ogr.FieldDefn('full_bbox', ogr.OFTRealList))
lyr.CreateField(ogr.FieldDefn('file_size', ogr.OFTInteger64))
lyr.CreateField(ogr.FieldDefn('sha256sum', ogr.OFTString))

def polygon_from_bbox(xmin, ymin, xmax, ymax):
    geom = ogr.Geometry(ogr.wkbPolygon)
    ring = ogr.Geometry(ogr.wkbLinearRing)
    # Add small epsilon to help unioning polygons touching by edge
    eps = 1e-12
    ring.AddPoint_2D(xmin-eps, ymin-eps)
    ring.AddPoint_2D(xmin-eps, ymax+eps)
    ring.AddPoint_2D(xmax+eps, ymax+eps)
    ring.AddPoint_2D(xmax+eps, ymin+eps)
    ring.AddPoint_2D(xmin-eps, ymin-eps)
    geom.AddGeometry(ring)
    return geom

def normalize_lon(xmin, xmax):
    if xmin > 180:
        xmin -= 360
        xmax -= 360
    elif xmax < -180:
        xmin += 360
        xmax += 360
    return xmin, xmax

total_size = 0
set_files = set()
for dirname in sorted(dirnames):
    if '_' not in dirname or dirname == 'grid_tools':
        continue
    filenames = []
    readme_filename = None
    for f in glob.glob(dirname + '/*'):
        f = os.path.basename(f)
        if f.endswith('.sh') or f.endswith('.py'):
            continue

        if f.endswith('README.txt'):
            assert not readme_filename
            readme_filename = f
        else:
            filenames.append(f)

    agency = agencies[dirname]
    title = '<a href="%s">%s</a>' % (agency['url'].replace('&', "&amp;"), agency['agency'])

    links.append('</ul><hr><h3>%s</h3><ul>' % title )
    for f in [readme_filename] + sorted(filenames):

        assert f not in set_files
        set_files.add(f)

        full_filename = os.path.join(dirname, f)
        desc = ''
        area_of_use = ''
        size = os.stat(full_filename).st_size

        feat = ogr.Feature(lyr.GetLayerDefn())

        ds = gdal.OpenEx(full_filename)
        if ds:
            imageDesc = ds.GetMetadataItem('TIFFTAG_IMAGEDESCRIPTION').replace('\r\n', '. ').replace('\n', '. ').replace('. .', '.').replace('  ', ' ')
            if imageDesc:
                pos = imageDesc.find('. Converted from')
                if pos >= 0:
                    imageDesc = imageDesc[0:pos]
                desc = imageDesc

            type = ds.GetMetadataItem('TYPE')
            if type:
                feat['type'] = type
            area_of_use = ds.GetMetadataItem('area_of_use')
            if area_of_use:
                feat['area_of_use'] = area_of_use
            if imageDesc:
                feat['description'] = imageDesc
            gt = ds.GetGeoTransform()
            xmin = gt[0] + 0.5 * gt[1]
            ymax = gt[3] + 0.5 * gt[5]
            xmax = xmin + gt[1] * (ds.RasterXSize - 1)
            ymin = ymax + gt[5] * (ds.RasterYSize - 1)

            source_crs_epsg_code = ds.GetMetadataItem('source_crs_epsg_code')
            source_crs_wkt = ds.GetMetadataItem('source_crs_wkt')
            if source_crs_epsg_code:
                sr = osr.SpatialReference()
                assert sr.ImportFromEPSG(int(source_crs_epsg_code)) == 0
                feat['source_crs_code'] = 'EPSG:' + source_crs_epsg_code
                feat['source_crs_name'] = sr.GetName()
            elif source_crs_wkt:
                sr = osr.SpatialReference()
                assert sr.SetFromUserInput(source_crs_wkt) == 0
                feat['source_crs_name'] = sr.GetName()
            else:
                sr = ds.GetSpatialRef()
                assert sr
                if sr.GetAuthorityName(None) == 'EPSG':
                    feat['source_crs_code'] = 'EPSG:' + sr.GetAuthorityCode(None)
                feat['source_crs_name'] = sr.GetName()

            target_crs_epsg_code = ds.GetMetadataItem('target_crs_epsg_code')
            target_crs_wkt = ds.GetMetadataItem('target_crs_wkt')
            if target_crs_epsg_code:
                sr = osr.SpatialReference()
                assert sr.ImportFromEPSG(int(target_crs_epsg_code)) == 0
                feat['target_crs_code'] = 'EPSG:' + target_crs_epsg_code
                feat['target_crs_name'] = sr.GetName()
            elif target_crs_wkt:
                sr = osr.SpatialReference()
                assert sr.SetFromUserInput(target_crs_wkt) == 0
                feat['target_crs_name'] = sr.GetName()
            elif ds.GetMetadataItem('TYPE') not in ('VELOCITY', 'DEFORMATION_MODEL'):
                assert False, (full_filename, target_crs_epsg_code, target_crs_wkt)

            xmin, xmax = normalize_lon(xmin, xmax)

            subds_list = ds.GetSubDatasets()
            if subds_list:
                geom = None
                for subds_name, _ in subds_list:
                    ds = gdal.Open(subds_name)
                    gt = ds.GetGeoTransform()
                    xmin_subds = gt[0] + 0.5 * gt[1]
                    ymax_subds = gt[3] + 0.5 * gt[5]
                    xmax_subds = xmin_subds + gt[1] * (ds.RasterXSize - 1)
                    ymin_subds = ymax_subds + gt[5] * (ds.RasterYSize - 1)
                    xmin_subds, xmax_subds = normalize_lon(xmin_subds, xmax_subds)
                    xmin = min(xmin, xmin_subds)
                    ymin = min(ymin, ymin_subds)
                    xmax = max(xmax, xmax_subds)
                    ymax = max(ymax, ymax_subds)
                    if geom:
                        geom = geom.Union(polygon_from_bbox(xmin_subds, ymin_subds, xmax_subds, ymax_subds))
                    else:
                        geom = polygon_from_bbox(xmin_subds, ymin_subds, xmax_subds, ymax_subds)
            else:
                geom = polygon_from_bbox(xmin, ymin, xmax, ymax)

            # Enforce stricter EPSG based bbox limitation for a few files
            if f in files_dict:
                bbox_xmin, bbox_ymin, bbox_xmax, bbox_ymax = area_dict[files_dict[f]['area_code']]['bbox']
                assert xmin < bbox_xmax
                assert ymin < bbox_ymax
                assert xmax > bbox_xmin
                assert ymax > bbox_ymin
                feat['file_size'] = [xmin, ymin, xmax, ymax]
                geom = geom.Intersection(polygon_from_bbox(bbox_xmin, bbox_ymin, bbox_xmax, bbox_ymax))

            feat.SetGeometry(geom)

        elif full_filename.endswith('.json'):

            json_content = json.loads(open(full_filename, 'rb').read().decode('UTF-8'))
            if 'file_type' in json_content and json_content['file_type'] == 'deformation_model_master_file':
                feat['type'] = 'DEFORMATION_MODEL'

                feat['source_crs_code'] = json_content['source_crs']
                sr = osr.SpatialReference()
                assert sr.SetFromUserInput(feat['source_crs_code']) == 0
                feat['source_crs_name'] = sr.GetName()

                feat['target_crs_code'] = json_content['target_crs']
                sr = osr.SpatialReference()
                assert sr.SetFromUserInput(feat['target_crs_code']) == 0
                feat['target_crs_name'] = sr.GetName()

                feat['description'] = json_content['description'].replace('\\n', ' ') + ' (version ' + json_content['version'] + ')'
                desc = feat['description']
                xmin, ymin, xmax, ymax = json_content['extent']['parameters']['bbox']
                geom = polygon_from_bbox(xmin, ymin, xmax, ymax)
                feat.SetGeometry(geom)

        feat['url'] = cdn_url + '/' + f
        feat['name'] = f
        feat['source'] = agency['agency']
        feat['source_country'] = agency['country']
        feat['source_id'] = agency['id']
        feat['source_url'] = agency['url']
        feat['file_size'] = size

        m = hashlib.sha256()
        m.update(open(full_filename, 'rb').read())
        feat['sha256sum'] = m.hexdigest()

        lyr.CreateFeature(feat)

        size_str = ''
        total_size += size
        if size > 1024 * 1024:
            size_str = '. Size: %.1f MB' % (size / (1024. * 1024))

        if f.startswith('README'):
            last_modified = ''
        else:
            p = subprocess.run(['git','status','--porcelain',full_filename], check=True, stdout=subprocess.PIPE)
            assert not p.stdout, (p.stdout, f)
            p = subprocess.run(['git','log','-1','--pretty=format:%cd','--date=short',full_filename], check=True, stdout=subprocess.PIPE)
            last_modified = '. Last modified: ' + p.stdout.decode('ascii')

        if area_of_use:
            area_of_use = ' - ' + area_of_use
        else:
            area_of_use = ''

        if desc:
            desc = ' - ' + desc
        else:
            desc = ''

        links.append('<li><a href="%s">%s</a>%s%s%s%s</li>' % (f, f, area_of_use, desc, size_str, last_modified))

total_size_str = '%d MB' % (total_size // (1024 * 1024))

content = '<!-- This is a generated file by regenerate_index_html.py. Do not modify !!!! Modify index.html.in instead if you need to make changes-->\n\n'
content += open('index.html.in', 'rt').read().replace('${LINKS_WILL_BE_ADDED_HERE_BY_REGENERATE_INDEX_HTML}', '\n'.join(links)).replace('${TOTAL_SIZE}', total_size_str)
open('index.html', 'wt').write(content)