[ rebol [ author: "Volker Nitsch" license: [ "My stuff BSD" {contains %paint.r , mostly by Frank Sievertsen, and 'read-thru etc dumped from rebol/view} ] usage: { Run script. start two clients. enter something in the top left field. (todo: init-bug..) thats the clipname. enter or paint in one client. the other client should update after a sec. works with other configs too, see http://polly.rebol.it/test/test/teamwork/graham/sync.r but configuration is still messy., so only localhost-demo. } note: {this script must be handled as binary. do not save with rebol-editor} ] extract-dir: %sync-demo/ overwrite: true my-file: any [system/script/args system/options/script] probe 62416 binary: as-binary find/tail as-string read/binary ?? my-file "^/;data^/" probe length? binary binary: decompress binary probe length? binary desc: [ %os-deps.r 31-Jan-2006/2:06:11+1:00 #{A99D0E0DD29228834449C4BEB8C11BC2DA4D517A} 0 637 %cgi-server.r 31-Jan-2006/2:06:11+1:00 #{96B75F26DDA618CB350DEDBCF27FFA753052DFA1} 637 437 %run.r 31-Jan-2006/2:06:11+1:00 #{FBA44D552A3D9C917DE0F08D16159B2DD565AB12} 1074 4933 %cgi-wrapper.r 31-Jan-2006/2:06:11+1:00 #{421F95FCBD48BCF7FA9BF9FB6D0E885E7A632D0A} 6007 411 %patches.r 31-Jan-2006/2:06:11+1:00 #{0D8404457DD19FB0891D6940593510F281B48221} 6418 4717 %shell.r 31-Jan-2006/2:06:11+1:00 #{773C901B2A3FBA6E2FF43F524F2F2B960A73F3EB} 11135 4144 %tooltips.r 31-Jan-2006/2:06:11+1:00 #{5B8CEBA564A939BF1A6CDC9BA7E2C62A9E0B50DC} 15279 1274 %run-demo.r 31-Jan-2006/2:06:11+1:00 #{1CB769E6F940F0654A45E688F8E19CBBF9835D25} 16553 2668 %filets.r 31-Jan-2006/2:06:11+1:00 #{6C0F6456675ED765F67B06981E537491F8B2EEFF} 19221 4951 %extract-view-mezz.r 31-Jan-2006/2:06:11+1:00 #{CC93F87FA55E83FA250C9AC1EF5B452D1A23501E} 24172 545 %tcp-server.r 31-Jan-2006/2:06:11+1:00 #{B5BAC60D7D4723F0768D3D2E02A6F2902AB2D61D} 24717 588 %view-libs.r 31-Jan-2006/2:06:11+1:00 #{52C7246189F128B16DF9D0ECBAA5A654B4C02988} 25305 567 %view-mezz.r 31-Jan-2006/2:06:11+1:00 #{069F402DF345BB9F5537D67E0613D5A901269FE2} 25872 3798 %libs.r 31-Jan-2006/2:06:11+1:00 #{DF13B1D5A5BF8EDD699D059C8BFAEA01B3703CAC} 29670 331 %mezz.r 31-Jan-2006/2:06:11+1:00 #{D354A8B3B821F0EEA0CA27B104B9E2A418C8AB08} 30001 4799 %sync.r 31-Jan-2006/2:06:11+1:00 #{986D3A5C5F63F1173DEDBA4C4E89C7D8DD07E9FD} 34800 9220 %build-archive.r 31-Jan-2006/2:06:11+1:00 #{8F8FF7C97D2C722F44EAADA9C7667D6D65C62147} 44020 1595 %xterms.r 31-Jan-2006/2:06:11+1:00 #{80609F16F5F43F16B209F352DF6A8C81D8F41758} 45615 275 %server.r 31-Jan-2006/2:06:11+1:00 #{7B265F38956B588F9F162ED5C496BDD517D64D4A} 45890 1743 %services/account.r 31-Jan-2006/2:06:11+1:00 #{B36AC2A79AF0FD0230C449EC6B042F51BE5A73E5} 47633 517 %services/sync.r 31-Jan-2006/2:06:11+1:00 #{FBD1858386D57F759B154E7EBAEB01FC3079E429} 48150 1438 %services/xadmin.r 31-Jan-2006/2:06:11+1:00 #{A493A3333954253234FED002E4DFC4BD9C75070C} 49588 601 %paint.r 31-Jan-2006/2:06:11+1:00 #{8BEF488413B289D847260C69F982F777561D2350} 50189 5036 %scratch.r 31-Jan-2006/2:06:11+1:00 #{24741CE37430E26BBDBF7C2FF4C082DD7CDFA284} 55225 165 %inliner.r 31-Jan-2006/2:06:11+1:00 #{B80766DC54C8675ADA67562C379B44ACEE8BA672} 55390 3961 %info.txt 31-Jan-2006/2:06:11+1:00 #{DD91A8199F53F793A3C3358BC40CC75DBD74B88C} 59351 167 %selfextractor.r 31-Jan-2006/2:06:11+1:00 #{19633BC23BDAD3920EF67AD50AF0AA5F505AD651} 59518 2898 ] make-dir/deep extract-dir foreach [file date check offset length] desc [ either any [overwrite not exists? extract-dir/:file] [ print ["extracting:" extract-dir/:file] make-dir/deep first split-path extract-dir/:file write/binary extract-dir/:file copy/part skip binary offset length set-modes extract-dir/:file [modification-date: date] ] [ print ["exists, unchanged:" extract-dir/:file] ] ] do extract-dir/run-demo.r ] ;data x}iwƱgW7G-"%y2sl{x)dH@-O~7,4s3XIs^m>u]o(2ì괪M$ui͊`na4(Ꝑv*yƟ O''GQ|z(>9 APg GMYR?gꥪ:]G7iYeE9j&YoE7^M5+4WSmRljh`*Tal 6I}ݬMUz~f}U۴iMhLB)墤\V9$ԨLW* j^FuNMB'-Tu+S/TuVb5W5tȁ[1Wi2Ti 0Z0_ P?6Z,>=3ڋZ`$(944Ao, !(˫(jvݩUj5,, LoVUOP,LyY @Τu]lb5s]p60Mw|ǧA]SB\Uqp8t>ɪJ :ʵ G! `5jӧM"{כ[ a96H}eP_]AB{Gt/!G^+b{naM %O>"Q0m 6eq'lN^@X4OӍ}f2ηjo gX1zTAh,yCe׫{HUUì\ Q]hJ9jf'2 A2.a.j d\0ÈI(hR+R=Zn˕bN=X: d=9kGtv`EG۪x0zmX @z3LG?|hmgَr^Dp*zrj8TCeVtx]Q7_?oRTK ނKnHEQXK`E\t8y5P%ũp%ɲQ(D]yr-94$X t6+ ]Kis EnP⤹N~[Zﶴ/-ū#`)DGۂ{a :T@1%:c Yݩh  Mܖ\[62>EzԶJy}2j.+\@b zdQa42sU7%j֖;"Y#@Kh/=O[JR_P蟺*j0JD jxR  d2 ln6:&C>3n A7dXÃ>Pq}4`_8/4 vV5:Q?Ra]2Kj, M&o{JYu~a+-#6IVKh.HE&9B2ef((b1a8nϮ` .4v""6LJYa!`~?'4x[ %B^A7@ MI{^b Dv{fKR `X%T ]w4(li:VLqOE]'S7l`aGeZV*]j8ly]DZQmȲf Vdih)oȎJIă·1 |=RjrOH$6.`̠ *wV)aEY5 xåb+ =j8RG¦eO:HK$Sh~oΊpĜ " R`JN` *oNHwDKZE{ӣ+f'0#&YtxlhJ:$|pP[ ڥϨ%fbIHSȾ'dhFK[c=IqtV;d)kD^М ^daRP|ZMijvNБ%N֮] #29ү֛R#ci[]OY@}r=߿v8򗌦l5%R-`]iXzEPJ0U p"tE"}oś%v))d.+ld = mnc}us[*Ed;G+aXhЧg_l~\Y }uZeR᱇k}Pѥ՛d>O̮ \WJLyNa&\(U^ JyҤӭFJxhmO*rp aFmf<%0H I^6[_2T2U#bz> |7$(,k *ӟ~T@G?}&[蒚 [Z$g|N&(({VC?JRC,`_}@+#[>no^UU JZPŸ}i B䊵sq.?zW*f=1S,LaR?~n+\@!w%Rq_[ F( o~⛯BBw I"/rnc*C]fZ?6!toj% Pc}W[u9e(O'/F'Ó6CS}TFh9S`m?_}PcosOċ۞*T A+$F #OH.Mz+jO-VkZ7Bê=10/4 y9` *t5W/L>\-Ta#K`z-3M5t*%$ x|T,Z:Q#GjIf)y&=:֍WQ2ӱM%KLxWBKVSzTbj tP!1.{{{ Ae`yzέX^@5x ` ,BWv&;i *UO:h4]{S-`Y|YjAD(TkJ`\N m+LY%1*Y){]F]3'%ҧO/_S'¤$z9[U Y9}aL$ %'k>9DM~0w!TyE'X*ߐa2rؽ5<PF&kE|N@CאoTW(8P{C.^=}w>W!PĘC ш5B'_N!s?Q<->=$ kXV|Zb'?"8P*΀STz`wv &odIJѡ!y&u[nrH%;c$\=|jƇpF/bTFr޴]ܧ}kV·Jk n)  K\(6Úx  %,"IL)9 ט%zSdj$MaBbAeU*(q=N۫].`-ͅ͹rѿʃS|Pd= _B'G(ud:v5!٩]ex,{A-}>{RtI@$e\'Ȇp@b9jd a(v H%՝֒ǯhfU[qtCKC)4BqHr>E2$b?2>tz~1#~~ik:3aRA[hk𾰂-@ԒEԳ/tA -2N ^8g)#8,%J}-~]K?K5 (#|к9iS,V Lz>Zd7aW$+Vs^ulOb7;t_dv'iW,!b](ʡuc α>SZuL$:GP()IH:Ƨl&z] =8Սstuz=ȶ'J< }&7 ph_nlʍc#-]ywڝ RlW{?8JWԔ:x-.3m4PONyjojqixlZx&yOPi%Mi*Qm %a|zC cL}(!eXDr$hƂka,"(eV-b@ ;mcx)V''6Y:6] 𸴁_trCNi8Uމ[i\9$;C@fJ8N9~ÏQ**x P\mZ)ō2Lr:b[R/yhNds?Ao)iЉd3ߛ. z=9RLz|vx8 ͮ\8u EƼ( VA>^di`D%M&evE lDL;p:uҷZ2@6y|rܧ`Cbr mV9:巃E[-3Rf}ĻR`+.-,z_[gfwvyysn8[y[=w੼./vlːpE:(CŶc>Q-}E剧͘2~`hfE "|Cz:  tnID!Dxd;CLQQ~2|=J!`p7ZtThy>;!v.GxF`Cג0BN*N%ַUJk[Y~s$>A Il*)YK(5S޲tUܛY ڰ[R53J#;uQA r8, iNT7vXa&EB$Im] pɂBtK/b~bd8P^QK "{I|O`1ݫM:ZV43g\9Z-yp|iBEOeiZ+xj.vRpP21 e]Ϭ${%ɣY<5ClU,Bo,nfdG6R=o-u3mb)4|ibd98%jҺ⬣ua>[ҝFv(MWh۵ʗe,59\9_|~&!ƚ7iԔ!쎆JX\eEHa?.NC𤝋ymXeCz9ԧ'''HD0d@`GNpKX; )I+XS'~S<-56&L85iEXBCe>q2i==pi¾pFI,?|v4'DYkߊ.Z0 ĝ=X"cE1;G_VAR )^BlDUq'^2dǏR`mv܍cUɼp#%hxqǡ=k7#ZWE;kJ[l '$$W(|)vBUurU 9܌cO 6G*ތEGm$e|C쩈VHQtQw~ek(Ҝg]vA(S :W#@wrun  HK -z'S+3ݛ)(>a_u AҝޠAmmFrpֻ(Å pʀo)ߐܪTf|W<KYM/[FIO[9p BD_;v\t }x6;wG^ b \*7w*WTE˜ccr aON?9}:>z>PEHE*GxdF.mqS-y@YkS6 3֓%Mv7S&2/MJy.Q@i4m kЧa}:a>rⳓJ,Z efP 9 5#F'$/<>?^ [Ғdgx/Iu"_IMl—85^S:`.ӹe@B Xw ? VyO𲻘Fw m<πSY7zEx 1# lB_X;+d˿n'<诮9PPAr M1QF@4eR [\ q,$c",t,S=-nCAm܀|DQ1,^@VMzs0`Lb{;ͅZCIF=4SG"y J:{).;IQsӅ :`d~;0ʍwR6&R0ےH#J3 bKy[Ur9q&fC.3~?'>Y:8%bvVkn4ӿQΜR 3ǂvE$P?;oכNrW#HP41=@+pt05CɪIzz v7k/4 u;1MQ̯Ӈi]r)+VHtʻkD,y;mxk*ez3|@Ib6ZfN825X}:Ȏ$!g7v4Dhݚ@] -DRm7X(갖@| ?pJރ@UJo[ֻ7ߊ0M}Il.kS͹袓%_D"v4"Ocڏal~!c //ә؋c[_+mnMP$ X a8K}Lr,c}l?ڇF(+ qThH>:VE43&Ihsil*љ?L1IF.@nK~B)yzwن0gd`N$\rl']h%M"'%S6e$CiMsnQ~Pv4 yʜOp;B Ji_NM^'%zD( ?$8H]y)zHv:zO![˗ CDC,TWn%0#L.x7|RL^0Ntf0uKæ G,z;~c9r2ftkg0:r2\9M=rsı#M2ӎNؿ8}mm<ui05G1V{~F-Sg eZ~FAB%ٚN q6z˝⚸ޥHmzLǝZqxvp85dJ8@|20@ӲT璲mɶ_/8-nj^IL~-Yh#t"s-ܨ}@lJv R0Xp]ۼϡFG:p{u>tJBTmdzh.EN4wшXTƜyjƣӓ&y+!;yT7̋b~v%#,$vYB73|8ipsĝ)'ulnb|HV#ٕ-[LqUVU݋3#dL>z@fo'5Rө6jۀDfRs êIjz) <,wƄ-iY}x53vvYH^]Wcsl$8,os-A ntYD0OJOQ(;d}NhPRrhS/ lx9Rrvݤ?Y|vM!m+rErwzF@o|9z 1 ڙ>qJl]"{`E!}HqҋDx62w1w>̊45lYإq SI5 -]VWx`h |kX߿ /w58r{>fT2h50ﳵ(zuEthZ[w=VoGŤOBΦ!JJ'<:T +hx,j^'5_ΎN䢡%{GNW|Pi>1@mۂj#-8H PZت]X7%CP7I% mp,f%~ ĸo . htg5^ uws5w`?OG7+3Fʹ1hW>=M.Uszr;a\Χqd\@4.1Sxk:H"+4'n@|Az+H{wy<~bΠwxࡥ1,XߛhmN:iEؘ'# JȪ(FfjCrxӅȏH jc}ݢ$pj*AR=7;7=^ Շ%R' kJbg):s^ 7obc65L'g,ΓwCA!5'מ]b~?W8AƸLirTHWMsBU}3}8j\Э~]m d]!Ŧver1aU0)_wdzknȾLCv$MVnqxp(hIaO|]]Z hGVCi9$[=+gsIibea5MÜnFLSGK nM [jK.P6h|CYç^4c4}%4q}-6VvԉCIáEK ݁/׃ xI<  ݑXH+S JW9留 *{)9Ls"K?88WsPDL?D,T?Oŏ ImCT](.i?iQ/JB2Tv0*!,dcaZz6>6_d"`븱᷌ ktl<>D<hۯX[<>Iug%X} =y:c3+whr0pkqu3= 鸞3l(? 3{pw5?/| vdo48n5MHsd=ۇkXLrg!x?~N9?4xKvdoqxyWqk8J^kVAEr oo!$ {ssC_\CC 8߹ a2i68j#9 0Hp%U8p MP|/iS-syaBC%2]WEB^2$$jX>ncTZ/R#դ CٸhG]f"n-$lFO7PZs#SO@mH33/0/':k!`}K_NM>x=wZ%fք6[Ϲ26j}㌇Y{{?LS*{!&ȎuI¨HbknO h\9-n&ӶI"8~@9d"[g/1\.al.+I>flsZ>_I 5 ďZfx;;3?vJNM s hnm*ŧ>gfFW34Z<*]X ff[}gT B w=SrBW.硥vMxHpxG8B+Tt ppETANk(+*