modl 0.0.2 → 0.3.0

data/lib/modl/parser/MODLParser.tokens

@@ -0,0 +1,41 @@
+WS=1
+NULL=2
+TRUE=3
+FALSE=4
+COLON=5
+EQUALS=6
+STRUCT_SEP=7
+ARR_SEP=8
+LBRAC=9
+RBRAC=10
+LSBRAC=11
+RSBRAC=12
+NUMBER=13
+COMMENT=14
+STRING=15
+HASH_PREFIX=16
+QUOTED=17
+GRAVED=18
+LCBRAC=19
+CWS=20
+QMARK=21
+FSLASH=22
+GTHAN=23
+LTHAN=24
+ASTERISK=25
+AMP=26
+PIPE=27
+EXCLAM=28
+CCOMMENT=29
+RCBRAC=30
+','=8
+'{'=19
+'?'=21
+'/'=22
+'>'=23
+'<'=24
+'*'=25
+'&'=26
+'|'=27
+'!'=28
+'}'=30

data/lib/modl/parser/MODLParserBaseListener.rb

@@ -0,0 +1,164 @@
+# Generated from MODLParser.g4 by ANTLR 4.7.2
+require 'antlr4/runtime'
+
+module Modl::Parser
+
+class MODLParserBaseListener < MODLParserListener
+	 def enterModl(ctx)
+	 end
+
+	 def exitModl(ctx)
+	 end
+
+	 def enterModl_structure(ctx)
+	 end
+
+	 def exitModl_structure(ctx)
+	 end
+
+	 def enterModl_map(ctx)
+	 end
+
+	 def exitModl_map(ctx)
+	 end
+
+	 def enterModl_array(ctx)
+	 end
+
+	 def exitModl_array(ctx)
+	 end
+
+	 def enterModl_nb_array(ctx)
+	 end
+
+	 def exitModl_nb_array(ctx)
+	 end
+
+	 def enterModl_pair(ctx)
+	 end
+
+	 def exitModl_pair(ctx)
+	 end
+
+	 def enterModl_value_item(ctx)
+	 end
+
+	 def exitModl_value_item(ctx)
+	 end
+
+	 def enterModl_top_level_conditional(ctx)
+	 end
+
+	 def exitModl_top_level_conditional(ctx)
+	 end
+
+	 def enterModl_top_level_conditional_return(ctx)
+	 end
+
+	 def exitModl_top_level_conditional_return(ctx)
+	 end
+
+	 def enterModl_map_conditional(ctx)
+	 end
+
+	 def exitModl_map_conditional(ctx)
+	 end
+
+	 def enterModl_map_conditional_return(ctx)
+	 end
+
+	 def exitModl_map_conditional_return(ctx)
+	 end
+
+	 def enterModl_map_item(ctx)
+	 end
+
+	 def exitModl_map_item(ctx)
+	 end
+
+	 def enterModl_array_conditional(ctx)
+	 end
+
+	 def exitModl_array_conditional(ctx)
+	 end
+
+	 def enterModl_array_conditional_return(ctx)
+	 end
+
+	 def exitModl_array_conditional_return(ctx)
+	 end
+
+	 def enterModl_array_item(ctx)
+	 end
+
+	 def exitModl_array_item(ctx)
+	 end
+
+	 def enterModl_value_conditional(ctx)
+	 end
+
+	 def exitModl_value_conditional(ctx)
+	 end
+
+	 def enterModl_value_conditional_return(ctx)
+	 end
+
+	 def exitModl_value_conditional_return(ctx)
+	 end
+
+	 def enterModl_condition_test(ctx)
+	 end
+
+	 def exitModl_condition_test(ctx)
+	 end
+
+	 def enterModl_operator(ctx)
+	 end
+
+	 def exitModl_operator(ctx)
+	 end
+
+	 def enterModl_condition(ctx)
+	 end
+
+	 def exitModl_condition(ctx)
+	 end
+
+	 def enterModl_condition_group(ctx)
+	 end
+
+	 def exitModl_condition_group(ctx)
+	 end
+
+	 def enterModl_value(ctx)
+	 end
+
+	 def exitModl_value(ctx)
+	 end
+
+	 def enterModl_array_value_item(ctx)
+	 end
+
+	 def exitModl_array_value_item(ctx)
+	 end
+
+	 def enterModl_primitive(ctx)
+	 end
+
+	 def exitModl_primitive(ctx)
+	 end
+
+ def enter_every_rule(ctx)
+ end
+
+ def exit_every_rule(ctx)
+ end
+
+ def visit_terminal(node)
+ end
+
+ def visit_error_node(node)
+ end
+
+end
+end

