Re: functions, packages & characters

[unversedangel@aol.com (Unversed Angel)]

I have been looking at my program and wondered if this woul work

package obtain is
function Get_Line;
end obtain;

with Text_io;
use Text_io;
package body obtain is
begin
function Get_Line (Text :String)
       return Unbounded_String;
  Get_Line;  
end;

With Text_IO;
use Text_IO;
with obtain
procedure main is
  ---
  ---pre: tags are in the text
  ---post:tags have been correctly reformatted
  ---
  Text: File;

function Find_Dblslash (//)
         return Single Slash(/)procedure main is
begin 
Put_Line ("Please enter text: ");
use obtain;