added "length of IP in bits" functions. removed some trailing whitespace.

[lcore.git] / binipstuff.pas

diff --git a/binipstuff.pas b/binipstuff.pas
index 93363e2b28282d8068260164ebade1cb50cf5003..489c2a2e6b8de5e8a198f26743888c69f84f4588 100644 (file)
--- a/binipstuff.pas
+++ b/binipstuff.pas
@@ -166,6 +166,10 @@ function inaddrvtobinip(inaddrv:tinetsockaddrv):tbinip;
 function makeinaddrv(addr:tbinip;port:ansistring;var inaddr:tinetsockaddrv):integer;\r
 function inaddrsize(inaddr:tinetsockaddrv):integer;\r
 \r
 function makeinaddrv(addr:tbinip;port:ansistring;var inaddr:tinetsockaddrv):integer;\r
 function inaddrsize(inaddr:tinetsockaddrv):integer;\r
 \r

+function getbinipbitlength(const ip:tbinip):integer;\r
+function getipstrbitlength(const ip:thostname):integer;\r
+function getfamilybitlength(family:integer):integer;\r
+\r

 implementation\r
 \r
 uses sysutils;\r
 implementation\r
 \r
 uses sysutils;\r


@@ -334,7 +338,7 @@ written by beware
 \r
 - implementation does not depend on other ipv6 code such as the tin6_addr type,\r
   the parameter can also be untyped.\r
 \r
 - implementation does not depend on other ipv6 code such as the tin6_addr type,\r
   the parameter can also be untyped.\r

-- it is host endian neutral - binary format is aways network order\r
+- it is host endian neutral - binary format is always network order\r

 - it supports compression of zeroes\r
 - it supports ::ffff:192.168.12.34 style addresses\r
 - they are made to do the Right Thing, more efficient implementations are possible\r
 - it supports compression of zeroes\r
 - it supports ::ffff:192.168.12.34 style addresses\r
 - they are made to do the Right Thing, more efficient implementations are possible\r


@@ -386,7 +390,7 @@ begin
     end;\r
   end;\r
 \r
     end;\r
   end;\r
 \r

-  {run length atleast 2 0 words}\r
+  {run length at least 2 0 words}\r

   if (runlength = 1) then begin\r
     runlength := 0;\r
     runbegin := 0;\r
   if (runlength = 1) then begin\r
     runlength := 0;\r
     runbegin := 0;\r


@@ -555,8 +559,8 @@ begin
   {$ifdef ipv6}\r
     if ip.family = AF_INET then begin\r
       ip.family := AF_INET6;\r
   {$ifdef ipv6}\r
     if ip.family = AF_INET then begin\r
       ip.family := AF_INET6;\r

-      ip.ip6.s6_addr32[3] := ip.ip; \r
-      ip.ip6.u6_addr32[0] := 0; \r
+      ip.ip6.s6_addr32[3] := ip.ip;\r
+      ip.ip6.u6_addr32[0] := 0;\r

       ip.ip6.u6_addr32[1] := 0;\r
       ip.ip6.u6_addr16[4] := 0;\r
       ip.ip6.u6_addr16[5] := $ffff;\r
       ip.ip6.u6_addr32[1] := 0;\r
       ip.ip6.u6_addr16[4] := 0;\r
       ip.ip6.u6_addr16[5] := $ffff;\r


@@ -660,5 +664,26 @@ begin
   end;\r
 end;\r
 \r
   end;\r
 end;\r
 \r

+function getfamilybitlength(family:integer):integer;\r
+begin\r
+  {$ifdef ipv6}\r
+  if family = AF_INET6 then result := 128 else\r
+  {$endif}\r
+  if family = AF_INET then result := 32\r
+  else result := 0;\r
+end;\r
+\r
+function getbinipbitlength(const ip:tbinip):integer;\r
+begin\r
+  result := getfamilybitlength(ip.family);\r
+end;\r
+\r
+function getipstrbitlength(const ip:thostname):integer;\r
+var\r
+  biniptemp:tbinip;\r
+begin\r
+  ipstrtobin(ip,biniptemp);\r
+  result := getbinipbitlength(biniptemp);\r
+end;\r

 \r
 end.\r
 \r
 end.\r