1

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という名前が表示されます。私はそれをプライベート部分に移動しようとしましたが、パッケージの実装はプライベートですが、それを持っていません。名前を非表示にする方法はありますか?

4

1 に答える 1