require "isodoc"
require "twitter_cldr"

module IsoDoc
  module Gb
    # A {Converter} implementation that generates GB output, and a document
    # schema encapsulation of the document for validation
    class Metadata < IsoDoc::Metadata
      def initialize(lang, script, labels)
        super
        set(:docmaintitlezh, "")
        set(:docsubtitlezh, "XXXX")
        set(:docparttitlezh, "")
        set(:docmaintitleen, "")
        set(:docsubtitleen, "XXXX")
        set(:docparttitleen, "")
        set(:gbequivalence, "")
        set(:isostandard, nil)
        set(:isostandardtitle, "")
        set(:doctitle, "XXXX")
        set(:obsoletes, nil)
        set(:obsoletes_part, nil)
      end

      def title(isoxml, _out)
        intro = isoxml.at(ns("//title-intro[@language='zh']"))
        main = isoxml.at(ns("//title-main[@language='zh']"))
        part = isoxml.at(ns("//title-part[@language='zh']"))
        partnumber = isoxml.at(ns("//project-number/@part"))
        intro.nil? || set(:docmaintitlezh, intro.text + "&nbsp;")
        main.nil? || set(:docsubtitlezh, main.text)
        partnum = partnumber ? "#{part_label(partnumber, 'zh')}:" : ""
        part.nil? || set(:docparttitlezh,
                                  "&nbsp;#{partnum}#{part.text}")
      end

      def set_doctitle
        if @lang == "zh"
          set(:doctitle, get[:docmaintitlezh] + 
                       get[:docsubtitlezh] +
                       get[:docparttitlezh])
        else
          set(:doctitle, get[:docmaintitleen] + 
                       get[:docsubtitleen] +
                       get[:docparttitleen])
        end
      end

      def subtitle(isoxml, _out)
        intro = isoxml.at(ns("//title-intro[@language='en']"))
        main = isoxml.at(ns("//title-main[@language='en']"))
        part = isoxml.at(ns("//title-part[@language='en']"))
        partnumber = isoxml.at(ns("//project-number/@part"))
        intro.nil? || set(:docmaintitleen, intro.text + "&mdash;")
        main.nil? || set(:docsubtitleen, main.text)
        partnum = partnumber ? "#{part_label(partnumber, 'en')}: " : ""
        part.nil? || set(:docparttitleen,
                                  "&mdash;#{partnum} #{part.text}")
        set_doctitle
      end

      def author(isoxml, _out)
        gbcommittee = isoxml.at(ns("//bibdata/gbcommittee"))
        set(:committee, gbcommittee&.text)
      end

      STAGE_ABBRS_CN = {
        "00": "新工作项目建议",
        "10": "新工作项目",
        "20": "标准草案工作组讨论稿",
        "30": "标准草案征求意见稿",
        "40": "标准草案送审稿",
        "50": "标准草案报批稿",
        "60": "国家标准",
        "90": "(Review)",
        "95": "(Withdrawal)",
      }.freeze

      def stage_abbrev_cn(stage, iter, draft)
        return stage_abbrev(stage, iter, draft) if @lang != "zh"
        stage = STAGE_ABBRS_CN[stage.to_sym] || "??"
        stage = "#{iter.text.to_i.localize(:zh).spellout}次#{stage}" if iter
        stage = "Pre" + stage if draft&.text =~ /^0\./
        stage
      end

      def docstatus(isoxml, _out)
        docstatus = isoxml.at(ns("//status/stage"))
        if docstatus
          set(:stage, docstatus.text.to_i)
          abbr = stage_abbrev_cn(docstatus.text, isoxml.at(ns("//status/iteration")),
                                 isoxml.at(ns("//version/draft")))
          set(:stageabbr, abbr)
        end
      end

      def docid1(isoxml, _out)
        dn = docnumber(isoxml)
        docstatus = get[:stage]
        if docstatus
          abbr = stage_abbrev(docstatus.to_s, isoxml.at(ns("//status/iteration")),
                              isoxml.at(ns("//version/draft")))
          (docstatus.to_i < 60) && dn = abbr + " " + dn
        end
        set(:docnumber, dn)
      end

      def docid(isoxml, _out)
        docid1(isoxml, _out)
        gb_identifier(isoxml)
        gb_library_identifier(isoxml)
        gb_equivalence(isoxml)
      end

      ISO_STD_XPATH = "//bibdata/relation[@type = 'equivalent' or "\
        "@type = 'identical' or @type = 'nonequivalent']/bibitem".freeze

      def gb_equivalence(isoxml)
        isostdid = isoxml.at(ns("#{ISO_STD_XPATH}/docidentifier")) || return
        set(:isostandard, isostdid.text)
        isostdtitle = isoxml.at(ns("#{ISO_STD_XPATH}/title"))
        set(:isostandardtitle, isostdtitle.text) if isostdtitle
        eq = isoxml.at(ns("//bibdata/relation/@type"))
        case eq.text
        when "equivalent" then set(:gbequivalence, "MOD")
        when "nonequivalent" then set(:gbequivalence, "NEQ")
        when "identical" then set(:gbequivalence, "IDT")
        end
      end

      SCOPEPFX = {
        :local => "DB",
        "social-group".to_sym => "T",
        :enterprise => "Q",
      }.freeze

      def docidentifier(scope, prefix, mandate, docyear)
        docnum = get[:docnumber]
        dn = case scope 
             when "local"
               "#{SCOPEPFX[scope.to_sym]}#{@agencies.mandate_suffix(prefix, mandate)}/"\
                 "#{docnum}".gsub(%r{/([TZ])/}, "/\\1 ")
             when "social-group", "enterprise"
               "#{@agencies.mandate_suffix(SCOPEPFX[scope.to_sym], mandate)}/"\
                 "#{prefix} #{docnum}"
             else
               "#{@agencies.mandate_suffix(prefix, mandate)}&#x2002;#{docnum}"
             end
        dn += "&mdash;#{docyear}" if docyear
        set(:docidentifier, dn)
      end

      def gb_identifier(isoxml)
        scope = isoxml.at(ns("//gbscope"))&.text || "national"
        mandate = isoxml.at(ns("//gbmandate"))&.text || "mandatory"
        prefix = isoxml.at(ns("//gbprefix"))&.text || "XXX"
        docyear = isoxml&.at(ns("//copyright/from"))&.text
        issuer = isoxml&.at(ns("//bibdata/contributor[role/@type = 'issuer']/"\
                               "organization/name"))&.text || "GB"
        @agencies = Agencies.new(@lang, @labels, issuer)
        docidentifier(scope, prefix, mandate, docyear)
        set(:issuer, issuer)
        set(:standard_class, @agencies.standard_class(scope, prefix, mandate))
        set(:standard_agency, @agencies.standard_agency(scope, prefix, mandate))
        set(:gbprefix, scope == "local" ? "DB" : prefix)
        set(:gbscope, scope)
      end

      def standard_logo(gbprefix)
        return nil unless gbprefix
        case gbprefix.downcase
        when "db" then "gb-standard-db"
        when "gb" then "gb-standard-gb"
        when "gjb" then "gb-standard-gjb"
        when "gm" then "gb-standard-gm"
        when "jjf" then "gb-standard-jjf"
        when "zb" then "gb-standard-zb"
        end
      end

      def gb_library_identifier(isoxml)
        ics = []
        ccs = []
        isoxml.xpath(ns("//bibdata/ics/code")).each { |i| ics << i.text }
        isoxml.xpath(ns("//bibdata/ccs")).each { |i| ccs << i.text }
        p = isoxml.at(ns("//bibdata/plannumber"))
        set(:libraryid_ics, ics.empty? ? "XXX" : ics.join(", "))
        set(:libraryid_ccs, ccs.empty? ? "XXX" : ccs.join(", "))
        set(:libraryid_plan, p ? p.text : "XXX")
      end

      def part_label(partnumber, lang)
        case lang
        when "en" then "Part #{partnumber}"
        when "zh" then "第#{partnumber}部分"
        end
      end

      def bibdate(isoxml, _out)
        super
        m = get
        if @lang == "zh"
          set(:labelled_publisheddate, m[:publisheddate] + " " +
                       @labels["publicationdate_lbl"])
          set(:labelled_implementeddate, m[:implementeddate] + " " +
                       @labels["implementationdate_lbl"])
        else
          set(:labelled_publisheddate, @labels["publicationdate_lbl"] +
                       ": " + m[:publisheddate])
          set(:labelled_implementeddate,
                       @labels["implementationdate_lbl"] + ": " +
                       m[:implementeddate])
        end
      end
    end
  end
end