22 lines
493 B
OCaml
22 lines
493 B
OCaml
open Pusk.Net
|
|
open Pusk.Drivers
|
|
|
|
let start driver =
|
|
let name_driver = prepare driver in
|
|
let data_driver = run_process name_driver [] in
|
|
let session_id = get_session () in
|
|
data_driver, session_id
|
|
;;
|
|
|
|
let stop (driver_process, session_id) =
|
|
if not (close_session session_id) then print_endline "Can't close the session";
|
|
stop_process driver_process
|
|
;;
|
|
|
|
let main session_id = print_endline session_id
|
|
|
|
let () =
|
|
let data = start (Gecko "0.33.0") in
|
|
main (snd data);
|
|
stop data
|
|
;;
|