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

move some types around

Browse Source
This commit is contained in:
Philip C Monk 2015-08-20 17:15:02 -04:00
parent c4c26874e8
commit 9b50d1d48d
3 changed files with 37 additions and 37 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
ape/work.hoon
View File

@ -24,13 +24,13 @@
:: ::
|_ [bowl client connected=_|] |_ [bowl client connected=_|]
++ at ++ at
|= [task audience=(set station:talk) claiming=?] |= [claiming=? audience=(set station:talk) task]
=* 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 +<.$))]
:: ::
++ abut ++ abut
^- [(list move) _+>.$] ^- [(list move) _+>.$]
@ -148,8 +148,8 @@
== ==
[~ +>.$] [~ +>.$]
=. tasks =. tasks
%^ ~(put by tasks) id.tax.action tax.action %^ ~(put by tasks) id.tax.action |
:_ | :_ tax.action
?~ 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])
@ -185,6 +185,10 @@
[~ +>.$] [~ +>.$]
=. tasks =. tasks
%^ ~(put by tasks) id.action %^ ~(put by tasks) id.action
?: ?=(%release -.meat.action)
|
claiming.u.tax
:- (~(uni in audience.u.tax) from)
?: ?& ?=(?(%announce %release %accept) -.meat.action) ?: ?& ?=(?(%announce %release %accept) -.meat.action)
!=(her owner.task.u.tax) !=(her owner.task.u.tax)
== ==
@ -210,10 +214,6 @@
discussion [[when her com.meat.action] discussion.task.u.tax] discussion [[when her com.meat.action] discussion.task.u.tax]
== ==
== ==
:- (~(uni in audience.u.tax) from)
?: ?=(%release -.meat.action)
|
claiming.u.tax
?: ?& =([%release our] meat.action) ?: ?& =([%release our] meat.action)
claiming.u.tax claiming.u.tax
== ==
@ -252,7 +252,7 @@
initialize initialize
=^ mof +>.$ =^ mof +>.$
?- -.cod ?- -.cod
%new abut: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 !!)
== ==

2
pub/work/test.work-task
View File

@ -1,7 +1,7 @@
0v0_~1999.1.1 2~1999.1.2 ~1999.5.20 0v0_~1999.1.1 2~1999.1.2 ~1999.5.20
Tagged! Tagged!
Yoooo Yoooo
~fyr.gave ~fyr.announced
Testin Testin
~doznec ~2015.1.3 ~doznec ~2015.1.3
how long has how long has

4
sur/work.hoon
View File

@ -5,9 +5,9 @@
sort=(list ,@uvH) sort=(list ,@uvH)
== ==
++ client-task ++ client-task
$: task=task $: claiming=_|
audience=(set station:talk) audience=(set station:talk)
claiming=_| task=task
== ==
++ task ++ task
$: id=@uvH $: id=@uvH