#!/usr/bin/env python2
# vim: set fileencoding=utf8 :

import urllib.request, urllib.parse, urllib.error
import os
import json
import sys
import codecs
import errno

from lxml import etree

import _pathfix

_BASE_URL = "http://wiki.mhxg.org"

_WEAPON_URLS = {
    "Great Sword": ["/data/1900.html", "/data/2882.html"],
    "Long Sword": ["/data/1901.html", "/data/2883.html"],
    "Sword and Shield": ["/data/1902.html", "/data/2884.html"],
    "Dual Blades": ["/data/1903.html", "/data/2885.html"],
    "Hammer": ["/data/1904.html", "/data/2886.html"],
    "Hunting Horn": ["/data/1905.html", "/data/2887.html"],
    "Lance": ["/data/1906.html", "/data/2888.html"],
    "Gunlance": ["/data/1907.html", "/data/2889.html"],
    "Switch Axe": ["/data/1908.html", "/data/2890.html"],
    "Charge Blade": ["/data/1909.html"],
    "Insect Glaive": ["/data/1910.html"],
    "Bow": ["/data/1911.html", "/data/2893.html"],
}


_RANGED_TYPES = ["Bow", "Light Bowgun", "Heavy Bowgun"]


_ELEMENT_MAP = {
    "火": "Fire",
    "水": "Water",
    "雷": "Thunder",
    "氷": "Ice",
    "龍": "Dragon",
    "毒": "Poison",
    "麻痺": "Paralysis",
    "睡眠": "Sleep",
    "爆破": "Blast",
}


_GL_SHOT_TYPES = {
    "通常": "Normal",
    "放射": "Long",
    "拡散": "Wide",
}


_SA_PHIAL_TYPES = {
    "強撃ビン": "Power",
    "減気ビン": "Exhaust",
    "滅龍ビン": "Dragon",
    "強属性ビン": "Element",
    "毒ビン": "Poison",
    "麻痺ビン": "Paralysis",
}


_CB_PHIAL_TYPES = {
    "榴弾ビン": "Impact",
    "強属性ビン": "Element",
}


_BUG_TYPES = {
    "切断": "Cutting",
    "打撃": "Impact",
}


_BOW_ARC_TYPES = {
    "集中型": "Focus",
    "放散型": "Wide",
    "爆裂型": "Blast",
}


_BOW_SHOT_TYPES = {
    "連射": "Rapid",
    "拡散": "Spread",
    "貫通": "Pierce",
    "重射": "Heavy",
}


_BOW_COATINGS = {
    "強1": "Power 1",
    "強2": "Power 2",
    "属1": "Element 1",
    "属2": "Element 2",
    "接": "C. Range",
    "ペ": "Paint",
    "毒": "Poison",
    "麻": "Paralysis",
    "睡": "Sleep",
    "減": "Exhaust",
    "爆": "Blast",
}


_HORN_NOTES = {
    "#f3f3f3;": "W",
    "blue;": "B",
    "#e0002a;": "R",
    "#ff00ff;": "P",
    "#eeee00;": "Y",
    "#00cc00;": "G",
    "#00eeee;": "C",
    "#ef810f;": "O",
}


def extract_weapon_list(wtype, tree, parser):
    weapons = []
    rows = tree.xpath('//*[@id="sorter"]/tbody/tr')
    parent_name = None
    parent_href = None
    for row in rows:
        cells = list(row)
        if len(cells) in (5, 6):
            name, href, final = _parse_name_td(cells[0])
            attack = int(cells[1].text)
            affinity, defense, elements = _parse_elements_td(cells[2])
            if wtype not in _RANGED_TYPES:
                #sharpness = _parse_sharpness_td(cells[-2])
                shots, ammo = None, None
            else:
                #sharpness = [None, None]
                if wtype == "Bow":
                    shots, ammo = _parse_bow_td(cells[-2])
            slots = _parse_slots_td(cells[-1])
        else:
            continue

        if wtype in _RANGED_TYPES:
            sharpness_levels = [None, None, None]
        else:
            details_link = href or parent_href
            sharpness_levels = _get_detailed_sharpness(name, details_link,
                                                       parser)

        data = dict(name_jp=name, name=name, wtype=wtype, final=final,
                    sharpness=sharpness_levels[0],
                    sharpness_plus=sharpness_levels[1],
                    sharpness_plus2=sharpness_levels[2],
                    attack=attack, num_slots=slots,
                    affinity=affinity, defense=defense,
                    element=None, element_attack=None,
                    awaken=None, element_2=None, element_2_attack=None,
                    phial=None, shelling_type=None, horn_notes=None,
                    bug_type=None,
                    arc_type=None, ammo=ammo, shot_types=shots)
        if elements:
            data["element"] = elements[0][0]
            data["element_attack"] = elements[0][1]
            if len(elements) > 1:
                data["element_2"] = elements[1][0]
                data["element_2_attack"] = elements[1][1]
        if len(cells) == 6:
            if wtype == "Hunting Horn":
                data["horn_notes"] = _parse_horn_notes_td(cells[-3])
            else:
                _add_phial_or_shot_data(data, cells[-3])
        if href is None or href == parent_href:
            data["parent"] = parent_name
            data["href"] = parent_href
        else:
            data["href"] = href
            data["parent"] = None
            parent_name = name
            parent_href = href
        data["url"] = "http://wiki.mhxg.org" + data["href"]
        weapons.append(data)
    return weapons


