metanorma-iso 3.1.3 → 3.1.5

data/lib/isodoc/iso/presentation_section.rb

@@ -84,7 +84,8 @@ module IsoDoc
         super
       end
 
-      def middle_title(docxml)
+      # KILL
+      def middle_titlex(docxml)
         @meta.get[:doctitlemain].nil? || @meta.get[:doctitlemain].empty? and
           return
         s = docxml.at(ns("//sections")) or return
@@ -92,7 +93,8 @@ module IsoDoc
         s.add_first_child ret
       end
 
-      def middle_title_main
+      # KILL
+      def middle_title_mainx
         ret = "<span class='boldtitle'>#{@meta.get[:doctitleintro]}"
         @meta.get[:doctitleintro] && @meta.get[:doctitlemain] and
           ret += " &#x2014; "
@@ -104,7 +106,17 @@ module IsoDoc
         "<p class='zzSTDTitle1'>#{ret}</p>"
       end
 
-      def middle_title_part
+      def middle_title_main
+        <<~OUTPUT
+          <p class='zzSTDTitle1'><span class='boldtitle'>{{ doctitleintro -}}
+          {% if doctitleintro and doctitlemain %} &#x2014; {% endif %}{{ doctitlemain -}}
+          {% if doctitlemain %}{% if doctitlepart or doctitlecomplementary %} &#x2014; {% endif %}{% endif -%}
+          </span>#{middle_title_part}</p>
+        OUTPUT
+      end
+
+      # KILL
+      def middle_title_partx
         ret = ""
         if a = @meta.get[:doctitlecomplementary]
           ret += "<span class='boldtitle'>#{a}</span>"
@@ -116,7 +128,17 @@ module IsoDoc
         ret
       end
 
-      def middle_title_amd
+      def middle_title_part
+        <<~OUTPUT.strip
+          {% if doctitlecomplementary %}<span class='boldtitle'>{{ doctitlecomplementary }}</span>
+          {% elsif doctitlepart -%}
+            {% if doctitlepartlabel %}<span class='nonboldtitle'>{{ doctitlepartlabel }}:</span>{% endif -%}
+          <span class='boldtitle'>{{ doctitlepart }}</span>{% endif %}
+        OUTPUT
+      end
+
+      # KILL
+      def middle_title_amdx
         ret = ""
         if a = @meta.get[:doctitleamdlabel]
           ret += "<p class='zzSTDTitle2'>#{a}"
@@ -128,6 +150,19 @@ module IsoDoc
         ret
       end
 
+      def middle_title_amd
+        <<~OUTPUT
+          {% if doctitleamdlabel %}<p class='zzSTDTitle2'>{{ doctitleamdlabel -}}
+            {% if doctitleamd %}: {{doctitleamd}}{% endif -%}
+            </p>{% endif %}
+          {% if doctitlecorrlabel %}<p class='zzSTDTitle2'>{{ doctitlecorrlabel }}</p>{% endif %}
+        OUTPUT
+      end
+
+      def middle_title_template
+        middle_title_main + middle_title_amd
+      end
+
       def move_norm_ref_to_sections(docxml)
         amd?(docxml) or super
       end

data/lib/isodoc/iso/word_cleanup.rb

@@ -123,7 +123,9 @@ module IsoDoc
 
       def authority_copyright_style(auth)
         auth.xpath(".//p[not(@class)]").each { |p| p["class"] = "zzCopyright" }
-        auth.xpath(".//p[@class = 'Tablebody']").each { |p| p["class"] = "zzCopyright" }
+        auth.xpath(".//p[@class = 'Tablebody']").each do |p|
+          p["class"] = "zzCopyright"
+        end
         auth.xpath(".//p[@id = 'boilerplate-message']").each do |p|
           p["class"] = "zzCopyright1"
         end
@@ -163,14 +165,27 @@ module IsoDoc
         toc = ""
         s = docxml.at("//div[@class = 'TOC']") and toc = to_xml(s.children)
         xpath = (1..level).each.map { |i| "//h#{i}" }.join (" | ")
+        annexid = 0
         docxml.xpath(xpath).each do |h|
           x = ""
-          x = @anchor[h.parent["id"]][:xref] if h["class"] == "ANNEX"
+          if %w(ANNEX Annex).include?(h["class"])
+            x, annexid = annex_toc(annexid)
+          end
           toc += word_toc_entry(h.name[1].to_i, x + header_strip(h))
         end
         toc.sub(/(<p class="MsoToc1">)/,
                 %{\\1#{word_toc_preface(level)}}) + WORD_TOC_SUFFIX1
       end
+
+      # do not use in IEC, BSI, where Word does not use list to generate
+      # "Annex A"
+      def annex_toc(annexid)
+        instance_of?(IsoDoc::Iso::WordConvert) ||
+          instance_of?(WordDISConvert) or return ""
+        annexid += 1
+        x = "#{@i18n.annex} #{('@'.ord + annexid).chr} "
+        [x, annexid]
+      end
     end
   end
 end

data/lib/metanorma/iso/front.rb

@@ -71,56 +71,18 @@ module Metanorma
         @log.add("Document Attributes", nil, err)
       end
 
-      def title_component(node, xml, lang, attr, comp)
+      def title_component(node, xml, lang, comp)
         t = node.attr("title-#{comp[:name]}-#{lang}") or return
-        xml.title(**attr_code(attr.merge(type: "title-#{comp[:abbr]}"))) do |t1|
-          t1 << Metanorma::Utils::asciidoc_sub(t)
-        end
+        add_title_xml(xml, t, lang, "title-#{comp[:abbr]}")
       end
 
-      def title_intro(node, xml, lang, at)
-        t = node.attr("title-intro-#{lang}") or return
-        xml.title(**attr_code(at.merge(type: "title-intro"))) do |t1|
-          t1 << Metanorma::Utils::asciidoc_sub(t)
-        end
-      end
-
-      def title_main(node, xml, lang, at)
-        xml.title **attr_code(at.merge(type: "title-main")) do |t1|
-          t1 << Metanorma::Utils::asciidoc_sub(node.attr("title-main-#{lang}"))
-        end
-      end
-
-      def title_part(node, xml, lang, at)
-        t = node.attr("title-part-#{lang}") or return
-        xml.title(**attr_code(at.merge(type: "title-part"))) do |t1|
-          t1 << Metanorma::Utils::asciidoc_sub(t)
-        end
-      end
-
-      def title_amd(node, xml, lang, at)
-        t = node.attr("title-amendment-#{lang}") or return
-        xml.title(**attr_code(at.merge(type: "title-amd"))) do |t1|
-          t1 << Metanorma::Utils::asciidoc_sub(t)
-        end
-      end
-
-      def title_add(node, xml, lang, at)
-        t = node.attr("title-addendum-#{lang}") or return
-        xml.title(**attr_code(at.merge(type: "title-add"))) do |t1|
-          t1 << Metanorma::Utils::asciidoc_sub(t)
-        end
-      end
-
-      def title_full(node, xml, lang, at)
+      def title_full(node, xml, lang)
         title, intro, part, amd, add = title_full_prep(node, lang)
         title = "#{intro} -- #{title}" if intro
         title = "#{title} -- #{part}" if part
         title = "#{title} -- #{amd}" if amd
         title = "#{title} -- #{add}" if add
-        xml.title **attr_code(at.merge(type: "main")) do |t1|
-          t1 << Metanorma::Utils::asciidoc_sub(title)
-        end
+        add_title_xml(xml, title, lang, "main")
       end
 
       def title_full_prep(node, lang)
@@ -136,20 +98,19 @@ module Metanorma
 
       def title(node, xml)
         %w(en ru fr).each do |lang|
-          at = { language: lang, format: "text/plain" }
-          title1(node, xml, lang, at)
+          title1(node, xml, lang)
         end
       end
 
-      def title1(node, xml, lang, at)
-        title_full(node, xml, lang, at)
+      def title1(node, xml, lang)
+        title_full(node, xml, lang)
         %w(intro main part complementary).each do |w|
-          title_component(node, xml, lang, at, { name: w, abbr: w })
+          title_component(node, xml, lang, { name: w, abbr: w })
         end
-        @amd and title_component(node, xml, lang, at,
+        @amd and title_component(node, xml, lang,
                                  { name: "amendment", abbr: "amd" })
         node.attr("addendum-number") and
-          title_component(node, xml, lang, at,
+          title_component(node, xml, lang,
                           { name: "addendum", abbr: "add" })
       end
 

data/lib/metanorma/iso/front_contributor.rb

@@ -12,14 +12,12 @@ module Metanorma
       end
 
       def metadata_author(node, xml)
-        org_contributor(node, xml,
-                        { source: ["publisher", "pub"], role: "author",
-                          default: default_publisher })
-        committee_contributors(node, xml, default_publisher,
-                               { approval: false })
+        super
         secretariat_contributor(node, xml, default_publisher)
       end
 
+      def personal_author(node, xml); end
+
       def org_organization(node, xml, org)
         if org[:committee]
           contrib_committee_build(xml, org[:agency], org)

data/lib/metanorma/iso/isodoc.rng

@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <grammar xmlns:a="http://relaxng.org/ns/compatibility/annotations/1.0" xmlns="http://relaxng.org/ns/structure/1.0" datatypeLibrary="http://www.w3.org/2001/XMLSchema-datatypes">
-<!-- VERSION v2.1.1 -->
+<!-- VERSION v2.1.3 -->
 
   <!--
     ALERT: cannot have root comments, because of https://github.com/metanorma/metanorma/issues/437
@@ -123,6 +123,10 @@ the type attribute defaults to `review` for reviews</a:documentation>
           <a:documentation>Notes whose scope is the current block</a:documentation>
         </ref>
       </zeroOrMore>
+      <ref name="BlockSource">
+        <a:documentation>Bibliographic source for the information in the list.
+Sources are currently only rendered in metanorma-plateau</a:documentation>
+      </ref>
     </define>
     <define name="OlBody">
       <optional>
@@ -140,6 +144,10 @@ the type attribute defaults to `review` for reviews</a:documentation>
           <a:documentation>Notes whose scope is the current block</a:documentation>
         </ref>
       </zeroOrMore>
+      <ref name="BlockSource">
+        <a:documentation>Bibliographic source for the information in the list.
+Sources are currently only rendered in metanorma-plateau</a:documentation>
+      </ref>
     </define>
     <define name="OlAttributes">
       <a:documentation>NOTE: `start` attribute is not included by default, because of problems it raises with DOC output</a:documentation>
@@ -188,6 +196,10 @@ the type attribute defaults to `review` for reviews</a:documentation>
           <a:documentation>Notes whose scope is the current block</a:documentation>
         </ref>
       </zeroOrMore>
+      <ref name="BlockSource">
+        <a:documentation>Bibliographic source for the information in the list.
+Sources are currently only rendered in metanorma-plateau</a:documentation>
+      </ref>
     </define>
     <define name="dt">
       <element name="dt">
@@ -443,14 +455,7 @@ normative or informative references, some split references into sections organiz
           </ref>
         </zeroOrMore>
         <zeroOrMore>
-          <ref name="doc_bibitem">
-            <a:documentation>Bibliographic item cited in the document</a:documentation>
-          </ref>
-          <zeroOrMore>
-            <ref name="note">
-              <a:documentation>Annotation of the bibliographic item</a:documentation>
-            </ref>
-          </zeroOrMore>
+          <ref name="ReferenceEntry"/>
         </zeroOrMore>
         <zeroOrMore>
           <ref name="references">
@@ -592,18 +597,21 @@ gives an explicit page orientation</a:documentation>
         </element>
       </optional>
     </define>
-  </include>
-  <!-- end overrides -->
-  <define name="FnAttributes" combine="interleave">
-    <ref name="RequiredId"/>
-    <optional>
-      <attribute name="hiddenref">
-        <a:documentation>If true, number the footnote as normal, but suppress display of the footnote reference in the document body.
+    <define name="FnAttributes">
+      <ref name="RequiredId"/>
+      <optional>
+        <attribute name="hiddenref">
+          <a:documentation>If true, number the footnote as normal, but suppress display of the footnote reference in the document body.
 This is done if the footnote reference is already presented in some other form, e.g. within a figure image.</a:documentation>
-        <data type="boolean"/>
+          <data type="boolean"/>
+        </attribute>
+      </optional>
+      <attribute name="reference">
+        <a:documentation>The number of the footnote, used to identify it visually</a:documentation>
       </attribute>
-    </optional>
-  </define>
+    </define>
+  </include>
+  <!-- end overrides -->
   <define name="TdAttributes" combine="interleave">
     <ref name="RequiredId"/>
     <optional>
@@ -841,6 +849,17 @@ titlecase, or lowercase</a:documentation>
       <value>informative</value>
     </choice>
   </define>
+  <define name="ReferenceEntry">
+    <a:documentation>Entry in bibliography</a:documentation>
+    <ref name="doc_bibitem">
+      <a:documentation>Bibliographic item cited in the document</a:documentation>
+    </ref>
+    <zeroOrMore>
+      <ref name="note">
+        <a:documentation>Annotation of the bibliographic item</a:documentation>
+      </ref>
+    </zeroOrMore>
+  </define>
   <define name="doc_bibitem">
     <a:documentation>Standardisation document representation of bibliographic entry</a:documentation>
     <element name="bibitem">
@@ -871,6 +890,12 @@ titlecase, or lowercase</a:documentation>
       </oneOrMore>
     </element>
   </define>
+  <define name="ParagraphFnBody" combine="interleave">
+    <ref name="BlockSource">
+      <a:documentation>Bibliographic source for the information in the paragraph
+parargaph sources are currently only rendered in metanorma-plateau</a:documentation>
+    </ref>
+  </define>
   <define name="BasicBlock" combine="choice">
     <ref name="columnbreak"/>
   </define>

data/lib/metanorma/iso/validate.rb

@@ -1,10 +1,11 @@
 require "metanorma-standoc"
 require_relative "validate_style"
+require_relative "validate_numeric"
 require_relative "validate_requirements"
 require_relative "validate_section"
 require_relative "validate_title"
-require_relative "validate_image"
 require_relative "validate_list"
+require_relative "validate_xref"
 require "nokogiri"
 require "jing"
 require "iev"
@@ -29,127 +30,10 @@ module Metanorma
         end
       end
 
-      # ISO/IEC DIR 2, 15.5.3, 20.2
-      # does not deal with preceding text marked up
-      def see_xrefs_validate(root)
-        @lang == "en" or return
-        anchors = extract_anchor_norm(root)
-        root.xpath("//xref").each do |t|
-          preceding = t.at("./preceding-sibling::text()[last()]")
-          !preceding.nil? &&
-            /\b(see| refer to)\p{Zs}*\Z/mi.match(preceding) or next
-          anchors[t["target"]] and
-            @log.add("Style", t,
-                     "'see #{t['target']}' is pointing to a normative section")
-        end
-      end
-
-      def extract_anchor_norm(root)
-        nodes = root.xpath("//annex[@obligation = 'normative'] | " \
-          "//references[@obligation = 'normative']")
-        ret = nodes.each_with_object({}) do |n, m|
-          n["anchor"] and m[n["anchor"]] = true
-        end
-        nodes.each do |n|
-          n.xpath(".//*[@anchor]").each { |n1| ret[n1["anchor"]] = true }
-        end
-        ret
-      end
-
-      # ISO/IEC DIR 2, 15.5.3
-      def see_erefs_validate(root)
-        @lang == "en" or return
-        bibitemids = extract_bibitem_anchors(root)
-        root.xpath("//eref").each do |t|
-          prec = t.at("./preceding-sibling::text()[last()]")
-          !prec.nil? && /\b(see|refer to)\p{Zs}*\Z/mi.match(prec) or next
-          unless target = bibitemids[t["bibitemid"]]
-            # unless target = root.at("//bibitem[@anchor = '#{t['bibitemid']}']")
-            @log.add("Bibliography", t,
-                     "'#{t} is not pointing to a real reference")
-            next
-          end
-          target[:norm] and
-            @log.add("Style", t,
-                     "'see #{t}' is pointing to a normative reference")
-        end
-      end
-
-      def extract_bibitem_anchors(root)
-        ret = root.xpath("//references[@normative = 'true']//bibitem")
-          .each_with_object({}) do |b, m|
-          m[b["anchor"]] = { bib: b, norm: true }
-        end
-        root.xpath("//references[not(@normative = 'true')]//bibitem")
-          .each do |b|
-          ret[b["anchor"]] = { bib: b, norm: false }
-        end
-        ret
-      end
-
-      # ISO/IEC DIR 2, 10.4
-      def locality_erefs_validate(root)
-        root.xpath("//eref[descendant::locality]").each do |t|
-          if /^(ISO|IEC)/.match?(t["citeas"]) &&
-              !/: ?(\d+{4}|–)$/.match?(t["citeas"])
-            @log.add("Style", t,
-                     "undated reference #{t['citeas']} should not contain " \
-                     "specific elements")
-          end
-        end
-      end
-
       def termdef_warn(text, regex, elem, term, msg)
         regex.match(text) && @log.add("Style", elem, "#{term}: #{msg}")
       end
 
-      # https://www.iso.org/ISO-house-style.html#iso-hs-s-text-r-r-ref_clause3
-      def term_xrefs_validate(xmldoc)
-        termids = xmldoc
-          .xpath("//sections/terms | //sections/clause[.//terms] | " \
-                 "//annex[.//terms]").each_with_object({}) do |t, m|
-          t.xpath(".//*/@anchor").each { |a| m[a.text] = true }
-          t.xpath(".//*/@id").each { |a| m[a.text] = true }
-          t.name == "terms" and m[t["anchor"] || t["id"]] = true
-        end
-        xmldoc.xpath(".//xref").each do |x|
-          term_xrefs_validate1(x, termids)
-        end
-      end
-
-      def term_xrefs_validate1(xref, termids)
-        closest_id = xref.xpath("./ancestor::*[@id]")&.last or return
-        termids[xref["target"]] && !termids[closest_id["id"]] and
-          @log.add("Style", xref,
-                   "only terms clauses can cross-reference terms clause " \
-                   "(#{xref['target']})")
-        !termids[xref["target"]] && termids[closest_id["id"]] and
-          @log.add("Style", xref,
-                   "non-terms clauses cannot cross-reference terms clause " \
-                   "(#{xref['target']})")
-      end
-
-      # require that all assets of a particular type be cross-referenced
-      # within the document
-      def xrefs_mandate_validate(xmldoc)
-        xrefs_mandate_validate1(xmldoc, "//annex", "Annex")
-        xrefs_mandate_validate1(xmldoc, "//table", "Table")
-        xrefs_mandate_validate1(xmldoc, "//figure", "Figure")
-        xrefs_mandate_validate1(xmldoc, "//formula", "Formula")
-      end
-
-      def xrefs_mandate_validate1(xmldoc, xpath, name)
-        exc = %w(table note example figure).map { |x| "//#{x}#{xpath}" }
-          .join(" | ")
-        (xmldoc.xpath(xpath) - xmldoc.xpath(exc)).each do |x|
-          x["unnumbered"] == "true" and next
-          @doc_xrefs[x["anchor"]] or
-            @log.add("Style", x, "#{name} #{x['anchor']} has not been " \
-                                 "cross-referenced within document",
-                     severity: xpath == "//formula" ? 2 : 1)
-        end
-      end
-
       # ISO/IEC DIR 2, 16.5.6
       def termdef_style(xmldoc)
         xmldoc.xpath("//term").each do |t|
@@ -185,6 +69,22 @@ module Metanorma
         iteration_validate(doc)
       end
 
+      # DRG directives 3.7; but anticipated by standoc
+      def subfigure_validate(xmldoc)
+        elems = { footnote: "fn", note: "note", key: "dl" }
+        xmldoc.xpath("//figure//figure").each do |f|
+          elems.each do |k, v|
+            f.xpath(".//#{v}").each do |n|
+              @log.add("Style", n, "#{k} is not permitted in a subfigure")
+            end
+          end
+        end
+      end
+
+      def figure_validate(xmldoc)
+        subfigure_validate(xmldoc)
+      end
+
       def content_validate(doc)
         super
         root = doc.root
@@ -203,14 +103,6 @@ module Metanorma
         list_punctuation(doc)
       end
 
-      def iso_xref_validate(doc)
-        see_xrefs_validate(doc)
-        term_xrefs_validate(doc)
-        xrefs_mandate_validate(doc)
-        see_erefs_validate(doc)
-        locality_erefs_validate(doc)
-      end
-
       def bibitem_validate(xmldoc)
         xmldoc.xpath("//bibitem[date/on = '–']").each do |b|
           b.at("./note[@type = 'Unpublished-Status']") or

data/lib/metanorma/iso/validate_numeric.rb

@@ -0,0 +1,128 @@
+module Metanorma
+  module Iso
+    class Converter < Standoc::Converter
+      # https://www.iso.org/ISO-house-style.html#iso-hs-s-text-r-s-quantity
+      def style_subscript(node)
+        style_subscript_proper(node)
+        style_subscript_mathml(node)
+      end
+
+      # Check HTML subscripts - only topmost level subs (no sub ancestors)
+      def style_subscript_proper(node)
+        node.xpath(".//sub[not(ancestor::sub)]").each do |x|
+          depth = calculate_subscript_depth(x)
+          depth < 2 and next # No warning for single level subscripts
+          if [2, 3].include?(depth)
+            style_warning(node, "may contain nested subscripts", x.to_xml)
+          else # depth >= 3
+            style_warning(node, "no more than 3 levels of subscript nesting allowed",
+                          x.to_xml)
+          end
+        end
+      end
+
+      # Check MathML subscripts - only topmost level msubs (no msub ancestors)
+      def style_subscript_mathml(node)
+        node.xpath(".//m:msub[not(ancestor::m:msub)]",
+                   "m" => MATHML_NS).each do |x|
+          depth = calculate_mathml_subscript_depth(x)
+          depth < 2 and next # No warning for single level subscripts
+          if [2, 3].include?(depth)
+            style_warning(node, "may contain nested subscripts", x.to_xml)
+          else # depth > 3
+            style_warning(node, "no more than 3 levels of subscript nesting allowed",
+                          x.to_xml)
+          end
+        end
+      end
+
+      # ISO/IEC DIR 2, 9.1
+      # ISO/IEC DIR 2, Table B.1
+      # https://www.iso.org/ISO-house-style.html#iso-hs-s-text-r-n-numbers
+      def style_number(node, text)
+        style_number_grouping(node, text)
+        style_regex(/(?:^|\p{Zs})(?<num>[0-9]+\.[0-9]+)(?!\.[0-9])/i,
+                    "possible decimal point: mark up numbers with stem:[]", node, text)
+        @lang == "en" and style_regex(/\b(?<num>billions?)\b/i,
+                                      "ambiguous number", node, text)
+        style_regex(/(?:^|\p{Zs})(?<num>-[0-9][0-9,.]*)/i,
+                    "hyphen instead of minus sign U+2212", node, text)
+        @novalid_number = true
+      end
+
+      def style_number_grouping(node, text)
+        if @validate_years
+          style_two_regex_not_prev(
+            node, text, /^(?<num>-?[0-9]{4,}[,0-9]*)\Z/,
+            %r{\b(ISO|IEC|IEEE|(in|January|February|March|April|May|June|August|September|October|November|December)\b)\Z},
+            "number not broken up in threes: mark up numbers with stem:[]"
+          )
+        else
+          style_two_regex_not_prev(
+            node, text, /^(?<num>-?(?:[0-9]{5,}[,0-9]*|[03-9]\d\d\d|1[0-8]\d\d|2[1-9]\d\d|20[5-9]\d))\Z/,
+            %r{\b(ISO|IEC|IEEE|\b)\Z},
+            "number not broken up in threes: mark up numbers with stem:[]"
+          )
+        end
+      end
+
+      # ISO/IEC DIR 2, 9.2.1
+      def style_percent(node, text)
+        style_regex(/\b(?<num>[0-9.,]+%)/,
+                    "no space before percent sign", node, text)
+        style_regex(/\b(?<num>[0-9.,]+ \u00b1 [0-9,.]+ %)/,
+                    "unbracketed tolerance before percent sign", node, text)
+      end
+
+      # leaving out as problematic: N J K C S T H h d B o E
+      SI_UNIT = "(m|cm|mm|km|μm|nm|g|kg|mgmol|cd|rad|sr|Hz|Hz|MHz|Pa|hPa|kJ|" \
+                "V|kV|W|MW|kW|F|μF|Ω|Wb|°C|lm|lx|Bq|Gy|Sv|kat|l|t|eV|u|Np|Bd|" \
+                "bit|kB|MB|Hart|nat|Sh|var)".freeze
+
+      # ISO/IEC DIR 2, 9.3
+      def style_units(node, text)
+        style_regex(/\b(?<num>[0-9][0-9,]*\p{Zs}+[\u00b0\u2032\u2033])/,
+                    "space between number and degrees/minutes/seconds",
+                    node, text)
+        style_regex(/\b(?<num>[0-9][0-9,]*#{SI_UNIT})\b/o,
+                    "no space between number and SI unit", node, text)
+        style_non_std_units(node, text)
+      end
+
+      NONSTD_UNITS = {
+        sec: "s", mins: "min", hrs: "h", hr: "h", cc: "cm^3",
+        lit: "l", amp: "A", amps: "A", rpm: "r/min"
+      }.freeze
+
+      # ISO/IEC DIR 2, 9.3
+      def style_non_std_units(node, text)
+        NONSTD_UNITS.each do |k, v|
+          style_regex(/\b(?<num>[0-9][0-9,]*\p{Zs}+#{k})\b/,
+                      "non-standard unit (should be #{v})", node, text)
+        end
+      end
+
+      private
+
+      def calculate_subscript_depth(sub_element)
+        sub_element.xpath(".//sub").empty? and return 1
+        max_depth = 1
+        sub_element.xpath(".//sub").each do |nested_sub|
+          depth = 1 + calculate_subscript_depth(nested_sub)
+          max_depth = [max_depth, depth].max
+        end
+        max_depth
+      end
+
+      def calculate_mathml_subscript_depth(msub_element)
+        msub_element.xpath(".//m:msub", "m" => MATHML_NS).empty? and return 1
+        max_depth = 1
+        msub_element.xpath(".//m:msub", "m" => MATHML_NS).each do |nested_msub|
+          depth = 1 + calculate_mathml_subscript_depth(nested_msub)
+          max_depth = [max_depth, depth].max
+        end
+        max_depth
+      end
+    end
+  end
+end