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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
|
(* Js_of_ocaml examples
* http://www.ocsigen.org/js_of_ocaml/
* Copyright (C) 2008 Benjamin Canou
*
* DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE
* TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
*
*)
open Js_of_ocaml
module Html = Dom_html
let js = Js.string
let document = Html.window##.document
let int_input name value =
let res = document##createDocumentFragment in
Dom.appendChild res (document##createTextNode (js name));
let input = Html.createInput ~_type:(js "text") document in
input##.value := js (string_of_int !value);
input##.onchange :=
Html.handler (fun _ ->
(try value := int_of_string (Js.to_string input##.value)
with Invalid_argument _ -> ());
input##.value := js (string_of_int !value);
Js._false);
Dom.appendChild res input;
res
let button name callback =
let res = document##createDocumentFragment in
let input = Html.createInput ~_type:(js "submit") document in
input##.value := js name;
input##.onclick := Html.handler callback;
Dom.appendChild res input;
res
let onload _ =
let main = Js.Opt.get (document##getElementById (js "main")) (fun () -> assert false) in
let nbr, nbc, nbm = ref 10, ref 12, ref 15 in
Dom.appendChild main (int_input "Number of columns" nbr);
Dom.appendChild main (Html.createBr document);
Dom.appendChild main (int_input "Number of rows" nbc);
Dom.appendChild main (Html.createBr document);
Dom.appendChild main (int_input "Number of mines" nbm);
Dom.appendChild main (Html.createBr document);
Dom.appendChild
main
(button "nouvelle partie" (fun _ ->
let div = Html.createDiv document in
Dom.appendChild main div;
Minesweeper.run div !nbc !nbr !nbm;
Js._false));
Js._false
let () = Html.window##.onload := Html.handler onload
|
