Modul:IPAddress

--[=[Functions are not "local", so other modules can require this module and call them directly.We return an object with 3 small stub functions to call the real ones so that the functionscan be called from templates also.Only [[dotted decimal]] notation for IPv4 supported. Does not supportdotted hexadecimal, dotted octal, or single-number formats (see [[IPv4#Address_representations]]).Unit tests at Module:IPAddress/tests]=]function _isIpV6( s )local dcolon, groupsif type( s ) ~= "string"or s:len() == 0or s:find( "[^:%x]" ) -- only colon and hex digits are legal charsor s:find( "^:[^:]" ) -- can begin or end with :: but not with single :or s:find( "[^:]:$" )or s:find( ":::" )thenreturn falseends, dcolon = s:gsub( "::", ":" )if dcolon > 1 then return false end -- at most one ::s = s:gsub( "^:?", ":" ) -- prepend : if needed, uppers, groups = s:gsub( ":%x%x?%x?%x?", "" ) -- remove valid groups, and count themreturn ( ( dcolon == 1 and groups < 8 ) or ( dcolon == 0 and groups == 8 ) )and ( s:len() == 0 or ( dcolon == 1 and s == ":" ) ) -- might be one dangling : if original ended with ::endfunction _isIpV4( s )local function legal( n ) return ( tonumber( n ) or 256 ) < 256  and not n:match("^0%d") end-- in lua 0 is true!if type( s ) ~= "string" then return false endlocal p1, p2, p3, p4 = s:match( "^(%d+)%.(%d+)%.(%d+)%.(%d+)$" )return legal( p1 ) and legal( p2 ) and legal( p3 ) and legal( p4 )endfunction _isIp( s )return _isIpV4( s ) and "4" or _isIpV6( s ) and "6"endlocal p = {}function p.isIpV6(frame) return _isIpV6( frame.args[ 1 ] ) and "1" or "0" endfunction p.isIpV4(frame) return _isIpV4( frame.args[ 1 ] ) and "1" or "0" endfunction p.isIp(frame) return _isIp( frame.args[ 1 ] ) or "" endfunction p.isIpOrRange(frame)-- {{#invoke:IPAddress|isIpOrRange|x}} → 'ip' (IPv4/IPv6) or 'range' (CIDR IPv4/IPv6) or '' (invalid)local modip = require('Module:IP')local s = frame.args[1]local success, ip = pcall(modip.IPAddress.new, s)if success thenreturn 'ip'endsuccess, ip = pcall(modip.Subnet.new, s)if success thenreturn 'range'endreturn ''endreturn p