Re: functions, packages & characters

[unversedangel@aol.com (Unversed Angel)]

>From the code you provided we can see that you are completely unfamiliar with
>
>Ada, this will never compile.
>
Yes i am new to Ada but the problem with
the other program was that i'd  been staring at the screen too long.
This program is more similar with what i need to do next but i have no idea if
its any good.
Any help would be appreciated.




with Text_io; use Text_io;
procedure main is 
---pre: text is in the mark up language
---post: text has been converted to english
---test: once thru
t:string

procedure Get_line is
---pre:text needs to be input
 Line_Buffer : String (1 .. 1000);
  Line_Length : Natural range 0 .. Line_Buffer'Last;
  Line_Store  : array (1 .. 10_000) of Unbounded_String;
  Line_Count  : Natural range 0 .. Line_Store'Last;
begin
  loop
    Get_Line (Line_Buffer, Line_Length);
    Line_Count := Line_Count + 1;
    Line_Store (Line_Count) :=
      To_Unbounded_String (Line_Buffer (1 .. Line_Length));
    new_line;
  end loop;
end;

Procedure doubleslash is 
---pre:mark up language has been input
---post:doubleslash has been converted to single slash
---test: /,//,///
begin
 Loop
  For i in t'range loop
    if t(i)=// then
      t:=/;
    end if;
 end loop;
end;

procedure /N is 
pre: