class IsoDoc::Iso::Metadata

def amd_label(lang)
  case lang
  when "en" then "AMENDMENT"
  when "fr" then "AMENDMENT"
  end
end

def amd_prefix(num, lang)
  "#{amd_label(lang)} #{num}"
end

def author(xml, _out)
  super
  tc(xml)
  sc(xml)
  wg(xml)
  secretariat(xml)
end

def compose_title(main, intro, part, partnum, subpartnum, lang)
  main = main.nil? ? "" : @c.encode(main.text, :hexadecimal)
  intro &&
    main = "#{@c.encode(intro.text, :hexadecimal)} — #{main}"
  if part
    suffix = part_title(part, partnum, subpartnum, lang)
    main = "#{main} — #{suffix}"
  end
  main
end

def corr_label(lang)
  case lang
  when "en" then "TECHNICAL CORRIGENDUM"
  when "fr" then "RECTIFICATIF TECHNIQUE"
  end
end

def corr_prefix(num, lang)
  "#{corr_label(lang)} #{num}"
end

def docid(isoxml, _out)
  dn = isoxml.at(ns("//bibdata/docidentifier[@type = 'ISO']"))
  set(:docnumber, dn&.text)
  tcdn = isoxml.xpath(ns("//bibdata/docidentifier[@type = 'iso-tc']"))
  set(:tc_docnumber, tcdn.map { |n| n.text })
  dn = isoxml.at(ns("//bibdata/docidentifier[@type = 'iso-with-lang']"))
  set(:docnumber_lang, dn&.text)
  dn = isoxml.at(ns("//bibdata/docidentifier[@type = 'iso-reference']"))
  set(:docnumber_reference, dn&.text)
end

def docstatus(isoxml, _out)
  docstatus = isoxml.at(ns("//bibdata/status/stage"))
  set(:unpublished, false)
  if docstatus
    set(:stage, docstatus.text)
    set(:stage_int, docstatus.text.to_i)
    set(:unpublished, unpublished(docstatus.text))
    set(:statusabbr, status_abbrev(docstatus["abbreviation"] || "??",
                                   isoxml&.at(ns("//bibdata/status/substage"))&.text,
                                   isoxml&.at(ns("//bibdata/status/iteration"))&.text,
                                   isoxml&.at(ns("//version/draft"))&.text,
                                   isoxml&.at(ns("//bibdata/ext/doctype"))&.text))
    unpublished(docstatus.text) and
      set(:stageabbr, docstatus["abbreviation"])
  end
  revdate = isoxml.at(ns("//version/revision-date"))
  set(:revdate, revdate&.text)
end

def doctype(isoxml, _out)
  super
  ics = []
  isoxml.xpath(ns("//bibdata/ext/ics/code")).each { |i| ics << i.text }
  set(:ics, ics.empty? ? nil : ics.join(", "))
end

def initialize(lang, script, i18n)
  super
  @metadata = {
    tc: "XXXX",
    sc: "XXXX",
    wg: "XXXX",
    editorialgroup: [],
    secretariat: "XXXX",
    obsoletes: nil,
    obsoletes_part: nil
  }
end

def part_label(lang)
  case lang
  when "en" then "Part"
  when "fr" then "Partie"
  end
end

def part_prefix(partnum, subpartnum, lang)
  partnum = "#{partnum}–#{subpartnum}" if partnum && subpartnum
  "#{part_label(lang)} #{partnum}"
end

def part_title(part, partnum, subpartnum, lang)
  return "" unless part
  suffix = @c.encode(part.text, :hexadecimal)
  partnum = "#{partnum}–#{subpartnum}" if partnum && subpartnum
  suffix = "#{part_label(lang)} #{partnum}: " + suffix if partnum
  suffix
end

def sc(xml)
  sc_num = xml.at(ns("//bibdata/ext/editorialgroup/subcommittee/@number"))
  sc_type = xml.at(ns("//bibdata/ext/editorialgroup/subcommittee/@type"))&.text || "SC"
  if sc_num
    scid = "#{sc_type} #{sc_num.text}"
    set(:sc, scid)
    set(:editorialgroup, get[:editorialgroup] << scid)
  end
end

