From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.9 required=5.0 tests=BAYES_00,FREEMAIL_FROM
	autolearn=ham autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,794c64d1f9164710
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2002-02-21 10:08:07 PST
Path: 
 archiver1.google.com!news1.google.com!newsfeed.stanford.edu!news-spur1.maxwell.syr.edu!news.maxwell.syr.edu!cpk-news-hub1.bbnplanet.com!news.gtei.net!newsfeed1.cidera.com!Cidera!portc03.blue.aol.com!audrey04.news.aol.com!not-for-mail
X-Admin: news@aol.com
From: unversedangel@aol.com (Unversed Angel)
Newsgroups: comp.lang.ada
Date: 21 Feb 2002 18:07:15 GMT
References: <mailman.1014282062.23400.comp.lang.ada@ada.eu.org>
Organization: AOL, http://www.aol.co.uk
Subject: Re: functions, packages & characters
Message-ID: <20020221130715.12738.00000034@mb-bg.aol.com>
Xref: archiver1.google.com comp.lang.ada:20223
Date: 2002-02-21T18:07:15+00:00
List-Id: <comp.lang.ada>

>>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: