bgirgis/cpp-thirdparty
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

update swig on windows

Browse Source
This commit is contained in:
Bassem Girgis
2019-08-04 21:38:19 -05:00
parent 8414b7136b
commit 76ad52be58
5943 changed files with 91790 additions and 71892 deletions
Download Patch File Download Diff File Expand all files Collapse all files

60
winx64/bin/swigwin-4.0.0/Examples/test-suite/lua/Makefile.in Normal file
View File

@@ -0,0 +1,60 @@
#######################################################################
# Makefile for lua test-suite
#######################################################################
LANGUAGE = lua
LUA = @LUABIN@
SCRIPTSUFFIX = _runme.lua
srcdir = @srcdir@
top_srcdir = @top_srcdir@
top_builddir = @top_builddir@
# sorry, currently very few test cases work/have been written
CPP_TEST_CASES += \
lua_no_module_global \
lua_inherit_getitem \
C_TEST_CASES += \
lua_no_module_global \
include $(srcdir)/../common.mk
# Overridden variables here
LIBS = -L.
# Custom tests - tests with additional commandline options
lua_no_module_global.%: SWIGOPT += -nomoduleglobal
# Rules for the different types of tests
%.cpptest:
$(setup)
+$(swig_and_compile_cpp)
$(run_testcase)
%.ctest:
$(setup)
+$(swig_and_compile_c)
$(run_testcase)
%.multicpptest:
$(setup)
+$(swig_and_compile_multi_cpp)
$(run_testcase)
# Runs the testcase. A testcase is only run if
# a file is found which has _runme.lua appended after the testcase name.
run_testcase = \
if [ -f $(SCRIPTDIR)/$(SCRIPTPREFIX)$*$(SCRIPTSUFFIX) ]; then \
env LUA_PATH="$(srcdir)/?.lua;" $(RUNTOOL) $(LUA) $(SCRIPTDIR)/$(SCRIPTPREFIX)$*$(SCRIPTSUFFIX); \
fi
# Clean: (does nothing, we dont generate extra lua code)
%.clean:
@exit 0
clean:
$(MAKE) -f $(top_builddir)/$(EXAMPLES)/Makefile SRCDIR='$(SRCDIR)' lua_clean

19
winx64/bin/swigwin-4.0.0/Examples/test-suite/lua/abstract_access_runme.lua Normal file
View File

@@ -0,0 +1,19 @@
require("import") -- the import fn
import("abstract_access") -- import code
-- catch "undefined" global variables
local env = _ENV -- Lua 5.2
if not env then env = getfenv () end -- Lua 5.1
setmetatable(env, {__index=function (t,i) error("undefined global variable `"..i.."'",2) end})
-- trying to instantiate pure virtual classes
-- should fail
assert(pcall(abstract_access.A)==false)
assert(pcall(abstract_access.B)==false)
assert(pcall(abstract_access.C)==false)
-- instantiate object
d=abstract_access.D()
--call fn
assert(d:do_x()==1)

30
winx64/bin/swigwin-4.0.0/Examples/test-suite/lua/array_member_runme.lua Normal file
View File

@@ -0,0 +1,30 @@
require("import") -- the import fn
import("array_member") -- import lib
am = array_member
-- catch "undefined" global variables
local env = _ENV -- Lua 5.2
if not env then env = getfenv () end -- Lua 5.1
setmetatable(env, {__index=function (t,i) error("undefined global variable `"..i.."'",2) end})
assert(am.get_value(am.global_data,0) == 0)
assert(am.get_value(am.global_data,7) == 7)
foo = am.Foo()
foo.data = am.global_data
assert(am.get_value(foo.data,0) == 0)
for i = 0, 7 do
assert(am.get_value(foo.data,i) == am.get_value(am.global_data,i))
end
for i = 0, 7 do
am.set_value(am.global_data,i,-i)
end
am.global_data = foo.data
for i = 0, 7 do
assert(am.get_value(foo.data,i) == am.get_value(am.global_data,i))
end

14
winx64/bin/swigwin-4.0.0/Examples/test-suite/lua/arrays_global_runme.lua Normal file
View File

@@ -0,0 +1,14 @@
require("import") -- the import fn
import("arrays_global") -- import lib
ag = arrays_global
-- catch "undefined" global variables
local env = _ENV -- Lua 5.2
if not env then env = getfenv () end -- Lua 5.1
setmetatable(env, {__index=function (t,i) error("undefined global variable `"..i.."'",2) end})
assert(ag.BeginString_FIX44a == "FIX.a.a")
assert(ag.BeginString_FIX44b == "FIX.b.b")
assert(ag.BeginString_FIX44c == "FIX.c.c")
assert(ag.BeginString_FIX44d == "FIX.d.d")

12
winx64/bin/swigwin-4.0.0/Examples/test-suite/lua/char_strings_runme.lua Normal file
View File

@@ -0,0 +1,12 @@
require("import") -- the import fn
import("char_strings") -- import code
assert (char_strings.CharPingPong("hi there") == "hi there")
assert (char_strings.CharPingPong(nil) == nil)
assert (char_strings.CharArrayPingPong("hi there") == "hi there")
assert (char_strings.CharArrayPingPong(nil) == nil)
assert (char_strings.CharArrayDimsPingPong("hi there") == "hi there")
assert (char_strings.CharArrayDimsPingPong(nil) == nil)

14
winx64/bin/swigwin-4.0.0/Examples/test-suite/lua/chartest_runme.lua Normal file
View File

@@ -0,0 +1,14 @@
require("import") -- the import fn
import("chartest") -- import code
function char_assert(char, code)
assert(type(char) == 'string')
assert(char:len() == 1)
assert(char:byte() == code)
end
char_assert(chartest.GetPrintableChar(), 0x61)
char_assert(chartest.GetUnprintableChar(), 0x7F)
char_assert(chartest.printable_global_char, 0x61)
char_assert(chartest.unprintable_global_char, 0x7F)

174
winx64/bin/swigwin-4.0.0/Examples/test-suite/lua/cpp11_strongly_typed_enumerations_runme.lua Normal file
View File

@@ -0,0 +1,174 @@
require("import") -- the import fn
import("cpp11_strongly_typed_enumerations") -- import lib
-- catch "undefined" global variables
local env = _ENV -- Lua 5.2
if not env then env = getfenv () end -- Lua 5.1
setmetatable(env, {__index=function (t,i) error("undefined global variable `"..i.."'",2) end})
function enumCheck(actual, expected)
if not (actual == expected) then
error("Enum value mismatch. Expected: "..expected.." Actual: "..actual)
end
return expected + 1
end
--val = 0
--val = enumCheck(cpp11_strongly_typed_enumerations.cpp11_strongly_typed_enumerations.Enum1_Val1, val)
local val = 0
val = enumCheck(cpp11_strongly_typed_enumerations.Enum1_Val1, val)
val = enumCheck(cpp11_strongly_typed_enumerations.Enum1_Val2, val)
val = enumCheck(cpp11_strongly_typed_enumerations.Enum1_Val3, 13)
val = enumCheck(cpp11_strongly_typed_enumerations.Enum1_Val4, val)
val = enumCheck(cpp11_strongly_typed_enumerations.Enum1_Val5a, 13)
val = enumCheck(cpp11_strongly_typed_enumerations.Enum1_Val6a, val)
val = 0
val = enumCheck(cpp11_strongly_typed_enumerations.Enum2_Val1, val)
val = enumCheck(cpp11_strongly_typed_enumerations.Enum2_Val2, val)
val = enumCheck(cpp11_strongly_typed_enumerations.Enum2_Val3, 23)
val = enumCheck(cpp11_strongly_typed_enumerations.Enum2_Val4, val)
val = enumCheck(cpp11_strongly_typed_enumerations.Enum2_Val5b, 23)
val = enumCheck(cpp11_strongly_typed_enumerations.Enum2_Val6b, val)
val = 0
val = enumCheck(cpp11_strongly_typed_enumerations.Val1, val)
val = enumCheck(cpp11_strongly_typed_enumerations.Val2, val)
val = enumCheck(cpp11_strongly_typed_enumerations.Val3, 43)
val = enumCheck(cpp11_strongly_typed_enumerations.Val4, val)
val = 0
val = enumCheck(cpp11_strongly_typed_enumerations.Enum5_Val1, val)
val = enumCheck(cpp11_strongly_typed_enumerations.Enum5_Val2, val)
val = enumCheck(cpp11_strongly_typed_enumerations.Enum5_Val3, 53)
val = enumCheck(cpp11_strongly_typed_enumerations.Enum5_Val4, val)
val = 0
val = enumCheck(cpp11_strongly_typed_enumerations.Enum6_Val1, val)
val = enumCheck(cpp11_strongly_typed_enumerations.Enum6_Val2, val)
val = enumCheck(cpp11_strongly_typed_enumerations.Enum6_Val3, 63)
val = enumCheck(cpp11_strongly_typed_enumerations.Enum6_Val4, val)
val = 0
val = enumCheck(cpp11_strongly_typed_enumerations.Enum7td_Val1, val)
val = enumCheck(cpp11_strongly_typed_enumerations.Enum7td_Val2, val)
val = enumCheck(cpp11_strongly_typed_enumerations.Enum7td_Val3, 73)
val = enumCheck(cpp11_strongly_typed_enumerations.Enum7td_Val4, val)
val = 0
val = enumCheck(cpp11_strongly_typed_enumerations.Enum8_Val1, val)
val = enumCheck(cpp11_strongly_typed_enumerations.Enum8_Val2, val)
val = enumCheck(cpp11_strongly_typed_enumerations.Enum8_Val3, 83)
val = enumCheck(cpp11_strongly_typed_enumerations.Enum8_Val4, val)
val = 0
val = enumCheck(cpp11_strongly_typed_enumerations.Enum10_Val1, val)
val = enumCheck(cpp11_strongly_typed_enumerations.Enum10_Val2, val)
val = enumCheck(cpp11_strongly_typed_enumerations.Enum10_Val3, 103)
val = enumCheck(cpp11_strongly_typed_enumerations.Enum10_Val4, val)
val = 0
val = enumCheck(cpp11_strongly_typed_enumerations.Class1.Enum12_Val1, 1121)
val = enumCheck(cpp11_strongly_typed_enumerations.Class1.Enum12_Val2, 1122)
val = enumCheck(cpp11_strongly_typed_enumerations.Class1.Enum12_Val3, val)
val = enumCheck(cpp11_strongly_typed_enumerations.Class1.Enum12_Val4, val)
val = enumCheck(cpp11_strongly_typed_enumerations.Class1.Enum12_Val5c, 1121)
val = enumCheck(cpp11_strongly_typed_enumerations.Class1.Enum12_Val6c, val)
val = 0
val = enumCheck(cpp11_strongly_typed_enumerations.Class1.Val1, 1131)
val = enumCheck(cpp11_strongly_typed_enumerations.Class1.Val2, 1132)
val = enumCheck(cpp11_strongly_typed_enumerations.Class1.Val3, val)
val = enumCheck(cpp11_strongly_typed_enumerations.Class1.Val4, val)
val = enumCheck(cpp11_strongly_typed_enumerations.Class1.Val5d, 1131)
val = enumCheck(cpp11_strongly_typed_enumerations.Class1.Val6d, val)
val = 0
val = enumCheck(cpp11_strongly_typed_enumerations.Class1.Enum14_Val1, 1141)
val = enumCheck(cpp11_strongly_typed_enumerations.Class1.Enum14_Val2, 1142)
val = enumCheck(cpp11_strongly_typed_enumerations.Class1.Enum14_Val3, val)
val = enumCheck(cpp11_strongly_typed_enumerations.Class1.Enum14_Val4, val)
val = enumCheck(cpp11_strongly_typed_enumerations.Class1.Enum14_Val5e, 1141)
val = enumCheck(cpp11_strongly_typed_enumerations.Class1.Enum14_Val6e, val)
-- Requires nested class support to work
--val = 0
--val = enumCheck(cpp11_strongly_typed_enumerations.Class1.Struct1.Enum12_Val1, 3121)
--val = enumCheck(cpp11_strongly_typed_enumerations.Class1.Struct1.Enum12_Val2, 3122)
--val = enumCheck(cpp11_strongly_typed_enumerations.Class1.Struct1.Enum12_Val3, val)
--val = enumCheck(cpp11_strongly_typed_enumerations.Class1.Struct1.Enum12_Val4, val)
--val = enumCheck(cpp11_strongly_typed_enumerations.Class1.Struct1.Enum12_Val5f, 3121)
--val = enumCheck(cpp11_strongly_typed_enumerations.Class1.Struct1.Enum12_Val6f, val)
--
--val = 0
--val = enumCheck(cpp11_strongly_typed_enumerations.Class1.Struct1.Val1, 3131)
--val = enumCheck(cpp11_strongly_typed_enumerations.Class1.Struct1.Val2, 3132)
--val = enumCheck(cpp11_strongly_typed_enumerations.Class1.Struct1.Val3, val)
--val = enumCheck(cpp11_strongly_typed_enumerations.Class1.Struct1.Val4, val)
--
--val = 0
--val = enumCheck(cpp11_strongly_typed_enumerations.Class1.Struct1.Enum14_Val1, 3141)
--val = enumCheck(cpp11_strongly_typed_enumerations.Class1.Struct1.Enum14_Val2, 3142)
--val = enumCheck(cpp11_strongly_typed_enumerations.Class1.Struct1.Enum14_Val3, val)
--val = enumCheck(cpp11_strongly_typed_enumerations.Class1.Struct1.Enum14_Val4, val)
--val = enumCheck(cpp11_strongly_typed_enumerations.Class1.Struct1.Enum14_Val5g, 3141)
--val = enumCheck(cpp11_strongly_typed_enumerations.Class1.Struct1.Enum14_Val6g, val)
val = 0
val = enumCheck(cpp11_strongly_typed_enumerations.Class2.Enum12_Val1, 2121)
val = enumCheck(cpp11_strongly_typed_enumerations.Class2.Enum12_Val2, 2122)
val = enumCheck(cpp11_strongly_typed_enumerations.Class2.Enum12_Val3, val)
val = enumCheck(cpp11_strongly_typed_enumerations.Class2.Enum12_Val4, val)
val = enumCheck(cpp11_strongly_typed_enumerations.Class2.Enum12_Val5h, 2121)
val = enumCheck(cpp11_strongly_typed_enumerations.Class2.Enum12_Val6h, val)
val = 0
val = enumCheck(cpp11_strongly_typed_enumerations.Class2.Val1, 2131)
val = enumCheck(cpp11_strongly_typed_enumerations.Class2.Val2, 2132)
val = enumCheck(cpp11_strongly_typed_enumerations.Class2.Val3, val)
val = enumCheck(cpp11_strongly_typed_enumerations.Class2.Val4, val)
val = enumCheck(cpp11_strongly_typed_enumerations.Class2.Val5i, 2131)
val = enumCheck(cpp11_strongly_typed_enumerations.Class2.Val6i, val)
val = 0
val = enumCheck(cpp11_strongly_typed_enumerations.Class2.Enum14_Val1, 2141)
val = enumCheck(cpp11_strongly_typed_enumerations.Class2.Enum14_Val2, 2142)
val = enumCheck(cpp11_strongly_typed_enumerations.Class2.Enum14_Val3, val)
val = enumCheck(cpp11_strongly_typed_enumerations.Class2.Enum14_Val4, val)
val = enumCheck(cpp11_strongly_typed_enumerations.Class2.Enum14_Val5j, 2141)
val = enumCheck(cpp11_strongly_typed_enumerations.Class2.Enum14_Val6j, val)
-- Requires nested class support to work
--val = 0
--val = enumCheck(cpp11_strongly_typed_enumerations.Class2.Struct1.Enum12_Val1, 4121)
--val = enumCheck(cpp11_strongly_typed_enumerations.Class2.Struct1.Enum12_Val2, 4122)
--val = enumCheck(cpp11_strongly_typed_enumerations.Class2.Struct1.Enum12_Val3, val)
--val = enumCheck(cpp11_strongly_typed_enumerations.Class2.Struct1.Enum12_Val4, val)
--val = enumCheck(cpp11_strongly_typed_enumerations.Class2.Struct1.Enum12_Val5k, 4121)
--val = enumCheck(cpp11_strongly_typed_enumerations.Class2.Struct1.Enum12_Val6k, val)
--
--val = 0
--val = enumCheck(cpp11_strongly_typed_enumerations.Class2.Struct1.Val1, 4131)
--val = enumCheck(cpp11_strongly_typed_enumerations.Class2.Struct1.Val2, 4132)
--val = enumCheck(cpp11_strongly_typed_enumerations.Class2.Struct1.Val3, val)
--val = enumCheck(cpp11_strongly_typed_enumerations.Class2.Struct1.Val4, val)
--val = enumCheck(cpp11_strongly_typed_enumerations.Class2.Struct1.Val5l, 4131)
--val = enumCheck(cpp11_strongly_typed_enumerations.Class2.Struct1.Val6l, val)
--
--val = 0
--val = enumCheck(cpp11_strongly_typed_enumerations.Class2.Struct1.Enum14_Val1, 4141)
--val = enumCheck(cpp11_strongly_typed_enumerations.Class2.Struct1.Enum14_Val2, 4142)
--val = enumCheck(cpp11_strongly_typed_enumerations.Class2.Struct1.Enum14_Val3, val)
--val = enumCheck(cpp11_strongly_typed_enumerations.Class2.Struct1.Enum14_Val4, val)
--val = enumCheck(cpp11_strongly_typed_enumerations.Class2.Struct1.Enum14_Val5m, 4141)
--val = enumCheck(cpp11_strongly_typed_enumerations.Class2.Struct1.Enum14_Val6m, val)
class1 = cpp11_strongly_typed_enumerations.Class1()
enumCheck(class1:class1Test1(cpp11_strongly_typed_enumerations.Enum1_Val5a), 13)
enumCheck(class1:class1Test2(cpp11_strongly_typed_enumerations.Class1.Enum12_Val5c), 1121)
--enumCheck(class1:class1Test3(cpp11_strongly_typed_enumerations.Class1.Struct1.Enum12_Val5f), 3121)
enumCheck(cpp11_strongly_typed_enumerations.globalTest1(cpp11_strongly_typed_enumerations.Enum1_Val5a), 13)
enumCheck(cpp11_strongly_typed_enumerations.globalTest2(cpp11_strongly_typed_enumerations.Class1.Enum12_Val5c), 1121)
--enumCheck(globalTest3(cpp11_strongly_typed_enumerations.Class1.Struct1.Enum12_Val5f), 3121)

