metanorma-iec 0.0.1

data/lib/isodoc/iec/html_convert.rb

@@ -0,0 +1,33 @@
+require "isodoc"
+require "metanorma-iso"
+require_relative "base_convert"
+
+module IsoDoc
+  module Iec
+    class HtmlConvert < IsoDoc::Iso::HtmlConvert
+      def initialize(options)
+        super
+        @libdir = File.dirname(__FILE__)
+      end
+
+      def default_file_locations(options)
+        @libdir = File.dirname(__FILE__)
+        {
+          htmlstylesheet: html_doc_path("htmlstyle.scss"),
+          htmlcoverpage: html_doc_path("html_iec_titlepage.html"),
+          htmlintropage: html_doc_path("html_iec_intro.html"),
+          scripts: html_doc_path("scripts.html"),
+        }
+      end
+
+      def htmlstyle(docxml)
+        docxml = super
+        b = docxml.at("div[@class = 'boilerplate_legal']/ol")
+        b and b["type"] = "1"
+        docxml
+      end
+
+      include BaseConvert
+    end
+  end
+end

data/lib/isodoc/iec/i18n-en.yaml

@@ -0,0 +1,3 @@
+introduction: INTRODUCTION
+foreword: FOREWORD
+IEC: INTERNATIONAL ELECTROTECHNICAL COMMISSION

data/lib/isodoc/iec/i18n-fr.yaml

@@ -0,0 +1,3 @@
+introduction: INTRODUCTION
+foreword: AVANT-PROPOS
+IEC: COMMISSION ELECTROTECHNIQUE INTERNATIONALE

data/lib/isodoc/iec/i18n-zh-Hans.yaml

@@ -0,0 +1,3 @@
+introduction: 引言
+foreword: 前言
+IEC: 国际电工委员会

data/lib/isodoc/iec/metadata.rb

@@ -0,0 +1,20 @@
+require "isodoc"
+require "metanorma-iso"
+  
+module IsoDoc
+  module Iec
+    class  Metadata < IsoDoc::Iso::Metadata
+      STAGE_ABBRS = {
+        "00": "PWI",
+        "10": "NWIP",
+        "20": "WD",
+        "30": "CD",
+        "40": "CDV",
+        "50": "FDIS",
+        "60": "IS",
+        "90": "(Review)",
+        "95": "(Withdrawal)",
+      }.freeze
+    end
+  end
+end

data/lib/isodoc/iec/word_convert.rb

