[Ocaml-lib-devel] Male supplements direct from America

[krainak <Nikita-slow-gro@2d...>]

To be or not to be a man, the answer is really just a click away. http://www.poweienati.com/

[Ocaml-lib-devel] Love me longer love me harder

[Dailey <diogahpo@BPA.GOV.MY>]

Buy more for much less with new herbal schemes http://www.hammenai.com/

[Ocaml-lib-devel] Give her mindblowing fun right now

[Mersereau <lucie-fluting@DeKind.com>]

Lovemaking is not a skill, all you need is to be huge http://www.ogienaig.com/

[Ocaml-lib-devel] More bang for the buck

[Lakeesha <mitiru@FRONTIERBANK.COM>]

Don't lose out, everyone is on the road to getting great herbal products http://www.byeueahi.com/

[Ocaml-lib-devel] Last minute discounts on express herbals

[Derringer <Hendrick-iseoikav@LAFARGE-NA.com>]

Be as large as you want with new improved herbal formulas http://www.tineiag.com/

Re: [Ocaml-lib-devel] Proposed higher-order function: List.find_map

[Janne Hellsten <jjhellst@gm...>]

That was quick, thanks!

Janne

On Wed, Apr 23, 2008 at 11:09 AM, Richard Jones <rich@...> wrote:
> On Wed, Apr 23, 2008 at 10:50:17AM -0700, Janne Hellsten wrote:
>  > Hi Rich,
>  >
>  > Would you also be so kind as to add a simple unit test for your new
>  > function?  Although your addition is fairly straightforward, it's good
>  > to test it in order to protect it in the future if someone wishes to
>  > change it.
>
>  Done (rev 381).
>
>
>
>  Rich.
>
>  --
>  Richard Jones
>  Red Hat
>

Re: [Ocaml-lib-devel] Proposed higher-order function: List.find_map

[Richard Jones <rich@an...>]

On Wed, Apr 23, 2008 at 10:50:17AM -0700, Janne Hellsten wrote:
> Hi Rich,
> 
> Would you also be so kind as to add a simple unit test for your new
> function?  Although your addition is fairly straightforward, it's good
> to test it in order to protect it in the future if someone wishes to
> change it.

Done (rev 381).

Rich.

-- 
Richard Jones
Red Hat

Re: [Ocaml-lib-devel] Proposed higher-order function: List.find_map

[Janne Hellsten <jjhellst@gm...>]

Hi Rich,

Would you also be so kind as to add a simple unit test for your new
function?  Although your addition is fairly straightforward, it's good
to test it in order to protect it in the future if someone wishes to
change it.

Janne

On Wed, Apr 23, 2008 at 5:05 AM, Richard Jones <rich@...> wrote:
> On Tue, Apr 22, 2008 at 12:18:15PM -0700, Janne Hellsten wrote:
>  > Looks good, I would find this useful.
>
>  OK, I've committed find_map:
>  http://code.google.com/p/ocaml-extlib/source/detail?r=380
>
>  Rich.
>
>  --
>  Richard Jones
>  Red Hat
>

Re: [Ocaml-lib-devel] small patch to extlib: read/write float32

[Janne Hellsten <jjhellst@gm...>]

Hi Philippe,

Sorry for taking so long to do this, life has been busy lately.

I added your patch under our issue DB so that it gets tracked
properly.  See my notes here:

http://code.google.com/p/ocaml-extlib/issues/detail?id=6

I added a couple of notes in the bug item.  The important part is that
I'd name these functions read/write_float32 instead of *_float.  See
the bug for more details.

Furthermore, I'd appreciate if you could also send a patch that adds a
unit test that tests your new functions.  Since your new functions are
rather simple, I'd go for something very simple like writing "1.0" as
an a 32-bit int (0x3F800000) into a string IO channel and reading it
back with your new functions and comparing the result against 1.0.

The unit tests are in "ocaml-extlib/trunk/test".  To run them, do:

cd ocaml-extlib/trunk/test
make
make run
make opt
make run

Adding a new test case is rather straightforward.  I'd add a wiki page
to explain how to add them, but at the moment code.google.com's wiki
is down for maintenance and I add new pages.

Janne

On Sun, Apr 6, 2008 at 2:09 PM, Philippe Strauss <philou@...> wrote:
>
>
>
>
> Hello,
>
> I wanted to read some data written "raw" in float32 format by a python program, and noticed than extlib didn't have (at least at v 1.5) functions to write or read float32, double precision float are supported.
>
> Here's a small patch, feel free to use it.
>
> Regards.
>
>
> --
> Philippe Strauss
> philou@...
>
>
>
>
>

Re: [Ocaml-lib-devel] Proposed higher-order function: List.find_map

[Richard Jones <rich@an...>]

On Tue, Apr 22, 2008 at 12:18:15PM -0700, Janne Hellsten wrote:
> Looks good, I would find this useful.

OK, I've committed find_map:
http://code.google.com/p/ocaml-extlib/source/detail?r=380

Rich.

-- 
Richard Jones
Red Hat

Re: [Ocaml-lib-devel] Proposed higher-order function: List.find_map

[Janne Hellsten <jjhellst@gm...>]

Looks good, I would find this useful.

Janne

On Tue, Apr 22, 2008 at 3:45 AM, Richard Jones <rich@...> wrote:

