Anonymous user
Module:IP: Difference between revisions
From the Croc Wiki, the Croc encyclopedia
Jump to navigationJump to search
need to use __index to have a unique key which is really private - if outside code gets uniqueKey with getmetatable then they can set it in another table's __eq metamethod, thus foiling isSubnetObject
(add check self functions to Subnet) |
(need to use __index to have a unique key which is really private - if outside code gets uniqueKey with getmetatable then they can set it in another table's __eq metamethod, thus foiling isSubnetObject) |
||
(6 intermediate revisions by 2 users not shown) | |||
Line 488:
-- uniqueKey is a unique, private key used to test whether a given object
-- is a Subnet object.
local uniqueKey = setmetatable({}, {__metatable = false})
local mt = {▼
__eq = function (self, obj)▼
return self:getCIDR() == obj:getCIDR()▼
end,▼
__tostring = function (self)▼
return self:getCIDR()▼
end,▼
__metatable = uniqueKey▼
-- Private static methods
Line 513 ⟶ 502:
-- arg - the argument to be validated
validateSubnet = makeValidationFunction('Subnet', isSubnetObject)
-- Metamethods that don't need upvalues
local function subnetEquals(subnet1, subnet2)
end
local function concatenateSubnets(subnet1, subnet2)
return tostring(subnet1) .. tostring(subnet2)
end
local function subnetToString(subnet)
end
-- Constructors
makeSubnetFromRaw = function (rawIP, bitLength)
-- Set up structure
local obj =
local data = {
rawIP = rawIP,
Line 583 ⟶ 585:
function obj:containsIP(ip)
checkSelf(self, 'containsIP')
if tp == 'string' then
ip = makeIPAddress(ip)
elseif tp == 'table' then
validateIPAddress('containsIP', 1, ip)
else
checkTypeMulti('containsIP', 1, ip, {'string', 'table'})
if self:getVersion() == ip:getVersion() then
return self:getPrefix() <= ip and ip <= self:getHighestIP()
Line 591 ⟶ 601:
function obj:overlapsSubnet(subnet)
checkSelf(self, 'overlapsSubnet')
local tp = type(subnet)
if tp == 'string' then
subnet = makeSubnet(subnet)
elseif tp == 'table' then
validateSubnet('overlapsSubnet', 1, subnet)
else
checkTypeMulti('overlapsSubnet', 1, subnet, {'string', 'table'})
end
if self:getVersion() == subnet:getVersion() then
return (
Line 617 ⟶ 635:
end
return setmetatable(obj, {
if key == uniqueKey then
return true
end
▲ end,
__eq = subnetEquals,
__concat = concatenateSubnets,
})
end
|