ruby2js 3.5.1 → 4.0.0

data/lib/ruby2js/converter/dstr.rb

@@ -10,6 +10,11 @@ module Ruby2JS
     #   (...))
 
     handle :dstr, :dsym do |*children|
+      if @state == :expression and children.empty?
+        puts '""'
+        return
+      end
+
       if es2015
         # gather length of string parts; if long enough, newlines will
         # not be escaped (poor man's HEREDOC)
@@ -26,7 +31,7 @@ module Ruby2JS
             else
               put str
             end
-          else
+          elsif child != s(:begin)
             put '${'
             parse child
             put '}'
@@ -40,8 +45,8 @@ module Ruby2JS
       children.each_with_index do |child, index|
         put ' + ' unless index == 0
 
-        if child.type == :begin and child.children.length == 1
-          child = child.children.first
+        if child.type == :begin and child.children.length <= 1
+          child = child.children.first || s(:str, '')
         end
 
         if child.type == :send

data/lib/ruby2js/converter/hash.rb

@@ -73,7 +73,7 @@ module Ruby2JS
               if right.type == :hash
                 right.children.each do |pair|
                   next unless Parser::AST::Node === pair.children.last
-                  if [:block, :def, :async].include? pair.children.last.type
+                  if %i[block def defm async].include? pair.children.last.type
                     if @comments[pair.children.last]
                       (puts ''; singleton = false) if singleton
                       comments(pair.children.last).each do |comment|
@@ -120,22 +120,26 @@ module Ruby2JS
 
               if \
                 anonfn and 
-                left.children.first.to_s =~ /\A[a-zA-Z_$][a-zA-Z_$0-9]*\Z/
+                left.children.first.to_s =~ /\A[a-zA-Z_$][a-zA-Z_$0-9]*\z/
               then
                 @prop = left.children.first
                 parse right, :method
               elsif \
-                es2015 and left.type == :sym and right.type == :lvar and
-                left.children == right.children
+                es2015 and left.type == :sym and (right.type == :lvar or 
+                (right.type == :send and right.children.first == nil)) and
+                left.children.last == right.children.last
               then
                 parse right 
+              elsif right.type == :defm and %i[sym str].include? left.type and es2015
+                @prop = left.children.first.to_s
+                parse right
               else
 		if not [:str, :sym].include? left.type and es2015
 		  put '['
 		  parse left
 		  put ']'
 		elsif \
-		  left.children.first.to_s =~ /\A[a-zA-Z_$][a-zA-Z_$0-9]*\Z/
+		  left.children.first.to_s =~ /\A[a-zA-Z_$][a-zA-Z_$0-9]*\z/
 		then
 		  put left.children.first
 		else

data/lib/ruby2js/converter/hide.rb

@@ -0,0 +1,13 @@
+module Ruby2JS
+  class Converter
+
+    # (hide, ...)
+
+    handle :hide do |*nodes|
+      capture {parse_all(*nodes)}
+
+      @lines.pop if @state == :statement and @lines.last == []
+      @lines.last.pop if @lines.last.last == @sep
+    end
+  end
+end

data/lib/ruby2js/converter/if.rb

@@ -64,10 +64,18 @@ module Ruby2JS
           if else_block.type == :begin
             else_block = s(:xnode, '', *else_block.children)
           end
+        else
+          if then_block.type == :begin
+            then_block = s(:kwbegin, then_block)
+          end
+
+          if else_block.type == :begin
+            else_block = s(:kwbegin, else_block)
+          end
         end
 
-        parse condition; put ' ? '; parse then_block
-        put ' : '; parse else_block
+        parse condition; put ' ? '; parse then_block, @state
+        put ' : '; parse else_block, @state
       end
     end
   end

data/lib/ruby2js/converter/import.rb

@@ -6,20 +6,51 @@ module Ruby2JS
     # NOTE: import is a synthetic 
 
     handle :import do |path, *args|
+      if module_type == :cjs
+        # only the subset of import syntaxes generated by filters are handled here
+        if Parser::AST::Node === args.first and args.first.type == :attr
+          return parse s(:casgn, *args.first.children, 
+            s(:send, nil, :require, s(:str, Array(path).first))), :statement
+        elsif Array === args.first and args.first.length == 1
+          target = args.first.first
+          if Parser::AST::Node === target and target.type == :attr and target.children.first == nil
+            return parse s(:casgn, *target.children, 
+              s(:attr, s(:send, nil, :require, s(:str, Array(path).first)), target.children.last)),
+              :statement
+          end
+        end
+      end
+
       put 'import '