> I'd like to propose the following function for inclusion in ExtList:
>
>  (**
>       [find_map pred list] finds the first element of [list] for which
>       [pred element] returns [Some r].  It returns [r] immediately
>       once found.
>
>       @raise Not_found if no element matches the predicate.
>
>       See also {!filter_map}.
>    *)
>
>  val find_map : ('a -> 'b option) -> 'a list -> 'b
>
>  let rec find_map f = function
>    | [] -> raise Not_found
>    | x :: xs ->
>        match f x with
>        | Some y -> y
>        | None -> find_map f xs
>
> The HOF is analogous to filter_map, but only returns the first element
> found, rather than all matching elements.
>
> I find this HOF useful when iterating over XML [1].  For example if
> you have XML like this:
>
>  <guest>
>    <os_type>hvm</os_type>
>    <arch name='ppc'/>
>  </guest>
>
> and you want to find the <os_type> content, then assuming 'guest' is a
> variable containing the child nodes of <guest>:
>
>  let os_type =
>    try
>      find_map (
>          function
>          | Element ("os_type", _, [PCData "hvm"]) -> Some VT_HVM
>          | Element ("os_type", _, [PCData "xen"]) -> Some VT_Xen
>          | _ -> None
>      ) guest
>    with
>      Not_found -> VT_Unknown in
>
> If nobody objects I would like to add this to extlib.
>
> Rich.
>
> [1] I know it'd be better to do this with CDuce, but that would
> require there to be some sort of schema to the XML which doesn't
> change with the phase of the moon.
>
> --
> Richard Jones
> Red Hat
>
> -------------------------------------------------------------------------
> This SF.net email is sponsored by the 2008 JavaOne(SM) Conference
> Don't miss this year's exciting event. There's still time to save $100.
> Use priority code J8TL2D2.
>
> http://ad.doubleclick.net/clk;198757673;13503038;p?http://java.sun.com/javaone
> _______________________________________________
> ocaml-lib-devel mailing list
> ocaml-lib-devel@...
> https://lists.sourceforge.net/lists/listinfo/ocaml-lib-devel
>

[Ocaml-lib-devel] Proposed higher-order function: List.find_map

[Richard Jones <rich@an...>]

I'd like to propose the following function for inclusion in ExtList:

  (**
       [find_map pred list] finds the first element of [list] for which
       [pred element] returns [Some r].  It returns [r] immediately
       once found.

       @raise Not_found if no element matches the predicate.

       See also {!filter_map}.
    *)

  val find_map : ('a -> 'b option) -> 'a list -> 'b
  
  let rec find_map f = function
    | [] -> raise Not_found
    | x :: xs ->
        match f x with
        | Some y -> y
        | None -> find_map f xs

The HOF is analogous to filter_map, but only returns the first element
found, rather than all matching elements.

I find this HOF useful when iterating over XML [1].  For example if
you have XML like this:

  <guest>
    <os_type>hvm</os_type>
    <arch name='ppc'/>
  </guest>

and you want to find the <os_type> content, then assuming 'guest' is a
variable containing the child nodes of <guest>:

  let os_type =
    try
      find_map (
	  function
	  | Element ("os_type", _, [PCData "hvm"]) -> Some VT_HVM
	  | Element ("os_type", _, [PCData "xen"]) -> Some VT_Xen
	  | _ -> None
      ) guest
    with
      Not_found -> VT_Unknown in

If nobody objects I would like to add this to extlib.

Rich.

[1] I know it'd be better to do this with CDuce, but that would
require there to be some sort of schema to the XML which doesn't
change with the phase of the moon.

-- 
Richard Jones
Red Hat

[Ocaml-lib-devel] Pokehermore Gotta shag them all

[Kockaric <ash-nillerui@ALLPOINTSPACKAGING.COM>]

You can have the most indecent bulge popping out from your pants, that you will be banned wearing thongs. http://www.miuenag.com/

[Ocaml-lib-devel] Final penetration

[Gorney <snoivarb_1987@BAS.CO.JP>]

Increase your chances of getting that pretty lady by enlarging your instrument today. http://www.laxerer.com/

[Ocaml-lib-devel] Intensify and double her pleasure

[Pat <Pat-orohpoym@CSIAVIATION.COM>]

Your giant gun will explode inside her http://www.mienagie.com/

[Ocaml-lib-devel] Pureria tuberosa (Fabaceae) 20 mg

[Al Baxter <dashikispyu595@la...>]

We look forward to your success!
http://poegejai.com

[Ocaml-lib-devel] Choose from any two great diet plans

[murrayTodero <netseual2002@4e...>]

Chicks dig it, so don't wait any longer, get your new size today http://www.niebagine.com/

[Ocaml-lib-devel] wet and in a bikini

[muhammad <Mels-zeppots@Trigen.com>]

Upgrade your hardware by getting our supplements http://www.polieantof.com/

[Ocaml-lib-devel] Leading the enhancement revolution

[Thuong <Thuong-atlesiru@MILK.COM.GR>]

Be the man you've always wanted to be with this. http://www.pogeinte.com/

[Ocaml-lib-devel] Asteracantha longifolia 75 mg

[Evans Simpson <flaw9@we...>]

We would like to thank John from FL, USA for sending us his before and after photos and also letting us show them on our site.

http://jeffreyhotchkiss939.blogspot.com

I've played on and off with pumps, weights, and exercises for the last few years and have never gained one centimeter. I recently began LNH Maxdik and was pleasantly surprised to see that this product actually works. I have been on the product 2 months now and I have already gained 1 inch. Its fantastic! My new girlfriend is really impressed with my size and stamina.

[Ocaml-lib-devel] VPXL is the only penis enlargement pill that has been manufactured in a FDA Approved laboratory.

[Adolfo Beltran <necessitatingdcne4830@ak...>]

When you are sexually aroused, your brain releases a hormone causing blood to enter the penis and fill your erectile tissue
http://panisters.com