base_convert.rb in metanorma-iho-0.2.3

- old
+ new
@@ -13,8 +13,129 @@
       def info(isoxml, out)
         @meta.series isoxml, out
         @meta.commentperiod isoxml, out
         super
       end
+
+      def std_bibitem_entry(list, b, ordinal, biblio)
+        list.p **attr_code(iso_bibitem_entry_attrs(b, biblio)) do |ref|
+          prefix_bracketed_ref(ref, "[#{ordinal}]")
+          standard_citation(ref, b)
+        end
+      end
+
+      def nodes_to_span(n)
+        noko do |xml|
+          xml.span do |s|
+            n&.children&.each { |x| parse(x, s) }
+          end
+        end.join("")
+      end
+
+      def multiplenames_and(names)
+        return "" if names.length == 0
+        return names[0] if names.length == 1
+        return "#{names[0]} and #{names[1]}" if names.length == 2
+        names[0..-2].join(", ") + " and #{names[-1]}"
+      end
+
+      def extract_publisher(b)
+        c = b.xpath(ns("./contributor[role/@type = 'publisher'][organization]"))
+        abbrs = []
+        names = []
+        c&.each do |c1|
+          n = c1.at(ns("./organization/name")) or next
+          abbrs << (c1.at(ns("./organization/abbreviation")) || n)
+          names << nodes_to_span(n)
+        end
+        return [nil, nil] if names.empty?
+        return [multiplenames_and(names), (abbrs.map { |x| x.text }).join("/")]
+      end
+
+      def inline_bibitem_ref_code(b)
+        id = b.at(ns("./docidentifier[not(@type = 'DOI' or @type = 'metanorma' "\
+                     "or @type = 'ISSN' or @type = 'ISBN' or @type = 'rfc-anchor')]"))
+        id ||= b.at(ns("./docidentifier[not(@type = 'metanorma')]"))
+        return [nil, id, nil] if id
+        id = Nokogiri::XML::Node.new("docidentifier", b.document)
+        id << "(NO ID)"
+        [nil, id, nil]
+      end
+
+      def extract_edition(b)
+        b&.at(ns("./edition"))&.text
+      end
+
+      def extract_uri(b)
+        b.at(ns("./uri"))
+      end
+
+      def omit_docid_prefix(prefix)
+        return true if prefix == "IHO"
+        super
+      end
+
+      def render_identifier(id)
+        if !id[1].nil? and id[1]["type"] == "IHO"
+          id[1].children = id[1].text.sub(/^IHO /, "")
+        end
+        super
+      end
+
+      def extract_publisher(b)
+        c = b.xpath(ns("./contributor[role/@type = 'publisher'][organization]"))
+        abbrs = []
+        names = []
+        c&.each do |c1|
+          n = c1.at(ns("./organization/name")) or next
+          abbrs << (c1.at(ns("./organization/abbreviation")) || n)
+          names << nodes_to_span(n)
+        end
+        return [nil, nil] if names.empty?
+        return [multiplenames_and(names), (abbrs.map { |x| x.text }).join("/")]
+      end
+
+      def extract_author(b)
+        c = b.xpath(ns("./contributor[role/@type = 'author']"))
+        c = b.xpath(ns("./contributor[role/@type = 'editor']")) if c.empty?
+        return extract_publisher(b)[0] if c.empty?
+        c.map do |c1|
+          c1&.at(ns("./organization/name"))&.text || extract_person_name(c1)
+        end.reject { |e| e.nil? || e.empty? }.join(", ")
+      end
+
+      def extract_person_name(b)
+        p = b.at(ns("./person/name")) or return
+        c = p.at(ns("./completename")) and return c.text
+        s = p&.at(ns("./surname"))&.text or return
+        i = p.xpath(ns("./initial")) and
+          front = i.map { |e| e.text.gsub(/[^[:upper:]]/, "") }.join("")
+        i.empty? and f = p.xpath(ns("./forename")) and
+          front = f.map { |e| e.text[0].upcase }.join("")
+        front ? "#{s} #{front}" : s
+      end
+
+      def is_iho?(b)
+        extract_publisher(b)[1] == "IHO"
+      end
+
+      # [{number}] {docID} edition {edition}: {title}, {author/organization}
+      def standard_citation(out, b)
+        if ftitle = b.at(ns("./formattedref"))
+          ftitle&.children&.each { |n| parse(n, out) }
+        else
+          id = render_identifier(inline_bibitem_ref_code(b))
+          out << id[1] if id[1]
+          ed = extract_edition(b) if is_iho?(b)
+          out << " edition #{ed}" if ed
+          out << ": " if id[1] || ed
+          iso_title(b)&.children&.each { |n| parse(n, out) }
+          out << ", "
+          author = extract_author(b)
+          out << author
+          u = extract_uri(b)
+          out << " (<a href='#{u.text}'>#{u.text}</a>)" if u
+        end
+      end
     end
   end
 end