sweet-moon 0.0.4 → 0.0.7

Sign up to get free protection for your applications and to get access to all the features.
@@ -1,67 +1,7 @@
1
- require 'ffi'
2
-
3
- require_relative 'interpreter'
4
- require_relative 'function'
5
- require_relative 'table'
1
+ require_relative '../54/reader'
6
2
 
7
3
  module Component
8
4
  module V50
9
- Reader = {
10
- read_all!: ->(api, state) {
11
- (1..api.lua_gettop(state[:lua])).map do
12
- Interpreter[:read_and_pop!].(api, state)[:output]
13
- end.reverse
14
- },
15
-
16
- read!: ->(api, state, stack_index = -1) {
17
- stack_index = api.lua_gettop(state[:lua]) if stack_index == -1
18
-
19
- type = api.lua_typename(state[:lua],
20
- api.lua_type(state[:lua], stack_index)).read_string
21
-
22
- case type
23
- when 'string'
24
- Reader[:read_string!].(api, state, stack_index)
25
- when 'number'
26
- Reader[:read_number!].(api, state, stack_index)
27
- when 'no value'
28
- { value: nil, pop: true, type: type }
29
- when 'nil'
30
- { value: nil, pop: true }
31
- when 'boolean'
32
- Reader[:read_boolean!].(api, state, stack_index)
33
- when 'table'
34
- Table[:read!].(api, state, stack_index)
35
- when 'function'
36
- Function[:read!].(api, state, stack_index)
37
- else
38
- # none nil boolean lightuserdata number
39
- # string table function userdata thread
40
- { value:
41
- "#{type}: 0x#{api.lua_topointer(state[:lua], stack_index).address}",
42
- type: type, pop: true }
43
- end
44
- },
45
-
46
- read_string!: ->(api, state, stack_index) {
47
- { value: api.lua_tostring(state[:lua], stack_index).read_string,
48
- pop: true }
49
- },
50
-
51
- read_number!: ->(api, state, stack_index) {
52
- if api.respond_to?(:lua_isinteger) &&
53
- api.respond_to?(:lua_tointeger) &&
54
- api.lua_isinteger(state[:lua], stack_index) == 1
55
-
56
- return { value: api.lua_tointeger(state[:lua], stack_index), pop: true }
57
- end
58
-
59
- { value: api.lua_tonumber(state[:lua], stack_index), pop: true }
60
- },
61
-
62
- read_boolean!: ->(api, state, stack_index) {
63
- { value: api.lua_toboolean(state[:lua], stack_index) == 1, pop: true }
64
- }
65
- }
5
+ Reader = Component::V54::Reader
66
6
  end
67
7
  end
@@ -6,56 +6,19 @@ require_relative 'reader'
6
6
  module Component
7
7
  module V50
