NetAddr.pas

   1 unit NetAddr;
   2
   3 INTERFACE
   4 uses Sockets
   5     ,SysUtils
   6     ;
   7
   8  {Redefine socaddr here, becouse original is too short for ipv6 and unix}
   9  type tSockAddrL = packed record
  10            sa_family: sa_family_t;
  11            sa_data: array [0..107] of byte;
  12   end;
  13  type tSockAddr= type tSockAddrL deprecated;
  14
  15 TYPE
  16  {$PACKENUM 1}
  17  tFamily=(afNil=0, afInet=1, afInet6 );
  18
  19  { Network-byte-ordered words }
  20  Word2=array [1..2] of byte; {0..65535}
  21  Word4=array [1..4] of byte; {0..4294967295}
  22
  23  { Object to store Socket Address }
  24  t= packed object
  25
  26   function Length :word;
  27   { Returns length of the structure based on address family }
  28
  29   procedure ToSocket( var sockaddr :tSockAddrL );
  30   {$HINT Not actually testet, byt seems to work}
  31   procedure FromSocket( var sockaddr :tSockAddrL );
  32   {$HINT Not actually testet, byt seems to work}
  33
  34   procedure ToString( var str :String );
  35   {$HINT Not actually testet, byt seems to work}
  36   procedure FromString( str :String );
  37   {$HINT Not actually testet, byt seems to work}
  38   function Hash:Word;
  39
  40   procedure LocalHost( af: tFamily );
  41   {Generate localhost address of address family af.}
  42   {$HINT Not actually testet, byt seems to work}
  43
  44   procedure Clear;
  45   function  isNil:boolean;
  46
  47   public
  48   data :packed record
  49   case Family : tFamily of
  50    { note: maximum family is 32 so byte is enough }
  51    afInet :( inet :packed record
  52     port: Word;
  53     addr: tInAddr;
  54    end; );
  55    afInet6 :( inet6 :packed record
  56     port: Word;
  57     addr: tIn6Addr;
  58    end; );
  59    afNil :(
  60     pad_pV4IlkA4mKQL :packed array [0..128] of byte;
  61    );
  62   end;
  63  end;
  64
  65  tNetAddr=t; {alias}
  66
  67 function ConvertFamily( a:tFamily ): sa_family_t;
  68
  69 operator := (net : Word2) host:word;
  70 operator := (net : Word4) host:Dword;
  71 operator := (host : word) net:Word2;
  72 operator := (host : Dword) net:Word4;
  73
  74 Operator = (aa, ab :t) b : boolean;
  75
  76 operator := ( at : t) aString : string;
  77 operator := ( aString : string) at : t;
  78
  79 {
  80 Operator := (aa :t ) r : pSockAddr;
  81 Operator := ( aa :pSockAddr ) r : t;
  82 }
  83
  84 IMPLEMENTATION
  85
  86 Operator = (aa, ab :Sockets.tInAddr) b : boolean;
  87 begin
  88  b:=aa.s_addr=ab.s_addr;
  89 end;
  90
  91 Operator = (aa, ab :t) b : boolean;
  92 begin
  93  b:=false;
  94  if aa.data.Family<>ab.data.Family then exit;
  95  case aa.data.Family of
  96   afInet: if (aa.data.inet.port<>ab.data.inet.port) or (aa.data.inet.addr<>ab.data.inet.addr) then exit;
  97   afNil: {null addresses are always equal};
  98   else AbstractError;
  99  end;
 100  b:=true;
 101 end;
 102
 103 function t.Length :Word;
 104 begin
 105  result:=(sizeof(self)-sizeof(data))+sizeof(data.Family);
 106  case data.Family of
 107   afNil: ;
 108   afInet: result+=sizeof( data.inet );
 109   afInet6: result+=sizeof( data.inet6 );
 110   else result:=sizeof(self);
 111  end;
 112 end;
 113
 114 function ConvertFamily( a:tFamily ): sa_family_t;
 115  begin
 116  case a of
 117   afInet: result:=Sockets.AF_INET;
 118   afInet6: result:=Sockets.AF_INET6;
 119   else AbstractError;
 120  end;
 121 end;
 122
 123 procedure t.ToSocket( var sockaddr :tSockAddrL );
 124 begin
 125  case data.family of
 126   afInet: begin
 127    sockaddr.sa_family:=Sockets.AF_INET;
 128    Move(data.inet, sockaddr.sa_data, sizeof(data.inet) );
 129   end;
 130   afInet6: begin
 131    sockaddr.sa_family:=Sockets.AF_INET6;
 132    with tInetSockAddr6(pointer(@sockaddr)^) do begin
 133     sin6_port:=data.inet6.port;
 134     sin6_flowinfo:=0;
 135     sin6_addr:=data.inet6.addr;
 136     sin6_scope_id:=0;
 137    end;
 138   end;
 139   else AbstractError;
 140  end;
 141 end;
 142
 143 procedure t.FromSocket( var sockaddr :tSockAddrL );
 144 begin
 145  case sockaddr.sa_family of
 146   Sockets.AF_INET: begin
 147    data.family:=afInet;
 148    move(sockaddr.sa_data, data.inet, sizeof(data.inet) );
 149   end;
 150   Sockets.AF_INET6: begin
 151    data.family:=afInet6;
 152    move(sockaddr.sa_data, data.inet6, sizeof(data.inet6) );
 153   end;
 154   else raise Exception.Create('Unknown AF '+IntToStr(sockaddr.sa_family));
 155  end;
 156 end;
 157
 158 {$I NetAddr-str.pas}
 159
 160 procedure t.ToString( var str :String );
 161  begin
 162  case data.Family of
 163   afInet: begin
 164    str:='//ip4/'+Sockets.NetAddrToStr(data.inet.addr)+
 165     '/'+IntToStr(ShortNetToHost(data.inet.port));
 166   end;
 167   afInet6: begin
 168    str:='//ip6/'+Sockets.NetAddrToStr6(data.inet6.addr)+
 169     '/'+IntToStr(ShortNetToHost(data.inet6.port));
 170   end;
 171   afNil: str:='//nil';
 172   else str:='//nil/UnknownAddressFamily';
 173  end;
 174 end;
 175
 176 procedure t.FromString( str :String );
 177  var i:integer;
 178  var fam:string;
 179  begin
 180  if System.Length(str)=0 then begin Clear; exit end;
 181  if Copy(str,1,2)<>'//' then raise eConvertError.Create('');
 182  Delete(str,1,2);
 183  i:=pos('/',str); if i=0 then i:=System.Length(str)+1;
 184  fam:=copy(str,1,i-1);
 185  delete(str,1,i);
 186  if fam='ip4' then begin
 187   data.family:=afInet;
 188
 189   i:=pos('/',str); if i=0 then i:=System.Length(str)+1;
 190   fam:=copy(str,1,i-1);
 191   delete(str,1,i);
 192   data.inet.addr:=StrToNetAddr(fam);
 193
 194   i:=pos('/',str); if i=0 then i:=System.Length(str)+1;
 195   fam:=copy(str,1,i-1);
 196   delete(str,1,i);
 197   data.inet.port:=ShortHostToNet(StrToInt(fam));
 198
 199  end else if fam='ip6' then begin
 200   data.family:=afInet6;
 201
 202   i:=pos('/',str); if i=0 then i:=System.Length(str)+1;
 203   fam:=copy(str,1,i-1);
 204   delete(str,1,i);
 205   data.inet6.addr:=StrToNetAddr6(fam);
 206
 207   i:=pos('/',str); if i=0 then i:=System.Length(str)+1;
 208   fam:=copy(str,1,i-1);
 209   delete(str,1,i);
 210   data.inet6.port:=ShortHostToNet(StrToInt(fam));
 211
 212  end else if fam='nil' then begin
 213   data.family:=afNil;
 214  end else raise eConvertError.Create('');
 215 end;
 216
 217 function t.Hash:word;
 218  var h:word;
 219  var i:byte;
 220  procedure hashstep(v:byte);
 221   begin
 222   h:=((h shl 5)and $FFFF) xor ((h shr 2)and $FFFF) xor v;
 223  end;
 224  begin
 225  h:=0;
 226  assert(sizeof(data.family)=1,'simple set size'+IntToStr(sizeof(data.family)));
 227  hashstep(byte(data.family));
 228  case data.Family of
 229   afInet: for i:=1 to 4 do HashStep(data.inet.addr.s_bytes[i]);
 230   afInet6: for i:=1 to 16 do HashStep(data.inet6.addr.u6_addr8[i]);
 231   else AbstractError;
 232  end;
 233  case data.Family of
 234   afInet,afInet6: begin
 235    HashStep(data.inet.port and $FF);
 236    HashStep((data.inet.port shr 8) and $FF);
 237   end;
 238  end;
 239  result:=h;
 240 end;
 241
 242 const cLocalHostIP4:Sockets.tInAddr=( s_bytes:(127,0,0,1) );
 243 const cLocalIP4Port:word=1030;
 244
 245 procedure t.LocalHost( af: tFamily );
 246  begin
 247  data.Family:=af;
 248  case af of
 249   afInet: begin
 250    data.inet.port:=ShortHostToNet(cLocalIP4Port);
 251    data.inet.addr:=cLocalHostIP4;
 252   end;
 253   afNil: ;
 254   else AbstractError;
 255  end;
 256 end;
 257
 258 procedure t.Clear;
 259  begin
 260  self.data.family:=afNil;
 261 end;
 262
 263 function  t.isNil:boolean;
 264  begin
 265  isNil:= self.data.family=afNil;
 266 end;
 267
 268 operator := ( at : t) aString : string;
 269  begin
 270  at.ToString( aString );
 271 end;
 272 operator := ( aString : string) at : t;
 273  begin
 274  at.FromString( aString );
 275 end;
 276
 277 operator := (net : Word2) host:word;
 278  var pnet:^word;
 279  begin
 280  pnet:=@net;
 281  host:=ShortNetToHost( pnet^ );
 282 end;
 283 operator := (net : Word4) host:Dword;
 284  var pnet:^DWord;
 285  begin
 286  pnet:=@net;
 287  host:=LEtoN( pnet^ );
 288 end;
 289
 290 operator := (host : word) net:Word2;
 291  var pnet:^Word;
 292  begin
 293  pnet:=@net;
 294  pnet^:= ShortHostToNet( host );
 295 end;
 296 operator := (host : Dword) net:Word4;
 297  var pnet:^DWord;
 298  begin
 299  pnet:=@net;
 300  pnet^:=NtoLE( host );
 301 end;
 302
 303 END.