urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2025-01-08 14:09:29 +03:00
Code Issues Packages Projects Releases Wiki Activity

Client-side hash update

Browse Source
This commit is contained in:
Anton Dyudin 2015-02-18 15:15:27 -08:00
parent 6fad37ed79
commit 836dd6fa52
2 changed files with 22 additions and 31 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
arvo/ford.hoon
View File

@ -90,7 +90,7 @@
++ baby :: state by ship ++ baby :: state by ship
$: tad=[p=@ud q=(map ,@ud task)] :: tasks by number $: tad=[p=@ud q=(map ,@ud task)] :: tasks by number
dym=(map duct ,@ud) :: duct to task number dym=(map duct ,@ud) :: duct to task number
deh=(map ,@uvH (set beam)) :: hashed depends deh=deps :: depends by hash
jav=(map ,* calx) :: cache jav=(map ,* calx) :: cache
== :: == ::
++ bolt :: gonadic edge ++ bolt :: gonadic edge
@ -110,6 +110,7 @@
++ cafe :: live cache ++ cafe :: live cache
$: p=(set calx) :: used $: p=(set calx) :: used
q=(map ,* calx) :: cache q=(map ,* calx) :: cache
r=deps :: dependencies
== :: == ::
:: :: :: ::
++ calm :: cache metadata ++ calm :: cache metadata
@ -123,6 +124,7 @@
[%slap p=calm q=[p=vase q=twig] r=vase] :: compute [%slap p=calm q=[p=vase q=twig] r=vase] :: compute
[%slam p=calm q=[p=vase q=vase] r=vase] :: compute [%slam p=calm q=[p=vase q=vase] r=vase] :: compute
== :: == ::
++ deps (map ,@uvH (set beam)) :: hashed depends
++ task :: problem in progress ++ task :: problem in progress
$: nah=duct :: cause $: nah=duct :: cause
kas=silk :: problem kas=silk :: problem
@ -157,7 +159,7 @@
++ chub :: cache merge ++ chub :: cache merge
|= [a=cafe b=cafe] :: |= [a=cafe b=cafe] ::
^- cafe :: ^- cafe ::
[(grom p.a p.b) (grum q.a q.b)] :: [(grom p.a p.b) (grum q.a q.b) (grum r.a r.b)] ::
:: :: :: ::
++ faun |=([a=cafe b=vase] (fine a `cage`noun/b)) :: vase to cage ++ faun |=([a=cafe b=vase] (fine a `cage`noun/b)) :: vase to cage
++ feel |=([a=cafe b=cage] (fine a q.b)) :: cage to vase ++ feel |=([a=cafe b=cage] (fine a q.b)) :: cage to vase
@ -267,7 +269,7 @@
%_ +>.$ %_ +>.$
mow mow
%- welp :_ mow %- welp :_ mow
%+ turn (~(tap in (~(got by deh.bay) dep))) %+ turn ~|(dep-missed/dep (~(tap in (~(got by deh.bay) dep))))
|= a=beam |= a=beam
:^ hen %pass [(scot %p our) (scot %uv dep) ~] :^ hen %pass [(scot %p our) (scot %uv dep) ~]
=- [%c [%warp [our p.a] q.a ~ [%& %y ud/+(`@ud`-) s.a]]] =- [%c [%warp [our p.a] q.a ~ [%& %y ud/+(`@ud`-) s.a]]]
@ -428,17 +430,17 @@
++ dash :: process cache ++ dash :: process cache
|= cof=cafe |= cof=cafe
^+ +> ^+ +>
%_(+> jav.bay q.cof) %_(+> jav.bay q.cof, deh.bay r.cof)
:: ::
++ daze :: remember depends ++ daze :: remember depends
|= dep=(set beam) |= dep=(set beam)
^+ [*@uvH +>] ^+ [*@uvH deh.bay]
?~ dep [0v0 +>] ?~ dep [0v0 deh.bay]
=+ hap=(sham dep) =+ hap=(sham dep)
[hap %_(+>.$ deh.bay (~(put by deh.bay) hap dep))] [hap (~(put by deh.bay) hap dep)]
::++ exit :: stateless exec ::++ exit :: stateless exec
:: ^- (unit gift) :: ^- (unit gift)
:: =+ bot=(make [~ jav.bay] kas) :: =+ bot=(make [~ jav.bay deh.bay] kas)
:: :: =. ..exec (dash p.bot) :: :: =. ..exec (dash p.bot)
:: ?- -.q.bot :: ?- -.q.bot
:: %0 `[%made p.q.bot %& q.q.bot] :: %0 `[%made p.q.bot %& q.q.bot]
@ -449,12 +451,12 @@
++ exec :: execute app ++ exec :: execute app
^+ ..zo ^+ ..zo
?: !=(~ q.kig) ..zo ?: !=(~ q.kig) ..zo
=+ bot=(make [~ jav.bay] kas) =+ bot=(make [~ jav.bay deh.bay] kas)
=. ..exec (dash p.bot) =. ..exec (dash p.bot)
?- -.q.bot ?- -.q.bot
%0 =^ dep ..exec (daze p.q.bot) %0 =^ dep deh.bay (daze p.q.bot)
amok:(expo [%made dep %& q.q.bot]) amok:(expo [%made dep %& q.q.bot])
%2 =^ dep ..exec (daze p.q.bot) %2 =^ dep deh.bay (daze p.q.bot)
amok:(expo [%made dep %| q.q.bot]) amok:(expo [%made dep %| q.q.bot])
%1 =+ zuk=(~(tap by p.q.bot) ~) %1 =+ zuk=(~(tap by p.q.bot) ~)
=< abet =< abet
@ -496,11 +498,8 @@
?: ?=([~ ~ *] (ska %cy (tope [oak pax]))) ?: ?=([~ ~ *] (ska %cy (tope [oak pax])))
oak oak
bek bek
=+ ^= arg ^- spur =^ deh r.cof (daze(deh.bay r.cof) dep) :: XX sanity
:- %dep =+ arg=`spur`[%dep (scot %uv deh) ~]
=- ?~(- /'' /(pack -))
%+ turn (~(tap in dep))
|=(a=beam =+((tope a) ?~(- !! (pack -)))) :: XX
(cope (fade cof %hook bem) abut:(meow bem arg)) (cope (fade cof %hook bem) abut:(meow bem arg))
:: ::
++ fair :: hood parsing rule ++ fair :: hood parsing rule
@ -905,7 +904,7 @@
++ make :: reduce silk ++ make :: reduce silk
|= [cof=cafe kas=silk] |= [cof=cafe kas=silk]
^- (bolt cage) ^- (bolt cage)
:: ~& [%make -.kas] :: ~& [%make -.kas]
?- -.kas ?- -.kas
^ ^
%. [cof p.kas q.kas] %. [cof p.kas q.kas]
@ -1314,7 +1313,7 @@
?> (~(has by q.kig) tik) ?> (~(has by q.kig) tik)
?~ rot ?~ rot
=+ `[ren=care bem=beam]`(~(got by q.kig) tik) =+ `[ren=care bem=beam]`(~(got by q.kig) tik)
=^ dep ..resp (daze ~) :: dependencies? =^ dep deh.bay (daze ~) :: dependencies?
amok:(expo [%made dep %| (smyt ren (tope bem)) ~]) amok:(expo [%made dep %| (smyt ren (tope bem)) ~])
exec(q.kig (~(del by q.kig) tik)) exec(q.kig (~(del by q.kig) tik))
-- --
@ -1382,7 +1381,7 @@
^- [p=(list move) q=_..^$] ^- [p=(list move) q=_..^$]
=+ ska=(slod ski) =+ ska=(slod ski)
?. ?=([@ @ $|(~ [@ ~])] tea) ?. ?=([@ @ $|(~ [@ ~])] tea)
[~ ..^$] [~ ..^$] :: XX remove on breach
=+ our=(need (slaw %p i.tea)) =+ our=(need (slaw %p i.tea))
=+ bay=(~(got by pol.lex) our) =+ bay=(~(got by pol.lex) our)
=^ mos bay =^ mos bay