def _add_phial_or_shot_data(data, td_element):
    text = td_element.text.strip()
    if data["wtype"] == "Charge Blade":
        data["phial"] = _CB_PHIAL_TYPES[text]
    elif data["wtype"] == "Switch Axe":
        data["phial"] = _SA_PHIAL_TYPES[text]
    elif data["wtype"] == "Gunlance":
        shot_type = _GL_SHOT_TYPES[text[:2]]
        data["shelling_type"] = "%s %s" % (shot_type, text[2])
    elif data["wtype"] == "Insect Glaive":
        data["bug_type"] = _BUG_TYPES[text]
    elif data["wtype"] == "Bow":
        data["arc_type"] = _BOW_ARC_TYPES[text]
    else:
        msg = "Unexpected element for wtype '%s'" % data["wtype"]
        print(msg, text, file=sys.stderr)
        raise ValueError(msg)


SHARPNESS = {}
def _get_detailed_sharpness(name, href, parser):
    """
    Fetch weapon details page, parse the three levels of sharpness and
    save to SHARPNESS global.

    Example page: http://wiki.mhxg.org/ida/219225.html
    """
    if name in SHARPNESS:
        return SHARPNESS[name]
    if not href.startswith("http://"):
        href = _BASE_URL + href
    digits = []
    base_name = name
    while base_name[-1].isdigit():
        digits.insert(0, base_name[-1])
        base_name = base_name[:-1]
    if digits:
        weapon_level = int("".join(digits))
    else:
        weapon_level = 1
    tmp_path = os.path.join(_pathfix.project_path, "tmp")
    fpath = os.path.join(tmp_path, "details-%s.html" % (base_name))
    urllib.request.urlretrieve(href, fpath)
    with open(fpath) as f:
        tree = etree.parse(f, parser)
        data1 = tree.xpath('//*/div[@class="data1"]')
        assert len(data1) == 1, data1
        tables = data1[0].xpath('./table[@class="t1 th3"]')
        assert len(tables) == 2, len(tables)
        comp_table = tables[1]
        comp_trs = comp_table.xpath('./tr')
        names = []
        for tr in comp_trs:
            cells = tr.xpath('./td')
            if not cells:
                # first row has th, we want to ignore anyway
                continue
            name_cell = cells[0]
            # name is tail of weapon icon image
            name = name_cell[0].tail.strip()
            names.append(name)
        attr_table = tables[0]
        attr_trs = attr_table.xpath('./tr')
        i = 0
        sharpness_col = 3
        for tr in attr_trs:
            # Try to figure out column with sharpness, hunting horn
            # pages are different.
            heads = tr.xpath('./th')
            if heads:
                for j, th in enumerate(heads):
                    if "斬れ味" in th.text:
                        sharpness_col = j
                continue

            cells = tr.xpath('./td')
            if not cells:
                # TODO: this should not happens, since header row is
                # handled above
                continue
            sharpness_cell = cells[sharpness_col]
            name = names[i]
            try:
                sharpness_levels = _parse_sharpness_td(sharpness_cell)
            except KeyError as ValueError:
                print("bad sharpness:", href, name, file=sys.stderr)
                raise
            SHARPNESS[name] = sharpness_levels
            #print name, sharpness_levels
            i += 1
    return SHARPNESS[name]


def _parse_bow_td(td_element):
    shots = []
    coatings = []
    shot_type_spans = td_element.xpath("./div/span")
    for span in shot_type_spans:
        shot = {}
        if not span.text:
            continue
        text = span.text.strip()
        shot["type"] = _BOW_SHOT_TYPES[text[:2]]
        shot["level"] = text[2]
        shot["requires_loading"] = (span.attrib.get("class") == "b")
        shots.append(shot)
    coatings_span = td_element.xpath("./p/span/span")
    for span in coatings_span:
        text = span.text.strip()
        coatings.append(_BOW_COATINGS[text])
    return shots, coatings


