commit 27bcb26c0d2b26f2ae6b0141b790fbec4123eca5 Author: Daniel Ziltener Date: Mon Apr 12 16:23:58 2021 +0200 In the beginning there was darkness diff --git a/chicken-on-a-raft.egg b/chicken-on-a-raft.egg new file mode 100644 index 0000000..60e3f65 --- /dev/null +++ b/chicken-on-a-raft.egg @@ -0,0 +1,13 @@ +;; -*- mode: scheme -*- +((author "Daniel Ziltener") + (synopsis "Cleanroom WebDriver implementation") + (category testing) + (license "BSD") + (dependencies utf8 r7rs coops) + (test-dependencies srfi-78) + (components + (extension chicken-on-a-raft + (csc-options + "-X" "r7rs" + "-R" "r7rs" + "-sJ")))) diff --git a/chicken-on-a-raft.png b/chicken-on-a-raft.png new file mode 100644 index 0000000..de832cf Binary files /dev/null and b/chicken-on-a-raft.png differ diff --git a/chicken-on-a-raft.scm b/chicken-on-a-raft.scm new file mode 100644 index 0000000..c2d47af --- /dev/null +++ b/chicken-on-a-raft.scm @@ -0,0 +1,20 @@ +;; -*- geiser-scheme: chicken -*- +(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 ()) + + + ))