import itertools
import json
from contextlib import contextmanager
from pmtiles import Entry

def entrysort(t):
    return (t.z,t.x,t.y)

# Find best base zoom to avoid extra indirection for as many tiles as we can
# precondition: entries is sorted, only tile entries, len(entries) > max_dir_size
def find_leaf_level(entries,max_dir_size):
  return entries[max_dir_size].z - 1

def make_pyramid(tile_entries,start_leaf_offset,max_dir_size=21845):
  sorted_entries = sorted(tile_entries,key=entrysort)
  if len(sorted_entries) <= max_dir_size:
    return (sorted_entries,[])

  leaf_dirs = []

  # determine root leaf level
  leaf_level = find_leaf_level(sorted_entries,max_dir_size)

  def by_parent(e):
    level_diff = e.z - leaf_level
    return (leaf_level,e.x//(1 << level_diff),e.y//(1 << level_diff))

  root_entries = [e for e in sorted_entries if e.z < leaf_level]
  # get all entries greater than or equal to the leaf level
  entries_in_leaves = [e for e in sorted_entries if e.z >= leaf_level]

  # group the entries by their parent (stable)
  entries_in_leaves.sort(key=by_parent)

  current_offset = start_leaf_offset
  # pack entries into groups
  packed_entries = []
  packed_roots = []

  for group in itertools.groupby(entries_in_leaves,key=by_parent):
    subpyramid_entries = list(group[1])

    root = by_parent(subpyramid_entries[0])
    if len(packed_entries) + len(subpyramid_entries) <= max_dir_size:
      packed_entries.extend(subpyramid_entries)
      packed_roots.append((root[0],root[1],root[2]))
    else:
      # flush the current packed entries

      for p in packed_roots:
        root_entries.append(Entry(p[0],p[1],p[2],current_offset,17 * len(packed_entries),True))
      # re-sort the packed_entries by ZXY order
      packed_entries.sort(key=entrysort)
      leaf_dirs.append(packed_entries)

      current_offset += 17 * len(packed_entries)
      packed_entries = subpyramid_entries
      packed_roots = [(root[0],root[1],root[2])]

  # finalize the last set
  if len(packed_entries):

    for p in packed_roots:
      root_entries.append(Entry(p[0],p[1],p[2],current_offset,17 * len(packed_entries),True))
    # re-sort the packed_entries by ZXY order
    packed_entries.sort(key=entrysort)
    leaf_dirs.append(packed_entries)

  return (root_entries,leaf_dirs)

@contextmanager
def write(fname):
    w = Writer(fname)
    try:
        yield w
    finally:
        w.close()

class Writer:
    def __init__(self,fname):
        self.f = open(fname,'wb')
        self.offset = 512000
        self.f.write(b'\0' * self.offset)
        self.tile_entries = []
        self.hash_to_offset = {}

    def write_tile(self,z,x,y,data):
        hsh = hash(data)
        if hsh in self.hash_to_offset:
            self.tile_entries.append(Entry(z,x,y,self.hash_to_offset[hsh],len(data),False))
        else:
            self.f.write(data)
            self.tile_entries.append(Entry(z,x,y,self.offset,len(data),False))
            self.hash_to_offset[hsh] = self.offset
            self.offset = self.offset + len(data)

    def write_entry(self,entry):
        if entry.is_dir:
          z_bytes = 0b10000000 | entry.z
        else:
          z_bytes = entry.z
        self.f.write(z_bytes.to_bytes(1,byteorder='little'))
        self.f.write(entry.x.to_bytes(3,byteorder='little'))
        self.f.write(entry.y.to_bytes(3,byteorder='little'))
        self.f.write(entry.offset.to_bytes(6,byteorder='little'))
        self.f.write(entry.length.to_bytes(4,byteorder='little'))

    def write_header(self,metadata,root_entries_len):
        self.f.write((0x4D50).to_bytes(2,byteorder='little'))
        self.f.write((2).to_bytes(2,byteorder='little'))
        metadata_serialized = json.dumps(metadata)
        # 512000 - (17 * 21845) - 2 (magic) - 2 (version) - 4 (jsonlen) - 2 (dictentries) = 140625
        assert len(metadata_serialized) < 140625
        self.f.write(len(metadata_serialized).to_bytes(4,byteorder='little'))
        self.f.write(root_entries_len.to_bytes(2,byteorder='little'))
        self.f.write(metadata_serialized.encode('utf-8'))

    def finalize(self,metadata = {}):
        root_dir, leaf_dirs = make_pyramid(self.tile_entries,self.offset)

        if len(leaf_dirs) > 0:
          for leaf_dir in leaf_dirs:
            for entry in leaf_dir:
              self.write_entry(entry)

        self.f.seek(0)
        self.write_header(metadata,len(root_dir))

        for entry in root_dir:
            self.write_entry(entry)

        return {'num_tiles':len(self.tile_entries),'num_unique_tiles':len(self.hash_to_offset),'num_leaves':len(leaf_dirs)}

    def close(self):
        self.f.close()