Ada.sequential_IOにラッパーまたはファサードを配置したい。これは少し醜いですが、自動翻訳されたコードを操作しようとしています。だから私は持っている:
with Ada.sequential_IO;
generic
type element_type is private;
package queue_file is
package implementation is new Ada.sequential_IO (element_type);
subtype instance is implementation.file_type;
function eofQ (channel : instance) return Boolean renames implementation.end_of_file;
procedure readQ (channel : in instance; item : out element_type) renames implementation.read;
-- etc.
end queue_file;
これはすべて問題ありませんが、queue_file.implementationという名前が表示されます。私はそれをプライベート部分に移動しようとしましたが、パッケージの実装はプライベートですが、それを持っていません。名前を非表示にする方法はありますか?