1

此用于获取临时文件名的代码返回一个空字符串。我正在尝试弄清楚它是如何工作的，因为我能找到的所有 docomkstemp都说它需要类似的格式/tmp/prefixXXXXXX，而这里没有使用。

function get_Temp_Name
    return String
is

  Temp_File_Name : String (1 .. 25) := (others => ' ');

  C_Buffer      : aliased  Interfaces.C.Char_Array          := Interfaces.C.To_C(Temp_File_Name, Append_Nul => True);
  C_Ptr         : constant Interfaces.C.Strings.Chars_Ptr   := Interfaces.C.Strings.To_Chars_Ptr(C_Buffer'Unchecked_Access);
  Result_Ptr    : Interfaces.C.Strings.Chars_Ptr;

begin
    Result_Ptr := C_Mkstemp(C_Ptr);             
    return Ada.Strings.Fixed.Trim(Interfaces.C.To_Ada(C_Buffer, True), Ada.Strings.Both);

    EXCEPTION
        when Error : others =>
            -- redacted
            raise;

end Get_Temp_Name;

这是电话的旧形式吗？

目录权限会影响执行C_Mkstemp()吗？

编辑：定义/导入C_Mkstemp：

  function C_Mkstemp( template : Interfaces.C.Strings.Chars_Ptr )
      return Interfaces.C.Strings.Chars_Ptr;
      pragma Import(C, C_Mkstemp, "mkstemp");
4

0 回答 0