如何将带有字符数组的C记录类型转换为Ada记录类型

with Ada.Strings.Unbounded;

package C_To_Ada is

   -- 定义C记录类型
   type C_Record_Type is record
      field1 : array(1..10) of character;
      field2 : integer;
   end record;

   -- 将C记录类型转换为Ada记录类型
   function Convert_C_To_Ada(C_Record : C_Record_Type) return Ada_Record_Type;

   -- 定义Ada记录类型
   type Ada_Record_Type is record
      field1 : Ada.Strings.Unbounded.Unbounded_String;
      field2 : integer;
   end record;

end C_To_Ada;

with Ada.Strings.Unbounded;

package body C_To_Ada is

   function Convert_C_To_Ada(C_Record : C_Record_Type) return Ada_Record_Type is
      Ada_Record : Ada_Record_Type;
   begin
      -- 将字符数组转换为字符串类型
      Ada_Record.field1 := Ada.Strings.Unbounded.To_Unbounded_String(C_Record.field1);
      Ada_Record.field2 := C_Record.field2;
      
      return Ada_Record;
   end Convert_C_To_Ada;

end C_To_Ada;