Add function to interact with user and read input

Author: Çagdas Bozman

ocp-jslib/utils.ml

@@ -29,6 +29,9 @@ let get_by_name id =
     List.hd (Dom.list_of_nodeList (doc##getElementsByTagName (Js.string id))) in
   Js.to_string div##innerHTML
 
+let read_from_input ?msg:(msg="") ?default:(default="") =
+  Js.to_string (window##prompt (_s msg, _s default))
+
 let jsnew0 (constr : 'a Js.t Js.constr) () =
   (Js.Unsafe.new_obj constr [| |] : 'a Js.t)
 

ocp-jslib/utils.mli

@@ -19,6 +19,8 @@ val get_by_id : string -> string
 
 val get_by_name : string -> string
 
+val read_from_input : ?msg:string -> ?default:string -> string
+
 (** {2 Constructors}  *)
 
 (** [jsnew0] is a function to build an object using contructor [constr]

toplevel/toplevel.ml

@@ -706,6 +706,8 @@ let run () =
               Cookie.set_cookie "step" s;
               Tutorial.step (int_of_string s) in
   update_lesson_step !Tutorial.this_lesson !Tutorial.this_step;
+  let _ =
+    Tutorial.read_fun := (fun msg default -> read_from_input ~msg:msg ~default:default) in
   Js._false
 
 let main () =

tutorial/tutorial.ml

@@ -3,6 +3,11 @@ let debug = ref false
 
 let debug_fun = ref (fun _ -> ())
 let update_lang_fun = ref (fun _ -> ())
+let read_fun = ref (fun _ _ -> "")
+let read_bool = fun () -> bool_of_string (!read_fun "Enter your answer" "")
+let read_string = fun () -> !read_fun "Enter your answer" ""
+let read_int = fun () -> int_of_string (!read_fun "Enter your answer" "")
+let read_float = fun () -> float_of_string (!read_fun "Enter your answer" "")
 
 let print_debug s = if !debug then (!debug_fun) s
 
@@ -208,7 +213,6 @@ let set_lang lang =
 
 let lang () = !current_lang
 
-
 external int_of_int : int -> int = "%identity"
 external nativeint_of_nativeint : nativeint -> nativeint = "%identity"
 external float_of_float : float -> float = "%identity"

tutorial/tutorial.mli

@@ -19,6 +19,12 @@ val lessons_table : (string * string * (string * (string * string)) list * (stri
 val debug_fun : (string -> unit) ref
 val message_fun : (string -> unit) ref
 val update_lang_fun : (unit -> unit) ref
+val read_fun : (string -> string -> string) ref
+val read_bool : unit -> bool
+val read_string : unit -> string
+val read_int : unit -> int
+val read_float : unit -> float
+
 
 val lessons : unit -> unit
 val steps : unit -> unit