def _parse_horn_notes_td(td_element):
    notes = []
    note_spans = td_element.xpath("./div/span")
    for span in note_spans:
        style = span.attrib["style"]
        color = style[len("color:"):]
        notes.append(_HORN_NOTES[color])
    return "".join(notes)


def _parse_hh_attr_td(td_element):
    spans = td_element.xpath('./span')
    affinity = 0
    defense = 0
    attack = 0
    elements = []
    slots = 0
    for span in spans:
        span_class = span.attrib.get("class")
        if span_class and span_class.startswith("type_"):
            e = _parse_element(span.text.strip())
            elements.append(e)
        elif span_class and span_class == "b":
            attack = int(span.text.strip())
        else:
            affinity = int(span.text.strip())
    text_lines = td_element.text.strip().split("\n")
    for line in text_lines:
        if line.startswith("防御+"):
            defense = int(line[3:])

    if td_element.tail:
        slots = td_element.tail.count("◯")
    return attack, affinity, defense, elements, slots


def _parse_elements_td(td_element):
    # 会心<span class="c_r">-20</span>%<br>
    # 防御+5
    # <span class="type_N">氷14</span>
    spans = td_element.xpath('./span')
    affinity = 0
    defense = 0
    elements = []
    for span in spans:
        span_class = span.attrib.get("class")
        if span_class and span_class.startswith("type_"):
            e = _parse_element(span.text.strip())
            elements.append(e)
        else:
            affinity = int(span.text.strip())
    text_lines = td_element.text.strip().split("\n")
    for line in text_lines:
        if line.startswith("防御+"):
            defense = int(line[3:])
    return affinity, defense, elements


def _parse_element(text):
    for jp_element in sorted(list(_ELEMENT_MAP.keys()), key=lambda s: len(s),
                             reverse=True):
        if text.startswith(jp_element):
            value = int(text[len(jp_element):])
            element = _ELEMENT_MAP[jp_element]
            return element, value
    raise ValueError("Bad element: %r" % text)


def _parse_name_td(td_element):
    href = None
    name = None
    final = 0
    links = td_element.xpath('.//a')
    if links:
        assert len(links) == 1
        href = links[0].attrib["href"]
        name = links[0].text
        style = td_element.xpath('./span[@class="b"]/@style')
        if style and "background-color:#eec3e6;" in style:
            final = 1
    else:
        img_element = td_element.xpath('./img')[0]
        name = img_element.tail.strip()
    if name.endswith("10"):
        final = 1
    return name, href, final


def _parse_slots_td(td_element):
    text = td_element.text
    if text:
        return text.count("◯")
    return 0


def _parse_sharpness_td(td_element):
    div = td_element[0]
    subs = list(div)
    sharpness_levels = [[], [], []]
    level = 0
    current = sharpness_levels[0]
    for sub in subs:
        if sub.tag == "br":
            level += 1
            current = sharpness_levels[level]
            continue
        assert sub.tag == "span", sub.tag
        if sub.attrib["class"] == "kr7":
            continue
        if sub.text is None:
            continue
        current.append(sub.text.count("."))
    for level in range(3):
        sharpness = sharpness_levels[level]
        for i in range(len(sharpness), 6):
            sharpness.append(0)
    return sharpness_levels


def _main():
    tmp_path = os.path.join(_pathfix.project_path, "tmp")
    try:
        os.mkdir(tmp_path)
    except OSError as e:
        if e.errno != errno.EEXISTS:
            raise
    weapon_list = []
    parser = etree.HTMLParser()
    for wtype, urls in _WEAPON_URLS.items():
        for i, url in enumerate(urls):
            fpath = os.path.join(tmp_path, "%s-%d.html" % (wtype, i))
            urllib.request.urlretrieve(_BASE_URL + url, fpath)
            with open(fpath) as f:
                tree = etree.parse(f, parser)
                wlist = extract_weapon_list(wtype, tree, parser)
            weapon_list.extend(wlist)
    print(json.dumps(weapon_list, indent=2))


def _test_details():
    parser = etree.HTMLParser()
    # final level has same name
    _get_detailed_sharpness("ベルダーハンマー",
                            "http://wiki.mhxg.org/ida/219225.html", parser)
    # final level has different name
    _get_detailed_sharpness("テッケン",
                            "http://wiki.mhxg.org/ida/230575.html", parser)
    # final level >= 10 (two chars)
    _get_detailed_sharpness("ウィルガシェルプレス",
                            "http://wiki.mhxg.org/ida/228545.html", parser)


if __name__ == '__main__':
    #_test_details()
    UTF8Writer = codecs.getwriter('utf8')
    sys.stdout = UTF8Writer(sys.stdout)
    sys.stderr = UTF8Writer(sys.stderr)
    _main()