data/lib/modl/parser/MODLParserBaseVisitor.rb

@@ -0,0 +1,107 @@
+# Generated from MODLParser.g4 by ANTLR 4.7.2
+
+require 'antlr4/runtime'
+
+
+module Modl::Parser
+
+ class MODLParserBaseVisitor < Antlr4::Runtime::AbstractParseTreeVisitor
+	def visitModl( ctx)
+	 return visit_children(ctx)
+	 end
+
+	def visitModl_structure( ctx)
+	 return visit_children(ctx)
+	 end
+
+	def visitModl_map( ctx)
+	 return visit_children(ctx)
+	 end
+
+	def visitModl_array( ctx)
+	 return visit_children(ctx)
+	 end
+
+	def visitModl_nb_array( ctx)
+	 return visit_children(ctx)
+	 end
+
+	def visitModl_pair( ctx)
+	 return visit_children(ctx)
+	 end
+
+	def visitModl_value_item( ctx)
+	 return visit_children(ctx)
+	 end
+
+	def visitModl_top_level_conditional( ctx)
+	 return visit_children(ctx)
+	 end
+
+	def visitModl_top_level_conditional_return( ctx)
+	 return visit_children(ctx)
+	 end
+
+	def visitModl_map_conditional( ctx)
+	 return visit_children(ctx)
+	 end
+
+	def visitModl_map_conditional_return( ctx)
+	 return visit_children(ctx)
+	 end
+
+	def visitModl_map_item( ctx)
+	 return visit_children(ctx)
+	 end
+
+	def visitModl_array_conditional( ctx)
+	 return visit_children(ctx)
+	 end
+
+	def visitModl_array_conditional_return( ctx)
+	 return visit_children(ctx)
+	 end
+
+	def visitModl_array_item( ctx)
+	 return visit_children(ctx)
+	 end
+
+	def visitModl_value_conditional( ctx)
+	 return visit_children(ctx)
+	 end
+
+	def visitModl_value_conditional_return( ctx)
+	 return visit_children(ctx)
+	 end
+
+	def visitModl_condition_test( ctx)
+	 return visit_children(ctx)
+	 end
+
+	def visitModl_operator( ctx)
+	 return visit_children(ctx)
+	 end
+
+	def visitModl_condition( ctx)
+	 return visit_children(ctx)
+	 end
+
+	def visitModl_condition_group( ctx)
+	 return visit_children(ctx)
+	 end
+
+	def visitModl_value( ctx)
+	 return visit_children(ctx)
+	 end
+
+	def visitModl_array_value_item( ctx)
+	 return visit_children(ctx)
+	 end
+
+	def visitModl_primitive( ctx)
+	 return visit_children(ctx)
+	 end
+
+
+end
+end

data/lib/modl/parser/MODLParserListener.rb