+
       if args.length == 0
         # import "file.css"
         put path.inspect
       else
         # import (x) from "file.js"
-        default_import = !args.first.is_a?(Array) && [:const, :send, :attr].include?(args.first.type)
+        default_import = !args.first.is_a?(Array) && %i[const send attr str].include?(args.first.type)
+
+        if default_import and args.length > 1
+          parse args.shift
+          put ', '
+          default_import = false
+        end
+
         args = args.first if args.first.is_a?(Array)
 
+        if args.first.type == :array
+          args = args.first.children
+        end
+
         # handle the default name or { ConstA, Const B } portion
         put "{ " unless default_import
         args.each_with_index do |arg, index|
           put ', ' unless index == 0
-          parse arg
+          if arg.type == :str
+            put arg.children.first # useful for '*'
+          else
+            parse arg
+          end
         end
         put " }" unless default_import
 
@@ -27,7 +58,7 @@ module Ruby2JS
 
         # should there be an as clause? e.g., import React as *
         if path.is_a?(Array) && !path[0].is_a?(String) && path[0].type == :pair && path[0].children[0].children[0] == :as
-          put " as #{path[0].children[1].children[0]}"
+          put " as #{path[0].children[1].children.last}"
 
           # advance to the next kwarg, aka from
           from_kwarg_position = 1
@@ -66,7 +97,7 @@ module Ruby2JS
       elsif node.respond_to?(:type) && node.children[1] == :default
         put 'default '
         args[0] = node.children[2]
-      elsif node.respond_to?(:type) && node.type == :lvasgn
+      elsif node.respond_to?(:type) && [:lvasgn, :casgn].include?(node.type)
         if node.children[0] == :default
           put 'default '
           args[0] = node.children[1]

data/lib/ruby2js/converter/kwbegin.rb

@@ -6,7 +6,7 @@ module Ruby2JS
     #     (resbody nil nil
     #       (send nil :b)) nil)
     handle :rescue do |*statements|
-      parse_all s(:kwbegin, s(:rescue, *statements))
+      parse s(:kwbegin, s(:rescue, *statements)), @state
     end
 
     # (kwbegin
@@ -19,7 +19,14 @@ module Ruby2JS
 
     handle :kwbegin do |*children|
       block = children.first
-      if block.type == :ensure
+
+      if @state == :expression
+        parse s(:send, s(:block, s(:send, nil, :proc), s(:args),
+          s(:begin, s(:autoreturn, *children))), :[])
+        return
+      end
+
+      if block&.type == :ensure
         block, finally = block.children
       else
         finally = nil

data/lib/ruby2js/converter/literal.rb

@@ -5,12 +5,24 @@ module Ruby2JS
     # (float 1.1)
     # (str "1"))
 
-    handle :int, :float, :str do |value|
+    handle :str do |value|
       put value.inspect
     end
 
+    handle :int, :float do |value|
+      put number_format(value)
+    end
+
     handle :octal do |value|
-      put '0' + value.to_s(8)
+      put '0' + number_format(value.to_s(8))
+    end
+
+    def number_format(number)
+      return number.to_s unless es2021
+      parts = number.to_s.split('.')
+      parts[0] = parts[0].gsub(/(\d)(?=(\d\d\d)+(?!\d))/, "\\1_")
+      parts[1] = parts[1].gsub(/(\d\d\d)(?=\d)/, "\\1_") if parts[1]
+      parts.join('.')
     end
   end
 end

data/lib/ruby2js/converter/module.rb

@@ -4,14 +4,43 @@ module Ruby2JS
     # (module
     #   (const nil :A)
     #   (...)
+    #
+    #   Note: modules_hash is an anonymous modules as a value in a hash; the
+    #         name has already been output so should be ignored other than
+    #         in determining the namespace.
+
+    handle :module, :module_hash do |name, *body|
+      extend = @namespace.enter(name)
+
+      if body == [nil]
+        if @ast.type == :module and not extend
+          parse @ast.updated(:casgn, [*name.children, s(:hash)])
+        else
+          parse @ast.updated(:hash, [])
+        end
+
+        @namespace.leave
+        return
+      end
 