99
winx64/bin/swigwin-4.0.0/Examples/test-suite/lua/cpp_basic_runme.lua Normal file
View File

@@ -0,0 +1,99 @@
require("import") -- the import fn
import("cpp_basic") -- import code
cb=cpp_basic -- renaming import
-- catch "undefined" global variables
local env = _ENV -- Lua 5.2
if not env then env = getfenv () end -- Lua 5.1
setmetatable(env, {__index=function (t,i) error("undefined global variable `"..i.."'",2) end})
f=cb.Foo(4)
assert(f.num==4)
f.num=-17
assert(f.num==-17)
b=cb.Bar()
b.fptr=f
assert(b.fptr.num==-17)
assert(b:test(-3,b.fptr)==-5)
f.num=12
assert(b.fptr.num==12)
assert(b.fref.num==-4)
assert(b:test(12,b.fref)==23)
-- references don't take ownership, so if we didn't define this here it might get garbage collected
f2=cb.Foo(23)
b.fref=f2
assert(b.fref.num==23)
assert(b:test(-3,b.fref)==35)
assert(b.fval.num==15)
assert(b:test(3,b.fval)==33)
b.fval=cb.Foo(-15) -- this is safe as it is copied into the C++
assert(b.fval.num==-15)
assert(b:test(3,b.fval)==-27)
f3=b:testFoo(12,b.fref)
assert(f3.num==32)
-- now test global
f4=cb.Foo(6)
cb.Bar_global_fptr=f4
assert(cb.Bar_global_fptr.num==6)
assert(cb.Bar.global_fptr.num==6)
f4.num=8
assert(cb.Bar_global_fptr.num==8)
assert(cb.Bar.global_fptr.num==8)
assert(cb.Bar_global_fref.num==23)
assert(cb.Bar.global_fref.num==23)
cb.Bar_global_fref=cb.Foo(-7) -- this will set the value
assert(cb.Bar_global_fref.num==-7)
assert(cb.Bar.global_fref.num==-7)
assert(cb.Bar_global_fval.num==3)
assert(cb.Bar.global_fval.num==3)
cb.Bar_global_fval=cb.Foo(-34)
assert(cb.Bar_global_fval.num==-34)
assert(cb.Bar.global_fval.num==-34)
assert(cb.Bar.global_cint == -4)
assert(cb.Bar_global_cint == -4)
-- Now test member function pointers
func1_ptr=cb.get_func1_ptr()
func2_ptr=cb.get_func2_ptr()
f.num=4
assert(f:func1(2)==16)
assert(f:func2(2)==-8)
f.func_ptr=func1_ptr
assert(cb.test_func_ptr(f,2)==16)
f.func_ptr=func2_ptr
assert(cb.test_func_ptr(f,2)==-8)
-- Test that __tostring metamethod produce no internal asserts
f2_name = tostring(f2)
f3 = cb.FooSub()
f3_name = tostring(f3)
f4 = cb.FooSubSub()
f4_name = tostring(f4)
assert( f2_name == "Foo" )
assert( f3_name == "Foo" )
assert( f4_name == "FooSubSub" )
-- Test __eq implementation supplied by default
-- eq_f1 and eq_f2 must be different userdata with same Foo* pointer. If eq_f1 and eq_f2 are the same userdata (e.g.)
-- > eq_f1 = smth
-- > eq_f2 = eq_f1
-- then default Lua equality comparison kicks in and considers them equal. Access to global_fptr is actually a
-- function call (internally) and it returns new userdata each time.
eq_f1 = cb.Bar.global_fptr
eq_f2 = cb.Bar.global_fptr
assert( eq_f1 == eq_f2 )

21
winx64/bin/swigwin-4.0.0/Examples/test-suite/lua/cpp_enum_runme.lua Normal file
View File

@@ -0,0 +1,21 @@
require("import") -- the import fn
import("cpp_enum") -- import code
ce=cpp_enum -- renaming import
-- catch "undefined" global variables
local env = _ENV -- Lua 5.2
if not env then env = getfenv () end -- Lua 5.1
setmetatable(env, {__index=function (t,i) error("undefined global variable `"..i.."'",2) end})
assert(ce.ENUM_ONE ~= nil)
assert(ce.ENUM_TWO ~= nil)
-- Enums inside classes
assert(ce.Foo.Hi == 0)
assert(ce.Foo.Hello == 1);
-- old-style bindings
assert(ce.Foo_Hi == 0)
assert(ce.Foo_Hello == 1);
assert(ce.Hi == 0)
assert(ce.Hello == 1)

27
winx64/bin/swigwin-4.0.0/Examples/test-suite/lua/cpp_namespace_runme.lua Normal file
View File

@@ -0,0 +1,27 @@
require("import") -- the import fn
import("cpp_namespace") -- import lib into global
cn=cpp_namespace --alias
-- catching undefined variables
local env = _ENV -- Lua 5.2
if not env then env = getfenv () end -- Lua 5.1
setmetatable(env, {__index=function (t,i) error("undefined global variable `"..i.."'",2) end})
assert(cn.fact(4) == 24)
assert(cn.Foo == 42)
t1 = cn.Test()
assert(t1:method() == "Test::method")
cn.weird("t1", 4)
assert(cn.do_method(t1) == "Test::method")
assert(cn.do_method2(t1) == "Test::method")
t2 = cn.Test2()
assert(t2:method() == "Test2::method")
assert(cn.foo3(5) == 5)
assert(cn.do_method3(t2, 7) == "Test2::method")

24
winx64/bin/swigwin-4.0.0/Examples/test-suite/lua/cpp_nodefault_runme.lua Normal file
View File

@@ -0,0 +1,24 @@
-- Run file
require("import") -- the import fn
import("cpp_nodefault") -- import lib into global
cn=cpp_nodefault --alias
-- catching undefined variables
local env = _ENV -- Lua 5.2
if not env then env = getfenv () end -- Lua 5.1
setmetatable(env, {__index=function (t,i) error("undefined global variable `"..i.."'",2) end})
foo1 = cn.Foo(1,2)
foo1.a = 5
assert(foo1.a == 5)
foo2 = cn.create(1,2)
cn.consume(foo1,foo2)
bar1 = cn.Bar()
bar1:consume(cn.gvar, foo2)
foo3 = bar1:create(1,2)
foo3.a = 6
assert(foo3.a == 6)

16
winx64/bin/swigwin-4.0.0/Examples/test-suite/lua/cpp_static_runme.lua Normal file
View File

@@ -0,0 +1,16 @@
-- demo of lua swig capacilities (operator overloading)
require("import") -- the import fn
import("cpp_static") -- import lib into global
cs=cpp_static --alias
-- catching undefined variables
local env = _ENV -- Lua 5.2
if not env then env = getfenv () end -- Lua 5.1
setmetatable(env, {__index=function (t,i) error("undefined global variable `"..i.."'",2) end})
cs.StaticMemberTest.static_int = 5;
assert(cs.StaticMemberTest.static_int == 5);
cs.StaticFunctionTest.static_func()
cs.StaticFunctionTest.static_func_2(2)
cs.StaticFunctionTest.static_func_3(3,3)

23
winx64/bin/swigwin-4.0.0/Examples/test-suite/lua/cpp_typedef_runme.lua Normal file
View File

@@ -0,0 +1,23 @@
require("import") -- the import fn
import("cpp_typedef") -- import lib into global
ct = cpp_typedef --alias
-- catching undefined variables
local env = _ENV -- Lua 5.2
if not env then env = getfenv () end -- Lua 5.1
setmetatable(env, {__index=function (t,i) error("undefined global variable `"..i.."'",2) end})
foo1 = ct.Foo()
bar1 = foo1:bar()
bar2 = ct.Foo.sbar()
u1 = ct.UnnamedStruct()
n1 = ct.TypedefNamedStruct()
test = ct.Test()
u2 = test:test1(u1)
n2 = test:test2(n1)
n3 = test:test3(n1)
n4 = test:test4(n1)

20
winx64/bin/swigwin-4.0.0/Examples/test-suite/lua/disown_runme.lua Normal file
View File

@@ -0,0 +1,20 @@
require("import") -- the import fn
import("disown") -- import code
-- catch "undefined" global variables
local env = _ENV -- Lua 5.2
if not env then env = getfenv () end -- Lua 5.1
setmetatable(env, {__index=function (t,i) error("undefined global variable `"..i.."'",2) end})
for x=0,100 do
a=disown.A()
b=disown.B()
b:acquire(a)
end
collectgarbage() -- this will double delete unless the memory is managed properly
a=disown.A()
a:__disown()
b:remove(a)
a=nil
collectgarbage() -- this will double delete unless the manual disown call worked

15
winx64/bin/swigwin-4.0.0/Examples/test-suite/lua/dynamic_cast_runme.lua Normal file
View File

@@ -0,0 +1,15 @@
require("import") -- the import fn
import("dynamic_cast") -- import code
f = dynamic_cast.Foo()
b = dynamic_cast.Bar()
x = f:blah()
y = b:blah()
-- swig_type is a swiglua specific function which gets the swig_type_info's name
assert(swig_type(f)==swig_type(x))
assert(swig_type(b)==swig_type(y))
-- the real test: is y a Foo* or a Bar*?
assert(dynamic_cast.do_test(y)=="Bar::test")

11
winx64/bin/swigwin-4.0.0/Examples/test-suite/lua/enum_plus_runme.lua Normal file
View File

@@ -0,0 +1,11 @@
require("import") -- the import fn
import("enum_plus") -- import lib
ep=enum_plus
-- catch "undefined" global variables
local env = _ENV -- Lua 5.2
if not env then env = getfenv () end -- Lua 5.1
setmetatable(env, {__index=function (t,i) error("undefined global variable `"..i.."'",2) end})
assert(ep.iFoo_Phoo == 50) -- Old variant of enum bindings
assert(ep.iFoo.Phoo == 50) -- New variant of enum bindings

11
winx64/bin/swigwin-4.0.0/Examples/test-suite/lua/enum_rename_runme.lua Normal file
View File

@@ -0,0 +1,11 @@
require("import") -- the import fn
import("enum_rename") -- import lib
er=enum_rename
-- catch "undefined" global variables
local env = _ENV -- Lua 5.2
if not env then env = getfenv () end -- Lua 5.1
setmetatable(env, {__index=function (t,i) error("undefined global variable `"..i.."'",2) end})
assert(er.M_Jan ~= nil)
assert(er.May ~= nil)

12
winx64/bin/swigwin-4.0.0/Examples/test-suite/lua/enum_scope_template_runme.lua Normal file
View File

