Examples/test-suite/lua/assign_reference_runme.lua - master - niceSOFT/swig

Examples/test-suite/lua/assign_reference_runme.lua
74 строки3 KB
Erez Geva
More Lua tests (#3405)
31 май 2026, 17:09
31 май 2026, 17:09a1b3ca8
local v=require("assign_reference")

local ap = v.AssignPublic()
local pint = ap.PublicMember
ap.PublicMember = v.getGlobalIntRef()

local mv = v.MemberVars()

-- (1) Test directly non-assignable member variables
-- These will only have getters
local a1 = mv.MemberPublic
local a2 = mv.MemberProtected
local a3 = mv.MemberPrivate

-- (2) Test indirectly non-assignable member variables via inheritance
local imv = v.InheritedMemberVars()
-- These will only have getters
local a4 = imv.MemberPublicDerived
local a5 = imv.MemberProtectedDerived
local a6 = imv.MemberPrivateDerived

local sa4 = v.InheritedMemberVars.StaticMemberPublicDerived
local sa5 = v.InheritedMemberVars.StaticMemberProtectedDerived
local sa6 = v.InheritedMemberVars.StaticMemberPrivateDerived

local ga4 = v.GlobalPublicDerived
local ga5 = v.GlobalProtectedDerived
local ga6 = v.GlobalPrivateDerived

-- These will have getters and setters
local a7 = imv.MemberPublicDerivedSettable
imv.MemberPublicDerivedSettable = a7
local a8 = imv.MemberProtectedDerivedSettable
imv.MemberProtectedDerivedSettable = a8
local a9 = imv.MemberPrivateDerivedSettable
imv.MemberPrivateDerivedSettable = a9

local sa7 = v.InheritedMemberVars.StaticMemberPublicDerivedSettable
v.InheritedMemberVars.StaticMemberPublicDerivedSettable = sa7
local sa8 = v.InheritedMemberVars.StaticMemberProtectedDerivedSettable
v.InheritedMemberVars.StaticMemberProtectedDerivedSettable = sa8
local sa9 = v.InheritedMemberVars.StaticMemberPrivateDerivedSettable
v.InheritedMemberVars.StaticMemberPrivateDerivedSettable = sa9

local ga7 = v.GlobalPublicDerivedSettable
v.GlobalPublicDerivedSettable = ga7
local ga8 = v.GlobalProtectedDerivedSettable
v.GlobalProtectedDerivedSettable = ga8
local ga9 = v.GlobalPrivateDerivedSettable
v.GlobalPrivateDerivedSettable = ga9

-- (3) Test indirectly non-assignable member variables via classes that themselves have non-assignable member variables
local m = v.MembersMemberVars()

-- These will only have getters
local mpv1 = m.MemberPublic
local mpv2 = m.MemberProtected
local mpv3 = m.MemberPrivate

local smpv1 = v.StaticMembersMemberVars.StaticMemberPublic
local smpv2 = v.StaticMembersMemberVars.StaticMemberProtected
local smpv3 = v.StaticMembersMemberVars.StaticMemberPrivate

local gmpv1 = v.GlobalMemberPublic
local gmpv2 = v.GlobalMemberProtected
local gmpv3 = v.GlobalMemberPrivate

-- Setters and getters available
local smmvh = v.StaticMembersMemberVarsHolder()
local member = smmvh.Member
smmvh.Member = member

local smmv = v.GlobalStaticMembersMemberVars
v.GlobalStaticMembersMemberVars = smmv