Re: [Caml-list] Format question

[David Frese <dfrese@dfrese.de>]

On Wed, 2002-11-06 at 23:49, Oleg wrote:
> Hi
> 
> Is it possible to define a printf that automatically flushes stdout?
> 
> let my_printf x = Printf.printf x; flush stdout;;
> 
> my_printf "%i" 3;;
> 
> doesn't work (Incorrect number of arguments, as the type of my_printf is 
> different from Printf.printf)

Hello,

I read your message a little late, but this seems to work:


let flprintf ch fmt =
  let rec test x =
    if (Obj.magic x) = ()
    then begin flush ch; Obj.magic () end
    else Obj.magic (fun next -> test ((Obj.magic x) next))
  in
    test (Printf.fprintf ch fmt)

let my_printf = flprintf stdout


As far as I know, no function will ever be represented as 0, which is
the internal representation of (). The code depends on that fact...

David.

-------------------
To unsubscribe, mail caml-list-request@inria.fr Archives: http://caml.inria.fr
Bug reports: http://caml.inria.fr/bin/caml-bugs FAQ: http://caml.inria.fr/FAQ/
Beginner's list: http://groups.yahoo.com/group/ocaml_beginners