16
main/mar/urb/door.hook
View File

@ -2,14 +2,7 @@
:::: /hook/door/urb/mar :::: /hook/door/urb/mar
:: ::
/? 314 /? 314
/= dep /$ /= dep /$ |=([^ but=path] `@uvH`?>(?=([%dep @ ~] but) (slav %uv i.t.but)))
!:
|= [^ but=path]
^- (set path)
?> ?=([%dep @ ~] but)
%- sa
%+ turn `path`(need (pick i.t.but))
|=(a=span `path`(need (pick a)))
!: !:
|_ own=manx |_ own=manx
:: ::
@ -28,10 +21,9 @@
:: =+ bek=(sa (turn (turn dep) |=(a=beam (tope a(s ~))))) :: inject into %hymn :: =+ bek=(sa (turn (turn dep) |=(a=beam (tope a(s ~))))) :: inject into %hymn
%_ old %_ old
c.i.c c.i.c
:+ ;meta(charset "utf-8", urb_injected ""); :- ;meta(charset "utf-8", urb_injected "");
=+ det=`tang`(turn (~(tap in dep)) |=(a=path leaf/+:(spud a))) ?~ dep c.i.c.old
=+ pax=~(ram re %rose ["&" `~] det) :- ;script@"/~/on/{<dep>}.js";
;script@"/~/on.js?{pax}";
c.i.c.old c.i.c.old
== ==
-- --