在Ada中将地址拆分并转换为不同的整数

with Ada.Text_IO;

procedure Address_Split is
   package IO is new Ada.Text_IO.Integer_IO(Integer);
   
   -- 定义一个无符号整数类型，用于存储地址的每个部分
   type Address_Part is range 0 .. 255;
   
   -- 定义一个记录类型，用于存储拆分后的地址
   type Address_Record is record
      Part1 : Address_Part;
      Part2 : Address_Part;
      Part3 : Address_Part;
      Part4 : Address_Part;
   end record;
   
   -- 将地址拆分并转换为不同的整数
   function Split_Address(Address : System.Address) return Address_Record is
      Result : Address_Record;
      Temp   : Integer := Integer(Address);
   begin
      -- 提取地址的每个部分
      Result.Part1 := Address_Part((Temp / 2**24) mod 256);
      Result.Part2 := Address_Part((Temp / 2**16) mod 256);
      Result.Part3 := Address_Part((Temp / 2**8) mod 256);
      Result.Part4 := Address_Part(Temp mod 256);
      
      return Result;
   end Split_Address;
   
   -- 测试代码
   Address : System.Address := System'Main_Address;
   Split   : Address_Record;
begin
   -- 将地址拆分并转换为不同的整数
   Split := Split_Address(Address);
   
   -- 打印拆分后的地址
   IO.Put(Item => Split.Part1, Base => 10);
   Ada.Text_IO.Put(Item => '.');
   IO.Put(Item => Split.Part2, Base => 10);
   Ada.Text_IO.Put(Item => '.');
   IO.Put(Item => Split.Part3, Base => 10);
   Ada.Text_IO.Put(Item => '.');
   IO.Put(Item => Split.Part4, Base => 10);
end Address_Split;