relaton 2.2.0.pre.alpha.1 → 3.0.0.pre.alpha.1

data/lib/relaton/iso/scraper.rb

@@ -0,0 +1,619 @@
+# frozen_string_literal: true
+
+module Relaton
+  module Iso
+    # Scrapper.
+    class Scraper # rubocop:disable Metrics/ModuleLength
+      DOMAIN = "https://www.iso.org"
+
+      TYPES = {
+        "TS" => "technical-specification",
+        "DTS" => "technical-specification",
+        "TR" => "technical-report",
+        "DTR" => "technical-report",
+        "PAS" => "publicly-available-specification",
+        # "AWI" => "approvedWorkItem",
+        # "CD" => "committeeDraft",
+        # "FDIS" => "finalDraftInternationalStandard",
+        # "NP" => "newProposal",
+        # "DIS" => "draftInternationalStandard",
+        # "WD" => "workingDraft",
+        # "R" => "recommendation",
+        "Guide" => "guide",
+        "ISO" => "international-standard",
+        "IEC" => "international-standard",
+        "IWA" => "international-workshop-agreement",
+      }.freeze
+
+      STGABBR = {
+        "00" => "NWIP",
+        "10" => "AWI",
+        "20" => "WD",
+        "30" => "CD",
+        "40" => "DIS",
+        "50" => "FDIS",
+        "60" => { "00" => "PRF", "60" => "FINAL" },
+      }.freeze
+
+      PUBLISHERS = {
+        "IEC" => { name: "International Electrotechnical Commission", uri: "www.iec.ch" },
+        "ISO" => { name: "International Organization for Standardization", uri: "www.iso.org" },
+        "IEEE" => { name: "Institute of Electrical and Electronics Engineers", uri: "www.ieee.org" },
+        "SAE" => { name: "SAE International", uri: "www.sae.org" },
+        "CIE" => { name: " International Commission on Illumination", uri: "cie.co.at" },
+        "ASME" => { name: "American Society of Mechanical Engineers", uri: "www.asme.org" },
+      }.freeze
+
+      # extend self
+
+      def initialize(lang, errors)
+        @lang = lang
+        @errors = errors
+      end
+
+      # Parse page.
+      # @param path [String] page path
+      # @param lang [String, nil] language
+      # @param errors [Hash] collection of parsing errors
+      # @return [RelatonIsoBib::IsoBibliographicItem]
+      def self.parse_page(path, lang: nil, errors: {})
+        new(lang, errors).parse(path)
+      end
+
+      def parse(path) # rubocop:disable Metrics/AbcSize,Metrics/MethodLength
+        @doc, @url = get_page path
+        titles, abstract, langs = fetch_titles_abstract
+
+        contributors = fetch_contributors
+        eg_contributor = fetch_editorialgroup_contributor
+        contributors << eg_contributor if eg_contributor
+
+        ItemData.new(
+          id: id.gsub(/[^\w]/, ""),
+          # fetched: Date.today.to_s,
+          type: "standard",
+          docidentifier: fetch_relaton_docids,
+          docnumber: fetch_docnumber,
+          edition: edition,
+          language: langs.map { |l| l[:lang] },
+          script: langs.map { |l| script(l[:lang]) }.uniq,
+          title: titles,
+          status: fetch_status,
+          ics: fetch_ics,
+          date: fetch_dates,
+          contributor: contributors,
+          abstract: abstract,
+          copyright: fetch_copyright,
+          source: fetch_source(@url),
+          relation: fetch_relations,
+          place: [Bib::Place.new(city: "Geneva")],
+          structuredidentifier: fetch_structuredidentifier,
+          ext: parse_ext,
+        )
+      end
+
+      def id
+        return @id if defined?(@id)
+
+        did = @doc.at("//h1/span[1]")
+        @errors[:id] &&= did.nil?
+        @id = did && did.text.split(" | ").first.strip
+      end
+
+      def pubid # rubocop:disable Metrics/AbcSize
+        return @pubid if @pubid
+
+        @pubid = ::Pubid::Iso::Identifier.parse(id)
+        @pubid.root.edition ||= edition.content if @pubid.base_identifier
+        @pubid
+      rescue StandardError => e
+        Util.error "Failed to parse pubid from #{id}: #{e.message}"
+      end
+
+      def urn
+        pubid.with_harmonized_stage(stage_code)
+      end
+
+      def edition
+        return @edition if defined?(@edition)
+
+        ed = @doc.at("//div[div[.='Edition']]/text()[last()]")
+        @errors[:edition] &&= ed.nil?
+        @edition = ed && Bib::Edition.new(content: ed.text.match(/\d+$/).to_s)
+      end
+
+      #
+      # Create document ids.
+      #
+      # @return [Array<RelatonBib::DocumentIdentifier>]
+      #
+      def fetch_relaton_docids
+        [
+          Docidentifier.new(content: pubid, type: "ISO", primary: true),
+          Docidentifier.new(content: isoref, type: "iso-reference"),
+          Docidentifier.new(content: urn, type: "URN"),
+        ]
+      end
+
+      #
+      # Create ISO reference identifier with English language.
+      #
+      # @return [String] English reference identifier
+      #
+      def isoref
+        pubid.dup.tap do |id|
+          id.languages = [::Pubid::Components::Language.new(code: "en", original_code: "E")]
+        end.to_s
+      end
+
+      private
+
+      # Fetch titles and abstracts.
+      # @return [Array<Array>]
+      def fetch_titles_abstract # rubocop:disable Metrics/AbcSize,Metrics/MethodLength
+        titles   = [] # RelatonBib::TypedTitleStringCollection.new
+        abstract = []
+        langs = languages.each_with_object([]) do |l, s|
+          # Don't need to get page for en. We already have it.
+          d = l[:path] ? get_page(l[:path])[0] : @doc
+          unless d.at("//h5[@class='help-block'][.='недоступно на русском языке']")
+            s << l
+            titles += fetch_title(d, l[:lang])
+
+            abstr = parse_abstract(d, l[:lang])
+            abstract << abstr if abstr
+          end
+        end
+        [titles, abstract, langs]
+      end
+
+      def parse_abstract(doc, lang)
+        abstract_content = doc.xpath(
+          "//div[@itemprop='description']/p|//div[@itemprop='description']/ul/li",
+        ).map { |a| a.name == "li" ? "- #{a.text}" : a.text }.reject(&:empty?).join("\n")
+        @errors[:abstract] &&= abstract_content.empty?
+        return if abstract_content.empty?
+
+        Bib::Abstract.new(content: abstract_content, language: lang, script: script(lang))
+      end
+
+      # Returns available languages.
+      # @return [Array<Hash>]
+      def languages
+        lgs = [{ lang: "en" }]
+        @doc.css("li#lang-switcher ul li a").each do |lang_link|
+          lang_path = lang_link.attr("href")
+          l = lang_path.match(%r{^/(fr)/})
+          lgs << { lang: l[1], path: lang_path } if l && (!@lang || l[1] != @lang)
+        end
+        @errors[:language] &&= lgs.size == 1
+        lgs
+      end
+
+      # Get page.
+      # @param path [String] page's path
+      # @return [Array<Nokogiri::HTML::Document, String>]
+      def get_page(path) # rubocop:disable Metrics/MethodLength
+        try = 0
+        begin
+          resp, uri = get_redirection path
+          doc = try_if_fail resp, uri
+          [doc, uri.to_s]
+        rescue  SocketError, Timeout::Error, Errno::EINVAL, Errno::ECONNRESET,
+                EOFError, Net::HTTPBadResponse, Net::HTTPHeaderSyntaxError,
+                Net::ProtocolError, Errno::ETIMEDOUT
+          try += 1
+          raise Relaton::RequestError, "Could not access #{DOMAIN}#{path}" if try > 3
+
+          sleep 1
+          retry
+        end
+      end
+
+      #
+      # Get the page from the given path. If the page is redirected, get the
+      # page from the new path.
+      #
+      # @param [String] path path to the page
+      #
+      # @return [Array<Net::HTTPOK, URI>] HTTP response and URI
+      # @raise [RelatonBib::RequestError] if the page is not found
+      #
+      def get_redirection(path) # rubocop:disable Metrics/AbcSize,Metrics/MethodLength
+        uri = URI(DOMAIN + path)
+        try = 0
+        begin
+          get_response uri
+        rescue Errno::EPIPE => e
+          try += 1
+          retry if check_try try, uri
+          raise e
+        end
+      end
+
+      def check_try(try, uri)
+        if try < 3
+          warn "Timeout fetching #{uri}, retrying..."
+          sleep 1
+          true
+        end
+      end
+
+      def get_response(uri, try = 0)
+        raise Relaton::RequestError, "#{uri} not found." if try > 3
+
+        resp = Net::HTTP.get_response(uri)
+        case resp.code
+        when "200" then [resp, uri]
+        when "301" then get_redirection(resp["location"])
+        when "404" then raise Relaton::RequestError, "#{uri} not found."
+        else
+          sleep (2**try)
+          get_response uri, try + 1
+        end
+      end
+
+      #
+      # The iso.org site fails to respond sometimes. This method tries to get
+      # the response again.
+      #
+      # @param [Net::HTTPOK] resp HTTP response
+      # @param [URI::HTTPS] uri URI of the page
+      #
+      # @return [Nokogiri::HTML4::Document] document
+      # @raise [Relaton::RequestError] if the page could not be parsed
+      #
+      def try_if_fail(resp, uri)
+        10.times do
+          doc = Nokogiri::HTML(resp.body)
+          # stop trying if page has a document id
+          return doc if item_ref(doc)
+
+          resp = Net::HTTP.get_response(uri)
+        end
+        raise Relaton::RequestError, "Could not parse the page #{uri}"
+      end
+
+      #
+      # Generate docnumber.
+      #
+      # @return [String] docnumber
+      #
+      def fetch_docnumber
+        pubid.to_s.match(/\d+/)&.to_s
+      end
+
+      #
+      # Parse structuredidentifier.
+      #
+      # @return [RelatonBib::StructuredIdentifier] structured identifier
+      #
+      def fetch_structuredidentifier # rubocop:disable Metrics/MethodLength
+        pnum = ProjectNumber.new content: File.basename(@url, ".*")
+        StructuredIdentifier.new(project_number: pnum, type: pubid.root.publisher)
+      end
+
+      #
+      # Parse ID from the document.
+      #
+      # @param [Nokogiri::HTML::Document] doc document to parse
+      #
+      # @return [String, nil] ID
+      #
+      def item_ref(doc)
+        ref = doc.at("//main//section/div/div/div//h1/span[1]")
+        @errors[:reference] &&= ref.nil?
+        ref&.text&.strip
+      end
+
+      # Fetch status.
+      # @return [RelatonBib::DocumentStatus]
+      def fetch_status
+        stg, sbstg = stage_code.split "."
+        stage = Bib::Status::Stage.new content: stg
+        substage = Bib::Status::Stage.new content: sbstg if sbstg
+        Bib::Status.new(stage: stage, substage: substage)
+      end
+
+      def stage_code
+        return @stage_code if defined?(@stage_code)
+
+        stc = @doc.at("//ul[@class='dropdown-menu']/li[@class='active']/a/span[@class='stage-code']")
+        @errors[:stage] &&= stc.nil?
+        @stage_code = stc&.text
+      end
+
+      # def stage(stg, substg)
+      #   abbr = STGABBR[stg].is_a?(Hash) ? STGABBR[stg][substg] : STGABBR[stg]
+      #   RelatonBib::DocumentStatus::Stage.new value: stg, abbreviation: abbr
+      # end
+
+      # Fetch relations.
+      # @return [Array<Hash>]
+      def fetch_relations
+        types = ["Now", "Now under review"]
+        rels = @doc.xpath(
+          "//ul[@class='steps']/li", "//div[contains(@class, 'sub-step')]"
+        ).reduce([]) do |a, r|
+          type, date = relation_type(r.at("h4", "h5").text.strip)
+          next a if types.include?(type)
+
+          a + create_relations(r, type, date)
+        end
+        @errors[:relation] &&= rels.empty?
+        rels
+      end
+
+      #
+      # Parse relation type and dates.
+      #
+      # @param [String] type parsed type
+      #
+      # @return [Array<String,Array>] type and dates
+      #
+      def relation_type(type)
+        date = []
+        t = case type.strip
+            when "Previously", "Will be replaced by" then "obsoletes"
+            when /Corrigenda|Amendments|Revised by|Now confirmed|replaced by/
+              at = @doc.xpath('//span[@class="stage-date"][contains(., "-")]').last
+              date << Bib::Date.new(type: "circulated", at: at.text) if at
+              "updates"
+            else type
+            end
+        [t, date]
+      end
+
+      #
+      # Create relations.
+      #
+      # @param [Nokogiri::HTML::Element] rel relation element
+      # @param [String] type relation type
+      # @param [Hash{Symbol=>String}] date relation document date
+      # @option date [String] :type date type
+      # @option date [String] :on date
+      #
+      # @return [Array<Hash>] Relations
+      #
+      def create_relations(rel, type, date)
+        rel.css("a").map do |rid|
+          docid = Docidentifier.new(type: "ISO", content: rid.text, primary: true)
+          bibitem = ItemData.new(docidentifier: [docid], formattedref: Bib::Formattedref.new(content: rid.text), date: date)
+          Relation.new type: type, bibitem: bibitem
+        end
+      end
+
+      # Fetch titles.
+      # @param doc [Nokogiri::HTML::Document]
+      # @param lang [String]
+      # @return [Array<RelatonBib::TypedTitleString>]
+      def fetch_title(doc, lang) # rubocop:disable Metrics/MethodLength,Metrics/AbcSize
+        types = %w[title-intro title-main title-part]
+        ttls = parse_titles(doc)
+        title = [] # RelatonBib::TypedTitleStringCollection.new
+        ttls.each.with_index do |p, i|
+          next unless p
+
+          title << Bib::Title.new(type: types[i], content: p, language: lang, script: script(lang))
+        end.compact
+        main = title.map(&:content).join " - "
+        title << Bib::Title.new(type: "main", content: main, language: lang, script: script(lang))
+      end
+
+      def parse_titles(doc)
+        # head = doc.at "//nav[contains(@class,'heading-condensed')]"
+        ttls = doc.xpath("//h1[@class='stdTitle']/span[position()>1]").map(&:text)
+        return ttls if @errors[:title] &&= ttls.empty?
+
+        ttls[0, 1] = ttls[0].split(/\s(?:-|\u2014)\s/) # if ttls.size == 1
+        case ttls.size
+        when 0, 1 then [nil, ttls.first, nil]
+        else intro_or_part ttls
+        end
+      end
+
+      # @param ttls [Array<String>]
+      # @return [Array<String, nil>]
+      def intro_or_part(ttls)
+        if /^(Part|Partie) \d+:/.match? ttls[1]
+          [nil, ttls[0], ttls[1..].join(" -- ")]
+        else
+          parts = ttls.slice(2..-1)
+          part = parts.join " -- " if parts.any?
+          [ttls[0], ttls[1], part]
+        end
+      end
+
+      # Return ISO script code.
+      # @param lang [String]
+      # @return [String]
+      def script(lang)
+        case lang
+        when "en", "fr" then "Latn"
+        when "ru" then "Cyrl"
+        end
+      end
+
+      # Fetch dates
+      # @return [Array<Hash>]
+      def fetch_dates # rubocop:disable Metrics/AbcSize,Metrics/MethodLength
+        dates = []
+        %r{^[^\s]+\s[\d-]+:(?<ref_date_str>\d{4})} =~ id
+        pub_date_str = @doc.at("//span[@itemprop='releaseDate']")
+        @errors[:date_pub] &&= pub_date_str.nil?
+        if ref_date_str
+          dates += parse_date_from_id ref_date_str, pub_date_str
+        elsif pub_date_str
+          dates << Bib::Date.new(type: "published", at: pub_date_str.text)
+        end
+        corr_data = @doc.at "//span[@itemprop='dateModified']"
+        @errors[:date_corr] &&= corr_data.nil?
+        dates << Bib::Date.new(type: "corrected", at: corr_data.text) if corr_data
+        dates
+      end
+
+      def parse_date_from_id(ref_date_str, pub_date_str) # rubocop:disable Metrics/AbcSize,Metrics/MethodLength
+        dates = []
+        ref_date = ::Date.strptime ref_date_str, "%Y"
+        if pub_date_str.nil?
+          dates << Bib::Date.new(type: "published", at: ref_date_str)
+        else
+          pub_date = ::Date.strptime pub_date_str.text, "%Y"
+          if pub_date.year > ref_date.year
+            dates << Bib::Date.new(type: "published", at: ref_date_str)
+            dates << Bib::Date.new(type: "updated", at: pub_date_str.text)
+          else
+            dates << Bib::Date.new(type: "published", at: pub_date_str.text)
+          end
+        end
+        dates
+      end
+
+      def fetch_contributors # rubocop:disable Metrics/AbcSize,Metrics/MethodLength
+        id.sub(/\s.*/, "").split("/").reduce([]) do |mem, abbrev|
+          publisher = PUBLISHERS[abbrev]
+          next mem unless publisher
+
+          role = Bib::Contributor::Role.new(type: "publisher")
+          publisher[:abbreviation] = abbrev
+          name = Bib::TypedLocalizedString.new content: publisher[:name]
+          abbrev = Bib::LocalizedString.new content: publisher[:abbreviation] if publisher[:abbreviation]
+          uri = Bib::Uri.new(content: publisher[:uri]) if publisher[:uri]
+          org = Bib::Organization.new(name: [name], abbreviation: abbrev, uri: [uri])
+          mem << Bib::Contributor.new(organization: org, role: [role])
+        end
+      end
+
+      # Fetch ICS.
+      # @return [Array<Hash>]
+      def fetch_ics
+        ics = @doc.xpath("//div[contains(., 'ICS')]/following-sibling::span/a").map do |i|
+          code = i.text.match(/[\d.]+/).to_s # .split "."
+          # { field: code[0], group: code[1], subgroup: code[2] }
+          isoics = Isoics.fetch code
+          Bib::ICS.new code: code, text: isoics.description
+        end
+        @errors[:ics] &&= ics.empty?
+        ics
+      end
+
+      #
+      # Fetch source.
+      #
+      # @param url [String] document url
+      #
+      # @return [Array<Hash>]
+      #
+      def fetch_source(url) # rubocop:disable Metrics/AbcSize,Metrics/CyclomaticComplexity,Metrics/MethodLength
+        source = [Bib::Uri.new(type: "src", content: url)]
+        obp = @doc.at("//a[.='Read sample']")
+        @errors[:link_obp] &&= obp.nil?
+        source << Bib::Uri.new(type: "obp", content: obp[:href]) if obp
+        rss = @doc.at("//a[contains(@href, 'rss')]")
+        @errors[:link_rss] &&= rss.nil?
+        source << Bib::Uri.new(type: "rss", content: DOMAIN + rss[:href]) if rss
+        pub = @doc.at "//p[contains(., 'publicly available')]/a",
+                      "//p[contains(., 'can be downloaded from the')]/a"
+        @errors[:link_pub] &&= pub.nil?
+        source << Bib::Uri.new(type: "pub", content: pub[:href]) if pub
+        source
+      end
+
+      # Fetch copyright.
+      # @return [Array<Hash>]
+      def fetch_copyright # rubocop:disable Metrics/MethodLength,Metrics/AbcSize
+        ref = item_ref @doc
+        owner_name = ref.match(/.*?(?=\s)/).to_s
+        from = ref.match(/(?<=:)\d{4}/).to_s
+        if from.empty?
+          date = @doc.at(
+            "//span[@itemprop='releaseDate']",
+            "//ul[@id='stages']/li[contains(@class,'active')]/ul/li[@class='active']/a/span[@class='stage-date']",
+          )
+          from = date.text.match(/\d{4}/).to_s
+        end
+        name = Bib::TypedLocalizedString.new content: owner_name
+        org = Bib::Organization.new name: [name]
+        contrib = Bib::ContributionInfo.new organization: org
+        [Bib::Copyright.new(owner: [contrib], from: from)]
+      end
+
+      def parse_ext
+        Ext.new(
+          doctype: fetch_type,
+          flavor: "iso",
+          ics: fetch_ics,
+          structuredidentifier: fetch_structuredidentifier,
+          stagename: nil,
+          updates_document_type: nil,
+          fast_track: nil,
+          price_code: nil,
+        )
+      end
+
+      # Fetch type.
+      # @return [String]
+      def fetch_type
+        %r{
+          ^(?<prefix>ISO|IWA|IEC)
+          (?:(?:/CIE|/IEC|/IEEE|/PRF|/NP|/SAE|/HL7|/DGuide)*\s|/)
+          (?<type>TS|TR|PAS|AWI|CD|FDIS|NP|DIS|WD|R|DTS|DTR|ISP|PWI|Guide|(?=\d+))
+        }x =~ id
+        type = TYPES[type] || TYPES[prefix] || "international-standard"
+        Doctype.new(content: type)
+      end
+
+      #
+      # Fetch editorialgroup as a contributor with subdivision.
+      #
+      # @return [Relaton::Bib::Contributor, nil]
+      #
+      def fetch_editorialgroup_contributor # rubocop:disable Metrics/AbcSize,Metrics/CyclomaticComplexity,Metrics/MethodLength,Metrics/PerceivedComplexity
+        wg = @doc.at(
+          "//div[contains(., 'Technical Committe')]" \
+          "/following-sibling::span/a",
+        )
+        @errors[:editorialgroup] &&= wg.nil?
+        return unless wg
+
+        workgroup = wg.text.split "/"
+        prefix = workgroup[0]
+        type = workgroup[1]&.match(/^[A-Z]+/)&.to_s || "TC"
+        tc_name = wg[:title]
+
+        publisher = PUBLISHERS[prefix]
+        name = if publisher
+                 [Bib::TypedLocalizedString.new(content: publisher[:name])]
+               elsif prefix
+                 [Bib::TypedLocalizedString.new(content: prefix)]
+               else
+                 []
+               end
+        abbreviation = if prefix
+                         Bib::LocalizedString.new(content: prefix)
+                       end
+
+        subdivision = Bib::Subdivision.new(
+          type: "technical-committee",
+          subtype: type,
+          name: [Bib::TypedLocalizedString.new(content: tc_name)],
+          identifier: [Bib::OrganizationType::Identifier.new(
+            content: wg.text,
+          )],
+        )
+
+        role = Bib::Contributor::Role.new(
+          type: "author",
+          description: [Bib::LocalizedMarkedUpString.new(content: "committee")],
+        )
+
+        Bib::Contributor.new(
+          role: [role],
+          organization: Bib::Organization.new(
+            name: name, subdivision: [subdivision], abbreviation: abbreviation,
+          ),
+        )
+      end
+    end
+  end
+end

