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 autolearn=ham
	autolearn_force=no version=3.4.4
X-Google-Thread: 103376,bb6ebeb41bf44573
X-Google-Attributes: gid103376,public
X-Google-Language: ENGLISH,ASCII-7-bit
Path: 
 g2news1.google.com!news1.google.com!news.glorb.com!bigfeed.bellsouth.net!bignumber.bellsouth.net!news.bellsouth.net!bignews3.bellsouth.net.POSTED!84c79386!not-for-mail
From: "David C. Hoos" <david.c.hoos.sr@ada95.com>
Newsgroups: comp.lang.ada
References: <gcYSc.818$Y24.419@cyclops.nntpserver.com>
Subject: Re: character matching
MIME-Version: 1.0
Content-Type: text/plain;
	charset="Windows-1252"
Content-Transfer-Encoding: 7bit
X-Newsreader: Microsoft Outlook Express 6.00.2800.1437
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1441
Message-ID: <pL0Tc.9384$Yh.6483@bignews3.bellsouth.net>
X-Complaints-To: abuse@bellsouth.net
X-Abuse-Info: Please forward a copy of all headers for proper handling
X-Trace: 
 bhmkggakljkaanefdbdpiflmbcekedmfhojhikkbagflhcbolehoijmfjccelaalojcogabekbdolcnkfppcajklocjgahihkjpllnmdphbjnmfpdkplkmhbobemncobbeokelilhafpgommioepmkkmgandlahm
NNTP-Posting-Date: Fri, 13 Aug 2004 06:30:45 EDT
Organization: BellSouth Internet Group
Date: Fri, 13 Aug 2004 05:33:03 -0500
Xref: g2news1.google.com comp.lang.ada:2712
Date: 2004-08-13T05:33:03-05:00
List-Id: <comp.lang.ada>

Look into the GNAT.Regpat package which does pattern matching
of the sort you describe, and more.

"John J" <g_001@hotmail.com> wrote in message
news:gcYSc.818$Y24.419@cyclops.nntpserver.com...
> To develop a program that counts words and sentences I'm trying to write
> some code that will recognise a word due to it being a series of
> alphanumeric characters terminated by one or more of a space, comma,
> fullstop, colon, exclamation mark or question mark. I'm going to use a
case
> to match the condition then perform an advance on a wordcounter.
>
> I also need to include a case match that will recognise sentences by being
a
> sequence of words terminated by one or more of full stop, exclamation
mark,
> question mark or colon. The code also needs to be able to accept that
there
> maybe spaces between the last word of the sentence and the terminating
stop
> ie. "hope this works  !". I'm not sure on how to match these conditions
and
> would greatly appreciate some assistance. My skeletion code is as follows:
>
> case input(Character) is
>     when ???????       -- find word
>         Word_Count:= Word_Count + 1.0;
>     when ??????        -- find sentence
>         Sentence_Count:= Sentence_Count + 1.0;
> end case;
>
> Thanks for any help
>
>
> _______________________________________________
> comp.lang.ada mailing list
> comp.lang.ada@ada-france.org
> http://www.ada-france.org/mailman/listinfo/comp.lang.ada
>
>