@@ -0,0 +1,165 @@
+require "isodoc"
+require "metanorma-iso"
+require_relative "base_convert"
+
+module IsoDoc
+  module Iec
+    class WordConvert < IsoDoc::Iso::WordConvert
+      def initialize(options)
+        super
+        @libdir = File.dirname(__FILE__)
+      end
+
+      def default_fonts(options)
+        {
+          bodyfont: (options[:script] == "Hans" ? '"SimSun",serif' : '"Arial",sans-serif'),
+          headerfont: (options[:script] == "Hans" ? '"SimHei",sans-serif' : '"Arial",sans-serif'),
+          monospacefont: '"Courier New",monospace',
+        }
+      end
+
+      def default_file_locations(options)
+        @libdir = File.dirname(__FILE__)
+        {
+          wordstylesheet: html_doc_path("wordstyle.scss"),
+          standardstylesheet: html_doc_path("isodoc.scss"),
+          header: html_doc_path("header.html"),
+          wordcoverpage: html_doc_path("word_iec_titlepage.html"),
+          wordintropage: html_doc_path("word_iec_intro.html"),
+          ulstyle: "l22",
+          olstyle: "l2",
+        }
+      end
+
+      def insert_toc(intro, docxml, level)
+        toc = ""
+        toc += make_WordToC(docxml, level)
+        if docxml.at("//p[@class = 'TableTitle']")
+          #toc += %{<p class="TOCTitle">List of Tables</p>}
+          toc += make_TableWordToC(docxml)
+        end
+        if docxml.at("//p[@class = 'FigureTitle']")
+          #toc += %{<p class="TOCTitle">List of Figures</p>}
+          toc += make_FigureWordToC(docxml)
+        end
+        intro.sub(/WORDTOC/, toc)
+      end
+
+      WORD_TOC_TABLE_PREFACE1 = <<~TOC.freeze
+                          <span lang="EN-GB"><span
+        style='mso-element:field-begin'></span><span
+        style='mso-spacerun:yes'>&#xA0;</span>TOC
+        \\h \\z \\t &quot;TableTitle,1&quot; <span
+        style='mso-element:field-separator'></span></span>
+      TOC
+
+      WORD_TOC_FIGURE_PREFACE1 = <<~TOC.freeze
+                                      <span lang="EN-GB"><span
+        style='mso-element:field-begin'></span><span
+        style='mso-spacerun:yes'>&#xA0;</span>TOC
+        \\h \\z \\t &quot;FigureTitle,1&quot; <span
+        style='mso-element:field-separator'></span></span>
+      TOC
+
+      def make_TableWordToC(docxml)
+        toc = ""
+        docxml.xpath("//p[@class = 'TableTitle']").each do |h|
+          toc += word_toc_entry(1, header_strip(h))
+        end
+        toc.sub(/(<p class="MsoToc1">)/,
+                %{\\1#{WORD_TOC_TABLE_PREFACE1}}) +  WORD_TOC_SUFFIX1
+      end
+
+      def make_FigureWordToC(docxml)
+        toc = ""
+        docxml.xpath("//p[@class = 'FigureTitle']").each do |h|
+          toc += word_toc_entry(1, header_strip(h))
+        end
+        toc.sub(/(<p class="MsoToc1">)/,
+                %{\\1#{WORD_TOC_FIGURE_PREFACE1}}) +  WORD_TOC_SUFFIX1
+      end
+
+      def header_strip(h)
+        h = h.to_s.gsub(/<\/?p[^>]*>/, "")
+        super
+      end
+
+      def word_cleanup(docxml)
+        word_foreword_cleanup(docxml)
+        word_table_cleanup(docxml)
+        super
+      end
+
+      def make_tr_attr(td, row, totalrows)
+        ret = super
+        css_class = td.name == "th" ? "TABLE-col-heading" : "TABLE-cell"
+        ret.merge( "class": css_class )
+      end
+
+      def tr_parse(node, out, ord, totalrows, header)
+        out.tr do |r|
+          node.elements.each do |td|
+            attrs = make_tr_attr(td, ord, totalrows - 1)
+            attrs[:class] = "TABLE-col-heading" if header
+            r.send td.name, **attr_code(attrs) do |entry|
+              td.children.each { |n| parse(n, entry) }
+            end
+          end
+        end
+      end
+
+      def word_table_cleanup(docxml)
+        docxml.xpath("//table//*[@class = 'Sourcecode']").each do |p|
+          p["class"] = "CODE-TableCell"
+        end
+        %w(TABLE-col-heading TABLE-cell).each do |style|
+          word_table_cleanup1(docxml, style)
+        end
+      end
+
+      def word_table_cleanup1(docxml, style)
+        %w(td th).each do |tdh|
+          docxml.xpath("//#{tdh}[@class = '#{style}'][not(descendant::p)]").each do |td|
+            p = Nokogiri::XML::Element.new("p", docxml)
+            td.children.each { |c| c.parent = p }
+            p.parent = td
+          end
+          docxml.xpath("//#{tdh}[@class = '#{style}']//p").each do |p|
+            p["class"] ||= style
+          end
+        end
+      end
+
+      def word_annex_cleanup(docxml)
+        super
+        non_annex_h1(docxml)
+      end
+
+      def non_annex_h1(docxml)
+        docxml.xpath("//h1[not(@class)]").each do |h1|
+          h1["class"] = "main"
+        end
+      end
+
+      # Incredibly, the numbered boilerplate list in IEC is NOT A LIST,
+      # and it violates numbering conventions for ordered lists 
+      # (arabic not alpha)
+      BOILERPLATE_PARAS = "//div[@class = 'boilerplate_legal']//li/p".freeze
+
+      def word_foreword_cleanup(docxml)
+        docxml.xpath(BOILERPLATE_PARAS).each_with_index do |l, i|
+          l["class"] = "FOREWORD"
+          l.children.first.add_previous_sibling(
+            %{#{i+1})<span style="mso-tab-count:1">&#xA0; </span>})
+        end
+        docxml.xpath("//div[@class = 'boilerplate_legal']//li").each do |l|
+          l.replace(l.children)
+        end
+        b = docxml.at("div[@class = 'boilerplate_legal']")
+        b.replace(b.children)
+      end
+
+      include BaseConvert
+    end
+  end
+end

data/lib/metanorma-iec.rb

@@ -0,0 +1,12 @@
+require "asciidoctor" unless defined? Asciidoctor::Converter
+require_relative "asciidoctor/iec/converter"
+require_relative "metanorma/iec/version"
+require "isodoc/iec/html_convert"
+require "isodoc/iec/word_convert"
+require "isodoc/iec/metadata"
+
+if defined? Metanorma
+  require_relative "metanorma/iec"
+  Metanorma::Registry.instance.register(Metanorma::Iec::Processor)
+end
+

data/lib/metanorma/iec.rb

@@ -0,0 +1,8 @@
+require_relative "./iec/processor"
+  
+module Metanorma
+  module Iec
+
+  end
+end
+

data/lib/metanorma/iec/processor.rb

@@ -0,0 +1,40 @@
+require "metanorma/processor"
+
+module Metanorma
+  module Iec
+    class Processor < Metanorma::Processor
+
+      def initialize
+        @short = :iec
+        @input_format = :asciidoc
+        @asciidoctor_backend = :iec
+      end
+
+      def output_formats
+        super.merge(
+          html: "html",
+          doc: "doc"
+        )
+      end
+
+      def version
+        "Metanorma::Iec #{Metanorma::Iec::VERSION}"
+      end
+
+      def input_to_isodoc(file, filename)
+        Metanorma::Input::Asciidoc.new.process(file, filename, @asciidoctor_backend)
+      end
+
+      def output(isodoc_node, outname, format, options={})
+        case format
+        when :html
+          IsoDoc::Iec::HtmlConvert.new(options).convert(outname, isodoc_node)
+        when :doc
+          IsoDoc::Iec::WordConvert.new(options).convert(outname, isodoc_node)
+        else
+          super
+        end
+      end
+    end
+  end
+end

data/lib/metanorma/iec/version.rb

@@ -0,0 +1,6 @@
+module Metanorma
+  module Iec
+    VERSION = "0.0.1"
+  end
+end
+

data/metanorma-iec.gemspec

@@ -0,0 +1,47 @@
+# coding: utf-8
+
+lib = File.expand_path("../lib", __FILE__)
+$LOAD_PATH.unshift(lib) unless $LOAD_PATH.include?(lib)
+require "metanorma/iec/version"
+
+Gem::Specification.new do |spec|
+  spec.name          = "metanorma-iec"
+  spec.version       = Metanorma::Iec::VERSION
+  spec.authors       = ["Ribose Inc."]
+  spec.email         = ["open.source@ribose.com"]
+
+  spec.summary       = "metanorma-iec lets you write IEC standards "\
+    "in AsciiDoc."
+  spec.description   = <<~DESCRIPTION
+    metanorma-iso lets you write IEC standards in AsciiDoc syntax.
+
+    This gem is in active development.
+  DESCRIPTION
+
+  spec.homepage      = "https://github.com/metanorma/metanorma-iec"
+  spec.license       = "BSD-2-Clause"
+
+  spec.bindir        = "bin"
+  spec.require_paths = ["lib"]
+  spec.files         = `git ls-files`.split("\n")
+  spec.test_files    = `git ls-files -- {spec}/*`.split("\n")
+  spec.required_ruby_version = Gem::Requirement.new(">= 2.4.0")
+
+  spec.add_dependency "asciidoctor", "~> 1.5.7"
+  spec.add_dependency "ruby-jing"
+  spec.add_dependency "isodoc", "~> 0.10.0"
+  spec.add_dependency "metanorma-iso", "~> 1.2.0"
+
+  spec.add_development_dependency "bundler", "~> 2.0.1"
+  spec.add_development_dependency "byebug"
+  spec.add_development_dependency "equivalent-xml", "~> 0.6"
+  spec.add_development_dependency "guard", "~> 2.14"
+  spec.add_development_dependency "guard-rspec", "~> 4.7"
+  spec.add_development_dependency "rake", "~> 12.0"
+  spec.add_development_dependency "rspec", "~> 3.6"
+  spec.add_development_dependency "rubocop", "= 0.54.0"
+  spec.add_development_dependency "simplecov", "~> 0.15"
+  spec.add_development_dependency "timecop", "~> 0.9"
+  spec.add_development_dependency "metanorma", "~> 0.3.0"
+  spec.add_development_dependency "iev", "~> 0.2.0"
+end

data/spec/asciidoctor-iec/base_spec.rb

@@ -0,0 +1,609 @@
+require "spec_helper"
+require "fileutils"
+
+RSpec.describe Asciidoctor::Iec do
+  it "has a version number" do
+    expect(Metanorma::Iec::VERSION).not_to be nil
+  end
+
+  #it "generates output for the Rice document" do
+    #FileUtils.rm_f %w(spec/examples/rice.xml spec/examples/rice.doc spec/examples/rice.html spec/examples/rice_alt.html)
+    #FileUtils.cd "spec/examples"
+    #Asciidoctor.convert_file "rice.adoc", {:attributes=>{"backend"=>"iso"}, :safe=>0, :header_footer=>true, :requires=>["metanorma-iso"], :failure_level=>4, :mkdirs=>true, :to_file=>nil}
+    #FileUtils.cd "../.."
+    #expect(File.exist?("spec/examples/rice.xml")).to be true
+    #expect(File.exist?("spec/examples/rice.doc")).to be true
+    #expect(File.exist?("spec/examples/rice.html")).to be true
+    #expect(File.exist?("spec/examples/rice_alt.html")).to be true
+  #end
+
+  it "processes a blank document" do
+    expect(strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :iec, header_footer: true))).to be_equivalent_to <<~"OUTPUT"
+    #{ASCIIDOC_BLANK_HDR}
+    INPUT
+    #{BLANK_HDR}
+<sections/>
+</iso-standard>
+    OUTPUT
+  end
+
+  it "converts a blank document" do
+    FileUtils.rm_f "test.doc"
+    expect(strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :iec, header_footer: true))).to be_equivalent_to <<~"OUTPUT"
+      = Document title
+      Author
+      :docfile: test.adoc
+      :novalid:
+      :no-isobib:
+    INPUT
+    #{BLANK_HDR}
+<sections/>
+</iso-standard>
+    OUTPUT
+    expect(File.exist?("test.doc")).to be true
+    expect(File.exist?("htmlstyle.css")).to be false
+  end
+
+  it "processes default metadata" do
+    expect(strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :iec, header_footer: true))).to be_equivalent_to <<~"OUTPUT"
+      = Document title
+      Author
+      :docfile: test.adoc
+      :nodoc:
+      :novalid:
+      :no-isobib:
+      :docnumber: 1000
+      :partnumber: 1
+      :edition: 2
+      :revdate: 2000-01-01
+      :draft: 0.3.4
+      :technical-committee: TC
+      :technical-committee-number: 1
+      :technical-committee-type: A
+      :subcommittee: SC
+      :subcommittee-number: 2
+      :subcommittee-type: B
+      :workgroup: WG
+      :workgroup-number: 3
+      :workgroup-type: C
+      :technical-committee_2: TC1
+      :technical-committee-number_2: 11
+      :technical-committee-type_2: A1
+      :subcommittee_2: SC1
+      :subcommittee-number_2: 21
+      :subcommittee-type_2: B1
+      :workgroup_2: WG1
+      :workgroup-number_2: 31
+      :workgroup-type_2: C1
+      :secretariat: SECRETARIAT
+      :docstage: 10
+      :docsubstage: 20
+      :iteration: 3
+      :language: en
+      :title-intro-en: Introduction
+      :title-main-en: Main Title -- Title
+      :title-part-en: Title Part
+      :title-intro-fr: Introduction Française
+      :title-main-fr: Titre Principal
+      :title-part-fr: Part du Titre
+      :library-ics: 1,2,3
+    INPUT
+           <?xml version="1.0" encoding="UTF-8"?>
+       <iso-standard xmlns="http://riboseinc.com/isoxml">
+       <bibdata type="standard">
+   <title language="en" format="text/plain" type="main">Introduction — Main Title — Title — Title Part</title>
+   <title language="en" format="text/plain" type="title-intro">Introduction</title>
+   <title language="en" format="text/plain" type="title-main">Main Title — Title</title>
+   <title language="en" format="text/plain" type="title-part">Title Part</title>
+   <title language="fr" format="text/plain" type="main">Introduction Française — Titre Principal — Part du Titre</title>
+   <title language="fr" format="text/plain" type="title-intro">Introduction Française</title>
+   <title language="fr" format="text/plain" type="title-main">Titre Principal</title>
+   <title language="fr" format="text/plain" type="title-part">Part du Titre</title>
+         <docidentifier type="iso">IEC/PreNWIP3 1000-1</docidentifier>
+<docnumber>1000</docnumber>
+         <edition>2</edition>
+<version>
+         <revision-date>2000-01-01</revision-date>
+         <draft>0.3.4</draft>
+       </version>
+         <contributor>
+           <role type="author"/>
+           <organization>
+             <name>International Electrotechnical Commission</name>
+             <abbreviation>IEC</abbreviation>
+           </organization>
+         </contributor>
+         <contributor>
+           <role type="publisher"/>
+           <organization>
+             <name>International Electrotechnical Commission</name>
+             <abbreviation>IEC</abbreviation>
+           </organization>
+         </contributor>
+         <language>en</language>
+         <script>Latn</script>
+         <status>
+           <stage>10</stage>
+           <substage>20</substage>
+           <iteration>3</iteration>
+         </status>
+         <copyright>
+           <from>#{Date.today.year}</from>
+           <owner>
+             <organization>
+             <name>International Electrotechnical Commission</name>
+             <abbreviation>IEC</abbreviation>
+             </organization>
+           </owner>
+         </copyright>
+         <ext>
+         <doctype>article</doctype>
+         <editorialgroup>
+           <technical-committee number="1" type="A">TC</technical-committee>
+           <technical-committee number="11" type="A1">TC1</technical-committee>
+           <subcommittee number="2" type="B">SC</subcommittee>
+           <subcommittee number="21" type="B1">SC1</subcommittee>
+           <workgroup number="3" type="C">WG</workgroup>
+           <workgroup number="31" type="C1">WG1</workgroup>
+           <secretariat>SECRETARIAT</secretariat>
+         </editorialgroup>
+         <ics>
+  <code>1</code>
+</ics>
+<ics>
+  <code>2</code>
+</ics>
+<ics>
+  <code>3</code>
+</ics>
+<structuredidentifier>
+  <project-number part="1">IEC 1000</project-number>
+</structuredidentifier>
+       </ext>
+       </bibdata>
+       #{BOILERPLATE}
+       <sections/>
+       </iso-standard>
+    OUTPUT
+  end
+
+
+  it "processes complex metadata" do
+    expect(strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :iec, header_footer: true))).to be_equivalent_to <<~"OUTPUT"
+      = Document title
+      Author
+      :docfile: test.adoc
+      :nodoc:
+      :novalid:
+      :no-isobib:
+      :docnumber: 1000
+      :partnumber: 1-1
+      :tc-docnumber: 2000
+      :language: el
+      :script: Grek
+      :publisher: IEC,IETF,ISO
+      :copyright-year: 2001
+    INPUT
+           <?xml version="1.0" encoding="UTF-8"?>
+       <iso-standard xmlns="http://riboseinc.com/isoxml">
+       <bibdata type="standard">
+         <docidentifier type="iso">ISO/IEC/IETF 1000-1-1:2001</docidentifier>
+         <docidentifier type="iso-tc">2000</docidentifier>
+         <docnumber>1000</docnumber>
+         <contributor>
+           <role type="author"/>
+           <organization>
+             <name>International Electrotechnical Commission</name>
+             <abbreviation>IEC</abbreviation>
+           </organization>
+         </contributor>
+         <contributor>
+           <role type="author"/>
+           <organization>
+             <name>IETF</name>
+           </organization>
+         </contributor>
+         <contributor>
+           <role type="author"/>
+           <organization>
+             <name>International Organization for Standardization</name>
+             <abbreviation>ISO</abbreviation>
+           </organization>
+         </contributor>
+         <contributor>
+           <role type="publisher"/>
+           <organization>
+             <name>International Electrotechnical Commission</name>
+             <abbreviation>IEC</abbreviation>
+           </organization>
+         </contributor>
+         <contributor>
+           <role type="publisher"/>
+           <organization>
+             <name>IETF</name>
+           </organization>
+         </contributor>
+         <contributor>
+           <role type="publisher"/>
+           <organization>
+             <name>International Organization for Standardization</name>
+             <abbreviation>ISO</abbreviation>
+           </organization>
+         </contributor>
+         <language>el</language>
+         <script>Grek</script>
+         <status>
+           <stage>60</stage>
+           <substage>60</substage>
+         </status>
+         <copyright>
+           <from>2001</from>
+           <owner>
+             <organization>
+               <name>International Electrotechnical Commission</name>
+               <abbreviation>IEC</abbreviation>
+             </organization>
+           </owner>
+         </copyright>
+         <copyright>
+           <from>2001</from>
+           <owner>
+             <organization>
+               <name>IETF</name>
+             </organization>
+           </owner>
+         </copyright>
+         <copyright>
+           <from>2001</from>
+           <owner>
+             <organization>
+               <name>International Organization for Standardization</name>
+               <abbreviation>ISO</abbreviation>
+             </organization>
+           </owner>
+         </copyright>
+         <ext>
+         <doctype>article</doctype>
+         <editorialgroup>
+           <technical-committee/>
+           <subcommittee/>
+           <workgroup/>
+         </editorialgroup>
+         <structuredidentifier>
+           <project-number part="1" subpart="1">ISO/IEC/IETF 1000</project-number>
+         </structuredidentifier>
+         </ext>
+       </bibdata>
+       #{BOILERPLATE}
+       <sections/>
+       </iso-standard>
+    OUTPUT
+  end
+
+    it "processes boilerplate in English" do
+    doc = (strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :iec, header_footer: true)))
+      = Document title
+      Author
+      :docfile: test.adoc
+      :nodoc:
+      :novalid:
+      :no-isobib:
+      :docnumber: 1000
+      :partnumber: 1-1
+      :tc-docnumber: 2000
+      :language: en
+      :script: Latn
+      :publisher: IEC,IETF,ISO
+      :copyright-year: 2001
+    INPUT
+    expect(doc).to include "including individual experts"
+    expect(doc).not_to include "y compris ses experts particuliers"
+    end
+
+        it "processes boilerplate in French" do
+    doc = (strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :iec, header_footer: true)))
+      = Document title
+      Author
+      :docfile: test.adoc
+      :nodoc:
+      :novalid:
+      :no-isobib:
+      :docnumber: 1000
+      :partnumber: 1-1
+      :tc-docnumber: 2000
+      :language: fr
+      :script: Latn
+      :publisher: IEC,IETF,ISO
+      :copyright-year: 2001
+    INPUT
+    expect(doc).not_to include "including individual experts"
+    expect(doc).to include "y compris ses experts particuliers"
+    end
+
+    it "defaults substage" do
+    expect(strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :iec, header_footer: true))).to be_equivalent_to <<~"OUTPUT"
+      = Document title
+      Author
+      :docfile: test.adoc
+      :nodoc:
+      :novalid:
+      :no-isobib:
+      :docnumber: 1000
+      :docstage: 50
+    INPUT
+    <iso-standard xmlns="http://riboseinc.com/isoxml">
+<bibdata type="standard">
+  <docidentifier type="iso">IEC/FDIS 1000</docidentifier>
+  <docnumber>1000</docnumber>
+  <contributor>
+    <role type="author"/>
+    <organization>
+      <name>International Electrotechnical Commission</name>
+      <abbreviation>IEC</abbreviation>
+    </organization>
+  </contributor>
+  <contributor>
+    <role type="publisher"/>
+    <organization>
+      <name>International Electrotechnical Commission</name>
+      <abbreviation>IEC</abbreviation>
+    </organization>
+  </contributor>
+
+  <language>en</language>
+  <script>Latn</script>
+  <status>
+    <stage>50</stage>
+    <substage>00</substage>
+  </status>
+  <copyright>
+    <from>#{Date.today.year}</from>
+    <owner>
+      <organization>
+        <name>International Electrotechnical Commission</name>
+        <abbreviation>IEC</abbreviation>
+      </organization>
+    </owner>
+  </copyright>
+  <ext>
+    <doctype>article</doctype>
+    <editorialgroup>
+      <technical-committee/>
+      <subcommittee/>
+      <workgroup/>
+    </editorialgroup>
+    <structuredidentifier>
+      <project-number>IEC 1000</project-number>
+    </structuredidentifier>
+  </ext>
+</bibdata>
+#{BOILERPLATE}
+<sections/>
+</iso-standard>
+OUTPUT
+    end
+
+        it "defaults substage for stage 60" do
+    expect(strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :iec, header_footer: true))).to be_equivalent_to <<~"OUTPUT"
+      = Document title
+      Author
+      :docfile: test.adoc
+      :nodoc:
+      :novalid:
+      :no-isobib:
+      :docnumber: 1000
+      :docstage: 60
+    INPUT
+<iso-standard xmlns="http://riboseinc.com/isoxml">
+<bibdata type="standard">
+  <docidentifier type="iso">IEC 1000</docidentifier>
+  <docnumber>1000</docnumber>
+  <contributor>
+    <role type="author"/>
+    <organization>
+      <name>International Electrotechnical Commission</name>
+      <abbreviation>IEC</abbreviation>
+    </organization>
+  </contributor>
+  <contributor>
+    <role type="publisher"/>
+    <organization>
+      <name>International Electrotechnical Commission</name>
+      <abbreviation>IEC</abbreviation>
+    </organization>
+  </contributor>
+
+  <language>en</language>
+  <script>Latn</script>
+  <status>
+    <stage>60</stage>
+    <substage>60</substage>
+  </status>
+  <copyright>
+    <from>#{Date.today.year}</from>
+    <owner>
+      <organization>
+        <name>International Electrotechnical Commission</name>
+        <abbreviation>IEC</abbreviation>
+      </organization>
+    </owner>
+  </copyright>
+  <ext>
+    <doctype>article</doctype>
+    <editorialgroup>
+      <technical-committee/>
+      <subcommittee/>
+      <workgroup/>
+    </editorialgroup>
+    <structuredidentifier>
+      <project-number>IEC 1000</project-number>
+    </structuredidentifier>
+  </ext>
+</bibdata>
+#{BOILERPLATE}
+<sections/>
+</iso-standard>
+OUTPUT
+    end
+
+  it "populates metadata for PRF" do
+    expect(strip_guid(Asciidoctor.convert(<<~"INPUT", backend: :iec, header_footer: true))).to be_equivalent_to <<~"OUTPUT"
+      = Document title
+      Author
+      :docfile: test.adoc
+      :nodoc:
+      :novalid:
+      :no-isobib:
+      :docnumber: 1000
+      :docstage: 60
+      :docsubstage: 00
+    INPUT
+<iso-standard xmlns="http://riboseinc.com/isoxml">
+<bibdata type="standard">
+  <docidentifier type="iso">IEC/PRF 1000</docidentifier>
+  <docnumber>1000</docnumber>
+  <contributor>
+    <role type="author"/>
+    <organization>
+      <name>International Electrotechnical Commission</name>
+      <abbreviation>IEC</abbreviation>
+    </organization>
+  </contributor>
+  <contributor>
+    <role type="publisher"/>
+    <organization>
+      <name>International Electrotechnical Commission</name>
+      <abbreviation>IEC</abbreviation>
+    </organization>
+  </contributor>
+
+  <language>en</language>
+  <script>Latn</script>
+  <status>
+    <stage>60</stage>
+    <substage>00</substage>
+  </status>
+  <copyright>
+    <from>#{Date.today.year}</from>
+    <owner>
+      <organization>
+        <name>International Electrotechnical Commission</name>
+        <abbreviation>IEC</abbreviation>
+      </organization>
+    </owner>
+  </copyright>
+  <ext>
+    <doctype>article</doctype>
+    <editorialgroup>
+      <technical-committee/>
+      <subcommittee/>
+      <workgroup/>
+    </editorialgroup>
+    <structuredidentifier>
+      <project-number>IEC 1000</project-number>
+    </structuredidentifier>
+  </ext>
+</bibdata>
+#{BOILERPLATE}
+<sections/>
+</iso-standard>
+OUTPUT
+    end
+
+
+  it "reads scripts into blank HTML document" do
+    FileUtils.rm_f "test.html"
+    Asciidoctor.convert(<<~"INPUT", backend: :iec, header_footer: true)
+      = Document title
+      Author
+      :docfile: test.adoc
+      :novalid:
+      :no-isobib:
+    INPUT
+    html = File.read("test.html", encoding: "utf-8")
+    expect(html).to match(%r{<script>})
+  end
+
+  it "uses default fonts" do
+    FileUtils.rm_f "test.html"
+    Asciidoctor.convert(<<~"INPUT", backend: :iec, header_footer: true)
+      = Document title
+      Author
+      :docfile: test.adoc
+      :novalid:
+      :no-isobib:
+    INPUT
+    html = File.read("test.html", encoding: "utf-8")
+    expect(html).to match(%r[\.Sourcecode[^{]+\{[^{]+font-family: "Courier New", monospace;]m)
+    expect(html).to match(%r[blockquote[^{]+\{[^{]+font-family: "Cambria", serif;]m)
+    expect(html).to match(%r[\.h2Annex[^{]+\{[^{]+font-family: "Cambria", serif;]m)
+  end
+
+  it "uses default fonts for alt doc" do
+    FileUtils.rm_f "test_alt.html"
+    Asciidoctor.convert(<<~"INPUT", backend: :iec, header_footer: true)
+      = Document title
+      Author
+      :docfile: test.adoc
+      :novalid:
+      :no-isobib:
+    INPUT
+    html = File.read("test_alt.html", encoding: "utf-8")
+    expect(html).to match(%r[\.Sourcecode[^{]+\{[^{]+font-family: "Space Mono", monospace;]m)
+    expect(html).to match(%r[blockquote[^{]+\{[^{]+font-family: "Lato", sans-serif;]m)
+    expect(html).to match(%r[\.h2Annex[^{]+\{[^{]+font-family: "Lato", sans-serif;]m)
+  end
+
+  it "uses Chinese fonts" do
+    FileUtils.rm_f "test.html"
+    Asciidoctor.convert(<<~"INPUT", backend: :iec, header_footer: true)
+      = Document title
+      Author
+      :docfile: test.adoc
+      :novalid:
+      :no-isobib:
+      :script: Hans
+    INPUT
+    html = File.read("test.html", encoding: "utf-8")
+    expect(html).to match(%r[\.Sourcecode[^{]+\{[^{]+font-family: "Courier New", monospace;]m)
+    expect(html).to match(%r[blockquote[^{]+\{[^{]+font-family: "SimSun", serif;]m)
+    expect(html).to match(%r[\.h2Annex[^{]+\{[^{]+font-family: "SimHei", sans-serif;]m)
+  end
+
+  it "uses specified fonts" do
+    FileUtils.rm_f "test.html"
+    Asciidoctor.convert(<<~"INPUT", backend: :iec, header_footer: true)
+      = Document title
+      Author
+      :docfile: test.adoc
+      :novalid:
+      :no-isobib:
+      :script: Hans
+      :body-font: Zapf Chancery
+      :header-font: Comic Sans
+      :monospace-font: Andale Mono
+    INPUT
+    html = File.read("test.html", encoding: "utf-8")
+    expect(html).to match(%r[\.Sourcecode[^{]+\{[^{]+font-family: Andale Mono;]m)
+    expect(html).to match(%r[blockquote[^{]+\{[^{]+font-family: Zapf Chancery;]m)
+    expect(html).to match(%r[\.h2Annex[^{]+\{[^{]+font-family: Comic Sans;]m)
+  end
+
+  it "strips MS-specific CSS" do
+    FileUtils.rm_f "test.html"
+    FileUtils.rm_f "test.doc"
+    Asciidoctor.convert(<<~"INPUT", backend: :iec, header_footer: true)
+      = Document title
+      Author
+      :docfile: test.adoc
+      :novalid:
+      :no-isobib:
+    INPUT
+    word = File.read("test.doc", encoding: "utf-8")
+    html = File.read("test.html", encoding: "utf-8")
+    expect(word).to match(%r[mso-style-name: "Intro Title";]m)
+    expect(html).not_to match(%r[mso-style-name: "Intro Title";]m)
+  end
+
+
+end