data/lib/relaton/iso/type/pubid.rb

@@ -0,0 +1,50 @@
+module Relaton
+  module Iso
+    module Type
+      # Lutaml-model attribute type that preserves `Pubid::Iso::Identifier`
+      # instances on the way in and stringifies them on the way out.
+      #
+      # The default `:string` type calls `.to_s` during `cast`, which loses the
+      # parsed structure and forces `Docidentifier#content=` to re-parse the
+      # human-readable form. That round-trip can render dual-type strings
+      # (e.g. `"ISO/IS TR 17"` from a TR pubid with stage 60.60) that the
+      # pubid-iso parslet grammar can't capture cleanly, producing
+      # `Duplicate subtrees while merging result of ROOT` warnings.
+      class Pubid < Lutaml::Model::Type::Value
+        def self.cast(value, _options = {})
+          return nil if value.nil?
+          return value if Lutaml::Model::Utils.uninitialized?(value)
+
+          value
+        end
+
+        def self.serialize(value)
+          return nil if value.nil?
+          return value if Lutaml::Model::Utils.uninitialized?(value)
+
+          value.to_s
+        end
+
+        def to_s
+          value.to_s
+        end
+
+        def to_yaml
+          value.to_s
+        end
+
+        def to_xml
+          value.to_s
+        end
+
+        def to_json(*_args)
+          value.to_s
+        end
+
+        def self.default_xsd_type
+          "xs:string"
+        end
+      end
+    end
+  end
+end

data/lib/relaton/iso/util.rb

@@ -0,0 +1,8 @@
+module Relaton
+  module Iso
+    module Util
+      extend Relaton::Bib::Util
+      PROGNAME = "relaton-iso".freeze
+    end
+  end
+end