ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-09-20 23:18:00 +03:00
Code Issues Packages Projects Releases Wiki Activity

WIP trying to get dontjo working

Browse Source
This commit is contained in:
Ted Blackman 2018-05-31 17:14:39 -07:00
parent 0b3713ce07
commit 6fae175bba
6 changed files with 1876 additions and 42 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1829
app/dontjo6.hoon Normal file
View File

File diff suppressed because it is too large Load Diff

2
lib/hood/kiln.hoon
View File

@ -199,7 +199,7 @@
|%
++ emit |=(a/card +>(..autoload (^emit a)))
++ tracked-vanes
`(list @tas)`~[%ames %behn %clay %dill %eyre %ford %gall]
`(list @tas)`~[%ames %behn %clay %dill %eyre %ford %gall %turbo]
::
++ our-home /(scot %p our)/home/(scot %da now)
++ sys-hash |=(pax/path .^(@uvI %cz :(welp our-home /sys pax)))

8
sys/vane/clay.hoon
View File

@ -337,7 +337,7 @@
$: $f ::
$% {$exec p/@p q/(unit {beak silk:ford})} ::
== == ::
$: $t ::
$: $b ::
$% {$wait p/@da} ::
{$rest p/@da} ::
== == == ::
@ -355,7 +355,7 @@
$: $f ::
$% {$made p/@uvH q/gage:ford} ::
== == ::
$: $t ::
$: $b ::
$% {$wake $~} :: timer activate
== == ::
$: @tas :: by any
@ -571,13 +571,13 @@
::
++ bait
|= {hen/duct tym/@da}
(emit hen %pass /tyme %t %wait tym)
(emit hen %pass /tyme %b %wait tym)
::
:: Cancel timer.
::
++ best
|= {hen/duct tym/@da}
(emit hen %pass /tyme %t %rest tym)
(emit hen %pass /tyme %b %rest tym)
::
:: Give subscription result.
::

3
sys/vane/gall.hoon
View File

@ -767,6 +767,7 @@
?@ +.q.vax :_(+>.$ [%| (ap-suck "move: invalid move (card)")])
=+ hun=(~(get by r.zam) -.q.vax)
?. &((~(has by r.zam) -.q.vax) !=(0 -.q.vax))
~& [q-vax+q.vax has-by-r-zam+(~(has by r.zam) -.q.vax)]
:_(+>.$ [%| (ap-suck "move: invalid card (bone {<-.q.vax>})")])
=^ pec vel (~(spot wa vel) 3 vax)
=^ cav vel (~(slot wa vel) 3 pec)
@ -1217,6 +1218,8 @@
$flog `%d
$drop `%c
$info `%c
%kill `%t
%make `%t
$merg `%c
$mont `%c
$nuke `%a

37
sys/vane/turbo.hoon
View File

@ -519,43 +519,6 @@
%vale ~
%volt ~
==
:: +result-to-cage
::
:: Maybe we should return vases instead of cages.
::
++ result-to-cage
|= result=build-result
^- cage
?: ?=(%error -.result)
[%tang !>(message.result)]
?- -.+.result
^ [%noun (slop q:$(result head.result) q:$(result tail.result))]
%$ cage.result
%pin $(result build-result.result)
%alts $(result build-result.result)
%bake cage.result
%bunt cage.result
%call [%noun vase.result]
%cast cage.result
%core [%noun vase.result]
%diff cage.result
%dude $(result build-result.result)
%hood [%noun !>(scaffold.result)]
%join cage.result
%mash cage.result
%mute cage.result
%pact cage.result
%path [%noun !>(rail.result)]
%plan [%noun vase.result]
%reef [%noun vase.result]
%ride [%noun vase.result]
%same $(result build-result.result)
%scry cage.result
%slim [%noun !>([type nock]:result)]
%slit [%noun !>(type.result)]
%vale cage.result
%volt cage.result
==
:: +date-from-schematic: finds the latest pin date from this schematic tree.
::
++ date-from-schematic

39
sys/zuse.hoon
View File

@ -1497,6 +1497,41 @@
%fszy
=mark
== ==
:: +result-to-cage: extract a +cage from a +build-result
::
++ result-to-cage
|= result=build-result
^- cage
?: ?=(%error -.result)
[%tang !>(message.result)]
?- -.+.result
^ [%noun (slop q:$(result head.result) q:$(result tail.result))]
%$ cage.result
%pin $(result build-result.result)
%alts $(result build-result.result)
%bake cage.result
%bunt cage.result
%call [%noun vase.result]
%cast cage.result
%core [%noun vase.result]
%diff cage.result
%dude $(result build-result.result)
%hood [%noun !>(scaffold.result)]
%join cage.result
%mash cage.result
%mute cage.result
%pact cage.result
%path [%noun !>(rail.result)]
%plan [%noun vase.result]
%reef [%noun vase.result]
%ride [%noun vase.result]
%same $(result build-result.result)
%scry cage.result
%slim [%noun !>([type nock]:result)]
%slit [%noun !>(type.result)]
%vale cage.result
%volt cage.result
==
--
:: ::::
:::: ++gall :: (1g) extensions
@ -5692,6 +5727,7 @@
gift:able:eyre
gift:able:ford
gift:able:gall
gift:able:ford-api
==
++ task-arvo :: in request ->$
$? task:able:ames
@ -5701,6 +5737,7 @@
task:able:eyre
task:able:ford
task:able:gall
task:able:ford-api
==
++ note-arvo :: out request $->
$? {@tas $meta vase}
@ -5711,6 +5748,7 @@
{$e task:able:eyre}
{$f task:able:ford}
{$g task:able:gall}
{$t task:able:ford-api}
== ==
++ sign-arvo :: in result $<-
$% {$a gift:able:ames}
@ -5721,6 +5759,7 @@
{$f gift:able:ford}
{$g gift:able:gall}
{$j gift:able:jael}
{$t gift:able:ford-api}
==
::
++ unix-task :: input from unix