@@ -0,0 +1,12 @@
require("import") -- the import fn
import("enum_scope_template") -- import lib
est=enum_scope_template
-- catch "undefined" global variables
local env = _ENV -- Lua 5.2
if not env then env = getfenv () end -- Lua 5.1
setmetatable(env, {__index=function (t,i) error("undefined global variable `"..i.."'",2) end})
assert(est.TreeInt.Oak ~= nil)
assert(est.TreeInt_Oak ~= nil)
assert(est.TreeInt.Cedar ~= nil)

16
winx64/bin/swigwin-4.0.0/Examples/test-suite/lua/enum_template_runme.lua Normal file
View File

@@ -0,0 +1,16 @@
require("import") -- the import fn
import("enum_template") -- import lib
et=enum_template
-- catch "undefined" global variables
local env = _ENV -- Lua 5.2
if not env then env = getfenv () end -- Lua 5.1
setmetatable(env, {__index=function (t,i) error("undefined global variable `"..i.."'",2) end})
assert(et.eTest0 ~= nil)
assert(et.eTest1 ~= nil)
et.TakeETest(et.eTest0)
res = et.MakeETest()
et.TakeETest(res)

30
winx64/bin/swigwin-4.0.0/Examples/test-suite/lua/enums_runme.lua Normal file
View File

@@ -0,0 +1,30 @@
require("import") -- the import fn
import("enums") -- import lib
-- catch "undefined" global variables
local env = _ENV -- Lua 5.2
if not env then env = getfenv () end -- Lua 5.1
setmetatable(env, {__index=function (t,i) error("undefined global variable `"..i.."'",2) end})
-- check values
assert(enums.CSP_ITERATION_FWD==0)
assert(enums.CSP_ITERATION_BWD==11)
assert(enums.ABCDE==0)
assert(enums.FGHJI==1)
assert(enums.boo==0)
assert(enums.hoo==5)
assert(enums.globalinstance1==0)
assert(enums.globalinstance2==1)
assert(enums.globalinstance3==30)
assert(enums.AnonEnum1==0)
assert(enums.AnonEnum2==100)
-- In C enums from struct are exported into global namespace (without prefixing with struct name)
-- In C++ they are prefixed (as compatibility thing).
-- We are emulating xor :)
assert(enums.BAR1 ~= enums.Foo_BAR1) -- It is either C style, or C++ style, but not both
assert((enums.BAR1 ~= nil ) or (enums.Foo_BAR1 ~= nil))
assert(enums.Phoo ~= enums.iFoo_Phoo)
assert((enums.Phoo == 50) or (enums.iFoo_Phoo == 50))
-- no point in checking fns, C will allow any value

47
winx64/bin/swigwin-4.0.0/Examples/test-suite/lua/equality_runme.lua Normal file
View File

@@ -0,0 +1,47 @@
require("import") -- the import fn
import("equality") -- import code
eq=equality -- renaming import
-- catch "undefined" global variables
local env = _ENV -- Lua 5.2
if not env then env = getfenv () end -- Lua 5.1
setmetatable(env, {__index=function (t,i) error("undefined global variable `"..i.."'",2) end})
-- === No equality operator ===
-- logically same data without equality operator are not equal
p1 = eq.MakePoint(10,9);
p2 = eq.MakePoint(10,9);
assert( p1 ~= p2 );
-- different wrappers for same Point* are equal
p3 = eq.GetZeroPointPtr()
p4 = eq.GetZeroPointPtr()
assert( p3 == p4 )
-- === Logically correct equality operator ===
ed1 = eq.EqualOpDefined(10)
ed2 = eq.EqualOpDefined(10)
ed3 = eq.EqualOpDefined(15)
assert( ed1 == ed2 )
assert( ed1 ~= ed3 )
-- === Logically incorrect equality operator ===
ew1 = eq.EqualOpWrong()
ew2 = eq.EqualOpWrong()
assert( ew1 ~= ew2 );
ew3 = eq.EqualOpWrong.GetStaticObject()
ew4 = eq.EqualOpWrong.GetStaticObject()
-- Even though these are pointers to same object, operator== overload should
-- state that they are not equal
assert( ew3 ~= ew4 )

47
winx64/bin/swigwin-4.0.0/Examples/test-suite/lua/exception_order_runme.lua Normal file
View File

@@ -0,0 +1,47 @@
-- demo of lua swig capacilities (operator overloading)
require("import") -- the import fn
import("exception_order") -- import lib into global
eo=exception_order --alias
-- catching undefined variables
local env = _ENV -- Lua 5.2
if not env then env = getfenv () end -- Lua 5.1
setmetatable(env, {__index=function (t,i) error("undefined global variable `"..i.."'",2) end})
a = eo.A()
function try1()
a:foo()
end
function try2()
a:bar()
end
function try3()
a:foobar()
end
-- the following code used to work
-- but now no longer works, as the lua bindings don't throw objects any more
-- all objects are converted to string & thrown
-- it could be made to work, if E1 & E2 were thrown by value (see lua.swg)
--[[
ok,ex=pcall(try1)
print(ok,ex)
assert(ok==false and swig_type(ex)==swig_type(eo.E1()))
ok,ex=pcall(try2)
assert(ok==false and swig_type(ex)==swig_type(eo.E2()))
]]
-- this new code does work, but has to look at the string
ok,ex=pcall(try1)
assert(ok==false and ex=="object exception:E1")
ok,ex=pcall(try2)
assert(ok==false and ex=="object exception:E2")
-- the SWIG_exception is just an error string
ok,ex=pcall(try3)
assert(ok==false and type(ex)=="string")

12
winx64/bin/swigwin-4.0.0/Examples/test-suite/lua/exception_partial_info_runme.lua Normal file
View File

@@ -0,0 +1,12 @@
require("import") -- the import fn
import("exception_partial_info") -- import code
-- catch "undefined" global variables
setmetatable(getfenv(),{__index=function (t,i) error("undefined global variable `"..i.."'",2) end})
imp=exception_partial_info.Impl()
-- trying to call throwing methods
-- should fail
assert(pcall(function() imp:f1() end)==false)
assert(pcall(function() imp:f2() end)==false)

32
winx64/bin/swigwin-4.0.0/Examples/test-suite/lua/extend_constructor_destructor_runme.lua Normal file
View File

@@ -0,0 +1,32 @@
require("import") -- the import fn
import("extend_constructor_destructor") -- import lib into global
ecd=extend_constructor_destructor --alias
-- catching undefined variables
local env = _ENV -- Lua 5.2
if not env then env = getfenv () end -- Lua 5.1
setmetatable(env, {__index=function (t,i) error("undefined global variable `"..i.."'",2) end})
a1 = ecd.AStruct(101)
assert(a1.ivar == 101)
assert(ecd.globalVar == 101)
b1 = ecd.BStruct(201)
assert(b1.ivar == 201)
assert(ecd.globalVar == 201)
c1 = ecd.CStruct(301)
assert(c1.ivar == 301)
assert(ecd.globalVar == 301)
d1 = ecd.DStruct(401)
assert(d1.ivar == 401)
assert(ecd.globalVar == 401)
e1 = ecd.EStruct(501)
assert(e1.ivar == 501)
assert(ecd.globalVar == 501)
f1 = ecd.FStruct(601)
assert(f1.ivar == 601)
assert(ecd.globalVar == 601)

37
winx64/bin/swigwin-4.0.0/Examples/test-suite/lua/extend_placement_runme.lua Normal file
View File

@@ -0,0 +1,37 @@
require("import") -- the import fn
import("extend_placement") -- import lib into global
ep=extend_placement --alias
-- catching undefined variables
local env = _ENV -- Lua 5.2
if not env then env = getfenv () end -- Lua 5.1
setmetatable(env, {__index=function (t,i) error("undefined global variable `"..i.."'",2) end})
function test_obj(main, suppl)
assert(main:spam() == 1)
assert(main:spam("this_is_string") == 2)
assert(main:spam(5) == 5)
assert(main:spam(5,6) == 11)
assert(main:spam(7,8,9) == 15)
assert(main:spam(suppl,12.0) == 0)
assert(main:spam(suppl) == 0)
end
foo1 = ep.Foo(0)
foo2 = ep.Foo(1,2)
foo3 = ep.Foo()
test_obj(foo1,foo2)
bar1 = ep.Bar()
bar2 = ep.Bar(5)
test_obj(bar1,bar2)
fti1 = ep.FooTi(0)
fti2 = ep.FooTi(1,2)
fti3 = ep.FooTi()
test_obj(fti1,foo1)
bti1 = ep.BarTi()
bti2 = ep.BarTi(5)
test_obj(bti1,bar1)

28
winx64/bin/swigwin-4.0.0/Examples/test-suite/lua/extend_runme.lua Normal file
View File

@@ -0,0 +1,28 @@
require("import") -- the import fn
import("extend") -- import lib into global
e=extend --alias
-- catching undefined variables
local env = _ENV -- Lua 5.2
if not env then env = getfenv () end -- Lua 5.1
setmetatable(env, {__index=function (t,i) error("undefined global variable `"..i.."'",2) end})
base1 = e.Base()
assert(base1.value == 0)
base2 = e.Base(10)
assert(base2.value == 10)
assert(base1:method(5) == 5)
assert(e.Base.zeroVal() == 0)
assert(base2:currentValue() == 10)
assert(base2:extendmethod(7) == 14)
der1 = e.Derived(0)
assert(der1.value == 0)
assert(der1:method(5) == 10)
der2 = e.Derived(17)
assert(der2.value == 34)
der2.extendval = 200.0
assert(math.abs(der2.actualval - 2.0) < 0.001)
assert(math.abs(der2.extendval - 200.0) < 0.001)

12
winx64/bin/swigwin-4.0.0/Examples/test-suite/lua/extend_template_runme.lua Normal file
View File

@@ -0,0 +1,12 @@
require("import") -- the import fn
import("extend_template") -- import lib into global
et=extend_template--alias
-- catching undefined variables
local env = _ENV -- Lua 5.2
if not env then env = getfenv () end -- Lua 5.1
setmetatable(env, {__index=function (t,i) error("undefined global variable `"..i.."'",2) end})
foo1 = et.Foo_0()
assert(foo1:test1(5) == 5)
assert(foo1:test2(7) == 7)

37
winx64/bin/swigwin-4.0.0/Examples/test-suite/lua/extend_typedef_class_runme.lua Normal file
View File

@@ -0,0 +1,37 @@
require("import") -- the import fn
import("extend_typedef_class") -- import lib into global
etc=extend_typedef_class --alias
-- catching undefined variables
local env = _ENV -- Lua 5.2
if not env then env = getfenv () end -- Lua 5.1
setmetatable(env, {__index=function (t,i) error("undefined global variable `"..i.."'",2) end})
function test_obj(obj, const)
obj.membervar = const
assert(obj:getvar() == const)
end
a1 = etc.AClass()
test_obj(a1,1)
b1 = etc.BClass()
test_obj(b1,2)
c1 = etc.CClass()
test_obj(c1,3)
d1 = etc.DClass()
test_obj(d1,4)
a2 = etc.AStruct()
test_obj(a2,5)
b2 = etc.BStruct()
test_obj(b2,6)
c2 = etc.CStruct()
test_obj(c2,7)
d2 = etc.DStruct()
test_obj(d2,8)

29
winx64/bin/swigwin-4.0.0/Examples/test-suite/lua/extend_variable_runme.lua Normal file
View File

@@ -0,0 +1,29 @@
require("import") -- the import fn
import("extend_variable") -- import lib into global
ev=extend_variable --alias
-- catching undefined variables
local env = _ENV -- Lua 5.2
if not env then env = getfenv () end -- Lua 5.1
setmetatable(env, {__index=function (t,i) error("undefined global variable `"..i.."'",2) end})
e1 = ev.ExtendMe()
answ = 1.0
assert(e1:set(7.0))
--assert(e1:get(answ)) -- doesn't work. Lua can't pass primitive type by non-const reference
--assert(answ == 7.0)
e1.ExtendVar = 5.0
assert(e1.ExtendVar == 5.0)
assert(ev.Foo.Bar == 42)
assert(ev.Foo.AllBarOne == 4422)
assert(ev.Foo.StaticInt == 1111)
ev.Foo.StaticInt = 3333
assert(ev.Foo.StaticInt == 3333)
assert(ev.Foo.StaticConstInt == 2222)
b1 = ev.Bar()
assert(b1.x == 1)

27
winx64/bin/swigwin-4.0.0/Examples/test-suite/lua/friends_runme.lua Normal file
View File

@@ -0,0 +1,27 @@
require("import") -- the import fn
import("friends") -- import lib into global
f=friends --alias
-- catching undefined variables
local env = _ENV -- Lua 5.2
if not env then env = getfenv () end -- Lua 5.1
setmetatable(env, {__index=function (t,i) error("undefined global variable `"..i.."'",2) end})
f.globalscope()
b1 = f.B(5)
a1 = f.A(10)
assert(f.get_val1(a1) == 10)
assert(f.get_val1(a1, 2) == 12)
assert(f.get_val2(a1) == 20)
assert(f.get_val3(a1) == 30)
assert(f.get_val1(100, 1, 2) == 100)
assert(f.mix(a1,b1) == 15);
d1 = f.D_i(7)
assert(f.get_val1(d1) == 7)
f.set(d1,9)
assert(f.get_val1(d1) == 9)

19
winx64/bin/swigwin-4.0.0/Examples/test-suite/lua/funcptr_cpp_runme.lua Normal file
View File

@@ -0,0 +1,19 @@
require("import") -- the import fn
import("funcptr_cpp") -- import lib into global
fc=funcptr_cpp --alias
-- catching undefined variables
local env = _ENV -- Lua 5.2
if not env then env = getfenv () end -- Lua 5.1
setmetatable(env, {__index=function (t,i) error("undefined global variable `"..i.."'",2) end})
assert(fc.addByValue(5,10) == 15)
-- These two won't work. Lua will successfully store the answer as userdata, but there is
-- no way of accessing the insides of userdata.
-- assert(fc.addByPointer(7, 9) == 16)
-- assert(fc.addByReference(8, 9) == 17)
assert(fc.call1(fc.ADD_BY_VALUE, 5, 10) == 15)
assert(fc.call2(fc.ADD_BY_POINTER, 7, 9) == 16)
assert(fc.call3(fc.ADD_BY_REFERENCE, 8, 9) == 17)
assert(fc.call1(fc.ADD_BY_VALUE_C, 2, 3) == 5)

