Defaulting to Standard_Output

[deadlyhead <deadlyhead@gmail.com>]

I'm writing a text processing program in the Unix tradition where, if
given no specific output file, all output is directed to
Standard_Output.  I've found this to be confusing as File_Type is
limited private.  Thus operations such as Outfile := Standard_Output
don't work.  I tried using File_Access for my Outfile object, but that
proved to be cumbersome as I was having a lot of trouble with
scoping.  My solution is as follows:

-------------------
-- begin example --
-------------------

with Ada.Text_IO; use Ada.Text_IO;
with Ada.Strings.Unbounded;
use  Ada.Strings.Unbounded;
with Ada.Text_IO.Unbounded_IO;
use  Ada.Text_IO.Unbounded_IO;

procedure Default_Output is

   --  our output file
   Outfile : File_Type;

   --  for getting the file name
   Name : Unbounded_String;

   -- rename the Text_IO function Put
   procedure TIO_Put (File : in File_Type;
		      Item : in String) renames Ada.Text_IO.Put;

   procedure Put (File : in File_Type; Item : in String) is
   begin
      -- Check to see if File has been Open'ed
      -- If not, send to Standard_Output
      if Is_Open (File) then
	 TIO_Put (File, Item);
      else
	 Put (Item);			--  to Standard_Output
      end if;
   end Put;

begin  -- Default_Output

   Put ("Name of file to process: ");
   Get_Line (Name);

   --  Open the file if we have a file name
   if Name /= "" then
      Create (Outfile, Out_File,
	      Slice (Name, 1,
		     Index (Name, " ") - 1));
   end if;

   Put (Outfile, "Default_Output output!");

   if Is_Open (Outfile) then
      Close (Outfile);
   end if;

end Default_Output;

-----------------
-- end example --
-----------------

I did not actually use the Ada.Strings.Unbounded procedures is my
code, and I'm posting this from a machine where I cannot validate what
I've written, but it looks right to me.

If anybody has a better way of handling defaulting to Standard_Output,
I'd like to see it.  This works for me, and seems elegant enough.  It
avoids a lot of messy conditionals in the body, anyway.

-- deadlyhead