require "isodoc"
require_relative "metadata"
require "fileutils"

module IsoDoc
  module ITU
    module BaseConvert
      def nonstd_bibitem(list, b, ordinal, biblio)
        list.tr **attr_code(iso_bibitem_entry_attrs(b, biblio)) do |ref|
          id = render_identifier(bibitem_ref_code(b))
          ref.td **{style: "vertical-align:top"} do |td|
            td << (id[0] || "[#{id[1]}]")&.
              gsub(/-/, "&#x2011;")&.gsub(/ /, "&#xa0;")
            date_note_process(b, td)
          end
          ref.td { |td| reference_format(b, td) }
        end
      end

      def std_bibitem_entry(list, b, ordinal, biblio)
        nonstd_bibitem(list, b, ordinal, biblio)
      end

      def biblio_list(f, div, biblio)
        div.table **{ class: "biblio", border: "0" } do |t|
          i = 0
          t.tbody do |tbody|
            f.elements.each do |b|
              if b.name == "bibitem"
                next if implicit_reference(b)
                i += 1
                nonstd_bibitem(tbody, b, i, biblio)
              else
                unless %w(title clause references).include? b.name
                  tbody.tx { |tx| parse(b, tx) }
                end
              end
            end
          end
        end
        f.xpath(ns("./clause | ./references")).each do |x|
          parse(x, div)
        end
      end

      def bracket_if_num(x)
        return nil if x.nil?
        x = x.text.sub(/^\[/, "").sub(/\]$/, "")
        "[#{x}]"
      end

      def reference_format(b, r)
        reference_format_start(b, r)
        reference_format_title(b, r)
      end

      def titlecase(s)
        s.gsub(/ |\_|\-/, " ").split(/ /).map(&:capitalize).join(" ")
      end

      def pref_ref_code(b)
        b.at(ns("./docidentifier[@type = 'ITU']")) || super
      end

      IGNORE_IDS = "@type = 'DOI' or @type = 'ISSN' or @type = 'ISBN' or "\
        "@type = 'rfc-anchor'".freeze

      def multi_bibitem_ref_code(b)
        id = b.xpath(ns("./docidentifier[not(@type = 'metanorma' or "\
                        "#{IGNORE_IDS})]"))
        id.empty? and
          id = b.xpath(ns("./docidentifier[not(@type = 'metanorma')]"))
        return [] if id.empty?
        id.sort_by { |i| i["type"] == "ITU" ? 0 : 1 }
      end

      def render_multi_identifiers(ids)
        ids.map do |id|
          id["type"] == "ITU" ? doctype_title(id) : 
            docid_prefix(id["type"], id.text.sub(/^\[/, "").sub(/\]$/, ""))
        end.join(" | ")
      end

      def doctype_title(id)
        type = id.parent&.at(ns("./ext/doctype"))&.text || "recommendation"
        if type == "recommendation" &&
            /^(?<prefix>ITU-[A-Z] [A-Z])[ .-]Sup[a-z]*\.[ ]?(?<num>\d+)$/ =~ id.text
          "#{prefix}-series Recommendations – Supplement #{num}"
        else
          d = docid_prefix(id["type"], id.text.sub(/^\[/, '').sub(/\]$/, ''))
          "#{titlecase(type)} #{d}"
        end
      end

      def reference_format_start(b, r)
        id = multi_bibitem_ref_code(b)
        id1 = render_multi_identifiers(id)
        r << id1
        date = b.at(ns("./date[@type = 'published']")) and
          r << " (#{date.text.sub(/-.*$/, '')})"
        r << ", " if (date || !id1.empty?)
      end

      def reference_format_title(b, r)
        if ftitle = b.at(ns("./formattedref"))
          ftitle&.children&.each { |n| parse(n, r) }
          /\.$/.match(ftitle&.text) or r << "."
        elsif title = iso_title(b)
          r.i do |i|
            title&.children&.each { |n| parse(n, i) }
          end
          /\.$/.match(title&.text) or r << "."
        end
      end
    end
  end
end