home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #31 / NN_1992_31.iso / spool / comp / lang / ada / 3786 < prev    next >
Encoding:
Text File  |  1992-12-21  |  3.2 KB  |  97 lines
  1. Newsgroups: comp.lang.ada
  2. Path: sparky!uunet!caen!uvaarpa!software.org!smithd
  3. From: smithd@software.org (Doug Smith)
  4. Subject: Re: I/O and the LRM
  5. Message-ID: <1992Dec21.163435.22675@software.org>
  6. Keywords: I/O NAME OPEN
  7. Sender: usenet@software.org (Usenet News/Mail Support)
  8. Organization: Software Productivity Consortium, Herndon, Virginia
  9. References: <206@hathor.CSS.GOV>
  10. Date: Mon, 21 Dec 1992 16:34:35 GMT
  11. Lines: 84
  12.  
  13. In article <206@hathor.CSS.GOV> jeffe@hathor.CSS.GOV (Jeff Etrick) writes:
  14. > 
  15. > 
  16. >  The following is taken from the LRM:
  17. > 
  18. > >>function NAME(FILE : in FILE_TYPE) return STRING;
  19. > 
  20. > >>Returns a string which uniquely identifies the external file currently
  21. > >>associated with the given file (and may thus be used in an OPEN
  22. > >>operation).  If an environment allows alternative specifications of the
  23. > >>name (for example, abbreviations), the string returned by the function
  24. > >>should correspond to a full specification of the name.
  25. > 
  26. > >>The exception STATUS_ERROR is raised if the given file is not open.
  27. > 
  28. > 
  29. >  I have used the function successfully many times to get the external
  30. > name of a currently opened file but what I don't understand is the
  31. > comment about it being used in an open statement. Why would I want to use
  32. > this statement in an open since the file must already be opened or
  33. > STATUS_ERROR will be raised.
  34. > 
  35. > Thanks for the help,
  36. > 
  37. > Jeff
  38.  
  39. It will take a while to answer your question...
  40.  
  41. In one application, I found that a temporary file would be useful.
  42. When I discovered that Ada allowed you to create temporary files,
  43. I quickly used this new-found expertise:
  44.  
  45.     Create (Temp, Out_File);
  46.  
  47. Of course, my next lesson was quite disheartening:
  48.  
  49.     -- Much information written to file.
  50.     ...
  51.        Temp_Name : constant String := Name (Temp);
  52.     begin
  53.        Close (Temp); -- Temp is deleted from system!
  54.        Send_Name_To_Sub_Process (Temp_Name);
  55.  
  56. Yes, as soon as the temporary file is closed, it
  57. was deleted--and not by the system.  I could not use
  58. temporary files to pass data to a subprocess.
  59. (Will this behavior still be allowed in Ada9X?)
  60. AI-00046/06-ra-WJ states:
  61.     1)  An implementation is allowed to delete a temporary file
  62.         immediately after closing it.
  63.  
  64. Yet, the feature that was so beneficial was that a system
  65. dependent name was available!  So now:
  66.  
  67.       Create (Temp, Out_File)
  68.       declare
  69.          Temp_Name : constant String := Name (Temp);
  70.       begin
  71.          Close (Temp); -- Temp is deleted from system!
  72.          ...
  73.          Create (Temp, Out_File, Get_Temp_Name);
  74.  
  75.          -- Much information written to file.
  76.  
  77.          Close (Temp); -- Temp not deleted!
  78.          Send_Name_To_Sub_Process (Temp_Name);
  79.  
  80. THEN, THE OTHER PROCESS CAN PERFORM AN OPEN USING THE
  81. STRING FROM A NAME FUNCTION.  Yes, this is convoluted
  82. and not necessarily applicable to a single Ada program
  83. which could be redesigned to use the RESET feature--
  84. but you asked for it!
  85.  
  86. However, this is still a system dependent feature, because
  87. the same AI states:
  88.  
  89.     2)  The NAME function is allowed to raise USE_ERROR if
  90.         its argument is associated with an external file
  91.         that has no name, in particular, a temporary file.
  92.  
  93. Oh, well.
  94.  
  95. Doug Smith
  96. smithd@software.org
  97.