Ada与C语言交互：从wchar_t*转换为Wide_String的问题

我刚好在Debian Stretch上做过类似的HID设备对接工作，这个wchar_t*到Wide_String的转换坑确实容易踩，下面给你讲清楚原因和可行的解决方案，附带完整的可复现代码。

为什么直接用Unchecked_Conversion会触发STORAGE_ERROR？ #

首先得明确两个关键差异：

1. 类型语义不匹配：Interfaces.C.Strings.To_Ada是专门为C的单字节char*设计的，它会按单字节遍历直到遇到\0。但你把wchar_t*强行转成wchar_array后用To_Ada，它还是会按单字节处理，导致计算字符串长度完全错误，访问超出内存范围触发STORAGE_ERROR。
2. 编码和字节宽度差异：在Debian Stretch的x86_64系统上，C的wchar_t是4字节的UTF-32类型，而Ada的Wide_Character是2字节的UTF-16类型，直接类型转换会导致编码不兼容。

可行解决方案：手动实现类型转换 #

我们需要自己遍历C的wchar_t*数组，逐个处理字符编码转换，直到遇到null终止符。下面是完整的代码实现：

1. C端测试代码（模拟HID设备返回wchar_t*信息） #

创建device.c：

#include <wchar.h>

// 模拟HID设备返回的宽字符串信息，包含中文测试字符
wchar_t* get_device_info() {
    static wchar_t device_info[] = L"Debian HID Device: 测试设备 v1.0";
    return device_info;
}

2. Ada端转换工具包 #

创建wchar_conversion.ads：

with Interfaces.C; use Interfaces.C;
with System; use System;

package WChar_Conversion is
   -- 映射C的wchar_t数组和指针类型
   type wchar_array is array (size_t range <>) of wchar_t;
   type wchar_ptr is access all wchar_t;

   -- 核心转换函数：将C的wchar_t*转为Ada Wide_String
   function WChar_Ptr_To_Wide_String (Ptr : wchar_ptr) return Wide_String;
end WChar_Conversion;

创建wchar_conversion.adb：

package body WChar_Conversion is
   function WChar_Ptr_To_Wide_String (Ptr : wchar_ptr) return Wide_String is
      Length : size_t := 0;
   begin
      -- 第一步：计算字符串长度（直到遇到null终止符）
      while Ptr (Length) /= 0 loop
         Length := Length + 1;
      end loop;

      -- 第二步：逐个转换字符，处理UTF-32到UTF-16的编码映射
      declare
         Result : Wide_String (1 .. Integer (Length));
      begin
         for I in 0 .. Length - 1 loop
            declare
               C_WChar : constant wchar_t := Ptr (I);
            begin
               -- 处理BMP范围内的字符（绝大多数常用字符都在这个范围）
               if C_WChar <= 16#FFFF# then
                  Result (Integer (I) + 1) := Wide_Character'Val (C_WChar);
               else
                  -- 超出BMP的字符需要处理UTF-16代理对，这里简化为占位符
                  -- 如果你需要支持全UTF-32，可以扩展这里的逻辑
                  Result (Integer (I) + 1) := '?';
               end if;
            end;
         end loop;
         return Result;
      end;
   end WChar_Ptr_To_Wide_String;
end WChar_Conversion;

3. Ada主程序（对接HID设备并测试转换） #

创建test_hidraw_conversion.adb：

with WChar_Conversion; use WChar_Conversion;
with Interfaces.C; use Interfaces.C;
with Ada.Text_IO; use Ada.Text_IO;
with Wide_Text_IO; use Wide_Text_IO;

procedure Test_HIDRAW_Conversion is
   -- 导入C端的设备信息获取函数
   function get_device_info return wchar_ptr;
   pragma Import (C, get_device_info, "get_device_info");

   C_Ptr : constant wchar_ptr := get_device_info;
   Ada_Wide_Str : constant Wide_String := WChar_Ptr_To_Wide_String (C_Ptr);
begin
   Put_Line ("Successfully converted C wchar_t* to Ada Wide_String:");
   Put_Line (Ada_Wide_Str);
end Test_HIDRAW_Conversion;

编译和运行步骤 #

1. 编译C代码为共享库：

gcc -shared -fPIC -o libdevice.so device.c

2. 编译Ada代码并链接共享库：

gnatmake test_hidraw_conversion.adb -largs -L. -ldevice

3. 运行程序：

LD_LIBRARY_PATH=. ./test_hidraw_conversion

扩展说明 #

• 如果你的HID设备返回的是UTF-16编码的wchar_t*（比如Windows设备兼容的情况），只需要调整转换逻辑，按2字节读取wchar_t即可。
• 若需要支持超出BMP的UTF-32字符，可以扩展转换函数，生成UTF-16代理对组合成Wide_String。

内容的提问来源于stack exchange，提问作者user1818839