@@ -0,0 +1,151 @@
+# Generated from MODLParser.g4 by ANTLR 4.7.2
+module Modl::Parser
+require 'antlr4/runtime'
+
+class MODLParserListener < Antlr4::Runtime::ParseTreeListener
+	def enterModl(ctx)
+	end
+
+	def exitModl(ctx)
+	end
+
+	def enterModl_structure(ctx)
+	end
+
+	def exitModl_structure(ctx)
+	end
+
+	def enterModl_map(ctx)
+	end
+
+	def exitModl_map(ctx)
+	end
+
+	def enterModl_array(ctx)
+	end
+
+	def exitModl_array(ctx)
+	end
+
+	def enterModl_nb_array(ctx)
+	end
+
+	def exitModl_nb_array(ctx)
+	end
+
+	def enterModl_pair(ctx)
+	end
+
+	def exitModl_pair(ctx)
+	end
+
+	def enterModl_value_item(ctx)
+	end
+
+	def exitModl_value_item(ctx)
+	end
+
+	def enterModl_top_level_conditional(ctx)
+	end
+
+	def exitModl_top_level_conditional(ctx)
+	end
+
+	def enterModl_top_level_conditional_return(ctx)
+	end
+
+	def exitModl_top_level_conditional_return(ctx)
+	end
+
+	def enterModl_map_conditional(ctx)
+	end
+
+	def exitModl_map_conditional(ctx)
+	end
+
+	def enterModl_map_conditional_return(ctx)
+	end
+
+	def exitModl_map_conditional_return(ctx)
+	end
+
+	def enterModl_map_item(ctx)
+	end
+
+	def exitModl_map_item(ctx)
+	end
+
+	def enterModl_array_conditional(ctx)
+	end
+
+	def exitModl_array_conditional(ctx)
+	end
+
+	def enterModl_array_conditional_return(ctx)
+	end
+
+	def exitModl_array_conditional_return(ctx)
+	end
+
+	def enterModl_array_item(ctx)
+	end
+
+	def exitModl_array_item(ctx)
+	end
+
+	def enterModl_value_conditional(ctx)
+	end
+
+	def exitModl_value_conditional(ctx)
+	end
+
+	def enterModl_value_conditional_return(ctx)
+	end
+
+	def exitModl_value_conditional_return(ctx)
+	end
+
+	def enterModl_condition_test(ctx)
+	end
+
+	def exitModl_condition_test(ctx)
+	end
+
+	def enterModl_operator(ctx)
+	end
+
+	def exitModl_operator(ctx)
+	end
+
+	def enterModl_condition(ctx)
+	end
+
+	def exitModl_condition(ctx)
+	end
+
+	def enterModl_condition_group(ctx)
+	end
+
+	def exitModl_condition_group(ctx)
+	end
+
+	def enterModl_value(ctx)
+	end
+
+	def exitModl_value(ctx)
+	end
+
+	def enterModl_array_value_item(ctx)
+	end
+
+	def exitModl_array_value_item(ctx)
+	end
+
+	def enterModl_primitive(ctx)
+	end
+
+	def exitModl_primitive(ctx)
+	end
+
+end
+end

data/lib/modl/parser/MODLParserVisitor.rb

@@ -0,0 +1,56 @@
+# Generated from MODLParser.g4 by ANTLR 4.7.2
+require 'antlr4/runtime'
+
+module Modl::Parser
+
+class MODLParserVisitor < Antlr4::Runtime::ParseTreeVisitor
+	def visitModl(ctx)
+	end
+	def visitModl_structure(ctx)
+	end
+	def visitModl_map(ctx)
+	end
+	def visitModl_array(ctx)
+	end
+	def visitModl_nb_array(ctx)
+	end
+	def visitModl_pair(ctx)
+	end
+	def visitModl_value_item(ctx)
+	end
+	def visitModl_top_level_conditional(ctx)
+	end
+	def visitModl_top_level_conditional_return(ctx)
+	end
+	def visitModl_map_conditional(ctx)
+	end
+	def visitModl_map_conditional_return(ctx)
+	end
+	def visitModl_map_item(ctx)
+	end
+	def visitModl_array_conditional(ctx)
+	end
+	def visitModl_array_conditional_return(ctx)
+	end
+	def visitModl_array_item(ctx)
+	end
+	def visitModl_value_conditional(ctx)
+	end
+	def visitModl_value_conditional_return(ctx)
+	end
+	def visitModl_condition_test(ctx)
+	end
+	def visitModl_operator(ctx)
+	end
+	def visitModl_condition(ctx)
+	end
+	def visitModl_condition_group(ctx)
+	end
+	def visitModl_value(ctx)
+	end
+	def visitModl_array_value_item(ctx)
+	end
+	def visitModl_primitive(ctx)
+	end
+end
+end

data/lib/modl/parser/class_processor.rb