def secretariat(xml)
  sec = xml.at(ns("//bibdata/ext/editorialgroup/secretariat"))
  set(:secretariat, sec.text) if sec
end

def status_abbrev(stage, substage, iter, draft, doctype)
  return "" unless stage
  if %w(technical-report technical-specification).include?(doctype)
    stage = "DTS" if stage == "DIS"
    stage = "FDTS" if stage == "FDIS"
  end
  if %w(PWI NWIP WD CD).include?(stage)
    stage += iter if iter
  end
  stage = "Pre" + stage if draft =~ /^0\./
  stage
end

def subtitle(isoxml, _out)
  intro, main, part, amd = title_parts(isoxml, "fr")
  partnumber, subpartnumber, amdnumber, corrnumber = title_nums(isoxml)
  set(:docsubtitlemain, @c.encode(main ? main.text : "", :hexadecimal))
  main = compose_title(main, intro, part, partnumber, subpartnumber, "fr")
  set(:docsubtitle, main)
  set(:docsubtitleintro, @c.encode(intro ? intro.text : "", :hexadecimal)) if intro
  set(:docsubtitlepartlabel, part_prefix(partnumber, subpartnumber, "fr"))
  set(:docsubtitlepart, @c.encode(part.text, :hexadecimal)) if part
  set(:docsubtitleamdlabel, amd_prefix(amdnumber, "fr")) if amdnumber
  set(:docsubtitleamd, @c.encode(amd.text, :hexadecimal)) if amd
  set(:docsubtitlecorrlabel, corr_prefix(corrnumber, "fr")) if corrnumber
end

def tc(xml)
  tc_num = xml.at(ns("//bibdata/ext/editorialgroup/technical-committee/@number"))
  tc_type = xml.at(ns("//bibdata/ext/editorialgroup/technical-committee/@type"))&.
    text || "TC"
  if tc_num
    tcid = "#{tc_type} #{tc_num.text}"
    set(:tc,  tcid)
    set(:editorialgroup, get[:editorialgroup] << tcid)
  end
end

def title(isoxml, _out)
  intro, main, part, amd = title_parts(isoxml, "en")
  partnumber, subpartnumber, amdnumber, corrnumber = title_nums(isoxml)
  set(:doctitlemain, @c.encode(main ? main.text : "", :hexadecimal))
  main = compose_title(main, intro, part, partnumber, subpartnumber, "en")
  set(:doctitle, main)
  set(:doctitleintro, @c.encode(intro ? intro.text : "", :hexadecimal)) if intro
  set(:doctitlepartlabel, part_prefix(partnumber, subpartnumber, "en"))
  set(:doctitlepart, @c.encode(part.text, :hexadecimal)) if part
  set(:doctitleamdlabel, amd_prefix(amdnumber, "en")) if amdnumber
  set(:doctitleamd, @c.encode(amd.text, :hexadecimal)) if amd
  set(:doctitlecorrlabel, corr_prefix(corrnumber, "en")) if corrnumber
end

def title_nums(isoxml)
  [isoxml.at(ns("//bibdata//project-number/@part")),
   isoxml.at(ns("//bibdata//project-number/@subpart")),
   isoxml.at(ns("//bibdata//project-number/@amendment")),
   isoxml.at(ns("//bibdata//project-number/@corrigendum"))]
end

def title_parts(isoxml, lang)
  [isoxml.at(ns("//bibdata//title[@type='title-intro' and @language='#{lang}']")),
   isoxml.at(ns("//bibdata//title[@type='title-main' and @language='#{lang}']")),
   isoxml.at(ns("//bibdata//title[@type='title-part' and @language='#{lang}']")),
   isoxml.at(ns("//bibdata//title[@type='title-amd' and @language='#{lang}']"))]
end

def unpublished(status)
  status.to_i > 0 && status.to_i < 60
end

def wg(xml)
  wg_num = xml.at(ns("//bibdata/ext/editorialgroup/workgroup/@number"))
  wg_type = xml.at(ns("//bibdata/ext/editorialgroup/workgroup/@type"))&.text || "WG"
  if wg_num
    wgid = "#{wg_type} #{wg_num.text}"
    set(:wg, wgid)
    set(:editorialgroup, get[:editorialgroup] << wgid)
  end
end