ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-11-28 19:55:53 +03:00
Code Issues Packages Projects Releases Wiki Activity

more progress

Browse Source
This commit is contained in:
Philip C Monk 2015-08-20 17:00:18 -04:00
parent 1709676d15
commit c4c26874e8
2 changed files with 22 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
ape/work.hoon
View File

@ -22,15 +22,20 @@
!: !:
:::: ::::
:: ::
|_ [bowl client connected=_| claiming=?] |_ [bowl client connected=_|]
++ at ++ at
|= [task audience=(set station:talk)] |= [task audience=(set station:talk) claiming=?]
=* tax +<- =* tax +<-
=| moves=(list move) =| moves=(list move)
|% |%
++ abet ++ abet
^- [(list move) _+>.$] ^- [(list move) _+>.$]
[(flop moves) +>.$(tasks (~(put by tasks) id tax audience claiming))] [(flop moves) +>.$(tasks (~(put by tasks) id tax audience claiming))]
::
++ abut
^- [(list move) _+>.$]
[(flop moves) +>.$]
::
++ send ++ send
|= action=duty:work-stuff:talk |= action=duty:work-stuff:talk
^+ +> ^+ +>
@ -54,9 +59,11 @@
[now *bouquet [%tax action]] [now *bouquet [%tax action]]
== ==
== ==
::
++ claim ++ claim
%_ . %_ .
eny (sham eny %direct) eny (sham eny %direct)
claiming &
moves moves
:_ ~ :_ ~
^- move ^- move
@ -73,7 +80,8 @@
[now *bouquet [%tax %claim id]] [now *bouquet [%tax %claim id]]
== ==
== ==
++ create (send `duty:work-stuff:talk`[%create `task`tax]) ::
++ create (send [%create tax(date-created now, version 0)])
++ send-update |*(* (send %update id +(version) +<)) ++ send-update |*(* (send %update id +(version) +<))
++ announce (send-update %announce ~) ++ announce (send-update %announce ~)
++ release (cury send-update %release) ++ release (cury send-update %release)
@ -136,7 +144,7 @@
her=her her=her
from=from from=from
new-task=tax.action new-task=tax.action
existing-task=u.existing-task existing-task=existing-task
== ==
[~ +>.$] [~ +>.$]
=. tasks =. tasks
@ -144,12 +152,12 @@
:_ | :_ |
?~ existing-task from ?~ existing-task from
(~(uni in audience.u.existing-task) from) (~(uni in audience.u.existing-task) from)
=. sort ?~(existing-task sort [id.tax.action sort]) =. sort ?^(existing-task sort [id.tax.action sort])
[~ +>.$] [~ +>.$]
:: ::
%claim %claim
=+ tax=(~(got by tasks) id.action) =+ tax=(~(got by tasks) id.action)
?. &(=(our owner.tax) =(%announced status.tax)) ?. &(=(our owner.task.tax) =(%announced status.task.tax))
~& :* %bad-claim ~& :* %bad-claim
her=her her=her
from=from from=from
@ -203,8 +211,12 @@
== ==
== ==
:- (~(uni in audience.u.tax) from) :- (~(uni in audience.u.tax) from)
?: ?=(%release -.meat.action)
|
claiming.u.tax claiming.u.tax
?: =([%release our] meat.action) ?: ?& =([%release our] meat.action)
claiming.u.tax
==
abet:accept:(at (~(got by tasks) id.action)) abet:accept:(at (~(got by tasks) id.action))
[~ +>.$] [~ +>.$]
== ==
@ -240,7 +252,7 @@
initialize initialize
=^ mof +>.$ =^ mof +>.$
?- -.cod ?- -.cod
%new abet:create:(at [+ -]:+.cod) %new abut:create:(at [+ - |]:+.cod)
%old abet:(process-update:(at (~(got by tasks) id.cod)) dif.cod) %old abet:(process-update:(at (~(got by tasks) id.cod)) dif.cod)
%sort ~|(%not-implemented !!) %sort ~|(%not-implemented !!)
== ==

1
sur/work.hoon
View File

@ -7,6 +7,7 @@
++ client-task ++ client-task
$: task=task $: task=task
audience=(set station:talk) audience=(set station:talk)
claiming=_|
== ==
++ task ++ task
$: id=@uvH $: id=@uvH