Tiny fix to specfile.
[fedora-mingw.git] / ocaml-curses / test1.ml
1 open Curses
2
3 let () = ripoffline true
4 let w = initscr ()
5 let (wd, ncol) = get_ripoff ()
6
7 (*let () = assert (start_color ())
8 let () = assert (init_pair 1 Color.red Color.white)*)
9
10 let () = assert (cbreak ())
11 let () = assert (noecho ())
12 let () = assert (intrflush w false)
13 let () = assert (keypad w true)
14
15 let () = for i = 0 to 10 do
16   assert (mvaddch i (i * 2) (A.color_pair 1 + 111))
17 done
18
19 let () = border 0 0 0 0 0 0 0 0
20 let () = wborder w 0 0 0 0 0 0 0 0
21
22 let () = assert (refresh ())
23
24 let (c1, c2) = mousemask (-1)
25
26 let () = assert (mvaddstr 3 1 "Bonjour")
27 let () = assert (mvaddstr 4 2 (string_of_int c1))
28 let () = assert (mvaddstr 5 2 (string_of_int c2))
29
30 let t = Array.init 50 (fun x -> 64 + x)
31 let () = assert (addchnstr t 10 3)
32 let () = assert (mvaddnstr 8 40 "Bonjour" 1 3)
33 let () = assert (mvinsstr 8 40 "toto     ")
34
35 let t = [|0; 0; 0; 0 |]
36
37 let () = assert (inchnstr t 0 3)
38
39 let () = winch_handler_on ()
40
41 let kup = tigetstr "kcuu1"
42 let () = assert (addstr kup)
43
44 let acs = get_acs_codes ()
45 let () = assert (addch acs.Acs.ulcorner)
46
47 let i = getch ()
48
49 let (nc, np, can) = (colors (), color_pairs (), can_change_color ())
50
51 let (c1, c2) = pair_content 1
52
53 let l = ref []
54 let () = assert (tputs "totoping" 1 (fun c -> l := (int_of_char c) :: !l))
55
56 let (tr, tc) = get_size ()
57
58 let () = endwin ()
59
60 let () = Array.iter (fun x -> print_int x; print_newline ()) t
61
62 let () = print_string "key="; print_int i; print_newline ()
63 let () = print_int tr; print_string " "; print_int tc; print_newline ()
64 let () = print_int nc; print_string " "
65 let () = print_int np; print_string " "
66 let () = print_string (if can then "oui" else "non"); print_newline ()
67 let () = print_int c1; print_string " "
68 let () = print_int c2; print_newline ()
69 let () = print_int ncol; print_newline ()
70 let () = List.iter (fun x -> print_int x; print_string " ") !l;
71   print_newline ()
72
73 (*let i = ref 0
74 let () = while
75   let (a, b, c) = str_terminfo_variable !i in
76   (a <> "") && (print_string (a ^ "\t" ^ b ^ "\t" ^ c);
77     print_newline (); true) do
78   i := !i + 1
79 done*)
80 (*let () = Hashtbl.iter (fun a (b,c) ->
81   print_string (a ^ "\t" ^ b ^ "\t" ^ c); print_newline ())
82   str_terminfo_variables*)
83