plurimath 0.8.16 → 0.8.18

data/lib/plurimath/mathml/transform.rb

@@ -1,411 +0,0 @@
-# frozen_string_literal: true
-
-module Plurimath
-  class Mathml
-    class Transform < Parslet::Transform
-      rule(mi: simple(:mi))         { mi }
-      rule(mo: simple(:mo))         { mo }
-      rule(mo: sequence(:mo))       { Utility.mathml_unary_classes(mo, lang: :mathml) }
-      rule(mtd: sequence(:mtd))     { Math::Function::Td.new(mtd) }
-      rule(mtr: sequence(:mtr))     { Math::Function::Tr.new(mtr) }
-      rule(math: subtree(:math))    { math.flatten.compact }
-      rule(mfrac: simple(:mfrac))   { mfrac }
-      rule(none: sequence(:none))   { nil }
-      rule(mspace: simple(:space))  { space.is_a?(Math::Function::Mpadded) ? nil : space }
-      rule(mtable: simple(:table))  { table }
-      rule(mglyph: simple(:glyph))  { glyph }
-      rule(mstyle: simple(:mstyle)) { mstyle }
-      rule(msline: sequence(:line)) { Math::Function::Msline.new }
-      rule(value: sequence(:value)) { Utility.filter_values(value) }
-
-      rule(mpadded: simple(:padded))    { padded }
-      rule(mspace: sequence(:space))    { nil }
-      rule(mfenced: simple(:mfenced))   { mfenced }
-      rule(mtable: sequence(:mtable))   { Math::Function::Table.new(mtable) }
-      rule(mscarry: sequence(:scarry))  { nil }
-      rule(menclose: simple(:enclose))  { enclose }
-      rule(mlabeledtr: sequence(:mtr))  { Math::Function::Tr.new(mtr) }
-      rule(malignmark: sequence(:mark)) { nil }
-      rule(maligngroup: sequence(:att)) { nil }
-      rule(mprescripts: sequence(:att)) { "mprescripts" }
-      rule(columnlines: simple(:lines)) { lines }
-
-      rule(mphantom: sequence(:phantom)) do
-        Math::Function::Phantom.new(
-          Utility.filter_values(phantom),
-        )
-      end
-
-      rule(mn: sequence(:mn)) do
-        Math::Number.new(
-          Utility.string_to_html_entity(
-            mn.join,
-          ),
-        )
-      end
-
-      rule(mathvariant: simple(:variant)) do
-        Utility::FONT_STYLES[variant.to_sym]&.new(nil, variant)
-      end
-
-      rule(mi: sequence(:mi)) do
-        mi.any?(String) ? Utility.mathml_unary_classes(mi, lang: :mathml) : mi
-      end
-
-      rule(open: simple(:lparen)) do
-        Math::Function::Fenced.new(
-          Utility.symbols_class(lparen, lang: :mathml),
-        )
-      end
-
-      rule(msgroup: sequence(:group)) do
-        if group.any?(String)
-          group.each_with_index do |object, ind|
-            group[ind] = Utility.text_classes(object, lang: :mathml) if object.is_a?(String)
-          end
-        end
-        Math::Function::Msgroup.new(group.flatten.compact)
-      end
-
-      rule(mlongdiv: sequence(:long)) do
-        Math::Function::Longdiv.new(long.flatten.compact)
-      end
-
-      rule(menclose: subtree(:close)) do
-        options = close.find { |obj| obj.is_a?(Hash) and close.delete(obj) }
-        Math::Function::Menclose.new(
-          (options[:notation] if options),
-          Utility.filter_values(close),
-        )
-      end
-
-      rule(mroot: sequence(:mroot)) do
-        Math::Function::Root.new(
-          mroot[1],
-          mroot[0],
-        )
-      end
-
-      rule(merror: sequence(:merror)) do
-        Math::Function::Merror.new(
-          Utility.filter_values(merror),
-        )
-      end
-
-      rule(msqrt: subtree(:sqrt)) do
-        options = sqrt.find { |sqr| sqr.is_a?(Hash) and sqrt.delete(sqr) }
-        sqrt_obj = Math::Function::Sqrt.new(
-          Utility.filter_values(sqrt),
-        )
-        sqrt_obj.options = options
-        sqrt_obj
-      end
-
-      rule(mfrac: sequence(:mfrac)) do
-        Math::Function::Frac.new(
-          mfrac[0],
-          mfrac[1],
-        )
-      end
-
-      rule(mfraction: sequence(:mfrac)) do
-        Math::Function::Frac.new(
-          mfrac[0],
-          mfrac[1],
-        )
-      end
-
-      rule(msub: sequence(:msub)) do
-        Math::Function::Base.new(
-          msub[0],
-          msub[1],
-        )
-      end
-
-      rule(msub: subtree(:msub)) do
-        Math::Function::Base.new(
-          Utility.filter_values(msub[0]),
-          Utility.filter_values(msub[1]),
-        )
-      end
-
-      rule(msup: subtree(:msup)) do
-        Math::Function::Power.new(
-          Utility.filter_values(msup[0]),
-          Utility.filter_values(msup[1]),
-        )
-      end
-
-      rule(msup: sequence(:msup)) do
-        Math::Function::Power.new(
-          msup[0],
-          msup[1],
-        )
-      end
-
-      rule(msubsup: sequence(:function)) do
-        base = function[0].is_a?(Math::Formula) ? function[0].value : function
-        base_object = base.first
-        if base_object.is_a?(Math::Function::BinaryFunction) && !base_object.any_value_exist?
-          base_object.parameter_one = function[1]
-          base_object.parameter_two = function[2]
-          base_object
-        elsif base_object.is_a?(Math::Function::TernaryFunction) && !base_object.any_value_exist?
-          base_object.parameter_one = function[1]
-          base_object.parameter_two = function[2]
-          base_object.parameter_three = function[3]
-          base_object
-        else
-          Math::Function::PowerBase.new(
-            function[0],
-            function[1],
-            function[2],
-          )
-        end
-      end
-
-      rule(munderover: sequence(:function)) do
-        base = function[0].is_a?(Math::Formula) ? function[0].value : function
-        base_object = base.first
-        if base_object.is_a?(Math::Function::BinaryFunction) && !base_object.any_value_exist?
-          base_object.parameter_one = function[1]
-          base_object.parameter_two = function[2]
-          base_object
-        elsif base_object.is_a?(Math::Function::TernaryFunction) && !base_object.any_value_exist?
-          base_object.parameter_one = function[1]
-          base_object.parameter_two = function[2]
-          base_object.parameter_three = function[3]
-          base_object
-        else
-          Math::Function::Underover.new(
-            function[0],
-            function[1],
-            function[2],
-          )
-        end
-      end
-
-      rule(mrow: subtree(:mrow)) do
-        flatten_mrow = Utility.populate_function_classes(mrow, lang: :mathml)
-        Utility.fenceable_classes(flatten_mrow)
-        if flatten_mrow.length == 1
-          flatten_mrow.first
-        elsif flatten_mrow&.first&.is_nary_function? && flatten_mrow.length == 2
-          nary_function = flatten_mrow.first
-          if nary_function.is_ternary_function? && nary_function.all_values_exist?
-            if nary_function.respond_to?(:new_nary_function)
-              flatten_mrow[0] = nary_function.new_nary_function(flatten_mrow.delete_at(1))
-              flatten_mrow
-            else
-              Utility.filter_values(flatten_mrow)
-            end
-          elsif nary_function.is_binary_function? && nary_function.any_value_exist?
-            flatten_mrow[0] = nary_function.new_nary_function(flatten_mrow.delete_at(1))
-            flatten_mrow
-          else
-            Math::Formula.new(
-              flatten_mrow,
-              Utility.mrow_left_right(flatten_mrow),
-            )
-          end
-        else
-          Math::Formula.new(
-            flatten_mrow,
-            Utility.mrow_left_right(flatten_mrow),
-          )
-        end
-      end
-
-      rule(mstyle: sequence(:mstyle)) do
-        nary_function = mstyle.first
-        if nary_function&.is_nary_function?
-          if nary_function.is_ternary_function? && nary_function.parameter_three.nil?
-            nary_function.parameter_three = mstyle.delete_at(1)
-          elsif nary_function.is_binary_function?
-            mstyle[0] = nary_function.new_nary_function(mstyle.delete_at(1))
-          end
-        end
-        Utility.filter_values(mstyle)
-      end
-
-      rule(msrow: sequence(:msrow)) do
-        Math::Formula.new(msrow.flatten.compact)
-      end
-
-      rule(mstack: sequence(:stack)) do
-        Math::Function::Stackrel.new(
-          Utility.filter_values(stack),
-        )
-      end
-
-      rule(mover: subtree(:mover)) do
-        if mover&.length == 1
-          base_object = mover.first
-          base_object.class_name == "underline" ? base_object.swap_class : base_object
-        elsif Constants::CLASSES.any?(mover&.last&.class_name)
-          mover.last.parameter_one = mover.shift if mover.length > 1
-          mover.last
-        else
-          Math::Function::Overset.new(mover[1], mover[0])
-        end
-      end
-
-      rule(munder: sequence(:munder)) do
-        if munder.any?(String)
-          munder.each_with_index do |object, ind|
-            next unless object.is_a?(String)
-
-            munder[ind] = Utility.mathml_unary_classes([object], lang: :mathml)
-          end
-        end
-        if munder.length == 1
-          munder.first.class_name == "bar" ? munder.first.swap_class : munder.last
-        elsif ["ubrace", "obrace", "underline"].any?(munder.last.class_name)
-          munder.last.parameter_one = munder.shift if munder.length > 1
-          munder.last
-        elsif Constants::CLASSES.include?(munder.first.class_name)
-          munder.first.parameter_one = munder.delete_at(1)
-          munder.first
-        else
-          Math::Function::Underset.new(
-            munder[1],
-            munder[0],
-          )
-        end
-      end
-
-      rule(mscarries: sequence(:scarries)) do
-        Math::Function::Scarries.new(
-          Utility.filter_values(scarries),
-        )
-      end
-
-      rule(mpadded: sequence(:padded)) do
-        Math::Function::Mpadded.new(
-          Utility.filter_values(padded),
-        )
-      end
-
-      rule(mtext: subtree(:mtext)) do
-        entities = HTMLEntities.new
-        symbols  = Constants::UNICODE_SYMBOLS.transform_keys(&:to_s)
-        text     = entities.encode(mtext.flatten.join, :hexadecimal)
-        symbols.each do |code, string|
-          text = text.gsub(code.downcase, "unicode[:#{string}]")
-        end
-        Math::Function::Text.new(text)
-      end
-
-      rule(ms: sequence(:ms)) do
-        Math::Function::Ms.new(
-          ms.flatten.compact.join(" "),
-        )
-      end
-
-      rule(mfenced: sequence(:fenced)) do
-        Math::Function::Fenced.new(
-          Math::Symbols::Paren::Lround.new,
-          fenced.compact,
-          Math::Symbols::Paren::Rround.new,
-        )
-      end
-
-      rule(mmultiscripts: subtree(:script)) do
-        multi = Utility.multiscript(script)
-        prescripts = multi[1]
-        Math::Function::Multiscript.new(
-          multi[0],
-          (prescripts[0] if prescripts),
-          (prescripts[1] if prescripts),
-        )
-      end
-
-      rule(mathcolor: simple(:color)) do
-        Math::Function::Color.new(
-          Math::Function::Text.new(color),
-        )
-      end
-
-      rule(open: simple(:lparen),
-           close: simple(:rparen)) do
-        Math::Function::Fenced.new(
-          Utility.symbols_class(lparen, lang: :mathml),
-          nil,
-          Utility.symbols_class(rparen, lang: :mathml),
-        )
-      end
-
-      rule(mathcolor: simple(:color),
-           mathvariant: simple(:variant)) do
-        variant_class = Utility::FONT_STYLES[variant.to_sym]
-        if variant_class
-          Math::Function::Color.new(
-            Math::Function::Text.new(
-              color,
-            ),
-            variant_class.new(
-              nil,
-              variant,
-            ),
-          )
-        else
-          Math::Function::Color.new(
-            Math::Function::Text.new(
-              color,
-            ),
-          )
-        end
-      end
-
-      rule(semantics: subtree(:value)) do
-        Math::Function::Semantics.new(
-          value.shift,
-          value,
-        )
-      end
-
-      rule(attributes: simple(:attrs),
-           value: subtree(:value)) do
-        Utility.join_attr_value(attrs, value&.flatten&.compact)
-      end
-
-      rule(attributes: subtree(:attrs),
-           value: sequence(:value)) do
-        approved = if attrs.is_a?(Hash)
-                     supported_attrs = %w[
-                       linethickness
-                       accentunder
-                       columnlines
-                       separators
-                       rowlines
-                       bevelled
-                       notation
-                       height
-                       accent
-                       height
-                       intent
-                       width
-                       index
-                       depth
-                       width
-                       frame
-                       alt
-                       src
-                     ]
-                     attrs if attrs.keys.any? do |k|
-                       supported_attrs.include?(k.to_s)
-                     end
-                     unicode_only = true if attrs.key?(:linebreak)
-                     attrs
-                   else
-                     attrs
-                   end
-        Utility.join_attr_value(
-          approved,
-          value&.flatten&.compact,
-          unicode_only: unicode_only,
-        )
-      end
-    end
-  end
-end