17
winx64/bin/swigwin-4.0.0/Examples/test-suite/lua/fvirtual_runme.lua Normal file
View File

@@ -0,0 +1,17 @@
require("import") -- the import fn
import("fvirtual") -- import lib into global
f=fvirtual --alias
-- catching undefined variables
local env = _ENV -- Lua 5.2
if not env then env = getfenv () end -- Lua 5.1
setmetatable(env, {__index=function (t,i) error("undefined global variable `"..i.."'",2) end})
n1 = f.Node()
n2 = f.Node()
assert(n1:addChild(n2) == 1)
ns = f.NodeSwitch()
assert(ns:addChild(n2) == 2)
assert(ns:addChild(ns) == 2)
assert(ns:addChild(n1, false) == 3)

58
winx64/bin/swigwin-4.0.0/Examples/test-suite/lua/global_namespace_runme.lua Normal file
View File

@@ -0,0 +1,58 @@
require("import") -- the import fn
import("global_namespace") -- import lib into global
gn=global_namespace --alias
-- catching undefined variables
local env = _ENV -- Lua 5.2
if not env then env = getfenv () end -- Lua 5.1
setmetatable(env, {__index=function (t,i) error("undefined global variable `"..i.."'",2) end})
k1 = gn.Klass1()
k2 = gn.Klass2()
k3 = gn.Klass3()
k4 = gn.Klass4()
k5 = gn.Klass5()
k6 = gn.Klass6()
k7 = gn.Klass7()
gn.KlassMethods.methodA(k1,k2,k3,k4,k5,k6,k7)
gn.KlassMethods.methodB(k1,k2,k3,k4,k5,k6,k7)
k1 = gn.getKlass1A()
k2 = gn.getKlass2A()
k3 = gn.getKlass3A()
k4 = gn.getKlass4A()
k5 = gn.getKlass5A()
k6 = gn.getKlass6A()
k7 = gn.getKlass7A()
gn.KlassMethods.methodA(k1,k2,k3,k4,k5,k6,k7)
gn.KlassMethods.methodB(k1,k2,k3,k4,k5,k6,k7)
k1 = gn.getKlass1B()
k2 = gn.getKlass2B()
k3 = gn.getKlass3B()
k4 = gn.getKlass4B()
k5 = gn.getKlass5B()
k6 = gn.getKlass6B()
k7 = gn.getKlass7B()
gn.KlassMethods.methodA(k1,k2,k3,k4,k5,k6,k7)
gn.KlassMethods.methodB(k1,k2,k3,k4,k5,k6,k7)
x1 = gn.XYZ1()
x2 = gn.XYZ2()
x3 = gn.XYZ3()
x4 = gn.XYZ4()
x5 = gn.XYZ5()
x6 = gn.XYZ6()
x7 = gn.XYZ7()
gn.XYZMethods.methodA(x1,x2,x3,x4,x5,x6,x7)
gn.XYZMethods.methodB(x1,x2,x3,x4,x5,x6,x7)
gn.AnEnumMethods.methodA(gn.anenum1, gn.anenum2, gn.anenum3)
gn.AnEnumMethods.methodB(gn.anenum1, gn.anenum2, gn.anenum3)
gn.TheEnumMethods.methodA(gn.theenum1, gn.theenum2, gn.theenum3)
gn.TheEnumMethods.methodB(gn.theenum1, gn.theenum2, gn.theenum3)

44
winx64/bin/swigwin-4.0.0/Examples/test-suite/lua/global_vars_runme.lua Normal file
View File

@@ -0,0 +1,44 @@
require("import") -- the import fn
import("global_vars") -- import lib
gv = global_vars
-- catch "undefined" global variables
local env = _ENV -- Lua 5.2
if not env then env = getfenv () end -- Lua 5.1
setmetatable(env, {__index=function (t,i) error("undefined global variable `"..i.."'",2) end})
gv.b = "abcde"
assert(gv.b == "abcde")
gv.a.x = 7
assert(gv.a.x == 7)
a1 = gv.A()
a1.x = 11
gv.a = a1
assert(gv.a.x == 11)
gv.x = 10
assert(gv.x == 10)
assert(gv.Hi ~= nil)
assert(gv.Hola ~= nil)
gv.h = gv.Hi
assert(gv.h == gv.Hi)
-- It is not clear whether these tests should work or not
-- Currently they don't.
--
-- assert(gv.c_member == 10)
--
-- gv.c_member = 5
-- assert(gv.x == 5)
--
-- gv.h = gv.Hi
-- assert(gv.hr == gv.Hi)
--
-- gv.hr = gv.Hola
-- assert(gv.h == gv.Hola)
-- assert(gv.hr == gv.Hola)

18
winx64/bin/swigwin-4.0.0/Examples/test-suite/lua/grouping_runme.lua Normal file
View File

@@ -0,0 +1,18 @@
require("import") -- the import fn
import("grouping") -- import lib into global
g=grouping --alias
-- catching undefined variables
local env = _ENV -- Lua 5.2
if not env then env = getfenv () end -- Lua 5.1
setmetatable(env, {__index=function (t,i) error("undefined global variable `"..i.."'",2) end})
assert(g.test1(5) == 5)
g.test2(42) -- Return value is int* packed into userdata. We can't do anything with it
assert(g.test3 == 37)
g.test3 = 42
assert(g.test3 == 42)
assert(g.NEGATE ~= nil)
assert(g.do_unary(5, g.NEGATE) == -5)

17
winx64/bin/swigwin-4.0.0/Examples/test-suite/lua/iadd_runme.lua Normal file
View File

@@ -0,0 +1,17 @@
require("import") -- the import fn
import("iadd") -- import lib into global
i=iadd --alias
-- catching undefined variables
local env = _ENV -- Lua 5.2
if not env then env = getfenv () end -- Lua 5.1
setmetatable(env, {__index=function (t,i) error("undefined global variable `"..i.."'",2) end})
foo1 = i.Foo()
foo1_a = foo1.AsA
assert(foo1_a.x == 5)
assert(foo1_a:get_me().x == 5)
-- Unfortunately, in Lua operator+= can't be overloaded
foo1.AsLong = 1000
assert(foo1.AsLong == 1000)

28
winx64/bin/swigwin-4.0.0/Examples/test-suite/lua/import.lua Normal file
View File

@@ -0,0 +1,28 @@
-- import
-- the lua 5.0 loading mechanism is rather poor & relies upon the loadlib() fn
-- the lua 5.1 loading mechanism is simplicity itself
-- for now we need a bridge which will use the correct version
function import_5_0(name)
-- imports the file into the program
-- for a module 'example'
-- this must load 'example.dll' or 'example.so'
-- and look for the fn 'luaopen_example()'
if rawget(_G,name)~=nil then return end -- module appears to be loaded
local lib=loadlib(name..'.dll','luaopen_'..name) or loadlib(name..'.so','luaopen_'..name)
assert(lib,"error loading module:"..name)
lib() -- execute the function: initialising the lib
assert(rawget(_G,name)~=nil,"no module table found")
end
function import_5_1(name)
require(name)
end
if string.sub(_VERSION,1,7)=='Lua 5.0' then
import=import_5_0
else
import=import_5_1
end

16
winx64/bin/swigwin-4.0.0/Examples/test-suite/lua/import_nomodule_runme.lua Normal file
View File

@@ -0,0 +1,16 @@
require("import") -- the import fn
import("import_nomodule") -- import code
-- catch "undefined" global variables
local env = _ENV -- Lua 5.2
if not env then env = getfenv () end -- Lua 5.1
setmetatable(env, {__index=function (t,i) error("undefined global variable `"..i.."'",2) end})
f = import_nomodule.create_Foo()
import_nomodule.test1(f,42)
import_nomodule.delete_Foo(f)
b = import_nomodule.Bar()
import_nomodule.test1(b,37)
collectgarbage()

28
winx64/bin/swigwin-4.0.0/Examples/test-suite/lua/imports_runme.lua Normal file
View File

@@ -0,0 +1,28 @@
require("import") -- the import fn
-- need to load two modules
import("imports_a") -- import code
import("imports_b") -- import code
b=imports_b.B()
b:hello() -- call member function in A which is in a different SWIG generated library.
b:bye()
assert (b:member_virtual_test(imports_a.A_memberenum1) == imports_a.A_memberenum2)
assert (b:global_virtual_test(imports_a.globalenum1) == imports_a.globalenum2)
imports_b.global_test(imports_a.A_memberenum1)
--[[ B b = new B();
b.hello(); //call member function in A which is in a different SWIG generated library.
B b = new B();
b.hello(); //call member function in A which is in a different SWIG generated library.
b.bye();
if (b.member_virtual_test(A.MemberEnum.memberenum1) != A.MemberEnum.memberenum2)
throw new Exception("Test 1 failed");
if (b.global_virtual_test(GlobalEnum.globalenum1) != GlobalEnum.globalenum2)
throw new Exception("Test 2 failed");
imports_b.global_test(A.MemberEnum.memberenum1);
]]

14
winx64/bin/swigwin-4.0.0/Examples/test-suite/lua/inherit_missing_runme.lua Normal file
View File

@@ -0,0 +1,14 @@
require("import") -- the import fn
import("inherit_missing") -- import lib
im=inherit_missing
-- catch "undefined" global variables
local env = _ENV -- Lua 5.2
if not env then env = getfenv () end -- Lua 5.1
setmetatable(env, {__index=function (t,i) error("undefined global variable `"..i.."'",2) end})
bar = im.Bar()
spam = im.Spam()
assert(im.do_blah(bar) == "Bar::blah")
assert(im.do_blah(spam) == "Spam::blah")

12
winx64/bin/swigwin-4.0.0/Examples/test-suite/lua/keyword_rename_c_runme.lua Normal file
View File

@@ -0,0 +1,12 @@
require("import") -- the import fn
import("keyword_rename_c") -- import lib into global
kn=keyword_rename_c--alias
-- catching undefined variables
local env = _ENV -- Lua 5.2
if not env then env = getfenv () end -- Lua 5.1
setmetatable(env, {__index=function (t,i) error("undefined global variable `"..i.."'",2) end})
-- Check renaming of Lua keywords
assert(kn.c_end(5) == 5)
assert(kn.c_nil(7) == 7)

12
winx64/bin/swigwin-4.0.0/Examples/test-suite/lua/keyword_rename_runme.lua Normal file
View File

@@ -0,0 +1,12 @@
require("import") -- the import fn
import("keyword_rename") -- import lib into global
kn=keyword_rename--alias
-- catching undefined variables
local env = _ENV -- Lua 5.2
if not env then env = getfenv () end -- Lua 5.1
setmetatable(env, {__index=function (t,i) error("undefined global variable `"..i.."'",2) end})
-- Check renaming of Lua keywords
assert(kn.c_end(5) == 5)
assert(kn.c_nil(7) == 7)

29
winx64/bin/swigwin-4.0.0/Examples/test-suite/lua/li_carrays_cpp_runme.lua Normal file
View File

@@ -0,0 +1,29 @@
require("import") -- the import fn
import("li_carrays_cpp") -- import code
lc = li_carrays_cpp
-- catch "undefined" global variables
local env = _ENV -- Lua 5.2
if not env then env = getfenv () end -- Lua 5.1
setmetatable(env, {__index=function (t,i) error("undefined global variable `"..i.."'",2) end})
-- Testing for %array_functions(int,intArray)
ary = lc.new_intArray(2)
lc.intArray_setitem(ary, 0, 0)
lc.intArray_setitem(ary, 1, 1)
assert(lc.intArray_getitem(ary, 0)==0)
assert(lc.intArray_getitem(ary, 1)==1)
lc.delete_intArray(ary)
-- Testing for %array_class(double, doubleArray)
d = lc.doubleArray(10)
d[0] = 7
d[5] = d[0] + 3
assert(d[5] + d[0] == 17)
--print(d[5] + d[0])
ptr = d:cast() -- to ptr
d2 = lc.doubleArray_frompointer(ptr) -- and back to array
assert(d2[5] + d2[0] == 17)
--print(d2[5] + d2[0])

29
winx64/bin/swigwin-4.0.0/Examples/test-suite/lua/li_carrays_runme.lua Normal file
View File

@@ -0,0 +1,29 @@
require("import") -- the import fn
import("li_carrays") -- import code
lc = li_carrays
-- catch "undefined" global variables
local env = _ENV -- Lua 5.2
if not env then env = getfenv () end -- Lua 5.1
setmetatable(env, {__index=function (t,i) error("undefined global variable `"..i.."'",2) end})
-- Testing for %array_functions(int,intArray)
ary = lc.new_intArray(2)
lc.intArray_setitem(ary, 0, 0)
lc.intArray_setitem(ary, 1, 1)
assert(lc.intArray_getitem(ary, 0)==0)
assert(lc.intArray_getitem(ary, 1)==1)
lc.delete_intArray(ary)
-- Testing for %array_class(double, doubleArray)
d = lc.doubleArray(10)
d[0] = 7
d[5] = d[0] + 3
assert(d[5] + d[0] == 17)
--print(d[5] + d[0])
ptr = d:cast() -- to ptr
d2 = lc.doubleArray_frompointer(ptr) -- and back to array
assert(d2[5] + d2[0] == 17)
--print(d2[5] + d2[0])

16
winx64/bin/swigwin-4.0.0/Examples/test-suite/lua/li_factory_runme.lua Normal file
View File

@@ -0,0 +1,16 @@
require("import") -- the import fn
import("li_factory") -- import code
-- moving to global
for k,v in pairs(li_factory) do _G[k]=v end
-- catch "undefined" global variables
setmetatable(getfenv(),{__index=function (t,i) error("undefined global variable `"..i.."'",2) end})
circle = Geometry_create(Geometry_CIRCLE)
r = circle:radius()
assert(r == 1.5)
point = Geometry_create(Geometry_POINT)
w = point:width()
assert(w == 1.0)

16
winx64/bin/swigwin-4.0.0/Examples/test-suite/lua/li_std_except_runme.lua Normal file
View File

@@ -0,0 +1,16 @@
require("import") -- the import fn
import("li_std_except") -- import code
test = li_std_except.Test()
-- under lua, all the std::exceptions are just turned to strings, so we are only checking that is fails
assert(pcall(function() test:throw_bad_exception() end)==false)
assert(pcall(function() test:throw_domain_error() end)==false)
assert(pcall(function() test:throw_exception() end)==false)
assert(pcall(function() test:throw_invalid_argument() end)==false)
assert(pcall(function() test:throw_length_error() end)==false)
assert(pcall(function() test:throw_logic_error() end)==false)
assert(pcall(function() test:throw_out_of_range() end)==false)
assert(pcall(function() test:throw_overflow_error() end)==false)
assert(pcall(function() test:throw_range_error() end)==false)
assert(pcall(function() test:throw_runtime_error() end)==false)
assert(pcall(function() test:throw_underflow_error() end)==false)

