sweet-moon 0.0.2 → 0.0.3

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: 7bc6ba34912c2d5c9e26b95b385e4a992b186b6adbe81e40e0e6068cc363a948
-  data.tar.gz: 751f266193c94b533cf8f0b38f99745870688a2efd01e5277bb25d0aafe4b314
+  metadata.gz: 79d7b00c236a8ce4b85d6cb4230d7e4e9714b0e537199fa3445254c0577b5bfa
+  data.tar.gz: befd1ae3a4bcec8a274a256b5aab3c690cf876df1167531a896650b956e7dc58
 SHA512:
-  metadata.gz: 1fac3cd35cc1afd5cf1918f98326237203f9e12c631ccde66946a6496d24d90e69cf06a43413b1f58527c486f81f50098d7d866547389936becac5b6ba8eda84
-  data.tar.gz: e14b5c3eecbdeefa68747f4b2cf8377c0b99289783bfd5dd3eec5c295368bea65eca70be594f4272777cbd811ecdb6a3fef36ce73103349831072d44851a51bb
+  metadata.gz: 05ff924f37bab331deb03a55e21b968384fd7755cc38d8b4780b45ec5a14d21487df64df1dea2122c41ad4dedfb4e8013964e926a826537e713aa253b923be90
+  data.tar.gz: 8d1266390a693ef67f8bf5209eb5b2cf2b997bddb1e9f90ba5e2030fadd9ddf5819f2411099173b7a4528eafdcd09b7157675bcff77e3ca864fe600018085355

data/README.md

