From d244cd7181fc2a6eea6349aac26b36d2b36cf816 Mon Sep 17 00:00:00 2001 From: Daniel Ziltener Date: Tue, 10 May 2022 12:18:17 +0200 Subject: [PATCH] In the beginning there was darkness --- chicken-on-a-raft.egg | 2 +- chicken-on-a-raft.impl.scm | 17 +++++++++++++++++ chicken-on-a-raft.scm | 18 ++---------------- 3 files changed, 20 insertions(+), 17 deletions(-) create mode 100644 chicken-on-a-raft.impl.scm diff --git a/chicken-on-a-raft.egg b/chicken-on-a-raft.egg index 60e3f65..ff6830b 100644 --- a/chicken-on-a-raft.egg +++ b/chicken-on-a-raft.egg @@ -3,7 +3,7 @@ (synopsis "Cleanroom WebDriver implementation") (category testing) (license "BSD") - (dependencies utf8 r7rs coops) + (dependencies utf8 r7rs http-client srfi-180) (test-dependencies srfi-78) (components (extension chicken-on-a-raft diff --git a/chicken-on-a-raft.impl.scm b/chicken-on-a-raft.impl.scm new file mode 100644 index 0000000..ed01f3c --- /dev/null +++ b/chicken-on-a-raft.impl.scm @@ -0,0 +1,17 @@ +;; -*- geiser-scheme: chicken -*- + +(import (r7rs)) +(import (scheme base)) +(import (srfi 180)) +(import (chicken process)) +(import http-client) + +(define (firefox) + (let-values (((stdout stdin pid stderr) (process* "geckodriver")) + (host "127.0.0.1") + (port "4444") + ) + (lambda (msg #!optional args) + (case msg + ((test) (print "Test")) + ((test-with-args) (print "Args:" args)))))) diff --git a/chicken-on-a-raft.scm b/chicken-on-a-raft.scm index c2d47af..17dec70 100644 --- a/chicken-on-a-raft.scm +++ b/chicken-on-a-raft.scm @@ -2,19 +2,5 @@ (import (r7rs)) (define-library (chicken-on-a-raft) - (import (scheme base) - coops - coops-primitive-objects - http-client) - (export #f) - (begin - (define-class () - ((proc accessor: driver-proc)) - ((url accessor: driver-url))) - - (define-method (initialize-instance ())) - - (define-class ()) - - - )) + (import (scheme base)) + (include "chicken-on-a-raft.impl.scm"))