34
winx64/bin/swigwin-4.0.0/Examples/test-suite/lua/li_std_pair_runme.lua Normal file
View File

@@ -0,0 +1,34 @@
require("import") -- the import fn
import("li_std_pair") -- import code
for k,v in pairs(li_std_pair) do _G[k]=v end -- move to global
intPair = makeIntPair(7, 6)
assert(intPair.first==7 and intPair.second==6)
intPairPtr = makeIntPairPtr(7, 6)
assert(intPairPtr.first==7 and intPairPtr.second==6)
intPairRef = makeIntPairRef(7, 6)
assert(intPairRef.first == 7 and intPairRef.second == 6)
intPairConstRef = makeIntPairConstRef(7, 6)
assert(intPairConstRef.first == 7 and intPairConstRef.second == 6)
-- call fns
assert(product1(intPair) == 42)
assert(product2(intPair) == 42)
assert(product3(intPair) == 42)
-- also use the pointer version
assert(product1(intPairPtr) == 42)
assert(product2(intPairPtr) == 42)
assert(product3(intPairPtr) == 42)
-- or the other types
assert(product1(intPairRef) == 42)
assert(product2(intPairRef) == 42)
assert(product3(intPairRef) == 42)
assert(product1(intPairConstRef) == 42)
assert(product2(intPairConstRef) == 42)
assert(product3(intPairConstRef) == 42)

115
winx64/bin/swigwin-4.0.0/Examples/test-suite/lua/li_std_string_runme.lua Normal file
View File

@@ -0,0 +1,115 @@
require("import") -- the import fn
import("li_std_string") -- import lib
for k,v in pairs(li_std_string) do _G[k]=v end -- move to global
-- catch "undefined" global variables
local env = _ENV -- Lua 5.2
if not env then env = getfenv () end -- Lua 5.1
setmetatable(env, {__index=function (t,i) error("undefined global variable `"..i.."'",2) end})
-- helper to check type
function is_std_string(s)
return type(s)=='userdata' and swig_type(s)=='std::string *'
end
-- std::string by value is just a Lua string
s=test_value("foo")
assert(type(s)=="string" and s=="foo")
-- std::string by const ref is also just a Lua string
s=test_const_reference("foo")
assert(type(s)=="string" and s=="foo")
-- std:string* is an object
obj=test_pointer_out()
assert(is_std_string(obj) and obj:c_str()=="x") -- check type & value
test_pointer(obj) -- this wants an object
cobj=test_const_pointer_out()
assert(is_std_string(cobj) and cobj:c_str()=="x") -- check type & value
test_const_pointer(cobj)
-- this shouldn't work, but it does
-- swig doesn't appear to diff between const object ptrs & object ptrs very well
test_pointer(cobj) -- this wants an non const object (give it a const one!)
-- refs are also wrappered as ptrs (unless the correct typemaps are applied)
robj=test_reference_out()
assert(is_std_string(robj) and robj:c_str()=="test_reference_out message") -- check type & value
test_reference(robj)
test_reference(obj) -- object ptr is ok
test_reference(cobj) -- obj const ptr is also ok
-- throwing string
ok,ex=pcall(test_throw)
assert(ok==false and type(ex)=="string") -- failed & threw string
ok,ex=pcall(test_const_reference_throw)
assert(ok==false and type(ex)=="string") -- failed & threw string
-- const ptrs are now converted to lua strings
-- they used to be std::string*
ok,ex=pcall(test_const_pointer_throw)
assert(ok==false and type(ex)=="string") -- failed & threw object
-- ditto non const ptrs
ok,ex=pcall(test_pointer_throw)
assert(ok==false and type(ex)=="string") -- failed & threw object
-- testing std::string variables
-- Global variables
s = "initial string"
assert (li_std_string.GlobalString2 == "global string 2")
li_std_string.GlobalString2 = s
assert (li_std_string.GlobalString2 == s)
assert (li_std_string.ConstGlobalString == "const global string")
-- Member variables
myStructure = Structure()
assert(myStructure.MemberString2 == "member string 2")
myStructure.MemberString2 = s
assert (myStructure.MemberString2 == s)
assert (myStructure.ConstMemberString == "const member string")
assert (li_std_string.Structure_StaticMemberString2 == "static member string 2")
li_std_string.Structure_StaticMemberString2 = s
assert (li_std_string.Structure_StaticMemberString2 == s)
assert (li_std_string.Structure_ConstStaticMemberString == "const static member string")
-- testing the structure (these are some old tests which predated the std::string variable tests above)
struc=Structure()
assert(type(struc.MemberString2)=="string") -- typemaps make this a string
assert(type(struc.ConstMemberString)=="string")
-- set a const (should fail with error)
assert(pcall(function () struc.ConstMemberString="c" end)==false)
--print(struc.MemberString:data(),struc.MemberString2,struc.ConstMemberString:data())
--check type again
assert(type(struc.MemberString2)=="string") -- typemaps make this a string
assert(type(struc.ConstMemberString)=="string")
-- for static types: they are really variables,
-- so we must still use the module name
-- check static type
assert(type(li_std_string.Structure_StaticMemberString2)=="string")
assert(type(li_std_string.Structure_ConstStaticMemberString)=="string")
-- try setting (should fail with error)
--li_std_string.Structure_StaticMemberString2='e'
assert(pcall(function () li_std_string.Structure_ConstStaticMemberString='f' end)==false)
--[[print(li_std_string.Structure_StaticMemberString:data(),
li_std_string.Structure_StaticMemberString2,
li_std_string.Structure_ConstStaticMemberString:data())]]
-- check static type again
assert(type(li_std_string.Structure_StaticMemberString)=="string")
assert(type(li_std_string.Structure_StaticMemberString2)=="string")
assert(type(li_std_string.Structure_ConstStaticMemberString)=="string")

66
winx64/bin/swigwin-4.0.0/Examples/test-suite/lua/li_std_vector_runme.lua Normal file
View File

@@ -0,0 +1,66 @@
require("import") -- the import fn
import("li_std_vector") -- import code
for k,v in pairs(li_std_vector) do _G[k]=v end -- move to global
iv = IntVector(4)
for i=0,3 do
iv[i] = i
end
for i=0,3 do assert(iv[i]==i) end
x = average(iv)
function near(x,y) return math.abs(x-y)<0.001 end
assert(near(x,1.5))
rv = RealVector()
rv:push_back(10)
rv:push_back(10.5)
rv:push_back(11)
rv:push_back(11.5)
a=half(rv)
for i=0,rv:size()-1 do
assert(near(a[i],rv[i]/2))
end
dv = DoubleVector(10)
for i=0,9 do dv[i] = i/2.0 end
halve_in_place(dv)
for i=0,9 do
assert(near(dv[i],i/4))
end
sv=StructVector(4)
for i=0,3 do
sv[i]=Struct(i)
end
for i=0,3 do
assert(swig_type(sv[i]) =='Struct *' and sv[i].num==i)
end
-- range checking
idx=0
function test_set() iv[idx]=0 end
function test_get() iv[idx]=0 end
idx=0 --ok
assert(pcall(test_get)==true)
assert(pcall(test_set)==true)
idx=-1 --should error
assert(pcall(test_get)==false)
assert(pcall(test_set)==false)
idx=3 --ok
assert(pcall(test_get)==true)
assert(pcall(test_set)==true)
idx=4 --should error
assert(pcall(test_get)==false)
assert(pcall(test_set)==false)

42
winx64/bin/swigwin-4.0.0/Examples/test-suite/lua/li_typemaps_runme.lua Normal file
View File

@@ -0,0 +1,42 @@
require("import") -- the import fn
import("li_typemaps") -- import code
-- catch "undefined" global variables
local env = _ENV -- Lua 5.2
if not env then env = getfenv () end -- Lua 5.1
setmetatable(env, {__index=function (t,i) error("undefined global variable `"..i.."'",2) end})
-- Check double INPUT typemaps
assert(li_typemaps.in_double(22.22) == 22.22)
assert(li_typemaps.inr_double(22.22) == 22.22)
-- Check double OUTPUT typemaps
assert(li_typemaps.out_double(22.22) == 22.22)
assert(li_typemaps.outr_double(22.22) == 22.22)
-- Check double INOUT typemaps
assert(li_typemaps.inout_double(22.22) == 22.22)
assert(li_typemaps.inoutr_double(22.22) == 22.22)
-- check long long
assert(li_typemaps.in_ulonglong(20)==20)
assert(li_typemaps.inr_ulonglong(20)==20)
assert(li_typemaps.out_ulonglong(20)==20)
assert(li_typemaps.outr_ulonglong(20)==20)
assert(li_typemaps.inout_ulonglong(20)==20)
assert(li_typemaps.inoutr_ulonglong(20)==20)
-- check bools
assert(li_typemaps.in_bool(true)==true)
assert(li_typemaps.inr_bool(false)==false)
assert(li_typemaps.out_bool(true)==true)
assert(li_typemaps.outr_bool(false)==false)
assert(li_typemaps.inout_bool(true)==true)
assert(li_typemaps.inoutr_bool(false)==false)
-- the others
a,b=li_typemaps.inoutr_int2(1,2)
assert(a==1 and b==2)
f,i=li_typemaps.out_foo(10)
assert(f.a==10 and i==20)

12
winx64/bin/swigwin-4.0.0/Examples/test-suite/lua/lua_inherit_getitem_runme.lua Normal file
View File

@@ -0,0 +1,12 @@
require("import") -- the import fn
import("lua_inherit_getitem") -- import lib
local t = lua_inherit_getitem;
local base = t.CBase()
local derived = t.CDerived()
assert(base.Foo ~= nil)
assert(base:Foo() == "CBase::Foo")
assert(derived.Foo == base.Foo)
assert(derived:Foo() == "CBase::Foo")

24
winx64/bin/swigwin-4.0.0/Examples/test-suite/lua/lua_no_module_global_runme.lua Normal file
View File

@@ -0,0 +1,24 @@
-- require is only available in Lua 5.1
if string.sub(_VERSION,1,7)=='Lua 5.1' then
-- Initially the package should not be loaded
assert(package.loaded["lua_no_module_global"] == nil)
-- Load the module
the_module = require "lua_no_module_global"
-- require should return the module table
assert(the_module.hi_mom ~= nil)
assert(the_module.hi_mom() == "hi mom!")
-- But it should not end up in the global table _G, subject to
-- the -nomoduleglobal swig option.
assert(_G["lua_no_module_global"] == nil)
-- According to the Lua 5.1 reference manual, require should also
-- store the module table into package.loaded["name"]
assert(package.loaded["lua_no_module_global"] == the_module)
assert(package.loaded["lua_no_module_global"].hi_mom() == "hi mom!")
end

46
winx64/bin/swigwin-4.0.0/Examples/test-suite/lua/member_pointer_runme.lua Normal file
View File

@@ -0,0 +1,46 @@
--Example using pointers to member functions
require("import") -- the import fn
import("member_pointer") -- import code
mp = member_pointer
-- catching undefined variables
local env = _ENV -- Lua 5.2
if not env then env = getfenv () end -- Lua 5.1
setmetatable(env, {__index=function (t,i) error("undefined global variable `"..i.."'",2) end})
function check(what, expected, actual)
assert(expected == actual,"Failed: "..what.." Expected: "..expected.." Actual: "..actual)
end
-- Get the pointers
area_pt = mp.areapt()
perim_pt = mp.perimeterpt()
-- Create some objects
s = mp.Square(10)
-- Do some calculations
check ("Square area ", 100.0, mp.do_op(s,area_pt))
check ("Square perim", 40.0, mp.do_op(s,perim_pt))
-- Try the variables
-- these have to still be part of the 'member_pointer' table
memberPtr = mp.areavar
memberPtr = mp.perimetervar
check ("Square area ", 100.0, mp.do_op(s,mp.areavar))
check ("Square perim", 40.0, mp.do_op(s,mp.perimetervar))
-- Modify one of the variables
mp.areavar = perim_pt
check ("Square perimeter", 40.0, mp.do_op(s,mp.areavar))
-- Try the constants
memberPtr = mp.AREAPT
memberPtr = mp.PERIMPT
memberPtr = mp.NULLPT
check ("Square area ", 100.0, mp.do_op(s,mp.AREAPT))
check ("Square perim", 40.0, mp.do_op(s,mp.PERIMPT))

16
winx64/bin/swigwin-4.0.0/Examples/test-suite/lua/multi_import_runme.lua Normal file
View File

@@ -0,0 +1,16 @@
require("import") -- the import fn
-- note: need to import the base class module before the derived class
-- this is because if the derived class is imported first it doesn't get the base class methods
import("multi_import_b") -- import code
import("multi_import_a") -- import code
x = multi_import_b.XXX()
assert(x:testx() == 0)
y = multi_import_b.YYY()
assert(y:testx() == 0)
assert(y:testy() == 1)
z = multi_import_a.ZZZ()
assert(z:testx() == 0)
assert(z:testz() == 2)

22
winx64/bin/swigwin-4.0.0/Examples/test-suite/lua/nested_workaround_runme.lua Normal file
View File

@@ -0,0 +1,22 @@
require("import") -- the import fn
import("nested_workaround") -- import lib
nw=nested_workaround
-- catch "undefined" global variables
local env = _ENV -- Lua 5.2
if not env then env = getfenv () end -- Lua 5.1
setmetatable(env, {__index=function (t,i) error("undefined global variable `"..i.."'",2) end})
i1 = nw.Inner(5)
assert(i1:getValue() == 5)
i1:setValue(7)
assert(i1:getValue() == 7)
o1 = nw.Outer()
i2 = o1:createInner(9)
assert(i2:getValue() == 9)
i2:setValue(11)
assert(o1:getInnerValue(i2) == 11)
i3 = o1:doubleInnerValue(i2)
assert(i3:getValue() == 22)

16
winx64/bin/swigwin-4.0.0/Examples/test-suite/lua/newobject1_runme.lua Normal file
View File

@@ -0,0 +1,16 @@
require("import") -- the import fn
import("newobject1") -- import code
foo1 = newobject1.Foo_makeFoo()
assert(newobject1.Foo_fooCount() == 1)
foo2 = foo1:makeMore()
assert(newobject1.Foo_fooCount() == 2)
foo1 = nil
collectgarbage()
assert(newobject1.Foo_fooCount() == 1)
foo2 = nil
collectgarbage()
assert(newobject1.Foo_fooCount() == 0)

