Anri/pusk
1
0
Fork 0
Code Issues 1 Pull requests Projects Releases Packages 1 Wiki Activity Actions

add a start and stop fn

Browse source
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
1 changed files with 16 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
bin/main.ml
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
;;