2022-05-10 10:18:17 +00:00
|
|
|
;; -*- geiser-scheme: chicken -*-
|
|
|
|
|
|
|
|
(import (r7rs))
|
|
|
|
(import (scheme base))
|
|
|
|
(import (srfi 180))
|
2022-05-12 00:12:50 +00:00
|
|
|
(import (srfi 99))
|
|
|
|
(import coops)
|
2022-05-10 10:18:17 +00:00
|
|
|
(import (chicken process))
|
2022-05-12 00:12:50 +00:00
|
|
|
(import intarweb)
|
2022-05-10 10:18:17 +00:00
|
|
|
(import http-client)
|
|
|
|
|
2022-05-12 00:12:50 +00:00
|
|
|
(define-class <Browser> ()
|
|
|
|
(url stdout stdin stderr pid))
|
|
|
|
|
|
|
|
(define-method (terminate (browser <Browser>))
|
|
|
|
(process-signal (slot-value browser 'pid)))
|
|
|
|
|
|
|
|
(define-method (initialize-instance (browser <Browser>))
|
|
|
|
(call-next-method)
|
|
|
|
(set-finalizer! browser (lambda (obj) (terminate browser))))
|
|
|
|
|
|
|
|
(define-method (send (browser <Browser>) struct #!key to path using method)
|
|
|
|
(with-input-from-request
|
|
|
|
(make-request method: method
|
|
|
|
uri: (uri-reference (string-append (slot-value browser 'url) path))
|
|
|
|
headers: (headers `((content-type application/json))))
|
|
|
|
(lambda () (json-write struct))
|
|
|
|
json-read))
|
|
|
|
|
|
|
|
(define-class <Firefox> (<Browser>))
|
|
|
|
|
|
|
|
(define (firefox #!key ip ip port port)
|
|
|
|
(let-values (((stdout stdin pid stderr) (process* "geckodriver")))
|
|
|
|
(make <Browser>
|
|
|
|
url: (string-append "http://" (or ip "127.0.0.1")
|
|
|
|
":" (or port "4444") "/")
|
|
|
|
stdout: stdout
|
|
|
|
stdin: stdin
|
|
|
|
stderr: stderr
|
|
|
|
pid: pid)))
|