blob: 706a1af6f9debad5cab85d4bbf5765b791ec507f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
(* Benoît's patch did not support %_[nlNL]; test their behavior *)
(* not supported by Printf or Format: fails at runtime *)
let () = Printf.printf "%_n"
;;
let () = Printf.printf "%_N"
;;
let () = Printf.printf "%_l"
;;
let () = Printf.printf "%_L"
;;
let () = Format.printf "%_n"
;;
let () = Format.printf "%_N"
;;
let () = Format.printf "%_l"
;;
let () = Format.printf "%_L"
;;
(* identity for Scanf *)
let () = print_endline (Scanf.sscanf "" "%_n" "Hello World!")
;;
let () = print_endline (Scanf.sscanf "" "%_N" "Hello World!")
;;
let () = print_endline (Scanf.sscanf "" "%_l" "Hello World!")
;;
let () = print_endline (Scanf.sscanf "" "%_L" "Hello World!")
;;
|
