Re: Attempting to create file i task

[Shark8 <onewingedshark@gmail.com>]

On Wednesday, March 17, 2021 at 6:39:05 AM UTC-6, reinert wrote:
> Hello, 
> 
> Assume task A starts subsequentially two times sub-sequentially (but not overlapping in time). It creates and closes a file: 
> 
> define 
> my_file : File_Type; 
> begin 
> Create (File => my_file, Mode => Out_File, Name => my_file_name); 
> ..some statements... 
> Close(my_file); 
> end; 
> 
> I now have the strange experience that task A overwrites the file 
> created the first time? Any idea where to look for the error? 
> 
> reinert

What I would do in this situation:
(1) Make a function that opens the file, on the exception where it does not exist it creates the file.
(2) For my own convenience, I would likely wrap the file-type in a controlled object which would close the file on Finalize, and has a "Get_Stream" method.
(3) Combine #1 and #2 so that creating #2's type does #1.
(4) Given the above, adding some debugging information is rather trivial.
(5) Once things are debugged, you can delete the debugging-info and you still have a useful framework for handling files.