16
winx64/bin/swigwin-4.0.0/Examples/test-suite/lua/newobject2_runme.lua Normal file
View File

@@ -0,0 +1,16 @@
require("import") -- the import fn
import("newobject2",true) -- import code
foo1 = newobject2.makeFoo() -- lua doesn't yet support static fns properly
assert(newobject2.fooCount() == 1) -- lua doesn't yet support static fns properly
foo2 = newobject2.makeFoo()
assert(newobject2.fooCount() == 2)
foo1 = nil
collectgarbage()
assert(newobject2.fooCount() == 1)
foo2 = nil
collectgarbage()
assert(newobject2.fooCount() == 0)

39
winx64/bin/swigwin-4.0.0/Examples/test-suite/lua/nspace_extend_runme.lua Normal file
View File

@@ -0,0 +1,39 @@
require("import") -- the import fn
import("nspace_extend") -- import lib
-- catch "undefined" global variables
local env = _ENV -- Lua 5.2
if not env then env = getfenv () end -- Lua 5.1
setmetatable(env, {__index=function (t,i) error("undefined global variable `"..i.."'",2) end})
ne = nspace_extend
-- Inner1
-- Constructors
in1_clr1 = ne.Outer.Inner1.Color()
in1_clr2 = ne.Outer.Inner1.Color.create()
in1_clr3 = ne.Outer.Inner1.Color(in1_clr2)
-- methods
in1_clr1:colorInstanceMethod(1.0)
ne.Outer.Inner1.Color.colorStaticMethod(2.0)
-- Inner2
-- Constructors
in2_clr1 = ne.Outer.Inner2.Color()
in2_clr2 = ne.Outer.Inner2.Color.create()
in2_clr3 = ne.Outer.Inner2.Color(in2_clr2)
assert(pcall(ne.Outer.Inner2.Color, in1_clr1) == false)
-- methods
in2_clr1:colorInstanceMethod(1.0)
ne.Outer.Inner2.Color.colorStaticMethod(2.0)
in2_clr3:colors(in1_clr1, in1_clr2, in2_clr2, in2_clr2, in2_clr3)
assert(pcall(in2_clr3.colors, in2_clr3,
in2_clr1, in2_clr2, in1_clr2, in2_clr2, in2_clr3) == false)

79
winx64/bin/swigwin-4.0.0/Examples/test-suite/lua/nspace_runme.lua Normal file
View File

@@ -0,0 +1,79 @@
require("import") -- the import fn
import("nspace") -- import lib
-- catch "undefined" global variables
local env = _ENV -- Lua 5.2
if not env then env = getfenv () end -- Lua 5.1
setmetatable(env, {__index=function (t,i) error("undefined global variable `"..i.."'",2) end})
ns = nspace
-- Inheritance
blue1 = ns.Outer.Inner3.Blue()
-- blue1:blueInstanceMethod()
blue1:colorInstanceMethod(60.0)
blue1.instanceMemberVariable = 4
assert( blue1.instanceMemberVariable == 4 )
-- Constructors
color1 = ns.Outer.Inner1.Color()
color2 = ns.Outer.Inner1.Color.create()
color = ns.Outer.Inner1.Color(color1)
color3 = ns.Outer.Inner2.Color.create()
color4 = ns.Outer.Inner2.Color.create()
color5 = ns.Outer.Inner2.Color.create()
mwp2 = ns.Outer.MyWorldPart2()
gc = ns.GlobalClass()
nnsp = ns.NoNSpacePlease()
-- Class methods
color:colorInstanceMethod(20.0)
ns.Outer.Inner1.Color.colorStaticMethod(30.0)
color3:colorInstanceMethod(40.0)
ns.Outer.Inner2.Color.colorStaticMethod(50.0)
color3:colors(color1, color2, color3, color4, color5)
gc:gmethod()
-- Class variables
color.instanceMemberVariable = 5
color1.instanceMemberVariable = 7
assert( color.instanceMemberVariable == 5 )
assert( color1.instanceMemberVariable == 7 )
assert(ns.Outer.Inner1.Color.staticMemberVariable == 0 )
assert(ns.Outer.Inner2.Color.staticMemberVariable == 0 )
ns.Outer.Inner1.Color.staticMemberVariable = 9
ns.Outer.Inner2.Color.staticMemberVariable = 11
assert(ns.Outer.Inner1.Color.staticMemberVariable == 9)
assert(ns.Outer.Inner2.Color.staticMemberVariable == 11)
-- Class constants
assert( ns.Outer.Inner1.Color.Specular == 0x20 )
assert( ns.Outer.Inner2.Color.Specular == 0x40 )
assert( ns.Outer.Inner1.Color.staticConstMemberVariable == 222 )
assert( ns.Outer.Inner2.Color.staticConstMemberVariable == 333 )
assert( ns.Outer.Inner1.Color.staticConstEnumMemberVariable ~= ns.Outer.Inner2.Color.staticConstEnumMemberVariable )
-- Aggregation
sc = ns.Outer.SomeClass()
assert( sc:GetInner1ColorChannel() ~= sc:GetInner2Channel() )
assert( sc:GetInner1Channel() ~= sc:GetInner2Channel() )
-- Backward compatibility
assert(ns.Outer.Inner1.Diffuse ~= nil)
-- Enums within class within namespace shouldn't have backward compatible name. Same for static methods
assert(ns.Outer.Inner1.Color_Diffuse == nil)
assert(ns.Outer.Inner1.Color_colorStaticMethod == nil)
-- Enums and static methods of class marked as %nonspace should have backward compatible name
assert(ns.NoNSpacePlease_noNspaceStaticFunc() == 10)
assert(ns.Outer.Inner2.NoNSpacePlease_NoNspace == nil)
-- ReallyNoNSpaceEnum is wrapped into %nonspace and thus handled correctly.
-- NoNSpaceEnum is not (although both of them are in %nonspace-wrapped class) and thus
-- handled rather unexpectedly
assert(ns.NoNSpacePlease_ReallyNoNspace1 == 1)
assert(ns.NoNSpacePlease.ReallyNoNspace2 == 10)

191
winx64/bin/swigwin-4.0.0/Examples/test-suite/lua/operator_overload_runme.lua Normal file
View File

@@ -0,0 +1,191 @@
-- demo of lua swig capacities (operator overloading)
require("import") -- the import fn
import("operator_overload") -- import lib
for k,v in pairs(operator_overload) do _G[k]=v end -- move to global
-- first check all the operators are implemented correctly from pure C++ code
Op_sanity_check()
-- catching undefined variables
local env = _ENV -- Lua 5.2
if not env then env = getfenv () end -- Lua 5.1
setmetatable(env, {__index=function (t,i) error("undefined global variable `"..i.."'",2) end})
-- test routine:
a=Op()
b=Op(5)
c=Op(b) -- copy construct
d=Op(2)
dd=d; -- assignment operator
-- test equality
assert(a~=b)
assert(b==c)
assert(a~=d)
assert(d==dd)
-- test <
assert(a<b)
assert(a<=b)
assert(b<=c)
assert(b>=c)
assert(b>d)
assert(b>=d)
-- lua does not support += operators: skipping
-- test +
f=Op(1)
g=Op(1)
assert(f+g==Op(2))
assert(f-g==Op(0))
assert(f*g==Op(1))
assert(f/g==Op(1))
--assert(f%g==Op(0)) -- lua does not support %
-- test unary operators
--assert((not a)==true) -- lua does not allow overloading for not operator
--assert((not b)==false) -- lua does not allow overloading for not operator
--lua 5.0.2 defines that unary - is __unm(self,nil)
--lua 5.1.2 defines that unary - is __unm(self,self)
--C++ expects unary - as operator-()
--however the latest version of SWIG strictly checks the number of args
--and will complain if too many args are provided
--therefore disabling these tests for now
-- (solution will to be not to check args for this test case)
assert(-a==a)
assert(-b==Op(-5))
-- test []
h=Op(3)
assert(h[0]==3)
assert(h[1]==0)
h[0]=2 -- set
assert(h[0]==2)
h[1]=2 -- ignored
assert(h[0]==2)
assert(h[1]==0)
-- test ()
i=Op(3)
assert(i()==3)
assert(i(1)==4)
assert(i(1,2)==6)
-- plus add some code to check the __str__ fn
assert(tostring(Op(1))=="Op(1)")
assert(tostring(Op(-3))=="Op(-3)")
-- check that operator overloads are correctly propagated down inheritance hierarchy
a_d=OpDerived()
b_d=OpDerived(5)
c_d=OpDerived(5)
d_d=OpDerived(2)
-- test equality
assert(a_d~=b_d)
assert(b_d==c_d)
assert(a_d~=d_d)
-- test <
assert(a_d<b_d)
assert(a_d<=b_d)
assert(b_d<=c_d)
assert(b_d>=c_d)
assert(b_d>d_d)
assert(b_d>=d_d)
--
-- test + inheritance
f_d=OpDerived(1)
g_d=OpDerived(1)
assert(f_d+g_d==Op(2))
assert(f_d-g_d==Op(0))
assert(f_d*g_d==Op(1))
assert(f_d/g_d==Op(1))
--
-- plus add some code to check the __str__ fn inheritance
assert(tostring(OpDerived(1))=="Op(1)")
assert(tostring(OpDerived(-3))=="Op(-3)")
--[[
/* Sample test code in C++
#include <assert.h>
#include <stdio.h>
int main(int argc,char** argv)
{
// test routine:
Op a;
Op b=5;
Op c=b; // copy construct
Op d=2;
// test equality
assert(a!=b);
assert(b==c);
assert(a!=d);
// test <
assert(a<b);
assert(a<=b);
assert(b<=c);
assert(b>=c);
assert(b>d);
assert(b>=d);
// test +=
Op e=3;
e+=d;
assert(e==b);
e-=c;
assert(e==a);
e=Op(1);
e*=b;
assert(e==c);
e/=d;
assert(e==d);
e%=c;
assert(e==d);
// test +
Op f(1),g(1);
assert(f+g==Op(2));
assert(f-g==Op(0));
assert(f*g==Op(1));
assert(f/g==Op(1));
assert(f%g==Op(0));
// test unary operators
assert(!a==true);
assert(!b==false);
assert(-a==a);
assert(-b==Op(-5));
// test []
Op h=3;
assert(h[0]==3);
assert(h[1]==0);
h[0]=2; // set
assert(h[0]==2);
h[1]=2; // ignored
assert(h[0]==2);
assert(h[1]==0);
// test ()
Op i=3;
assert(i()==3);
assert(i(1)==4);
assert(i(1,2)==6);
// plus add some code to check the __str__ fn
//assert(str(Op(1))=="Op(1)");
//assert(str(Op(-3))=="Op(-3)");
printf("ok\n");
}
*/
]]

22
winx64/bin/swigwin-4.0.0/Examples/test-suite/lua/overload_complicated_runme.lua Normal file
View File

@@ -0,0 +1,22 @@
require("import") -- the import fn
import("overload_complicated") -- import lib into global
oc=overload_complicated --alias
-- catching undefined variables
local env = _ENV -- Lua 5.2
if not env then env = getfenv () end -- Lua 5.1
setmetatable(env, {__index=function (t,i) error("undefined global variable `"..i.."'",2) end})
assert(oc.foo(1,1,"test",1) == 15)
p1 = oc.Pop(nil)
p1 = oc.Pop(nil,false)
assert(p1:hip(false) == 701)
assert(p1:hip(nil) == 702)
assert(p1:hop(false) == 801)
assert(p1:hop(nil) == 805)
assert(oc.muzak(false) == 3001)
assert(oc.muzak(nil) == 3002)

41
winx64/bin/swigwin-4.0.0/Examples/test-suite/lua/overload_null_runme.lua Normal file
View File

@@ -0,0 +1,41 @@
require("import") -- the import fn
import("overload_null") -- import lib into global
o = overload_null.Overload()
x = overload_null.X()
assert(1 == o:byval1(x))
assert(2 == o:byval1(nil))
assert(3 == o:byval2(nil))
assert(4 == o:byval2(x))
assert(5 == o:byref1(x))
assert(6 == o:byref1(nil))
assert(7 == o:byref2(nil))
assert(8 == o:byref2(x))
assert(9 == o:byconstref1(x))
assert(10 == o:byconstref1(nil))
assert(11 == o:byconstref2(nil))
assert(12 == o:byconstref2(x))
-- const pointer references
assert(13 == o:byval1cpr(x))
assert(14 == o:byval1cpr(nil))
assert(15 == o:byval2cpr(nil))
assert(16 == o:byval2cpr(x))
-- forward class declaration
assert(17 == o:byval1forwardptr(x))
assert(18 == o:byval1forwardptr(nil))
assert(19 == o:byval2forwardptr(nil))
assert(20 == o:byval2forwardptr(x))
assert(21 == o:byval1forwardref(x))
assert(22 == o:byval2forwardref(x))

55
winx64/bin/swigwin-4.0.0/Examples/test-suite/lua/overload_simple_runme.lua Normal file
View File

@@ -0,0 +1,55 @@
require("import") -- the import fn
import("overload_simple") -- import code
for k,v in pairs(overload_simple) do _G[k]=v end -- move to global
-- lua has only one numeric type, foo(int) and foo(double) are the same
-- whichever one was wrapper first will be used
assert(foo(3)=="foo:int" or foo(3)=="foo:double") -- could be either
assert(foo("hello")=="foo:char *")
f=Foo()
b=Bar()
assert(foo(f)=="foo:Foo *")
assert(foo(b)=="foo:Bar *")
v = malloc_void(32)
assert(foo(v) == "foo:void *")
s = Spam()
assert(s:foo(3) == "foo:int" or s:foo(3.0) == "foo:double") -- could be either
assert(s:foo("hello") == "foo:char *")
assert(s:foo(f) == "foo:Foo *")
assert(s:foo(b) == "foo:Bar *")
assert(s:foo(v) == "foo:void *")
assert(Spam_bar(3) == "bar:int" or Spam_bar(3.0) == "bar:double")
assert(Spam_bar("hello") == "bar:char *")
assert(Spam_bar(f) == "bar:Foo *")
assert(Spam_bar(b) == "bar:Bar *")
assert(Spam_bar(v) == "bar:void *")
-- Test constructors
s = Spam()
assert(s.type == "none")
s = Spam(3)
assert(s.type == "int" or s.type == "double")
s = Spam("hello")
assert(s.type == "char *")
s = Spam(f)
assert(s.type == "Foo *")
s = Spam(b)
assert(s.type == "Bar *")
s = Spam(v)
assert(s.type == "void *")
free_void(v)

