metanorma/metanorma-ogc

require "asciidoctor"
require "metanorma/standoc/converter"
require "fileutils"

module Metanorma
  module Ogc
    class Converter < Standoc::Converter
      def metadata_author(node, xml)
        corporate_author(node, xml)
        personal_author(node, xml)
      end

      def safe_xml_string(node, key, value)
        node.send key do |n|
          n << value
        end
      end

      def corporate_author(node, xml)
        node.attr("submitting-organizations") or return
        csv_split(@c.decode(node.attr("submitting-organizations")),
                  ";")&.each do |org|
          xml.contributor do |c|
            c.role type: "author"
            c.organization do |a|
              safe_xml_string(a, "name", org)
            end
          end
        end
      end

      def personal_author(node, xml)
        ogc_editor(node, xml)
        if node.attr("fullname") || node.attr("surname")
          personal_author1(node, xml, "")
        end
        i = 2
        while node.attr("fullname_#{i}") || node.attr("surname_#{i}")
          personal_author1(node, xml, "_#{i}")
          i += 1
        end
      end

      def personal_role(node, contrib, suffix)
        type = node.attr("role#{suffix}")&.downcase || "editor"
        if type == "contributor"
          contrib.role type: "author" do |r|
            safe_xml_string(r, "description", type)
          end
        else contrib.role type: type
        end
      end

      def ogc_editor(node, xml)
        node.attr("editor") or return
        xml.contributor do |c|
          c.role type: "editor"
          c.person do |p|
            p.name do |n|
              n.completename node.attr("editor")
            end
          end
        end
      end

      def personal_author1(node, xml, suffix)
        xml.contributor do |c|
          personal_role(node, c, suffix)
          c.person do |p|
            p.name do |n|
              personal_author_name(node, n, suffix)
            end
          end
        end
      end

      def personal_author_name(node, xml, suffix)
        if node.attr("fullname#{suffix}")
          safe_xml_string(xml, "completename", node.attr("fullname#{suffix}"))
        else
          safe_xml_string(xml, "forename", node.attr("givenname#{suffix}"))
          safe_xml_string(xml, "surname", node.attr("surname#{suffix}"))
        end
      end

      def default_publisher
        "OGC"
      end

      def org_abbrev
        { "Open Geospatial Consortium" => "OGC" }
      end

      def metadata_committee(node, xml)
        node.attr("committee") or return
        xml.editorialgroup do |a|
          metadata_committee1(node, a)
        end
      end

      def metadata_committee1(node, xml)
        xml.committee(node.attr("committee") || "technical")
        node.attr("subcommittee") and
          xml.subcommittee(node.attr("subcommittee"),
                           **attr_code(type: node.attr("subcommittee-type"),
                                       number: node.attr("subcommittee-number")))
        (node.attr("workgroup") || node.attr("workinggroup")) and
          xml.workgroup(node.attr("workgroup") || node.attr("workinggroup"),
                        **attr_code(type: node.attr("workgroup-type"),
                                    number: node.attr("workgroup-number")))
      end

      def externalid(node)
        i = node.attr("external-id") and return i
        d = doctype(node)
        a = node.attr("abbrev")
        d && a or return
        url = "http://www.opengis.net/doc/#{IsoDoc::Ogc::DOCTYPE_ABBR[d]}/#{a}"
        v = node.attr("edition") || node.attr("version") and url += "/#{v}"
        url
      end

      def metadata_id(node, xml)
        e = externalid(node) and xml.docidentifier e, type: "ogc-external"
        node.attr("referenceurlid") and
          xml.docidentifier externalurl(node), type: "ogc-external"
        docnumber = node.attr("docnumber") || node.attr("docreference")
        id = node.attr("docidentifier") || docnumber
        xml.docidentifier id, type: "ogc-internal", primary: "true"
      end

      def externalurl(node)
        if doctype(node) == "engineering-report"
          "http://www.opengis.net/doc/PER/t14-#{node.attr('referenceurlid')}"
        else
          node.attr("referenceurlid")
        end
      end

      def metadata_source(node, xml)
        super
        node.attr("previous-uri") && xml.uri(node.attr("previous-uri"),
                                             type: "previous")
      end

      def metadata_copyright(node, xml)
        node.attr("copyrightyear") and
          node.set_attr("copyright-year", node.attr("copyrightyear"))
        super
      end

      def metadata_date(node, xml)
        super
        ogc_date(node, xml, "submissiondate", "received")
        ogc_date(node, xml, "publicationdate", "published")
        ogc_date(node, xml, "approvaldate", "issued")
      end

      def ogc_date(node, xml, ogcname, metanormaname)
        if node.attr(ogcname)
          xml.date type: metanormaname do |d|
            d.on node.attr(ogcname)
          end
        end
      end

      def metadata_version(node, xml)
        node.attr("version") and
          node.set_attr("edition", node.attr("version"), false)
        super
      end

      def metadata_subdoctype(node, xml)
        s = node.attr("docsubtype")
        s1 = ::IsoDoc::Ogc::DOCSUBTYPE_ABBR.invert[s] and s = s1
        case doctype(node)
        when "standard"
          unless %w{conceptual-model conceptual-model-and-encoding
                    conceptual-model-and-implementation encoding extension
                    implementation profile profile-with-extension}.include? s
            @log.add("Document Attributes", nil,
                     "'#{s}' is not a permitted subtype of Standard: " \
                     "reverting to 'implementation'")
            s = "implementation"
          end
        when "best-practice"
          unless %w{general encoding extension profile
                    profile-with-extension}.include? s
            @log.add("Document Attributes", nil,
                     "'#{s}' is not a permitted subtype of best-practice: " \
                     "reverting to 'general'")
            s = "general"
          end
        end
        s && !s.empty? and xml.subdoctype s
      end

      def title(node, xml)
        super
        at = { format: "text/plain", type: "abbrev" }
        a = node.attr("abbrev") and
          xml.title a, **attr_code(at)
      end

      def metadata_ext(node, xml)
        metadata_doctype(node, xml)
        metadata_subdoctype(node, xml)
        metadata_committee(node, xml)
      end
    end
  end
end