-    handle :module do |name, *body|
       while body.length == 1 and body.first.type == :begin
         body = body.first.children
       end
 
-      if body.length > 0 and body.all? {|child| child.type == :def}
-        parse @ast.updated(:class_module, [name, nil, *body])
+      if body.length > 0 and body.all? {|child| 
+        %i[def module].include? child.type or
+        (es2015 and child.type == :class and child.children[1] == nil)}
+
+        if extend
+          parse s(:assign, name, @ast.updated(:class_module, 
+            [nil, nil, *body])), :statement
+        elsif @ast.type == :module_hash
+          parse @ast.updated(:class_module, [nil, nil, *body])
+        else
+          parse @ast.updated(:class_module, [name, nil, *body])
+        end
+
+        @namespace.leave
         return
       end
 
@@ -42,6 +71,8 @@ module Ruby2JS
           symbols << node.children.first
         elsif node.type == :class and node.children.first.children.first == nil
           symbols << node.children.first.children.last
+        elsif node.type == :module
+          symbols << node.children.first.children.last
         end
       end
 
@@ -50,11 +81,17 @@ module Ruby2JS
 
       body = s(:send, s(:block, s(:send, nil, :proc), s(:args),
         s(:begin, *body)), :[])
-      if name.children.first == nil
+      if not name
+        parse body
+      elsif extend
+        parse s(:assign, name, body)
+      elsif name.children.first == nil
         parse s(:lvasgn, name.children.last, body)
       else
         parse s(:send, name.children.first, "#{name.children.last}=", body)
       end
+
+      @namespace.leave
     end
   end
 end

data/lib/ruby2js/converter/opasgn.rb

@@ -12,6 +12,14 @@ module Ruby2JS
       var = s(:lvar, var.children.first) if var.type == :lvasgn
       var = s(:cvar, var.children.first) if var.type == :cvasgn
 
+      if var.type == :lvar
+        name = var.children.first
+        receiver = @rbstack.map {|rb| rb[name]}.compact.last
+        if receiver
+          var = s(:attr, nil, name)
+        end
+      end
+
       if \
         [:+, :-].include?(op) and value.type==:int and 
         (value.children==[1] or value.children==[-1])

data/lib/ruby2js/converter/send.rb

@@ -9,11 +9,12 @@ module Ruby2JS
     # (sendw nil :puts
     #   (int 1))
 
-    # Note: attr, sendw, and await are only generated by filters.  Attr forces
+    # Note: attr, sendw, send!, and await are only generated by filters.  Attr forces
     # interpretation as an attribute vs a function call with zero parameters.
+    # send! forces interpretation as a method call even with zero parameters.
     # Sendw forces parameters to be placed on separate lines.
 
-    handle :send, :sendw, :await, :attr, :call do |receiver, method, *args|
+    handle :send, :sendw, :send!, :await, :attr, :call do |receiver, method, *args|
       ast = @ast
 
       if \
@@ -40,6 +41,20 @@ module Ruby2JS
       # strip '!' and '?' decorations
       method = method.to_s[0..-2] if method =~ /\w[!?]$/
 
+      # anonymous class
+      if method == :new and receiver and receiver.children == [nil, :Class] and
+        args.last.type == :def and args.last.children.first == nil
+
+        parent = (args.length > 1) ? args.first : nil
+
+        if es2015
+          return parse s(:class2, nil, parent, *args.last.children[2..-1])
+        else
+          return parse s(:kwbegin, s(:class, s(:const, nil, :$$), parent,
+            *args.last.children[2..-1]), s(:const, nil, :$$))
+        end
+      end
+
       # three ways to define anonymous functions
       if method == :new and receiver and receiver.children == [nil, :Proc]
         return parse args.first, @state
@@ -117,8 +132,13 @@ module Ruby2JS
 
       # resolve anonymous receivers against rbstack
       receiver ||= @rbstack.map {|rb| rb[method]}.compact.last
+      autobind = nil
 
       if receiver
+        if receiver.type == :autobind
+          autobind = receiver = receiver.children.first
+        end
+
         group_receiver = receiver.type == :send &&
           op_index < operator_index( receiver.children[1] ) if receiver
         group_receiver ||= GROUP_OPERATORS.include? receiver.type