8
8
  Table = {
9
- push!: ->(api, state, list, stack_index = -1) {
10
- stack_index = api.lua_gettop(state[:lua]) if stack_index == -1
11
-
9
+ create_table!: ->(api, state, _list) {
12
10
  api.lua_newtable(state[:lua])
13
-
14
- if list.is_a? Hash
15
- list.each_key do |key|
16
- Writer[:push!].(api, state, key)
17
- Writer[:push!].(api, state, list[key])
18
- api.lua_settable(state[:lua], stack_index + 1)
19
- end
20
- else
21
- list.each_with_index do |value, index|
22
- Writer[:push!].(api, state, index + 1)
23
- Writer[:push!].(api, state, value)
24
- api.lua_settable(state[:lua], stack_index + 1)
25
- end
26
- end
27
11
  },
28
12
 
29
- read!: ->(api, state, stack_index) {
30
- stack_index = api.lua_gettop(state[:lua]) if stack_index == -1
31
-
32
- type = api.lua_typename(state[:lua],
33
- api.lua_type(state[:lua], stack_index)).read_string
34
-
35
- api.lua_pushnil(state[:lua])
36
-
37
- return nil if type != 'table'
38
-
39
- tuples = []
40
-
41
- while api.lua_next(state[:lua], stack_index).positive?
42
- value = Reader[:read!].(api, state, stack_index + 2)
43
- key = Reader[:read!].(api, state, stack_index + 1)
44
- api.lua_settop(state[:lua], -2) if value[:pop]
45
-
46
- tuples << [key[:value], value[:value]]
47
-
48
- break if value[:type] == 'no value' || key[:value].instance_of?(Proc)
49
- end
50
-
51
- { value: Logic::Tables[:to_hash_or_array].(tuples), pop: true }
52
- },
13
+ push!: Component::V54::Table[:push!],
14
+ read!: Component::V54::Table[:read!],
53
15
 
54
- read_field_and_push!: ->(api, state, expected_key, stack_index) {
16
+ read_field_and_push!: ->(api, state, component, expected_key, stack_index) {
55
17
  stack_index = api.lua_gettop(state[:lua]) if stack_index == -1
56
18
 
57
- type = api.lua_typename(state[:lua],
58
- api.lua_type(state[:lua], stack_index)).read_string
19
+ type = api.lua_typename(
20
+ state[:lua], api.lua_type(state[:lua], stack_index)
21
+ ).read_string
59
22
 
60
23
  api.lua_pushnil(state[:lua])
61
24
 
@@ -64,8 +27,8 @@ module Component
64
27
  result = nil
65
28
 
66
29
  while api.lua_next(state[:lua], stack_index).positive?
67
- value = Reader[:read!].(api, state, stack_index + 2)
68
- key = Reader[:read!].(api, state, stack_index + 1)
30
+ value = component::Reader[:read!].(api, state, component, stack_index + 2)
31
+ key = component::Reader[:read!].(api, state, component, stack_index + 1)
69
32
 
70
33
  api.lua_settop(state[:lua], -2) if value[:pop]
71
34
 
@@ -73,7 +36,7 @@ module Component
73
36
  state[:lua], api.lua_type(state[:lua], stack_index + 1)
74
37
  ).read_string
75
38
 
76
- if Table[:is_same_key].(key_type, key[:value], expected_key)
39
+ if component::Table[:is_same_key].(key_type, key[:value], expected_key)
77
40
  result = value[:value]
78
41
  break
79
42
  end
@@ -83,7 +46,7 @@ module Component
83
46
 
84
47
  api.lua_settop(state[:lua], -2)
85
48
 
86
- Writer[:push!].(api, state, result)
49
+ component::Writer[:push!].(api, state, component, result)
87
50
  },
88
51
 
89
52
  is_same_key: ->(lua_key_type, lua_key, ruby_key) {
@@ -1,45 +1,7 @@
1
- require_relative 'function'
2
- require_relative 'table'
1
+ require_relative '../54/writer'
3
2
 
4
3
  module Component
5
4
  module V50
6
- Writer = {
7
- push!: ->(api, state, value) {
8
- case Writer[:_to_lua_type].(value)
9
- when 'string'
10
- api.lua_pushstring(state[:lua], value.to_s)
11
- when 'number'
12
- api.lua_pushnumber(state[:lua], value)
13
- when 'integer'
14
- if api.respond_to? :lua_pushinteger
15
- api.lua_pushinteger(state[:lua], value)
16
- else
17
- api.lua_pushnumber(state[:lua], value)
18
- end
19
- when 'nil'
20
- api.lua_pushnil(state[:lua])
21
- when 'boolean'
22
- api.lua_pushboolean(state[:lua], value ? 1 : 0)
23
- when 'table'
24
- Table[:push!].(api, state, value)
25
- when 'function'
26
- Function[:push!].(api, state, value)
27
- else
28
- api.lua_pushstring(
29
- state[:lua], "#<#{value.class}:0x#{format('%016x', value.object_id)}>"
30
- )
31
- end
32
- },
33
-
34
- _to_lua_type: ->(value) {
35
- return 'nil' if value.nil?
36
- return 'function' if value.is_a?(Proc)
37
- return 'integer' if value.is_a? Integer
38
- return 'number' if value.is_a? Float
39
- return 'table' if value.is_a?(Hash) || value.is_a?(Array)
40
- return 'string' if value.is_a?(String) || value.instance_of?(Symbol)
41
- return 'boolean' if [true, false].include? value
42
- }
43
- }
5
+ Writer = Component::V54::Writer
44
6
  end
45
7
  end
@@ -1,55 +1,9 @@
1
- require_relative '../../../logic/interpreters/interpreter_51'
2
- require_relative '../../../dsl/errors'
3
-
4
- require_relative 'writer'
5
- require_relative 'reader'
1
+ require_relative '../54/function'
6
2
 
7
3
  module Component
8
4
  module V51
9
- Function = {
10
- push!: ->(api, state, closure) {
11
- handler = ->(current_state) {
12
- updated_state = state.merge(lua: current_state)
13
- input = Reader[:read_all!].(api, updated_state)
14
- result = closure.(*input)
15
- Writer[:push!].(api, updated_state, result)
16
- return 1
17
- }
18
-
19
- state[:avoid_gc] << handler
20
-
21
- api.lua_pushcclosure(state[:lua], handler, 0)
22
- },
23
-
24
- read!: ->(api, state, _stack_index) {
25
- reference = api.luaL_ref(
26
- state[:lua], Logic::V51::Interpreter[:LUA_REGISTRYINDEX]
27
- )
28
-
29
- { value: ->(input = [], output = 1) {
30
- api.lua_rawgeti(
31
- state[:lua], Logic::V51::Interpreter[:LUA_REGISTRYINDEX], reference
32
- )
33
-
34
- input.each do |value|
35
- Writer[:push!].(api, state, value)
36
- end
37
-
38
- result = Interpreter[:call!].(api, state, input.size, output)
39
-
40
- if result[:error]
41
- raise SweetMoon::Errors::SweetMoonErrorHelper.for(
42
- result[:error][:status]
43
- ), result[:error][:value]
44
- end
45
-
46
- result = Reader[:read_all!].(api, state)
47
-
48
- return result.first if output == 1
5
+ Function = Component::V54::Function
49
6
 
50
- result
51
- }, pop: false }
52
- }
53
- }
7
+ LUA_HANDLER = Component::V54::LUA_HANDLER
54
8
  end
55
9
  end
@@ -1,23 +1,24 @@
1
1
  require_relative '../../../logic/interpreters/interpreter_51'
2
2
 
3
+ require_relative 'function'
3
4
  require_relative 'reader'
4
- require_relative 'writer'
5
5
  require_relative 'table'
6
+ require_relative 'writer'
6
7
 
7
8
  module Component
8
9
  module V51
9
10
  Interpreter = {
10
11
  version: Logic::V51::Interpreter[:version],
12
+ logic: Logic::V51,
11
13
 
12
14
  create_state!: ->(api) {
13
15
  state = api.luaL_newstate
14
- { state: { lua: state, avoid_gc: [] },
16
+ { state: { lua: state, avoid_gc: [], ruby_error_info: nil },
15
17
  error: state ? nil : :MemoryAllocation }
16
18
  },
17
19
 
18
20
  open_standard_libraries!: ->(api, state) {
19
21
  api.luaL_openlibs(state[:lua])
20
-
21
22
  { state: state }
22
23
  },
23
24
 
@@ -41,7 +42,7 @@ module Component
41
42
  },
42
43
 
43
44
  push_value!: ->(api, state, value) {
44
- Writer[:push!].(api, state, value)
45
+ Writer[:push!].(api, state, Component::V51, value)
45
46
  { state: state }
46
47
  },
47
48
 
@@ -59,7 +60,7 @@ module Component
59
60
  unless key.nil?
60
61
  if api.lua_typename(state[:lua],
61
62
  api.lua_type(state[:lua], -1)).read_string == 'table'
62
- Table[:read_field!].(api, state, key, -1)
63
+ Table[:read_field!].(api, state, Component::V51, key, -1)
63
64
  else
64
65
  api.lua_pushnil(state[:lua])
65
66
  end
@@ -74,7 +75,7 @@ module Component
74
75
  },
75
76
 
76
77
  read_and_pop!: ->(api, state, stack_index = -1, extra_pop: false) {
77
- result = Component::V51::Reader[:read!].(api, state, stack_index)
78
+ result = Reader[:read!].(api, state, Component::V51, stack_index)
78
79
 
79
80
  api.lua_settop(state[:lua], -2) if result[:pop]
80
81
  api.lua_settop(state[:lua], -2) if extra_pop
@@ -83,7 +84,7 @@ module Component
83
84
  },
84
85
 
85
86
  read_all!: ->(api, state) {
86
- result = Reader[:read_all!].(api, state)
87
+ result = Reader[:read_all!].(api, state, Component::V51)
87
88
 
88
89
  { state: state, output: result }
89
90
  },
@@ -1,67 +1,7 @@
1
- require 'ffi'
2
-
3
- require_relative 'interpreter'
4
- require_relative 'function'
5
- require_relative 'table'
1
+ require_relative '../54/reader'
6
2
 
7
3
  module Component
8
4
  module V51
9
- Reader = {
10
- read_all!: ->(api, state) {
11
- (1..api.lua_gettop(state[:lua])).map do
12
- Interpreter[:read_and_pop!].(api, state)[:output]
13
- end.reverse
14
- },
15
-
16
- read!: ->(api, state, stack_index = -1) {
17
- stack_index = api.lua_gettop(state[:lua]) if stack_index == -1
18
-
19
- type = api.lua_typename(state[:lua],
20
- api.lua_type(state[:lua], stack_index)).read_string
21
-
22
- case type
23
- when 'string'
24
- Reader[:read_string!].(api, state, stack_index)
25
- when 'number'
26
- Reader[:read_number!].(api, state, stack_index)
27
- when 'no value'
28
- { value: nil, pop: true, type: type }
29
- when 'nil'
30
- { value: nil, pop: true }
31
- when 'boolean'
32
- Reader[:read_boolean!].(api, state, stack_index)
33
- when 'table'
34
- Table[:read!].(api, state, stack_index)
35
- when 'function'
36
- Function[:read!].(api, state, stack_index)
37
- else
38
- # none nil boolean lightuserdata number
39
- # string table function userdata thread
40
- { value:
41
- "#{type}: 0x#{api.lua_topointer(state[:lua], stack_index).address}",
42
- type: type, pop: true }
43
- end
44
- },
45
-
46
- read_string!: ->(api, state, stack_index) {
47
- { value: api.lua_tostring(state[:lua], stack_index).read_string,
48
- pop: true }
49
- },
50
-
51
- read_number!: ->(api, state, stack_index) {
52
- if api.respond_to?(:lua_isinteger) &&
53
- api.respond_to?(:lua_tointeger) &&
54
- api.lua_isinteger(state[:lua], stack_index) == 1
55
-
56
- return { value: api.lua_tointeger(state[:lua], stack_index), pop: true }
57
- end
58
-
59
- { value: api.lua_tonumber(state[:lua], stack_index), pop: true }
60
- },
61
-
62
- read_boolean!: ->(api, state, stack_index) {
63
- { value: api.lua_toboolean(state[:lua], stack_index) == 1, pop: true }
64
- }
65
- }
5
+ Reader = Component::V54::Reader
66
6
  end
67
7
  end
@@ -1,61 +1,7 @@
1
- require_relative '../../../logic/tables'
2
-
3
- require_relative 'writer'
4
- require_relative 'reader'
1
+ require_relative '../54/table'
5
2
 
6
3
  module Component
7
4
  module V51
8
- Table = {
9
- push!: ->(api, state, list, stack_index = -1) {
10
- stack_index = api.lua_gettop(state[:lua]) if stack_index == -1
11
-
12
- api.lua_createtable(state[:lua], list.size, 0)
13
-
14
- if list.is_a? Hash
15
- list.each_key do |key|
16
- Writer[:push!].(api, state, key)
17
- Writer[:push!].(api, state, list[key])
18
- api.lua_settable(state[:lua], stack_index + 1)
19
- end
20
- else
21
- list.each_with_index do |value, index|
22
- Writer[:push!].(api, state, index + 1)
23
- Writer[:push!].(api, state, value)
24
- api.lua_settable(state[:lua], stack_index + 1)
25
- end
26
- end
27
- },
28
-
29
- read!: ->(api, state, stack_index) {
30
- stack_index = api.lua_gettop(state[:lua]) if stack_index == -1
31
-
32
- type = api.lua_typename(state[:lua],
33
- api.lua_type(state[:lua], stack_index)).read_string
34
-
35
- api.lua_pushnil(state[:lua])
36
-
37
- return nil if type != 'table'
38
-
39
- tuples = []
40
-
41
- while api.lua_next(state[:lua], stack_index).positive?
42
- value = Reader[:read!].(api, state, stack_index + 2)
43
- key = Reader[:read!].(api, state, stack_index + 1)
44
- api.lua_settop(state[:lua], -2) if value[:pop]
45
-
46
- tuples << [key[:value], value[:value]]
47
-
48
- break if value[:type] == 'no value' || key[:value].instance_of?(Proc)
49
- end
50
-
51
- { value: Logic::Tables[:to_hash_or_array].(tuples), pop: true }
52
- },
53
-
54
- read_field!: ->(api, state, expected_key, stack_index) {
55
- expected_key = expected_key.to_s if expected_key.is_a? Symbol
56
-
57
- api.lua_getfield(state[:lua], stack_index, expected_key)
58
- }
59
- }
5
+ Table = Component::V54::Table
60
6
  end
61
7
  end
@@ -1,45 +1,7 @@
1
- require_relative 'function'
2
- require_relative 'table'
1
+ require_relative '../54/writer'
3
2
 
4
3
  module Component
5
4
  module V51
6
- Writer = {
7
- push!: ->(api, state, value) {
8
- case Writer[:_to_lua_type].(value)
9
- when 'string'
10
- api.lua_pushstring(state[:lua], value.to_s)
11
- when 'number'
12
- api.lua_pushnumber(state[:lua], value)
13
- when 'integer'
14
- if api.respond_to? :lua_pushinteger
15
- api.lua_pushinteger(state[:lua], value)
16
- else
17
- api.lua_pushnumber(state[:lua], value)
18
- end
19
- when 'nil'
20
- api.lua_pushnil(state[:lua])
21
- when 'boolean'
22
- api.lua_pushboolean(state[:lua], value ? 1 : 0)
23
- when 'table'
24
- Table[:push!].(api, state, value)
25
- when 'function'
26
- Function[:push!].(api, state, value)
27
- else
28
- api.lua_pushstring(
29
- state[:lua], "#<#{value.class}:0x#{format('%016x', value.object_id)}>"
30
- )
31
- end
32
- },
33
-
34
- _to_lua_type: ->(value) {
35
- return 'nil' if value.nil?
36
- return 'function' if value.is_a?(Proc)
37
- return 'integer' if value.is_a? Integer
38
- return 'number' if value.is_a? Float
39
- return 'table' if value.is_a?(Hash) || value.is_a?(Array)
40
- return 'string' if value.is_a?(String) || value.instance_of?(Symbol)
41
- return 'boolean' if [true, false].include? value
42
- }
43
- }
5
+ Writer = Component::V54::Writer
44
6
  end
45
7
  end
@@ -1,55 +1,111 @@
1
1
  require_relative '../../../logic/interpreters/interpreter_54'
2
2
  require_relative '../../../dsl/errors'
3
3
 
4
- require_relative 'writer'
4
+ require_relative 'interpreter'
5
5
  require_relative 'reader'
6
+ require_relative 'writer'
6
7
 
7
8
  module Component
8
9
  module V54
9
10
  Function = {
10
- push!: ->(api, state, closure) {
11
- handler = ->(current_state) {
12
- updated_state = state.merge(lua: current_state)
13
- input = Reader[:read_all!].(api, updated_state)
14
- result = closure.(*input)
15
- Writer[:push!].(api, updated_state, result)
16
- return 1
17
- }
11
+ push!: ->(api, state, component, closure) {
12
+ handler = component::Function[:build_handler!].(
13
+ api, state, component, closure
14
+ )
18
15
 
19
16
  state[:avoid_gc] << handler
20
17
 
18
+ lua_name = "_sweet_moon_ruby_#{handler.object_id}"
19
+
21
20
  api.lua_pushcclosure(state[:lua], handler, 0)
22
- },
21
+ component::Interpreter[:pop_and_set_as!].(api, state, lua_name)
23
22
 
24
- read!: ->(api, state, _stack_index) {
25
- reference = api.luaL_ref(
26
- state[:lua], Logic::V54::Interpreter[:LUA_REGISTRYINDEX]
23
+ result = component::Interpreter[:push_chunk!].(
24
+ api, state, component::LUA_HANDLER.sub('_ruby', lua_name)
27
25
  )
28
26
 
27
+ unless result[:error].nil?
28
+ raise SweetMoon::Errors::SweetMoonErrorHelper.for(
29
+ result[:error][:status]
30
+ ), result[:error][:value]
31
+ end
32
+
33
+ component::Interpreter[:call!].(api, state, 0, 1)
34
+ },
35
+
36
+ build_handler!: ->(api, state, component, closure) {
37
+ ->(current_state) {
38
+ updated_state = state.merge(lua: current_state)
39
+ input = component::Reader[:read_all!].(api, updated_state, component)
40
+ begin
41
+ result = closure.(*input)
42
+ component::Writer[:push!].(
43
+ api, updated_state, component, { error: nil, output: result }
44
+ )
45
+ rescue Exception => e
46
+ state[:ruby_error_info] = e
47
+ component::Writer[:push!].(
48
+ api, updated_state, component, {
49
+ error: true, output: "#{e.class}: #{e.message}"
50
+ }
51
+ )
52
+ end
53
+ return 1
54
+ }
55
+ },
56
+
57
+ read!: ->(api, state, component, _stack_index) {
58
+ lua_registry_index = component::Interpreter[:logic]::Interpreter[
59
+ :LUA_REGISTRYINDEX
60
+ ]
61
+
62
+ reference = api.luaL_ref(state[:lua], lua_registry_index)
63
+
29
64
  { value: ->(input = [], output = 1) {
30
- api.lua_rawgeti(
31
- state[:lua], Logic::V54::Interpreter[:LUA_REGISTRYINDEX], reference
32
- )
65
+ api.lua_rawgeti(state[:lua], lua_registry_index, reference)
33
66
 
34
67
  input.each do |value|
35
- Writer[:push!].(api, state, value)
68
+ component::Writer[:push!].(api, state, component, value)
36
69
  end
37
70
 
38
- result = Interpreter[:call!].(api, state, input.size, output)
71
+ result = component::Interpreter[:call!].(api, state, input.size, output)
39
72
 
40
- if result[:error]
41
- raise SweetMoon::Errors::SweetMoonErrorHelper.for(
42
- result[:error][:status]
43
- ), result[:error][:value]
44
- end
73
+ component::Function[:raise_error!].(state, result) if result[:error]
45
74
 
46
- result = Reader[:read_all!].(api, state)
75
+ result = component::Reader[:read_all!].(api, state, component)
47
76
 
48
77
  return result.first if output == 1
49
78
 
50
79
  result
51
80
  }, pop: false }
81
+ },
82
+
83
+ raise_error!: ->(state, result) {
84
+ if state[:ruby_error_info].nil?
85
+ raise SweetMoon::Errors::SweetMoonErrorHelper.for(
86
+ result[:error][:status]
87
+ ), result[:error][:value]
88
+ else
89
+ ruby_error = state[:ruby_error_info]
90
+ state[:ruby_error_info] = nil
91
+
92
+ raise SweetMoon::Errors::SweetMoonErrorHelper.merge_traceback!(
93
+ ruby_error, result[:error][:value]
94
+ )
95
+ end
52
96
  }
53
97
  }
98
+
99
+ LUA_HANDLER = <<~LUA
100
+ return function (...)
101
+ result = _ruby(...)
102
+
103
+ if result['error'] then
104
+ error(result['output'] .. ' ' .. debug.traceback())
105
+ else
106
+ return result['output']
107
+ end
108
+ end
109
+ LUA
54
110
  end
55
111
  end