File: valid_format.ml

package info (click to toggle)
ocaml-gettext 0.3.4-1
  • links: PTS, VCS
  • area: main
  • in suites: jessie, jessie-kfreebsd, wheezy
  • size: 1,132 kB
  • ctags: 655
  • sloc: ml: 5,433; xml: 1,892; makefile: 520; sh: 457; ansic: 155
file content (12 lines) | stat: -rw-r--r-- 225 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
 
open TestGettext;;

let e = Printf.eprintf;;

let () = 
  e (f_ "%ld") 1l;
  e (f_ "%d") 1;
  e (f_ "%s") "abcd";
  e (f_ "%a") (fun chn e -> Printf.fprintf chn "%s" e) "ancd";
  e (fn_ "%d category" "%d categories" 1) 1
;;