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