add a start and stop fn

This commit is contained in:
Mylloon 2023-05-13 13:06:15 +02:00
parent cebb5cb5b0
commit f3ca71b509
Signed by: Anri
GPG key ID: A82D63DFF8D1317F

View file

@ -1,15 +1,23 @@
open Pusk.Net
open Pusk.Drivers
let main =
let session_id = get_session in
let body = close_session session_id in
print_endline body
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 () =
let driver = prepare (Gecko "0.33.0") in
let driver_process = run_process driver [] in
main;
let stop (driver_process, session_id) =
let data = close_session session_id in
print_endline data;
stop_process driver_process
;;
let main () = ()
let () =
let data = start (Gecko "0.33.0") in
main ();
stop data
;;