ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2025-01-07 07:30:23 +03:00
Code Issues Packages Projects Releases Wiki Activity

moved ford dependencies to new model

Browse Source
This commit is contained in:
Philip C Monk 2015-04-30 14:37:22 -04:00
parent 75d4e2fbad
commit fb74e61885
2 changed files with 8 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
base/arvo/ford.hoon
View File

@ -131,7 +131,7 @@
== :: == ::
++ deps :: depend state ++ deps :: depend state
$% [%init p=(set beam)] :: given out $% [%init p=(set beam)] :: given out
[%sent p=(set duct) q=(map beam (unit ,@uv))] :: listener exists [%sent p=(set duct) q=(set beam)] :: listener exists
[%done ~] :: change seen [%done ~] :: change seen
== :: == ::
++ task :: problem in progress ++ task :: problem in progress
@ -267,28 +267,19 @@
?- -.+.sih ?- -.+.sih
%writ %writ
?~ p.sih +>.$ ?~ p.sih +>.$
=+ ark=;;(arch |2.r.u.p.sih) =+ [dap=(~(got by deh.bay) dep) bem=`beam`[bek sup]]
=+ [dap=(~(got by deh.bay) dep) bem=`beam`[bek sup] new=p.ark]
=- ?~(dop con con(deh.bay (~(put by deh.bay) dep dop))) =- ?~(dop con con(deh.bay (~(put by deh.bay) dep dop)))
^- [dop=$|(~ _dap) con=_+>.$] ^- [dop=$|(~ _dap) con=_+>.$]
?- -.dap ?- -.dap
%done `+>.$ :: writ redundant %done `+>.$ :: writ redundant
%init ~|(never-subscribed/dep !!) %init ~|(never-subscribed/dep !!)
%sent %sent
=+ old=(~(got by q.dap) bem)
?: |(=(old ~) =(old [~ new]))
:- dap(q (~(put by q.dap) bem `new))
=. r.bem q.p.u.p.sih
?> ?=(%ud -.r.bem)
=- +>.$(mow :_(mow [hen %pass tea noe]))
^- noe=note
[%c [%warp [our p.bem] q.bem ~ [%sing %y ud/+(p.r.bem) (flop s.bem)]]]
=- [[%done ~] +>.$(mow (weld - mow))] =- [[%done ~] +>.$(mow (weld - mow))]
^- (list move) ^- (list move)
%+ weld (turn (~(tap in p.dap)) |=(hen=duct [hen %give %news ~])) %+ weld (turn (~(tap in p.dap)) |=(hen=duct [hen %give %news ~]))
=. q.dap (~(del by q.dap) bem) =. q.dap (~(del in q.dap) bem)
%+ turn (~(tap by q.dap)) :: cancel outstanding %+ turn (~(tap in q.dap)) :: cancel outstanding
|= [bem=beam *] |= bem=beam
=. tea [(scot %p our) (scot %uv dep) (tope bem)] =. tea [(scot %p our) (scot %uv dep) (tope bem)]
[hen %pass tea %c %warp [our p.bem] q.bem ~] [hen %pass tea %c %warp [our p.bem] q.bem ~]
== ==
@ -308,19 +299,13 @@
%init %init
%_ +>.$ %_ +>.$
deh.bay deh.bay
=+ (turn (~(tap in p.dap)) |=(a=beam [a ~])) (~(put by deh.bay) dep [%sent [hen ~ ~] p.dap])
(~(put by deh.bay) dep [%sent [hen ~ ~] (mo `(list ,[beam ~])`-)])
:: ::
mow mow
=< (welp :_(mow (turn (~(tap in p.dap)) .))) =< (welp :_(mow (turn (~(tap in p.dap)) .)))
|= bem=beam |= bem=beam
:^ hen %pass [(scot %p our) (scot %uv dep) (tope bem)] :^ hen %pass [(scot %p our) (scot %uv dep) (tope bem)]
=- [%c [%warp [our p.bem] q.bem ~ [%sing %y ud/- (flop s.bem)]]] [%c [%warp [our p.bem] q.bem ~ [%next %y r.bem (flop s.bem)]]]
?. ?=(%ud -.r.bem)
;;(@ q.q:(need (need (ska ~ %cw -.bem /))))
?: =(0 p.r.bem)
;;(@ q.q:(need (need (ska ~ %cw -.bem(r da/now) /))))
p.r.bem
== == == ==
:: ::
++ zo ++ zo

1
base/lib/talk/core.hook
View File

@ -10,6 +10,7 @@
:: ::
|% |%
++ main :: main story ++ main :: main story
|= our=ship ^- cord |= our=ship ^- cord
=+ can=(clan our) =+ can=(clan our)
?+ can %porch ?+ can %porch