expressir 2.4.6 → 2.4.8

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: d4cb3a63d16dd31f57a8050366d6b9d9d4e442d65e7df44c01f5edad8f330565
-  data.tar.gz: f234902848350d1abbca9aef98c0ca2bd562fe19463a51e395ec53688ef4e72b
+  metadata.gz: ebd25bbedb1fd18428c86909c39a4aacce617d6d359368e175ee8887ecb8c078
+  data.tar.gz: 426c5afe759f7387c32cc10f060bfade8438e1133b525122f9948683661f2190
 SHA512:
-  metadata.gz: f25c7bf185356ceaea4a9ac257683ef56db6f24923baa6f00e3a566b8e923de2b18500fa8e9b20173b4a83d90a94aa92a2f3fda2dc239fc0eba900bd713ea23d
-  data.tar.gz: 0d310df7b81ada4f9a0a9c73a1e962c100af3082b9911d7c88430de01016a2566a2ff42e30f1b94b6a256c6bd50a5d05263c52e1ff667e0f3798d0958546ac0e
+  metadata.gz: 075a8aa23bc5ffee8d4ef04acbe84dce9da9413c4faaf31e3ec610d929f563a47476e4e09c755201f54ee9ac9191fcee28201772547411d9039433ed31a8fd07
+  data.tar.gz: c700a17fe91a024ede2e50857ec7e48698c189fd38ca47d15b196bc676a6c2cd1c337276adc947e49ed2ebf52501cc95009857524e5361d9d3f52f8c6a89f27e

data/lib/expressir/express/smrl_xml.rb

@@ -0,0 +1,125 @@
+# frozen_string_literal: true
+
+module Expressir
+  module Express
+    # SMRL index XML writer — the shape eengine's wo-smrl-xml.lisp
+    # produces (the data layer of the STEP Module Resource Library
+    # document set, expressir #276 / TODO.parity-ee 15), built with
+    # moxml's node API — no hand-serialized XML strings.
+    #
+    # Per schema: downcased <schema> id, <schema_version> when
+    # present, per-kind count comments, <use_from> per interface
+    # (item-list marker), sorted <constant> names, then declarations
+    # in eeng's kind order (types, entities, subtype_constraints,
+    # functions, rules, procedures), alphabetical inside each kind,
+    # schema-qualified names; ARM mode upcases entity names.
+    #
+    # format        — one document with an <smrl> root, one <schema>
+    #                 element per repository schema.
+    # format_schema — a standalone document whose root is the schema
+    #                 element (the per-file fragment eeng emits).
+    module SmrlXml
+      module_function
+
+      def format(repository, mode: :resource)
+        schemas = repository.respond_to?(:schemas) ? repository.schemas : Array(repository)
+        ctx = Moxml::Context.new
+        doc = ctx.create_document
+        root = doc.create_element("smrl")
+        doc.add_child(root)
+        schemas.each { |schema| root.add_child(schema_element(doc, schema, mode)) }
+        doc.to_xml
+      end
+
+      def format_schema(schema, mode: :resource)
+        ctx = Moxml::Context.new
+        doc = ctx.create_document
+        doc.add_child(schema_element(doc, schema, mode))
+        doc.to_xml
+      end
+
+      def schema_element(doc, schema, mode)
+        element = doc.create_element("schema")
+        element.add_child(doc.create_text(schema.id.downcase))
+        if schema.version&.value
+          version = doc.create_element("schema_version")
+          version.add_child(doc.create_text(schema.version.value))
+          element.add_child(version)
+        end
+        counts = declaration_counts(schema)
+        %i[type entity function procedure rule subtype_constraint].each do |kind|
+          label = kind.to_s.split("_").map(&:upcase).join("_")
+          element.add_child(doc.create_comment(Kernel.format("%-19s %4d",
+                                                             label, counts[kind])))
+        end
+        interfaces(schema).each do |iface|
+          items = iface.items.to_a.empty? ? "" : "(...)"
+          add_text_element(doc, element, "use-from",
+                           "#{iface.schema.id.downcase}#{items}")
+        end
+        constants(schema).each do |decl|
+          add_text_element(doc, element, "constant", decl.id.downcase)
+        end
+        declarations(schema).each do |kind, decls|
+          tag = kind.to_s.tr("_", "-")
+          decls.each do |decl|
+            add_text_element(doc, element, tag,
+                             "#{schema.id}.#{name_for(kind, decl.id, mode)}")
+          end
+        end
+        element
+      end
+
+      def add_text_element(doc, parent, tag, text)
+        node = doc.create_element(tag)
+        node.add_child(doc.create_text(text))
+        parent.add_child(node)
+      end
+
+      # eeng's entity casing: ARM mode upcases entity names; every
+      # other kind and mode is downcased.
+      def name_for(kind, id, mode)
+        kind == :entity && mode == :arm ? id.upcase : id.downcase
+      end
+
+      def declaration_counts(schema)
+        {
+          type: schema.types.to_a.size,
+          entity: schema.entities.to_a.size,
+          function: schema.functions.to_a.size,
+          procedure: schema.procedures.to_a.size,
+          rule: schema.rules.to_a.size,
+          subtype_constraint: schema.subtype_constraints.to_a.size,
+        }
+      end
+
+      def interfaces(schema)
+        Array(schema.interfaces)
+      end
+
+      def constants(schema)
+        schema.constants.to_a.sort_by(&:id)
+      end
+
+      # eeng order: types, entities, subtype_constraints, functions,
+      # rules, procedures — alphabetical (byte order) inside each.
+      COLL_BY_KIND = {
+        types: :type,
+        entities: :entity,
+        subtype_constraints: :subtype_constraint,
+        functions: :function,
+        rules: :rule,
+        procedures: :procedure,
+      }.freeze
+
+      def declarations(schema)
+        COLL_BY_KIND.filter_map do |coll, kind|
+          decls = schema.public_send(coll).to_a.sort_by(&:id)
+          next if decls.empty?
+
+          [kind, decls]
+        end
+      end
+    end
+  end
+end

data/lib/expressir/express.rb

@@ -44,6 +44,7 @@ module Expressir
              "#{__dir__}/express/schema_plain_source_formatter"
     autoload :SchemaSourceFormatter, "#{__dir__}/express/schema_source_formatter"
     autoload :ScopeResolver, "#{__dir__}/express/scope_resolver"
+    autoload :SmrlXml, "#{__dir__}/express/smrl_xml"
     autoload :SourceFormatter, "#{__dir__}/express/source_formatter"
     autoload :StreamingBuilder, "#{__dir__}/express/streaming_builder"
   end

data/lib/expressir/version.rb

@@ -3,6 +3,6 @@ module Expressir
   # autoload it (Ruby autoload only works for module/class constants, not
   # for string constants like `Expressir::VERSION`).
   module Version
-    VERSION = "2.4.6".freeze
+    VERSION = "2.4.8".freeze
   end
 end

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification
 name: expressir
 version: !ruby/object:Gem::Version
-  version: 2.4.6
+  version: 2.4.8
 platform: ruby
 authors:
 - Ribose Inc.
@@ -523,6 +523,7 @@ files:
 - lib/expressir/express/scope_resolver.rb
 - lib/expressir/express/self_schema_reference.rb
 - lib/expressir/express/shtolo.rb
+- lib/expressir/express/smrl_xml.rb
 - lib/expressir/express/source_formatter.rb
 - lib/expressir/express/streaming_builder.rb
 - lib/expressir/liquid.rb