81
winx64/bin/swigwin-4.0.0/Examples/test-suite/lua/overload_template_fast_runme.lua Normal file
View File

@@ -0,0 +1,81 @@
require("import") -- the import fn
import("overload_template_fast") -- import code
for k,v in pairs(overload_template_fast) do _G[k]=v end -- move to global
-- lua has only one numeric type, so maximum(int,int) and maximum(double,double) are the same
-- whichever one was wrapper first will be used (which is int)
f = foo()
a = maximum(3,4)
-- mix 1
assert(mix1("hi") == 101)
assert(mix1(1.0, 1.0) == 102)
assert(mix1(1.0) == 103)
-- mix 2
assert(mix2("hi") == 101)
assert(mix2(1.0, 1.0) == 102)
assert(mix2(1.0) == 103)
-- mix 3
assert(mix3("hi") == 101)
assert(mix3(1.0, 1.0) == 102)
assert(mix3(1.0) == 103)
-- Combination 1
assert(overtparams1(100) == 10)
assert(overtparams1(100.0, 100) == 20)
-- Combination 2
assert(overtparams2(100.0, 100) == 40)
-- Combination 3
assert(overloaded() == 60)
assert(overloaded(100.0, 100) == 70)
-- Combination 4
assert(overloadedagain("hello") == 80)
assert(overloadedagain() == 90)
-- specializations
assert(specialization(10) == 202 or specialization(10.0) == 203) -- only one works
assert(specialization(10, 10) == 204 or specialization(10.0, 10.0) == 205) -- ditto
assert(specialization("hi", "hi") == 201)
-- simple specialization
xyz()
xyz_int()
xyz_double()
-- a bit of everything
assert(overload("hi") == 0)
assert(overload(1) == 10)
assert(overload(1, 1) == 20)
assert(overload(1, "hello") == 30)
k = Klass()
assert(overload(k) == 10)
assert(overload(k, k) == 20)
assert(overload(k, "hello") == 30)
-- this one is incorrect: it mactches overload(10.0, "hi") with int overload(T t, const char *c)
--print(overload(10.0, "hi"))
--assert(overload(10.0, "hi") == 40)
assert(overload() == 50)
-- everything put in a namespace
assert(nsoverload("hi") == 1000,"nsoverload()")
assert(nsoverload(1) == 1010,"nsoverload(int t)")
assert(nsoverload(1, 1) == 1020,"nsoverload(int t, const int &)")
assert(nsoverload(1, "hello") == 1030,"nsoverload(int t, const char *)")
assert(nsoverload(k) == 1010,"nsoverload(Klass t)")
assert(nsoverload(k, k) == 1020,"nsoverload(Klass t, const Klass &)")
assert(nsoverload(k, "hello") == 1030,"nsoverload(Klass t, const char *)")
-- again this one fails
--assert(nsoverload(10.0, "hi") == 1040,"nsoverload(double t, const char *)")
assert(nsoverload() == 1050,"nsoverload(const char *)")
A_foo(1)
b = B()
b:foo(1)

81
winx64/bin/swigwin-4.0.0/Examples/test-suite/lua/overload_template_runme.lua Normal file
View File

@@ -0,0 +1,81 @@
require("import") -- the import fn
import("overload_template") -- import code
for k,v in pairs(overload_template) do _G[k]=v end -- move to global
-- lua has only one numeric type, so maximum(int,int) and maximum(double,double) are the same
-- whichever one was wrapper first will be used (which is int)
f = foo()
a = maximum(3,4)
-- mix 1
assert(mix1("hi") == 101)
assert(mix1(1.0, 1.0) == 102)
assert(mix1(1.0) == 103)
-- mix 2
assert(mix2("hi") == 101)
assert(mix2(1.0, 1.0) == 102)
assert(mix2(1.0) == 103)
-- mix 3
assert(mix3("hi") == 101)
assert(mix3(1.0, 1.0) == 102)
assert(mix3(1.0) == 103)
-- Combination 1
assert(overtparams1(100) == 10)
assert(overtparams1(100.0, 100) == 20)
-- Combination 2
assert(overtparams2(100.0, 100) == 40)
-- Combination 3
assert(overloaded() == 60)
assert(overloaded(100.0, 100) == 70)
-- Combination 4
assert(overloadedagain("hello") == 80)
assert(overloadedagain() == 90)
-- specializations
assert(specialization(10) == 202 or specialization(10.0) == 203) -- only one works
assert(specialization(10, 10) == 204 or specialization(10.0, 10.0) == 205) -- ditto
assert(specialization("hi", "hi") == 201)
-- simple specialization
xyz()
xyz_int()
xyz_double()
-- a bit of everything
assert(overload("hi") == 0)
assert(overload(1) == 10)
assert(overload(1, 1) == 20)
assert(overload(1, "hello") == 30)
k = Klass()
assert(overload(k) == 10)
assert(overload(k, k) == 20)
assert(overload(k, "hello") == 30)
-- this one is incorrect: it mactches overload(10.0, "hi") with int overload(T t, const char *c)
--print(overload(10.0, "hi"))
--assert(overload(10.0, "hi") == 40)
assert(overload() == 50)
-- everything put in a namespace
assert(nsoverload("hi") == 1000,"nsoverload()")
assert(nsoverload(1) == 1010,"nsoverload(int t)")
assert(nsoverload(1, 1) == 1020,"nsoverload(int t, const int &)")
assert(nsoverload(1, "hello") == 1030,"nsoverload(int t, const char *)")
assert(nsoverload(k) == 1010,"nsoverload(Klass t)")
assert(nsoverload(k, k) == 1020,"nsoverload(Klass t, const Klass &)")
assert(nsoverload(k, "hello") == 1030,"nsoverload(Klass t, const char *)")
-- again this one fails
--assert(nsoverload(10.0, "hi") == 1040,"nsoverload(double t, const char *)")
assert(nsoverload() == 1050,"nsoverload(const char *)")
A_foo(1)
b = B()
b:foo(1)

13
winx64/bin/swigwin-4.0.0/Examples/test-suite/lua/pointer_reference_runme.lua Normal file
View File

@@ -0,0 +1,13 @@
require("import") -- the import fn
import("pointer_reference",true) -- import code
s=pointer_reference.get()
assert(s.value == 10)
ss = pointer_reference.Struct(20);
pointer_reference.set(ss);
assert(pointer_reference.Struct_instance.value == 20)
assert(pointer_reference.overloading(1) == 111)
assert(pointer_reference.overloading(ss) == 222)

32
winx64/bin/swigwin-4.0.0/Examples/test-suite/lua/primitive_ref_runme.lua Normal file
View File

@@ -0,0 +1,32 @@
require("import") -- the import fn
import("primitive_ref") -- import code
pr=primitive_ref --alias
assert(pr.ref_int(3)==3)
assert(pr.ref_uint(3) == 3)
assert(pr.ref_short(3) == 3)
assert(pr.ref_ushort(3) == 3)
assert(pr.ref_long(3) == 3)
assert(pr.ref_ulong(3) == 3)
assert(pr.ref_schar(3) == 3)
assert(pr.ref_uchar(3) == 3)
assert(pr.ref_float(3.5) == 3.5)
assert(pr.ref_double(3.5) == 3.5)
assert(pr.ref_bool(true) == true)
assert(pr.ref_char('x') == 'x')
assert(pr.ref_over(0) == 0)
a=pr.A(12)
assert(pr.ref_over(a)==12)

26
winx64/bin/swigwin-4.0.0/Examples/test-suite/lua/refcount_runme.lua Normal file
View File

@@ -0,0 +1,26 @@
require("import") -- the import fn
import("refcount") -- import lib
r=refcount
-- catch "undefined" global variables
local env = _ENV -- Lua 5.2
if not env then env = getfenv () end -- Lua 5.1
setmetatable(env, {__index=function (t,i) error("undefined global variable `"..i.."'",2) end})
a = r.A()
assert(a:ref_count() == 1)
b1 = r.B(a)
assert(a:ref_count() == 2)
b2 = r.B.create(a)
assert(a:ref_count() == 3)
b3 = b2:cloner()
assert(a:ref_count() == 4)
rca = b1:get_rca() -- RCPtr<A> is not wrapped
assert(a:ref_count() == 5)
b4 = r.global_create(a)
assert(a:ref_count() == 6)

25
winx64/bin/swigwin-4.0.0/Examples/test-suite/lua/rename_simple_runme.lua Normal file
View File

@@ -0,0 +1,25 @@
require("import") -- the import fn
import("rename_simple") -- import lib
rs = rename_simple
-- catch "undefined" global variables
local env = _ENV -- Lua 5.2
if not env then env = getfenv () end -- Lua 5.1
setmetatable(env, {__index=function (t,i) error("undefined global variable `"..i.."'",2) end})
assert(rs.NewStruct ~= nil)
assert(rs.NewStruct.NewStaticVariable == 444)
assert(rs.NewStruct_NewStaticVariable == 444)
assert(rs.NewStruct.NewStaticMethod() == 333)
assert(rs.NewStruct_NewStaticMethod() == 333)
assert(rs.NewStruct.ONE == 1)
assert(rs.NewStruct_ONE == 1)
assert(rs.NewFunction() == 555)
assert(rs.OldStruct == nil)
assert(rs.OldFunction == nil)
assert(rs.OldGlobalVariable == nil)
assert(rs.OldStruct_ONE == nil)

6
winx64/bin/swigwin-4.0.0/Examples/test-suite/lua/ret_by_value_runme.lua Normal file
View File

@@ -0,0 +1,6 @@
require("import") -- the import fn
import("ret_by_value") -- import code
a = ret_by_value.get_test()
assert(a.myInt == 100)
assert(a.myShort == 200)

9
winx64/bin/swigwin-4.0.0/Examples/test-suite/lua/sizet_runme.lua Normal file
View File

@@ -0,0 +1,9 @@
require("import") -- the import fn
import("sizet") -- import code
s = 2000
s = sizet.test1(s+1)
s = sizet.test2(s+1)
s = sizet.test3(s+1)
s = sizet.test4(s+1)
assert(s == 2004)

34
winx64/bin/swigwin-4.0.0/Examples/test-suite/lua/smart_pointer_extend_runme.lua Normal file
View File

@@ -0,0 +1,34 @@
require("import") -- the import fn
import("smart_pointer_extend") -- import lib into global
spe=smart_pointer_extend --alias
-- catching undefined variables
local env = _ENV -- Lua 5.2
if not env then env = getfenv () end -- Lua 5.1
setmetatable(env, {__index=function (t,i) error("undefined global variable `"..i.."'",2) end})
assert(spe.CBase.hello() == 1)
assert(spe.CBase.z == 1)
base1 = spe.CBase()
base1.x = 7
p1 = spe.CPtr()
assert(spe.get_hello(p1) == 1)
assert(p1:foo() == 1)
assert(p1:bar() == 2)
assert(p1:boo(5) == 5)
foo = spe.Foo()
bar = spe.Bar(foo)
assert(bar:extension(5,7) == 5)
assert(bar:extension(7) == 7)
assert(bar:extension() == 1)
dfoo = spe.DFoo()
dptr = spe.DPtrFoo(dfoo)
assert(dptr:Ext() == 2)
assert(dptr:Ext(5) == 5)

18
winx64/bin/swigwin-4.0.0/Examples/test-suite/lua/smart_pointer_inherit_runme.lua Normal file
View File

@@ -0,0 +1,18 @@
require("import") -- the import fn
import("smart_pointer_inherit") -- import lib into global
spi=smart_pointer_inherit --alias
-- catching undefined variables
local env = _ENV -- Lua 5.2
if not env then env = getfenv () end -- Lua 5.1
setmetatable(env, {__index=function (t,i) error("undefined global variable `"..i.."'",2) end})
der = spi.Derived(7)
ptr = spi.SmartDerived(der)
assert(ptr.val == 7)
assert(ptr:value() == 7)
assert(ptr:value2() == 7)
assert(ptr:value3() == 7)
assert(ptr:valuehide() == -1)

23
winx64/bin/swigwin-4.0.0/Examples/test-suite/lua/smart_pointer_multi_runme.lua Normal file
View File

@@ -0,0 +1,23 @@
require("import") -- the import fn
import("smart_pointer_multi") -- import lib into global
spm=smart_pointer_multi --alias
-- catching undefined variables
local env = _ENV -- Lua 5.2
if not env then env = getfenv () end -- Lua 5.1
setmetatable(env, {__index=function (t,i) error("undefined global variable `"..i.."'",2) end})
foo = spm.Foo()
foo.x = 5
assert(foo:getx() == 5)
bar = spm.Bar(foo)
spam = spm.Spam(bar)
grok = spm.Grok(bar)
assert(bar:getx() == 5)
assert(spam:getx() == 5)
spam.x = 7
assert(grok:getx() == 7)
grok.x = 10
assert(foo:getx() == 10)

25
winx64/bin/swigwin-4.0.0/Examples/test-suite/lua/smart_pointer_not_runme.lua Normal file
View File

@@ -0,0 +1,25 @@
require("import") -- the import fn
import("smart_pointer_not") -- import lib into global
spn=smart_pointer_not --alias
-- catching undefined variables
local env = _ENV -- Lua 5.2
if not env then env = getfenv () end -- Lua 5.1
setmetatable(env, {__index=function (t,i) error("undefined global variable `"..i.."'",2) end})
foo = spn.Foo()
foo.x = 7
assert(foo:getx() == 7)
bar = spn.Bar(foo)
success = pcall(bar.getx, bar) -- Bar is not a smart pointer. Call should fail
assert(not success)
spam = spn.Spam(foo)
success = pcall(spam.getx, spam) -- Spam is not a smart pointer. Call should fail
assert(not success)
grok = spn.Grok(foo)
success = pcall(grok.getx, grok) -- Spam is not a smart pointer. Call should fail
assert(not success)

14
winx64/bin/swigwin-4.0.0/Examples/test-suite/lua/smart_pointer_overload_runme.lua Normal file
View File

@@ -0,0 +1,14 @@
require("import") -- the import fn
import("smart_pointer_overload") -- import code
for k,v in pairs(smart_pointer_overload) do _G[k]=v end -- move to global
f = Foo()
b = Bar(f)
assert(f:test(3) == 1)
--assert(f:test(3.5) == 2) -- won't work due to being unable to overloads
assert(f:test("hello") == 3)
assert(b:test(3) == 1)
--assert(b:test(3.5) == 2) -- won't work due to being unable to overloads
assert(b:test("hello") == 3)