@@ -0,0 +1,159 @@
+module Modl
+  module Parser
+    # This class handles the conversion of objects that refer to classes into instances of those classes.
+    # It works recursively since class usage can be nested.
+    class ClassProcessor
+      # How deep can the class structure be?
+      MAX_RECURSION_DEPTH = 20
+      # global is a GlobalParseContext and obj is the extracted Array or Hash from Modl::Parser::Parsed.extract_json
+      def self.process(global, obj)
+        # Process each object in the array or just process the object if its a hash.
+        # Any other object is ignored.
+        raise StandardError, 'parameter "global" should be a GlobalParseContext' unless global.is_a?(GlobalParseContext)
+
+        if obj.is_a? Array
+          obj.each do |o|
+            process_obj global, o if o.is_a? Hash
+          end
+        elsif obj.is_a? Hash
+          process_obj global, obj
+        end
+      end
+
+      private
+
+      # Process the contents of the supplied hash obj
+      def self.process_obj(global, obj)
+        obj.keys.each do |k|
+          value = obj[k]
+          # Does the key refer to a class that we have parsed or loaded?
+          clazz = global.classs(k)
+          if clazz
+            # Yes so convert this value to an instance of that class
+            new_k, new_v = process_class global, k, value
+            # Replace the existing object with the new class instance and a new key
+            obj.delete k
+            obj[new_k] = new_v
+          end
+          # Recurse into the value in case it has contents that also refer to classes.
+          process global, value
+        end
+      end
+
+      # Convert the supplied object val into an instance of the class with key k
+      def self.process_class(global, k, v)
+        clazz = global.classs(k)
+        new_value = transform_to_class(clazz, global, v)
+
+        if v.is_a?(Array)
+          new_value = v if new_value.empty?
+        else
+          # Check the top class and do some type-specific processing
+          tc = top_class(clazz, global)
+          if tc == 'str'
+            new_value = v.to_s
+          elsif tc == 'num' && !v.is_a?(Numeric)
+            raise InterpreterError, 'Superclass of "' + clazz.id + '" is num - cannot assign String value "' + v.to_s + '"'
+          elsif tc == 'map'
+            if v.is_a? Hash
+              # Bring down values from the superclass hierarchy
+              new_value = copy_from_superclasses(clazz, global, new_value, v)
+            else
+              new_value[k] = v
+            end
+          else
+            new_value = v
+          end
+        end
+
+        process_nested_classes(global, new_value)
+        [clazz.name_or_id, new_value]
+      end
+
+      # Bring down values from the superclass hierarchy
+      def self.copy_from_superclasses(clazz, global, new_value, v)
+        new_value = v.merge(new_value)
+        depth = 0
+        loop do
+          clazz = global.classs(clazz.superclass)
+          break if clazz.nil? || depth > MAX_RECURSION_DEPTH
+
+          clazz.merge_content(new_value)
+          depth += 1
+        end
+        new_value
+      end
+
+      # Transfer the keys from val to the new_value object.
+      def self.copy_keys_to_new_value(new_value, val)
+        val.each do |value|
+          next unless value&.is_a?(Hash)
+
+          new_value.merge!(value)
+        end
+      end
+
+      # If the new_value has nested class references then process those recursively as well.
+      def self.process_nested_classes(global, new_value)
+        return unless new_value.is_a? Hash
+
+        new_value.keys.each do |nk|
+          clazz = global.classs(nk)
+          nv = new_value[nk]
+          next unless clazz # skip it if it doesn't refer to a class
+
+          if !nv.nil? && !nv.is_a?(String) && !nv.is_a?(Numeric)
+            new_k, new_v = process_class global, nk, nv
+          else
+            new_k = clazz.name_or_id
+            new_v = nv
+          end
+
+          # Replace the value for this key if we've changed anything.
+          if new_value[new_k] != new_v
+            new_value.delete nk
+            new_value[new_k] = new_v
+          end
+        end
+      end
+
+      # Process the *assign lists ('keylist' in this code) and any extra pairs defined by the class.
+      # The id, name, and superclass can be ignored here.
+      def self.transform_to_class(clazz, global, v)
+        new_value = {} # the replacement for val after conversion to a class instance
+
+        # Process the key list if we found one otherwise raise an error
+        # Slightly different processing for hashes and arrays
+        if v.is_a? Hash
+          keys = clazz.keylist_of_length(v.length)
+          lam = ->(i) {v[v.keys[i]]}
+        elsif v.is_a? Array
+          keys = clazz.keylist_of_length(v.length)
+          lam = ->(i) {v[i]}
+        end
+
+        keys&.each_index do |i|
+          new_value[keys[i]] = lam.call(i)
+        end
+
+        new_value.keys do |nk|
+          process_obj global, new_value[nk]
+        end
+
+        clazz.merge_content(new_value)
+      end
+
+      # Get the top level class for the supplied class
+      def self.top_class(clazz, global, depth = 0)
+        # Check for self-referential classes that cause infinite recursion
+        return if depth > MAX_RECURSION_DEPTH
+
+        superclass = clazz.superclass
+        c = global.classs(superclass)
+        return top_class(c, global, depth + 1) if c
+
+        superclass
+      end
+    end
+  end
+end