@@ -69,7 +69,7 @@ gem install sweet-moon
 > **Disclaimer:** It's an early-stage project, and you should expect breaking changes.
 
 ```ruby
-gem 'sweet-moon', '~> 0.0.2'
+gem 'sweet-moon', '~> 0.0.3'
 ```
 
 ```ruby

data/components/interpreters/50/function.rb

@@ -9,23 +9,26 @@ module Component
     Function = {
       push!: ->(api, state, closure) {
         handler = ->(current_state) {
-          input = Reader[:read_all!].(api, current_state)
+          updated_state = state.merge(lua: current_state)
+          input = Reader[:read_all!].(api, updated_state)
           result = closure.(*input)
-          Writer[:push!].(api, current_state, result)
+          Writer[:push!].(api, updated_state, result)
           return 1
         }
 
-        api.lua_pushcclosure(state, handler, 0)
+        state[:avoid_gc] << handler
+
+        api.lua_pushcclosure(state[:lua], handler, 0)
       },
 
       read!: ->(api, state, _stack_index) {
         reference = api.luaL_ref(
-          state, Logic::V50::Interpreter[:LUA_REGISTRYINDEX]
+          state[:lua], Logic::V50::Interpreter[:LUA_REGISTRYINDEX]
         )
 
         { value: ->(input = [], output = 1) {
           api.lua_rawgeti(
-            state, Logic::V50::Interpreter[:LUA_REGISTRYINDEX], reference
+            state[:lua], Logic::V50::Interpreter[:LUA_REGISTRYINDEX], reference
           )
 
           input.each do |value|

data/components/interpreters/50/interpreter.rb

@@ -11,28 +11,29 @@ module Component
 
       create_state!: ->(api) {
         state = api.lua_open
-        { state: state, error: state ? nil : :MemoryAllocation }
+        { state: { lua: state, avoid_gc: [] },
+          error: state ? nil : :MemoryAllocation }
       },
 
       open_standard_libraries!: ->(api, state) {
-        api.luaopen_base(state)
-        api.luaopen_table(state)
-        api.luaopen_io(state)
-        api.luaopen_string(state)
-        api.luaopen_math(state)
+        api.luaopen_base(state[:lua])
+        api.luaopen_table(state[:lua])
+        api.luaopen_io(state[:lua])
+        api.luaopen_string(state[:lua])
+        api.luaopen_math(state[:lua])
 
-        api.lua_settop(state, -7 - 1)
+        api.lua_settop(state[:lua], -7 - 1)
 
         { state: state }
       },
 
       load_file_and_push_chunck!: ->(api, state, path) {
-        result = api.luaL_loadfile(state, path)
+        result = api.luaL_loadfile(state[:lua], path)
         { state: state, error: Interpreter[:_error].(api, state, result, pull: true) }
       },
 
       push_chunk!: ->(api, state, value) {
-        result = api.luaL_loadbuffer(state, value, value.size, value)
+        result = api.luaL_loadbuffer(state[:lua], value, value.size, value)
 
         { state: state, error: Interpreter[:_error].(api, state, result, pull: true) }
       },
@@ -47,15 +48,15 @@ module Component
       },
 
       pop_and_set_as!: ->(api, state, variable) {
-        api.lua_pushstring(state, variable)
-        api.lua_insert(state, -2)
-        api.lua_settable(state, Logic::V50::Interpreter[:LUA_GLOBALSINDEX])
+        api.lua_pushstring(state[:lua], variable)
+        api.lua_insert(state[:lua], -2)
+        api.lua_settable(state[:lua], Logic::V50::Interpreter[:LUA_GLOBALSINDEX])
         { state: state }
       },
 
       get_variable_and_push!: ->(api, state, variable, key = nil) {
-        api.lua_pushstring(state, variable.to_s)
-        api.lua_gettable(state, Logic::V50::Interpreter[:LUA_GLOBALSINDEX])
+        api.lua_pushstring(state[:lua], variable.to_s)
+        api.lua_gettable(state[:lua], Logic::V50::Interpreter[:LUA_GLOBALSINDEX])
 
         Table[:read_field_and_push!].(api, state, key, -1) unless key.nil?
 
@@ -63,15 +64,15 @@ module Component
       },
 
       call!: ->(api, state, inputs = 0, outputs = 1) {
-        result = api.lua_pcall(state, inputs, outputs, 0)
+        result = api.lua_pcall(state[:lua], inputs, outputs, 0)
         { state: state, error: Interpreter[:_error].(api, state, result, pull: true) }
       },
 
       read_and_pop!: ->(api, state, stack_index = -1, extra_pop: false) {
         result = Component::V50::Reader[:read!].(api, state, stack_index)
 
-        api.lua_settop(state, -2) if result[:pop]
-        api.lua_settop(state, -2) if extra_pop
+        api.lua_settop(state[:lua], -2) if result[:pop]
+        api.lua_settop(state[:lua], -2) if extra_pop
 
         { state: state, output: result[:value] }
       },
@@ -83,9 +84,12 @@ module Component
       },
 
       destroy_state!: ->(api, state) {
-        result = api.lua_close(state)
+        result = api.lua_close(state[:lua])
 
-        { state: nil, error: Interpreter[:_error].(api, state, result) }
+        state.delete(:lua)
+        state.delete(:avoid_gc)
+
+        { state: nil, error: Interpreter[:_error].(api, nil, result) }
       },
 
       _error: ->(api, state, code, options = {}) {
@@ -94,7 +98,7 @@ module Component
         ] || :error
 
         if code.is_a?(Numeric) && code >= 1
-          return { status: status } unless options[:pull]
+          return { status: status } unless options[:pull] && state
 
           { status: status,
             value: Interpreter[:read_and_pop!].(api, state, -1)[:output] }

data/components/interpreters/50/reader.rb

@@ -8,15 +8,16 @@ module Component
   module V50
     Reader = {
       read_all!: ->(api, state) {
-        (1..api.lua_gettop(state)).map do
+        (1..api.lua_gettop(state[:lua])).map do
           Interpreter[:read_and_pop!].(api, state)[:output]
         end.reverse
       },
 
       read!: ->(api, state, stack_index = -1) {
-        stack_index = api.lua_gettop(state) if stack_index == -1
+        stack_index = api.lua_gettop(state[:lua]) if stack_index == -1
 
-        type = api.lua_typename(state, api.lua_type(state, stack_index)).read_string
+        type = api.lua_typename(state[:lua],
+                                api.lua_type(state[:lua], stack_index)).read_string
 
         case type
         when 'string'
@@ -36,29 +37,30 @@ module Component
         else
           # none nil boolean lightuserdata number
           # string table function userdata thread
-          { value: "#{type}: 0x#{api.lua_topointer(state, stack_index).address}",
+          { value:
+              "#{type}: 0x#{api.lua_topointer(state[:lua], stack_index).address}",
             type: type, pop: true }
         end
       },
 
       read_string!: ->(api, state, stack_index) {
-        { value: api.lua_tostring(state, stack_index).read_string,
+        { value: api.lua_tostring(state[:lua], stack_index).read_string,
           pop: true }
       },
 
       read_number!: ->(api, state, stack_index) {
         if api.respond_to?(:lua_isinteger) &&
            api.respond_to?(:lua_tointeger) &&
-           api.lua_isinteger(state, stack_index) == 1
+           api.lua_isinteger(state[:lua], stack_index) == 1
 
-          return { value: api.lua_tointeger(state, stack_index), pop: true }
+          return { value: api.lua_tointeger(state[:lua], stack_index), pop: true }
         end
 
-        { value: api.lua_tonumber(state, stack_index), pop: true }
+        { value: api.lua_tonumber(state[:lua], stack_index), pop: true }
       },
 
       read_boolean!: ->(api, state, stack_index) {
-        { value: api.lua_toboolean(state, stack_index) == 1, pop: true }
+        { value: api.lua_toboolean(state[:lua], stack_index) == 1, pop: true }
       }
     }
   end

data/components/interpreters/50/table.rb

@@ -7,40 +7,41 @@ module Component
   module V50
     Table = {
       push!: ->(api, state, list, stack_index = -1) {
-        stack_index = api.lua_gettop(state) if stack_index == -1
+        stack_index = api.lua_gettop(state[:lua]) if stack_index == -1
 
-        api.lua_newtable(state)
+        api.lua_newtable(state[:lua])
 
         if list.is_a? Hash
           list.each_key do |key|
             Writer[:push!].(api, state, key)
             Writer[:push!].(api, state, list[key])
-            api.lua_settable(state, stack_index + 1)
+            api.lua_settable(state[:lua], stack_index + 1)
           end
         else
           list.each_with_index do |value, index|
             Writer[:push!].(api, state, index + 1)
             Writer[:push!].(api, state, value)
-            api.lua_settable(state, stack_index + 1)
+            api.lua_settable(state[:lua], stack_index + 1)
           end
         end
       },
 
       read!: ->(api, state, stack_index) {
-        stack_index = api.lua_gettop(state) if stack_index == -1
+        stack_index = api.lua_gettop(state[:lua]) if stack_index == -1
 
-        type = api.lua_typename(state, api.lua_type(state, stack_index)).read_string
+        type = api.lua_typename(state[:lua],
+                                api.lua_type(state[:lua], stack_index)).read_string
 
-        api.lua_pushnil(state)
+        api.lua_pushnil(state[:lua])
 
         return nil if type != 'table'
 
         tuples = []
 
-        while api.lua_next(state, stack_index).positive?
+        while api.lua_next(state[:lua], stack_index).positive?
           value = Reader[:read!].(api, state, stack_index + 2)
           key = Reader[:read!].(api, state, stack_index + 1)
-          api.lua_settop(state, -2) if value[:pop]
+          api.lua_settop(state[:lua], -2) if value[:pop]
 
           tuples << [key[:value], value[:value]]
 
@@ -51,24 +52,25 @@ module Component
       },
 
       read_field_and_push!: ->(api, state, expected_key, stack_index) {
-        stack_index = api.lua_gettop(state) if stack_index == -1
+        stack_index = api.lua_gettop(state[:lua]) if stack_index == -1
 
-        type = api.lua_typename(state, api.lua_type(state, stack_index)).read_string
+        type = api.lua_typename(state[:lua],
+                                api.lua_type(state[:lua], stack_index)).read_string
 
-        api.lua_pushnil(state)
+        api.lua_pushnil(state[:lua])
 
         return nil if type != 'table'
 
         result = nil
 
-        while api.lua_next(state, stack_index).positive?
+        while api.lua_next(state[:lua], stack_index).positive?
           value = Reader[:read!].(api, state, stack_index + 2)
           key = Reader[:read!].(api, state, stack_index + 1)
 
-          api.lua_settop(state, -2) if value[:pop]
+          api.lua_settop(state[:lua], -2) if value[:pop]
 
           key_type = api.lua_typename(
-            state, api.lua_type(state, stack_index + 1)
+            state[:lua], api.lua_type(state[:lua], stack_index + 1)
           ).read_string
 
           if Table[:is_same_key].(key_type, key[:value], expected_key)
@@ -79,7 +81,7 @@ module Component
           break if value[:type] == 'no value'
         end
 
-        api.lua_settop(state, -2)
+        api.lua_settop(state[:lua], -2)
 
         Writer[:push!].(api, state, result)
       },

data/components/interpreters/50/writer.rb

@@ -7,26 +7,26 @@ module Component
       push!: ->(api, state, value) {
         case Writer[:_to_lua_type].(value)
         when 'string'
-          api.lua_pushstring(state, value.to_s)
+          api.lua_pushstring(state[:lua], value.to_s)
         when 'number'
-          api.lua_pushnumber(state, value)
+          api.lua_pushnumber(state[:lua], value)
         when 'integer'
           if api.respond_to? :lua_pushinteger
-            api.lua_pushinteger(state, value)
+            api.lua_pushinteger(state[:lua], value)
           else
-            api.lua_pushnumber(state, value)
+            api.lua_pushnumber(state[:lua], value)
           end
         when 'nil'
-          api.lua_pushnil(state)
+          api.lua_pushnil(state[:lua])
         when 'boolean'
-          api.lua_pushboolean(state, value ? 1 : 0)
+          api.lua_pushboolean(state[:lua], value ? 1 : 0)
         when 'table'
           Table[:push!].(api, state, value)
         when 'function'
           Function[:push!].(api, state, value)
         else
           api.lua_pushstring(
-            state, "#<#{value.class}:0x#{format('%016x', value.object_id)}>"
+            state[:lua], "#<#{value.class}:0x#{format('%016x', value.object_id)}>"
           )
         end
       },

data/components/interpreters/51/function.rb

@@ -9,23 +9,26 @@ module Component
     Function = {
       push!: ->(api, state, closure) {
         handler = ->(current_state) {
-          input = Reader[:read_all!].(api, current_state)
+          updated_state = state.merge(lua: current_state)
+          input = Reader[:read_all!].(api, updated_state)
           result = closure.(*input)
-          Writer[:push!].(api, current_state, result)
+          Writer[:push!].(api, updated_state, result)
           return 1
         }
 
-        api.lua_pushcclosure(state, handler, 0)
+        state[:avoid_gc] << handler
+
+        api.lua_pushcclosure(state[:lua], handler, 0)
       },
 
       read!: ->(api, state, _stack_index) {
         reference = api.luaL_ref(
-          state, Logic::V51::Interpreter[:LUA_REGISTRYINDEX]
+          state[:lua], Logic::V51::Interpreter[:LUA_REGISTRYINDEX]
         )
 
         { value: ->(input = [], output = 1) {
           api.lua_rawgeti(
-            state, Logic::V51::Interpreter[:LUA_REGISTRYINDEX], reference
+            state[:lua], Logic::V51::Interpreter[:LUA_REGISTRYINDEX], reference
           )
 
           input.each do |value|

data/components/interpreters/51/interpreter.rb

@@ -11,22 +11,23 @@ module Component
 
       create_state!: ->(api) {
         state = api.luaL_newstate
-        { state: state, error: state ? nil : :MemoryAllocation }
+        { state: { lua: state, avoid_gc: [] },
+          error: state ? nil : :MemoryAllocation }
       },
 
       open_standard_libraries!: ->(api, state) {
-        api.luaL_openlibs(state)
+        api.luaL_openlibs(state[:lua])
 
         { state: state }
       },
 
       load_file_and_push_chunck!: ->(api, state, path) {
-        result = api.luaL_loadfile(state, path)
+        result = api.luaL_loadfile(state[:lua], path)
         { state: state, error: Interpreter[:_error].(api, state, result, pull: true) }
       },
 
       push_chunk!: ->(api, state, value) {
-        result = api.luaL_loadstring(state, value)
+        result = api.luaL_loadstring(state[:lua], value)
         { state: state, error: Interpreter[:_error].(api, state, result, pull: true) }
       },
 
@@ -40,21 +41,22 @@ module Component
       },
 
       pop_and_set_as!: ->(api, state, variable) {
-        api.lua_pushstring(state, variable)
-        api.lua_insert(state, -2)
-        api.lua_settable(state, Logic::V51::Interpreter[:LUA_GLOBALSINDEX])
+        api.lua_pushstring(state[:lua], variable)
+        api.lua_insert(state[:lua], -2)
+        api.lua_settable(state[:lua], Logic::V51::Interpreter[:LUA_GLOBALSINDEX])
         { state: state }
       },
 
       get_variable_and_push!: ->(api, state, variable, key = nil) {
-        api.lua_pushstring(state, variable.to_s)
-        api.lua_gettable(state, Logic::V51::Interpreter[:LUA_GLOBALSINDEX])
+        api.lua_pushstring(state[:lua], variable.to_s)
+        api.lua_gettable(state[:lua], Logic::V51::Interpreter[:LUA_GLOBALSINDEX])
 
         unless key.nil?
-          if api.lua_typename(state, api.lua_type(state, -1)).read_string == 'table'
+          if api.lua_typename(state[:lua],
+                              api.lua_type(state[:lua], -1)).read_string == 'table'
             Table[:read_field!].(api, state, key, -1)
           else
-            api.lua_pushnil(state)
+            api.lua_pushnil(state[:lua])
           end
         end
 
@@ -62,15 +64,15 @@ module Component
       },
 
       call!: ->(api, state, inputs = 0, outputs = 1) {
-        result = api.lua_pcall(state, inputs, outputs, 0)
+        result = api.lua_pcall(state[:lua], inputs, outputs, 0)
         { state: state, error: Interpreter[:_error].(api, state, result, pull: true) }
       },
 
       read_and_pop!: ->(api, state, stack_index = -1, extra_pop: false) {
         result = Component::V51::Reader[:read!].(api, state, stack_index)
 
-        api.lua_settop(state, -2) if result[:pop]
-        api.lua_settop(state, -2) if extra_pop
+        api.lua_settop(state[:lua], -2) if result[:pop]
+        api.lua_settop(state[:lua], -2) if extra_pop
 
         { state: state, output: result[:value] }
       },
@@ -82,9 +84,12 @@ module Component
       },
 
       destroy_state!: ->(api, state) {
-        result = api.lua_close(state)
+        result = api.lua_close(state[:lua])
 
-        { state: nil, error: Interpreter[:_error].(api, state, result) }
+        state.delete(:lua)
+        state.delete(:avoid_gc)
+
+        { state: nil, error: Interpreter[:_error].(api, nil, result) }
       },
 
       _error: ->(api, state, code, options = {}) {
@@ -93,7 +98,7 @@ module Component
         ] || :error
 
         if code.is_a?(Numeric) && code >= 2
-          return { status: status } unless options[:pull]
+          return { status: status } unless options[:pull] && state
 
           { status: status,
             value: Interpreter[:read_and_pop!].(api, state, -1)[:output] }

data/components/interpreters/51/reader.rb

@@ -8,15 +8,16 @@ module Component
   module V51
     Reader = {
       read_all!: ->(api, state) {
-        (1..api.lua_gettop(state)).map do
+        (1..api.lua_gettop(state[:lua])).map do
           Interpreter[:read_and_pop!].(api, state)[:output]
         end.reverse
       },
 
       read!: ->(api, state, stack_index = -1) {
-        stack_index = api.lua_gettop(state) if stack_index == -1
+        stack_index = api.lua_gettop(state[:lua]) if stack_index == -1
 
-        type = api.lua_typename(state, api.lua_type(state, stack_index)).read_string
+        type = api.lua_typename(state[:lua],
+                                api.lua_type(state[:lua], stack_index)).read_string
 
         case type
         when 'string'
@@ -36,29 +37,30 @@ module Component
         else
           # none nil boolean lightuserdata number
           # string table function userdata thread
-          { value: "#{type}: 0x#{api.lua_topointer(state, stack_index).address}",
+          { value:
+              "#{type}: 0x#{api.lua_topointer(state[:lua], stack_index).address}",
             type: type, pop: true }
         end
       },
 
       read_string!: ->(api, state, stack_index) {
-        { value: api.lua_tostring(state, stack_index).read_string,
+        { value: api.lua_tostring(state[:lua], stack_index).read_string,
           pop: true }
       },
 
       read_number!: ->(api, state, stack_index) {
         if api.respond_to?(:lua_isinteger) &&
            api.respond_to?(:lua_tointeger) &&
-           api.lua_isinteger(state, stack_index) == 1
+           api.lua_isinteger(state[:lua], stack_index) == 1
 
-          return { value: api.lua_tointeger(state, stack_index), pop: true }
+          return { value: api.lua_tointeger(state[:lua], stack_index), pop: true }
         end
 
-        { value: api.lua_tonumber(state, stack_index), pop: true }
+        { value: api.lua_tonumber(state[:lua], stack_index), pop: true }
       },
 
       read_boolean!: ->(api, state, stack_index) {
-        { value: api.lua_toboolean(state, stack_index) == 1, pop: true }
+        { value: api.lua_toboolean(state[:lua], stack_index) == 1, pop: true }
       }
     }
   end

data/components/interpreters/51/table.rb

@@ -7,40 +7,41 @@ module Component
   module V51
     Table = {
       push!: ->(api, state, list, stack_index = -1) {
-        stack_index = api.lua_gettop(state) if stack_index == -1
+        stack_index = api.lua_gettop(state[:lua]) if stack_index == -1
 
-        api.lua_createtable(state, list.size, 0)
+        api.lua_createtable(state[:lua], list.size, 0)
 
         if list.is_a? Hash
           list.each_key do |key|
             Writer[:push!].(api, state, key)
             Writer[:push!].(api, state, list[key])
-            api.lua_settable(state, stack_index + 1)
+            api.lua_settable(state[:lua], stack_index + 1)
           end
         else
           list.each_with_index do |value, index|
             Writer[:push!].(api, state, index + 1)
             Writer[:push!].(api, state, value)
-            api.lua_settable(state, stack_index + 1)
+            api.lua_settable(state[:lua], stack_index + 1)
           end
         end
       },
 
       read!: ->(api, state, stack_index) {
-        stack_index = api.lua_gettop(state) if stack_index == -1
+        stack_index = api.lua_gettop(state[:lua]) if stack_index == -1
 
-        type = api.lua_typename(state, api.lua_type(state, stack_index)).read_string
+        type = api.lua_typename(state[:lua],
+                                api.lua_type(state[:lua], stack_index)).read_string
 
-        api.lua_pushnil(state)
+        api.lua_pushnil(state[:lua])
 
         return nil if type != 'table'
 
         tuples = []
 
-        while api.lua_next(state, stack_index).positive?
+        while api.lua_next(state[:lua], stack_index).positive?
           value = Reader[:read!].(api, state, stack_index + 2)
           key = Reader[:read!].(api, state, stack_index + 1)
-          api.lua_settop(state, -2) if value[:pop]
+          api.lua_settop(state[:lua], -2) if value[:pop]
 
           tuples << [key[:value], value[:value]]
 
@@ -53,7 +54,7 @@ module Component
       read_field!: ->(api, state, expected_key, stack_index) {
         expected_key = expected_key.to_s if expected_key.is_a? Symbol
 
-        api.lua_getfield(state, stack_index, expected_key)
+        api.lua_getfield(state[:lua], stack_index, expected_key)
       }
     }
   end

data/components/interpreters/51/writer.rb

@@ -7,26 +7,26 @@ module Component
       push!: ->(api, state, value) {
         case Writer[:_to_lua_type].(value)
         when 'string'
-          api.lua_pushstring(state, value.to_s)
+          api.lua_pushstring(state[:lua], value.to_s)
         when 'number'
-          api.lua_pushnumber(state, value)
+          api.lua_pushnumber(state[:lua], value)
         when 'integer'
           if api.respond_to? :lua_pushinteger
-            api.lua_pushinteger(state, value)
+            api.lua_pushinteger(state[:lua], value)
           else
-            api.lua_pushnumber(state, value)
+            api.lua_pushnumber(state[:lua], value)
           end
         when 'nil'
-          api.lua_pushnil(state)
+          api.lua_pushnil(state[:lua])
         when 'boolean'
-          api.lua_pushboolean(state, value ? 1 : 0)
+          api.lua_pushboolean(state[:lua], value ? 1 : 0)
         when 'table'
           Table[:push!].(api, state, value)
         when 'function'
           Function[:push!].(api, state, value)
         else
           api.lua_pushstring(
-            state, "#<#{value.class}:0x#{format('%016x', value.object_id)}>"
+            state[:lua], "#<#{value.class}:0x#{format('%016x', value.object_id)}>"
           )
         end
       },

data/components/interpreters/54/function.rb

@@ -9,23 +9,26 @@ module Component
     Function = {
       push!: ->(api, state, closure) {
         handler = ->(current_state) {
-          input = Reader[:read_all!].(api, current_state)
+          updated_state = state.merge(lua: current_state)
+          input = Reader[:read_all!].(api, updated_state)
           result = closure.(*input)
-          Writer[:push!].(api, current_state, result)
+          Writer[:push!].(api, updated_state, result)
           return 1
         }
 
-        api.lua_pushcclosure(state, handler, 0)
+        state[:avoid_gc] << handler
+
+        api.lua_pushcclosure(state[:lua], handler, 0)
       },
 
       read!: ->(api, state, _stack_index) {
         reference = api.luaL_ref(
-          state, Logic::V54::Interpreter[:LUA_REGISTRYINDEX]
+          state[:lua], Logic::V54::Interpreter[:LUA_REGISTRYINDEX]
         )
 
         { value: ->(input = [], output = 1) {
           api.lua_rawgeti(
-            state, Logic::V54::Interpreter[:LUA_REGISTRYINDEX], reference
+            state[:lua], Logic::V54::Interpreter[:LUA_REGISTRYINDEX], reference
           )
 
           input.each do |value|

data/components/interpreters/54/interpreter.rb

@@ -11,21 +11,22 @@ module Component
 
       create_state!: ->(api) {
         state = api.luaL_newstate
-        { state: state, error: state ? nil : :MemoryAllocation }
+        { state: { lua: state, avoid_gc: [] },
+          error: state ? nil : :MemoryAllocation }
       },
 
       open_standard_libraries!: ->(api, state) {
-        api.luaL_openlibs(state)
+        api.luaL_openlibs(state[:lua])
         { state: state }
       },
 
       load_file_and_push_chunck!: ->(api, state, path) {
-        result = api.luaL_loadfile(state, path)
+        result = api.luaL_loadfile(state[:lua], path)
         { state: state, error: Interpreter[:_error].(api, state, result, pull: true) }
       },
 
       push_chunk!: ->(api, state, value) {
-        result = api.luaL_loadstring(state, value)
+        result = api.luaL_loadstring(state[:lua], value)
         { state: state, error: Interpreter[:_error].(api, state, result, pull: true) }
       },
 
@@ -39,18 +40,19 @@ module Component
       },
 
       pop_and_set_as!: ->(api, state, variable) {
-        api.lua_setglobal(state, variable)
+        api.lua_setglobal(state[:lua], variable)
         { state: state }
       },
 
       get_variable_and_push!: ->(api, state, variable, key = nil) {
-        api.lua_getglobal(state, variable.to_s)
+        api.lua_getglobal(state[:lua], variable.to_s)
 
         unless key.nil?
-          if api.lua_typename(state, api.lua_type(state, -1)).read_string == 'table'
+          if api.lua_typename(state[:lua],
+                              api.lua_type(state[:lua], -1)).read_string == 'table'
             Table[:read_field!].(api, state, key, -1)
           else
-            api.lua_pushnil(state)
+            api.lua_pushnil(state[:lua])
           end
         end
 
@@ -58,15 +60,15 @@ module Component
       },
 
       call!: ->(api, state, inputs = 0, outputs = 1) {
-        result = api.lua_pcall(state, inputs, outputs, 0)
+        result = api.lua_pcall(state[:lua], inputs, outputs, 0)
         { state: state, error: Interpreter[:_error].(api, state, result, pull: true) }
       },
 
       read_and_pop!: ->(api, state, stack_index = -1, extra_pop: false) {
         result = Component::V54::Reader[:read!].(api, state, stack_index)
 
-        api.lua_settop(state, -2) if result[:pop]
-        api.lua_settop(state, -2) if extra_pop
+        api.lua_settop(state[:lua], -2) if result[:pop]
+        api.lua_settop(state[:lua], -2) if extra_pop
 
         { state: state, output: result[:value] }
       },
@@ -78,9 +80,12 @@ module Component
       },
 
       destroy_state!: ->(api, state) {
-        result = api.lua_close(state)
+        result = api.lua_close(state[:lua])
 
-        { state: nil, error: Interpreter[:_error].(api, state, result) }
+        state.delete(:lua)
+        state.delete(:avoid_gc)
+
+        { state: nil, error: Interpreter[:_error].(api, nil, result) }
       },
 
       _error: ->(api, state, code, options = {}) {
@@ -89,7 +94,7 @@ module Component
         ] || :error
 
         if code.is_a?(Numeric) && code >= 2
-          return { status: status } unless options[:pull]
+          return { status: status } unless options[:pull] && state
 
           { status: status,
             value: Interpreter[:read_and_pop!].(api, state, -1)[:output] }

data/components/interpreters/54/reader.rb

@@ -8,15 +8,16 @@ module Component
   module V54
     Reader = {
       read_all!: ->(api, state) {
-        (1..api.lua_gettop(state)).map do
+        (1..api.lua_gettop(state[:lua])).map do
           Interpreter[:read_and_pop!].(api, state)[:output]
         end.reverse
       },
 
       read!: ->(api, state, stack_index = -1) {
-        stack_index = api.lua_gettop(state) if stack_index == -1
+        stack_index = api.lua_gettop(state[:lua]) if stack_index == -1
 
-        type = api.lua_typename(state, api.lua_type(state, stack_index)).read_string
+        type = api.lua_typename(state[:lua],
+                                api.lua_type(state[:lua], stack_index)).read_string
 
         case type
         when 'string'
@@ -36,29 +37,30 @@ module Component
         else
           # none nil boolean lightuserdata number
           # string table function userdata thread
-          { value: "#{type}: 0x#{api.lua_topointer(state, stack_index).address}",
+          { value:
+              "#{type}: 0x#{api.lua_topointer(state[:lua], stack_index).address}",
             type: type, pop: true }
         end
       },
 
       read_string!: ->(api, state, stack_index) {
-        { value: api.lua_tostring(state, stack_index).read_string,
+        { value: api.lua_tostring(state[:lua], stack_index).read_string,
           pop: true }
       },
 
       read_number!: ->(api, state, stack_index) {
         if api.respond_to?(:lua_isinteger) &&
            api.respond_to?(:lua_tointeger) &&
-           api.lua_isinteger(state, stack_index) == 1
+           api.lua_isinteger(state[:lua], stack_index) == 1
 
-          return { value: api.lua_tointeger(state, stack_index), pop: true }
+          return { value: api.lua_tointeger(state[:lua], stack_index), pop: true }
         end
 
-        { value: api.lua_tonumber(state, stack_index), pop: true }
+        { value: api.lua_tonumber(state[:lua], stack_index), pop: true }
       },
 
       read_boolean!: ->(api, state, stack_index) {
-        { value: api.lua_toboolean(state, stack_index) == 1, pop: true }
+        { value: api.lua_toboolean(state[:lua], stack_index) == 1, pop: true }
       }
     }
   end

data/components/interpreters/54/table.rb

@@ -7,40 +7,41 @@ module Component
   module V54
     Table = {
       push!: ->(api, state, list, stack_index = -1) {
-        stack_index = api.lua_gettop(state) if stack_index == -1
+        stack_index = api.lua_gettop(state[:lua]) if stack_index == -1
 
-        api.lua_createtable(state, list.size, 0)
+        api.lua_createtable(state[:lua], list.size, 0)
 
         if list.is_a? Hash
           list.each_key do |key|
             Writer[:push!].(api, state, key)
             Writer[:push!].(api, state, list[key])
-            api.lua_settable(state, stack_index + 1)
+            api.lua_settable(state[:lua], stack_index + 1)
           end
         else
           list.each_with_index do |value, index|
             Writer[:push!].(api, state, index + 1)
             Writer[:push!].(api, state, value)
-            api.lua_settable(state, stack_index + 1)
+            api.lua_settable(state[:lua], stack_index + 1)
           end
         end
       },
 
       read!: ->(api, state, stack_index) {
-        stack_index = api.lua_gettop(state) if stack_index == -1
+        stack_index = api.lua_gettop(state[:lua]) if stack_index == -1
 
-        type = api.lua_typename(state, api.lua_type(state, stack_index)).read_string
+        type = api.lua_typename(state[:lua],
+                                api.lua_type(state[:lua], stack_index)).read_string
 
-        api.lua_pushnil(state)
+        api.lua_pushnil(state[:lua])
 
         return nil if type != 'table'
 
         tuples = []
 
-        while api.lua_next(state, stack_index).positive?
+        while api.lua_next(state[:lua], stack_index).positive?
           value = Reader[:read!].(api, state, stack_index + 2)
           key = Reader[:read!].(api, state, stack_index + 1)
-          api.lua_settop(state, -2) if value[:pop]
+          api.lua_settop(state[:lua], -2) if value[:pop]
 
           tuples << [key[:value], value[:value]]
 
@@ -53,7 +54,7 @@ module Component
       read_field!: ->(api, state, expected_key, stack_index) {
         expected_key = expected_key.to_s if expected_key.is_a? Symbol
 
-        api.lua_getfield(state, stack_index, expected_key)
+        api.lua_getfield(state[:lua], stack_index, expected_key)
       }
     }
   end

data/components/interpreters/54/writer.rb

@@ -7,26 +7,26 @@ module Component
       push!: ->(api, state, value) {
         case Writer[:_to_lua_type].(value)
         when 'string'
-          api.lua_pushstring(state, value.to_s)
+          api.lua_pushstring(state[:lua], value.to_s)
         when 'number'
-          api.lua_pushnumber(state, value)
+          api.lua_pushnumber(state[:lua], value)
         when 'integer'
           if api.respond_to? :lua_pushinteger
-            api.lua_pushinteger(state, value)
+            api.lua_pushinteger(state[:lua], value)
           else
-            api.lua_pushnumber(state, value)
+            api.lua_pushnumber(state[:lua], value)
           end
         when 'nil'
-          api.lua_pushnil(state)
+          api.lua_pushnil(state[:lua])
         when 'boolean'
-          api.lua_pushboolean(state, value ? 1 : 0)
+          api.lua_pushboolean(state[:lua], value ? 1 : 0)
         when 'table'
           Table[:push!].(api, state, value)
         when 'function'
           Function[:push!].(api, state, value)
         else
           api.lua_pushstring(
-            state, "#<#{value.class}:0x#{format('%016x', value.object_id)}>"
+            state[:lua], "#<#{value.class}:0x#{format('%016x', value.object_id)}>"
           )
         end
       },

data/config/tests.sample.yml

@@ -1,9 +1,11 @@
 # Available at https://github.com/gbaptista/sweet-moon-test
 
 luarocks:
-  - /home/me/.luarocks/share/lua/5.4/?.lua
-  - /home/me/.luarocks/share/lua/5.4/?/init.lua
-  - /home/me/.luarocks/lib/lua/5.4/?.so
+  path:
+    - /home/me/.luarocks/share/lua/5.4/?.lua
+    - /home/me/.luarocks/share/lua/5.4/?/init.lua
+    - /home/me/.luarocks/lib/lua/5.4/?.so
+  expected: ['supernova', 'dkjson', 'lfs']
 
 jit:2.0.5:
   description: 'Lua Jit 2.0.5 + Fennel 1.0.0'

data/logic/spec.rb

@@ -2,7 +2,7 @@ module Logic
   Spec = {
     name: 'sweet-moon',
     command: 'sweet-moon',
-    version: '0.0.2',
+    version: '0.0.3',
     author: 'gbaptista',
     summary: 'Lua / Fennel from Ruby and vice versa. Support to LuaJIT, Lua 5.0, ' \
              'and 5.1. Lua C API for Lua 5, 4, and 3. LuaRocks and fnx integration.',

metadata

@@ -1,14 +1,14 @@
 --- !ruby/object:Gem::Specification
 name: sweet-moon
 version: !ruby/object:Gem::Version
-  version: 0.0.2
+  version: 0.0.3
 platform: ruby
 authors:
 - gbaptista
 autorequire:
 bindir: ports/in/shell
 cert_chain: []
-date: 2022-03-22 00:00:00.000000000 Z
+date: 2022-03-23 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: ffi