From 63779a242d73ddf9c48e8f1cdc2dc206abc1fe4c Mon Sep 17 00:00:00 2001 From: mgr Date: Thu, 16 Sep 2021 23:20:37 +0200 Subject: [PATCH] API fixes in Sf.Network.Ftp getWorkingDirectory and getDirectoryListing had return types inconsistent with CSFML. --- include/sf-network-ftp.ads | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/include/sf-network-ftp.ads b/include/sf-network-ftp.ads index 23279bc..5c5b978 100644 --- a/include/sf-network-ftp.ads +++ b/include/sf-network-ftp.ads @@ -435,7 +435,7 @@ package Sf.Network.Ftp is --/ @return Server response to the request --/ --////////////////////////////////////////////////////////// - function getWorkingDirectory (ftp : sfFtp_Ptr) return sfFtpResponse_Ptr; + function getWorkingDirectory (ftp : sfFtp_Ptr) return sfFtpDirectoryResponse_Ptr; --////////////////////////////////////////////////////////// --/ @brief Get the contents of the given directory @@ -451,7 +451,8 @@ package Sf.Network.Ftp is --/ @return Server response to the request --/ --////////////////////////////////////////////////////////// - function getDirectoryListing (ftp : sfFtp_Ptr; directory : String) return sfFtpResponse_Ptr; + function getDirectoryListing (ftp : sfFtp_Ptr; directory : String) + return sfFtpListingResponse_Ptr; --////////////////////////////////////////////////////////// --/ @brief Change the current working directory @@ -622,7 +623,6 @@ private pragma Import (C, disconnect, "sfFtp_disconnect"); pragma Import (C, keepAlive, "sfFtp_keepAlive"); pragma Import (C, getWorkingDirectory, "sfFtp_getWorkingDirectory"); - pragma Import (C, getDirectoryListing, "sfFtp_getDirectoryListing"); pragma Import (C, parentDirectory, "sfFtp_parentDirectory");