From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <david_hd@yahoo.com>
Received: from nez-perce.inria.fr (nez-perce.inria.fr [192.93.2.78])
	by yquem.inria.fr (Postfix) with ESMTP id A4D17D15E
	for <caml-list@yquem.inria.fr>; Sun, 24 Jul 2005 20:42:48 +0200 (CEST)
Received: from web30512.mail.mud.yahoo.com (web30512.mail.mud.yahoo.com [68.142.201.240])
	by nez-perce.inria.fr (8.13.0/8.13.0) with SMTP id j6OIglM6011225
	for <caml-list@yquem.inria.fr>; Sun, 24 Jul 2005 20:42:48 +0200
Received: (qmail 67787 invoked by uid 60001); 24 Jul 2005 18:42:47 -0000
DomainKey-Signature: a=rsa-sha1; q=dns; c=nofws;
  s=s1024; d=yahoo.com;
  h=Message-ID:Received:Date:From:Subject:To:MIME-Version:Content-Type:Content-Transfer-Encoding;
  b=uCOgnqhlullIRvbPP5S2sAqqoCrd7mecMZW8e1ux8Mk+Jz5cbP1qzZEJPLF9sHuQgIKz5eyC1Lv6XV6O/eNPfiJYoN1CU89A66vROoOMunWUQKeQZSmOYqyaWFjeB/ii8V3VMqKG+G7iGuLdC75YZ24JsNcTw1xo4hEKK4MBWpw=  ;
Message-ID: <20050724184247.67785.qmail@web30512.mail.mud.yahoo.com>
Received: from [69.129.110.8] by web30512.mail.mud.yahoo.com via HTTP; Sun, 24 Jul 2005 11:42:46 PDT
Date: Sun, 24 Jul 2005 11:42:46 -0700 (PDT)
From: David Thomas <david_hd@yahoo.com>
Subject: Fwd: Re: Text.get/Text.search in labltk
To: caml-list@yquem.inria.fr
MIME-Version: 1.0
Content-Type: text/plain; charset=iso-8859-1
Content-Transfer-Encoding: 8bit
X-Miltered: at nez-perce with ID 42E3E127.002 by Joe's j-chkmail (http://j-chkmail.ensmp.fr)!
X-Spam: no; 0.00; labltk:01 rec:01 regexp:01 char:01 printf:01 printf:01 a-za-z:02 match:02 pattern:03 let:03 whoops:13 www:85 david:14 david:14 same:16 
X-Spam-Checker-Version: SpamAssassin 3.0.3 (2005-04-27) on yquem.inria.fr
X-Spam-Level: **
X-Spam-Status: No, score=2.2 required=5.0 tests=FORGED_YAHOO_RCVD 
	autolearn=disabled version=3.0.3

Whoops. 

The l+1 was an earlier experiment that hadn't been
removed.  It works the same whether it is there or
not. 

> The code:
> let rec printwords () =
>         match Text.search
>                 ~switches:[`Regexp]
>                 ~pattern:"[a-zA-Z]"
>                 ~start:(`Atxy (0, 0), [`Wordend;
> `Char
> 1])
>                 text
>         with `Linechar (l, c) ->
>                 Printf.printf "(%d, %d) -> %s\n%!"
>                         l c
>                         (Text.get
>                                 ~start:(`Atxy (l+1,
> c), [])
>                                 ~stop:(`Atxy (l,c),
> [`Lineend])
>                                 text
>                         );;


		
____________________________________________________
Start your day with Yahoo! - make it your home page 
http://www.yahoo.com/r/hs