From 27bcb26c0d2b26f2ae6b0141b790fbec4123eca5 Mon Sep 17 00:00:00 2001 From: Daniel Ziltener Date: Mon, 12 Apr 2021 16:23:58 +0200 Subject: [PATCH] In the beginning there was darkness --- chicken-on-a-raft.egg | 13 +++++++++++++ chicken-on-a-raft.png | Bin 0 -> 3339 bytes chicken-on-a-raft.scm | 20 ++++++++++++++++++++ 3 files changed, 33 insertions(+) create mode 100644 chicken-on-a-raft.egg create mode 100644 chicken-on-a-raft.png create mode 100644 chicken-on-a-raft.scm 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 0000000000000000000000000000000000000000..de832cf9442cf94c1d1135217d2ef71f8de7652a GIT binary patch literal 3339 zcmV+m4fOJfP)xr%;GjStKtSLiKp>z%AYefMpg!ifIxs?K;WQ&U_d}%U_kL(IA#C<00DGT zPE!Ct=GbNc01P8ZL_t(|UhJ3IuHzsOMCUWAn;qL(?`;47b3?a>p zmxzCSaB^~Ta&mHVasu6Y4$y6g#Y6K{0z~>EM4|7zr&XJvSam^9L~z;!J$W1hDtlcx zu|iYz3I(x}C$wDw>I7SAZAZ<|scGWTI|nK(yK6;Hf;BcQuPoucU-Sri!eNTtPf;7O zwcJov8vMML1o0B21TU5g?4;D;g!v3%TIp#z9+D4+oN0!C4$c3 zJEm5{4l@Tn$UHK!BYYfSWHs&H`Tq)zwVi528J+c)waFx7 zf&4XAFbB9%aHa&qF_(9dyP4nRdM_c@0B0T19-+0y*qcq)Vkt9v1nY9n@l6QgI}HdC z_+xFl*-J4r>3O-DbeG-*#(wa{cOk^71cAMIPw}&t=jEBot~O8P3i$My$j?dlOfpv) zO?ykmTuizeD~1T7$5Vd{{^QmRciXn1FsdPQ<*Gnb$7y&5Q3HtDo)W{J`Tj3A^6F;N z8ktdk$dmHLvFTsw!QsaXRf1=0gF7cjOR#617z|5mKf$#w$W%B~VS7eKS2ag97?`c~ zA^D>HiLhWRluiu>e?g{eY}mDxiP@wHp`I~cFeRr;q^oRLRsk)F38O+#U zqvFDcwora-ScHLiG;Io+Um9bBB4~W5yHkP;Qe(%j47Gt_yF6q27@c{ z7neslMSBJ%R}UI|2MBDK(*U%tg>y0k-62|R!ZN@$v6o^{lL9m--^LUp0fAcxtW=-u z&7dxL6vEKK2Cz^V&Grf*<*Pxmjg)mv_}$(BFwluJ85EU`v%URZT>y6b{SH_elbRJ6 z0o2taBR7wm9*~PY1VZJLHyMCJSEIM(cR*Le6d>EM`idd|r2h8t!VLsgR*kvPxpo>l zfY)bb^u`j28Vc7&0Dtt#$o<1pf)ML&u|swG*(NZ`+i}%(pFcD|0WW|h3>uV^MMQgK z|B)O0G8|6T^c947v@~(%xd0b1PXM(7fZiSyK$Un0S38JNflwMrLg49e1HkjKGg#S! zS2_)Qx%C+npix3#7_buvTje8peBYpgv2(|^g9m_L9~qT|9=?zz2-!#nxrfGPyt*5RDKHRqI9YUxN7na)>!vy@C;WT8P#7^C=epCZ;|g2O~|0#o}RQGj(=CD=>g?> zA-tUO4OLLH7a-J6>HCO$jYy9|w(V+~3N|QY@(M<__!{Jk0(-BXLILR^;!Qs*@Ogx& zQ-F>AGBIE$5QhBj)tx>@`Lm}`@^Ft%O;&wAdZ`l~bQh);7>nLG>EDn*G1oDoGf&ei zW8F9C!TYV*#2>ic!NYNCz~^{PRJr|CzL=K?ham1cg?+>Vpby=nEl726YCtO&@q%~# z1mz`s=mTr2aBa*Ri=`RLiex{g29#@vJy-B`KnNfL`=6^Q(C;-6hC6>3#09v*<(JCI9GpS=cj8Bs zu=MME01&uDy2kC0@J06MJVR;Hd2>Y!vM~?7V+WQCXiDfC=M?CwzZ`vT$d&?_CKSBm z!Jg);3=JxPm3cS0(!e=Z&jR&q@w^YSyY&9+9RL~Lj3E>}A8(Lb_$`}lxHnxk9$;-o z1YYm|i@f;;Z_4tUDZd-Z_D4R-pxMIN%H|}Sb1PGhfUj~n+6qEU9svwl=0k2Bna|qP* zANX0zax|fcUrsQd4*^29sNg|Yqgq%j4p2q~Wal#!pG}|!qf?&|eDx9myO?xXqCn37 z<~>5cTs}<=?;bD^>$*(7GeGe!U&vAb|Dn!|S{yfmARGb-aO`o9_kr4gUJ{$dbJ_p@ z=fZl>6{F5}->jsOQ)WT!ebGl%caLONd?lErZ-5LhsCWNA_63dj1t?G?74XD(5(0Hk z7T>69-ImZW{tbA_bkd9(_~YA8^S;nX?iB$p@S+5s4NsMq`@Xn%`--RKD`rButXMoF zAEy1Ox=*y&WFPk%EhPkT(BfnqEWc;z;yMfJ<18XYX>aWWIL|&REoK72;Wa{>&TKbp zskkr>k2PKeoFKyU0{AX7#TRT&fRXkI7MpLhNGbvVQKplYB}xpya}|?8ZXf(7t>a7G z+)2sqDiVKMKOa7??N`C1J-YjRHIsH9Vc4Oej2G|Wc)m1nEZ)AnLJHzKV70G=L6Xj# zPqmvqJM)qFRh*b_$b&SUVF`Z9?%RTEx*V@yF9hj~Xk*;6yxLkA;ka+yTR2*r<2@1 zcg_83a7pv$d2+k~k9~P}!ZaJOnXepfU+J>np-VEh z6=M#b6u7X~%bhCT{-IY(9xGDK?%<<~3O+A2R>vybjqg{}iS7_IU7!d80M)hVeXMQ8 z82co8Ug&1KA?1T1!$l&b@3dz;9vL3V=HHaYL(LOjDuVeLjX4uw!9G*^xhlA~kC-mWswy&-Fb`uq>=;i9!1CK6{E~fi@uizQ^K++kE}RvVh%eqZ@PHg-TA8W z@D&<21=IKQM*G-stX&OrNeQ88ub zQpfSdOL*ByHvPW<_J$O#93@KWXJ=w)&PWvRn6!-Q zw8W25Kt&Ajp4(0B5dSlmWKM9!(8wH<%wWa)ewJiVu0000000000fD=f< Vub^(RJzD?(002ovPDHLkV1g1KQyl;R literal 0 HcmV?d00001 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 ()) + + + ))