18
winx64/bin/swigwin-4.0.0/Examples/test-suite/lua/smart_pointer_rename_runme.lua Normal file
View File

@@ -0,0 +1,18 @@
require("import") -- the import fn
import("smart_pointer_rename") -- import lib into global
spr=smart_pointer_rename --alias
-- catching undefined variables
local env = _ENV -- Lua 5.2
if not env then env = getfenv () end -- Lua 5.1
setmetatable(env, {__index=function (t,i) error("undefined global variable `"..i.."'",2) end})
foo = spr.Foo()
assert(foo:ftest1(1) == 1)
assert(foo:ftest2(1,2) == 2)
bar = spr.Bar(foo)
assert(bar:test() == 3)
assert(bar:ftest1(1) == 1)
assert(bar:ftest2(1,2) == 2)

22
winx64/bin/swigwin-4.0.0/Examples/test-suite/lua/smart_pointer_simple_runme.lua Normal file
View File

@@ -0,0 +1,22 @@
require("import") -- the import fn
import("smart_pointer_simple") -- import lib into global
sps=smart_pointer_simple --alias
-- catching undefined variables
local env = _ENV -- Lua 5.2
if not env then env = getfenv () end -- Lua 5.1
setmetatable(env, {__index=function (t,i) error("undefined global variable `"..i.."'",2) end})
foo1 = sps.Foo()
foo1.x = 5
assert(foo1.x == 5)
assert(foo1:getx() == 5)
bar1 = sps.Bar(foo1)
bar1.x = 3
assert(bar1.x == 3)
assert(bar1:getx() == 3)
bar1.x = 5
assert(bar1.x == 5)
assert(bar1:getx() == 5)

18
winx64/bin/swigwin-4.0.0/Examples/test-suite/lua/smart_pointer_templatemethods_runme.lua Normal file
View File

@@ -0,0 +1,18 @@
require("import") -- the import fn
import("smart_pointer_templatemethods") -- import lib into global
spt=smart_pointer_templatemethods --alias
-- catching undefined variables
local env = _ENV -- Lua 5.2
if not env then env = getfenv () end -- Lua 5.1
setmetatable(env, {__index=function (t,i) error("undefined global variable `"..i.."'",2) end})
o1 = spt.Objct()
iid = spt.InterfaceId()
po2 = o1:QueryInterfaceObjct(iid)
-- we can't call po2:DisposeObjct, because smart pointer Ptr<T> always return 0 when dereferencing
-- (see interface file). So we only check that po2 has necessary method
assert(po2.DisposeObjct ~= nil)
assert(po2.QueryInterfaceObjct ~= nil)

37
winx64/bin/swigwin-4.0.0/Examples/test-suite/lua/static_const_member_2_runme.lua Normal file
View File

@@ -0,0 +1,37 @@
require("import") -- the import fn
import("static_const_member_2") -- import lib
scm=static_const_member_2
-- catch "undefined" global variables
local env = _ENV -- Lua 5.2
if not env then env = getfenv () end -- Lua 5.1
setmetatable(env, {__index=function (t,i) error("undefined global variable `"..i.."'",2) end})
assert(scm.CavityPackFlags.forward_field == 1)
assert(scm.CavityPackFlags.backward_field == 2)
assert(scm.CavityPackFlags.cavity_flags == 3)
assert(scm.CavityPackFlags.flags == 0)
scm.CavityPackFlags.flags = 91
assert(scm.CavityPackFlags.flags == 91)
assert(scm.CavityPackFlags_flags == 91) -- old style bindings
assert(scm.CavityPackFlags.reftest == 42)
assert(scm.Test_int.LeftIndex ~= nil)
assert(scm.Test_int.current_profile == 4)
assert(scm.Foo.BAR.val == 1)
assert(scm.Foo.BAZ.val == 2)
assert(scm.Foo_BAR.val == 1)
assert(scm.Foo_BAZ.val == 2)
scm.Foo.BAR.val = 4
scm.Foo.BAZ.val = 5
assert(scm.Foo.BAR.val == 4)
assert(scm.Foo.BAZ.val == 5)
assert(scm.Foo_BAR.val == 4)
assert(scm.Foo_BAZ.val == 5)

21
winx64/bin/swigwin-4.0.0/Examples/test-suite/lua/static_const_member_runme.lua Normal file
View File

@@ -0,0 +1,21 @@
require("import") -- the import fn
import("static_const_member") -- import lib into global
scm=static_const_member --alias
-- catching undefined variables
local env = _ENV -- Lua 5.2
if not env then env = getfenv () end -- Lua 5.1
setmetatable(env, {__index=function (t,i) error("undefined global variable `"..i.."'",2) end})
assert(scm.X.PN == 0)
assert(scm.X.CN == 1)
assert(scm.X.EN == 2)
assert(scm.X.CHARTEST == "A")
-- Old-style bindings
assert(scm.X_PN == 0)
assert(scm.X_CN == 1)
assert(scm.X_EN == 2)
assert(scm.X_CHARTEST == "A")

10
winx64/bin/swigwin-4.0.0/Examples/test-suite/lua/template_construct_runme.lua Normal file
View File

@@ -0,0 +1,10 @@
require("import") -- the import fn
import("template_construct") -- import lib into global
tc=template_construct --alias
-- catching undefined variables
local env = _ENV -- Lua 5.2
if not env then env = getfenv () end -- Lua 5.1
setmetatable(env, {__index=function (t,i) error("undefined global variable `"..i.."'",2) end})
foo = tc.Foo_int(1)

64
winx64/bin/swigwin-4.0.0/Examples/test-suite/lua/template_default_arg_runme.lua Normal file
View File

@@ -0,0 +1,64 @@
require("import") -- the import fn
import("template_default_arg") -- import code
--for k,v in pairs(template_default_arg) do _G[k]=v end -- move to global
helloInt = template_default_arg.Hello_int()
assert(template_default_arg.Hello_int_hi ~= nil)
helloInt:foo(template_default_arg.Hello_int_hi)
x = template_default_arg.X_int()
assert(x:meth(20.0, 200) == 200,"X_int test 1 failed")
assert(x:meth(20) == 20,"X_int test 2 failed")
assert(x:meth() == 0,"X_int test 3 failed")
y = template_default_arg.Y_unsigned()
assert(y:meth(20.0, 200) == 200,"Y_unsigned test 1 failed")
assert(y:meth(20) == 20,"Y_unsigned test 2 failed")
assert(y:meth() == 0,"Y_unsigned test 3 failed")
x = template_default_arg.X_longlong()
x = template_default_arg.X_longlong(20.0)
x = template_default_arg.X_longlong(20.0, 200) -- note: long longs just treated as another number
x = template_default_arg.X_int()
x = template_default_arg.X_int(20.0)
x = template_default_arg.X_int(20.0, 200)
x = template_default_arg.X_hello_unsigned()
x = template_default_arg.X_hello_unsigned(20.0)
x = template_default_arg.X_hello_unsigned(20.0, template_default_arg.Hello_int())
y = template_default_arg.Y_hello_unsigned()
y:meth(20.0, template_default_arg.Hello_int())
y:meth(template_default_arg.Hello_int())
y:meth()
fz = template_default_arg.Foo_Z_8()
x = template_default_arg.X_Foo_Z_8()
fzc = x:meth(fz)
-- Templated functions
-- plain function: int ott(Foo<int>)
assert(template_default_arg.ott(template_default_arg.Foo_int()) == 30,"ott test 1 failed")
-- %template(ott) ott<int, int>
assert(template_default_arg.ott() == 10,"ott test 2 failed")
assert(template_default_arg.ott(1) == 10,"ott test 3 failed")
assert(template_default_arg.ott(1, 1) == 10,"ott test 4 failed")
assert(template_default_arg.ott("hi") == 20,"ott test 5 failed")
assert(template_default_arg.ott("hi", 1) == 20,"ott test 6 failed")
assert(template_default_arg.ott("hi", 1, 1) == 20,"ott test 7 failed")
-- %template(ott) ott<const char *>
assert(template_default_arg.ottstring(template_default_arg.Hello_int(), "hi") == 40,"ott test 8 failed")
assert(template_default_arg.ottstring(template_default_arg.Hello_int()) == 40,"ott test 9 failed")
-- %template(ott) ott<int>
assert(template_default_arg.ottint(template_default_arg.Hello_int(), 1) == 50,"ott test 10 failed")
assert(template_default_arg.ottint(template_default_arg.Hello_int()) == 50,"ott test 11 failed")
-- %template(ott) ott<double>
assert(template_default_arg.ott(template_default_arg.Hello_int(), 1.0) == 60,"ott test 12 failed")
assert(template_default_arg.ott(template_default_arg.Hello_int()) == 60,"ott test 13 failed")

14
winx64/bin/swigwin-4.0.0/Examples/test-suite/lua/template_extend1_runme.lua Normal file
View File

@@ -0,0 +1,14 @@
require("import") -- the import fn
import("template_extend1") -- import lib into global
te=template_extend1 --alias
-- catching undefined variables
local env = _ENV -- Lua 5.2
if not env then env = getfenv () end -- Lua 5.1
setmetatable(env, {__index=function (t,i) error("undefined global variable `"..i.."'",2) end})
lb = te.lBaz()
assert(lb:foo() == "lBaz::foo")
db = te.dBaz()
assert(db:foo() == "dBaz::foo")

14
winx64/bin/swigwin-4.0.0/Examples/test-suite/lua/template_extend2_runme.lua Normal file
View File

@@ -0,0 +1,14 @@
require("import") -- the import fn
import("template_extend2") -- import lib into global
te=template_extend2 --alias
-- catching undefined variables
local env = _ENV -- Lua 5.2
if not env then env = getfenv () end -- Lua 5.1
setmetatable(env, {__index=function (t,i) error("undefined global variable `"..i.."'",2) end})
lb = te.lBaz()
assert(lb:foo() == "lBaz::foo")
db = te.dBaz()
assert(db:foo() == "dBaz::foo")

24
winx64/bin/swigwin-4.0.0/Examples/test-suite/lua/template_inherit_runme.lua Normal file
View File

@@ -0,0 +1,24 @@
require("import") -- the import fn
import("template_inherit") -- import lib into global
ti=template_inherit --alias
-- catching undefined variables
local env = _ENV -- Lua 5.2
if not env then env = getfenv () end -- Lua 5.1
setmetatable(env, {__index=function (t,i) error("undefined global variable `"..i.."'",2) end})
fi = ti.FooInt()
assert(fi:blah() == "Foo")
assert(fi:foomethod() == "foomethod")
bi = ti.BarInt()
assert(bi:blah() == "Bar")
assert(bi:foomethod() == "foomethod")
assert(ti.invoke_blah_int(fi) == "Foo")
assert(ti.invoke_blah_int(bi) == "Bar")
bd = ti.BarDouble()
success = pcall(ti.invoke_blah_int, bd)
assert(not success)

20
winx64/bin/swigwin-4.0.0/Examples/test-suite/lua/template_static_runme.lua Normal file
View File

@@ -0,0 +1,20 @@
require("import") -- the import fn
import("template_static") -- import lib
ts=template_static
-- catch "undefined" global variables
local env = _ENV -- Lua 5.2
if not env then env = getfenv () end -- Lua 5.1
setmetatable(env, {__index=function (t,i) error("undefined global variable `"..i.."'",2) end})
assert(ts.foo_i.test == 0)
ts.foo_i.test = 42
assert(ts.foo_i.test == 42)
assert(ts.foo_i_test == 42)
ts.foo_i_test = 57
assert(ts.foo_i.test == 57)
assert(ts.foo_i_test == 57)
assert(ts.foo_d.test == 0)
assert(ts.Foo.bar_double(4) == 1.0)
assert(ts.Foo_bar_double(4) == 1.0)

17
winx64/bin/swigwin-4.0.0/Examples/test-suite/lua/valuewrapper_runme.lua Normal file
View File

@@ -0,0 +1,17 @@
require("import") -- the import fn
import("valuewrapper") -- import code
v=valuewrapper -- renaming import
-- catch "undefined" global variables
local env = _ENV -- Lua 5.2
if not env then env = getfenv () end -- Lua 5.1
setmetatable(env, {__index=function (t,i) error("undefined global variable `"..i.."'",2) end})
assert(v.Xi ~= nil)
assert(v.YXi ~= nil)
x1 = v.Xi(5)
y1 =v.YXi()
assert(y1:spam(x1) == 0)
assert(y1:spam() == 0)

18
winx64/bin/swigwin-4.0.0/Examples/test-suite/lua/varargs_runme.lua Normal file
View File

@@ -0,0 +1,18 @@
require("import") -- the import fn
import("varargs") -- import lib
v=varargs
-- catch "undefined" global variables
local env = _ENV -- Lua 5.2
if not env then env = getfenv () end -- Lua 5.1
setmetatable(env, {__index=function (t,i) error("undefined global variable `"..i.."'",2) end})
assert(v.test("Hello") == "Hello")
assert(v.test_def("Hello",0) == "Hello")
assert(v.Foo.statictest("Hello") == "Hello")
assert(v.Foo.statictest("Hello",1) == "Hello")
assert(v.test_plenty("Hello") == "Hello")
assert(v.test_plenty("Hello",1) == "Hello")
assert(v.test_plenty("Hello",1,2) == "Hello")

37
winx64/bin/swigwin-4.0.0/Examples/test-suite/lua/voidtest_runme.lua Normal file
View File

@@ -0,0 +1,37 @@
-- demo of lua swig
require("import") -- the import fn
import("voidtest") -- import lib
-- test calling functions
voidtest.globalfunc()
f = voidtest.Foo()
f:memberfunc() -- member fns must have : not a .
voidtest.Foo_staticmemberfunc() -- static member fns are still a little messy
v1 = voidtest.vfunc1(f)
v2 = voidtest.vfunc2(f)
assert(swig_equals(v1,v2)) -- a raw equals will not work, we look at the raw pointers
v3 = voidtest.vfunc3(v1)
assert(swig_equals(v3,f))
v4 = voidtest.vfunc1(f)
assert(swig_equals(v4,v1))
v3:memberfunc()
-- also testing nil's support
-- nil, are acceptable anywhere a pointer is
n1 = voidtest.vfunc1(nil)
n2 = voidtest.vfunc2(nil)
assert(n1==nil)
assert(n2==nil)
n3 = voidtest.vfunc3(n1)
n4 = voidtest.vfunc1(nil)
assert(n3==nil)
assert(n4==nil)