ぐぬぬ(メモ）

LuaInterfaceだと日本語読めないよといわれたから
仕方ないからTaoを使うようにした

そしたらどうもCallがうまいこといかない

view plainprint?

1. '存在している場合  
2. Dim L As New System.IntPtr  
3.   
4. L = Tao.Lua.Lua.luaL_newstate()  
5. Tao.Lua.Lua.lua_open()  
6.   
7. 'LUA読み取り  
8. Tao.Lua.Lua.luaL_openlibs(L)  
9.   
10. If Tao.Lua.Lua.luaL_loadfile(L, full) Then  
11.     Dim str = Tao.Lua.Lua.lua_tostring(L, 1)  
12.     MessageBox.Show(str, "err")  
13. End If  
14.   
15. Dim top = Tao.Lua.Lua.lua_gettop(L)  
16.   
17. '関数名Push  
18. Tao.Lua.Lua.lua_getglobal(L, "GraphicSetting")  
19.   
20. '関数呼び出し（ここでNULLがかえる）  
21. If Tao.Lua.Lua.lua_pcall(L, 0, 7, 0) Then  
22.     Dim str = Tao.Lua.Lua.lua_tostring(L, 1)  
23.     MessageBox.Show(str, "err2")  
24. End If  
25. '関数の戻り値を格納  
26.   
27. Dim a = Tao.Lua.Lua.lua_tostring(L, 1)  
28. Dim b = Tao.Lua.Lua.lua_tointeger(L, 2)  
29. Dim c = Tao.Lua.Lua.lua_tointeger(L, 3)  
30. Dim d = Tao.Lua.Lua.lua_tointeger(L, 4)  
31. Dim f = Tao.Lua.Lua.lua_tointeger(L, 5)  
32. Dim g = Tao.Lua.Lua.lua_tointeger(L, 6)  
33. Dim h = Tao.Lua.Lua.lua_tointeger(L, 7)  
34.   
35. 'HelpTextBox.Text = Tao.Lua.Lua.lua_tostring(L, 0)  
36. 'TypeComBox.SelectedIndex = Tao.Lua.Lua.lua_tointeger(L, 1)  
37. 'AllNumNmBox.Value = Tao.Lua.Lua.lua_tointeger(L, 2)  
38. 'XNumNmBox.Value = Tao.Lua.Lua.lua_tointeger(L, 3)  
39. 'YNumNmBox.Value = Tao.Lua.Lua.lua_tointeger(L, 4)  
40. 'XSizeNmBox.Value = Tao.Lua.Lua.lua_tointeger(L, 5)  
41. 'YSizeNmBox.Value = Tao.Lua.Lua.lua_tointeger(L, 6)  
42.   
43. Tao.Lua.Lua.lua_settop(L, top)  

            '存在している場合
            Dim L As New System.IntPtr

            L = Tao.Lua.Lua.luaL_newstate()
            Tao.Lua.Lua.lua_open()

            'LUA読み取り
            Tao.Lua.Lua.luaL_openlibs(L)

            If Tao.Lua.Lua.luaL_loadfile(L, full) Then
                Dim str = Tao.Lua.Lua.lua_tostring(L, 1)
                MessageBox.Show(str, "err")
            End If

            Dim top = Tao.Lua.Lua.lua_gettop(L)

            '関数名Push
            Tao.Lua.Lua.lua_getglobal(L, "GraphicSetting")

            '関数呼び出し（ここでNULLがかえる）
            If Tao.Lua.Lua.lua_pcall(L, 0, 7, 0) Then
                Dim str = Tao.Lua.Lua.lua_tostring(L, 1)
                MessageBox.Show(str, "err2")
            End If
            '関数の戻り値を格納

            Dim a = Tao.Lua.Lua.lua_tostring(L, 1)
            Dim b = Tao.Lua.Lua.lua_tointeger(L, 2)
            Dim c = Tao.Lua.Lua.lua_tointeger(L, 3)
            Dim d = Tao.Lua.Lua.lua_tointeger(L, 4)
            Dim f = Tao.Lua.Lua.lua_tointeger(L, 5)
            Dim g = Tao.Lua.Lua.lua_tointeger(L, 6)
            Dim h = Tao.Lua.Lua.lua_tointeger(L, 7)

            'HelpTextBox.Text = Tao.Lua.Lua.lua_tostring(L, 0)
            'TypeComBox.SelectedIndex = Tao.Lua.Lua.lua_tointeger(L, 1)
            'AllNumNmBox.Value = Tao.Lua.Lua.lua_tointeger(L, 2)
            'XNumNmBox.Value = Tao.Lua.Lua.lua_tointeger(L, 3)
            'YNumNmBox.Value = Tao.Lua.Lua.lua_tointeger(L, 4)
            'XSizeNmBox.Value = Tao.Lua.Lua.lua_tointeger(L, 5)
            'YSizeNmBox.Value = Tao.Lua.Lua.lua_tointeger(L, 6)

            Tao.Lua.Lua.lua_settop(L, top)