@@ -175,9 +195,15 @@ module Ruby2JS
           receiver.type == :send and
           receiver.children[1] == :+@ and
           Parser::AST::Node === receiver.children[0] and
-          receiver.children[0].type == :class
+          %i(class module).include? receiver.children[0].type
         then
-          parse receiver.children[0].updated(:class_extend)
+          if receiver.children[0].type == :class
+            parse receiver.children[0].updated(:class_extend)
+          else
+            mod = receiver.children[0]
+            parse s(:assign, mod.children[0],
+              mod.updated(nil, [nil, *mod.children[1..-1]]))
+          end
         else
           put method.to_s[0]; parse receiver
         end
@@ -280,7 +306,13 @@ module Ruby2JS
       else
         put 'await ' if @ast.type == :await
 
-        if not ast.is_method?
+        if method == :bind and receiver&.type == :send
+          if receiver.children.length == 2 and receiver.children.first == nil
+            receiver = receiver.updated(:attr) # prevent autobind
+          end
+        end
+
+        if not ast.is_method? and ast.type != :send!
           if receiver
             (group_receiver ? group(receiver) : parse(receiver))
             put ".#{ method }"
@@ -302,6 +334,14 @@ module Ruby2JS
             compact { puts "("; parse_all(*args, join: ",#@ws"); sput ')' }
           end
         end
+
+        if autobind and not ast.is_method? and ast.type != :attr
+          if @state == :statement
+            put '()'
+          else
+            put '.bind('; parse(autobind); put ')'
+          end
+        end
       end
     end
 

data/lib/ruby2js/converter/vasgn.rb

@@ -8,6 +8,11 @@ module Ruby2JS
     #   (int 1))
 
     handle :lvasgn, :gvasgn do |name, value=nil|
+      if @ast.type == :lvasgn and value
+        receiver = @rbstack.map {|rb| rb[name]}.compact.last
+        return parse s(:attr, receiver, "#{name}=", value) if receiver
+      end
+
       state  = @state
       begin
         if value and value.type == :lvasgn and @state == :statement

data/lib/ruby2js/converter/xstr.rb

@@ -10,7 +10,7 @@ module Ruby2JS
       if @binding
         puts @binding.eval(str).to_s
       else
-        puts eval(str).to_s
+        raise SecurityError.new('Insecure operation, eval without binding option')
       end
     end
   end

data/lib/ruby2js/demo.rb

@@ -0,0 +1,53 @@
+# helper methods shared between MRI CGI/server and Opal implementations
+require 'ruby2js'
+
+module Ruby2JS
+  module Demo
+    def self.parse_autoimports(mappings)
+      autoimports = {}
+
+      mappings = mappings.gsub(/\s+|"|'/, '')
+
+      while mappings and not mappings.empty?
+        if mappings =~ /^(\w+):([^,]+)(,(.*))?$/
+          # symbol: module
+          autoimports[$1.to_sym] = $2
+          mappings = $4
+        elsif mappings =~ /^\[([\w,]+)\]:([^,]+)(,(.*))?$/
+          # [symbol, symbol]: module
+          mname, mappings = $2, $4
+          autoimports[$1.split(/,/).map(&:to_sym)] = mname
+        elsif mappings =~ /^(\w+)(,(.*))?$/
+          # symbol
+          autoimports[$1.to_sym] = $1
+          mappings = $3
+        elsif not mappings.empty?
+          $load_error = "unsupported autoimports mapping: #{mappings}"
+          mappings = ''
+        end
+      end
+
+      # if nothing is listed, provide a mapping for everything
+      autoimports = proc {|name| name.to_s} if autoimports.empty?
+
+      autoimports
+    end
+
+    def self.parse_defs(mappings)
+      defs = {}
+
+      mappings = mappings.gsub(/\s+|"|'/, '')
+
+      while mappings =~ /^(\w+):\[(:?@?\w+(,:?@?\w+)*)\](,(.*))?$/
+        mappings = $5
+        defs[$1.to_sym] = $2.gsub(':', '').split(',').map(&:to_sym)
+      end
+
+      if mappings and not mappings.empty?
+        $load_error = "unsupported defs: #{mappings}"
+      end
+
+      defs
+    end
+  end
+end