Re: mixing infix functions and the format4 types

[Zheng Li <zheng_li@users.sourceforge.net>]

Hello,

On 3/30/2009 2:18 AM, Anil Madhavapeddy wrote:
> Is there any way to mix infix operators with the Printf format6 types?
> I have a code printing module where this would be quite convenient
> syntactically, but the obvious attempt didn't work:
>
> $ ocaml
> Objective Caml version 3.11.0
> # open Printf;;
> # let myfn m s = let xfn o = m ^ ": " ^ o in kprintf xfn s;;
> val myfn : string -> ('a, unit, string, string) format4 -> 'a = <fun>
> # myfn "foo" "bar";;
> - : string = "foo: bar"
> # myfn "foo" "%s %s" "bar1" "bar2";;
> - : string = "foo: bar1 bar2"
> # let (---) m s = myfn m s;;
> val ( --- ) : string -> ('a, unit, string, string) format4 -> 'a = <fun>
> # "foo" --- "bar";;;
> - : string = "foo: bar"
> # "foo" --- "%s %s" "bar1" "bar2";;
> Error: This expression is not a function, it cannot be applied
>

Is extra separators acceptable?

# let ($) f x = f x;;
val ( $ ) : ('a -> 'b) -> 'a -> 'b = <fun>
# "foo" --- "%s %s %s" $ "bar1" $ "bar2" $ "bar3";;
- : string = "foo: bar1 bar2 bar3"

and, maybe in another way

# let (%) fmt x = Printf.sprintf fmt x;;
val ( % ) : ('a -> 'b, unit, string) format -> 'a -> 'b = <fun>
# "%s %s %s" % "bar1" $ "bar2" $ "bar3";;
- : string = "bar1 bar2 bar3"

HTH.
--
Zheng